aboutsummaryrefslogtreecommitdiff
path: root/src/InitSymBound.F90
diff options
context:
space:
mode:
Diffstat (limited to 'src/InitSymBound.F90')
-rw-r--r--src/InitSymBound.F9039
1 files changed, 39 insertions, 0 deletions
diff --git a/src/InitSymBound.F90 b/src/InitSymBound.F90
index e69de29..8822a73 100644
--- a/src/InitSymBound.F90
+++ b/src/InitSymBound.F90
@@ -0,0 +1,39 @@
+ /*@@
+ @file InitSymBound.F90
+ @date
+ @author Gabrielle Allen
+ @desc
+ Sets the symmetries across the coordinate axes
+ @enddesc
+ @@*/
+
+#include "cctk.h"
+#include "cctk_Arguments.h"
+
+ /*@@
+ @routine WaveToyFreeF90_InitSymBound
+ @date
+ @author Gabrielle Allen
+ @desc
+ Sets the symmetries for Wave Toy
+ @enddesc
+ @calls
+ @calledby
+ @history
+
+ @endhistory
+
+@@*/
+
+subroutine WaveToyFreeF90_InitSymBound(CCTK_ARGUMENTS)
+
+ implicit none
+
+ DECLARE_CCTK_ARGUMENTS
+
+ INTEGER :: ierr
+ INTEGER, DIMENSION(3) :: sym = 1
+
+ call SetCartSymVN(ierr, cctkGH, sym, 'wavetoy::phi')
+
+end subroutine WaveToyFreeF90_InitSymbound