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_leg.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_leg.F')
| -rw-r--r-- | src/AHFinder_leg.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/AHFinder_leg.F b/src/AHFinder_leg.F index 2215539..654963b 100644 --- a/src/AHFinder_leg.F +++ b/src/AHFinder_leg.F @@ -191,7 +191,7 @@ if (M.gt.0) then - SOMX2 = dsqrt((one-X)*(one+X)) + SOMX2 = sqrt((one-X)*(one+X)) FACT = one do I=1,M @@ -291,7 +291,7 @@ end if - LEGEN = dsqrt(factor)*LEGEN + LEGEN = sqrt(factor)*LEGEN ! *************** |