diff options
author | rideout <rideout@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-02-06 16:55:16 +0000 |
---|---|---|
committer | rideout <rideout@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-02-06 16:55:16 +0000 |
commit | 4a7d93c3cf6d52f4245a57550578b64a70dc79b2 (patch) | |
tree | be74d794e68b111c4260fcb777465d253cbedda9 /src/AHFinder_min.F | |
parent | bd0918bb4b99c0283c155bda1b667c1208e4434a (diff) |
Use channel 11 rather than 1 for all output to files, since 1 may be
reserved for stdout on some machines.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@329 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_min.F')
-rw-r--r-- | src/AHFinder_min.F | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/AHFinder_min.F b/src/AHFinder_min.F index 1c4a044..de9856e 100644 --- a/src/AHFinder_min.F +++ b/src/AHFinder_min.F @@ -247,11 +247,11 @@ write(*,*) 'AHFinder: Too many iterations.' if (logfile) then - open(1,file=logf,form='formatted', + open(11,file=logf,form='formatted', . status='old',position='append') - write(1,*) - write(1,*) 'AHFinder: Too many iterations.' - close(1) + write(11,*) + write(11,*) 'AHFinder: Too many iterations.' + close(11) end if end if @@ -270,4 +270,3 @@ ! *************** end subroutine AHFinder_min - |