diff options
author | Barry Wardell <barry.wardell@gmail.com> | 2012-02-09 09:49:35 +0000 |
---|---|---|
committer | Barry Wardell <barry.wardell@gmail.com> | 2012-02-09 10:14:42 +0000 |
commit | 3f0dc8ca3ddee5c78c6922abc9707d464a2d0506 (patch) | |
tree | 008d2b88e137c272ff34c7a1363a8e3c9196dbe8 /Examples/EMScript/src/RegisterSymmetries.cc | |
parent | 4b9da3393b67b7b8f75396c6d8e7abef86ee7b27 (diff) | |
parent | 90ef11c6391568bf00fc7258f7f7060a81c0dfe8 (diff) |
Merge remote-tracking branch 'origin/piraha'
Conflicts:
Tools/CodeGen/Kranc.m
Diffstat (limited to 'Examples/EMScript/src/RegisterSymmetries.cc')
-rw-r--r-- | Examples/EMScript/src/RegisterSymmetries.cc | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/Examples/EMScript/src/RegisterSymmetries.cc b/Examples/EMScript/src/RegisterSymmetries.cc new file mode 100644 index 0000000..29654ac --- /dev/null +++ b/Examples/EMScript/src/RegisterSymmetries.cc @@ -0,0 +1,64 @@ +/* File produced by Kranc */ + +#include "cctk.h" +#include "cctk_Arguments.h" +#include "cctk_Parameters.h" +#include "Symmetry.h" + +extern "C" void EMScript_RegisterSymmetries(CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; + + + /* array holding symmetry definitions */ + CCTK_INT sym[3]; + + + /* Register symmetries of grid functions */ + sym[0] = -1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "My_New_Implementation::B1"); + + sym[0] = 1; + sym[1] = -1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "My_New_Implementation::B2"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = -1; + SetCartSymVN(cctkGH, sym, "My_New_Implementation::B3"); + + sym[0] = -1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "My_New_Implementation::El1"); + + sym[0] = 1; + sym[1] = -1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "My_New_Implementation::El2"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = -1; + SetCartSymVN(cctkGH, sym, "My_New_Implementation::El3"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "My_New_Implementation::CB"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "My_New_Implementation::CEl"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "My_New_Implementation::rho"); + +} |