From 5d85d1fd2f5f9b68f731f3f4cb8f85ebc02c555a Mon Sep 17 00:00:00 2001 From: hawke Date: Mon, 7 Jul 2003 11:48:23 +0000 Subject: Change where the logfile is opened so that the new stepsize is written to there instead of fort.1. Fixes PR1150. Note that I had to do a realclean to my configuration to make this work, otherwise it kept creating this file. This may be due to a peculiarity of my system though. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@341 89daf98e-ef62-4674-b946-b8ff9de2216c --- src/AHFinder_flow.F | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'src') diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F index e867c83..89e4f9b 100644 --- a/src/AHFinder_flow.F +++ b/src/AHFinder_flow.F @@ -311,6 +311,15 @@ . / (abs(ahfdiff) + abs(ahfdiff_old)) +! Open logfile. + + logf = filestr(1:nfile)//"/ahf_logfile" + + if (logfile.and.(myproc.eq.0)) then + open(11,file=logf,form='formatted',status='old', + . position='append') + end if + ! *************************** ! *** ADJUST STEPSIZE *** ! *************************** @@ -332,8 +341,8 @@ end if if (logfile) then - write(1,*) - write(1,"(A15,ES14.6)") ' New stepsize =',A + write(11,*) + write(11,"(A15,ES14.6)") ' New stepsize =',A end if ! If the diference is too small, we can safely increase @@ -350,8 +359,8 @@ end if if (logfile) then - write(1,*) - write(1,"(A15,ES14.6)") ' New stepsize =',A + write(11,*) + write(11,"(A15,ES14.6)") ' New stepsize =',A end if end if @@ -361,15 +370,6 @@ ! *** LOGFILE AND MESSAGES TO SCREEN *** ! ****************************************** -! Open logfile. - - logf = filestr(1:nfile)//"/ahf_logfile" - - if (logfile.and.(myproc.eq.0)) then - open(11,file=logf,form='formatted',status='old', - . position='append') - end if - ! Write messages. if (myproc.eq.0) then -- cgit v1.2.3