/*@@
   @file    InitSymBound.F
   @date    May 13 1999
   @author  Gabrielle Allen
   @desc
            Sets the symmetries for the Constraint grid functions
   @enddesc
 @@*/

#include "cctk.h"
#include "cctk_Arguments.h"

 /*@@
   @routine    InitSymBound
   @date       May 13 1999
   @author     Gabrielle Allen
   @desc 
               Sets the symmetries for the Constraint grid functions
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/

      subroutine ADMConstraint_InitSymBound(CCTK_ARGUMENTS)

      implicit none
      
      DECLARE_CCTK_ARGUMENTS 
      
      INTEGER, PARAMETER :: one = 1
      INTEGER, DIMENSION(3) :: sym
      INTEGER :: ierr

c     GROUP: constraints
      sym(1) = one
      sym(2) = one
      sym(3) = one
      call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::ham')
      sym(1) = -one
      sym(2) = one
      sym(3) = one
      call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momx')
      sym(1) = one
      sym(2) = -one
      sym(3) = one
      call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momy')
      sym(1) = one
      sym(2) = one
      sym(3) = -one
      call SetCartSymVN(ierr, cctkGH, sym, 'admconstraints::momz')

      return

      end subroutine ADMConstraint_InitSymbound