/*@@ @file InitSymBound.F @date @author Gabrielle Allen @desc Sets the symmetries for Wave Toy @enddesc @@*/ #include "cctk.h" #include "cctk_arguments.h" /*@@ @routine WaveToyF90_InitSymBound @date @author Gabrielle Allen @desc Sets the symmetries for Wave Toy @enddesc @calls @calledby @history @endhistory @@*/ subroutine WaveToyF90_InitSymBound(CCTK_FARGUMENTS) implicit none DECLARE_CCTK_FARGUMENTS INTEGER, DIMENSION(3) :: sym = 1 call SetCartSymmetry(cctkGH, sym, 'wavetoy::phi') return end subroutine WaveToyF90_InitSymbound