From e044d40a87cf65bc8b579e9c6d26d776d8bed6cf Mon Sep 17 00:00:00 2001
From: eschnett <eschnett@971fb155-194f-0410-9daf-e2eca44e59f5>
Date: Tue, 1 May 2012 15:57:23 +0000
Subject: Use type-generic intrinsics

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@57 971fb155-194f-0410-9daf-e2eca44e59f5
---
 src/DistortedBHIVP.F | 6 +++---
 1 file 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
-- 
cgit v1.2.3