[Commits] [svn:einsteintoolkit] DistortedBHIVP/trunk/src/ (Rev. 57)

[schnetter at cct.lsu.edu]

User: eschnett
Date: 2012/05/01 10:57 AM

Modified:
 /trunk/src/
  DistortedBHIVP.F

Log:
 Use type-generic intrinsics

File Changes:

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

File [modified]: DistortedBHIVP.F
Delta lines: +3 -3
===================================================================
--- trunk/src/DistortedBHIVP.F	2011-10-25 18:45:13 UTC (rev 56)
+++ trunk/src/DistortedBHIVP.F	2012-05-01 15:57:23 UTC (rev 57)
@@ -577,10 +577,10 @@
 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