[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 278)
roland.haas at physics.gatech.edu
roland.haas at physics.gatech.edu
Sun Sep 25 17:38:37 CDT 2011
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()
More information about the Commits
mailing list