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_ENOReconstruct_drv.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_ENOReconstruct_drv.F90')
| -rw-r--r-- | src/GRHydro_ENOReconstruct_drv.F90 | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/GRHydro_ENOReconstruct_drv.F90 b/src/GRHydro_ENOReconstruct_drv.F90 index a46de80..58592f1 100644 --- a/src/GRHydro_ENOReconstruct_drv.F90 +++ b/src/GRHydro_ENOReconstruct_drv.F90 @@ -47,6 +47,11 @@ subroutine GRHydro_ENOReconstruct_drv(CCTK_ARGUMENTS) 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 @@ subroutine GRHydro_ENOReconstruct_drv(CCTK_ARGUMENTS) ! 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 |