diff options
Diffstat (limited to 'src/RegisterSymmetries.cc')
-rw-r--r-- | src/RegisterSymmetries.cc | 80 |
1 files changed, 80 insertions, 0 deletions
diff --git a/src/RegisterSymmetries.cc b/src/RegisterSymmetries.cc index 9471e31..bdf23bb 100644 --- a/src/RegisterSymmetries.cc +++ b/src/RegisterSymmetries.cc @@ -16,6 +16,86 @@ extern "C" void WeylScal4_RegisterSymmetries(CCTK_ARGUMENTS) /* Register symmetries of grid functions */ + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::curvIi"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::curvIr"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::curvJ1"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::curvJ2"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::curvJ3"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::curvJ4"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::curvJi"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::curvJr"); + + sym[0] = -1; + sym[1] = -1; + sym[2] = -1; + SetCartSymVN(cctkGH, sym, "WeylScal4::Psi0i"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::Psi0r"); + + sym[0] = -1; + sym[1] = -1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::Psi1i"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = -1; + SetCartSymVN(cctkGH, sym, "WeylScal4::Psi1r"); + + sym[0] = -1; + sym[1] = -1; + sym[2] = -1; + SetCartSymVN(cctkGH, sym, "WeylScal4::Psi2i"); + + sym[0] = 1; + sym[1] = 1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::Psi2r"); + + sym[0] = -1; + sym[1] = -1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::Psi3i"); + + sym[0] = -1; + sym[1] = -1; + sym[2] = 1; + SetCartSymVN(cctkGH, sym, "WeylScal4::Psi3r"); + sym[0] = -1; sym[1] = -1; sym[2] = -1; |