diff options
author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2002-06-18 13:12:28 +0000 |
---|---|---|
committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2002-06-18 13:12:28 +0000 |
commit | 414ce3e0ecc10817bd9fd90fdb5646aebe827e7e (patch) | |
tree | 9b48a49318aad8809b0c0b4b3285335cae94c535 /src/Extract.F | |
parent | d0e5cd8c249de034e2292a58e395bd704b507ecc (diff) |
Use the generic routines sqrt(), sin(), cos(), etc. instead of double-precision
ones dsqrt(), dsin(), dcos(), detc.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@59 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src/Extract.F')
-rw-r--r-- | src/Extract.F | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Extract.F b/src/Extract.F index e7d9f56..1ea5e86 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -262,15 +262,15 @@ c ------------------------------------------------------------------ r_max = MIN(xmax-two*Dx-orig(1), & ymax-two*Dy-orig(2), & zmax-two*Dz-orig(3), - & DABS(xmin+two*Dx-orig(1)), - & DABS(ymin+two*Dy-orig(2))) + & ABS(xmin+two*Dx-orig(1)), + & ABS(ymin+two*Dy-orig(2))) ELSE r_max = MIN(xmax-two*Dx-orig(1), & ymax-two*Dy-orig(2), & zmax-two*Dz-orig(3), - & DABS(xmin+two*Dx-orig(1)), - & DABS(ymin+two*Dy-orig(2)), - & DABS(zmin+two*Dz-orig(3))) + & ABS(xmin+two*Dx-orig(1)), + & ABS(ymin+two*Dy-orig(2)), + & ABS(zmin+two*Dz-orig(3))) END IF |