diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-04-12 21:01:53 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-04-12 21:01:53 +0000 |
| commit | 1cbf57d3272cc915dbb4f6f1dbabe6c5e86d8195 (patch) | |
| tree | 2d47adc6e7acdad5067bbd6252f7cb2dd0e44098 | |
| parent | dc52bec178cb054fef8a62ab744ed58f166f0ffa (diff) | |
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
| -rw-r--r-- | src/EHFinder_SetSym.F90 | 6 |
1 files changed, 0 insertions, 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' ) |