diff options
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 - - |