diff options
author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-10-14 22:01:14 +0000 |
---|---|---|
committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-10-14 22:01:14 +0000 |
commit | 3fecb11771ea0c391d48093b5fbb0051f65e1f28 (patch) | |
tree | a4dd5881e7a2baf76bba20dd50b7c29adf4afe2b /src | |
parent | 270986d55dba30624c2cf5f9212257585530811c (diff) |
Bugfix initializing a variable.
Undo my last commit for inserting continuation lines to make it compiling
with NAG compiler - if the proper compiler options are used, this isn't
neccessary anymore.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@251 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src')
-rw-r--r-- | src/AHFinder_output.F | 32 |
1 files changed, 11 insertions, 21 deletions
diff --git a/src/AHFinder_output.F b/src/AHFinder_output.F index f9a3f01..0861aaa 100644 --- a/src/AHFinder_output.F +++ b/src/AHFinder_output.F @@ -101,8 +101,7 @@ 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 @@ -120,8 +119,7 @@ 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 @@ -139,8 +137,7 @@ 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 @@ -158,8 +155,7 @@ 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 @@ -175,8 +171,7 @@ 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 @@ -194,8 +189,7 @@ 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 @@ -215,8 +209,7 @@ 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 @@ -243,11 +236,10 @@ 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 + out_asymy = 0.0D0 if (status.and.report.and..not.refy) then do l=1,lmax do m=1,l @@ -268,8 +260,7 @@ 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 @@ -295,8 +286,7 @@ 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 |