[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 536)

[schnetter at cct.lsu.edu]

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