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