[Commits] [svn:einsteintoolkit] RotatingDBHIVP/trunk/src/ (Rev. 58)

[schnetter at cct.lsu.edu]

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