GRHydro: replace Fortan pointers with Cray pointers

Intel 12 seems to like these better. Otherwise GRHydro_Con2PrimM.F90
takes very long to compile.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@580 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45

1 files changed, 16 insertions, 18 deletions

diff --git a/src/Utils.F90 b/src/Utils.F90
index d6a4c45..647fd7a 100644
--- a/src/Utils.F90
+++ b/src/Utils.F90
@@ -30,7 +30,9 @@
 subroutine GRHydro_Debug(CCTK_ARGUMENTS)
 
   implicit none
+
   DECLARE_CCTK_ARGUMENTS
+
   integer i,j,k
   integer nx, ny, nz
 
@@ -75,34 +77,30 @@ subroutine GRHydro_SqrtSpatialDeterminant(CCTK_ARGUMENTS)
 
   implicit none
 
-  ! save memory when MP is not used
-  ! TARGET as to be before DECLARE_CCTK_ARGUMENTS for gcc 4.1
-  TARGET gaa, gab, gac, gbb, gbc, gcc
-  TARGET gxx, gxy, gxz, gyy, gyz, gzz
-
   DECLARE_CCTK_ARGUMENTS
   integer i,j,k
   integer nx, ny, nz
 
   ! save memory when MP is not used
   CCTK_INT :: GRHydro_UseGeneralCoordinates
-  CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33
+  CCTK_REAL, DIMENSION(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)) :: g11, g12, g13, g22, g23, g33
+  pointer (pg11,g11), (pg12,g12), (pg13,g13), (pg22,g22), (pg23,g23), (pg33,g33)
 
   ! save memory when MP is not used
   if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then
-    g11 => gaa
-    g12 => gab
-    g13 => gac
-    g22 => gbb
-    g23 => gbc
-    g33 => gcc
+    pg11 = loc(gaa)
+    pg12 = loc(gab)
+    pg13 = loc(gac)
+    pg22 = loc(gbb)
+    pg23 = loc(gbc)
+    pg33 = loc(gcc)
   else
-    g11 => gxx
-    g12 => gxy
-    g13 => gxz
-    g22 => gyy
-    g23 => gyz
-    g33 => gzz
+    pg11 = loc(gxx)
+    pg12 = loc(gxy)
+    pg13 = loc(gxz)
+    pg22 = loc(gyy)
+    pg23 = loc(gyz)
+    pg33 = loc(gzz)
   end if
 
   nx = cctk_lsh(1)