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