diff options
author | goodale <goodale@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 1999-11-24 21:22:15 +0000 |
---|---|---|
committer | goodale <goodale@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 1999-11-24 21:22:15 +0000 |
commit | 65b1300b73dc032b4d0f0aafe4aa733c53f21910 (patch) | |
tree | 0b2b85d4a76f5fd0327e115f1c9d58fa195f77e1 /src/InitSymBound.F90 | |
parent | 8fa319775b09834f9fc093badc450aa7f6e9e904 (diff) |
This commit was generated by cvs2svn to compensate for changes in r2, which
included commits to RCS files with non-trunk default branches.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@3 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
Diffstat (limited to 'src/InitSymBound.F90')
-rw-r--r-- | src/InitSymBound.F90 | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/src/InitSymBound.F90 b/src/InitSymBound.F90 new file mode 100644 index 0000000..f8f0171 --- /dev/null +++ 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_FARGUMENTS) + + implicit none + + DECLARE_CCTK_FARGUMENTS + + INTEGER, DIMENSION(3) :: sym = 1 + + call SetCartSymmetry(cctkGH, sym, 'wavetoy::phi') + call SetCartSymmetry(cctkGH, sym, 'wavetoyfreef90::phi_tmp') + +end subroutine WaveToyFreeF90_InitSymbound |