diff options
author | eschnett <eschnett@535fb057-194f-0410-b5a5-c63992f15602> | 2013-10-30 15:21:02 +0000 |
---|---|---|
committer | eschnett <eschnett@535fb057-194f-0410-b5a5-c63992f15602> | 2013-10-30 15:21:02 +0000 |
commit | fd1fc954c436810e0d2b9f9c33456b51b1cc8734 (patch) | |
tree | 1155ba4d6a73face2a174bc30170a9b0bc3d0420 | |
parent | 0acf8aac04c8e8fb3970af43619c7b1d69f1942f (diff) |
Make code compile when CCTK_REAL is real*4
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@58 535fb057-194f-0410-b5a5-c63992f15602
-rw-r--r-- | src/RotatingDBHIVP.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/RotatingDBHIVP.F b/src/RotatingDBHIVP.F index d176cd6..f5e1501 100644 --- a/src/RotatingDBHIVP.F +++ b/src/RotatingDBHIVP.F @@ -652,10 +652,10 @@ c c Compute eta,q,phi at the each points of cartesian grid c - 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 |