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_dis.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_dis.F')
| -rw-r--r-- | src/AHFinder_dis.F | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/AHFinder_dis.F b/src/AHFinder_dis.F index 47bcb82..e44be98 100644 --- a/src/AHFinder_dis.F +++ b/src/AHFinder_dis.F @@ -590,13 +590,13 @@ if (myproc.eq.0) then inquire(file=disf, exist=disf_exists) if (disf_exists) then - open(1,file=disf,form='formatted',status='old', position='append') + open(11,file=disf,form='formatted',status='old', position='append') else - open(1,file=disf,form='formatted',status='replace') - write(1,"(A18)") '" Horizon distance' + open(11,file=disf,form='formatted',status='replace') + write(11,"(A18)") '" Horizon distance' end if - write(1,"(2ES14.6)") cctk_time,d12 - close(1) + write(11,"(2ES14.6)") cctk_time,d12 + close(11) end if @@ -605,5 +605,3 @@ ! *************** end subroutine AHFinder_dis - - |