diff options
author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-06-18 13:00:08 +0000 |
---|---|---|
committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-06-18 13:00:08 +0000 |
commit | 751bd44faded4ac77cb9029cdacd832b0cb8bec8 (patch) | |
tree | e5928adc750a6d2743db33e31f4135ec6359204a /src/AHFinder_flow.F | |
parent | c0a5e1b582bcf8b481c08c6f1f04f40fac278a3b (diff) |
Use the generic routines sqrt(), abs(), log(), etc. instead of double-precision
ones dsqrt(), dabs(), dlog(), detc.
This makes the code compile in single precision.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@312 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_flow.F')
-rw-r--r-- | src/AHFinder_flow.F | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F index 043b629..810019b 100644 --- a/src/AHFinder_flow.F +++ b/src/AHFinder_flow.F @@ -283,8 +283,8 @@ end if - ahfsum = dsqrt(ahfsum) - ahfdiff = dsqrt(ahfdiff) + ahfsum = sqrt(ahfsum) + ahfdiff = sqrt(ahfdiff) ! If this is the first of the two small steps, save ! twice the difference. Why twice? Because this would @@ -307,8 +307,8 @@ ! Here we find the relative difference between having done two ! small steps and one large step. - reldiff = dabs(ahfdiff - ahfdiff_old) - . / (dabs(ahfdiff) + dabs(ahfdiff_old)) + reldiff = abs(ahfdiff - ahfdiff_old) + . / (abs(ahfdiff) + abs(ahfdiff_old)) ! *************************** |