diff options
author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-01-09 15:48:42 +0000 |
---|---|---|
committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-01-09 15:48:42 +0000 |
commit | 8c9f67018977dde5b8dd27f4303a7233e3beff4a (patch) | |
tree | 9b5f7125772f48bf0799e307d362146d9f49d2ee | |
parent | 800587abce16f04876e8e1c714f87004db4bb160 (diff) |
Fixed ASCII output of AHFinder data.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@275 89daf98e-ef62-4674-b946-b8ff9de2216c
-rw-r--r-- | src/AHFinder_output.F | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/src/AHFinder_output.F b/src/AHFinder_output.F index 91213bb..c5a492e 100644 --- a/src/AHFinder_output.F +++ b/src/AHFinder_output.F @@ -290,6 +290,15 @@ c some compilers cannot trim an empty string, so we add at least one char open(1,file=almf,form='formatted',status='old',position='append') write(1,*) end if + + if (status.and.report) then + out_centerx = xc + out_centery = yc + out_centerz = zc + + write(1,"(A15,3ES14.6)") '# centered on: ', out_centerx, out_centery, out_centerz + endif + write(1,"(A12,I4)") '# Time step ',cctk_iteration write(1,"(A7,ES14.6)") '# Time ',cctk_time write(1,"(A7,I4)") '# Call ',ahf_ncall @@ -321,12 +330,6 @@ c some compilers cannot trim an empty string, so we add at least one char end if end if - out_centerx = xc - out_centery = yc - out_centerz = zc - - write(1,"(A15,3ES14.6)") '# centered on: ', out_centerx, out_centery, out_centerz - write(1,"(A1)") '#' write(1,"(A22)") '# a_lm l m' write(1,"(A1)") '#' |