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 /src/GRHydro_EvolutionMask.F90 | |
| 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
Diffstat (limited to 'src/GRHydro_EvolutionMask.F90')
| -rw-r--r-- | src/GRHydro_EvolutionMask.F90 | 3 |
1 files changed, 2 insertions, 1 deletions
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 |