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

      subroutine IVPSetSym(CCTK_FARGUMENTS)


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

      sym(1) = one
      sym(2) = one
      sym(3) = one
      call SetCartSymVN(ierr,cctkGH, sym, 'ivp::ivp_psi')
      call SetCartSymVN(ierr,cctkGH, sym, 'ivp::ivp_del_psi')
      call SetCartSymVN(ierr,cctkGH, sym, 'ivp::ivp_psi_linear_old')
      call SetCartSymVN(ierr,cctkGH, sym, 'ivp::ivp_det')

      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_uxx')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_uyy')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_uzz')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_astarxx')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_astaryy')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_astarzz')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_bam_p5')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_bam_m7')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_bam_m3')

      sym(1) = -one
      sym(2) = -one
      sym(3) = one
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_uxy')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_astarxy')

      sym(1) = -one
      sym(2) = one
      sym(3) = -one
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_uxz')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_astarxz')

      sym(1) = one
      sym(2) = -one
      sym(3) = -one
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_uyz')
      call SetCartSymVN(ierr,cctkGH, sym,'ivp::ivp_astaryz')

      return
      end