From 812c1f169ce7678111dd0c21c878f38ced014b67 Mon Sep 17 00:00:00 2001
From: allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc>
Date: Mon, 27 May 2002 18:26:50 +0000
Subject: Use mask without using excision calls, this may need some more
 tweaking depending on how excision labels points in the mask, but this will
 be sorted out in the near future.

Converted to F77, then realised that this might be a bad idea since people
might be including F90 in the CalcTmunu stuff, so left the files labeled
as F90 for now.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@69 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
---
 src/InitSymBound.F | 25 +++++++++++++++++++------
 1 file changed, 19 insertions(+), 6 deletions(-)

(limited to 'src/InitSymBound.F')

diff --git a/src/InitSymBound.F b/src/InitSymBound.F
index fdefad6..00cfefa 100644
--- a/src/InitSymBound.F
+++ b/src/InitSymBound.F
@@ -5,6 +5,7 @@
    @desc
             Sets the symmetries for the Constraint grid functions
    @enddesc
+   @version $Header$
  @@*/
 
 #include "cctk.h"
@@ -31,29 +32,41 @@
       
       DECLARE_CCTK_ARGUMENTS 
       
-      INTEGER, PARAMETER :: one = 1
-      INTEGER, DIMENSION(3) :: sym
-      INTEGER :: ierr
+      INTEGER one 
+      PARAMETER (one=1)
+
+      INTEGER sym(3)
+      INTEGER ierr
 
-c     GROUP: constraints
       sym(1) = one
       sym(2) = one
       sym(3) = one
       call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::ham')
+      if (ierr .lt. 0) then
+        call CCTK_WARN(0,"Error setting symmetries for ADMConstraints::ham")
+      end if
       sym(1) = -one
       sym(2) = one
       sym(3) = one
       call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momx')
+      if (ierr .lt. 0) then
+        call CCTK_WARN(0,"Error setting symmetries for ADMConstraints::momx")
+      end if
       sym(1) = one
       sym(2) = -one
       sym(3) = one
       call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momy')
+      if (ierr .lt. 0) then
+        call CCTK_WARN(0,"Error setting symmetries for ADMConstraints::momy")
+      end if
       sym(1) = one
       sym(2) = one
       sym(3) = -one
       call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momz')
+      if (ierr .lt. 0) then
+        call CCTK_WARN(0,"Error setting symmetries for ADMConstraints::momz")
+      end if
 
       return
-
-      end subroutine ADMConstraint_InitSymbound
+      end 
 
-- 
cgit v1.2.3