diff options
author | eschnett <eschnett@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-06-13 19:00:01 +0000 |
---|---|---|
committer | eschnett <eschnett@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2013-06-13 19:00:01 +0000 |
commit | 06a4ddd65ade557c1b5a3d9e2532290660280431 (patch) | |
tree | eda2289dcf039466948e985e81d7e0f22e80d64c | |
parent | 723245f5d48398529a99b73b42b4a9928df3da23 (diff) |
Do not declare Fortran pointers explicitly
Some compilers do not accept Fortran POINTER declarations if the
pointer variable has already been declared to be a particular integer
type. Instead, declare them (only) via a POINTER statement.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@536 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
-rw-r--r-- | src/GRHydro_Con2Prim.F90 | 1 | ||||
-rw-r--r-- | src/GRHydro_EvolutionMask.F90 | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90 index 000ec7f..3ff1247 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -2296,7 +2296,6 @@ subroutine check_GRHydro_C2P_failed(CCTK_ARGUMENTS) ! we skip points where evolution_mask vanishes CCTK_REAL, DIMENSION(cctk_ash1,cctk_ash2,cctk_ash3) :: evolution_mask - CCTK_POINTER_TO_CONST :: evolution_mask_ptr pointer (evolution_mask_ptr, evolution_mask) CCTK_INT :: check_evolution_mask diff --git a/src/GRHydro_EvolutionMask.F90 b/src/GRHydro_EvolutionMask.F90 index d23ff08..da14442 100644 --- a/src/GRHydro_EvolutionMask.F90 +++ b/src/GRHydro_EvolutionMask.F90 @@ -76,7 +76,8 @@ CONTAINS DECLARE_CCTK_FUNCTIONS CCTK_POINTER_TO_CONST :: cctkGH - CCTK_POINTER :: evolution_mask + CCTK_REAL :: dummy + pointer (evolution_mask, dummy) CCTK_INT :: evolution_mask_valid integer, save :: evolution_mask_idx = -1 |