c  Mahc_Evolve: Numerical Evolution of the General Relativistic Hydro Equations
c  Copyright (C) 2001 Mark Miller

/*@@
  @file      MahcSetSym.F
  @date      December 1999
  @author    Mark Miller
  @desc
     Set symmetry for Mahc variables.
  @enddesc
@@*/
#include "cctk.h"
#include "cctk_Parameters.h"
#include "cctk_Arguments.h"


/*@@
  @routine    MahcSetSym
  @date       December 1999
  @author     Mark Miller
  @desc
     Set symmetry for Mahc variables.
  @enddesc
  @calls
  @calledby
  @history
  @endhistory
@@*/

      subroutine MahcSetSym(CCTK_FARGUMENTS)
      implicit none
      DECLARE_CCTK_FARGUMENTS

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

c     GROUP: Mahc_evol_vars and Mahc_prim_vars
      sym(1) = one
      sym(2) = one
      sym(3) = one
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::dens')
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::tau')
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::rho')
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::eps')
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::press')
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::w_lorentz')
      sym(1) = -one
      sym(2) = one
      sym(3) = one
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::sx')
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::velx')
      sym(1) = one
      sym(2) = -one
      sym(3) = one
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::sy')
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::vely')
      sym(1) = one
      sym(2) = one
      sym(3) = -one
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::sz')
      call SetCartSymVN(ierr,cctkGH, sym, 'gen_rel_perfect_fluid::velz')



      return
      end subroutine MahcSetSym