diff options
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 |