diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-09-25 22:38:36 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-09-25 22:38:36 +0000 |
commit | 4e6bb392750ffe974477650683c130e9de65bd8f (patch) | |
tree | c466669476f790eac6fd5498e1c1077f721dd56f /src/GRHydro_UpdateMask.F90 | |
parent | fb0dec57eebe3aa22d05126174e3fd0bd564e429 (diff) |
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).
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@278 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_UpdateMask.F90')
-rw-r--r-- | src/GRHydro_UpdateMask.F90 | 30 |
1 files changed, 18 insertions, 12 deletions
diff --git a/src/GRHydro_UpdateMask.F90 b/src/GRHydro_UpdateMask.F90 index c8a829e..734d84c 100644 --- a/src/GRHydro_UpdateMask.F90 +++ b/src/GRHydro_UpdateMask.F90 @@ -213,6 +213,12 @@ subroutine GRHydro_AtmosphereReset(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 + TARGET lvel, vel + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS @@ -223,9 +229,6 @@ subroutine GRHydro_AtmosphereReset(CCTK_ARGUMENTS) ! 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 @@ subroutine GRHydro_InitialAtmosphereReset(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 + 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 @@ subroutine GRHydro_InitialAtmosphereReset(CCTK_ARGUMENTS) ! 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() |