diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/AHFinder_flow.F | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F index 0a862ed..84d853a 100644 --- a/src/AHFinder_flow.F +++ b/src/AHFinder_flow.F @@ -310,11 +310,10 @@ reldiff = dabs(ahfdiff - ahfdiff_old) . / dabs(ahfdiff + ahfdiff_old) - 100 new = .false. ! If the relative difference is too large, we reduce the -! stepsize and ignore this iteration. +! stepsize for the next iteration. if ((reldiff.gt.maxchange).or. . (ahfdiff.gt.maxchange*ahfsum)) then @@ -322,10 +321,6 @@ new = .true. A = 0.5D0*A - c0 = c0_old - cc = cc_old - cs = cs_old - ! If the diference is too small, we can safely increase ! the stepsize for the next iteration. |