User: eschnett Date: 2013/10/30 10:21 AM

Modified: /trunk/src/ RotatingDBHIVP.F

Log: Make code compile when CCTK_REAL is real*4

File Changes:

Directory: /trunk/src/ ======================

File [modified]: RotatingDBHIVP.F Delta lines: +3 -3 =================================================================== --- trunk/src/RotatingDBHIVP.F 2013-05-27 22:33:03 UTC (rev 57) +++ trunk/src/RotatingDBHIVP.F 2013-10-30 15:21:02 UTC (rev 58) @@ -652,10 +652,10 @@ 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