diff options
Diffstat (limited to 'src/AHFinder_exp.F')
| -rw-r--r-- | src/AHFinder_exp.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/AHFinder_exp.F b/src/AHFinder_exp.F index 59d4e62..254986b 100644 --- a/src/AHFinder_exp.F +++ b/src/AHFinder_exp.F @@ -214,7 +214,7 @@ aux = guxx*dfx**2 + guyy*dfy**2 + guzz*dfz**2 . + two*(guxy*dfx*dfy + guxz*dfx*dfz + guyz*dfy*dfz) - ahfgradn(i,j,k) = dsqrt(aux) + ahfgradn(i,j,k) = sqrt(aux) if (ahfgradn(i,j,k).eq.zero) ahfgradn(i,j,k) = one ! Find crossed derivatives. @@ -262,7 +262,7 @@ T0 = dfx*dfux + dfy*dfuy + dfz*dfuz if (T0.gt.zero) then - T0 = one/dsqrt(T0) + T0 = one/sqrt(T0) ! __2 ! Find: \/ f / u |