User: eschnett Date: 2013/06/13 02:00 PM

Modified: /trunk/src/ GRHydro_Con2Prim.F90, GRHydro_EvolutionMask.F90

Log: 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.

File Changes:

Directory: /trunk/src/ ======================

File [modified]: GRHydro_Con2Prim.F90 Delta lines: +0 -1 =================================================================== --- trunk/src/GRHydro_Con2Prim.F90 2013-05-29 16:35:30 UTC (rev 535) +++ trunk/src/GRHydro_Con2Prim.F90 2013-06-13 19:00:01 UTC (rev 536) @@ -2296,7 +2296,6 @@

! 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

File [modified]: GRHydro_EvolutionMask.F90 Delta lines: +2 -1 =================================================================== --- trunk/src/GRHydro_EvolutionMask.F90 2013-05-29 16:35:30 UTC (rev 535) +++ trunk/src/GRHydro_EvolutionMask.F90 2013-06-13 19:00:01 UTC (rev 536) @@ -76,7 +76,8 @@ 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