From 06a4ddd65ade557c1b5a3d9e2532290660280431 Mon Sep 17 00:00:00 2001 From: eschnett Date: Thu, 13 Jun 2013 19:00:01 +0000 Subject: 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 --- src/GRHydro_Con2Prim.F90 | 1 - 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 -- cgit v1.2.3