diff options
Diffstat (limited to 'src/AHFinder_find3.F')
| -rw-r--r-- | src/AHFinder_find3.F | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/src/AHFinder_find3.F b/src/AHFinder_find3.F index 6a8e52a..0cfbf73 100644 --- a/src/AHFinder_find3.F +++ b/src/AHFinder_find3.F @@ -40,28 +40,23 @@ one = 1.0D0 - ! ************************* ! *** START ROUTINE *** ! ************************* -! For first horizon initialize {ahfgrid3,ahf_exp3}. - - if (mfind.eq.1) then - -! If we found an outer horizon, make {ahfgrid3,ahf_exp3} -! equal to {ahfgrid,ahf_exp}. +! For first outer horizon initialize {ahfgrid3,ahf_exp3}. - if (mtype.eq.1) then + if ( mfind .eq. 1) then + if ( mtype .eq. 1 ) then ahfgrid3 = ahfgrid ahf_exp3 = ahf_exp -! If we did not find an outer horizon, make {ahfgrid3,ahf_exp3} -! equal to one. - else +! If we did not find an outer horizon, make {ahfgrid3,ahf_exp3} +! equal to one. + ahfgrid3 = one ahf_exp3 = one |