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

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2013/05/29 11:35 AM

Modified:
 /trunk/src/
  GRHydro_Boundaries.F90

Log:
 GRHydro: avoid implict save for ierr in boundary registration
 
 From: Roland Haas <rhaas at tapir.caltech.edu>

File Changes:

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

File [modified]: GRHydro_Boundaries.F90
Delta lines: +11 -5
===================================================================
--- trunk/src/GRHydro_Boundaries.F90	2013-05-29 16:35:18 UTC (rev 533)
+++ trunk/src/GRHydro_Boundaries.F90	2013-05-29 16:35:22 UTC (rev 534)
@@ -40,9 +40,10 @@
   DECLARE_CCTK_FUNCTIONS
 
   integer, dimension(3) :: sym
-  integer :: ierr = 0
+  integer :: ierr
   CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates
 
+  ierr = 0
   sym(1) = 1
   sym(2) = 1
   sym(3) = 1
@@ -173,12 +174,14 @@
   DECLARE_CCTK_FUNCTIONS
   
   integer, dimension(3) :: sw
-  integer :: ierr = 0
+  integer :: ierr
   CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates
 
   CCTK_INT, parameter :: faces=CCTK_ALL_FACES
   CCTK_INT, parameter :: ione=1
   
+  ierr = 0 
+
   sw = GRHydro_stencil
 
   general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH)
@@ -375,12 +378,13 @@
   DECLARE_CCTK_FUNCTIONS
   
   integer, dimension(3) :: sw
-  integer :: ierr = 0
+  integer :: ierr
   CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates
 
   CCTK_INT, parameter :: faces=CCTK_ALL_FACES
   CCTK_INT, parameter :: ione=1
   
+  ierr = 0
   sw = GRHydro_stencil
 
   general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH)
@@ -513,12 +517,13 @@
   DECLARE_CCTK_FUNCTIONS
   
   integer, dimension(3) :: sw
-  integer :: ierr = 0
+  integer :: ierr
   CCTK_INT :: GRHydro_UseGeneralCoordinates, general_coordinates
 
   CCTK_INT, parameter :: faces=CCTK_ALL_FACES
   CCTK_INT, parameter :: ione=1
   
+  ierr = 0
   sw = GRHydro_stencil
 
   general_coordinates = GRHydro_UseGeneralCoordinates(cctkGH)
@@ -648,11 +653,12 @@
   DECLARE_CCTK_FUNCTIONS
   
   integer, dimension(3) :: sw
-  integer :: ierr = 0
+  integer :: ierr
 
   CCTK_INT, parameter :: faces=CCTK_ALL_FACES
   CCTK_INT, parameter :: ione=1
   
+  ierr = 0
   sw = GRHydro_stencil