diff options
author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-05-14 09:14:28 +0000 |
---|---|---|
committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-05-14 09:14:28 +0000 |
commit | c5545c87de630d5ff6a24ec790a157fcbc3817d1 (patch) | |
tree | 7a032304351ac8e1cf9ebfd088954c5f4714a531 /src/AHFinder_flow.F | |
parent | 55832c48b2a64c865d89ea29890e4adc35c1d293 (diff) |
minor change.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@198 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_flow.F')
-rw-r--r-- | src/AHFinder_flow.F | 30 |
1 files changed, 20 insertions, 10 deletions
diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F index c48582e..fff375b 100644 --- a/src/AHFinder_flow.F +++ b/src/AHFinder_flow.F @@ -326,6 +326,16 @@ new = .true. A = 0.5D0*A + if (veryver) then + write(*,*) + write(*,"(A15,ES14.6)") ' New stepsize =',A + end if + + if (logfile) then + write(1,*) + write(1,"(A15,ES14.6)") ' New stepsize =',A + end if + ! If the diference is too small, we can safely increase ! the stepsize for the next iteration. @@ -334,6 +344,16 @@ new = .true. A = 2.0D0*A + if (veryver) then + write(*,*) + write(*,"(A15,ES14.6)") ' New stepsize =',A + end if + + if (logfile) then + write(1,*) + write(1,"(A15,ES14.6)") ' New stepsize =',A + end if + end if @@ -372,11 +392,6 @@ write(*,"(A21,ES14.6)") ' Mean value of H^2 =',aux*intexp2 write(*,"(A21,ES14.6)") ' ahfdiff/ahfsum =',ahfdiff/ahfsum - if (new) then - write(*,*) - write(*,"(A15,ES14.6)") ' New stepsize =',A - end if - if (offset) then write(*,*) write(*,"(A6,ES14.6)") ' xc =',xc @@ -413,11 +428,6 @@ write(1,"(A21,ES14.6)") ' Mean value of H^2 =',aux*intexp2 write(1,"(A21,ES14.6)") ' ahfdiff/ahfsum =',ahfdiff/ahfsum - if (new) then - write(1,*) - write(1,"(A15,ES14.6)") ' New stepsize =',A - end if - if (offset) then write(1,*) write(1,"(A6,ES14.6)") ' xc =',xc |