/*@@
   @file    SetSym.F
   @date    March 1999
   @author  Gabrielle Allen
   @desc
            Sets the symmetries for the ADM grid functions
   @enddesc
 @@*/


#define DEBUG_BOUND

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


 /*@@
   @routine    ADMSetSym
   @date       March 1999
   @author     Gabrielle Allen
   @desc 
               Sets the symmetries for the ADM grid functions
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/

      subroutine AdjustedADM_SetSym(CCTK_ARGUMENTS)

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

c--------------------------------------------->>>>>>>>>
c  Hisaaki Shinkai added 2002-May
c     GROUP: adjADM_constraints
      sym(1) = one
      sym(2) = one
      sym(3) = one
      call SetCartSymVN(ierr,cctkGH, sym,'adm::aham')
      call SetCartSymVN(ierr,cctkGH, sym,'adm::amomx')
      call SetCartSymVN(ierr,cctkGH, sym,'adm::amomy')
      call SetCartSymVN(ierr,cctkGH, sym,'adm::amomz')
c---------------------------------------------<<<<<<<<<

      return

      end subroutine AdjustedADM_SetSym