Fixed some statements which seem to be non-standard (eg. exceeding 72 chars

per source line - this couldn't be broken into another continuation line
by the perl preprocessor when it was in the middle of a keyword).


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@250 89daf98e-ef62-4674-b946-b8ff9de2216c

1 files changed, 20 insertions, 10 deletions

diff --git a/src/AHFinder_output.F b/src/AHFinder_output.F
index 248f448..f9a3f01 100644
--- a/src/AHFinder_output.F
+++ b/src/AHFinder_output.F
@@ -101,7 +101,8 @@
            open(1,file=massf,form='formatted',status='replace')
            write(1,"(A14)") '" Horizon mass'
         else
-           open(1,file=massf,form='formatted',status='old',position='append')
+           open(1,file=massf,form='formatted',status='old',
+     .          position='append')
         end if
 
         if (status.and.report) then
@@ -119,7 +120,8 @@
            open(1,file=radf,form='formatted',status='replace')
            write(1,"(A16)") '" Horizon radius'
         else
-           open(1,file=radf,form='formatted',status='old',position='append')
+           open(1,file=radf,form='formatted',status='old',
+     .          position='append')
         end if
 
         if (status.and.report) then
@@ -137,7 +139,8 @@
            open(1,file=circeqf,form='formatted',status='replace')
            write(1,"(A26)") '" Equatorial circumference'
         else
-           open(1,file=circeqf,form='formatted',status='old',position='append')
+           open(1,file=circeqf,form='formatted',status='old',
+     .          position='append')
         end if
 
         if (status.and.report) then
@@ -155,7 +158,8 @@
            open(1,file=merip1f,form='formatted',status='replace')
            write(1,"(A27)") '" Length of meridian, phi=0'
         else
-           open(1,file=merip1f,form='formatted',status='old',position='append')
+           open(1,file=merip1f,form='formatted',status='old',
+     .          position='append')
         end if
 
         if (status.and.report) then
@@ -171,7 +175,8 @@
            open(1,file=merip2f,form='formatted',status='replace')
            write(1,"(A30)") '" Length of meridian, phi=pi/2'
         else
-           open(1,file=merip2f,form='formatted',status='old',position='append')
+           open(1,file=merip2f,form='formatted',status='old',
+     .          position='append')
         end if
 
         if (status.and.report) then
@@ -189,7 +194,8 @@
            open(1,file=areaf,form='formatted',status='replace')
            write(1,"(A14)") '" Horizon area'
         else
-           open(1,file=areaf,form='formatted',status='old',position='append')
+           open(1,file=areaf,form='formatted',status='old',
+     .          position='append')
         end if
 
         if (status.and.report) then
@@ -209,7 +215,8 @@
            open(1,file=asymxf,form='formatted',status='replace')
            write(1,"(A29)") '" Asymmetries on x reflection'
         else
-           open(1,file=asymxf,form='formatted',status='old',position='append')
+           open(1,file=asymxf,form='formatted',status='old',
+     .          position='append')
         end if
 
         out_asymx = 0.0D0
@@ -236,7 +243,8 @@
            open(1,file=asymyf,form='formatted',status='replace')
         write(1,"(A29)") '" Asymmetries on y reflection'
         else
-           open(1,file=asymyf,form='formatted',status='old',position='append')
+           open(1,file=asymyf,form='formatted',status='old',
+     .          position='append')
         end if
 
         out_asymx = 0.0D0
@@ -260,7 +268,8 @@
            open(1,file=asymzf,form='formatted',status='replace')
            write(1,"(A29)") '" Asymmetries on z reflection'
         else
-           open(1,file=asymzf,form='formatted',status='old',position='append')
+           open(1,file=asymzf,form='formatted',status='old',
+     .          position='append')
         end if
 
         out_asymz = 0.0D0
@@ -286,7 +295,8 @@
            write(1,"(A21)")    '# Radial coefficients'
            write(1,"(A1)")     '#'
         else
-           open(1,file=almf,form='formatted',status='old',position='append')
+           open(1,file=almf,form='formatted',status='old',
+     .          position='append')
            write(1,*)
         end if
         write(1,"(A12,I4)") '# Time step ',cctk_iteration