User: rhaas Date: 2011/09/25 05:38 PM
Modified: /trunk/src/ GRHydro_Con2Prim.F90, GRHydro_ENOReconstruct_drv.F90, GRHydro_EoSChangeGamma.F90, GRHydro_HLLE.F90, GRHydro_PPMMReconstruct_drv.F90, GRHydro_PPMReconstruct_drv.F90, GRHydro_Prim2Con.F90, GRHydro_Source.F90, GRHydro_TVDReconstruct_drv.F90, GRHydro_UpdateMask.F90
Log: move TARGET statements in front of CCTK_DECLARE_ARGUMENTS
this is need for gfortran 4.1 which otherwise assumes that the arrays have already been used (in the kind(gaa) initializations inside of CCTK_DECLARE_ARGUMENTS).
File Changes:
Directory: /trunk/src/ ======================
File [modified]: GRHydro_Con2Prim.F90 Delta lines: +31 -13 =================================================================== --- trunk/src/GRHydro_Con2Prim.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_Con2Prim.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -46,6 +46,12 @@
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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -63,9 +69,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
@@ -1022,6 +1025,11 @@
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 DECLARE_CCTK_PARAMETERS
@@ -1040,8 +1048,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33
! begin EOS Omni vars @@ -1260,6 +1266,12 @@
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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -1274,9 +1286,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
@@ -1649,6 +1658,11 @@
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 DECLARE_CCTK_PARAMETERS
@@ -1663,8 +1677,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33
if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then @@ -1768,6 +1780,11 @@
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 DECLARE_CCTK_PARAMETERS
@@ -1779,8 +1796,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33
if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then @@ -1961,6 +1976,10 @@
implicit none
+ ! save memory when MP is not used + ! TARGET as to be before DECLARE_CCTK_ARGUMENTS for gcc 4.1 + TARGET lvel, vel + DECLARE_CCTK_PARAMETERS DECLARE_CCTK_ARGUMENTS
@@ -1969,7 +1988,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then
File [modified]: GRHydro_ENOReconstruct_drv.F90 Delta lines: +5 -2 =================================================================== --- trunk/src/GRHydro_ENOReconstruct_drv.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_ENOReconstruct_drv.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -47,6 +47,11 @@
implicit none
+ ! save memory when MP is not used + ! TARGET as to be before DECLARE_CCTK_ARGUMENTS for gcc 4.1 + TARGET vel, lvel + TARGET Bvec, lBvec + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS @@ -66,8 +71,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET vel, lvel - TARGET Bvec, lBvec CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup, Bprim
if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then
File [modified]: GRHydro_EoSChangeGamma.F90 Delta lines: +12 -6 =================================================================== --- trunk/src/GRHydro_EoSChangeGamma.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_EoSChangeGamma.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -43,6 +43,12 @@
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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -53,9 +59,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
@@ -228,6 +231,12 @@
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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -242,9 +251,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
File [modified]: GRHydro_HLLE.F90 Delta lines: +14 -8 =================================================================== --- trunk/src/GRHydro_HLLE.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_HLLE.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -36,6 +36,13 @@
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 + TARGET betaa, betab, betac + TARGET betax, betay, betaz + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -52,10 +59,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET betaa, betab, betac - TARGET betax, betay, betaz CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:), POINTER :: beta1, beta2, beta3
@@ -445,6 +448,13 @@
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 + TARGET betaa, betab, betac + TARGET betax, betay, betaz + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -460,10 +470,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET betaa, betab, betac - TARGET betax, betay, betaz CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:), POINTER :: beta1, beta2, beta3
File [modified]: GRHydro_PPMMReconstruct_drv.F90 Delta lines: +9 -6 =================================================================== --- trunk/src/GRHydro_PPMMReconstruct_drv.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_PPMMReconstruct_drv.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -47,6 +47,15 @@
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 + TARGET betaa, betab, betac + TARGET betax, betay, betaz + TARGET lvel, vel + TARGET lBvec, Bvec + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS @@ -66,12 +75,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET betaa, betab, betac - TARGET betax, betay, betaz - TARGET lvel, vel - TARGET lBvec, Bvec CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:), POINTER :: beta1, beta2, beta3 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup, Bprim
File [modified]: GRHydro_PPMReconstruct_drv.F90 Delta lines: +8 -5 =================================================================== --- trunk/src/GRHydro_PPMReconstruct_drv.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_PPMReconstruct_drv.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -41,6 +41,14 @@
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 + TARGET betaa, betab, betac + TARGET betax, betay, betaz + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS @@ -57,11 +65,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET betaa, betab, betac - TARGET betax, betay, betaz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:), POINTER :: beta1, beta2, beta3 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
File [modified]: GRHydro_Prim2Con.F90 Delta lines: +29 -14 =================================================================== --- trunk/src/GRHydro_Prim2Con.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_Prim2Con.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -40,6 +40,12 @@
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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -50,9 +56,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
@@ -366,6 +369,12 @@
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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -375,9 +384,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
@@ -477,6 +483,12 @@
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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -486,9 +498,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
@@ -653,6 +662,12 @@
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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -661,9 +676,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
@@ -737,6 +749,11 @@
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 DECLARE_CCTK_PARAMETERS
@@ -746,8 +763,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33
if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then
File [modified]: GRHydro_Source.F90 Delta lines: +10 -7 =================================================================== --- trunk/src/GRHydro_Source.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_Source.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -49,6 +49,16 @@
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 + TARGET kaa, kab, kac, kbb, kbc, kcc + TARGET kxx, kxy, kxz, kyy, kyz, kzz + TARGET betaa, betab, betac + TARGET betax, betay, betaz + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -78,13 +88,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET kaa, kab, kac, kbb, kbc, kcc - TARGET kxx, kxy, kxz, kyy, kyz, kzz - TARGET betaa, betab, betac - TARGET betax, betay, betaz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:), POINTER :: k11, k12, k13, k22, k23, k33 CCTK_REAL, DIMENSION(:,:,:), POINTER :: beta1, beta2, beta3
File [modified]: GRHydro_TVDReconstruct_drv.F90 Delta lines: +5 -2 =================================================================== --- trunk/src/GRHydro_TVDReconstruct_drv.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_TVDReconstruct_drv.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -48,6 +48,11 @@
implicit none
+ ! save memory when MP is not used + ! TARGET as to be before DECLARE_CCTK_ARGUMENTS for gcc 4.1 + TARGET vel, lvel + TARGET Bvec, lBvec + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS @@ -64,8 +69,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET vel, lvel - TARGET Bvec, lBvec CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup, Bprim
if (GRHydro_UseGeneralCoordinates(cctkGH).ne.0) then
File [modified]: GRHydro_UpdateMask.F90 Delta lines: +18 -12 =================================================================== --- trunk/src/GRHydro_UpdateMask.F90 2011-09-19 23:16:38 UTC (rev 277) +++ trunk/src/GRHydro_UpdateMask.F90 2011-09-25 22:38:36 UTC (rev 278) @@ -213,6 +213,12 @@
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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -223,9 +229,6 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup
@@ -322,6 +325,18 @@
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 + TARGET lvel, vel + TARGET gaa_p, gab_p, gac_p, gbb_p, gbc_p, gcc_p + TARGET gxx_p, gxy_p, gxz_p, gyy_p, gyz_p, gzz_p + TARGET lvel_p, vel_p + TARGET gaa_p_p, gab_p_p, gac_p_p, gbb_p_p, gbc_p_p, gcc_p_p + TARGET gxx_p_p, gxy_p_p, gxz_p_p, gyy_p_p, gyz_p_p, gzz_p_p + TARGET lvel_p_p, vel_p_p + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS
@@ -335,21 +350,12 @@
! save memory when MP is not used CCTK_INT :: GRHydro_UseGeneralCoordinates - TARGET gaa, gab, gac, gbb, gbc, gcc - TARGET gxx, gxy, gxz, gyy, gyz, gzz - TARGET lvel, vel CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11, g12, g13, g22, g23, g33 CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup - TARGET gaa_p, gab_p, gac_p, gbb_p, gbc_p, gcc_p - TARGET gxx_p, gxy_p, gxz_p, gyy_p, gyz_p, gzz_p - TARGET lvel_p, vel_p CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11_p => Null(), g12_p => Null(), & g13_p => Null(), g22_p => Null(), & g23_p => Null(), g33_p => Null() CCTK_REAL, DIMENSION(:,:,:,:), POINTER :: vup_p => Null() - TARGET gaa_p_p, gab_p_p, gac_p_p, gbb_p_p, gbc_p_p, gcc_p_p - TARGET gxx_p_p, gxy_p_p, gxz_p_p, gyy_p_p, gyz_p_p, gzz_p_p - TARGET lvel_p_p, vel_p_p CCTK_REAL, DIMENSION(:,:,:), POINTER :: g11_p_p => Null(), g12_p_p => Null(), & g13_p_p => Null(), g22_p_p => Null(), & g23_p_p => Null(), g33_p_p => Null()