diff options
| author | hawke <hawke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-07-07 11:48:23 +0000 |
|---|---|---|
| committer | hawke <hawke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-07-07 11:48:23 +0000 |
| commit | 5d85d1fd2f5f9b68f731f3f4cb8f85ebc02c555a (patch) | |
| tree | 25d18ad14ab3d7d89b1a5254be79edde22d082b9 | |
| parent | 3f36efd72d54db682a9f7cfd786ac2df1c55ccd8 (diff) | |
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
| -rw-r--r-- | src/AHFinder_flow.F | 26 |
1 files changed, 13 insertions, 13 deletions
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 |