From 1cbf57d3272cc915dbb4f6f1dbabe6c5e86d8195 Mon Sep 17 00:00:00 2001 From: diener Date: Mon, 12 Apr 2004 21:01:53 +0000 Subject: Removed declarations of ierr, since they were already done in a module. Thanks to Erik for spotting this. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@171 2a26948c-0e4f-0410-aee8-f1d3e353619c --- src/EHFinder_SetSym.F90 | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/EHFinder_SetSym.F90 b/src/EHFinder_SetSym.F90 index f130a5e..45fe9f5 100644 --- a/src/EHFinder_SetSym.F90 +++ b/src/EHFinder_SetSym.F90 @@ -52,8 +52,6 @@ subroutine EHFinder_ApplySymAll(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: ierr - ! Select the variable groups for the None boundary condition. When the ! physical boundary condition (a noop in this case) is applied the ! symmetry boundary conditions will be applied automatically. @@ -84,7 +82,6 @@ subroutine EHFinder_ApplySymF(CCTK_ARGUMENTS) DECLARE_CCTK_FUNCTIONS character(len=80) :: warn_message - CCTK_INT :: ierr ierr = Boundary_SelectGroupForBC ( cctkGH, CCTK_ALL_FACES, 1, -1, & 'ehfinder::f', 'None' ) @@ -106,8 +103,6 @@ subroutine EHFinder_ApplySymMask(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - CCTK_INT :: ierr - ierr = Boundary_SelectGroupForBC ( cctkGH, CCTK_ALL_FACES, 1, -1, & 'ehfinder::eh_mask', 'None' ) @@ -130,7 +125,6 @@ subroutine EHFinder_ApplySymSC(CCTK_ARGUMENTS) DECLARE_CCTK_FUNCTIONS character(len=80) :: warn_message - CCTK_INT :: ierr ierr = Boundary_SelectGroupForBC ( cctkGH, CCTK_ALL_FACES, 1, -1, & 'ehfinder::surface_index', 'None' ) -- cgit v1.2.3