diff options
| author | eschnett <eschnett@971fb155-194f-0410-9daf-e2eca44e59f5> | 2012-05-01 15:57:23 +0000 |
|---|---|---|
| committer | eschnett <eschnett@971fb155-194f-0410-9daf-e2eca44e59f5> | 2012-05-01 15:57:23 +0000 |
| commit | e044d40a87cf65bc8b579e9c6d26d776d8bed6cf (patch) | |
| tree | 9dce992de0777b0f4390b54f841b2939b6a862dd | |
| parent | 351cce50357b83ce304571547cec818e09a3ae17 (diff) | |
Use type-generic intrinsics
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@57 971fb155-194f-0410-9daf-e2eca44e59f5
| -rw-r--r-- | src/DistortedBHIVP.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/DistortedBHIVP.F b/src/DistortedBHIVP.F index d8bbdca..46ccd8d 100644 --- a/src/DistortedBHIVP.F +++ b/src/DistortedBHIVP.F @@ -577,10 +577,10 @@ c Now compute on the Cartesian coordinate. c c Compute eta,q,phi at the each points of cartesian grid - eta = 0.5d0*dlog(x**2+y**2+z**2) + eta = 0.5d0*log(x**2+y**2+z**2) abseta = abs(eta) - q = datan2(sqrt(x**2+y**2),z) - phi = datan2(y,x) + q = atan2(sqrt(x**2+y**2),z) + phi = atan2(y,x) do k = 1,nz do j = 1,ny |