diff options
Diffstat (limited to 'src/AHFinder_pow.F')
| -rw-r--r-- | src/AHFinder_pow.F | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/AHFinder_pow.F b/src/AHFinder_pow.F index a928f76..a8b94d5 100644 --- a/src/AHFinder_pow.F +++ b/src/AHFinder_pow.F @@ -96,7 +96,7 @@ ITER = 0 - 10 ITER = ITER + 1 + 10 ITER = ITER + 1 if ((myproc.eq.0).and.veryver) then write(*,*) @@ -142,7 +142,7 @@ IBIG = I end if - 20 continue + 20 continue end do @@ -652,7 +652,7 @@ write(*,*) 'PARABOLA exceeded maximum number of iterations.' - 3 XMIN = XX + 3 XMIN = XX PARABOLA = FX @@ -1014,7 +1014,7 @@ if (logfile) then write(12,10) l,m,' ',cc(l,m),' ',cs(l,m) end if - 10 format(I4,I4,A2,ES14.6,A1,ES14.6) + 10 format(I4,I4,A2,ES14.6,A1,ES14.6) end if end do end do @@ -1044,7 +1044,7 @@ if (logfile) then write(12,20) l,m,' ',cc(l,m) end if - 20 format(I4,I4,A2,ES14.6) + 20 format(I4,I4,A2,ES14.6) end if end do end do |