diff options
| author | Erik Schnetter <schnetter@cct.lsu.edu> | 2009-04-27 11:15:22 -0500 |
|---|---|---|
| committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2009-04-27 11:15:22 -0500 |
| commit | 311e827317642ecf806d05ab2ec25bd307ebd65f (patch) | |
| tree | b95a3c79beebad5fec8d9489bc38c88f149e5786 | |
| parent | 2ca9b048d3710cab763737790679bcc68a3bf122 (diff) | |
Resolve merge commits
55 files changed, 4655 insertions, 3109 deletions
diff --git a/ML_ADM/configuration.ccl b/ML_ADM/configuration.ccl index 006249a..c4e15c5 100644 --- a/ML_ADM/configuration.ccl +++ b/ML_ADM/configuration.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_ADM/interface.ccl b/ML_ADM/interface.ccl index cdbd29e..49172b8 100644 --- a/ML_ADM/interface.ccl +++ b/ML_ADM/interface.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa @@ -18,9 +18,6 @@ USES INCLUDE: loopcontrol.h CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex) USES FUNCTION MoLRegisterEvolved -CCTK_INT FUNCTION MoLRegisterConstrained(CCTK_INT IN ConstrainedIndex) -USES FUNCTION MoLRegisterConstrained - SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle) USES FUNCTION Diff_coeff diff --git a/ML_ADM/param.ccl b/ML_ADM/param.ccl index b22e4ba..91ffeb8 100644 --- a/ML_ADM/param.ccl +++ b/ML_ADM/param.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa @@ -16,7 +16,6 @@ USES CCTK_INT boundary_width shares: MethodOfLines USES CCTK_INT MoL_Num_Evolved_Vars -USES CCTK_INT MoL_Num_Constrained_Vars restricted: CCTK_INT verbose "verbose" @@ -45,12 +44,6 @@ CCTK_INT ML_ADM_MaxNumEvolvedVars "Number of evolved variables used by this thor } 16 restricted: -CCTK_INT ML_ADM_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars -{ - 65:65 :: "Number of constrained variables used by this thorn" -} 65 - -restricted: CCTK_INT timelevels "Number of active timelevels" { 0:3 :: "" diff --git a/ML_ADM/schedule.ccl b/ML_ADM/schedule.ccl index 88c07e5..4f18f49 100644 --- a/ML_ADM/schedule.ccl +++ b/ML_ADM/schedule.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa @@ -80,7 +80,7 @@ schedule ML_ADM_RegisterVars in MoL_Register OPTIONS: meta } "Register Variables for MoL" -schedule ML_ADM_RegisterSymmetries at BASEGRID +schedule ML_ADM_RegisterSymmetries in SymmetryRegister { LANG: C OPTIONS: meta diff --git a/ML_ADM/src/Boundaries.c b/ML_ADM/src/Boundaries.c index de39fc6..68ddc66 100644 --- a/ML_ADM/src/Boundaries.c +++ b/ML_ADM/src/Boundaries.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -22,16 +22,16 @@ void ML_ADM_CheckBoundaries(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; return; } void ML_ADM_ApplyBoundConds(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; CCTK_INT ierr = 0; diff --git a/ML_ADM/src/ML_ADM_Minkowski.c b/ML_ADM/src/ML_ADM_Minkowski.c index 9e57386..3d64a9a 100644 --- a/ML_ADM/src/ML_ADM_Minkowski.c +++ b/ML_ADM/src/ML_ADM_Minkowski.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_ADM_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,7 +90,7 @@ void ML_ADM_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_IN #pragma omp parallel LC_LOOP3 (ML_ADM_Minkowski, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -177,8 +177,8 @@ void ML_ADM_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_IN void ML_ADM_Minkowski(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_ADM_Minkowski_Body); } diff --git a/ML_ADM/src/ML_ADM_RHS.c b/ML_ADM/src/ML_ADM_RHS.c index 854f9c7..586551f 100644 --- a/ML_ADM/src/ML_ADM_RHS.c +++ b/ML_ADM/src/ML_ADM_RHS.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,7 +90,7 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons #pragma omp parallel LC_LOOP3 (ML_ADM_RHS, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -142,64 +142,40 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons CCTK_REAL PDstandardNth3g11 = INITVALUE; CCTK_REAL PDstandardNth22g11 = INITVALUE; CCTK_REAL PDstandardNth33g11 = INITVALUE; - CCTK_REAL PDstandardNth12g11 = INITVALUE; - CCTK_REAL PDstandardNth13g11 = INITVALUE; - CCTK_REAL PDstandardNth21g11 = INITVALUE; CCTK_REAL PDstandardNth23g11 = INITVALUE; - CCTK_REAL PDstandardNth31g11 = INITVALUE; - CCTK_REAL PDstandardNth32g11 = INITVALUE; CCTK_REAL PDstandardNth1g12 = INITVALUE; CCTK_REAL PDstandardNth2g12 = INITVALUE; CCTK_REAL PDstandardNth3g12 = INITVALUE; CCTK_REAL PDstandardNth33g12 = INITVALUE; CCTK_REAL PDstandardNth12g12 = INITVALUE; CCTK_REAL PDstandardNth13g12 = INITVALUE; - CCTK_REAL PDstandardNth21g12 = INITVALUE; CCTK_REAL PDstandardNth23g12 = INITVALUE; - CCTK_REAL PDstandardNth31g12 = INITVALUE; - CCTK_REAL PDstandardNth32g12 = INITVALUE; CCTK_REAL PDstandardNth1g13 = INITVALUE; CCTK_REAL PDstandardNth2g13 = INITVALUE; CCTK_REAL PDstandardNth3g13 = INITVALUE; CCTK_REAL PDstandardNth22g13 = INITVALUE; CCTK_REAL PDstandardNth12g13 = INITVALUE; CCTK_REAL PDstandardNth13g13 = INITVALUE; - CCTK_REAL PDstandardNth21g13 = INITVALUE; CCTK_REAL PDstandardNth23g13 = INITVALUE; - CCTK_REAL PDstandardNth31g13 = INITVALUE; - CCTK_REAL PDstandardNth32g13 = INITVALUE; CCTK_REAL PDstandardNth1g22 = INITVALUE; CCTK_REAL PDstandardNth2g22 = INITVALUE; CCTK_REAL PDstandardNth3g22 = INITVALUE; CCTK_REAL PDstandardNth11g22 = INITVALUE; CCTK_REAL PDstandardNth33g22 = INITVALUE; - CCTK_REAL PDstandardNth12g22 = INITVALUE; CCTK_REAL PDstandardNth13g22 = INITVALUE; - CCTK_REAL PDstandardNth21g22 = INITVALUE; - CCTK_REAL PDstandardNth23g22 = INITVALUE; - CCTK_REAL PDstandardNth31g22 = INITVALUE; - CCTK_REAL PDstandardNth32g22 = INITVALUE; CCTK_REAL PDstandardNth1g23 = INITVALUE; CCTK_REAL PDstandardNth2g23 = INITVALUE; CCTK_REAL PDstandardNth3g23 = INITVALUE; CCTK_REAL PDstandardNth11g23 = INITVALUE; CCTK_REAL PDstandardNth12g23 = INITVALUE; CCTK_REAL PDstandardNth13g23 = INITVALUE; - CCTK_REAL PDstandardNth21g23 = INITVALUE; CCTK_REAL PDstandardNth23g23 = INITVALUE; - CCTK_REAL PDstandardNth31g23 = INITVALUE; - CCTK_REAL PDstandardNth32g23 = INITVALUE; CCTK_REAL PDstandardNth1g33 = INITVALUE; CCTK_REAL PDstandardNth2g33 = INITVALUE; CCTK_REAL PDstandardNth3g33 = INITVALUE; CCTK_REAL PDstandardNth11g33 = INITVALUE; CCTK_REAL PDstandardNth22g33 = INITVALUE; CCTK_REAL PDstandardNth12g33 = INITVALUE; - CCTK_REAL PDstandardNth13g33 = INITVALUE; - CCTK_REAL PDstandardNth21g33 = INITVALUE; - CCTK_REAL PDstandardNth23g33 = INITVALUE; - CCTK_REAL PDstandardNth31g33 = INITVALUE; - CCTK_REAL PDstandardNth32g33 = INITVALUE; CCTK_REAL PDstandardNth1K11 = INITVALUE; CCTK_REAL PDstandardNth2K11 = INITVALUE; CCTK_REAL PDstandardNth3K11 = INITVALUE; @@ -321,26 +297,144 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ - detg = 2*g12L*g13L*g23L + g33L*(g11L*g22L - SQR(g12L)) - g22L*SQR(g13L) - - g11L*SQR(g23L); + CCTK_REAL const T1000001 = SQR(g23L); - gu11 = INV(detg)*(g22L*g33L - SQR(g23L)); + CCTK_REAL const T1000003 = g13L*g23L; - gu12 = (g13L*g23L - g12L*g33L)*INV(detg); + CCTK_REAL const T1000004 = -(g12L*g33L); - gu13 = (-(g13L*g22L) + g12L*g23L)*INV(detg); + CCTK_REAL const T1000007 = SQR(g13L); - gu21 = (g13L*g23L - g12L*g33L)*INV(detg); + CCTK_REAL const T1000008 = -(g13L*g22L); - gu22 = INV(detg)*(g11L*g33L - SQR(g13L)); + CCTK_REAL const T1000009 = g12L*g23L; - gu23 = (g12L*g13L - g11L*g23L)*INV(detg); + CCTK_REAL const T1000012 = g12L*g13L; - gu31 = (-(g13L*g22L) + g12L*g23L)*INV(detg); + CCTK_REAL const T1000013 = -(g11L*g23L); - gu32 = (g12L*g13L - g11L*g23L)*INV(detg); + CCTK_REAL const T1000016 = SQR(g12L); - gu33 = INV(detg)*(g11L*g22L - SQR(g12L)); + CCTK_REAL const T1000017 = -PDstandardNth3g12; + + CCTK_REAL const T1000019 = -PDstandardNth2g13; + + CCTK_REAL const T1000021 = -PDstandardNth1g23; + + CCTK_REAL const T1000023 = -PDstandardNth11g23; + + CCTK_REAL const T1000024 = -PDstandardNth23g11; + + CCTK_REAL const T1000029 = -2*PDstandardNth12g12; + + CCTK_REAL const T1000031 = -PDstandardNth13g22; + + CCTK_REAL const T1000032 = -PDstandardNth22g13; + + CCTK_REAL const T1000034 = -2*PDstandardNth13g13; + + CCTK_REAL const T1000036 = -PDstandardNth12g33; + + CCTK_REAL const T1000037 = -PDstandardNth33g12; + + CCTK_REAL const T1000039 = -2*PDstandardNth23g23; + + g11rhsL = -2*alphaL*K11L + 2*(g11L*PDstandardNth1beta1 + + g12L*PDstandardNth1beta2 + g13L*PDstandardNth1beta3) + + beta1L*PDstandardNth1g11 + beta2L*PDstandardNth2g11 + + beta3L*PDstandardNth3g11; + + g12rhsL = -2*alphaL*K12L + g22L*PDstandardNth1beta2 + + g23L*PDstandardNth1beta3 + beta1L*PDstandardNth1g12 + + g11L*PDstandardNth2beta1 + g12L* + (PDstandardNth1beta1 + PDstandardNth2beta2) + g13L*PDstandardNth2beta3 + + beta2L*PDstandardNth2g12 + beta3L*PDstandardNth3g12; + + g13rhsL = -2*alphaL*K13L + g23L*PDstandardNth1beta2 + + g33L*PDstandardNth1beta3 + beta1L*PDstandardNth1g13 + + beta2L*PDstandardNth2g13 + g11L*PDstandardNth3beta1 + + g12L*PDstandardNth3beta2 + g13L* + (PDstandardNth1beta1 + PDstandardNth3beta3) + beta3L*PDstandardNth3g13; + + g22rhsL = -2*alphaL*K22L + beta1L*PDstandardNth1g22 + + 2*(g12L*PDstandardNth2beta1 + g22L*PDstandardNth2beta2 + + g23L*PDstandardNth2beta3) + beta2L*PDstandardNth2g22 + + beta3L*PDstandardNth3g22; + + g23rhsL = -2*alphaL*K23L + beta1L*PDstandardNth1g23 + + g13L*PDstandardNth2beta1 + g33L*PDstandardNth2beta3 + + beta2L*PDstandardNth2g23 + g12L*PDstandardNth3beta1 + + g22L*PDstandardNth3beta2 + g23L* + (PDstandardNth2beta2 + PDstandardNth3beta3) + beta3L*PDstandardNth3g23; + + g33rhsL = -2*alphaL*K33L + beta1L*PDstandardNth1g33 + + beta2L*PDstandardNth2g33 + 2* + (g13L*PDstandardNth3beta1 + g23L*PDstandardNth3beta2 + + g33L*PDstandardNth3beta3) + beta3L*PDstandardNth3g33; + + alpharhsL = 0; + + beta1rhsL = 0; + + beta2rhsL = 0; + + beta3rhsL = 0; + + CCTK_REAL const T1000005 = T1000003 + T1000004; + + CCTK_REAL const T1000010 = T1000008 + T1000009; + + CCTK_REAL const T1000014 = T1000012 + T1000013; + + CCTK_REAL const T1000018 = PDstandardNth1g23 + PDstandardNth2g13 + T1000017; + + CCTK_REAL const T1000020 = PDstandardNth1g23 + PDstandardNth3g12 + T1000019; + + CCTK_REAL const T1000022 = PDstandardNth2g13 + PDstandardNth3g12 + T1000021; + + CCTK_REAL const T1000025 = + PDstandardNth12g13 + PDstandardNth13g12 + T1000023 + T1000024; + + CCTK_REAL const T1000030 = PDstandardNth11g22 + PDstandardNth22g11 + T1000029; + + CCTK_REAL const T1000033 = + PDstandardNth12g23 + PDstandardNth23g12 + T1000031 + T1000032; + + CCTK_REAL const T1000035 = PDstandardNth11g33 + PDstandardNth33g11 + T1000034; + + CCTK_REAL const T1000038 = + PDstandardNth13g23 + PDstandardNth23g13 + T1000036 + T1000037; + + CCTK_REAL const T1000040 = PDstandardNth22g33 + PDstandardNth33g22 + T1000039; + + detg = 2*g12L*g13L*g23L + g11L*(g22L*g33L - T1000001) - g22L*T1000007 - + g33L*T1000016; + + CCTK_REAL const T1000002 = INV(detg); + + CCTK_REAL const T1000006 = T1000002*T1000005; + + CCTK_REAL const T1000011 = T1000002*T1000010; + + CCTK_REAL const T1000015 = T1000002*T1000014; + + gu11 = (g22L*g33L - T1000001)*T1000002; + + gu22 = T1000002*(g11L*g33L - T1000007); + + gu33 = T1000002*(g11L*g22L - T1000016); + + gu12 = T1000006; + + gu13 = T1000011; + + gu21 = T1000006; + + gu23 = T1000015; + + gu31 = T1000011; + + gu32 = T1000015; G111 = khalf*(gu11*PDstandardNth1g11 + 2*(gu12*PDstandardNth1g12 + gu13*PDstandardNth1g13) - @@ -354,23 +448,17 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons 2*(gu32*PDstandardNth1g12 + gu33*PDstandardNth1g13) - gu32*PDstandardNth2g11 - gu33*PDstandardNth3g11); - G112 = khalf*(gu12*PDstandardNth1g22 + gu11*PDstandardNth2g11 + - gu13*(PDstandardNth1g23 + PDstandardNth2g13 - PDstandardNth3g12)); + G112 = khalf*(gu12*PDstandardNth1g22 + gu11*PDstandardNth2g11 + gu13*T1000018); - G212 = khalf*(gu22*PDstandardNth1g22 + gu21*PDstandardNth2g11 + - gu23*(PDstandardNth1g23 + PDstandardNth2g13 - PDstandardNth3g12)); + G212 = khalf*(gu22*PDstandardNth1g22 + gu21*PDstandardNth2g11 + gu23*T1000018); - G312 = khalf*(gu32*PDstandardNth1g22 + gu31*PDstandardNth2g11 + - gu33*(PDstandardNth1g23 + PDstandardNth2g13 - PDstandardNth3g12)); + G312 = khalf*(gu32*PDstandardNth1g22 + gu31*PDstandardNth2g11 + gu33*T1000018); - G113 = khalf*(gu13*PDstandardNth1g33 + gu11*PDstandardNth3g11 + - gu12*(PDstandardNth1g23 - PDstandardNth2g13 + PDstandardNth3g12)); + G113 = khalf*(gu13*PDstandardNth1g33 + gu11*PDstandardNth3g11 + gu12*T1000020); - G213 = khalf*(gu23*PDstandardNth1g33 + gu21*PDstandardNth3g11 + - gu22*(PDstandardNth1g23 - PDstandardNth2g13 + PDstandardNth3g12)); + G213 = khalf*(gu23*PDstandardNth1g33 + gu21*PDstandardNth3g11 + gu22*T1000020); - G313 = khalf*(gu33*PDstandardNth1g33 + gu31*PDstandardNth3g11 + - gu32*(PDstandardNth1g23 - PDstandardNth2g13 + PDstandardNth3g12)); + G313 = khalf*(gu33*PDstandardNth1g33 + gu31*PDstandardNth3g11 + gu32*T1000020); G122 = khalf*(gu11*(-PDstandardNth1g22 + 2*PDstandardNth2g12) + gu12*PDstandardNth2g22 + gu13*(2*PDstandardNth2g23 - PDstandardNth3g22)); @@ -381,17 +469,11 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons G322 = khalf*(gu31*(-PDstandardNth1g22 + 2*PDstandardNth2g12) + gu32*PDstandardNth2g22 + gu33*(2*PDstandardNth2g23 - PDstandardNth3g22)); - G123 = khalf*(gu13*PDstandardNth2g33 + - gu11*(-PDstandardNth1g23 + PDstandardNth2g13 + PDstandardNth3g12) + - gu12*PDstandardNth3g22); + G123 = khalf*(gu13*PDstandardNth2g33 + gu12*PDstandardNth3g22 + gu11*T1000022); - G223 = khalf*(gu23*PDstandardNth2g33 + - gu21*(-PDstandardNth1g23 + PDstandardNth2g13 + PDstandardNth3g12) + - gu22*PDstandardNth3g22); + G223 = khalf*(gu23*PDstandardNth2g33 + gu22*PDstandardNth3g22 + gu21*T1000022); - G323 = khalf*(gu33*PDstandardNth2g33 + - gu31*(-PDstandardNth1g23 + PDstandardNth2g13 + PDstandardNth3g12) + - gu32*PDstandardNth3g22); + G323 = khalf*(gu33*PDstandardNth2g33 + gu32*PDstandardNth3g22 + gu31*T1000022); G133 = khalf*(-(gu11*PDstandardNth1g33) - gu12*PDstandardNth2g33 + 2*gu11*PDstandardNth3g13 + 2*gu12*PDstandardNth3g23 + @@ -405,16 +487,29 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons 2*gu31*PDstandardNth3g13 + 2*gu32*PDstandardNth3g23 + gu33*PDstandardNth3g33); - R11 = 2*(G112*G211 + G113*G311 + G213*G312) - G111*(G111 + G212 + G313) - - G211*(G112 + G222 + G323) - G311*(G113 + G223 + G333) + - khalf*(-(gu22*(PDstandardNth11g22 - 2*PDstandardNth12g12 + - PDstandardNth22g11)) + - gu23*(-PDstandardNth11g23 + PDstandardNth12g13 + PDstandardNth13g12 - - PDstandardNth23g11) + gu32* - (-PDstandardNth11g23 + PDstandardNth12g13 + PDstandardNth13g12 - - PDstandardNth23g11) - gu33* - (PDstandardNth11g33 - 2*PDstandardNth13g13 + PDstandardNth33g11)) + - SQR(G111) + SQR(G212) + SQR(G313); + Km11 = gu11*K11L + gu12*K12L + gu13*K13L; + + Km21 = gu21*K11L + gu22*K12L + gu23*K13L; + + Km31 = gu31*K11L + gu32*K12L + gu33*K13L; + + Km12 = gu11*K12L + gu12*K22L + gu13*K23L; + + Km22 = gu21*K12L + gu22*K22L + gu23*K23L; + + Km32 = gu31*K12L + gu32*K22L + gu33*K23L; + + Km13 = gu11*K13L + gu12*K23L + gu13*K33L; + + Km23 = gu21*K13L + gu22*K23L + gu23*K33L; + + Km33 = gu31*K13L + gu32*K23L + gu33*K33L; + + CCTK_REAL const T1000026 = G111 + G212 + G313; + + CCTK_REAL const T1000027 = G112 + G222 + G323; + + CCTK_REAL const T1000028 = G113 + G223 + G333; R12 = khalf*(2*(G122*G211 + G123*G311 + G213*G322 + G313*G323) - 2*(G112*G212 + G112*G313 + G212*G323 + G312*G333 + @@ -437,17 +532,6 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons gu23*(PDstandardNth12g33 - PDstandardNth13g23 - PDstandardNth23g13 + PDstandardNth33g12)); - R22 = -(G122*(G111 + G212 + G313)) + 2*(G122*G212 + G123*G312 + G223*G322) - - G222*(G112 + G222 + G323) - G322*(G113 + G223 + G333) + - khalf*(-(gu11*(PDstandardNth11g22 - 2*PDstandardNth12g12 + - PDstandardNth22g11)) + - gu13*(PDstandardNth12g23 - PDstandardNth13g22 - PDstandardNth22g13 + - PDstandardNth23g12) + gu31* - (PDstandardNth12g23 - PDstandardNth13g22 - PDstandardNth22g13 + - PDstandardNth23g12) - gu33* - (PDstandardNth22g33 - 2*PDstandardNth23g23 + PDstandardNth33g22)) + - SQR(G112) + SQR(G222) + SQR(G323); - R23 = khalf*(2*(G112*G113 + G122*G213 + G133*G312 + G233*G322) + gu11*(-PDstandardNth11g23 + PDstandardNth12g13 + PDstandardNth13g12 - PDstandardNth23g11) + gu21* @@ -457,76 +541,19 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons gu13*(PDstandardNth12g33 - PDstandardNth13g23 - PDstandardNth23g13 + PDstandardNth33g12) + gu23*(PDstandardNth22g33 + PDstandardNth33g22)); - R33 = -(G133*(G111 + G212 + G313)) + 2*(G123*G213 + G133*G313) + 2*G233*G323 - - G233*(G112 + G222 + G323) - G333*(G113 + G223 + G333) + - khalf*(-(gu11*(PDstandardNth11g33 - 2*PDstandardNth13g13 + - PDstandardNth33g11)) + - gu12*(-PDstandardNth12g33 + PDstandardNth13g23 + PDstandardNth23g13 - - PDstandardNth33g12) + gu21* - (-PDstandardNth12g33 + PDstandardNth13g23 + PDstandardNth23g13 - - PDstandardNth33g12) - gu22* - (PDstandardNth22g33 - 2*PDstandardNth23g23 + PDstandardNth33g22)) + - SQR(G113) + SQR(G223) + SQR(G333); - - Km11 = gu11*K11L + gu12*K12L + gu13*K13L; - - Km21 = gu21*K11L + gu22*K12L + gu23*K13L; - - Km31 = gu31*K11L + gu32*K12L + gu33*K13L; - - Km12 = gu11*K12L + gu12*K22L + gu13*K23L; - - Km22 = gu21*K12L + gu22*K22L + gu23*K23L; - - Km32 = gu31*K12L + gu32*K22L + gu33*K23L; - - Km13 = gu11*K13L + gu12*K23L + gu13*K33L; - - Km23 = gu21*K13L + gu22*K23L + gu23*K33L; - - Km33 = gu31*K13L + gu32*K23L + gu33*K33L; - trK = Km11 + Km22 + Km33; - g11rhsL = -2*alphaL*K11L + 2*(g11L*PDstandardNth1beta1 + - g12L*PDstandardNth1beta2 + g13L*PDstandardNth1beta3) + - beta1L*PDstandardNth1g11 + beta2L*PDstandardNth2g11 + - beta3L*PDstandardNth3g11; - - g12rhsL = -2*alphaL*K12L + g22L*PDstandardNth1beta2 + - g23L*PDstandardNth1beta3 + beta1L*PDstandardNth1g12 + - g11L*PDstandardNth2beta1 + g12L* - (PDstandardNth1beta1 + PDstandardNth2beta2) + g13L*PDstandardNth2beta3 + - beta2L*PDstandardNth2g12 + beta3L*PDstandardNth3g12; - - g13rhsL = -2*alphaL*K13L + g23L*PDstandardNth1beta2 + - g33L*PDstandardNth1beta3 + beta1L*PDstandardNth1g13 + - beta2L*PDstandardNth2g13 + g11L*PDstandardNth3beta1 + - g12L*PDstandardNth3beta2 + g13L* - (PDstandardNth1beta1 + PDstandardNth3beta3) + beta3L*PDstandardNth3g13; - - g22rhsL = -2*alphaL*K22L + beta1L*PDstandardNth1g22 + - 2*(g12L*PDstandardNth2beta1 + g22L*PDstandardNth2beta2 + - g23L*PDstandardNth2beta3) + beta2L*PDstandardNth2g22 + - beta3L*PDstandardNth3g22; - - g23rhsL = -2*alphaL*K23L + beta1L*PDstandardNth1g23 + - g13L*PDstandardNth2beta1 + g33L*PDstandardNth2beta3 + - beta2L*PDstandardNth2g23 + g12L*PDstandardNth3beta1 + - g22L*PDstandardNth3beta2 + g23L* - (PDstandardNth2beta2 + PDstandardNth3beta3) + beta3L*PDstandardNth3g23; + R11 = 2*(G112*G211 + G113*G311 + G213*G312) - G111*T1000026 - G211*T1000027 - + G311*T1000028 + khalf*(gu23*T1000025 + gu32*T1000025 - gu22*T1000030 - + gu33*T1000035) + SQR(G111) + SQR(G212) + SQR(G313); - g33rhsL = -2*alphaL*K33L + beta1L*PDstandardNth1g33 + - beta2L*PDstandardNth2g33 + 2* - (g13L*PDstandardNth3beta1 + g23L*PDstandardNth3beta2 + - g33L*PDstandardNth3beta3) + beta3L*PDstandardNth3g33; + R22 = 2*(G122*G212 + G123*G312 + G223*G322) - G122*T1000026 - G222*T1000027 - + G322*T1000028 + khalf*(-(gu11*T1000030) + gu13*T1000033 + gu31*T1000033 - + gu33*T1000040) + SQR(G112) + SQR(G222) + SQR(G323); - K11rhsL = -PDstandardNth11alpha + G111*PDstandardNth1alpha + - 2*(K11L*PDstandardNth1beta1 + K12L*PDstandardNth1beta2 + - K13L*PDstandardNth1beta3) + beta1L*PDstandardNth1K11 + - G211*PDstandardNth2alpha + beta2L*PDstandardNth2K11 + - G311*PDstandardNth3alpha + beta3L*PDstandardNth3K11 + - alphaL*(-2*(K11L*Km11 + K12L*Km21 + K13L*Km31) + R11 + K11L*trK); + R33 = 2*(G123*G213 + G133*G313 + G233*G323) - G133*T1000026 - G233*T1000027 - + G333*T1000028 + khalf*(-(gu11*T1000035) + gu12*T1000038 + gu21*T1000038 - + gu22*T1000040) + SQR(G113) + SQR(G223) + SQR(G333); K12rhsL = -PDstandardNth12alpha + G112*PDstandardNth1alpha + K22L*PDstandardNth1beta2 + K23L*PDstandardNth1beta3 + @@ -546,13 +573,6 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons beta3L*PDstandardNth3K13 + alphaL* (-2*(K11L*Km13 + K12L*Km23 + K13L*Km33) + R13 + K13L*trK); - K22rhsL = G122*PDstandardNth1alpha + beta1L*PDstandardNth1K22 - - PDstandardNth22alpha + G222*PDstandardNth2alpha + - 2*(K12L*PDstandardNth2beta1 + K22L*PDstandardNth2beta2 + - K23L*PDstandardNth2beta3) + beta2L*PDstandardNth2K22 + - G322*PDstandardNth3alpha + beta3L*PDstandardNth3K22 + - alphaL*(-2*(K12L*Km12 + K22L*Km22 + K23L*Km32) + R22 + K22L*trK); - K23rhsL = G123*PDstandardNth1alpha + beta1L*PDstandardNth1K23 - PDstandardNth23alpha + G223*PDstandardNth2alpha + K13L*PDstandardNth2beta1 + K33L*PDstandardNth2beta3 + @@ -562,6 +582,20 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons beta3L*PDstandardNth3K23 + alphaL* (-2*(K12L*Km13 + K22L*Km23 + K23L*Km33) + R23 + K23L*trK); + K11rhsL = -PDstandardNth11alpha + G111*PDstandardNth1alpha + + 2*(K11L*PDstandardNth1beta1 + K12L*PDstandardNth1beta2 + + K13L*PDstandardNth1beta3) + beta1L*PDstandardNth1K11 + + G211*PDstandardNth2alpha + beta2L*PDstandardNth2K11 + + G311*PDstandardNth3alpha + beta3L*PDstandardNth3K11 + + alphaL*(-2*(K11L*Km11 + K12L*Km21 + K13L*Km31) + R11 + K11L*trK); + + K22rhsL = G122*PDstandardNth1alpha + beta1L*PDstandardNth1K22 - + PDstandardNth22alpha + G222*PDstandardNth2alpha + + 2*(K12L*PDstandardNth2beta1 + K22L*PDstandardNth2beta2 + + K23L*PDstandardNth2beta3) + beta2L*PDstandardNth2K22 + + G322*PDstandardNth3alpha + beta3L*PDstandardNth3K22 + + alphaL*(-2*(K12L*Km12 + K22L*Km22 + K23L*Km32) + R22 + K22L*trK); + K33rhsL = G133*PDstandardNth1alpha + beta1L*PDstandardNth1K33 + G233*PDstandardNth2alpha + beta2L*PDstandardNth2K33 - PDstandardNth33alpha + G333*PDstandardNth3alpha + @@ -569,14 +603,6 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons K33L*PDstandardNth3beta3) + beta3L*PDstandardNth3K33 + alphaL*(-2*(K13L*Km13 + K23L*Km23 + K33L*Km33) + R33 + K33L*trK); - alpharhsL = 0; - - beta1rhsL = 0; - - beta2rhsL = 0; - - beta3rhsL = 0; - /* Copy local copies back to grid functions */ alpharhs[index] = alpharhsL; @@ -603,8 +629,8 @@ void ML_ADM_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT cons void ML_ADM_RHS(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_ADM_RHS_Body); } diff --git a/ML_ADM/src/ML_ADM_boundary.c b/ML_ADM/src/ML_ADM_boundary.c index 672168a..d2ee732 100644 --- a/ML_ADM/src/ML_ADM_boundary.c +++ b/ML_ADM/src/ML_ADM_boundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_ADM_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,7 +90,7 @@ void ML_ADM_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT #pragma omp parallel LC_LOOP3 (ML_ADM_boundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -177,8 +177,8 @@ void ML_ADM_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT void ML_ADM_boundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_ADM_boundary_Body); } diff --git a/ML_ADM/src/ML_ADM_constraints.c b/ML_ADM/src/ML_ADM_constraints.c index ffbd568..17f24d7 100644 --- a/ML_ADM/src/ML_ADM_constraints.c +++ b/ML_ADM/src/ML_ADM_constraints.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,7 +90,7 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ #pragma omp parallel LC_LOOP3 (ML_ADM_constraints, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -123,64 +123,40 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ CCTK_REAL PDstandardNth3g11 = INITVALUE; CCTK_REAL PDstandardNth22g11 = INITVALUE; CCTK_REAL PDstandardNth33g11 = INITVALUE; - CCTK_REAL PDstandardNth12g11 = INITVALUE; - CCTK_REAL PDstandardNth13g11 = INITVALUE; - CCTK_REAL PDstandardNth21g11 = INITVALUE; CCTK_REAL PDstandardNth23g11 = INITVALUE; - CCTK_REAL PDstandardNth31g11 = INITVALUE; - CCTK_REAL PDstandardNth32g11 = INITVALUE; CCTK_REAL PDstandardNth1g12 = INITVALUE; CCTK_REAL PDstandardNth2g12 = INITVALUE; CCTK_REAL PDstandardNth3g12 = INITVALUE; CCTK_REAL PDstandardNth33g12 = INITVALUE; CCTK_REAL PDstandardNth12g12 = INITVALUE; CCTK_REAL PDstandardNth13g12 = INITVALUE; - CCTK_REAL PDstandardNth21g12 = INITVALUE; CCTK_REAL PDstandardNth23g12 = INITVALUE; - CCTK_REAL PDstandardNth31g12 = INITVALUE; - CCTK_REAL PDstandardNth32g12 = INITVALUE; CCTK_REAL PDstandardNth1g13 = INITVALUE; CCTK_REAL PDstandardNth2g13 = INITVALUE; CCTK_REAL PDstandardNth3g13 = INITVALUE; CCTK_REAL PDstandardNth22g13 = INITVALUE; CCTK_REAL PDstandardNth12g13 = INITVALUE; CCTK_REAL PDstandardNth13g13 = INITVALUE; - CCTK_REAL PDstandardNth21g13 = INITVALUE; CCTK_REAL PDstandardNth23g13 = INITVALUE; - CCTK_REAL PDstandardNth31g13 = INITVALUE; - CCTK_REAL PDstandardNth32g13 = INITVALUE; CCTK_REAL PDstandardNth1g22 = INITVALUE; CCTK_REAL PDstandardNth2g22 = INITVALUE; CCTK_REAL PDstandardNth3g22 = INITVALUE; CCTK_REAL PDstandardNth11g22 = INITVALUE; CCTK_REAL PDstandardNth33g22 = INITVALUE; - CCTK_REAL PDstandardNth12g22 = INITVALUE; CCTK_REAL PDstandardNth13g22 = INITVALUE; - CCTK_REAL PDstandardNth21g22 = INITVALUE; - CCTK_REAL PDstandardNth23g22 = INITVALUE; - CCTK_REAL PDstandardNth31g22 = INITVALUE; - CCTK_REAL PDstandardNth32g22 = INITVALUE; CCTK_REAL PDstandardNth1g23 = INITVALUE; CCTK_REAL PDstandardNth2g23 = INITVALUE; CCTK_REAL PDstandardNth3g23 = INITVALUE; CCTK_REAL PDstandardNth11g23 = INITVALUE; CCTK_REAL PDstandardNth12g23 = INITVALUE; CCTK_REAL PDstandardNth13g23 = INITVALUE; - CCTK_REAL PDstandardNth21g23 = INITVALUE; CCTK_REAL PDstandardNth23g23 = INITVALUE; - CCTK_REAL PDstandardNth31g23 = INITVALUE; - CCTK_REAL PDstandardNth32g23 = INITVALUE; CCTK_REAL PDstandardNth1g33 = INITVALUE; CCTK_REAL PDstandardNth2g33 = INITVALUE; CCTK_REAL PDstandardNth3g33 = INITVALUE; CCTK_REAL PDstandardNth11g33 = INITVALUE; CCTK_REAL PDstandardNth22g33 = INITVALUE; CCTK_REAL PDstandardNth12g33 = INITVALUE; - CCTK_REAL PDstandardNth13g33 = INITVALUE; - CCTK_REAL PDstandardNth21g33 = INITVALUE; - CCTK_REAL PDstandardNth23g33 = INITVALUE; - CCTK_REAL PDstandardNth31g33 = INITVALUE; - CCTK_REAL PDstandardNth32g33 = INITVALUE; CCTK_REAL PDstandardNth2K11 = INITVALUE; CCTK_REAL PDstandardNth3K11 = INITVALUE; CCTK_REAL PDstandardNth1K12 = INITVALUE; @@ -274,26 +250,109 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ - detg = 2*g12L*g13L*g23L + g33L*(g11L*g22L - SQR(g12L)) - g22L*SQR(g13L) - - g11L*SQR(g23L); + CCTK_REAL const T1000001 = SQR(g23L); - gu11 = INV(detg)*(g22L*g33L - SQR(g23L)); + CCTK_REAL const T1000003 = g13L*g23L; - gu12 = (g13L*g23L - g12L*g33L)*INV(detg); + CCTK_REAL const T1000004 = -(g12L*g33L); - gu13 = (-(g13L*g22L) + g12L*g23L)*INV(detg); + CCTK_REAL const T1000007 = SQR(g13L); - gu21 = (g13L*g23L - g12L*g33L)*INV(detg); + CCTK_REAL const T1000008 = -(g13L*g22L); - gu22 = INV(detg)*(g11L*g33L - SQR(g13L)); + CCTK_REAL const T1000009 = g12L*g23L; - gu23 = (g12L*g13L - g11L*g23L)*INV(detg); + CCTK_REAL const T1000012 = g12L*g13L; - gu31 = (-(g13L*g22L) + g12L*g23L)*INV(detg); + CCTK_REAL const T1000013 = -(g11L*g23L); - gu32 = (g12L*g13L - g11L*g23L)*INV(detg); + CCTK_REAL const T1000016 = SQR(g12L); - gu33 = INV(detg)*(g11L*g22L - SQR(g12L)); + CCTK_REAL const T1000017 = -PDstandardNth3g12; + + CCTK_REAL const T1000019 = -PDstandardNth2g13; + + CCTK_REAL const T1000021 = -PDstandardNth1g23; + + CCTK_REAL const T1000023 = -PDstandardNth11g23; + + CCTK_REAL const T1000024 = -PDstandardNth23g11; + + CCTK_REAL const T1000032 = -2*PDstandardNth12g12; + + CCTK_REAL const T1000034 = -PDstandardNth13g22; + + CCTK_REAL const T1000035 = -PDstandardNth22g13; + + CCTK_REAL const T1000043 = -2*PDstandardNth13g13; + + CCTK_REAL const T1000045 = -PDstandardNth12g33; + + CCTK_REAL const T1000046 = -PDstandardNth33g12; + + CCTK_REAL const T1000048 = -2*PDstandardNth23g23; + + CCTK_REAL const T1000053 = -PDstandardNth1K23; + + CCTK_REAL const T1000060 = -PDstandardNth2K13; + + CCTK_REAL const T1000070 = -PDstandardNth3K12; + + CCTK_REAL const T1000005 = T1000003 + T1000004; + + CCTK_REAL const T1000010 = T1000008 + T1000009; + + CCTK_REAL const T1000014 = T1000012 + T1000013; + + CCTK_REAL const T1000018 = PDstandardNth1g23 + PDstandardNth2g13 + T1000017; + + CCTK_REAL const T1000020 = PDstandardNth1g23 + PDstandardNth3g12 + T1000019; + + CCTK_REAL const T1000022 = PDstandardNth2g13 + PDstandardNth3g12 + T1000021; + + CCTK_REAL const T1000025 = + PDstandardNth12g13 + PDstandardNth13g12 + T1000023 + T1000024; + + CCTK_REAL const T1000033 = PDstandardNth11g22 + PDstandardNth22g11 + T1000032; + + CCTK_REAL const T1000036 = + PDstandardNth12g23 + PDstandardNth23g12 + T1000034 + T1000035; + + CCTK_REAL const T1000044 = PDstandardNth11g33 + PDstandardNth33g11 + T1000043; + + CCTK_REAL const T1000047 = + PDstandardNth13g23 + PDstandardNth23g13 + T1000045 + T1000046; + + CCTK_REAL const T1000049 = PDstandardNth22g33 + PDstandardNth33g22 + T1000048; + + detg = 2*g12L*g13L*g23L + g11L*(g22L*g33L - T1000001) - g22L*T1000007 - + g33L*T1000016; + + CCTK_REAL const T1000002 = INV(detg); + + CCTK_REAL const T1000006 = T1000002*T1000005; + + CCTK_REAL const T1000011 = T1000002*T1000010; + + CCTK_REAL const T1000015 = T1000002*T1000014; + + gu11 = (g22L*g33L - T1000001)*T1000002; + + gu22 = T1000002*(g11L*g33L - T1000007); + + gu33 = T1000002*(g11L*g22L - T1000016); + + gu12 = T1000006; + + gu13 = T1000011; + + gu21 = T1000006; + + gu23 = T1000015; + + gu31 = T1000011; + + gu32 = T1000015; G111 = khalf*(gu11*PDstandardNth1g11 + 2*(gu12*PDstandardNth1g12 + gu13*PDstandardNth1g13) - @@ -307,23 +366,17 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ 2*(gu32*PDstandardNth1g12 + gu33*PDstandardNth1g13) - gu32*PDstandardNth2g11 - gu33*PDstandardNth3g11); - G112 = khalf*(gu12*PDstandardNth1g22 + gu11*PDstandardNth2g11 + - gu13*(PDstandardNth1g23 + PDstandardNth2g13 - PDstandardNth3g12)); + G112 = khalf*(gu12*PDstandardNth1g22 + gu11*PDstandardNth2g11 + gu13*T1000018); - G212 = khalf*(gu22*PDstandardNth1g22 + gu21*PDstandardNth2g11 + - gu23*(PDstandardNth1g23 + PDstandardNth2g13 - PDstandardNth3g12)); + G212 = khalf*(gu22*PDstandardNth1g22 + gu21*PDstandardNth2g11 + gu23*T1000018); - G312 = khalf*(gu32*PDstandardNth1g22 + gu31*PDstandardNth2g11 + - gu33*(PDstandardNth1g23 + PDstandardNth2g13 - PDstandardNth3g12)); + G312 = khalf*(gu32*PDstandardNth1g22 + gu31*PDstandardNth2g11 + gu33*T1000018); - G113 = khalf*(gu13*PDstandardNth1g33 + gu11*PDstandardNth3g11 + - gu12*(PDstandardNth1g23 - PDstandardNth2g13 + PDstandardNth3g12)); + G113 = khalf*(gu13*PDstandardNth1g33 + gu11*PDstandardNth3g11 + gu12*T1000020); - G213 = khalf*(gu23*PDstandardNth1g33 + gu21*PDstandardNth3g11 + - gu22*(PDstandardNth1g23 - PDstandardNth2g13 + PDstandardNth3g12)); + G213 = khalf*(gu23*PDstandardNth1g33 + gu21*PDstandardNth3g11 + gu22*T1000020); - G313 = khalf*(gu33*PDstandardNth1g33 + gu31*PDstandardNth3g11 + - gu32*(PDstandardNth1g23 - PDstandardNth2g13 + PDstandardNth3g12)); + G313 = khalf*(gu33*PDstandardNth1g33 + gu31*PDstandardNth3g11 + gu32*T1000020); G122 = khalf*(gu11*(-PDstandardNth1g22 + 2*PDstandardNth2g12) + gu12*PDstandardNth2g22 + gu13*(2*PDstandardNth2g23 - PDstandardNth3g22)); @@ -334,17 +387,11 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ G322 = khalf*(gu31*(-PDstandardNth1g22 + 2*PDstandardNth2g12) + gu32*PDstandardNth2g22 + gu33*(2*PDstandardNth2g23 - PDstandardNth3g22)); - G123 = khalf*(gu13*PDstandardNth2g33 + - gu11*(-PDstandardNth1g23 + PDstandardNth2g13 + PDstandardNth3g12) + - gu12*PDstandardNth3g22); + G123 = khalf*(gu13*PDstandardNth2g33 + gu12*PDstandardNth3g22 + gu11*T1000022); - G223 = khalf*(gu23*PDstandardNth2g33 + - gu21*(-PDstandardNth1g23 + PDstandardNth2g13 + PDstandardNth3g12) + - gu22*PDstandardNth3g22); + G223 = khalf*(gu23*PDstandardNth2g33 + gu22*PDstandardNth3g22 + gu21*T1000022); - G323 = khalf*(gu33*PDstandardNth2g33 + - gu31*(-PDstandardNth1g23 + PDstandardNth2g13 + PDstandardNth3g12) + - gu32*PDstandardNth3g22); + G323 = khalf*(gu33*PDstandardNth2g33 + gu32*PDstandardNth3g22 + gu31*T1000022); G133 = khalf*(-(gu11*PDstandardNth1g33) - gu12*PDstandardNth2g33 + 2*gu11*PDstandardNth3g13 + 2*gu12*PDstandardNth3g23 + @@ -358,17 +405,83 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ 2*gu31*PDstandardNth3g13 + 2*gu32*PDstandardNth3g23 + gu33*PDstandardNth3g33); - R11 = -(G111*(G111 + G122 + G133)) - G211*(G211 + G222 + G233) - - G311*(G311 + G322 + G333) + khalf* - (-(gu22*(PDstandardNth11g22 - 2*PDstandardNth12g12 + - PDstandardNth22g11)) + - gu23*(-PDstandardNth11g23 + PDstandardNth12g13 + PDstandardNth13g12 - - PDstandardNth23g11) + gu32* - (-PDstandardNth11g23 + PDstandardNth12g13 + PDstandardNth13g12 - - PDstandardNth23g11) - gu33* - (PDstandardNth11g33 - 2*PDstandardNth13g13 + PDstandardNth33g11)) + - SQR(G111) + SQR(G112) + SQR(G113) + SQR(G211) + SQR(G212) + SQR(G213) + - SQR(G311) + SQR(G312) + SQR(G313); + Km11 = gu11*K11L + gu12*K12L + gu13*K13L; + + Km21 = gu21*K11L + gu22*K12L + gu23*K13L; + + Km31 = gu31*K11L + gu32*K12L + gu33*K13L; + + Km12 = gu11*K12L + gu12*K22L + gu13*K23L; + + Km22 = gu21*K12L + gu22*K22L + gu23*K23L; + + Km32 = gu31*K12L + gu32*K22L + gu33*K23L; + + Km13 = gu11*K13L + gu12*K23L + gu13*K33L; + + Km23 = gu21*K13L + gu22*K23L + gu23*K33L; + + Km33 = gu31*K13L + gu32*K23L + gu33*K33L; + + CCTK_REAL const T1000026 = SQR(G112); + + CCTK_REAL const T1000027 = G111 + G122 + G133; + + CCTK_REAL const T1000028 = SQR(G212); + + CCTK_REAL const T1000029 = G211 + G222 + G233; + + CCTK_REAL const T1000030 = SQR(G312); + + CCTK_REAL const T1000031 = G311 + G322 + G333; + + CCTK_REAL const T1000037 = SQR(G113); + + CCTK_REAL const T1000038 = SQR(G123); + + CCTK_REAL const T1000039 = SQR(G213); + + CCTK_REAL const T1000040 = SQR(G223); + + CCTK_REAL const T1000041 = SQR(G313); + + CCTK_REAL const T1000042 = SQR(G323); + + CCTK_REAL const T1000050 = -(G123*K11L); + + CCTK_REAL const T1000051 = -(G223*K12L); + + CCTK_REAL const T1000052 = -(G323*K13L); + + CCTK_REAL const T1000054 = -(G113*K12L); + + CCTK_REAL const T1000055 = G112*K13L; + + CCTK_REAL const T1000056 = -(G213*K22L); + + CCTK_REAL const T1000057 = G212*K23L; + + CCTK_REAL const T1000058 = -(G313*K23L); + + CCTK_REAL const T1000059 = G312*K33L; + + CCTK_REAL const T1000061 = G123*K11L; + + CCTK_REAL const T1000062 = G223*K12L; + + CCTK_REAL const T1000063 = G323*K13L; + + CCTK_REAL const T1000064 = G113*K12L; + + CCTK_REAL const T1000065 = -(G112*K13L); + + CCTK_REAL const T1000066 = G213*K22L; + + CCTK_REAL const T1000067 = -(G212*K23L); + + CCTK_REAL const T1000068 = G313*K23L; + + CCTK_REAL const T1000069 = -(G312*K33L); R12 = khalf*(2*(G113*G123 + G213*G223 + G313*G323) - 2*(G112*G133 + G212*G233 + G312*G333 + gu12*PDstandardNth12g12) - @@ -389,18 +502,6 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ gu23*(PDstandardNth12g33 - PDstandardNth13g23 - PDstandardNth23g13 + PDstandardNth33g12)); - R22 = -(G122*(G111 + G122 + G133)) - G222*(G211 + G222 + G233) - - G322*(G311 + G322 + G333) + khalf* - (-(gu11*(PDstandardNth11g22 - 2*PDstandardNth12g12 + - PDstandardNth22g11)) + - gu13*(PDstandardNth12g23 - PDstandardNth13g22 - PDstandardNth22g13 + - PDstandardNth23g12) + gu31* - (PDstandardNth12g23 - PDstandardNth13g22 - PDstandardNth22g13 + - PDstandardNth23g12) - gu33* - (PDstandardNth22g33 - 2*PDstandardNth23g23 + PDstandardNth33g22)) + - SQR(G112) + SQR(G122) + SQR(G123) + SQR(G212) + SQR(G222) + SQR(G223) + - SQR(G312) + SQR(G322) + SQR(G323); - R23 = khalf*(2*(G112*G113 + G212*G213 + G312*G313) + gu11*(-PDstandardNth11g23 + PDstandardNth12g13 + PDstandardNth13g12 - PDstandardNth23g11) + gu21* @@ -410,82 +511,67 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ gu13*(PDstandardNth12g33 - PDstandardNth13g23 - PDstandardNth23g13 + PDstandardNth33g12) + gu23*(PDstandardNth22g33 + PDstandardNth33g22)); - R33 = -(G133*(G111 + G122 + G133)) - G233*(G211 + G222 + G233) - - G333*(G311 + G322 + G333) + khalf* - (-(gu11*(PDstandardNth11g33 - 2*PDstandardNth13g13 + - PDstandardNth33g11)) + - gu12*(-PDstandardNth12g33 + PDstandardNth13g23 + PDstandardNth23g13 - - PDstandardNth33g12) + gu21* - (-PDstandardNth12g33 + PDstandardNth13g23 + PDstandardNth23g13 - - PDstandardNth33g12) - gu22* - (PDstandardNth22g33 - 2*PDstandardNth23g23 + PDstandardNth33g22)) + - SQR(G113) + SQR(G123) + SQR(G133) + SQR(G213) + SQR(G223) + SQR(G233) + - SQR(G313) + SQR(G323) + SQR(G333); - - trR = gu11*R11 + (gu12 + gu21)*R12 + (gu13 + gu31)*R13 + gu22*R22 + - (gu23 + gu32)*R23 + gu33*R33; - - Km11 = gu11*K11L + gu12*K12L + gu13*K13L; - - Km21 = gu21*K11L + gu22*K12L + gu23*K13L; - - Km31 = gu31*K11L + gu32*K12L + gu33*K13L; - - Km12 = gu11*K12L + gu12*K22L + gu13*K23L; - - Km22 = gu21*K12L + gu22*K22L + gu23*K23L; - - Km32 = gu31*K12L + gu32*K22L + gu33*K23L; - - Km13 = gu11*K13L + gu12*K23L + gu13*K33L; + trK = Km11 + Km22 + Km33; - Km23 = gu21*K13L + gu22*K23L + gu23*K33L; + R11 = T1000026 - G111*T1000027 + T1000028 - G211*T1000029 + T1000030 - + G311*T1000031 + T1000037 + T1000039 + T1000041 + + khalf*(gu23*T1000025 + gu32*T1000025 - gu22*T1000033 - gu33*T1000044) + + SQR(G111) + SQR(G211) + SQR(G311); - Km33 = gu31*K13L + gu32*K23L + gu33*K33L; + R22 = T1000026 - G122*T1000027 + T1000028 - G222*T1000029 + T1000030 - + G322*T1000031 + T1000038 + T1000040 + T1000042 + + khalf*(-(gu11*T1000033) + gu13*T1000036 + gu31*T1000036 - gu33*T1000049) + + SQR(G122) + SQR(G222) + SQR(G322); - trK = Km11 + Km22 + Km33; - - HL = -2*(Km12*Km21 + Km13*Km31 + Km23*Km32) + trR - SQR(Km11) - SQR(Km22) - - SQR(Km33) + SQR(trK); + R33 = -(G133*T1000027) - G233*T1000029 - G333*T1000031 + T1000037 + T1000038 + + T1000039 + T1000040 + T1000041 + T1000042 + + khalf*(-(gu11*T1000044) + gu12*T1000047 + gu21*T1000047 - gu22*T1000049) + + SQR(G133) + SQR(G233) + SQR(G333); M1L = gu21*(-(G112*K11L) + G111*K12L - G212*K12L - G312*K13L + G211*K22L + G311*K23L - PDstandardNth1K12 + PDstandardNth2K11) + gu22*(-(G122*K11L) + G112*K12L - G222*K12L - G322*K13L + G212*K22L + G312*K23L - PDstandardNth1K22 + PDstandardNth2K12) + - gu23*(-(G123*K11L) + G113*K12L - G223*K12L - G323*K13L + G213*K22L + - G313*K23L - PDstandardNth1K23 + PDstandardNth2K13) + gu31*(-(G113*K11L) - G213*K12L + G111*K13L - G313*K13L + G211*K23L + G311*K33L - PDstandardNth1K13 + PDstandardNth3K11) + - gu32*(-(G123*K11L) - G223*K12L + G112*K13L - G323*K13L + G212*K23L + - G312*K33L - PDstandardNth1K23 + PDstandardNth3K12) + gu33*(-(G133*K11L) - G233*K12L + G113*K13L - G333*K13L + G213*K23L + - G313*K33L - PDstandardNth1K33 + PDstandardNth3K13); + G313*K33L - PDstandardNth1K33 + PDstandardNth3K13) + + gu32*(PDstandardNth3K12 + T1000050 + T1000051 + T1000052 + T1000053 + + T1000055 + T1000057 + T1000059) + + gu23*(PDstandardNth2K13 + T1000050 + T1000051 + T1000052 + T1000053 + + T1000064 + T1000066 + T1000068); M2L = gu11*(G112*K11L + (-G111 + G212)*K12L + G312*K13L - G211*K22L - G311*K23L + PDstandardNth1K12 - PDstandardNth2K11) + gu12*(G122*K11L + (-G112 + G222)*K12L + G322*K13L - G212*K22L - G312*K23L + PDstandardNth1K22 - PDstandardNth2K12) + - gu13*(G123*K11L + (-G113 + G223)*K12L + G323*K13L - G213*K22L - G313*K23L + - PDstandardNth1K23 - PDstandardNth2K13) + - gu31*(-(G113*K12L) + G112*K13L - G213*K22L + G212*K23L - G313*K23L + - G312*K33L - PDstandardNth2K13 + PDstandardNth3K12) + gu32*(-(G123*K12L) + G122*K13L - G223*K22L + G222*K23L - G323*K23L + G322*K33L - PDstandardNth2K23 + PDstandardNth3K22) + gu33*(-(G133*K12L) + G123*K13L - G233*K22L + G223*K23L - G333*K23L + - G323*K33L - PDstandardNth2K33 + PDstandardNth3K23); + G323*K33L - PDstandardNth2K33 + PDstandardNth3K23) + + gu31*(PDstandardNth3K12 + T1000054 + T1000055 + T1000056 + T1000057 + + T1000058 + T1000059 + T1000060) + + gu13*(PDstandardNth1K23 + T1000054 + T1000056 + T1000058 + T1000060 + + T1000061 + T1000062 + T1000063); M3L = gu11*(G113*K11L + G213*K12L + (-G111 + G313)*K13L - G211*K23L - G311*K33L + PDstandardNth1K13 - PDstandardNth3K11) + - gu12*(G123*K11L + G223*K12L + (-G112 + G323)*K13L - G212*K23L - G312*K33L + - PDstandardNth1K23 - PDstandardNth3K12) + - gu21*(G113*K12L - G112*K13L + G213*K22L - G212*K23L + G313*K23L - - G312*K33L + PDstandardNth2K13 - PDstandardNth3K12) + gu13*(G133*K11L + G233*K12L + (-G113 + G333)*K13L - G213*K23L - G313*K33L + PDstandardNth1K33 - PDstandardNth3K13) + gu22*(G123*K12L - G122*K13L + G223*K22L - G222*K23L + G323*K23L - G322*K33L + PDstandardNth2K23 - PDstandardNth3K22) + gu23*(G133*K12L - G123*K13L + G233*K22L - G223*K23L + G333*K23L - - G323*K33L + PDstandardNth2K33 - PDstandardNth3K23); + G323*K33L + PDstandardNth2K33 - PDstandardNth3K23) + + gu12*(PDstandardNth1K23 + T1000061 + T1000062 + T1000063 + T1000065 + + T1000067 + T1000069 + T1000070) + + gu21*(PDstandardNth2K13 + T1000064 + T1000065 + T1000066 + T1000067 + + T1000068 + T1000069 + T1000070); + + trR = gu11*R11 + (gu12 + gu21)*R12 + (gu13 + gu31)*R13 + gu22*R22 + + (gu23 + gu32)*R23 + gu33*R33; + + HL = -2*(Km12*Km21 + Km13*Km31 + Km23*Km32) + trR - SQR(Km11) - SQR(Km22) - + SQR(Km33) + SQR(trK); /* Copy local copies back to grid functions */ @@ -501,8 +587,8 @@ void ML_ADM_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_ void ML_ADM_constraints(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_ADM_constraints_Body); } diff --git a/ML_ADM/src/ML_ADM_constraints_boundary.c b/ML_ADM/src/ML_ADM_constraints_boundary.c index 9a9a86a..565667e 100644 --- a/ML_ADM/src/ML_ADM_constraints_boundary.c +++ b/ML_ADM/src/ML_ADM_constraints_boundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_ADM_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,7 +90,7 @@ void ML_ADM_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const d #pragma omp parallel LC_LOOP3 (ML_ADM_constraints_boundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -139,8 +139,8 @@ void ML_ADM_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const d void ML_ADM_constraints_boundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_ADM_constraints_boundary_Body); } diff --git a/ML_ADM/src/ML_ADM_convertFromADMBase.c b/ML_ADM/src/ML_ADM_convertFromADMBase.c index ba44280..84fc4eb 100644 --- a/ML_ADM/src/ML_ADM_convertFromADMBase.c +++ b/ML_ADM/src/ML_ADM_convertFromADMBase.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_ADM_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,7 +90,7 @@ void ML_ADM_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir #pragma omp parallel LC_LOOP3 (ML_ADM_convertFromADMBase, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -209,8 +209,8 @@ void ML_ADM_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir void ML_ADM_convertFromADMBase(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_ADM_convertFromADMBase_Body); } diff --git a/ML_ADM/src/ML_ADM_convertToADMBase.c b/ML_ADM/src/ML_ADM_convertToADMBase.c index d46ffef..360dc7b 100644 --- a/ML_ADM/src/ML_ADM_convertToADMBase.c +++ b/ML_ADM/src/ML_ADM_convertToADMBase.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_ADM_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,7 +90,7 @@ void ML_ADM_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, #pragma omp parallel LC_LOOP3 (ML_ADM_convertToADMBase, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -225,8 +225,8 @@ void ML_ADM_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, void ML_ADM_convertToADMBase(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_ADM_convertToADMBase_Body); } diff --git a/ML_ADM/src/RegisterMoL.c b/ML_ADM/src/RegisterMoL.c index e65c17e..5921f17 100644 --- a/ML_ADM/src/RegisterMoL.c +++ b/ML_ADM/src/RegisterMoL.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -9,8 +9,8 @@ void ML_ADM_RegisterVars(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; CCTK_INT ierr = 0; diff --git a/ML_ADM/src/RegisterSymmetries.c b/ML_ADM/src/RegisterSymmetries.c index 457279f..bb35307 100644 --- a/ML_ADM/src/RegisterSymmetries.c +++ b/ML_ADM/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -10,8 +10,8 @@ void ML_ADM_RegisterSymmetries(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* array holding symmetry definitions */ diff --git a/ML_ADM/src/Startup.c b/ML_ADM/src/Startup.c index 644d208..f2fc60b 100644 --- a/ML_ADM/src/Startup.c +++ b/ML_ADM/src/Startup.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_ADM/src/make.code.defn b/ML_ADM/src/make.code.defn index 00bec0f..5143870 100644 --- a/ML_ADM/src/make.code.defn +++ b/ML_ADM/src/make.code.defn @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/configuration.ccl b/ML_BSSN/configuration.ccl index 006249a..c4e15c5 100644 --- a/ML_BSSN/configuration.ccl +++ b/ML_BSSN/configuration.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/interface.ccl b/ML_BSSN/interface.ccl index e95bb1a..bc4e88e 100644 --- a/ML_BSSN/interface.ccl +++ b/ML_BSSN/interface.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/param.ccl b/ML_BSSN/param.ccl index b4b7a2e..82a9c5a 100644 --- a/ML_BSSN/param.ccl +++ b/ML_BSSN/param.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/schedule.ccl b/ML_BSSN/schedule.ccl index 390d607..7be8894 100644 --- a/ML_BSSN/schedule.ccl +++ b/ML_BSSN/schedule.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/src/Boundaries.c b/ML_BSSN/src/Boundaries.c index 3d91f94..064b986 100644 --- a/ML_BSSN/src/Boundaries.c +++ b/ML_BSSN/src/Boundaries.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -22,16 +22,16 @@ void ML_BSSN_CheckBoundaries(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; return; } void ML_BSSN_ApplyBoundConds(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; CCTK_INT ierr = 0; diff --git a/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c b/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c index 2814b68..7533696 100644 --- a/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c +++ b/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, #pragma omp parallel LC_LOOP3 (ML_BSSN_ADMBaseBoundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -277,8 +277,8 @@ void ML_BSSN_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, void ML_BSSN_ADMBaseBoundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_BSSN_ADMBaseBoundary_Body); } diff --git a/ML_BSSN/src/ML_BSSN_Minkowski.c b/ML_BSSN/src/ML_BSSN_Minkowski.c index 1cfc3e1..a2c6090 100644 --- a/ML_BSSN/src/ML_BSSN_Minkowski.c +++ b/ML_BSSN/src/ML_BSSN_Minkowski.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_I #pragma omp parallel LC_LOOP3 (ML_BSSN_Minkowski, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -221,8 +221,8 @@ void ML_BSSN_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_I void ML_BSSN_Minkowski(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_Minkowski_Body); } diff --git a/ML_BSSN/src/ML_BSSN_RHS.c b/ML_BSSN/src/ML_BSSN_RHS.c index a3e200e..0841e33 100644 --- a/ML_BSSN/src/ML_BSSN_RHS.c +++ b/ML_BSSN/src/ML_BSSN_RHS.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con #pragma omp parallel LC_LOOP3 (ML_BSSN_RHS, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -165,40 +165,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33alpha = INITVALUE; CCTK_REAL PDstandardNth12alpha = INITVALUE; CCTK_REAL PDstandardNth13alpha = INITVALUE; - CCTK_REAL PDstandardNth21alpha = INITVALUE; CCTK_REAL PDstandardNth23alpha = INITVALUE; - CCTK_REAL PDstandardNth31alpha = INITVALUE; - CCTK_REAL PDstandardNth32alpha = INITVALUE; - CCTK_REAL PDupwindNth1alpha = INITVALUE; - CCTK_REAL PDupwindNth2alpha = INITVALUE; - CCTK_REAL PDupwindNth3alpha = INITVALUE; - CCTK_REAL PDupwindNth1At11 = INITVALUE; - CCTK_REAL PDupwindNth2At11 = INITVALUE; - CCTK_REAL PDupwindNth3At11 = INITVALUE; - CCTK_REAL PDupwindNth1At12 = INITVALUE; - CCTK_REAL PDupwindNth2At12 = INITVALUE; - CCTK_REAL PDupwindNth3At12 = INITVALUE; - CCTK_REAL PDupwindNth1At13 = INITVALUE; - CCTK_REAL PDupwindNth2At13 = INITVALUE; - CCTK_REAL PDupwindNth3At13 = INITVALUE; - CCTK_REAL PDupwindNth1At22 = INITVALUE; - CCTK_REAL PDupwindNth2At22 = INITVALUE; - CCTK_REAL PDupwindNth3At22 = INITVALUE; - CCTK_REAL PDupwindNth1At23 = INITVALUE; - CCTK_REAL PDupwindNth2At23 = INITVALUE; - CCTK_REAL PDupwindNth3At23 = INITVALUE; - CCTK_REAL PDupwindNth1At33 = INITVALUE; - CCTK_REAL PDupwindNth2At33 = INITVALUE; - CCTK_REAL PDupwindNth3At33 = INITVALUE; - CCTK_REAL PDupwindNth1B1 = INITVALUE; - CCTK_REAL PDupwindNth2B1 = INITVALUE; - CCTK_REAL PDupwindNth3B1 = INITVALUE; - CCTK_REAL PDupwindNth1B2 = INITVALUE; - CCTK_REAL PDupwindNth2B2 = INITVALUE; - CCTK_REAL PDupwindNth3B2 = INITVALUE; - CCTK_REAL PDupwindNth1B3 = INITVALUE; - CCTK_REAL PDupwindNth2B3 = INITVALUE; - CCTK_REAL PDupwindNth3B3 = INITVALUE; CCTK_REAL PDstandardNth1beta1 = INITVALUE; CCTK_REAL PDstandardNth2beta1 = INITVALUE; CCTK_REAL PDstandardNth3beta1 = INITVALUE; @@ -207,13 +174,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33beta1 = INITVALUE; CCTK_REAL PDstandardNth12beta1 = INITVALUE; CCTK_REAL PDstandardNth13beta1 = INITVALUE; - CCTK_REAL PDstandardNth21beta1 = INITVALUE; CCTK_REAL PDstandardNth23beta1 = INITVALUE; - CCTK_REAL PDstandardNth31beta1 = INITVALUE; - CCTK_REAL PDstandardNth32beta1 = INITVALUE; - CCTK_REAL PDupwindNth1beta1 = INITVALUE; - CCTK_REAL PDupwindNth2beta1 = INITVALUE; - CCTK_REAL PDupwindNth3beta1 = INITVALUE; CCTK_REAL PDstandardNth1beta2 = INITVALUE; CCTK_REAL PDstandardNth2beta2 = INITVALUE; CCTK_REAL PDstandardNth3beta2 = INITVALUE; @@ -222,13 +183,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33beta2 = INITVALUE; CCTK_REAL PDstandardNth12beta2 = INITVALUE; CCTK_REAL PDstandardNth13beta2 = INITVALUE; - CCTK_REAL PDstandardNth21beta2 = INITVALUE; CCTK_REAL PDstandardNth23beta2 = INITVALUE; - CCTK_REAL PDstandardNth31beta2 = INITVALUE; - CCTK_REAL PDstandardNth32beta2 = INITVALUE; - CCTK_REAL PDupwindNth1beta2 = INITVALUE; - CCTK_REAL PDupwindNth2beta2 = INITVALUE; - CCTK_REAL PDupwindNth3beta2 = INITVALUE; CCTK_REAL PDstandardNth1beta3 = INITVALUE; CCTK_REAL PDstandardNth2beta3 = INITVALUE; CCTK_REAL PDstandardNth3beta3 = INITVALUE; @@ -237,13 +192,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33beta3 = INITVALUE; CCTK_REAL PDstandardNth12beta3 = INITVALUE; CCTK_REAL PDstandardNth13beta3 = INITVALUE; - CCTK_REAL PDstandardNth21beta3 = INITVALUE; CCTK_REAL PDstandardNth23beta3 = INITVALUE; - CCTK_REAL PDstandardNth31beta3 = INITVALUE; - CCTK_REAL PDstandardNth32beta3 = INITVALUE; - CCTK_REAL PDupwindNth1beta3 = INITVALUE; - CCTK_REAL PDupwindNth2beta3 = INITVALUE; - CCTK_REAL PDupwindNth3beta3 = INITVALUE; CCTK_REAL PDstandardNth1gt11 = INITVALUE; CCTK_REAL PDstandardNth2gt11 = INITVALUE; CCTK_REAL PDstandardNth3gt11 = INITVALUE; @@ -252,13 +201,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt11 = INITVALUE; CCTK_REAL PDstandardNth12gt11 = INITVALUE; CCTK_REAL PDstandardNth13gt11 = INITVALUE; - CCTK_REAL PDstandardNth21gt11 = INITVALUE; CCTK_REAL PDstandardNth23gt11 = INITVALUE; - CCTK_REAL PDstandardNth31gt11 = INITVALUE; - CCTK_REAL PDstandardNth32gt11 = INITVALUE; - CCTK_REAL PDupwindNth1gt11 = INITVALUE; - CCTK_REAL PDupwindNth2gt11 = INITVALUE; - CCTK_REAL PDupwindNth3gt11 = INITVALUE; CCTK_REAL PDstandardNth1gt12 = INITVALUE; CCTK_REAL PDstandardNth2gt12 = INITVALUE; CCTK_REAL PDstandardNth3gt12 = INITVALUE; @@ -267,13 +210,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt12 = INITVALUE; CCTK_REAL PDstandardNth12gt12 = INITVALUE; CCTK_REAL PDstandardNth13gt12 = INITVALUE; - CCTK_REAL PDstandardNth21gt12 = INITVALUE; CCTK_REAL PDstandardNth23gt12 = INITVALUE; - CCTK_REAL PDstandardNth31gt12 = INITVALUE; - CCTK_REAL PDstandardNth32gt12 = INITVALUE; - CCTK_REAL PDupwindNth1gt12 = INITVALUE; - CCTK_REAL PDupwindNth2gt12 = INITVALUE; - CCTK_REAL PDupwindNth3gt12 = INITVALUE; CCTK_REAL PDstandardNth1gt13 = INITVALUE; CCTK_REAL PDstandardNth2gt13 = INITVALUE; CCTK_REAL PDstandardNth3gt13 = INITVALUE; @@ -282,13 +219,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt13 = INITVALUE; CCTK_REAL PDstandardNth12gt13 = INITVALUE; CCTK_REAL PDstandardNth13gt13 = INITVALUE; - CCTK_REAL PDstandardNth21gt13 = INITVALUE; CCTK_REAL PDstandardNth23gt13 = INITVALUE; - CCTK_REAL PDstandardNth31gt13 = INITVALUE; - CCTK_REAL PDstandardNth32gt13 = INITVALUE; - CCTK_REAL PDupwindNth1gt13 = INITVALUE; - CCTK_REAL PDupwindNth2gt13 = INITVALUE; - CCTK_REAL PDupwindNth3gt13 = INITVALUE; CCTK_REAL PDstandardNth1gt22 = INITVALUE; CCTK_REAL PDstandardNth2gt22 = INITVALUE; CCTK_REAL PDstandardNth3gt22 = INITVALUE; @@ -297,13 +228,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt22 = INITVALUE; CCTK_REAL PDstandardNth12gt22 = INITVALUE; CCTK_REAL PDstandardNth13gt22 = INITVALUE; - CCTK_REAL PDstandardNth21gt22 = INITVALUE; CCTK_REAL PDstandardNth23gt22 = INITVALUE; - CCTK_REAL PDstandardNth31gt22 = INITVALUE; - CCTK_REAL PDstandardNth32gt22 = INITVALUE; - CCTK_REAL PDupwindNth1gt22 = INITVALUE; - CCTK_REAL PDupwindNth2gt22 = INITVALUE; - CCTK_REAL PDupwindNth3gt22 = INITVALUE; CCTK_REAL PDstandardNth1gt23 = INITVALUE; CCTK_REAL PDstandardNth2gt23 = INITVALUE; CCTK_REAL PDstandardNth3gt23 = INITVALUE; @@ -312,13 +237,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt23 = INITVALUE; CCTK_REAL PDstandardNth12gt23 = INITVALUE; CCTK_REAL PDstandardNth13gt23 = INITVALUE; - CCTK_REAL PDstandardNth21gt23 = INITVALUE; CCTK_REAL PDstandardNth23gt23 = INITVALUE; - CCTK_REAL PDstandardNth31gt23 = INITVALUE; - CCTK_REAL PDstandardNth32gt23 = INITVALUE; - CCTK_REAL PDupwindNth1gt23 = INITVALUE; - CCTK_REAL PDupwindNth2gt23 = INITVALUE; - CCTK_REAL PDupwindNth3gt23 = INITVALUE; CCTK_REAL PDstandardNth1gt33 = INITVALUE; CCTK_REAL PDstandardNth2gt33 = INITVALUE; CCTK_REAL PDstandardNth3gt33 = INITVALUE; @@ -327,13 +246,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt33 = INITVALUE; CCTK_REAL PDstandardNth12gt33 = INITVALUE; CCTK_REAL PDstandardNth13gt33 = INITVALUE; - CCTK_REAL PDstandardNth21gt33 = INITVALUE; CCTK_REAL PDstandardNth23gt33 = INITVALUE; - CCTK_REAL PDstandardNth31gt33 = INITVALUE; - CCTK_REAL PDstandardNth32gt33 = INITVALUE; - CCTK_REAL PDupwindNth1gt33 = INITVALUE; - CCTK_REAL PDupwindNth2gt33 = INITVALUE; - CCTK_REAL PDupwindNth3gt33 = INITVALUE; CCTK_REAL PDstandardNth1phi = INITVALUE; CCTK_REAL PDstandardNth2phi = INITVALUE; CCTK_REAL PDstandardNth3phi = INITVALUE; @@ -342,37 +255,19 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33phi = INITVALUE; CCTK_REAL PDstandardNth12phi = INITVALUE; CCTK_REAL PDstandardNth13phi = INITVALUE; - CCTK_REAL PDstandardNth21phi = INITVALUE; CCTK_REAL PDstandardNth23phi = INITVALUE; - CCTK_REAL PDstandardNth31phi = INITVALUE; - CCTK_REAL PDstandardNth32phi = INITVALUE; - CCTK_REAL PDupwindNth1phi = INITVALUE; - CCTK_REAL PDupwindNth2phi = INITVALUE; - CCTK_REAL PDupwindNth3phi = INITVALUE; CCTK_REAL PDstandardNth1trK = INITVALUE; CCTK_REAL PDstandardNth2trK = INITVALUE; CCTK_REAL PDstandardNth3trK = INITVALUE; - CCTK_REAL PDupwindNth1trK = INITVALUE; - CCTK_REAL PDupwindNth2trK = INITVALUE; - CCTK_REAL PDupwindNth3trK = INITVALUE; CCTK_REAL PDstandardNth1Xt1 = INITVALUE; CCTK_REAL PDstandardNth2Xt1 = INITVALUE; CCTK_REAL PDstandardNth3Xt1 = INITVALUE; - CCTK_REAL PDupwindNth1Xt1 = INITVALUE; - CCTK_REAL PDupwindNth2Xt1 = INITVALUE; - CCTK_REAL PDupwindNth3Xt1 = INITVALUE; CCTK_REAL PDstandardNth1Xt2 = INITVALUE; CCTK_REAL PDstandardNth2Xt2 = INITVALUE; CCTK_REAL PDstandardNth3Xt2 = INITVALUE; - CCTK_REAL PDupwindNth1Xt2 = INITVALUE; - CCTK_REAL PDupwindNth2Xt2 = INITVALUE; - CCTK_REAL PDupwindNth3Xt2 = INITVALUE; CCTK_REAL PDstandardNth1Xt3 = INITVALUE; CCTK_REAL PDstandardNth2Xt3 = INITVALUE; CCTK_REAL PDstandardNth3Xt3 = INITVALUE; - CCTK_REAL PDupwindNth1Xt3 = INITVALUE; - CCTK_REAL PDupwindNth2Xt3 = INITVALUE; - CCTK_REAL PDupwindNth3Xt3 = INITVALUE; /* Assign local copies of grid functions */ AL = A[index]; @@ -525,6 +420,43 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ + CCTK_REAL const T1000002 = -PDstandardNth3gt12; + + CCTK_REAL const T1000004 = -PDstandardNth2gt13; + + CCTK_REAL const T1000006 = -PDstandardNth1gt23; + + CCTK_REAL const T1000151 = SQR(PDstandardNth1phi); + + CCTK_REAL const T1000152 = SQR(PDstandardNth2phi); + + CCTK_REAL const T1000153 = SQR(PDstandardNth3phi); + + CCTK_REAL const T1000162 = 2*PDstandardNth3phi; + + CCTK_REAL const T1000163 = + PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3; + + CCTK_REAL const T1000164 = -1 + LapseAdvectionCoeff; + + False; + + False; + + False; + + False; + + False; + + False; + + False; + + False; + + False; + dir1 = Sign(beta1L); dir2 = Sign(beta2L); @@ -533,17 +465,123 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + e4phi = exp(4*phiL); + + phirhsL = (6*(PDupwindNth1(phi, i, j, k)*beta1L + + PDupwindNth2(phi, i, j, k)*beta2L + + PDupwindNth3(phi, i, j, k)*beta3L) + PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3 - alphaL*trKL)/6.; + + gt11rhsL = -2*alphaL*At11L + PDupwindNth1(gt11, i, j, k)*beta1L + + PDupwindNth2(gt11, i, j, k)*beta2L + + PDupwindNth3(gt11, i, j, k)*beta3L + + 2*(gt12L*PDstandardNth1beta2 + gt13L*PDstandardNth1beta3) + + gt11L*(kfourthird*PDstandardNth1beta1 - ktwothird*PDstandardNth2beta2 - + ktwothird*PDstandardNth3beta3); + + gt12rhsL = -2*alphaL*At12L + PDupwindNth1(gt12, i, j, k)*beta1L + + PDupwindNth2(gt12, i, j, k)*beta2L + + PDupwindNth3(gt12, i, j, k)*beta3L + gt22L*PDstandardNth1beta2 + + gt23L*PDstandardNth1beta3 + gt11L*PDstandardNth2beta1 + + gt13L*PDstandardNth2beta3 + gt12L* + (kthird*(PDstandardNth1beta1 + PDstandardNth2beta2) - + ktwothird*PDstandardNth3beta3); + + gt13rhsL = -2*alphaL*At13L + PDupwindNth1(gt13, i, j, k)*beta1L + + PDupwindNth2(gt13, i, j, k)*beta2L + + PDupwindNth3(gt13, i, j, k)*beta3L + gt23L*PDstandardNth1beta2 + + gt33L*PDstandardNth1beta3 + gt11L*PDstandardNth3beta1 + + gt12L*PDstandardNth3beta2 + gt13L* + (-(ktwothird*PDstandardNth2beta2) + + kthird*(PDstandardNth1beta1 + PDstandardNth3beta3)); + + gt22rhsL = -2*alphaL*At22L + PDupwindNth1(gt22, i, j, k)*beta1L + + PDupwindNth2(gt22, i, j, k)*beta2L + + PDupwindNth3(gt22, i, j, k)*beta3L + + 2*(gt12L*PDstandardNth2beta1 + gt23L*PDstandardNth2beta3) + + gt22L*(-(ktwothird*PDstandardNth1beta1) + kfourthird*PDstandardNth2beta2 - + ktwothird*PDstandardNth3beta3); + + gt23rhsL = -2*alphaL*At23L + PDupwindNth1(gt23, i, j, k)*beta1L + + PDupwindNth2(gt23, i, j, k)*beta2L + + PDupwindNth3(gt23, i, j, k)*beta3L + gt13L*PDstandardNth2beta1 + + gt33L*PDstandardNth2beta3 + gt12L*PDstandardNth3beta1 + + gt22L*PDstandardNth3beta2 + gt23L* + (-(ktwothird*PDstandardNth1beta1) + + kthird*(PDstandardNth2beta2 + PDstandardNth3beta3)); + + gt33rhsL = -2*alphaL*At33L + PDupwindNth1(gt33, i, j, k)*beta1L + + PDupwindNth2(gt33, i, j, k)*beta2L + + PDupwindNth3(gt33, i, j, k)*beta3L - + gt33L*ktwothird*PDstandardNth1beta1 - gt33L*ktwothird*PDstandardNth2beta2 + + 2*gt13L*PDstandardNth3beta1 + 2*gt23L*PDstandardNth3beta2 + + gt33L*kfourthird*PDstandardNth3beta3; + + beta1rhsL = (PDupwindNth1(beta1, i, j, k)*beta1L + + PDupwindNth2(beta1, i, j, k)*beta2L + + PDupwindNth3(beta1, i, j, k)*beta3L)*ShiftAdvectionCoeff + + B1L*ShiftGammaCoeff; + + beta2rhsL = (PDupwindNth1(beta2, i, j, k)*beta1L + + PDupwindNth2(beta2, i, j, k)*beta2L + + PDupwindNth3(beta2, i, j, k)*beta3L)*ShiftAdvectionCoeff + + B2L*ShiftGammaCoeff; + + beta3rhsL = (PDupwindNth1(beta3, i, j, k)*beta1L + + PDupwindNth2(beta3, i, j, k)*beta2L + + PDupwindNth3(beta3, i, j, k)*beta3L)*ShiftAdvectionCoeff + + B3L*ShiftGammaCoeff; + + CCTK_REAL const T1000001 = INV(detgt); + + CCTK_REAL const T1000003 = PDstandardNth1gt23 + PDstandardNth2gt13 + T1000002; + + CCTK_REAL const T1000005 = PDstandardNth1gt23 + PDstandardNth3gt12 + T1000004; + + CCTK_REAL const T1000007 = PDstandardNth2gt13 + PDstandardNth3gt12 + T1000006; + + em4phi = INV(e4phi); + + g11 = e4phi*gt11L; + + g12 = e4phi*gt12L; + + g13 = e4phi*gt13L; + + g22 = e4phi*gt22L; + + g23 = e4phi*gt23L; + + g33 = e4phi*gt33L; + + alpharhsL = (PDupwindNth1(alpha, i, j, k)*beta1L + + PDupwindNth2(alpha, i, j, k)*beta2L + + PDupwindNth3(alpha, i, j, k)*beta3L)*LapseAdvectionCoeff + + harmonicF*(AL*T1000164 - LapseAdvectionCoeff*trKL)*pow(alphaL,harmonicN); + + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); + + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; + + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; + + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); + + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + CCTK_REAL const T1000155 = At12L*gtu21; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + CCTK_REAL const T1000156 = At13L*gtu31; - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + CCTK_REAL const T1000157 = At23L*gtu32; - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + CCTK_REAL const T1000158 = -2*gt11L*gtu11; + + CCTK_REAL const T1000159 = -2*gt12L*gtu21; + + CCTK_REAL const T1000161 = -2*gt22L*gtu22; Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - @@ -558,22 +596,22 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu31*T1000003); Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu32*T1000003); Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu33*T1000003); Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu21*T1000005); Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu22*T1000005); Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu32*T1000005); Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + @@ -587,17 +625,14 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gtu32*PDstandardNth2gt22 + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + - gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu21*PDstandardNth3gt22 + + gtu11*T1000007); - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + - gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu22*PDstandardNth3gt22 + + gtu21*T1000007); - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + - gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu32*PDstandardNth3gt22 + + gtu31*T1000007); Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + 2*gtu21*PDstandardNth3gt23 + @@ -611,15 +646,512 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con 2*gtu31*PDstandardNth3gt13 + 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); + Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; + + Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; + + Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; + + Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; + + Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; + + Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; + + gu11 = em4phi*gtu11; + + gu21 = em4phi*gtu21; + + gu31 = em4phi*gtu31; + + gu22 = em4phi*gtu22; + + gu32 = em4phi*gtu32; + + gu33 = em4phi*gtu33; + + CCTK_REAL const T1000008 = SQR(Gt212); + + CCTK_REAL const T1000009 = SQR(Gt313); + + CCTK_REAL const T1000010 = SQR(Gt111); + + CCTK_REAL const T1000011 = SQR(Gt112); + + CCTK_REAL const T1000012 = SQR(Gt312); + + CCTK_REAL const T1000014 = Gt211*Gt222*gt22L; + + CCTK_REAL const T1000015 = Gt211*gt23L*Gt322; + + CCTK_REAL const T1000016 = Gt112*gt12L; + + CCTK_REAL const T1000017 = Gt112*Gt212; + + CCTK_REAL const T1000018 = Gt113*Gt312; + + CCTK_REAL const T1000019 = 2*gt11L*Gt122; + + CCTK_REAL const T1000020 = gt12L*Gt222; + + CCTK_REAL const T1000021 = Gt212*gt22L; + + CCTK_REAL const T1000022 = gt23L*Gt312; + + CCTK_REAL const T1000023 = gt13L*Gt322; + + CCTK_REAL const T1000024 = Gt123*Gt312; + + CCTK_REAL const T1000025 = Gt212*Gt213*gt22L; + + CCTK_REAL const T1000026 = Gt211*Gt223*gt22L; + + CCTK_REAL const T1000027 = Gt213*gt23L*Gt312; + + CCTK_REAL const T1000028 = Gt211*gt23L*Gt323; + + CCTK_REAL const T1000029 = Gt113*gt12L; + + CCTK_REAL const T1000030 = Gt213*gt22L; + + CCTK_REAL const T1000031 = gt23L*Gt313; + + CCTK_REAL const T1000033 = Gt213*Gt222*gt22L; + + CCTK_REAL const T1000034 = Gt212*Gt223*gt22L; + + CCTK_REAL const T1000035 = Gt213*gt23L*Gt322; + + CCTK_REAL const T1000036 = Gt212*gt23L*Gt323; + + CCTK_REAL const T1000037 = 2*gt11L*Gt123; + + CCTK_REAL const T1000038 = gt12L*Gt223; + + CCTK_REAL const T1000039 = gt13L*Gt323; + + CCTK_REAL const T1000041 = SQR(Gt113); + + CCTK_REAL const T1000042 = Gt211*gt22L; + + CCTK_REAL const T1000043 = gt23L*Gt311; + + CCTK_REAL const T1000044 = gt12L*Gt212; + + CCTK_REAL const T1000045 = gt13L*Gt312; + + CCTK_REAL const T1000047 = Gt112*Gt213; + + CCTK_REAL const T1000048 = Gt113*Gt313; + + CCTK_REAL const T1000049 = gt12L*Gt212*Gt223; + + CCTK_REAL const T1000050 = 2*Gt123*gt13L*Gt311; + + CCTK_REAL const T1000051 = Gt223*gt23L*Gt311; + + CCTK_REAL const T1000052 = Gt113*gt13L*Gt312; + + CCTK_REAL const T1000053 = gt13L*Gt223*Gt312; + + CCTK_REAL const T1000054 = gt13L*Gt313*Gt323; + + CCTK_REAL const T1000055 = Gt312*Gt313*gt33L; + + CCTK_REAL const T1000056 = Gt311*Gt323*gt33L; + + CCTK_REAL const T1000057 = Gt212*gt23L*Gt313; + + CCTK_REAL const T1000058 = 2*Gt112*Gt113; + + CCTK_REAL const T1000059 = Gt122*Gt213; + + CCTK_REAL const T1000060 = Gt112*gt13L; + + CCTK_REAL const T1000061 = gt12L*Gt222*Gt223; + + CCTK_REAL const T1000062 = gt13L*Gt223*Gt322; + + CCTK_REAL const T1000063 = SQR(Gt323); + + CCTK_REAL const T1000065 = Gt212*gt23L; + + CCTK_REAL const T1000066 = Gt312*gt33L; + + CCTK_REAL const T1000067 = SQR(Gt213); + + CCTK_REAL const T1000068 = Gt233*gt23L*Gt311; + + CCTK_REAL const T1000069 = Gt133*Gt313; + + CCTK_REAL const T1000070 = gt13L*Gt313*Gt333; + + CCTK_REAL const T1000072 = Gt311*Gt333*gt33L; + + CCTK_REAL const T1000073 = Gt113*gt13L; + + CCTK_REAL const T1000074 = Gt223*gt23L*Gt313; + + CCTK_REAL const T1000075 = gt13L*Gt323*Gt333; + + CCTK_REAL const T1000076 = 2*gt11L*Gt133; + + CCTK_REAL const T1000077 = gt12L*Gt233; + + CCTK_REAL const T1000078 = gt13L*Gt333; + + CCTK_REAL const T1000080 = Gt313*Gt323*gt33L; + + CCTK_REAL const T1000081 = SQR(Gt223); + + CCTK_REAL const T1000082 = Gt233*gt23L*Gt312; + + CCTK_REAL const T1000083 = 2*Gt123*gt13L*Gt313; + + CCTK_REAL const T1000084 = gt13L*Gt223*Gt323; + + CCTK_REAL const T1000085 = Gt312*Gt333*gt33L; + + CCTK_REAL const T1000086 = Gt213*gt23L; + + CCTK_REAL const T1000087 = Gt313*gt33L; + + CCTK_REAL const T1000089 = gt12L*Gt213; + + CCTK_REAL const T1000090 = gt13L*Gt313; + + CCTK_REAL const T1000091 = Gt211*gt23L; + + CCTK_REAL const T1000092 = Gt311*gt33L; + + CCTK_REAL const T1000093 = gt11L*Gt123; + + CCTK_REAL const T1000096 = SQR(Gt222); + + CCTK_REAL const T1000097 = Gt113*gt12L*Gt212; + + CCTK_REAL const T1000098 = Gt112*gt13L*Gt212; + + CCTK_REAL const T1000099 = 2*Gt112*gt12L*Gt213; + + CCTK_REAL const T1000100 = Gt113*Gt211*gt22L; + + CCTK_REAL const T1000101 = Gt112*Gt211*gt23L; + + CCTK_REAL const T1000103 = Gt113*gt23L*Gt311; + + CCTK_REAL const T1000104 = 2*Gt113*gt13L*Gt312; + + CCTK_REAL const T1000105 = Gt112*gt13L*Gt313; + + CCTK_REAL const T1000106 = Gt213*gt22L*Gt313; + + CCTK_REAL const T1000108 = Gt112*Gt311*gt33L; + + CCTK_REAL const T1000109 = Gt212*Gt312*gt33L; + + CCTK_REAL const T1000110 = Gt123*gt12L*Gt212; + + CCTK_REAL const T1000111 = Gt212*Gt222*gt23L; + + CCTK_REAL const T1000112 = 2*Gt223*gt23L*Gt312; + + CCTK_REAL const T1000113 = Gt113*gt13L*Gt322; + + CCTK_REAL const T1000114 = gt23L*Gt313*Gt323; + + CCTK_REAL const T1000115 = Gt313*Gt322*gt33L; + + CCTK_REAL const T1000116 = Gt312*Gt323*gt33L; + + CCTK_REAL const T1000118 = Gt122*gt13L*Gt212; + + CCTK_REAL const T1000119 = 2*Gt122*gt12L*Gt213; + + CCTK_REAL const T1000120 = Gt113*gt12L*Gt222; + + CCTK_REAL const T1000121 = Gt113*Gt212*gt22L; + + CCTK_REAL const T1000122 = Gt123*gt13L*Gt312; + + CCTK_REAL const T1000123 = Gt113*gt23L*Gt312; + + CCTK_REAL const T1000124 = Gt223*gt23L*Gt312; + + CCTK_REAL const T1000125 = Gt223*gt22L*Gt313; + + CCTK_REAL const T1000126 = Gt222*gt23L*Gt313; + + CCTK_REAL const T1000127 = Gt212*Gt322*gt33L; + + CCTK_REAL const T1000128 = Gt212*Gt223*gt23L; + + CCTK_REAL const T1000129 = Gt133*gt13L*Gt312; + + CCTK_REAL const T1000130 = Gt113*gt13L*Gt323; + + CCTK_REAL const T1000131 = Gt213*gt23L*Gt323; + + CCTK_REAL const T1000132 = Gt212*gt23L*Gt333; + + CCTK_REAL const T1000133 = gt23L*Gt313*Gt333; + + CCTK_REAL const T1000135 = 2*Gt213*Gt223*gt22L; + + CCTK_REAL const T1000136 = gt22L*Gt233*Gt313; + + CCTK_REAL const T1000137 = 2*Gt213*gt23L*Gt323; + + CCTK_REAL const T1000138 = Gt212*Gt323*gt33L; + + CCTK_REAL const T1000139 = SQR(Gt123); + + CCTK_REAL const T1000140 = Gt222*Gt223*gt23L; + + CCTK_REAL const T1000141 = Gt133*gt13L*Gt322; + + CCTK_REAL const T1000142 = gt23L*Gt323*Gt333; + + CCTK_REAL const T1000144 = Gt322*Gt333*gt33L; + + CCTK_REAL const T1000145 = SQR(Gt333); + + CCTK_REAL const T1000146 = 2*Gt212*gtu21; + + CCTK_REAL const T1000147 = Gt222*gtu22; + + CCTK_REAL const T1000148 = 2*Gt213*gtu31; + + CCTK_REAL const T1000149 = 2*Gt223*gtu32; + + CCTK_REAL const T1000150 = Gt233*gtu33; + + CCTK_REAL const T1000154 = Gt211*gtu11; + + CCTK_REAL const T1000160 = 2 + T1000159; + Xtn1 = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; - Xtn2 = Gt211*gtu11 + Gt222*gtu22 + - 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; - Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; + Atm11 = At11L*gtu11 + T1000155 + T1000156; + + Atm22 = At22L*gtu22 + T1000155 + T1000157; + + Atm33 = At33L*gtu33 + T1000156 + T1000157; + + G111 = Gt111 - 2*gt11L*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi) + + PDstandardNth1phi*(4 + T1000158); + + G211 = Gt211 - 2*gt11L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + + gtu32*PDstandardNth3phi); + + G311 = Gt311 - 2*gt11L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + + gtu33*PDstandardNth3phi); + + G312 = Gt312 - 2*gt12L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + + gtu33*PDstandardNth3phi); + + G113 = Gt113 - 2*gt13L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + + gtu31*PDstandardNth3phi) + T1000162; + + G213 = Gt213 - 2*gt13L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + + gtu32*PDstandardNth3phi); + + G313 = Gt313 + (2 - 2*gt13L*gtu31)*PDstandardNth1phi - + 2*gt13L*(gtu32*PDstandardNth2phi + gtu33*PDstandardNth3phi); + + G122 = Gt122 - 2*gt22L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + + gtu31*PDstandardNth3phi); + + G222 = Gt222 - 2*gt22L*(gtu21*PDstandardNth1phi + gtu32*PDstandardNth3phi) + + PDstandardNth2phi*(4 + T1000161); + + G322 = Gt322 - 2*gt22L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + + gtu33*PDstandardNth3phi); + + G123 = Gt123 - 2*gt23L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + + gtu31*PDstandardNth3phi); + + G223 = Gt223 - 2*gt23L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + + gtu32*PDstandardNth3phi) + T1000162; + + G323 = Gt323 + (2 - 2*gt23L*gtu32)*PDstandardNth2phi - + 2*gt23L*(gtu31*PDstandardNth1phi + gtu33*PDstandardNth3phi); + + G133 = Gt133 - 2*gt33L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + + gtu31*PDstandardNth3phi); + + G233 = Gt233 - 2*gt33L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + + gtu32*PDstandardNth3phi); + + G333 = Gt333 + 4*PDstandardNth3phi - + 2*gt33L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + + gtu33*PDstandardNth3phi); + + CCTK_REAL const T1000013 = gt22L*T1000008; + + CCTK_REAL const T1000032 = T1000029 + T1000030 + T1000031; + + CCTK_REAL const T1000040 = T1000029 + T1000037 + T1000038 + T1000039; + + CCTK_REAL const T1000046 = T1000016 + T1000021 + T1000022; + + CCTK_REAL const T1000064 = gt13L*T1000063; + + CCTK_REAL const T1000071 = gt33L*T1000009; + + CCTK_REAL const T1000079 = T1000073 + T1000076 + T1000077 + T1000078; + + CCTK_REAL const T1000088 = T1000073 + T1000086 + T1000087; + + CCTK_REAL const T1000094 = T1000038 + T1000039 + T1000093; + + CCTK_REAL const T1000095 = T1000060 + T1000065 + T1000066; + + CCTK_REAL const T1000102 = gt23L*T1000008; + + CCTK_REAL const T1000107 = gt23L*T1000009; + + CCTK_REAL const T1000117 = gt13L*T1000011; + + CCTK_REAL const T1000134 = gt12L*T1000041; + + CCTK_REAL const T1000143 = gt33L*T1000063; + + Xtn2 = T1000146 + T1000147 + T1000148 + T1000149 + T1000150 + T1000154; + + Rphi11 = 2*(-PDstandardNth11phi - gt11L*gtu11*PDstandardNth11phi - + 2*gt11L*gtu21*PDstandardNth12phi - 2*gt11L*gtu31*PDstandardNth13phi - + gt11L*gtu22*PDstandardNth22phi - 2*gt11L*gtu32*PDstandardNth23phi - + gt11L*gtu33*PDstandardNth33phi + Gt311*PDstandardNth3phi + + gt11L*Gt311*gtu11*PDstandardNth3phi + + 2*gt11L*Gt312*gtu21*PDstandardNth3phi + + gt11L*Gt322*gtu22*PDstandardNth3phi + + 2*gt11L*Gt313*gtu31*PDstandardNth3phi + + 2*gt11L*Gt323*gtu32*PDstandardNth3phi + + gt11L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt111 + Gt111*gt11L*gtu11 + 2*Gt112*gt11L*gtu21 + + gt11L*Gt122*gtu22 + 2*Gt113*gt11L*gtu31 + 2*gt11L*Gt123*gtu32 + + gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandardNth2phi - + 4*gt11L*gtu31*PDstandardNth3phi) + + PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 - + 4*gt11L*gtu32*PDstandardNth3phi + + gt11L*(T1000146 + T1000147 + T1000148 + T1000149 + T1000150)) - + 2*gt11L*gtu22*T1000152 - 2*gt11L*gtu33*T1000153 + T1000151*(2 + T1000158)); + + Rphi12 = 2*(-(gt12L*gtu11*PDstandardNth11phi) - PDstandardNth12phi - + 2*gt12L*gtu21*PDstandardNth12phi - 2*gt12L*gtu31*PDstandardNth13phi - + gt12L*gtu22*PDstandardNth22phi - 2*gt12L*gtu32*PDstandardNth23phi - + gt12L*gtu33*PDstandardNth33phi + Gt312*PDstandardNth3phi + + gt12L*Gt311*gtu11*PDstandardNth3phi + + 2*gt12L*Gt312*gtu21*PDstandardNth3phi + + gt12L*Gt322*gtu22*PDstandardNth3phi + + 2*gt12L*Gt313*gtu31*PDstandardNth3phi + + 2*gt12L*Gt323*gtu32*PDstandardNth3phi + + gt12L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt112 + Gt111*gt12L*gtu11 + 2*Gt112*gt12L*gtu21 + + Gt122*gt12L*gtu22 + 2*Gt113*gt12L*gtu31 + 2*Gt123*gt12L*gtu32 + + gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandardNth2phi - + 4*gt12L*gtu31*PDstandardNth3phi) - 2*gt12L*gtu11*T1000151 - + 2*gt12L*gtu22*T1000152 - 2*gt12L*gtu33*T1000153 + + PDstandardNth2phi*(Gt212 + 2*gt12L*Gt212*gtu21 - + 4*gt12L*gtu32*PDstandardNth3phi + + gt12L*(T1000147 + T1000148 + T1000149 + T1000150 + T1000154))); + + Rphi13 = 2*(-PDstandardNth13phi + + gt13L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi) - gt13L*gtu22*PDstandardNth22phi - + 2*gt13L*gtu32*PDstandardNth23phi - gt13L*gtu33*PDstandardNth33phi + + Gt313*PDstandardNth3phi + gt13L*Gt311*gtu11*PDstandardNth3phi + + 2*gt13L*Gt312*gtu21*PDstandardNth3phi + + gt13L*Gt322*gtu22*PDstandardNth3phi + + 2*gt13L*Gt313*gtu31*PDstandardNth3phi + + 2*gt13L*Gt323*gtu32*PDstandardNth3phi + + gt13L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt113 + Gt111*gt13L*gtu11 + 2*Gt112*gt13L*gtu21 + + Gt122*gt13L*gtu22 + 2*Gt113*gt13L*gtu31 + 2*Gt123*gt13L*gtu32 + + Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandardNth2phi + + (2 - 4*gt13L*gtu31)*PDstandardNth3phi) - 2*gt13L*gtu11*T1000151 - + 2*gt13L*gtu22*T1000152 - 2*gt13L*gtu33*T1000153 + + PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 - + 4*gt13L*gtu32*PDstandardNth3phi + + gt13L*(T1000146 + T1000147 + T1000149 + T1000150 + T1000154))); + + Rphi22 = 2*(-PDstandardNth22phi + + gt22L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi) - + 2*gt22L*gtu32*PDstandardNth23phi - gt22L*gtu33*PDstandardNth33phi + + Gt322*PDstandardNth3phi + gt22L*Gt311*gtu11*PDstandardNth3phi + + 2*gt22L*Gt312*gtu21*PDstandardNth3phi + + gt22L*Gt322*gtu22*PDstandardNth3phi + + 2*gt22L*Gt313*gtu31*PDstandardNth3phi + + 2*gt22L*Gt323*gtu32*PDstandardNth3phi + + gt22L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt122 + Gt111*gt22L*gtu11 + 2*Gt112*gt22L*gtu21 + + Gt122*gt22L*gtu22 + 2*Gt113*gt22L*gtu31 + 2*Gt123*gt22L*gtu32 + + Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandardNth2phi - + 4*gt22L*gtu31*PDstandardNth3phi) - 2*gt22L*gtu11*T1000151 - + 2*gt22L*gtu33*T1000153 + PDstandardNth2phi* + (Gt222 + Gt222*gt22L*gtu22 - 4*gt22L*gtu32*PDstandardNth3phi + + gt22L*(T1000146 + T1000148 + T1000149 + T1000150 + T1000154)) + + T1000152*(2 + T1000161)); + + Rphi23 = 2*(-PDstandardNth23phi + + gt23L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - + 2*gtu32*PDstandardNth23phi) - gt23L*gtu33*PDstandardNth33phi + + Gt323*PDstandardNth3phi + gt23L*Gt311*gtu11*PDstandardNth3phi + + 2*gt23L*Gt312*gtu21*PDstandardNth3phi + + gt23L*Gt322*gtu22*PDstandardNth3phi + + 2*gt23L*Gt313*gtu31*PDstandardNth3phi + + 2*gt23L*Gt323*gtu32*PDstandardNth3phi + + gt23L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt123 + Gt111*gt23L*gtu11 + 2*Gt112*gt23L*gtu21 + + Gt122*gt23L*gtu22 + 2*Gt113*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + + Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandardNth2phi - + 4*gt23L*gtu31*PDstandardNth3phi) - 2*gt23L*gtu11*T1000151 - + 2*gt23L*gtu22*T1000152 - 2*gt23L*gtu33*T1000153 + + PDstandardNth2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + + (2 - 4*gt23L*gtu32)*PDstandardNth3phi + + gt23L*(T1000146 + T1000147 + T1000148 + T1000150 + T1000154))); + + Rphi33 = 2*(-PDstandardNth33phi + + (Gt333 + gt33L*(Gt322*gtu22 + + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))* + PDstandardNth3phi + PDstandardNth1phi* + (Gt133 + gt33L*(Gt111*gtu11 + Gt122*gtu22 + + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - + 4*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi))) + + 2*T1000153 + gt33L*(-(gtu11*PDstandardNth11phi) - + 2*gtu21*PDstandardNth12phi - 2*gtu31*PDstandardNth13phi - + gtu22*PDstandardNth22phi - 2*gtu32*PDstandardNth23phi - + gtu33*PDstandardNth33phi + Gt311*gtu11*PDstandardNth3phi - + 2*gtu11*T1000151 - 2*gtu22*T1000152 - 2*gtu33*T1000153) + + PDstandardNth2phi*(Gt233 + + gt33L*(Gt233*gtu33 - 4*gtu32*PDstandardNth3phi + T1000146 + T1000147 + + T1000148 + T1000149 + T1000154))); + + Atu11 = Atm11*gtu11 + Atm12*gtu21 + Atm13*gtu31; + + Atu21 = Atm11*gtu21 + Atm12*gtu22 + Atm13*gtu32; + + Atu31 = Atm11*gtu31 + Atm12*gtu32 + Atm13*gtu33; + + Atu22 = Atm21*gtu21 + Atm22*gtu22 + Atm23*gtu32; + + Atu32 = Atm21*gtu31 + Atm22*gtu32 + Atm23*gtu33; + + Atu33 = Atm31*gtu31 + Atm32*gtu32 + Atm33*gtu33; + + G112 = Gt112 - 2*gt12L*(gtu11*PDstandardNth1phi + gtu31*PDstandardNth3phi) + + PDstandardNth2phi*T1000160; + + G212 = Gt212 - 2*gt12L*(gtu22*PDstandardNth2phi + gtu32*PDstandardNth3phi) + + PDstandardNth1phi*T1000160; + Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + gtu21*(2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + 2*gt13L*Gt311*Gt323 + @@ -632,21 +1164,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con 4*Gt113*Gt311*gtu31 + 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + - Gt111*(6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xtn1) + - Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + - 2*gt11L*Gt123*gtu31 + gt12L*Xtn1) + - Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + - 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xtn1) + - gt12L*Gt212*Xtn2 + gt13L*Gt312*Xtn2 + - Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + - 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xtn2) + - Gt113*gt11L*Xtn3 + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + - 2*gt11L*Gt123*gtu33 + gt12L*Xtn3) + - Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + - 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + - gt13L*Xtn3) + 3*gt11L*gtu11*SQR(Gt111) + 3*gt11L*gtu22*SQR(Gt112) + - 3*gt11L*gtu33*SQR(Gt113) + gt22L*gtu11*SQR(Gt211) + - gt22L*gtu22*SQR(Gt212) + 2*(gt12L*Gt211*Gt212*gtu11 + + gt22L*gtu22*T1000008 + 2*(gt12L*Gt211*Gt212*gtu11 + Gt113*gt11L*Gt311*gtu11 + Gt211*gt23L*Gt311*gtu11 + gt13L*Gt211*Gt312*gtu11 + Gt112*gt11L*Gt212*gtu21 + gt12L*Gt223*Gt311*gtu21 + Gt212*gt23L*Gt311*gtu21 + @@ -668,9 +1186,23 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gt13L*Gt312*Gt333*gtu32 + Gt312*Gt313*gt33L*gtu32 + gt12L*Gt213*Gt223*gtu33 + gt12L*Gt233*Gt313*gtu33 + Gt213*gt23L*Gt313*gtu33 + gt13L*Gt213*Gt323*gtu33 + - gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*SQR(Gt212)) + - gt22L*gtu33*SQR(Gt213) + gt33L*gtu11*SQR(Gt311) + gt33L*gtu22*SQR(Gt312) + - 2*gt13L*gtu31*SQR(Gt313) + gt33L*gtu33*SQR(Gt313); + gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*T1000008) + + 2*gt13L*gtu31*T1000009 + gt33L*gtu33*T1000009 + 3*gt11L*gtu11*T1000010 + + 3*gt11L*gtu22*T1000011 + gt33L*gtu22*T1000012 + 3*gt11L*gtu33*T1000041 + + gt22L*gtu33*T1000067 + Gt111* + (6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xtn1) + + Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + + 2*gt11L*Gt123*gtu31 + gt12L*Xtn1) + + Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + + 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xtn1) + + gt12L*Gt212*Xtn2 + gt13L*Gt312*Xtn2 + + Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + + 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xtn2) + + Gt113*gt11L*Xtn3 + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + + 2*gt11L*Gt123*gtu33 + gt12L*Xtn3) + + Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + + 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + + gt13L*Xtn3) + gt22L*gtu11*SQR(Gt211) + gt33L*gtu11*SQR(Gt311); Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - 2*gtu31*PDstandardNth13gt12 + gt12L*PDstandardNth1Xt1 + @@ -678,82 +1210,63 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gtu22*PDstandardNth22gt12 - 2*gtu32*PDstandardNth23gt12 + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt12 + - (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xtn1 + - (Gt112*gt11L + gt12L*Gt212 + gt13L*Gt312)*Xtn1 + - (Gt112*gt12L + Gt212*gt22L + gt23L*Gt312)*Xtn2 + - (gt11L*Gt122 + gt12L*Gt222 + gt13L*Gt322)*Xtn2 + - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xtn3 + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xtn3 + - 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + Gt211*Gt222*gt22L + - 2*Gt122*gt13L*Gt311 + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + - gt13L*Gt222*Gt312 + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + - gt23L*Gt312*Gt313 + Gt113*gt11L*Gt322 + Gt211*gt23L*Gt322 + - gt13L*Gt313*Gt322 + Gt111* - (2*gt11L*Gt122 + Gt112*gt12L + gt12L*Gt222 + gt13L*Gt322) + - gt12L*(2*Gt122*Gt211 + Gt112*Gt212 + Gt212*Gt222 + Gt113*Gt312 + - Gt213*Gt322) + Gt311*Gt322*gt33L + gt22L*SQR(Gt212)) + - 2*((Gt123*gt12L*Gt211 + Gt113*gt12L*Gt212 + 2*Gt112*gt12L*Gt213 + - gt12L*Gt212*Gt223 + Gt212*Gt213*gt22L + Gt211*Gt223*gt22L + - gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + Gt113*gt13L*Gt312 + - gt12L*Gt233*Gt312 + Gt213*gt23L*Gt312 + - gt11L*(2*Gt112*Gt113 + Gt123*Gt212 + Gt133*Gt312) + - 2*Gt112*gt13L*Gt313 + Gt212*gt23L*Gt313 + - Gt111*(Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + - gt13L*Gt212*Gt323 + Gt211*gt23L*Gt323 + gt23L*Gt311*Gt333 + - gt13L*Gt312*Gt333 + Gt312*Gt313*gt33L)*gtu31 + - (Gt123*gt12L*Gt212 + 2*Gt122*gt12L*Gt213 + Gt113*gt12L*Gt222 + - gt12L*Gt222*Gt223 + Gt213*Gt222*gt22L + Gt212*Gt223*gt22L + - gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + - Gt222*gt23L*Gt313 + Gt112* - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + Gt113*gt13L*Gt322 + - gt12L*Gt233*Gt322 + Gt213*gt23L*Gt322 + - gt11L*(2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + - gt13L*Gt222*Gt323 + Gt212*gt23L*Gt323 + gt23L*Gt312*Gt333 + - gt13L*Gt322*Gt333 + Gt313*Gt322*gt33L)*gtu32 + - gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + - 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + - gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + - gt11L*(2*Gt111*Gt112 + Gt112*Gt212 + Gt113*Gt312) + - Gt111*(gt12L*Gt212 + Gt211*gt22L + gt23L*Gt311 + gt13L*Gt312) + - gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + - gt12L*SQR(Gt111) + gt12L*SQR(Gt212))) + - 2*gtu22*(gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + - Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + - gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + - Gt112*(2*gt11L*Gt122 + gt12L*Gt222 + Gt212*gt22L + gt23L*Gt312 + - gt13L*Gt322) + gt23L*Gt312*Gt323 + gt13L*Gt322*Gt323 + - Gt312*Gt322*gt33L + gt12L*SQR(Gt112) + - gt12L*(3*Gt122*Gt212 + Gt123*Gt312 + Gt223*Gt322 + SQR(Gt222))) + - 2*gtu33*(gt11L*Gt123*Gt223 + 2*Gt213*Gt223*gt22L + 2*Gt123*gt13L*Gt313 + - gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + gt11L*Gt133*Gt323 + - gt13L*Gt223*Gt323 + 2*Gt213*gt23L*Gt323 + - Gt113*(2*gt11L*Gt123 + gt12L*Gt223 + Gt213*gt22L + gt23L*Gt313 + - gt13L*Gt323) + gt23L*Gt313*Gt333 + gt13L*Gt323*Gt333 + - Gt313*Gt323*gt33L + gt12L*SQR(Gt113) + - gt12L*(3*Gt123*Gt213 + Gt133*Gt313 + Gt233*Gt323 + SQR(Gt223))) + + 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + 2*Gt122*gt13L*Gt311 + + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + gt13L*Gt222*Gt312 + + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + gt23L*Gt312*Gt313 + + Gt113*gt11L*Gt322 + gt13L*Gt313*Gt322 + Gt311*Gt322*gt33L + T1000013 + + T1000014 + T1000015 + gt12L* + (2*Gt122*Gt211 + Gt212*Gt222 + Gt213*Gt322 + T1000017 + T1000018) + + Gt111*(T1000016 + T1000019 + T1000020 + T1000023)) + + 2*gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + + 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + + gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + + gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + + gt12L*T1000008 + gt12L*T1000010 + + gt11L*(2*Gt111*Gt112 + T1000017 + T1000018) + + Gt111*(T1000042 + T1000043 + T1000044 + T1000045)) + 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + - Gt211*Gt222*gt22L + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + - 3*Gt112*gt13L*Gt312 + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + - Gt111*(Gt112*gt12L + Gt212*gt22L + gt23L*Gt312) + gt13L*Gt212*Gt322 + - Gt211*gt23L*Gt322 + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + - gt11L*(Gt122*Gt212 + Gt123*Gt312 + 2*SQR(Gt112)) + gt22L*SQR(Gt212) + - gt33L*SQR(Gt312)) + 2*gtu31* - (Gt112*gt11L*Gt223 + Gt113*Gt211*gt22L + Gt212*Gt213*gt22L + - Gt211*Gt223*gt22L + 2*Gt123*gt13L*Gt311 + Gt113*gt23L*Gt311 + - Gt223*gt23L*Gt311 + gt13L*Gt223*Gt312 + Gt213*gt23L*Gt312 + - Gt213*gt22L*Gt313 + Gt113*gt11L*Gt323 + Gt211*gt23L*Gt323 + - gt13L*Gt313*Gt323 + Gt111* - (2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(2*Gt123*Gt211 + Gt112*Gt213 + Gt212*Gt223 + Gt113*Gt313 + - Gt213*Gt323) + Gt311*Gt323*gt33L + gt23L*SQR(Gt313)) + - 2*gtu32*(gt11L*Gt122*Gt223 + Gt113*Gt212*gt22L + Gt213*Gt222*gt22L + - Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + - Gt223*gt23L*Gt312 + Gt223*gt22L*Gt313 + gt13L*Gt223*Gt322 + - Gt213*gt23L*Gt322 + gt11L*Gt123*Gt323 + Gt212*gt23L*Gt323 + - gt23L*Gt313*Gt323 + Gt112* - (2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(Gt122*Gt213 + Gt123*(2*Gt212 + Gt313) + - Gt223*(Gt222 + Gt323)) + Gt312*Gt323*gt33L + gt13L*SQR(Gt323))); + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + 3*Gt112*gt13L*Gt312 + + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + gt13L*Gt212*Gt322 + + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + gt33L*T1000012 + T1000013 + + T1000014 + T1000015 + gt11L*(Gt122*Gt212 + 2*T1000011 + T1000024) + + Gt111*T1000046) + 2*gtu22* + (gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + + Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + + gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + gt23L*Gt312*Gt323 + + gt13L*Gt322*Gt323 + Gt312*Gt322*gt33L + gt12L*T1000011 + + Gt112*(T1000019 + T1000020 + T1000021 + T1000022 + T1000023) + + gt12L*(3*Gt122*Gt212 + Gt223*Gt322 + T1000024 + T1000096)) + + 2*gtu31*(Gt123*gt12L*Gt211 + gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + + gt12L*Gt233*Gt312 + 2*Gt112*gt13L*Gt313 + gt13L*Gt212*Gt323 + + gt23L*Gt311*Gt333 + gt13L*Gt312*Gt333 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000032 + T1000049 + T1000052 + + T1000055 + T1000057 + gt11L*(Gt123*Gt212 + Gt133*Gt312 + T1000058) + + T1000097 + T1000099) + 2*gtu31* + (Gt112*gt11L*Gt223 + Gt113*gt11L*Gt323 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000040 + + gt12L*(2*Gt123*Gt211 + Gt212*Gt223 + Gt213*Gt323 + T1000047 + + T1000048) + T1000050 + T1000051 + T1000053 + T1000054 + T1000056 + + T1000100 + T1000103 + T1000106 + T1000107) + + 2*gtu32*(gt11L*Gt122*Gt223 + 2*Gt123*gt13L*Gt312 + gt11L*Gt123*Gt323 + + T1000033 + T1000034 + T1000035 + T1000036 + Gt112*T1000040 + + gt12L*(Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323) + T1000059) + + T1000062 + T1000064 + T1000114 + T1000116 + T1000121 + T1000123 + + T1000124 + T1000125) + 2*gtu32* + (gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + + gt12L*Gt233*Gt322 + gt11L* + (2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + gt13L*Gt222*Gt323 + + gt23L*Gt312*Gt333 + gt13L*Gt322*Gt333 + Gt112*T1000032 + T1000033 + + T1000034 + T1000035 + T1000036 + T1000061 + T1000110 + T1000113 + + T1000115 + T1000119 + T1000120 + T1000126) + + 2*gtu33*(gt11L*Gt123*Gt223 + gt11L*Gt133*Gt323 + + Gt113*(T1000030 + T1000031 + T1000037 + T1000038 + T1000039) + + T1000074 + T1000075 + T1000080 + + gt12L*(3*Gt123*Gt213 + Gt233*Gt323 + T1000069 + T1000081) + T1000083 + + T1000084 + T1000133 + T1000134 + T1000135 + T1000136 + T1000137) + + (Gt111*gt12L + T1000042 + T1000043)*Xtn1 + + (Gt112*gt11L + T1000044 + T1000045)*Xtn1 + + (gt11L*Gt122 + T1000020 + T1000023)*Xtn2 + T1000046*Xtn2 + + T1000032*Xtn3 + T1000094*Xtn3); Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - 2*gtu31*PDstandardNth13gt13 + gt13L*PDstandardNth1Xt1 + @@ -761,85 +1274,64 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gtu22*PDstandardNth22gt13 - 2*gtu32*PDstandardNth23gt13 - gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + gt13L*PDstandardNth3Xt3 + - (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xtn1 + - (Gt111*gt13L + Gt211*gt23L + Gt311*gt33L)*Xtn1 + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xtn2 + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xtn2 + - (gt11L*Gt133 + gt12L*Gt233 + gt13L*Gt333)*Xtn3 + - (Gt113*gt13L + Gt213*gt23L + Gt313*gt33L)*Xtn3 + - 2*((Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + - gt12L*Gt213*Gt222 + Gt212*Gt213*gt22L + Gt211*Gt222*gt23L + - Gt123*gt13L*Gt311 + Gt223*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + - Gt213*gt23L*Gt312 + Gt112*gt13L*Gt313 + gt12L*Gt223*Gt313 + - Gt212*gt23L*Gt313 + gt11L* - (2*Gt112*Gt113 + Gt122*Gt213 + Gt123*Gt313) + gt13L*Gt213*Gt322 + - gt13L*Gt313*Gt323 + Gt312*Gt313*gt33L + Gt211*Gt322*gt33L + - Gt311*Gt323*gt33L + Gt111*(Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)) - *gtu21 + (Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + - Gt212*gt22L*Gt233 + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + - 2*Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + Gt123*gt13L*Gt313 + - Gt223*gt23L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + - Gt212*gt23L*Gt333 + gt13L*Gt323*Gt333 + - Gt112*(2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + - Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L)*gtu32 + - gtu21*(2*Gt123*gt12L*Gt211 + Gt112*gt13L*Gt212 + gt12L*Gt212*Gt223 + - Gt211*Gt223*gt22L + Gt112*Gt211*gt23L + 2*Gt123*gt13L*Gt311 + - Gt223*gt23L*Gt311 + Gt113*gt13L*Gt312 + gt13L*Gt223*Gt312 + - Gt213*gt23L*Gt312 + gt12L*Gt213*Gt323 + Gt211*gt23L*Gt323 + - gt13L*Gt313*Gt323 + gt11L* - (2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + - Gt111*(Gt112*gt13L + gt12L*Gt223 + gt13L*Gt323) + - Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + Gt312*Gt313*gt33L + - Gt311*Gt323*gt33L + gt23L*SQR(Gt212))) + - 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + - Gt213*Gt223*gt22L + Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + - Gt233*gt23L*Gt312 + 2*Gt123*gt13L*Gt313 + Gt223*gt23L*Gt313 + - Gt113*gt13L*Gt323 + gt13L*Gt223*Gt323 + gt12L*Gt233*Gt323 + - Gt213*gt23L*Gt323 + gt11L* - (2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + gt13L*Gt323*Gt333 + - Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L + - Gt112*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + gt12L*SQR(Gt223)) + - 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + - Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + - 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + - Gt211*gt23L*Gt313 + gt11L* - (2*Gt111*Gt113 + Gt112*Gt213 + Gt113*Gt313) + Gt211*Gt312*gt33L + - 2*Gt311*Gt313*gt33L + Gt111* - (gt12L*Gt213 + Gt211*gt23L + gt13L*Gt313 + Gt311*gt33L) + - gt13L*SQR(Gt111) + gt13L*SQR(Gt313)) + 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + 2*Gt133*gt13L*Gt311 + - Gt233*gt23L*Gt311 + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + - Gt213*gt23L*Gt313 + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + - gt13L*Gt313*Gt333 + Gt111* - (2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + Gt213*gt23L*Gt313 + + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + - Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + Gt311*Gt333*gt33L + - gt33L*SQR(Gt313)) + 2*gtu31* - (Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + - Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + Gt233*gt23L*Gt311 + - 3*Gt113*gt13L*Gt313 + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + - gt13L*Gt213*Gt323 + gt13L*Gt313*Gt333 + Gt211*Gt323*gt33L + - Gt311*Gt333*gt33L + Gt111*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + - gt11L*(Gt123*Gt213 + Gt133*Gt313 + 2*SQR(Gt113)) + gt22L*SQR(Gt213) + - gt33L*SQR(Gt313)) + 2*gtu22* - (2*Gt123*gt12L*Gt212 + Gt122*gt13L*Gt212 + gt12L*Gt222*Gt223 + - Gt212*Gt223*gt22L + Gt212*Gt222*gt23L + 3*Gt123*gt13L*Gt312 + - 2*Gt223*gt23L*Gt312 + gt13L*Gt223*Gt322 + gt12L*Gt223*Gt323 + - Gt212*gt23L*Gt323 + gt11L* - (2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + Gt212*Gt322*gt33L + - 2*Gt312*Gt323*gt33L + Gt112* - (gt12L*Gt223 + Gt212*gt23L + gt13L*Gt323 + Gt312*gt33L) + - gt13L*SQR(Gt112) + gt13L*SQR(Gt323)) + + Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + T1000068 + T1000070 + + T1000071 + T1000072 + Gt111*T1000079) + + 2*gtu31*(Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + + Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + 3*Gt113*gt13L*Gt313 + + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + gt13L*Gt213*Gt323 + + Gt211*Gt323*gt33L + gt22L*T1000067 + T1000068 + + gt11L*(Gt123*Gt213 + 2*T1000041 + T1000069) + T1000070 + T1000071 + + T1000072 + Gt111*T1000088) + + 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + + Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + + 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + + Gt211*gt23L*Gt313 + Gt211*Gt312*gt33L + 2*Gt311*Gt313*gt33L + + gt13L*T1000009 + gt13L*T1000010 + + gt11L*(2*Gt111*Gt113 + T1000047 + T1000048) + + Gt111*(T1000089 + T1000090 + T1000091 + T1000092)) + + 2*gtu21*(Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + + gt12L*Gt213*Gt222 + Gt211*Gt222*gt23L + Gt123*gt13L*Gt311 + + gt12L*Gt223*Gt313 + gt13L*Gt213*Gt322 + Gt211*Gt322*gt33L + T1000025 + + T1000027 + T1000051 + T1000054 + T1000055 + T1000056 + T1000057 + + gt11L*(Gt123*Gt313 + T1000058 + T1000059) + Gt111*T1000095 + + T1000104 + T1000105) + 2*gtu21* + (2*Gt123*gt12L*Gt211 + gt12L*Gt213*Gt323 + + gt11L*(2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + T1000026 + + T1000027 + T1000028 + T1000049 + T1000050 + T1000051 + T1000052 + + T1000053 + T1000054 + T1000055 + T1000056 + + Gt111*(T1000038 + T1000039 + T1000060) + T1000098 + T1000101 + + T1000102 + T1000108 + T1000109) + + 2*gtu22*(2*Gt123*gt12L*Gt212 + 3*Gt123*gt13L*Gt312 + gt12L*Gt223*Gt323 + + gt11L*(2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + + 2*Gt312*Gt323*gt33L + T1000034 + T1000036 + T1000061 + T1000062 + + T1000064 + Gt112*(T1000038 + T1000039 + T1000065 + T1000066) + + T1000111 + T1000112 + T1000117 + T1000118 + T1000127) + + 2*gtu32*(Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + Gt212*gt22L*Gt233 + + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + 2*Gt133*gt13L*Gt312 + + Gt123*gt13L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + + gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + + Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + T1000074 + T1000075 + + Gt112*T1000079 + T1000080 + T1000082 + T1000085 + T1000132) + + 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + + Gt213*Gt223*gt22L + gt12L*Gt233*Gt323 + + gt11L*(2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + T1000074 + + T1000075 + T1000080 + gt12L*T1000081 + T1000082 + T1000083 + + T1000084 + T1000085 + Gt112*T1000088 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000138) + 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + Gt213*Gt223*gt23L + 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + gt11L*Gt133*Gt333 + gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + - Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + - Gt113*(2*gt11L*Gt133 + gt12L*Gt233 + Gt213*gt23L + gt13L*Gt333 + - Gt313*gt33L) + gt13L*SQR(Gt113) + gt13L*SQR(Gt333))); + Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + gt13L*T1000041 + + Gt113*(T1000076 + T1000077 + T1000078 + T1000086 + T1000087) + + gt13L*T1000145) + (Gt113*gt11L + T1000089 + T1000090)*Xtn1 + + (Gt111*gt13L + T1000091 + T1000092)*Xtn1 + T1000094*Xtn2 + + T1000095*Xtn2 + (gt11L*Gt133 + T1000077 + T1000078)*Xtn3 + T1000088*Xtn3); Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + @@ -862,34 +1354,33 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con 2*Gt123*Gt311*gtu31 + 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - - gtu33*khalf*PDstandardNth33gt22 + Gt212*gt22L*Xtn1 + - Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + 2*gt11L*Gt122*gtu21 + - 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + 2*Gt123*gt12L*gtu32 + - gt12L*Xtn1) + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + - 2*gt23L*Gt313*gtu11 + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + - 2*gt12L*Gt133*gtu31 + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + - 2*Gt123*gt23L*gtu32 + gt23L*Xtn1) + Gt122*gt12L*Xtn2 + - Gt222*gt22L*Xtn2 + gt23L*Gt322*Xtn2 + Gt123*gt12L*Xtn3 + Gt223*gt22L*Xtn3 + - gt23L*Gt323*Xtn3 + gt11L*gtu11*SQR(Gt112) + - 2*(Gt112*Gt211*gt22L*gtu11 + Gt112*gt23L*Gt311*gtu11 + - Gt113*gt12L*Gt312*gtu11 + Gt112*gt13L*Gt312*gtu11 + - Gt111*Gt122*gt12L*gtu21 + Gt122*Gt211*gt22L*gtu21 + - Gt112*Gt212*gt22L*gtu21 + Gt223*gt22L*Gt312*gtu21 + - Gt112*gt23L*Gt312*gtu21 + Gt112*gt13L*Gt322*gtu21 + - Gt213*gt22L*Gt322*gtu21 + Gt122*Gt212*gt22L*gtu22 + - Gt123*gt12L*Gt322*gtu22 + Gt122*gt13L*Gt322*gtu22 + - Gt223*gt22L*Gt322*gtu22 + gt23L*Gt322*Gt323*gtu22 + - Gt112*Gt113*gt12L*gtu31 + Gt123*Gt211*gt22L*gtu31 + - Gt112*Gt213*gt22L*gtu31 + Gt112*gt13L*Gt323*gtu31 + - Gt213*gt22L*Gt323*gtu31 + gt11L*Gt122*Gt123*gtu32 + - Gt123*gt13L*Gt322*gtu32 + gt22L*Gt233*Gt322*gtu32 + - Gt122*gt13L*Gt323*gtu32 + Gt223*gt22L*Gt323*gtu32 + - gt12L*Gt133*Gt323*gtu33 + Gt123*gt13L*Gt323*gtu33 + - gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*SQR(Gt112)) + - gt11L*gtu22*SQR(Gt122) + gt11L*gtu33*SQR(Gt123) + - 3*gt22L*gtu11*SQR(Gt212) + 3*gt22L*gtu22*SQR(Gt222) + - 3*gt22L*gtu33*SQR(Gt223) + gt33L*gtu11*SQR(Gt312) + - gt33L*gtu22*SQR(Gt322) + 2*gt23L*gtu32*SQR(Gt323) + gt33L*gtu33*SQR(Gt323); + gtu33*khalf*PDstandardNth33gt22 + 3*gt22L*gtu11*T1000008 + + gt11L*gtu11*T1000011 + 2*(Gt112*Gt211*gt22L*gtu11 + + Gt112*gt23L*Gt311*gtu11 + Gt113*gt12L*Gt312*gtu11 + + Gt112*gt13L*Gt312*gtu11 + Gt111*Gt122*gt12L*gtu21 + + Gt122*Gt211*gt22L*gtu21 + Gt112*Gt212*gt22L*gtu21 + + Gt223*gt22L*Gt312*gtu21 + Gt112*gt23L*Gt312*gtu21 + + Gt112*gt13L*Gt322*gtu21 + Gt213*gt22L*Gt322*gtu21 + + Gt122*Gt212*gt22L*gtu22 + Gt123*gt12L*Gt322*gtu22 + + Gt122*gt13L*Gt322*gtu22 + Gt223*gt22L*Gt322*gtu22 + + gt23L*Gt322*Gt323*gtu22 + Gt112*Gt113*gt12L*gtu31 + + Gt123*Gt211*gt22L*gtu31 + Gt112*Gt213*gt22L*gtu31 + + Gt112*gt13L*Gt323*gtu31 + Gt213*gt22L*Gt323*gtu31 + + gt11L*Gt122*Gt123*gtu32 + Gt123*gt13L*Gt322*gtu32 + + gt22L*Gt233*Gt322*gtu32 + Gt122*gt13L*Gt323*gtu32 + + Gt223*gt22L*Gt323*gtu32 + gt12L*Gt133*Gt323*gtu33 + + Gt123*gt13L*Gt323*gtu33 + gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*T1000011) + + gt33L*gtu11*T1000012 + 2*gt23L*gtu32*T1000063 + gt33L*gtu33*T1000063 + + 3*gt22L*gtu33*T1000081 + 3*gt22L*gtu22*T1000096 + gt11L*gtu33*T1000139 + + Gt212*gt22L*Xtn1 + Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + + 2*Gt123*gt12L*gtu32 + gt12L*Xtn1) + + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + 2*gt12L*Gt133*gtu31 + + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + + gt23L*Xtn1) + Gt122*gt12L*Xtn2 + Gt222*gt22L*Xtn2 + gt23L*Gt322*Xtn2 + + Gt123*gt12L*Xtn3 + Gt223*gt22L*Xtn3 + gt23L*Gt323*Xtn3 + + gt11L*gtu22*SQR(Gt122) + gt33L*gtu22*SQR(Gt322); Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - 2*gtu31*PDstandardNth13gt23 - gtu22*PDstandardNth22gt23 - @@ -897,80 +1388,70 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + gt23L*PDstandardNth3Xt3 + - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xtn1 + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xtn1 + - (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xtn2 + - (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xtn2 + - (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xtn3 + - (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xtn3 + - 2*((Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + - Gt123*gt12L*Gt212 + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + - Gt123*Gt211*gt22L + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + - Gt212*Gt222*gt23L + Gt123*gt23L*Gt311 + Gt123*gt13L*Gt312 + - 2*Gt223*gt23L*Gt312 + Gt113*gt13L*Gt322 + Gt213*gt23L*Gt322 + - Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + - Gt212*gt23L*Gt323 + gt23L*Gt313*Gt323 + Gt122*Gt311*gt33L + - Gt222*Gt312*gt33L + Gt313*Gt322*gt33L + Gt312*Gt323*gt33L)*gtu21 + - (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + - gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + - 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + - Gt212*Gt223*gt23L + Gt133*gt23L*Gt311 + Gt133*gt13L*Gt312 + - 2*Gt233*gt23L*Gt312 + Gt113*gt13L*Gt323 + Gt213*gt23L*Gt323 + - Gt113*gt12L*Gt333 + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + - Gt212*gt23L*Gt333 + gt23L*Gt313*Gt333 + Gt123*Gt311*gt33L + - Gt223*Gt312*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L)*gtu31 + - gtu21*(Gt113*gt11L*Gt122 + Gt122*gt13L*Gt212 + 2*Gt122*gt12L*Gt213 + - Gt113*gt12L*Gt222 + Gt113*Gt212*gt22L + 2*Gt213*Gt222*gt22L + - Gt212*Gt222*gt23L + Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + - Gt223*gt23L*Gt312 + Gt123*gt12L*Gt313 + Gt122*gt13L*Gt313 + - Gt223*gt22L*Gt313 + Gt222*gt23L*Gt313 + Gt113*gt13L*Gt322 + - 2*Gt213*gt23L*Gt322 + gt23L*Gt313*Gt323 + Gt212*Gt322*gt33L + - Gt313*Gt322*gt33L + Gt312*Gt323*gt33L + - Gt112*(Gt113*gt12L + Gt212*gt23L + Gt312*gt33L) + gt13L*SQR(Gt112))) - + 2*gtu31*(2*Gt213*Gt223*gt22L + Gt112*Gt213*gt23L + - Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + - gt12L*Gt133*Gt313 + gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + - Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + 2*Gt213*gt23L*Gt323 + - Gt113*(gt11L*Gt123 + Gt112*gt13L + gt12L*Gt223 + Gt213*gt22L + - gt23L*Gt313 + gt13L*Gt323) + gt23L*Gt313*Gt333 + - Gt112*Gt313*gt33L + Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L + gt12L*SQR(Gt113)) + - 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + - Gt113*gt12L*Gt212 + Gt112*gt13L*Gt212 + 2*Gt112*gt12L*Gt213 + - Gt113*Gt211*gt22L + 2*Gt212*Gt213*gt22L + Gt112*Gt211*gt23L + - Gt113*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + 3*Gt213*gt23L*Gt312 + - Gt113*gt12L*Gt313 + Gt112*gt13L*Gt313 + Gt213*gt22L*Gt313 + - Gt212*gt23L*Gt313 + Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + - 2*Gt312*Gt313*gt33L + gt23L*SQR(Gt212) + gt23L*SQR(Gt313)) + 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + Gt123*gt12L*Gt222 + Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + Gt223*gt22L*Gt323 + Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + - 2*Gt322*Gt323*gt33L + gt23L*SQR(Gt222) + gt23L*SQR(Gt323)) + + 2*Gt322*Gt323*gt33L + gt23L*T1000063 + gt23L*T1000096) + + 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + + 2*Gt212*Gt213*gt22L + 3*Gt213*gt23L*Gt312 + Gt113*gt12L*Gt313 + + 2*Gt312*Gt313*gt33L + T1000057 + T1000097 + T1000098 + T1000099 + + T1000100 + T1000101 + T1000102 + T1000103 + T1000104 + T1000105 + + T1000106 + T1000107 + T1000108 + T1000109) + + 2*gtu21*(Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + Gt123*Gt211*gt22L + + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + Gt123*gt23L*Gt311 + + Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + + Gt122*Gt311*gt33L + Gt222*Gt312*gt33L + T1000035 + T1000036 + + T1000110 + T1000111 + T1000112 + T1000113 + T1000114 + T1000115 + + T1000116 + T1000122) + 2*gtu21* + (Gt113*gt11L*Gt122 + 2*Gt213*Gt222*gt22L + Gt123*gt12L*Gt313 + + Gt122*gt13L*Gt313 + 2*Gt213*gt23L*Gt322 + + Gt112*(T1000029 + T1000065 + T1000066) + T1000111 + T1000113 + + T1000114 + T1000115 + T1000116 + T1000117 + T1000118 + T1000119 + + T1000120 + T1000121 + T1000122 + T1000123 + T1000124 + T1000125 + + T1000126 + T1000127) + 2*gtu31* + (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + + gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + + 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + + Gt133*gt23L*Gt311 + 2*Gt233*gt23L*Gt312 + Gt113*gt12L*Gt333 + + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + Gt123*Gt311*gt33L + + Gt223*Gt312*gt33L + T1000080 + T1000085 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000132 + T1000133) + + 2*gtu31*(Gt112*Gt213*gt23L + gt12L*Gt133*Gt313 + + Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + Gt112*Gt313*gt33L + + T1000074 + T1000080 + T1000082 + T1000085 + + Gt113*(T1000030 + T1000031 + T1000038 + T1000039 + T1000060 + + T1000093) + T1000128 + T1000129 + T1000133 + T1000134 + T1000135 + + T1000136 + T1000137 + T1000138) + 2*gtu32*(gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + Gt133*Gt212*gt22L + 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + - Gt222*Gt223*gt23L + Gt133*gt23L*Gt312 + Gt133*gt13L*Gt322 + - 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + Gt223*gt23L*Gt323 + - Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + Gt223*gt22L*Gt333 + - Gt222*gt23L*Gt333 + gt23L*Gt323*Gt333 + Gt123*Gt312*gt33L + - Gt223*Gt322*gt33L + Gt322*Gt333*gt33L + gt33L*SQR(Gt323)) + - 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + Gt123*gt13L*Gt222 + - 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + Gt122*Gt213*gt23L + - Gt222*Gt223*gt23L + Gt123*gt23L*Gt313 + Gt133*gt13L*Gt322 + - Gt233*gt23L*Gt322 + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + - gt22L*Gt233*Gt323 + 3*Gt223*gt23L*Gt323 + gt23L*Gt323*Gt333 + - Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + Gt322*Gt333*gt33L + - gt11L*SQR(Gt123) + 2*gt22L*SQR(Gt223) + gt33L*SQR(Gt323)) + - 2*gtu33*(gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + + Gt133*gt23L*Gt312 + 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + + Gt223*gt23L*Gt323 + Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + + Gt223*gt22L*Gt333 + Gt222*gt23L*Gt333 + Gt123*Gt312*gt33L + + Gt223*Gt322*gt33L + T1000140 + T1000141 + T1000142 + T1000143 + + T1000144) + 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + + Gt123*gt13L*Gt222 + 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + + Gt122*Gt213*gt23L + Gt123*gt23L*Gt313 + Gt233*gt23L*Gt322 + + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + gt22L*Gt233*Gt323 + + 3*Gt223*gt23L*Gt323 + Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + + 2*gt22L*T1000081 + gt11L*T1000139 + T1000140 + T1000141 + T1000142 + + T1000143 + T1000144) + 2*gtu33* + (gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + gt12L*Gt133*Gt223 + Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + gt22L*Gt233*Gt333 + Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + - 2*Gt323*Gt333*gt33L + gt23L*SQR(Gt223) + gt23L*SQR(Gt333))); + 2*Gt323*Gt333*gt33L + gt23L*T1000081 + gt23L*T1000145) + + T1000032*Xtn1 + T1000095*Xtn1 + + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xtn2 + + (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xtn2 + + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xtn3 + + (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xtn3); Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + @@ -987,354 +1468,49 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + 2*Gt133*Gt311*gtu31 + 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + - PDstandardNth3Xt3) + Gt113*gt13L*Xtn1 + Gt213*gt23L*Xtn1 + - Gt313*gt33L*Xtn1 + Gt123*gt13L*Xtn2 + Gt223*gt23L*Xtn2 + Gt323*gt33L*Xtn2 + - Gt133*gt13L*Xtn3 + Gt333*gt33L*Xtn3 + - Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xtn3) + - gtu11*(2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + + PDstandardNth3Xt3) + gtu11* + (2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + 2*Gt113*Gt311*gt33L + 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + - gt11L*SQR(Gt113)) + 2*(Gt111*Gt113*gt13L*gtu11 + - Gt113*gt12L*Gt213*gtu11 + Gt112*gt13L*Gt213*gtu11 + - Gt113*Gt211*gt23L*gtu11 + Gt113*gt11L*Gt123*gtu21 + - Gt112*Gt113*gt13L*gtu21 + Gt111*Gt123*gt13L*gtu21 + - Gt123*gt12L*Gt213*gtu21 + Gt122*gt13L*Gt213*gtu21 + - Gt113*gt12L*Gt223*gtu21 + Gt112*gt13L*Gt223*gtu21 + - Gt213*Gt223*gt22L*gtu21 + Gt123*Gt211*gt23L*gtu21 + - Gt113*Gt212*gt23L*gtu21 + Gt213*Gt222*gt23L*gtu21 + - Gt113*Gt312*gt33L*gtu21 + Gt223*Gt312*gt33L*gtu21 + - Gt112*Gt123*gt13L*gtu22 + Gt123*gt12L*Gt223*gtu22 + - Gt122*gt13L*Gt223*gtu22 + Gt123*Gt212*gt23L*gtu22 + - Gt222*Gt223*gt23L*gtu22 + Gt223*Gt322*gt33L*gtu22 + - Gt113*gt11L*Gt133*gtu31 + Gt111*Gt133*gt13L*gtu31 + - gt12L*Gt133*Gt213*gtu31 + Gt123*gt13L*Gt213*gtu31 + - Gt113*gt12L*Gt233*gtu31 + Gt112*gt13L*Gt233*gtu31 + - Gt213*gt22L*Gt233*gtu31 + Gt133*Gt211*gt23L*gtu31 + - Gt113*Gt213*gt23L*gtu31 + Gt213*Gt223*gt23L*gtu31 + - Gt212*Gt233*gt23L*gtu31 + Gt113*Gt313*gt33L*gtu31 + - Gt213*Gt323*gt33L*gtu31 + gt11L*Gt123*Gt133*gtu32 + - Gt113*Gt123*gt13L*gtu32 + Gt112*Gt133*gt13L*gtu32 + - gt12L*Gt133*Gt223*gtu32 + Gt123*gt13L*Gt223*gtu32 + - Gt123*gt12L*Gt233*gtu32 + Gt122*gt13L*Gt233*gtu32 + - Gt223*gt22L*Gt233*gtu32 + Gt133*Gt212*gt23L*gtu32 + - Gt123*Gt213*gt23L*gtu32 + Gt222*Gt233*gt23L*gtu32 + - Gt233*Gt322*gt33L*gtu32 + Gt223*Gt323*gt33L*gtu32 + - Gt113*Gt133*gt13L*gtu33 + gt12L*Gt133*Gt233*gtu33 + - Gt123*gt13L*Gt233*gtu33 + Gt133*Gt213*gt23L*gtu33 + - Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*SQR(Gt113)) + - gt11L*gtu22*SQR(Gt123) + gt11L*gtu33*SQR(Gt133) + gt22L*gtu11*SQR(Gt213) + - gt22L*gtu22*SQR(Gt223) + 2*gt23L*gtu32*SQR(Gt223) + - gt22L*gtu33*SQR(Gt233) + 3*gt33L*gtu11*SQR(Gt313) + - 3*gt33L*gtu22*SQR(Gt323) + 3*gt33L*gtu33*SQR(Gt333); - - Rphi11 = 2*(-PDstandardNth11phi - gt11L*gtu11*PDstandardNth11phi - - 2*gt11L*gtu21*PDstandardNth12phi - 2*gt11L*gtu31*PDstandardNth13phi - - gt11L*gtu22*PDstandardNth22phi - 2*gt11L*gtu32*PDstandardNth23phi - - gt11L*gtu33*PDstandardNth33phi + Gt311*PDstandardNth3phi + - gt11L*Gt311*gtu11*PDstandardNth3phi + - 2*gt11L*Gt312*gtu21*PDstandardNth3phi + - gt11L*Gt322*gtu22*PDstandardNth3phi + - 2*gt11L*Gt313*gtu31*PDstandardNth3phi + - 2*gt11L*Gt323*gtu32*PDstandardNth3phi + - gt11L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt111 + Gt111*gt11L*gtu11 + 2*Gt112*gt11L*gtu21 + - gt11L*Gt122*gtu22 + 2*Gt113*gt11L*gtu31 + 2*gt11L*Gt123*gtu32 + - gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandardNth2phi - - 4*gt11L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 + - gt11L*(2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt11L*gtu32*PDstandardNth3phi) + - (2 - 2*gt11L*gtu11)*SQR(PDstandardNth1phi) - - 2*gt11L*gtu22*SQR(PDstandardNth2phi) - - 2*gt11L*gtu33*SQR(PDstandardNth3phi)); - - Rphi12 = 2*(-(gt12L*gtu11*PDstandardNth11phi) - PDstandardNth12phi - - 2*gt12L*gtu21*PDstandardNth12phi - 2*gt12L*gtu31*PDstandardNth13phi - - gt12L*gtu22*PDstandardNth22phi - 2*gt12L*gtu32*PDstandardNth23phi - - gt12L*gtu33*PDstandardNth33phi + Gt312*PDstandardNth3phi + - gt12L*Gt311*gtu11*PDstandardNth3phi + - 2*gt12L*Gt312*gtu21*PDstandardNth3phi + - gt12L*Gt322*gtu22*PDstandardNth3phi + - 2*gt12L*Gt313*gtu31*PDstandardNth3phi + - 2*gt12L*Gt323*gtu32*PDstandardNth3phi + - gt12L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt112 + Gt111*gt12L*gtu11 + 2*Gt112*gt12L*gtu21 + - Gt122*gt12L*gtu22 + 2*Gt113*gt12L*gtu31 + 2*Gt123*gt12L*gtu32 + - gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandardNth2phi - - 4*gt12L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt212 + 2*gt12L*Gt212*gtu21 + - gt12L*(Gt211*gtu11 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt12L*gtu32*PDstandardNth3phi) - - 2*gt12L*gtu11*SQR(PDstandardNth1phi) - - 2*gt12L*gtu22*SQR(PDstandardNth2phi) - - 2*gt12L*gtu33*SQR(PDstandardNth3phi)); - - Rphi13 = 2*(-PDstandardNth13phi + - gt13L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi) - gt13L*gtu22*PDstandardNth22phi - - 2*gt13L*gtu32*PDstandardNth23phi - gt13L*gtu33*PDstandardNth33phi + - Gt313*PDstandardNth3phi + gt13L*Gt311*gtu11*PDstandardNth3phi + - 2*gt13L*Gt312*gtu21*PDstandardNth3phi + - gt13L*Gt322*gtu22*PDstandardNth3phi + - 2*gt13L*Gt313*gtu31*PDstandardNth3phi + - 2*gt13L*Gt323*gtu32*PDstandardNth3phi + - gt13L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt113 + Gt111*gt13L*gtu11 + 2*Gt112*gt13L*gtu21 + - Gt122*gt13L*gtu22 + 2*Gt113*gt13L*gtu31 + 2*Gt123*gt13L*gtu32 + - Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandardNth2phi + - (2 - 4*gt13L*gtu31)*PDstandardNth3phi) + - PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 + - gt13L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt13L*gtu32*PDstandardNth3phi) - - 2*gt13L*gtu11*SQR(PDstandardNth1phi) - - 2*gt13L*gtu22*SQR(PDstandardNth2phi) - - 2*gt13L*gtu33*SQR(PDstandardNth3phi)); - - Rphi22 = 2*(-PDstandardNth22phi + - gt22L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi) - - 2*gt22L*gtu32*PDstandardNth23phi - gt22L*gtu33*PDstandardNth33phi + - Gt322*PDstandardNth3phi + gt22L*Gt311*gtu11*PDstandardNth3phi + - 2*gt22L*Gt312*gtu21*PDstandardNth3phi + - gt22L*Gt322*gtu22*PDstandardNth3phi + - 2*gt22L*Gt313*gtu31*PDstandardNth3phi + - 2*gt22L*Gt323*gtu32*PDstandardNth3phi + - gt22L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt122 + Gt111*gt22L*gtu11 + 2*Gt112*gt22L*gtu21 + - Gt122*gt22L*gtu22 + 2*Gt113*gt22L*gtu31 + 2*Gt123*gt22L*gtu32 + - Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandardNth2phi - - 4*gt22L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt222 + Gt222*gt22L*gtu22 + - gt22L*(Gt211*gtu11 + 2*Gt212*gtu21 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt22L*gtu32*PDstandardNth3phi) - - 2*gt22L*gtu11*SQR(PDstandardNth1phi) + - (2 - 2*gt22L*gtu22)*SQR(PDstandardNth2phi) - - 2*gt22L*gtu33*SQR(PDstandardNth3phi)); - - Rphi23 = 2*(-PDstandardNth23phi + - gt23L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - - 2*gtu32*PDstandardNth23phi) - gt23L*gtu33*PDstandardNth33phi + - Gt323*PDstandardNth3phi + gt23L*Gt311*gtu11*PDstandardNth3phi + - 2*gt23L*Gt312*gtu21*PDstandardNth3phi + - gt23L*Gt322*gtu22*PDstandardNth3phi + - 2*gt23L*Gt313*gtu31*PDstandardNth3phi + - 2*gt23L*Gt323*gtu32*PDstandardNth3phi + - gt23L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt123 + Gt111*gt23L*gtu11 + 2*Gt112*gt23L*gtu21 + - Gt122*gt23L*gtu22 + 2*Gt113*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + - Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandardNth2phi - - 4*gt23L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + - gt23L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + - Gt233*gtu33) + (2 - 4*gt23L*gtu32)*PDstandardNth3phi) - - 2*gt23L*gtu11*SQR(PDstandardNth1phi) - - 2*gt23L*gtu22*SQR(PDstandardNth2phi) - - 2*gt23L*gtu33*SQR(PDstandardNth3phi)); - - Rphi33 = 2*(-PDstandardNth33phi + - (Gt333 + gt33L*(Gt322*gtu22 + - 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))* - PDstandardNth3phi + PDstandardNth2phi* - (Gt233 + gt33L*(Gt211*gtu11 + Gt222*gtu22 + - 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33 - - 4*gtu32*PDstandardNth3phi)) + - PDstandardNth1phi*(Gt133 + - gt33L*(Gt111*gtu11 + Gt122*gtu22 + - 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - - 4*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi))) + - 2*SQR(PDstandardNth3phi) + - gt33L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - - 2*gtu32*PDstandardNth23phi - gtu33*PDstandardNth33phi + - Gt311*gtu11*PDstandardNth3phi - 2*gtu11*SQR(PDstandardNth1phi) - - 2*gtu22*SQR(PDstandardNth2phi) - 2*gtu33*SQR(PDstandardNth3phi))); - - Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; - - Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; - - Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; - - Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; - - Atm22 = At12L*gtu21 + At22L*gtu22 + At23L*gtu32; - - Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; - - Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; - - Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; - - Atm33 = At13L*gtu31 + At23L*gtu32 + At33L*gtu33; - - Atu11 = Atm11*gtu11 + Atm12*gtu21 + Atm13*gtu31; - - Atu21 = Atm11*gtu21 + Atm12*gtu22 + Atm13*gtu32; - - Atu31 = Atm11*gtu31 + Atm12*gtu32 + Atm13*gtu33; - - Atu22 = Atm21*gtu21 + Atm22*gtu22 + Atm23*gtu32; - - Atu32 = Atm21*gtu31 + Atm22*gtu32 + Atm23*gtu33; - - Atu33 = Atm31*gtu31 + Atm32*gtu32 + Atm33*gtu33; - - e4phi = exp(4*phiL); - - em4phi = INV(e4phi); - - g11 = e4phi*gt11L; - - g12 = e4phi*gt12L; - - g13 = e4phi*gt13L; - - g22 = e4phi*gt22L; - - g23 = e4phi*gt23L; - - g33 = e4phi*gt33L; - - gu11 = em4phi*gtu11; - - gu21 = em4phi*gtu21; - - gu31 = em4phi*gtu31; - - gu22 = em4phi*gtu22; - - gu32 = em4phi*gtu32; - - gu33 = em4phi*gtu33; - - G111 = Gt111 + (4 - 2*gt11L*gtu11)*PDstandardNth1phi - - 2*gt11L*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi); - - G211 = Gt211 - 2*gt11L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + - gtu32*PDstandardNth3phi); - - G311 = Gt311 - 2*gt11L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + - gtu33*PDstandardNth3phi); - - G112 = Gt112 + (2 - 2*gt12L*gtu21)*PDstandardNth2phi - - 2*gt12L*(gtu11*PDstandardNth1phi + gtu31*PDstandardNth3phi); - - G212 = Gt212 + (2 - 2*gt12L*gtu21)*PDstandardNth1phi - - 2*gt12L*(gtu22*PDstandardNth2phi + gtu32*PDstandardNth3phi); - - G312 = Gt312 - 2*gt12L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + - gtu33*PDstandardNth3phi); - - G113 = Gt113 + 2*PDstandardNth3phi - - 2*gt13L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + - gtu31*PDstandardNth3phi); - - G213 = Gt213 - 2*gt13L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + - gtu32*PDstandardNth3phi); - - G313 = Gt313 + (2 - 2*gt13L*gtu31)*PDstandardNth1phi - - 2*gt13L*(gtu32*PDstandardNth2phi + gtu33*PDstandardNth3phi); - - G122 = Gt122 - 2*gt22L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + - gtu31*PDstandardNth3phi); - - G222 = Gt222 + (4 - 2*gt22L*gtu22)*PDstandardNth2phi - - 2*gt22L*(gtu21*PDstandardNth1phi + gtu32*PDstandardNth3phi); - - G322 = Gt322 - 2*gt22L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + - gtu33*PDstandardNth3phi); - - G123 = Gt123 - 2*gt23L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + - gtu31*PDstandardNth3phi); - - G223 = Gt223 + 2*PDstandardNth3phi - - 2*gt23L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + - gtu32*PDstandardNth3phi); - - G323 = Gt323 + (2 - 2*gt23L*gtu32)*PDstandardNth2phi - - 2*gt23L*(gtu31*PDstandardNth1phi + gtu33*PDstandardNth3phi); - - G133 = Gt133 - 2*gt33L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + - gtu31*PDstandardNth3phi); - - G233 = Gt233 - 2*gt33L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + - gtu32*PDstandardNth3phi); - - G333 = Gt333 + 4*PDstandardNth3phi - - 2*gt33L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + - gtu33*PDstandardNth3phi); - - R11 = Rphi11 + Rt11; - - R12 = Rphi12 + Rt12; - - R13 = Rphi13 + Rt13; - - R22 = Rphi22 + Rt22; - - R23 = Rphi23 + Rt23; - - R33 = Rphi33 + Rt33; - - phirhsL = (6*(PDupwindNth1(phi, i, j, k)*beta1L + - PDupwindNth2(phi, i, j, k)*beta2L + - PDupwindNth3(phi, i, j, k)*beta3L) + PDstandardNth1beta1 + - PDstandardNth2beta2 + PDstandardNth3beta3 - alphaL*trKL)/6.; - - gt11rhsL = -2*alphaL*At11L + PDupwindNth1(gt11, i, j, k)*beta1L + - PDupwindNth2(gt11, i, j, k)*beta2L + - PDupwindNth3(gt11, i, j, k)*beta3L + - 2*(gt12L*PDstandardNth1beta2 + gt13L*PDstandardNth1beta3) + - gt11L*(kfourthird*PDstandardNth1beta1 - ktwothird*PDstandardNth2beta2 - - ktwothird*PDstandardNth3beta3); - - gt12rhsL = -2*alphaL*At12L + PDupwindNth1(gt12, i, j, k)*beta1L + - PDupwindNth2(gt12, i, j, k)*beta2L + - PDupwindNth3(gt12, i, j, k)*beta3L + gt22L*PDstandardNth1beta2 + - gt23L*PDstandardNth1beta3 + gt11L*PDstandardNth2beta1 + - gt13L*PDstandardNth2beta3 + gt12L* - (kthird*(PDstandardNth1beta1 + PDstandardNth2beta2) - - ktwothird*PDstandardNth3beta3); - - gt13rhsL = -2*alphaL*At13L + PDupwindNth1(gt13, i, j, k)*beta1L + - PDupwindNth2(gt13, i, j, k)*beta2L + - PDupwindNth3(gt13, i, j, k)*beta3L + gt23L*PDstandardNth1beta2 + - gt33L*PDstandardNth1beta3 + gt11L*PDstandardNth3beta1 + - gt12L*PDstandardNth3beta2 + gt13L* - (-(ktwothird*PDstandardNth2beta2) + - kthird*(PDstandardNth1beta1 + PDstandardNth3beta3)); - - gt22rhsL = -2*alphaL*At22L + PDupwindNth1(gt22, i, j, k)*beta1L + - PDupwindNth2(gt22, i, j, k)*beta2L + - PDupwindNth3(gt22, i, j, k)*beta3L + - 2*(gt12L*PDstandardNth2beta1 + gt23L*PDstandardNth2beta3) + - gt22L*(-(ktwothird*PDstandardNth1beta1) + kfourthird*PDstandardNth2beta2 - - ktwothird*PDstandardNth3beta3); - - gt23rhsL = -2*alphaL*At23L + PDupwindNth1(gt23, i, j, k)*beta1L + - PDupwindNth2(gt23, i, j, k)*beta2L + - PDupwindNth3(gt23, i, j, k)*beta3L + gt13L*PDstandardNth2beta1 + - gt33L*PDstandardNth2beta3 + gt12L*PDstandardNth3beta1 + - gt22L*PDstandardNth3beta2 + gt23L* - (-(ktwothird*PDstandardNth1beta1) + - kthird*(PDstandardNth2beta2 + PDstandardNth3beta3)); - - gt33rhsL = -2*alphaL*At33L + PDupwindNth1(gt33, i, j, k)*beta1L + - PDupwindNth2(gt33, i, j, k)*beta2L + - PDupwindNth3(gt33, i, j, k)*beta3L - - gt33L*ktwothird*PDstandardNth1beta1 - gt33L*ktwothird*PDstandardNth2beta2 + - 2*gt13L*PDstandardNth3beta1 + 2*gt23L*PDstandardNth3beta2 + - gt33L*kfourthird*PDstandardNth3beta3; + 3*gt33L*T1000009) + gt11L*gtu11*T1000041 + + 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + + Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + + Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + + Gt123*Gt211*gt23L*gtu21 + Gt113*Gt212*gt23L*gtu21 + + Gt213*Gt222*gt23L*gtu21 + Gt113*Gt312*gt33L*gtu21 + + Gt223*Gt312*gt33L*gtu21 + Gt112*Gt123*gt13L*gtu22 + + Gt123*gt12L*Gt223*gtu22 + Gt122*gt13L*Gt223*gtu22 + + Gt123*Gt212*gt23L*gtu22 + Gt222*Gt223*gt23L*gtu22 + + Gt223*Gt322*gt33L*gtu22 + Gt113*gt11L*Gt133*gtu31 + + Gt111*Gt133*gt13L*gtu31 + gt12L*Gt133*Gt213*gtu31 + + Gt123*gt13L*Gt213*gtu31 + Gt113*gt12L*Gt233*gtu31 + + Gt112*gt13L*Gt233*gtu31 + Gt213*gt22L*Gt233*gtu31 + + Gt133*Gt211*gt23L*gtu31 + Gt113*Gt213*gt23L*gtu31 + + Gt213*Gt223*gt23L*gtu31 + Gt212*Gt233*gt23L*gtu31 + + Gt113*Gt313*gt33L*gtu31 + Gt213*Gt323*gt33L*gtu31 + + gt11L*Gt123*Gt133*gtu32 + Gt113*Gt123*gt13L*gtu32 + + Gt112*Gt133*gt13L*gtu32 + gt12L*Gt133*Gt223*gtu32 + + Gt123*gt13L*Gt223*gtu32 + Gt123*gt12L*Gt233*gtu32 + + Gt122*gt13L*Gt233*gtu32 + Gt223*gt22L*Gt233*gtu32 + + Gt133*Gt212*gt23L*gtu32 + Gt123*Gt213*gt23L*gtu32 + + Gt222*Gt233*gt23L*gtu32 + Gt233*Gt322*gt33L*gtu32 + + Gt223*Gt323*gt33L*gtu32 + Gt113*Gt133*gt13L*gtu33 + + gt12L*Gt133*Gt233*gtu33 + Gt123*gt13L*Gt233*gtu33 + + Gt133*Gt213*gt23L*gtu33 + Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*T1000041) + + 3*gt33L*gtu22*T1000063 + gt22L*gtu11*T1000067 + gt22L*gtu22*T1000081 + + 2*gt23L*gtu32*T1000081 + gt11L*gtu22*T1000139 + 3*gt33L*gtu33*T1000145 + + Gt113*gt13L*Xtn1 + Gt213*gt23L*Xtn1 + Gt313*gt33L*Xtn1 + Gt123*gt13L*Xtn2 + + Gt223*gt23L*Xtn2 + Gt323*gt33L*Xtn2 + Gt133*gt13L*Xtn3 + Gt333*gt33L*Xtn3 + + Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xtn3) + + gt11L*gtu33*SQR(Gt133) + gt22L*gtu33*SQR(Gt233); Xt1rhsL = kthird*(7*(gtu21*PDstandardNth12beta1 + gtu31*PDstandardNth13beta1) + gtu11*(4*PDstandardNth11beta1 + PDstandardNth12beta2 + PDstandardNth13beta3) + gtu21*(PDstandardNth22beta2 + PDstandardNth23beta3) + - 3*(PDupwindNth1(Xt1, i, j, k)*beta1L + - PDupwindNth2(Xt1, i, j, k)*beta2L + - PDupwindNth3(Xt1, i, j, k)*beta3L + gtu22*PDstandardNth22beta1 + - gtu33*PDstandardNth33beta1) + gtu31*(PDstandardNth23beta2 + PDstandardNth33beta3) - 6*(Atu11*PDstandardNth1alpha + Atu21*PDstandardNth2alpha + Atu31*PDstandardNth3alpha) + @@ -1345,18 +1521,15 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con Atu31*PDstandardNth3phi) - ktwothird*(gtu11*PDstandardNth1trK + gtu21*PDstandardNth2trK + gtu31*PDstandardNth3trK))) + - (-3*PDstandardNth1beta1 + 2* - (PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3))* - Xtn1 - 3*(PDstandardNth2beta1*Xtn2 + PDstandardNth3beta1*Xtn3)); + 3*(gtu22*PDstandardNth22beta1 + gtu33*PDstandardNth33beta1 + + beta1L*T1000165 + beta2L*T1000166 + beta3L*T1000167) + + (-3*PDstandardNth1beta1 + 2*T1000163)*Xtn1 - + 3*(PDstandardNth2beta1*Xtn2 + PDstandardNth3beta1*Xtn3)); Xt2rhsL = kthird*(gtu21*(PDstandardNth11beta1 + 7*PDstandardNth12beta2 + PDstandardNth13beta3) + gtu22*(PDstandardNth12beta1 + 4*PDstandardNth22beta2 + PDstandardNth23beta3) + - 3*(PDupwindNth1(Xt2, i, j, k)*beta1L + - PDupwindNth2(Xt2, i, j, k)*beta2L + - PDupwindNth3(Xt2, i, j, k)*beta3L + gtu11*PDstandardNth11beta2 + - gtu33*PDstandardNth33beta2) + gtu32*(PDstandardNth13beta1 + 7*PDstandardNth23beta2 + PDstandardNth33beta3) - 6*(Atu21*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + @@ -1368,16 +1541,13 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con Atu32*PDstandardNth3phi) - ktwothird*(gtu21*PDstandardNth1trK + gtu22*PDstandardNth2trK + gtu32*PDstandardNth3trK))) + - 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)* - Xtn2 - 3*(PDstandardNth1beta2*Xtn1 + PDstandardNth2beta2*Xtn2 + - PDstandardNth3beta2*Xtn3)); + 3*(gtu11*PDstandardNth11beta2 + gtu33*PDstandardNth33beta2 + + beta1L*T1000168 + beta2L*T1000169 + beta3L*T1000170) + + 2*T1000163*Xtn2 - 3*(PDstandardNth1beta2*Xtn1 + + PDstandardNth2beta2*Xtn2 + PDstandardNth3beta2*Xtn3)); Xt3rhsL = kthird*(gtu31*(PDstandardNth11beta1 + PDstandardNth12beta2 + 7*PDstandardNth13beta3) + - 3*(PDupwindNth1(Xt3, i, j, k)*beta1L + - PDupwindNth2(Xt3, i, j, k)*beta2L + - PDupwindNth3(Xt3, i, j, k)*beta3L + gtu11*PDstandardNth11beta3 + - gtu22*PDstandardNth22beta3) + gtu32*(PDstandardNth12beta1 + PDstandardNth22beta2 + 7*PDstandardNth23beta3) + gtu33*(PDstandardNth13beta1 + PDstandardNth23beta2 + @@ -1391,9 +1561,10 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con Atu33*PDstandardNth3phi) - ktwothird*(gtu31*PDstandardNth1trK + gtu32*PDstandardNth2trK + gtu33*PDstandardNth3trK))) + - 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)* - Xtn3 - 3*(PDstandardNth1beta3*Xtn1 + PDstandardNth2beta3*Xtn2 + - PDstandardNth3beta3*Xtn3)); + 3*(gtu11*PDstandardNth11beta3 + gtu22*PDstandardNth22beta3 + + beta1L*T1000171 + beta2L*T1000172 + beta3L*T1000173) + + 2*T1000163*Xtn3 - 3*(PDstandardNth1beta3*Xtn1 + + PDstandardNth2beta3*Xtn2 + PDstandardNth3beta3*Xtn3)); trKrhsL = PDupwindNth1(trK, i, j, k)*beta1L + PDupwindNth2(trK, i, j, k)*beta2L + PDupwindNth3(trK, i, j, k)*beta3L - @@ -1411,6 +1582,35 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con G312*gu21*PDstandardNth3alpha) + alphaL*SQR(Atm11) + alphaL*SQR(Atm22) + alphaL*SQR(Atm33) + alphaL*kthird*SQR(trKL); + R11 = Rphi11 + Rt11; + + R12 = Rphi12 + Rt12; + + R13 = Rphi13 + Rt13; + + R22 = Rphi22 + Rt22; + + R23 = Rphi23 + Rt23; + + R33 = Rphi33 + Rt33; + + ArhsL = T1000164*(AL*AlphaDriver - trKrhsL); + + B1rhsL = -(B1L*BetaDriver) + ShiftAdvectionCoeff* + (beta1L*(PDupwindNth1(B1, i, j, k) - T1000165) + + beta2L*(PDupwindNth2(B1, i, j, k) - T1000166) + + beta3L*(PDupwindNth3(B1, i, j, k) - T1000167)) + Xt1rhsL; + + B2rhsL = -(B2L*BetaDriver) + ShiftAdvectionCoeff* + (beta1L*(PDupwindNth1(B2, i, j, k) - T1000168) + + beta2L*(PDupwindNth2(B2, i, j, k) - T1000169) + + beta3L*(PDupwindNth3(B2, i, j, k) - T1000170)) + Xt2rhsL; + + B3rhsL = -(B3L*BetaDriver) + ShiftAdvectionCoeff* + (beta1L*(PDupwindNth1(B3, i, j, k) - T1000171) + + beta2L*(PDupwindNth2(B3, i, j, k) - T1000172) + + beta3L*(PDupwindNth3(B3, i, j, k) - T1000173)) + Xt3rhsL; + Ats11 = -PDstandardNth11alpha + G111*PDstandardNth1alpha + G211*PDstandardNth2alpha + G311*PDstandardNth3alpha + alphaL*R11; @@ -1436,9 +1636,8 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con PDupwindNth2(At11, i, j, k)*beta2L + PDupwindNth3(At11, i, j, k)*beta3L + 2*(At11L*PDstandardNth1beta1 + At12L*PDstandardNth1beta2 + - At13L*PDstandardNth1beta3) - - At11L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + - PDstandardNth3beta3) + em4phi*(Ats11 - g11*kthird*trAts) + + At13L*PDstandardNth1beta3) - At11L*ktwothird*T1000163 + + em4phi*(Ats11 - g11*kthird*trAts) + alphaL*(-2*(At11L*Atm11 + At12L*Atm21 + At13L*Atm31) + At11L*trKL); At12rhsL = -2*alphaL*(At11L*Atm12 + At12L*Atm22 + At13L*Atm32) + @@ -1463,9 +1662,8 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con PDupwindNth2(At22, i, j, k)*beta2L + PDupwindNth3(At22, i, j, k)*beta3L + 2*(At12L*PDstandardNth2beta1 + At22L*PDstandardNth2beta2 + - At23L*PDstandardNth2beta3) - - At22L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + - PDstandardNth3beta3) + em4phi*(Ats22 - g22*kthird*trAts) + + At23L*PDstandardNth2beta3) - At22L*ktwothird*T1000163 + + em4phi*(Ats22 - g22*kthird*trAts) + alphaL*(-2*(At12L*Atm12 + At22L*Atm22 + At23L*Atm32) + At22L*trKL); At23rhsL = -2*alphaL*(At12L*Atm13 + At22L*Atm23 + At23L*Atm33) + @@ -1479,54 +1677,12 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con At33rhsL = PDupwindNth1(At33, i, j, k)*beta1L + PDupwindNth2(At33, i, j, k)*beta2L + - PDupwindNth3(At33, i, j, k)*beta3L - - At33L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + - PDstandardNth3beta3) + 2*(At13L*PDstandardNth3beta1 + - At23L*PDstandardNth3beta2 + At33L*PDstandardNth3beta3) + + PDupwindNth3(At33, i, j, k)*beta3L + + 2*(At13L*PDstandardNth3beta1 + At23L*PDstandardNth3beta2 + + At33L*PDstandardNth3beta3) - At33L*ktwothird*T1000163 + em4phi*(Ats33 - g33*kthird*trAts) + alphaL*(-2*(At13L*Atm13 + At23L*Atm23 + At33L*Atm33) + At33L*trKL); - alpharhsL = (PDupwindNth1(alpha, i, j, k)*beta1L + - PDupwindNth2(alpha, i, j, k)*beta2L + - PDupwindNth3(alpha, i, j, k)*beta3L)*LapseAdvectionCoeff + - harmonicF*(AL*(-1 + LapseAdvectionCoeff) - LapseAdvectionCoeff*trKL)* - pow(alphaL,harmonicN); - - ArhsL = (-1 + LapseAdvectionCoeff)*(AL*AlphaDriver - trKrhsL); - - beta1rhsL = (PDupwindNth1(beta1, i, j, k)*beta1L + - PDupwindNth2(beta1, i, j, k)*beta2L + - PDupwindNth3(beta1, i, j, k)*beta3L)*ShiftAdvectionCoeff + - B1L*ShiftGammaCoeff; - - beta2rhsL = (PDupwindNth1(beta2, i, j, k)*beta1L + - PDupwindNth2(beta2, i, j, k)*beta2L + - PDupwindNth3(beta2, i, j, k)*beta3L)*ShiftAdvectionCoeff + - B2L*ShiftGammaCoeff; - - beta3rhsL = (PDupwindNth1(beta3, i, j, k)*beta1L + - PDupwindNth2(beta3, i, j, k)*beta2L + - PDupwindNth3(beta3, i, j, k)*beta3L)*ShiftAdvectionCoeff + - B3L*ShiftGammaCoeff; - - B1rhsL = -(B1L*BetaDriver) + ((PDupwindNth1(B1, i, j, k) - PDupwindNth1(Xt1\ - , i, j, k))*beta1L + - (PDupwindNth2(B1, i, j, k) - PDupwindNth2(Xt1, i, j, k))*beta2L + - (PDupwindNth3(B1, i, j, k) - PDupwindNth3(Xt1, i, j, k))*beta3L)* - ShiftAdvectionCoeff + Xt1rhsL; - - B2rhsL = -(B2L*BetaDriver) + ((PDupwindNth1(B2, i, j, k) - PDupwindNth1(Xt2\ - , i, j, k))*beta1L + - (PDupwindNth2(B2, i, j, k) - PDupwindNth2(Xt2, i, j, k))*beta2L + - (PDupwindNth3(B2, i, j, k) - PDupwindNth3(Xt2, i, j, k))*beta3L)* - ShiftAdvectionCoeff + Xt2rhsL; - - B3rhsL = -(B3L*BetaDriver) + ((PDupwindNth1(B3, i, j, k) - PDupwindNth1(Xt3\ - , i, j, k))*beta1L + - (PDupwindNth2(B3, i, j, k) - PDupwindNth2(Xt3, i, j, k))*beta2L + - (PDupwindNth3(B3, i, j, k) - PDupwindNth3(Xt3, i, j, k))*beta3L)* - ShiftAdvectionCoeff + Xt3rhsL; - /* Copy local copies back to grid functions */ alpharhs[index] = alpharhsL; @@ -1562,8 +1718,8 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con void ML_BSSN_RHS(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_RHS_Body); } diff --git a/ML_BSSN/src/ML_BSSN_RHSBoundary.c b/ML_BSSN/src/ML_BSSN_RHSBoundary.c index c64c196..d44c179 100644 --- a/ML_BSSN/src/ML_BSSN_RHSBoundary.c +++ b/ML_BSSN/src/ML_BSSN_RHSBoundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK #pragma omp parallel LC_LOOP3 (ML_BSSN_RHSBoundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -325,19 +325,29 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK /* Calculate temporaries and grid functions */ detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + em4phi = exp(-4*phiL); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + nn1 = normal[0]; - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + nn2 = normal[1]; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + nn3 = normal[2]; - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + vg = pow(harmonicF,0.5); - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + CCTK_REAL const T1000001 = INV(detgt); - em4phi = exp(-4*phiL); + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); + + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; + + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; + + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); + + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; + + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); gu11 = em4phi*gtu11; @@ -351,12 +361,6 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gu33 = em4phi*gtu33; - nn1 = normal[0]; - - nn2 = normal[1]; - - nn3 = normal[2]; - nu1 = gu11*nn1 + gu21*nn2 + gu31*nn3; nu2 = gu21*nn1 + gu22*nn2 + gu32*nn3; @@ -367,13 +371,13 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK nlen = pow(nlen2,0.5); - su1 = nu1*INV(nlen); + CCTK_REAL const T1000002 = INV(nlen); - su2 = nu2*INV(nlen); + su1 = nu1*T1000002; - su3 = nu3*INV(nlen); + su2 = nu2*T1000002; - vg = pow(harmonicF,0.5); + su3 = nu3*T1000002; phirhsL = -((PDMinus1phi*su1 + PDMinus2phi*su2 + PDMinus3phi*su3)*vg); @@ -460,8 +464,8 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK void ML_BSSN_RHSBoundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundary(cctkGH, &ML_BSSN_RHSBoundary_Body); } diff --git a/ML_BSSN/src/ML_BSSN_boundary.c b/ML_BSSN/src/ML_BSSN_boundary.c index 6d825c5..5520ebc 100644 --- a/ML_BSSN/src/ML_BSSN_boundary.c +++ b/ML_BSSN/src/ML_BSSN_boundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_IN #pragma omp parallel LC_LOOP3 (ML_BSSN_boundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -221,8 +221,8 @@ void ML_BSSN_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_IN void ML_BSSN_boundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_BSSN_boundary_Body); } diff --git a/ML_BSSN/src/ML_BSSN_constraints.c b/ML_BSSN/src/ML_BSSN_constraints.c index cf01580..e9d0498 100644 --- a/ML_BSSN/src/ML_BSSN_constraints.c +++ b/ML_BSSN/src/ML_BSSN_constraints.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK #pragma omp parallel LC_LOOP3 (ML_BSSN_constraints, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -165,10 +165,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt11 = INITVALUE; CCTK_REAL PDstandardNth12gt11 = INITVALUE; CCTK_REAL PDstandardNth13gt11 = INITVALUE; - CCTK_REAL PDstandardNth21gt11 = INITVALUE; CCTK_REAL PDstandardNth23gt11 = INITVALUE; - CCTK_REAL PDstandardNth31gt11 = INITVALUE; - CCTK_REAL PDstandardNth32gt11 = INITVALUE; CCTK_REAL PDstandardNth1gt12 = INITVALUE; CCTK_REAL PDstandardNth2gt12 = INITVALUE; CCTK_REAL PDstandardNth3gt12 = INITVALUE; @@ -177,10 +174,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt12 = INITVALUE; CCTK_REAL PDstandardNth12gt12 = INITVALUE; CCTK_REAL PDstandardNth13gt12 = INITVALUE; - CCTK_REAL PDstandardNth21gt12 = INITVALUE; CCTK_REAL PDstandardNth23gt12 = INITVALUE; - CCTK_REAL PDstandardNth31gt12 = INITVALUE; - CCTK_REAL PDstandardNth32gt12 = INITVALUE; CCTK_REAL PDstandardNth1gt13 = INITVALUE; CCTK_REAL PDstandardNth2gt13 = INITVALUE; CCTK_REAL PDstandardNth3gt13 = INITVALUE; @@ -189,10 +183,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt13 = INITVALUE; CCTK_REAL PDstandardNth12gt13 = INITVALUE; CCTK_REAL PDstandardNth13gt13 = INITVALUE; - CCTK_REAL PDstandardNth21gt13 = INITVALUE; CCTK_REAL PDstandardNth23gt13 = INITVALUE; - CCTK_REAL PDstandardNth31gt13 = INITVALUE; - CCTK_REAL PDstandardNth32gt13 = INITVALUE; CCTK_REAL PDstandardNth1gt22 = INITVALUE; CCTK_REAL PDstandardNth2gt22 = INITVALUE; CCTK_REAL PDstandardNth3gt22 = INITVALUE; @@ -201,10 +192,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt22 = INITVALUE; CCTK_REAL PDstandardNth12gt22 = INITVALUE; CCTK_REAL PDstandardNth13gt22 = INITVALUE; - CCTK_REAL PDstandardNth21gt22 = INITVALUE; CCTK_REAL PDstandardNth23gt22 = INITVALUE; - CCTK_REAL PDstandardNth31gt22 = INITVALUE; - CCTK_REAL PDstandardNth32gt22 = INITVALUE; CCTK_REAL PDstandardNth1gt23 = INITVALUE; CCTK_REAL PDstandardNth2gt23 = INITVALUE; CCTK_REAL PDstandardNth3gt23 = INITVALUE; @@ -213,10 +201,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt23 = INITVALUE; CCTK_REAL PDstandardNth12gt23 = INITVALUE; CCTK_REAL PDstandardNth13gt23 = INITVALUE; - CCTK_REAL PDstandardNth21gt23 = INITVALUE; CCTK_REAL PDstandardNth23gt23 = INITVALUE; - CCTK_REAL PDstandardNth31gt23 = INITVALUE; - CCTK_REAL PDstandardNth32gt23 = INITVALUE; CCTK_REAL PDstandardNth1gt33 = INITVALUE; CCTK_REAL PDstandardNth2gt33 = INITVALUE; CCTK_REAL PDstandardNth3gt33 = INITVALUE; @@ -225,10 +210,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt33 = INITVALUE; CCTK_REAL PDstandardNth12gt33 = INITVALUE; CCTK_REAL PDstandardNth13gt33 = INITVALUE; - CCTK_REAL PDstandardNth21gt33 = INITVALUE; CCTK_REAL PDstandardNth23gt33 = INITVALUE; - CCTK_REAL PDstandardNth31gt33 = INITVALUE; - CCTK_REAL PDstandardNth32gt33 = INITVALUE; CCTK_REAL PDstandardNth1phi = INITVALUE; CCTK_REAL PDstandardNth2phi = INITVALUE; CCTK_REAL PDstandardNth3phi = INITVALUE; @@ -237,10 +219,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33phi = INITVALUE; CCTK_REAL PDstandardNth12phi = INITVALUE; CCTK_REAL PDstandardNth13phi = INITVALUE; - CCTK_REAL PDstandardNth21phi = INITVALUE; CCTK_REAL PDstandardNth23phi = INITVALUE; - CCTK_REAL PDstandardNth31phi = INITVALUE; - CCTK_REAL PDstandardNth32phi = INITVALUE; CCTK_REAL PDstandardNth1trK = INITVALUE; CCTK_REAL PDstandardNth2trK = INITVALUE; CCTK_REAL PDstandardNth3trK = INITVALUE; @@ -375,19 +354,57 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ + CCTK_REAL const T1000002 = -PDstandardNth3gt12; + + CCTK_REAL const T1000004 = -PDstandardNth2gt13; + + CCTK_REAL const T1000006 = -PDstandardNth1gt23; + + CCTK_REAL const T1000146 = SQR(PDstandardNth1phi); + + CCTK_REAL const T1000147 = SQR(PDstandardNth2phi); + + CCTK_REAL const T1000148 = SQR(PDstandardNth3phi); + detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + e4phi = exp(4*phiL); + + CCTK_REAL const T1000001 = INV(detgt); + + CCTK_REAL const T1000003 = PDstandardNth1gt23 + PDstandardNth2gt13 + T1000002; + + CCTK_REAL const T1000005 = PDstandardNth1gt23 + PDstandardNth3gt12 + T1000004; + + CCTK_REAL const T1000007 = PDstandardNth2gt13 + PDstandardNth3gt12 + T1000006; + + em4phi = INV(e4phi); + + cSL = Log(detgt); + + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); + + CCTK_REAL const T1000155 = At12L*gtu21; + + CCTK_REAL const T1000156 = At13L*gtu31; + + CCTK_REAL const T1000157 = At23L*gtu32; + + CCTK_REAL const T1000158 = At11L*gtu11; + + CCTK_REAL const T1000159 = At22L*gtu22; + + CCTK_REAL const T1000160 = At33L*gtu33; Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - @@ -402,22 +419,22 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu31*T1000003); Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu32*T1000003); Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu33*T1000003); Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu21*T1000005); Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu22*T1000005); Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu32*T1000005); Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + @@ -431,17 +448,14 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gtu32*PDstandardNth2gt22 + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + - gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu21*PDstandardNth3gt22 + + gtu11*T1000007); - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + - gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu22*PDstandardNth3gt22 + + gtu21*T1000007); - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + - gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu32*PDstandardNth3gt22 + + gtu31*T1000007); Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + 2*gtu21*PDstandardNth3gt23 + @@ -455,6 +469,402 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK 2*gtu31*PDstandardNth3gt13 + 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); + gu11 = em4phi*gtu11; + + gu21 = em4phi*gtu21; + + gu31 = em4phi*gtu31; + + gu22 = em4phi*gtu22; + + gu32 = em4phi*gtu32; + + gu33 = em4phi*gtu33; + + Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; + + Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; + + Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; + + Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; + + Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; + + Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; + + CCTK_REAL const T1000008 = SQR(Gt212); + + CCTK_REAL const T1000009 = SQR(Gt313); + + CCTK_REAL const T1000010 = SQR(Gt111); + + CCTK_REAL const T1000011 = SQR(Gt112); + + CCTK_REAL const T1000012 = SQR(Gt312); + + CCTK_REAL const T1000014 = Gt211*Gt222*gt22L; + + CCTK_REAL const T1000015 = Gt211*gt23L*Gt322; + + CCTK_REAL const T1000016 = Gt112*gt12L; + + CCTK_REAL const T1000017 = Gt112*Gt212; + + CCTK_REAL const T1000018 = Gt113*Gt312; + + CCTK_REAL const T1000019 = 2*gt11L*Gt122; + + CCTK_REAL const T1000020 = gt12L*Gt222; + + CCTK_REAL const T1000021 = Gt212*gt22L; + + CCTK_REAL const T1000022 = gt23L*Gt312; + + CCTK_REAL const T1000023 = gt13L*Gt322; + + CCTK_REAL const T1000024 = Gt123*Gt312; + + CCTK_REAL const T1000025 = Gt212*Gt213*gt22L; + + CCTK_REAL const T1000026 = Gt211*Gt223*gt22L; + + CCTK_REAL const T1000027 = Gt213*gt23L*Gt312; + + CCTK_REAL const T1000028 = Gt211*gt23L*Gt323; + + CCTK_REAL const T1000029 = Gt113*gt12L; + + CCTK_REAL const T1000030 = Gt213*gt22L; + + CCTK_REAL const T1000031 = gt23L*Gt313; + + CCTK_REAL const T1000033 = Gt213*Gt222*gt22L; + + CCTK_REAL const T1000034 = Gt212*Gt223*gt22L; + + CCTK_REAL const T1000035 = Gt213*gt23L*Gt322; + + CCTK_REAL const T1000036 = Gt212*gt23L*Gt323; + + CCTK_REAL const T1000037 = 2*gt11L*Gt123; + + CCTK_REAL const T1000038 = gt12L*Gt223; + + CCTK_REAL const T1000039 = gt13L*Gt323; + + CCTK_REAL const T1000041 = SQR(Gt113); + + CCTK_REAL const T1000042 = Gt211*gt22L; + + CCTK_REAL const T1000043 = gt23L*Gt311; + + CCTK_REAL const T1000044 = gt12L*Gt212; + + CCTK_REAL const T1000045 = gt13L*Gt312; + + CCTK_REAL const T1000047 = Gt112*Gt213; + + CCTK_REAL const T1000048 = Gt113*Gt313; + + CCTK_REAL const T1000049 = gt12L*Gt212*Gt223; + + CCTK_REAL const T1000050 = 2*Gt123*gt13L*Gt311; + + CCTK_REAL const T1000051 = Gt223*gt23L*Gt311; + + CCTK_REAL const T1000052 = Gt113*gt13L*Gt312; + + CCTK_REAL const T1000053 = gt13L*Gt223*Gt312; + + CCTK_REAL const T1000054 = gt13L*Gt313*Gt323; + + CCTK_REAL const T1000055 = Gt312*Gt313*gt33L; + + CCTK_REAL const T1000056 = Gt311*Gt323*gt33L; + + CCTK_REAL const T1000057 = Gt212*gt23L*Gt313; + + CCTK_REAL const T1000058 = 2*Gt112*Gt113; + + CCTK_REAL const T1000059 = Gt122*Gt213; + + CCTK_REAL const T1000060 = Gt112*gt13L; + + CCTK_REAL const T1000061 = gt12L*Gt222*Gt223; + + CCTK_REAL const T1000062 = gt13L*Gt223*Gt322; + + CCTK_REAL const T1000063 = SQR(Gt323); + + CCTK_REAL const T1000065 = Gt212*gt23L; + + CCTK_REAL const T1000066 = Gt312*gt33L; + + CCTK_REAL const T1000067 = SQR(Gt213); + + CCTK_REAL const T1000068 = Gt233*gt23L*Gt311; + + CCTK_REAL const T1000069 = Gt133*Gt313; + + CCTK_REAL const T1000070 = gt13L*Gt313*Gt333; + + CCTK_REAL const T1000072 = Gt311*Gt333*gt33L; + + CCTK_REAL const T1000073 = Gt113*gt13L; + + CCTK_REAL const T1000074 = Gt223*gt23L*Gt313; + + CCTK_REAL const T1000075 = gt13L*Gt323*Gt333; + + CCTK_REAL const T1000076 = 2*gt11L*Gt133; + + CCTK_REAL const T1000077 = gt12L*Gt233; + + CCTK_REAL const T1000078 = gt13L*Gt333; + + CCTK_REAL const T1000080 = Gt313*Gt323*gt33L; + + CCTK_REAL const T1000081 = SQR(Gt223); + + CCTK_REAL const T1000082 = Gt233*gt23L*Gt312; + + CCTK_REAL const T1000083 = 2*Gt123*gt13L*Gt313; + + CCTK_REAL const T1000084 = gt13L*Gt223*Gt323; + + CCTK_REAL const T1000085 = Gt312*Gt333*gt33L; + + CCTK_REAL const T1000086 = Gt213*gt23L; + + CCTK_REAL const T1000087 = Gt313*gt33L; + + CCTK_REAL const T1000089 = gt12L*Gt213; + + CCTK_REAL const T1000090 = gt13L*Gt313; + + CCTK_REAL const T1000091 = Gt211*gt23L; + + CCTK_REAL const T1000092 = Gt311*gt33L; + + CCTK_REAL const T1000093 = gt11L*Gt123; + + CCTK_REAL const T1000096 = SQR(Gt222); + + CCTK_REAL const T1000097 = Gt113*gt12L*Gt212; + + CCTK_REAL const T1000098 = Gt112*gt13L*Gt212; + + CCTK_REAL const T1000099 = 2*Gt112*gt12L*Gt213; + + CCTK_REAL const T1000100 = Gt113*Gt211*gt22L; + + CCTK_REAL const T1000101 = Gt112*Gt211*gt23L; + + CCTK_REAL const T1000103 = Gt113*gt23L*Gt311; + + CCTK_REAL const T1000104 = 2*Gt113*gt13L*Gt312; + + CCTK_REAL const T1000105 = Gt112*gt13L*Gt313; + + CCTK_REAL const T1000106 = Gt213*gt22L*Gt313; + + CCTK_REAL const T1000108 = Gt112*Gt311*gt33L; + + CCTK_REAL const T1000109 = Gt212*Gt312*gt33L; + + CCTK_REAL const T1000110 = Gt123*gt12L*Gt212; + + CCTK_REAL const T1000111 = Gt212*Gt222*gt23L; + + CCTK_REAL const T1000112 = 2*Gt223*gt23L*Gt312; + + CCTK_REAL const T1000113 = Gt113*gt13L*Gt322; + + CCTK_REAL const T1000114 = gt23L*Gt313*Gt323; + + CCTK_REAL const T1000115 = Gt313*Gt322*gt33L; + + CCTK_REAL const T1000116 = Gt312*Gt323*gt33L; + + CCTK_REAL const T1000118 = Gt122*gt13L*Gt212; + + CCTK_REAL const T1000119 = 2*Gt122*gt12L*Gt213; + + CCTK_REAL const T1000120 = Gt113*gt12L*Gt222; + + CCTK_REAL const T1000121 = Gt113*Gt212*gt22L; + + CCTK_REAL const T1000122 = Gt123*gt13L*Gt312; + + CCTK_REAL const T1000123 = Gt113*gt23L*Gt312; + + CCTK_REAL const T1000124 = Gt223*gt23L*Gt312; + + CCTK_REAL const T1000125 = Gt223*gt22L*Gt313; + + CCTK_REAL const T1000126 = Gt222*gt23L*Gt313; + + CCTK_REAL const T1000127 = Gt212*Gt322*gt33L; + + CCTK_REAL const T1000128 = Gt212*Gt223*gt23L; + + CCTK_REAL const T1000129 = Gt133*gt13L*Gt312; + + CCTK_REAL const T1000130 = Gt113*gt13L*Gt323; + + CCTK_REAL const T1000131 = Gt213*gt23L*Gt323; + + CCTK_REAL const T1000132 = Gt212*gt23L*Gt333; + + CCTK_REAL const T1000133 = gt23L*Gt313*Gt333; + + CCTK_REAL const T1000135 = 2*Gt213*Gt223*gt22L; + + CCTK_REAL const T1000136 = gt22L*Gt233*Gt313; + + CCTK_REAL const T1000137 = 2*Gt213*gt23L*Gt323; + + CCTK_REAL const T1000138 = Gt212*Gt323*gt33L; + + CCTK_REAL const T1000139 = SQR(Gt123); + + CCTK_REAL const T1000140 = Gt222*Gt223*gt23L; + + CCTK_REAL const T1000141 = Gt133*gt13L*Gt322; + + CCTK_REAL const T1000142 = gt23L*Gt323*Gt333; + + CCTK_REAL const T1000144 = Gt322*Gt333*gt33L; + + CCTK_REAL const T1000145 = SQR(Gt333); + + CCTK_REAL const T1000149 = Gt222*gtu22; + + CCTK_REAL const T1000150 = 2*Gt213*gtu31; + + CCTK_REAL const T1000151 = 2*Gt223*gtu32; + + CCTK_REAL const T1000152 = Gt233*gtu33; + + CCTK_REAL const T1000153 = Gt211*gtu11; + + CCTK_REAL const T1000154 = 2*Gt212*gtu21; + + Atm11 = T1000155 + T1000156 + T1000158; + + Atm22 = T1000155 + T1000157 + T1000159; + + Atm33 = T1000156 + T1000157 + T1000160; + + M1L = -(At12L*Gt112*gtu22) - At11L*Gt122*gtu22 - At22L*Gt212*gtu22 - + At12L*Gt222*gtu22 - At23L*Gt312*gtu22 - At13L*Gt322*gtu22 - + At13L*Gt111*gtu31 - 3*At11L*Gt113*gtu31 - At23L*Gt211*gtu31 - + 3*At12L*Gt213*gtu31 - At33L*Gt311*gtu31 - 3*At13L*Gt313*gtu31 - + At13L*Gt112*gtu32 - At12L*Gt113*gtu32 - At23L*Gt212*gtu32 - + At22L*Gt213*gtu32 - 2*At12L*Gt223*gtu32 - At33L*Gt312*gtu32 - + At23L*Gt313*gtu32 - 2*At13L*Gt323*gtu32 - + 2*(At11L*Gt111*gtu11 + At12L*Gt211*gtu11 + At13L*Gt311*gtu11 + + At11L*Gt123*gtu32) - At13L*Gt113*gtu33 - At11L*Gt133*gtu33 - + At23L*Gt213*gtu33 - At12L*Gt233*gtu33 - At33L*Gt313*gtu33 - + At13L*Gt333*gtu33 + gtu11*PDstandardNth1At11 + + gtu21*(-(At12L*Gt111) - 3*At11L*Gt112 - At22L*Gt211 - 3*At12L*Gt212 - + At23L*Gt311 - 3*At13L*Gt312 + PDstandardNth1At12) + + gtu31*PDstandardNth1At13 + 6*At11L*gtu11*PDstandardNth1phi + + 6*At12L*gtu21*PDstandardNth1phi + 6*At13L*gtu31*PDstandardNth1phi - + ktwothird*PDstandardNth1trK + gtu21*PDstandardNth2At11 + + gtu22*PDstandardNth2At12 + gtu32*PDstandardNth2At13 + + 6*At11L*gtu21*PDstandardNth2phi + 6*At12L*gtu22*PDstandardNth2phi + + 6*At13L*gtu32*PDstandardNth2phi + gtu31*PDstandardNth3At11 + + gtu32*PDstandardNth3At12 + gtu33*PDstandardNth3At13 + + 6*At11L*gtu31*PDstandardNth3phi + 6*At12L*gtu32*PDstandardNth3phi + + 6*At13L*gtu33*PDstandardNth3phi; + + M2L = -(At12L*Gt111*gtu11) - At11L*Gt112*gtu11 - At22L*Gt211*gtu11 - + At12L*Gt212*gtu11 - At23L*Gt311*gtu11 - At13L*Gt312*gtu11 - + 3*At12L*Gt112*gtu21 - At11L*Gt122*gtu21 - 3*At22L*Gt212*gtu21 - + At12L*Gt222*gtu21 - 3*At23L*Gt312*gtu21 - At13L*Gt322*gtu21 - + 2*At12L*Gt122*gtu22 - 2*At22L*Gt222*gtu22 - 2*At23L*Gt322*gtu22 - + At13L*Gt112*gtu31 - 2*At12L*Gt113*gtu31 - At11L*Gt123*gtu31 - + At23L*Gt212*gtu31 - 2*At22L*Gt213*gtu31 - At12L*Gt223*gtu31 - + At33L*Gt312*gtu31 - 2*At23L*Gt313*gtu31 - At13L*Gt323*gtu31 - + At13L*Gt122*gtu32 - 3*At12L*Gt123*gtu32 - At23L*Gt222*gtu32 - + 3*At22L*Gt223*gtu32 - At33L*Gt322*gtu32 - 3*At23L*Gt323*gtu32 - + At13L*Gt123*gtu33 - At12L*Gt133*gtu33 - At23L*Gt223*gtu33 - + At22L*Gt233*gtu33 - At33L*Gt323*gtu33 - At23L*Gt333*gtu33 + + gtu11*PDstandardNth1At12 + gtu21*PDstandardNth1At22 + + gtu31*PDstandardNth1At23 + 6*At12L*gtu11*PDstandardNth1phi + + 6*At22L*gtu21*PDstandardNth1phi + 6*At23L*gtu31*PDstandardNth1phi + + gtu21*PDstandardNth2At12 + gtu22*PDstandardNth2At22 + + gtu32*PDstandardNth2At23 + 6*At12L*gtu21*PDstandardNth2phi + + 6*At22L*gtu22*PDstandardNth2phi + 6*At23L*gtu32*PDstandardNth2phi - + ktwothird*PDstandardNth2trK + gtu31*PDstandardNth3At12 + + gtu32*PDstandardNth3At22 + gtu33*PDstandardNth3At23 + + 6*At12L*gtu31*PDstandardNth3phi + 6*At22L*gtu32*PDstandardNth3phi + + 6*At23L*gtu33*PDstandardNth3phi; + + M3L = -(At13L*Gt111*gtu11) - At11L*Gt113*gtu11 - At23L*Gt211*gtu11 - + At12L*Gt213*gtu11 - At33L*Gt311*gtu11 - At13L*Gt313*gtu11 - + 2*At13L*Gt112*gtu21 - At12L*Gt113*gtu21 - At11L*Gt123*gtu21 - + 2*At23L*Gt212*gtu21 - At22L*Gt213*gtu21 - At12L*Gt223*gtu21 - + 2*At33L*Gt312*gtu21 - At23L*Gt313*gtu21 - At13L*Gt323*gtu21 - + At13L*Gt122*gtu22 - At12L*Gt123*gtu22 - At23L*Gt222*gtu22 - + At22L*Gt223*gtu22 - At33L*Gt322*gtu22 - At23L*Gt323*gtu22 - + 3*At13L*Gt113*gtu31 - At11L*Gt133*gtu31 - 3*At23L*Gt213*gtu31 - + At12L*Gt233*gtu31 - 3*At33L*Gt313*gtu31 - At13L*Gt333*gtu31 - + 3*At13L*Gt123*gtu32 - At12L*Gt133*gtu32 - 3*At23L*Gt223*gtu32 - + At22L*Gt233*gtu32 - 3*At33L*Gt323*gtu32 - At23L*Gt333*gtu32 - + 2*At13L*Gt133*gtu33 - 2*At23L*Gt233*gtu33 - 2*At33L*Gt333*gtu33 + + gtu11*PDstandardNth1At13 + gtu21*PDstandardNth1At23 + + gtu31*PDstandardNth1At33 + 6*At13L*gtu11*PDstandardNth1phi + + 6*At23L*gtu21*PDstandardNth1phi + 6*At33L*gtu31*PDstandardNth1phi + + gtu21*PDstandardNth2At13 + gtu22*PDstandardNth2At23 + + gtu32*PDstandardNth2At33 + 6*At13L*gtu21*PDstandardNth2phi + + 6*At23L*gtu22*PDstandardNth2phi + 6*At33L*gtu32*PDstandardNth2phi + + gtu31*PDstandardNth3At13 + gtu32*PDstandardNth3At23 + + gtu33*PDstandardNth3At33 + 6*At13L*gtu31*PDstandardNth3phi + + 6*At23L*gtu32*PDstandardNth3phi + 6*At33L*gtu33*PDstandardNth3phi - + ktwothird*PDstandardNth3trK; + + cXt1L = Gt111*gtu11 + Gt122*gtu22 + + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - Xt1L; + + cXt3L = Gt311*gtu11 + Gt322*gtu22 + + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33 - Xt3L; + + cAL = 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + T1000158 + T1000159 + + T1000160; + + CCTK_REAL const T1000013 = gt22L*T1000008; + + CCTK_REAL const T1000032 = T1000029 + T1000030 + T1000031; + + CCTK_REAL const T1000040 = T1000029 + T1000037 + T1000038 + T1000039; + + CCTK_REAL const T1000046 = T1000016 + T1000021 + T1000022; + + CCTK_REAL const T1000064 = gt13L*T1000063; + + CCTK_REAL const T1000071 = gt33L*T1000009; + + CCTK_REAL const T1000079 = T1000073 + T1000076 + T1000077 + T1000078; + + CCTK_REAL const T1000088 = T1000073 + T1000086 + T1000087; + + CCTK_REAL const T1000094 = T1000038 + T1000039 + T1000093; + + CCTK_REAL const T1000095 = T1000060 + T1000065 + T1000066; + + CCTK_REAL const T1000102 = gt23L*T1000008; + + CCTK_REAL const T1000107 = gt23L*T1000009; + + CCTK_REAL const T1000117 = gt13L*T1000011; + + CCTK_REAL const T1000134 = gt12L*T1000041; + + CCTK_REAL const T1000143 = gt33L*T1000063; + Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + gtu21*(2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + 2*gt13L*Gt311*Gt323 + @@ -467,21 +877,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK 4*Gt113*Gt311*gtu31 + 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + - Gt111*(6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xt1L) + - Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + - 2*gt11L*Gt123*gtu31 + gt12L*Xt1L) + - Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + - 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xt1L) + - gt12L*Gt212*Xt2L + gt13L*Gt312*Xt2L + - Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + - 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xt2L) + - Gt113*gt11L*Xt3L + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + - 2*gt11L*Gt123*gtu33 + gt12L*Xt3L) + - Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + - 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + - gt13L*Xt3L) + 3*gt11L*gtu11*SQR(Gt111) + 3*gt11L*gtu22*SQR(Gt112) + - 3*gt11L*gtu33*SQR(Gt113) + gt22L*gtu11*SQR(Gt211) + - gt22L*gtu22*SQR(Gt212) + 2*(gt12L*Gt211*Gt212*gtu11 + + gt22L*gtu22*T1000008 + 2*(gt12L*Gt211*Gt212*gtu11 + Gt113*gt11L*Gt311*gtu11 + Gt211*gt23L*Gt311*gtu11 + gt13L*Gt211*Gt312*gtu11 + Gt112*gt11L*Gt212*gtu21 + gt12L*Gt223*Gt311*gtu21 + Gt212*gt23L*Gt311*gtu21 + @@ -503,178 +899,23 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gt13L*Gt312*Gt333*gtu32 + Gt312*Gt313*gt33L*gtu32 + gt12L*Gt213*Gt223*gtu33 + gt12L*Gt233*Gt313*gtu33 + Gt213*gt23L*Gt313*gtu33 + gt13L*Gt213*Gt323*gtu33 + - gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*SQR(Gt212)) + - gt22L*gtu33*SQR(Gt213) + gt33L*gtu11*SQR(Gt311) + gt33L*gtu22*SQR(Gt312) + - 2*gt13L*gtu31*SQR(Gt313) + gt33L*gtu33*SQR(Gt313); - - Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - - 2*gtu31*PDstandardNth13gt12 + gt12L*PDstandardNth1Xt1 + - gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - - gtu22*PDstandardNth22gt12 - 2*gtu32*PDstandardNth23gt12 + - gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + - gt13L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt12 + - (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xt1L + - (Gt112*gt11L + gt12L*Gt212 + gt13L*Gt312)*Xt1L + - (Gt112*gt12L + Gt212*gt22L + gt23L*Gt312)*Xt2L + - (gt11L*Gt122 + gt12L*Gt222 + gt13L*Gt322)*Xt2L + - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt3L + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt3L + - 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + Gt211*Gt222*gt22L + - 2*Gt122*gt13L*Gt311 + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + - gt13L*Gt222*Gt312 + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + - gt23L*Gt312*Gt313 + Gt113*gt11L*Gt322 + Gt211*gt23L*Gt322 + - gt13L*Gt313*Gt322 + Gt111* - (2*gt11L*Gt122 + Gt112*gt12L + gt12L*Gt222 + gt13L*Gt322) + - gt12L*(2*Gt122*Gt211 + Gt112*Gt212 + Gt212*Gt222 + Gt113*Gt312 + - Gt213*Gt322) + Gt311*Gt322*gt33L + gt22L*SQR(Gt212)) + - 2*((Gt123*gt12L*Gt211 + Gt113*gt12L*Gt212 + 2*Gt112*gt12L*Gt213 + - gt12L*Gt212*Gt223 + Gt212*Gt213*gt22L + Gt211*Gt223*gt22L + - gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + Gt113*gt13L*Gt312 + - gt12L*Gt233*Gt312 + Gt213*gt23L*Gt312 + - gt11L*(2*Gt112*Gt113 + Gt123*Gt212 + Gt133*Gt312) + - 2*Gt112*gt13L*Gt313 + Gt212*gt23L*Gt313 + - Gt111*(Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + - gt13L*Gt212*Gt323 + Gt211*gt23L*Gt323 + gt23L*Gt311*Gt333 + - gt13L*Gt312*Gt333 + Gt312*Gt313*gt33L)*gtu31 + - (Gt123*gt12L*Gt212 + 2*Gt122*gt12L*Gt213 + Gt113*gt12L*Gt222 + - gt12L*Gt222*Gt223 + Gt213*Gt222*gt22L + Gt212*Gt223*gt22L + - gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + - Gt222*gt23L*Gt313 + Gt112* - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + Gt113*gt13L*Gt322 + - gt12L*Gt233*Gt322 + Gt213*gt23L*Gt322 + - gt11L*(2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + - gt13L*Gt222*Gt323 + Gt212*gt23L*Gt323 + gt23L*Gt312*Gt333 + - gt13L*Gt322*Gt333 + Gt313*Gt322*gt33L)*gtu32 + - gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + - 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + - gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + - gt11L*(2*Gt111*Gt112 + Gt112*Gt212 + Gt113*Gt312) + - Gt111*(gt12L*Gt212 + Gt211*gt22L + gt23L*Gt311 + gt13L*Gt312) + - gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + - gt12L*SQR(Gt111) + gt12L*SQR(Gt212))) + - 2*gtu22*(gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + - Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + - gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + - Gt112*(2*gt11L*Gt122 + gt12L*Gt222 + Gt212*gt22L + gt23L*Gt312 + - gt13L*Gt322) + gt23L*Gt312*Gt323 + gt13L*Gt322*Gt323 + - Gt312*Gt322*gt33L + gt12L*SQR(Gt112) + - gt12L*(3*Gt122*Gt212 + Gt123*Gt312 + Gt223*Gt322 + SQR(Gt222))) + - 2*gtu33*(gt11L*Gt123*Gt223 + 2*Gt213*Gt223*gt22L + 2*Gt123*gt13L*Gt313 + - gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + gt11L*Gt133*Gt323 + - gt13L*Gt223*Gt323 + 2*Gt213*gt23L*Gt323 + - Gt113*(2*gt11L*Gt123 + gt12L*Gt223 + Gt213*gt22L + gt23L*Gt313 + - gt13L*Gt323) + gt23L*Gt313*Gt333 + gt13L*Gt323*Gt333 + - Gt313*Gt323*gt33L + gt12L*SQR(Gt113) + - gt12L*(3*Gt123*Gt213 + Gt133*Gt313 + Gt233*Gt323 + SQR(Gt223))) + - 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + - Gt211*Gt222*gt22L + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + - 3*Gt112*gt13L*Gt312 + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + - Gt111*(Gt112*gt12L + Gt212*gt22L + gt23L*Gt312) + gt13L*Gt212*Gt322 + - Gt211*gt23L*Gt322 + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + - gt11L*(Gt122*Gt212 + Gt123*Gt312 + 2*SQR(Gt112)) + gt22L*SQR(Gt212) + - gt33L*SQR(Gt312)) + 2*gtu31* - (Gt112*gt11L*Gt223 + Gt113*Gt211*gt22L + Gt212*Gt213*gt22L + - Gt211*Gt223*gt22L + 2*Gt123*gt13L*Gt311 + Gt113*gt23L*Gt311 + - Gt223*gt23L*Gt311 + gt13L*Gt223*Gt312 + Gt213*gt23L*Gt312 + - Gt213*gt22L*Gt313 + Gt113*gt11L*Gt323 + Gt211*gt23L*Gt323 + - gt13L*Gt313*Gt323 + Gt111* - (2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(2*Gt123*Gt211 + Gt112*Gt213 + Gt212*Gt223 + Gt113*Gt313 + - Gt213*Gt323) + Gt311*Gt323*gt33L + gt23L*SQR(Gt313)) + - 2*gtu32*(gt11L*Gt122*Gt223 + Gt113*Gt212*gt22L + Gt213*Gt222*gt22L + - Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + - Gt223*gt23L*Gt312 + Gt223*gt22L*Gt313 + gt13L*Gt223*Gt322 + - Gt213*gt23L*Gt322 + gt11L*Gt123*Gt323 + Gt212*gt23L*Gt323 + - gt23L*Gt313*Gt323 + Gt112* - (2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(Gt122*Gt213 + Gt123*(2*Gt212 + Gt313) + - Gt223*(Gt222 + Gt323)) + Gt312*Gt323*gt33L + gt13L*SQR(Gt323))); - - Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - - 2*gtu31*PDstandardNth13gt13 + gt13L*PDstandardNth1Xt1 + - gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - - gtu22*PDstandardNth22gt13 - 2*gtu32*PDstandardNth23gt13 - - gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + - gt12L*PDstandardNth3Xt2 + gt13L*PDstandardNth3Xt3 + - (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xt1L + - (Gt111*gt13L + Gt211*gt23L + Gt311*gt33L)*Xt1L + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt2L + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt2L + - (gt11L*Gt133 + gt12L*Gt233 + gt13L*Gt333)*Xt3L + - (Gt113*gt13L + Gt213*gt23L + Gt313*gt33L)*Xt3L + - 2*((Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + - gt12L*Gt213*Gt222 + Gt212*Gt213*gt22L + Gt211*Gt222*gt23L + - Gt123*gt13L*Gt311 + Gt223*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + - Gt213*gt23L*Gt312 + Gt112*gt13L*Gt313 + gt12L*Gt223*Gt313 + - Gt212*gt23L*Gt313 + gt11L* - (2*Gt112*Gt113 + Gt122*Gt213 + Gt123*Gt313) + gt13L*Gt213*Gt322 + - gt13L*Gt313*Gt323 + Gt312*Gt313*gt33L + Gt211*Gt322*gt33L + - Gt311*Gt323*gt33L + Gt111*(Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)) - *gtu21 + (Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + - Gt212*gt22L*Gt233 + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + - 2*Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + Gt123*gt13L*Gt313 + - Gt223*gt23L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + - Gt212*gt23L*Gt333 + gt13L*Gt323*Gt333 + - Gt112*(2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + - Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L)*gtu32 + - gtu21*(2*Gt123*gt12L*Gt211 + Gt112*gt13L*Gt212 + gt12L*Gt212*Gt223 + - Gt211*Gt223*gt22L + Gt112*Gt211*gt23L + 2*Gt123*gt13L*Gt311 + - Gt223*gt23L*Gt311 + Gt113*gt13L*Gt312 + gt13L*Gt223*Gt312 + - Gt213*gt23L*Gt312 + gt12L*Gt213*Gt323 + Gt211*gt23L*Gt323 + - gt13L*Gt313*Gt323 + gt11L* - (2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + - Gt111*(Gt112*gt13L + gt12L*Gt223 + gt13L*Gt323) + - Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + Gt312*Gt313*gt33L + - Gt311*Gt323*gt33L + gt23L*SQR(Gt212))) + - 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + - Gt213*Gt223*gt22L + Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + - Gt233*gt23L*Gt312 + 2*Gt123*gt13L*Gt313 + Gt223*gt23L*Gt313 + - Gt113*gt13L*Gt323 + gt13L*Gt223*Gt323 + gt12L*Gt233*Gt323 + - Gt213*gt23L*Gt323 + gt11L* - (2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + gt13L*Gt323*Gt333 + - Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L + - Gt112*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + gt12L*SQR(Gt223)) + - 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + - Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + - 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + - Gt211*gt23L*Gt313 + gt11L* - (2*Gt111*Gt113 + Gt112*Gt213 + Gt113*Gt313) + Gt211*Gt312*gt33L + - 2*Gt311*Gt313*gt33L + Gt111* - (gt12L*Gt213 + Gt211*gt23L + gt13L*Gt313 + Gt311*gt33L) + - gt13L*SQR(Gt111) + gt13L*SQR(Gt313)) + - 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + - Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + 2*Gt133*gt13L*Gt311 + - Gt233*gt23L*Gt311 + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + - Gt213*gt23L*Gt313 + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + - gt13L*Gt313*Gt333 + Gt111* - (2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + - Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + Gt311*Gt333*gt33L + - gt33L*SQR(Gt313)) + 2*gtu31* - (Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + - Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + Gt233*gt23L*Gt311 + - 3*Gt113*gt13L*Gt313 + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + - gt13L*Gt213*Gt323 + gt13L*Gt313*Gt333 + Gt211*Gt323*gt33L + - Gt311*Gt333*gt33L + Gt111*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + - gt11L*(Gt123*Gt213 + Gt133*Gt313 + 2*SQR(Gt113)) + gt22L*SQR(Gt213) + - gt33L*SQR(Gt313)) + 2*gtu22* - (2*Gt123*gt12L*Gt212 + Gt122*gt13L*Gt212 + gt12L*Gt222*Gt223 + - Gt212*Gt223*gt22L + Gt212*Gt222*gt23L + 3*Gt123*gt13L*Gt312 + - 2*Gt223*gt23L*Gt312 + gt13L*Gt223*Gt322 + gt12L*Gt223*Gt323 + - Gt212*gt23L*Gt323 + gt11L* - (2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + Gt212*Gt322*gt33L + - 2*Gt312*Gt323*gt33L + Gt112* - (gt12L*Gt223 + Gt212*gt23L + gt13L*Gt323 + Gt312*gt33L) + - gt13L*SQR(Gt112) + gt13L*SQR(Gt323)) + - 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + - gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + Gt213*Gt223*gt23L + - 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + - gt11L*Gt133*Gt333 + gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + - Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + - Gt113*(2*gt11L*Gt133 + gt12L*Gt233 + Gt213*gt23L + gt13L*Gt333 + - Gt313*gt33L) + gt13L*SQR(Gt113) + gt13L*SQR(Gt333))); + gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*T1000008) + + 2*gt13L*gtu31*T1000009 + gt33L*gtu33*T1000009 + 3*gt11L*gtu11*T1000010 + + 3*gt11L*gtu22*T1000011 + gt33L*gtu22*T1000012 + 3*gt11L*gtu33*T1000041 + + gt22L*gtu33*T1000067 + Gt111* + (6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xt1L) + + Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + + 2*gt11L*Gt123*gtu31 + gt12L*Xt1L) + + Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + + 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xt1L) + + gt12L*Gt212*Xt2L + gt13L*Gt312*Xt2L + + Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + + 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xt2L) + + Gt113*gt11L*Xt3L + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + + 2*gt11L*Gt123*gtu33 + gt12L*Xt3L) + + Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + + 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + + gt13L*Xt3L) + gt22L*gtu11*SQR(Gt211) + gt33L*gtu11*SQR(Gt311); Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + @@ -697,115 +938,33 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK 2*Gt123*Gt311*gtu31 + 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - - gtu33*khalf*PDstandardNth33gt22 + Gt212*gt22L*Xt1L + - Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + 2*gt11L*Gt122*gtu21 + - 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + 2*Gt123*gt12L*gtu32 + - gt12L*Xt1L) + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + - 2*gt23L*Gt313*gtu11 + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + - 2*gt12L*Gt133*gtu31 + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + - 2*Gt123*gt23L*gtu32 + gt23L*Xt1L) + Gt122*gt12L*Xt2L + - Gt222*gt22L*Xt2L + gt23L*Gt322*Xt2L + Gt123*gt12L*Xt3L + Gt223*gt22L*Xt3L + - gt23L*Gt323*Xt3L + gt11L*gtu11*SQR(Gt112) + - 2*(Gt112*Gt211*gt22L*gtu11 + Gt112*gt23L*Gt311*gtu11 + - Gt113*gt12L*Gt312*gtu11 + Gt112*gt13L*Gt312*gtu11 + - Gt111*Gt122*gt12L*gtu21 + Gt122*Gt211*gt22L*gtu21 + - Gt112*Gt212*gt22L*gtu21 + Gt223*gt22L*Gt312*gtu21 + - Gt112*gt23L*Gt312*gtu21 + Gt112*gt13L*Gt322*gtu21 + - Gt213*gt22L*Gt322*gtu21 + Gt122*Gt212*gt22L*gtu22 + - Gt123*gt12L*Gt322*gtu22 + Gt122*gt13L*Gt322*gtu22 + - Gt223*gt22L*Gt322*gtu22 + gt23L*Gt322*Gt323*gtu22 + - Gt112*Gt113*gt12L*gtu31 + Gt123*Gt211*gt22L*gtu31 + - Gt112*Gt213*gt22L*gtu31 + Gt112*gt13L*Gt323*gtu31 + - Gt213*gt22L*Gt323*gtu31 + gt11L*Gt122*Gt123*gtu32 + - Gt123*gt13L*Gt322*gtu32 + gt22L*Gt233*Gt322*gtu32 + - Gt122*gt13L*Gt323*gtu32 + Gt223*gt22L*Gt323*gtu32 + - gt12L*Gt133*Gt323*gtu33 + Gt123*gt13L*Gt323*gtu33 + - gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*SQR(Gt112)) + - gt11L*gtu22*SQR(Gt122) + gt11L*gtu33*SQR(Gt123) + - 3*gt22L*gtu11*SQR(Gt212) + 3*gt22L*gtu22*SQR(Gt222) + - 3*gt22L*gtu33*SQR(Gt223) + gt33L*gtu11*SQR(Gt312) + - gt33L*gtu22*SQR(Gt322) + 2*gt23L*gtu32*SQR(Gt323) + gt33L*gtu33*SQR(Gt323); - - Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - - 2*gtu31*PDstandardNth13gt23 - gtu22*PDstandardNth22gt23 - - 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + - gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3 - - gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + - gt22L*PDstandardNth3Xt2 + gt23L*PDstandardNth3Xt3 + - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt1L + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt1L + - (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xt2L + - (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xt2L + - (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xt3L + - (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xt3L + - 2*((Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + - Gt123*gt12L*Gt212 + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + - Gt123*Gt211*gt22L + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + - Gt212*Gt222*gt23L + Gt123*gt23L*Gt311 + Gt123*gt13L*Gt312 + - 2*Gt223*gt23L*Gt312 + Gt113*gt13L*Gt322 + Gt213*gt23L*Gt322 + - Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + - Gt212*gt23L*Gt323 + gt23L*Gt313*Gt323 + Gt122*Gt311*gt33L + - Gt222*Gt312*gt33L + Gt313*Gt322*gt33L + Gt312*Gt323*gt33L)*gtu21 + - (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + - gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + - 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + - Gt212*Gt223*gt23L + Gt133*gt23L*Gt311 + Gt133*gt13L*Gt312 + - 2*Gt233*gt23L*Gt312 + Gt113*gt13L*Gt323 + Gt213*gt23L*Gt323 + - Gt113*gt12L*Gt333 + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + - Gt212*gt23L*Gt333 + gt23L*Gt313*Gt333 + Gt123*Gt311*gt33L + - Gt223*Gt312*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L)*gtu31 + - gtu21*(Gt113*gt11L*Gt122 + Gt122*gt13L*Gt212 + 2*Gt122*gt12L*Gt213 + - Gt113*gt12L*Gt222 + Gt113*Gt212*gt22L + 2*Gt213*Gt222*gt22L + - Gt212*Gt222*gt23L + Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + - Gt223*gt23L*Gt312 + Gt123*gt12L*Gt313 + Gt122*gt13L*Gt313 + - Gt223*gt22L*Gt313 + Gt222*gt23L*Gt313 + Gt113*gt13L*Gt322 + - 2*Gt213*gt23L*Gt322 + gt23L*Gt313*Gt323 + Gt212*Gt322*gt33L + - Gt313*Gt322*gt33L + Gt312*Gt323*gt33L + - Gt112*(Gt113*gt12L + Gt212*gt23L + Gt312*gt33L) + gt13L*SQR(Gt112))) - + 2*gtu31*(2*Gt213*Gt223*gt22L + Gt112*Gt213*gt23L + - Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + - gt12L*Gt133*Gt313 + gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + - Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + 2*Gt213*gt23L*Gt323 + - Gt113*(gt11L*Gt123 + Gt112*gt13L + gt12L*Gt223 + Gt213*gt22L + - gt23L*Gt313 + gt13L*Gt323) + gt23L*Gt313*Gt333 + - Gt112*Gt313*gt33L + Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L + gt12L*SQR(Gt113)) + - 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + - Gt113*gt12L*Gt212 + Gt112*gt13L*Gt212 + 2*Gt112*gt12L*Gt213 + - Gt113*Gt211*gt22L + 2*Gt212*Gt213*gt22L + Gt112*Gt211*gt23L + - Gt113*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + 3*Gt213*gt23L*Gt312 + - Gt113*gt12L*Gt313 + Gt112*gt13L*Gt313 + Gt213*gt22L*Gt313 + - Gt212*gt23L*Gt313 + Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + - 2*Gt312*Gt313*gt33L + gt23L*SQR(Gt212) + gt23L*SQR(Gt313)) + - 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + - Gt123*gt12L*Gt222 + Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + - Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + - Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + - Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + Gt223*gt22L*Gt323 + - Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + - 2*Gt322*Gt323*gt33L + gt23L*SQR(Gt222) + gt23L*SQR(Gt323)) + - 2*gtu32*(gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + - gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + Gt133*Gt212*gt22L + - 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + - Gt222*Gt223*gt23L + Gt133*gt23L*Gt312 + Gt133*gt13L*Gt322 + - 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + Gt223*gt23L*Gt323 + - Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + Gt223*gt22L*Gt333 + - Gt222*gt23L*Gt333 + gt23L*Gt323*Gt333 + Gt123*Gt312*gt33L + - Gt223*Gt322*gt33L + Gt322*Gt333*gt33L + gt33L*SQR(Gt323)) + - 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + Gt123*gt13L*Gt222 + - 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + Gt122*Gt213*gt23L + - Gt222*Gt223*gt23L + Gt123*gt23L*Gt313 + Gt133*gt13L*Gt322 + - Gt233*gt23L*Gt322 + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + - gt22L*Gt233*Gt323 + 3*Gt223*gt23L*Gt323 + gt23L*Gt323*Gt333 + - Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + Gt322*Gt333*gt33L + - gt11L*SQR(Gt123) + 2*gt22L*SQR(Gt223) + gt33L*SQR(Gt323)) + - 2*gtu33*(gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + - gt12L*Gt133*Gt223 + Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + - 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + - Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + - gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + gt22L*Gt233*Gt333 + - Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + - 2*Gt323*Gt333*gt33L + gt23L*SQR(Gt223) + gt23L*SQR(Gt333))); + gtu33*khalf*PDstandardNth33gt22 + 3*gt22L*gtu11*T1000008 + + gt11L*gtu11*T1000011 + 2*(Gt112*Gt211*gt22L*gtu11 + + Gt112*gt23L*Gt311*gtu11 + Gt113*gt12L*Gt312*gtu11 + + Gt112*gt13L*Gt312*gtu11 + Gt111*Gt122*gt12L*gtu21 + + Gt122*Gt211*gt22L*gtu21 + Gt112*Gt212*gt22L*gtu21 + + Gt223*gt22L*Gt312*gtu21 + Gt112*gt23L*Gt312*gtu21 + + Gt112*gt13L*Gt322*gtu21 + Gt213*gt22L*Gt322*gtu21 + + Gt122*Gt212*gt22L*gtu22 + Gt123*gt12L*Gt322*gtu22 + + Gt122*gt13L*Gt322*gtu22 + Gt223*gt22L*Gt322*gtu22 + + gt23L*Gt322*Gt323*gtu22 + Gt112*Gt113*gt12L*gtu31 + + Gt123*Gt211*gt22L*gtu31 + Gt112*Gt213*gt22L*gtu31 + + Gt112*gt13L*Gt323*gtu31 + Gt213*gt22L*Gt323*gtu31 + + gt11L*Gt122*Gt123*gtu32 + Gt123*gt13L*Gt322*gtu32 + + gt22L*Gt233*Gt322*gtu32 + Gt122*gt13L*Gt323*gtu32 + + Gt223*gt22L*Gt323*gtu32 + gt12L*Gt133*Gt323*gtu33 + + Gt123*gt13L*Gt323*gtu33 + gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*T1000011) + + gt33L*gtu11*T1000012 + 2*gt23L*gtu32*T1000063 + gt33L*gtu33*T1000063 + + 3*gt22L*gtu33*T1000081 + 3*gt22L*gtu22*T1000096 + gt11L*gtu33*T1000139 + + Gt212*gt22L*Xt1L + Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + + 2*Gt123*gt12L*gtu32 + gt12L*Xt1L) + + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + 2*gt12L*Gt133*gtu31 + + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + + gt23L*Xt1L) + Gt122*gt12L*Xt2L + Gt222*gt22L*Xt2L + gt23L*Gt322*Xt2L + + Gt123*gt12L*Xt3L + Gt223*gt22L*Xt3L + gt23L*Gt323*Xt3L + + gt11L*gtu22*SQR(Gt122) + gt33L*gtu22*SQR(Gt322); Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + @@ -822,44 +981,43 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + 2*Gt133*Gt311*gtu31 + 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + - PDstandardNth3Xt3) + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + - Gt313*gt33L*Xt1L + Gt123*gt13L*Xt2L + Gt223*gt23L*Xt2L + Gt323*gt33L*Xt2L + - Gt133*gt13L*Xt3L + Gt333*gt33L*Xt3L + - Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xt3L) + - gtu11*(2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + + PDstandardNth3Xt3) + gtu11* + (2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + 2*Gt113*Gt311*gt33L + 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + - gt11L*SQR(Gt113)) + 2*(Gt111*Gt113*gt13L*gtu11 + - Gt113*gt12L*Gt213*gtu11 + Gt112*gt13L*Gt213*gtu11 + - Gt113*Gt211*gt23L*gtu11 + Gt113*gt11L*Gt123*gtu21 + - Gt112*Gt113*gt13L*gtu21 + Gt111*Gt123*gt13L*gtu21 + - Gt123*gt12L*Gt213*gtu21 + Gt122*gt13L*Gt213*gtu21 + - Gt113*gt12L*Gt223*gtu21 + Gt112*gt13L*Gt223*gtu21 + - Gt213*Gt223*gt22L*gtu21 + Gt123*Gt211*gt23L*gtu21 + - Gt113*Gt212*gt23L*gtu21 + Gt213*Gt222*gt23L*gtu21 + - Gt113*Gt312*gt33L*gtu21 + Gt223*Gt312*gt33L*gtu21 + - Gt112*Gt123*gt13L*gtu22 + Gt123*gt12L*Gt223*gtu22 + - Gt122*gt13L*Gt223*gtu22 + Gt123*Gt212*gt23L*gtu22 + - Gt222*Gt223*gt23L*gtu22 + Gt223*Gt322*gt33L*gtu22 + - Gt113*gt11L*Gt133*gtu31 + Gt111*Gt133*gt13L*gtu31 + - gt12L*Gt133*Gt213*gtu31 + Gt123*gt13L*Gt213*gtu31 + - Gt113*gt12L*Gt233*gtu31 + Gt112*gt13L*Gt233*gtu31 + - Gt213*gt22L*Gt233*gtu31 + Gt133*Gt211*gt23L*gtu31 + - Gt113*Gt213*gt23L*gtu31 + Gt213*Gt223*gt23L*gtu31 + - Gt212*Gt233*gt23L*gtu31 + Gt113*Gt313*gt33L*gtu31 + - Gt213*Gt323*gt33L*gtu31 + gt11L*Gt123*Gt133*gtu32 + - Gt113*Gt123*gt13L*gtu32 + Gt112*Gt133*gt13L*gtu32 + - gt12L*Gt133*Gt223*gtu32 + Gt123*gt13L*Gt223*gtu32 + - Gt123*gt12L*Gt233*gtu32 + Gt122*gt13L*Gt233*gtu32 + - Gt223*gt22L*Gt233*gtu32 + Gt133*Gt212*gt23L*gtu32 + - Gt123*Gt213*gt23L*gtu32 + Gt222*Gt233*gt23L*gtu32 + - Gt233*Gt322*gt33L*gtu32 + Gt223*Gt323*gt33L*gtu32 + - Gt113*Gt133*gt13L*gtu33 + gt12L*Gt133*Gt233*gtu33 + - Gt123*gt13L*Gt233*gtu33 + Gt133*Gt213*gt23L*gtu33 + - Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*SQR(Gt113)) + - gt11L*gtu22*SQR(Gt123) + gt11L*gtu33*SQR(Gt133) + gt22L*gtu11*SQR(Gt213) + - gt22L*gtu22*SQR(Gt223) + 2*gt23L*gtu32*SQR(Gt223) + - gt22L*gtu33*SQR(Gt233) + 3*gt33L*gtu11*SQR(Gt313) + - 3*gt33L*gtu22*SQR(Gt323) + 3*gt33L*gtu33*SQR(Gt333); + 3*gt33L*T1000009) + gt11L*gtu11*T1000041 + + 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + + Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + + Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + + Gt123*Gt211*gt23L*gtu21 + Gt113*Gt212*gt23L*gtu21 + + Gt213*Gt222*gt23L*gtu21 + Gt113*Gt312*gt33L*gtu21 + + Gt223*Gt312*gt33L*gtu21 + Gt112*Gt123*gt13L*gtu22 + + Gt123*gt12L*Gt223*gtu22 + Gt122*gt13L*Gt223*gtu22 + + Gt123*Gt212*gt23L*gtu22 + Gt222*Gt223*gt23L*gtu22 + + Gt223*Gt322*gt33L*gtu22 + Gt113*gt11L*Gt133*gtu31 + + Gt111*Gt133*gt13L*gtu31 + gt12L*Gt133*Gt213*gtu31 + + Gt123*gt13L*Gt213*gtu31 + Gt113*gt12L*Gt233*gtu31 + + Gt112*gt13L*Gt233*gtu31 + Gt213*gt22L*Gt233*gtu31 + + Gt133*Gt211*gt23L*gtu31 + Gt113*Gt213*gt23L*gtu31 + + Gt213*Gt223*gt23L*gtu31 + Gt212*Gt233*gt23L*gtu31 + + Gt113*Gt313*gt33L*gtu31 + Gt213*Gt323*gt33L*gtu31 + + gt11L*Gt123*Gt133*gtu32 + Gt113*Gt123*gt13L*gtu32 + + Gt112*Gt133*gt13L*gtu32 + gt12L*Gt133*Gt223*gtu32 + + Gt123*gt13L*Gt223*gtu32 + Gt123*gt12L*Gt233*gtu32 + + Gt122*gt13L*Gt233*gtu32 + Gt223*gt22L*Gt233*gtu32 + + Gt133*Gt212*gt23L*gtu32 + Gt123*Gt213*gt23L*gtu32 + + Gt222*Gt233*gt23L*gtu32 + Gt233*Gt322*gt33L*gtu32 + + Gt223*Gt323*gt33L*gtu32 + Gt113*Gt133*gt13L*gtu33 + + gt12L*Gt133*Gt233*gtu33 + Gt123*gt13L*Gt233*gtu33 + + Gt133*Gt213*gt23L*gtu33 + Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*T1000041) + + 3*gt33L*gtu22*T1000063 + gt22L*gtu11*T1000067 + gt22L*gtu22*T1000081 + + 2*gt23L*gtu32*T1000081 + gt11L*gtu22*T1000139 + 3*gt33L*gtu33*T1000145 + + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + Gt313*gt33L*Xt1L + Gt123*gt13L*Xt2L + + Gt223*gt23L*Xt2L + Gt323*gt33L*Xt2L + Gt133*gt13L*Xt3L + Gt333*gt33L*Xt3L + + Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xt3L) + + gt11L*gtu33*SQR(Gt133) + gt22L*gtu33*SQR(Gt233); Rphi11 = 2*(-PDstandardNth11phi - gt11L*gtu11*PDstandardNth11phi - 2*gt11L*gtu21*PDstandardNth12phi - 2*gt11L*gtu31*PDstandardNth13phi - @@ -874,13 +1032,11 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt111 + Gt111*gt11L*gtu11 + 2*Gt112*gt11L*gtu21 + gt11L*Gt122*gtu22 + 2*Gt113*gt11L*gtu31 + 2*gt11L*Gt123*gtu32 + gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandardNth2phi - - 4*gt11L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 + - gt11L*(2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt11L*gtu32*PDstandardNth3phi) + - (2 - 2*gt11L*gtu11)*SQR(PDstandardNth1phi) - - 2*gt11L*gtu22*SQR(PDstandardNth2phi) - - 2*gt11L*gtu33*SQR(PDstandardNth3phi)); + 4*gt11L*gtu31*PDstandardNth3phi) + (2 - 2*gt11L*gtu11)*T1000146 - + 2*gt11L*gtu22*T1000147 - 2*gt11L*gtu33*T1000148 + + PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 - + 4*gt11L*gtu32*PDstandardNth3phi + + gt11L*(T1000149 + T1000150 + T1000151 + T1000152 + T1000154))); Rphi12 = 2*(-(gt12L*gtu11*PDstandardNth11phi) - PDstandardNth12phi - 2*gt12L*gtu21*PDstandardNth12phi - 2*gt12L*gtu31*PDstandardNth13phi - @@ -895,13 +1051,11 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt112 + Gt111*gt12L*gtu11 + 2*Gt112*gt12L*gtu21 + Gt122*gt12L*gtu22 + 2*Gt113*gt12L*gtu31 + 2*Gt123*gt12L*gtu32 + gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandardNth2phi - - 4*gt12L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt212 + 2*gt12L*Gt212*gtu21 + - gt12L*(Gt211*gtu11 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt12L*gtu32*PDstandardNth3phi) - - 2*gt12L*gtu11*SQR(PDstandardNth1phi) - - 2*gt12L*gtu22*SQR(PDstandardNth2phi) - - 2*gt12L*gtu33*SQR(PDstandardNth3phi)); + 4*gt12L*gtu31*PDstandardNth3phi) - 2*gt12L*gtu11*T1000146 - + 2*gt12L*gtu22*T1000147 - 2*gt12L*gtu33*T1000148 + + PDstandardNth2phi*(Gt212 + 2*gt12L*Gt212*gtu21 - + 4*gt12L*gtu32*PDstandardNth3phi + + gt12L*(T1000149 + T1000150 + T1000151 + T1000152 + T1000153))); Rphi13 = 2*(-PDstandardNth13phi + gt13L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - @@ -916,13 +1070,11 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt113 + Gt111*gt13L*gtu11 + 2*Gt112*gt13L*gtu21 + Gt122*gt13L*gtu22 + 2*Gt113*gt13L*gtu31 + 2*Gt123*gt13L*gtu32 + Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandardNth2phi + - (2 - 4*gt13L*gtu31)*PDstandardNth3phi) + - PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 + - gt13L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt13L*gtu32*PDstandardNth3phi) - - 2*gt13L*gtu11*SQR(PDstandardNth1phi) - - 2*gt13L*gtu22*SQR(PDstandardNth2phi) - - 2*gt13L*gtu33*SQR(PDstandardNth3phi)); + (2 - 4*gt13L*gtu31)*PDstandardNth3phi) - 2*gt13L*gtu11*T1000146 - + 2*gt13L*gtu22*T1000147 - 2*gt13L*gtu33*T1000148 + + PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 - + 4*gt13L*gtu32*PDstandardNth3phi + + gt13L*(T1000149 + T1000151 + T1000152 + T1000153 + T1000154))); Rphi22 = 2*(-PDstandardNth22phi + gt22L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - @@ -937,13 +1089,11 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt122 + Gt111*gt22L*gtu11 + 2*Gt112*gt22L*gtu21 + Gt122*gt22L*gtu22 + 2*Gt113*gt22L*gtu31 + 2*Gt123*gt22L*gtu32 + Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandardNth2phi - - 4*gt22L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt222 + Gt222*gt22L*gtu22 + - gt22L*(Gt211*gtu11 + 2*Gt212*gtu21 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt22L*gtu32*PDstandardNth3phi) - - 2*gt22L*gtu11*SQR(PDstandardNth1phi) + - (2 - 2*gt22L*gtu22)*SQR(PDstandardNth2phi) - - 2*gt22L*gtu33*SQR(PDstandardNth3phi)); + 4*gt22L*gtu31*PDstandardNth3phi) - 2*gt22L*gtu11*T1000146 + + (2 - 2*gt22L*gtu22)*T1000147 - 2*gt22L*gtu33*T1000148 + + PDstandardNth2phi*(Gt222 + Gt222*gt22L*gtu22 - + 4*gt22L*gtu32*PDstandardNth3phi + + gt22L*(T1000150 + T1000151 + T1000152 + T1000153 + T1000154))); Rphi23 = 2*(-PDstandardNth23phi + gt23L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - @@ -958,166 +1108,247 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt123 + Gt111*gt23L*gtu11 + 2*Gt112*gt23L*gtu21 + Gt122*gt23L*gtu22 + 2*Gt113*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandardNth2phi - - 4*gt23L*gtu31*PDstandardNth3phi) + + 4*gt23L*gtu31*PDstandardNth3phi) - 2*gt23L*gtu11*T1000146 - + 2*gt23L*gtu22*T1000147 - 2*gt23L*gtu33*T1000148 + PDstandardNth2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + - gt23L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + - Gt233*gtu33) + (2 - 4*gt23L*gtu32)*PDstandardNth3phi) - - 2*gt23L*gtu11*SQR(PDstandardNth1phi) - - 2*gt23L*gtu22*SQR(PDstandardNth2phi) - - 2*gt23L*gtu33*SQR(PDstandardNth3phi)); + (2 - 4*gt23L*gtu32)*PDstandardNth3phi + + gt23L*(T1000149 + T1000150 + T1000152 + T1000153 + T1000154))); Rphi33 = 2*(-PDstandardNth33phi + (Gt333 + gt33L*(Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))* - PDstandardNth3phi + PDstandardNth2phi* - (Gt233 + gt33L*(Gt211*gtu11 + Gt222*gtu22 + - 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33 - - 4*gtu32*PDstandardNth3phi)) + - PDstandardNth1phi*(Gt133 + - gt33L*(Gt111*gtu11 + Gt122*gtu22 + + PDstandardNth3phi + PDstandardNth1phi* + (Gt133 + gt33L*(Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - 4*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi))) + - 2*SQR(PDstandardNth3phi) + - gt33L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - - 2*gtu32*PDstandardNth23phi - gtu33*PDstandardNth33phi + - Gt311*gtu11*PDstandardNth3phi - 2*gtu11*SQR(PDstandardNth1phi) - - 2*gtu22*SQR(PDstandardNth2phi) - 2*gtu33*SQR(PDstandardNth3phi))); + 2*T1000148 + gt33L*(-(gtu11*PDstandardNth11phi) - + 2*gtu21*PDstandardNth12phi - 2*gtu31*PDstandardNth13phi - + gtu22*PDstandardNth22phi - 2*gtu32*PDstandardNth23phi - + gtu33*PDstandardNth33phi + Gt311*gtu11*PDstandardNth3phi - + 2*gtu11*T1000146 - 2*gtu22*T1000147 - 2*gtu33*T1000148) + + PDstandardNth2phi*(Gt233 + + gt33L*(Gt233*gtu33 - 4*gtu32*PDstandardNth3phi + T1000149 + T1000150 + + T1000151 + T1000153 + T1000154))); - e4phi = exp(4*phiL); - - em4phi = INV(e4phi); + cXt2L = T1000149 + T1000150 + T1000151 + T1000152 + T1000153 + T1000154 - Xt2L; - gu11 = em4phi*gtu11; - - gu21 = em4phi*gtu21; + Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - + 2*gtu31*PDstandardNth13gt12 + gt12L*PDstandardNth1Xt1 + + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - + gtu22*PDstandardNth22gt12 - 2*gtu32*PDstandardNth23gt12 + + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + + gt13L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt12 + + 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + 2*Gt122*gt13L*Gt311 + + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + gt13L*Gt222*Gt312 + + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + gt23L*Gt312*Gt313 + + Gt113*gt11L*Gt322 + gt13L*Gt313*Gt322 + Gt311*Gt322*gt33L + T1000013 + + T1000014 + T1000015 + gt12L* + (2*Gt122*Gt211 + Gt212*Gt222 + Gt213*Gt322 + T1000017 + T1000018) + + Gt111*(T1000016 + T1000019 + T1000020 + T1000023)) + + 2*gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + + 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + + gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + + gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + + gt12L*T1000008 + gt12L*T1000010 + + gt11L*(2*Gt111*Gt112 + T1000017 + T1000018) + + Gt111*(T1000042 + T1000043 + T1000044 + T1000045)) + + 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + 3*Gt112*gt13L*Gt312 + + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + gt13L*Gt212*Gt322 + + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + gt33L*T1000012 + T1000013 + + T1000014 + T1000015 + gt11L*(Gt122*Gt212 + 2*T1000011 + T1000024) + + Gt111*T1000046) + 2*gtu22* + (gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + + Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + + gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + gt23L*Gt312*Gt323 + + gt13L*Gt322*Gt323 + Gt312*Gt322*gt33L + gt12L*T1000011 + + Gt112*(T1000019 + T1000020 + T1000021 + T1000022 + T1000023) + + gt12L*(3*Gt122*Gt212 + Gt223*Gt322 + T1000024 + T1000096)) + + 2*gtu31*(Gt123*gt12L*Gt211 + gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + + gt12L*Gt233*Gt312 + 2*Gt112*gt13L*Gt313 + gt13L*Gt212*Gt323 + + gt23L*Gt311*Gt333 + gt13L*Gt312*Gt333 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000032 + T1000049 + T1000052 + + T1000055 + T1000057 + gt11L*(Gt123*Gt212 + Gt133*Gt312 + T1000058) + + T1000097 + T1000099) + 2*gtu31* + (Gt112*gt11L*Gt223 + Gt113*gt11L*Gt323 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000040 + + gt12L*(2*Gt123*Gt211 + Gt212*Gt223 + Gt213*Gt323 + T1000047 + + T1000048) + T1000050 + T1000051 + T1000053 + T1000054 + T1000056 + + T1000100 + T1000103 + T1000106 + T1000107) + + 2*gtu32*(gt11L*Gt122*Gt223 + 2*Gt123*gt13L*Gt312 + gt11L*Gt123*Gt323 + + T1000033 + T1000034 + T1000035 + T1000036 + Gt112*T1000040 + + gt12L*(Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323) + T1000059) + + T1000062 + T1000064 + T1000114 + T1000116 + T1000121 + T1000123 + + T1000124 + T1000125) + 2*gtu32* + (gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + + gt12L*Gt233*Gt322 + gt11L* + (2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + gt13L*Gt222*Gt323 + + gt23L*Gt312*Gt333 + gt13L*Gt322*Gt333 + Gt112*T1000032 + T1000033 + + T1000034 + T1000035 + T1000036 + T1000061 + T1000110 + T1000113 + + T1000115 + T1000119 + T1000120 + T1000126) + + 2*gtu33*(gt11L*Gt123*Gt223 + gt11L*Gt133*Gt323 + + Gt113*(T1000030 + T1000031 + T1000037 + T1000038 + T1000039) + + T1000074 + T1000075 + T1000080 + + gt12L*(3*Gt123*Gt213 + Gt233*Gt323 + T1000069 + T1000081) + T1000083 + + T1000084 + T1000133 + T1000134 + T1000135 + T1000136 + T1000137) + + (Gt111*gt12L + T1000042 + T1000043)*Xt1L + + (Gt112*gt11L + T1000044 + T1000045)*Xt1L + + (gt11L*Gt122 + T1000020 + T1000023)*Xt2L + T1000046*Xt2L + + T1000032*Xt3L + T1000094*Xt3L); - gu31 = em4phi*gtu31; + Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - + 2*gtu31*PDstandardNth13gt13 + gt13L*PDstandardNth1Xt1 + + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - + gtu22*PDstandardNth22gt13 - 2*gtu32*PDstandardNth23gt13 - + gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + + gt12L*PDstandardNth3Xt2 + gt13L*PDstandardNth3Xt3 + + 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + + Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + 2*Gt133*gt13L*Gt311 + + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + Gt213*gt23L*Gt313 + + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + + gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + + Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + T1000068 + T1000070 + + T1000071 + T1000072 + Gt111*T1000079) + + 2*gtu31*(Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + + Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + 3*Gt113*gt13L*Gt313 + + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + gt13L*Gt213*Gt323 + + Gt211*Gt323*gt33L + gt22L*T1000067 + T1000068 + + gt11L*(Gt123*Gt213 + 2*T1000041 + T1000069) + T1000070 + T1000071 + + T1000072 + Gt111*T1000088) + + 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + + Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + + 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + + Gt211*gt23L*Gt313 + Gt211*Gt312*gt33L + 2*Gt311*Gt313*gt33L + + gt13L*T1000009 + gt13L*T1000010 + + gt11L*(2*Gt111*Gt113 + T1000047 + T1000048) + + Gt111*(T1000089 + T1000090 + T1000091 + T1000092)) + + 2*gtu21*(Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + + gt12L*Gt213*Gt222 + Gt211*Gt222*gt23L + Gt123*gt13L*Gt311 + + gt12L*Gt223*Gt313 + gt13L*Gt213*Gt322 + Gt211*Gt322*gt33L + T1000025 + + T1000027 + T1000051 + T1000054 + T1000055 + T1000056 + T1000057 + + gt11L*(Gt123*Gt313 + T1000058 + T1000059) + Gt111*T1000095 + + T1000104 + T1000105) + 2*gtu21* + (2*Gt123*gt12L*Gt211 + gt12L*Gt213*Gt323 + + gt11L*(2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + T1000026 + + T1000027 + T1000028 + T1000049 + T1000050 + T1000051 + T1000052 + + T1000053 + T1000054 + T1000055 + T1000056 + + Gt111*(T1000038 + T1000039 + T1000060) + T1000098 + T1000101 + + T1000102 + T1000108 + T1000109) + + 2*gtu22*(2*Gt123*gt12L*Gt212 + 3*Gt123*gt13L*Gt312 + gt12L*Gt223*Gt323 + + gt11L*(2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + + 2*Gt312*Gt323*gt33L + T1000034 + T1000036 + T1000061 + T1000062 + + T1000064 + Gt112*(T1000038 + T1000039 + T1000065 + T1000066) + + T1000111 + T1000112 + T1000117 + T1000118 + T1000127) + + 2*gtu32*(Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + Gt212*gt22L*Gt233 + + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + 2*Gt133*gt13L*Gt312 + + Gt123*gt13L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + + gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + + Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + T1000074 + T1000075 + + Gt112*T1000079 + T1000080 + T1000082 + T1000085 + T1000132) + + 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + + Gt213*Gt223*gt22L + gt12L*Gt233*Gt323 + + gt11L*(2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + T1000074 + + T1000075 + T1000080 + gt12L*T1000081 + T1000082 + T1000083 + + T1000084 + T1000085 + Gt112*T1000088 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000138) + + 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + + gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + Gt213*Gt223*gt23L + + 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + + gt11L*Gt133*Gt333 + gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + + Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + gt13L*T1000041 + + Gt113*(T1000076 + T1000077 + T1000078 + T1000086 + T1000087) + + gt13L*T1000145) + (Gt113*gt11L + T1000089 + T1000090)*Xt1L + + (Gt111*gt13L + T1000091 + T1000092)*Xt1L + T1000094*Xt2L + + T1000095*Xt2L + (gt11L*Gt133 + T1000077 + T1000078)*Xt3L + T1000088*Xt3L); - gu22 = em4phi*gtu22; + Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - + 2*gtu31*PDstandardNth13gt23 - gtu22*PDstandardNth22gt23 - + 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + + gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3 - + gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + + gt22L*PDstandardNth3Xt2 + gt23L*PDstandardNth3Xt3 + + 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + + Gt123*gt12L*Gt222 + Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + + Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + + Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + + Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + Gt223*gt22L*Gt323 + + Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + + 2*Gt322*Gt323*gt33L + gt23L*T1000063 + gt23L*T1000096) + + 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + + 2*Gt212*Gt213*gt22L + 3*Gt213*gt23L*Gt312 + Gt113*gt12L*Gt313 + + 2*Gt312*Gt313*gt33L + T1000057 + T1000097 + T1000098 + T1000099 + + T1000100 + T1000101 + T1000102 + T1000103 + T1000104 + T1000105 + + T1000106 + T1000107 + T1000108 + T1000109) + + 2*gtu21*(Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + Gt123*Gt211*gt22L + + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + Gt123*gt23L*Gt311 + + Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + + Gt122*Gt311*gt33L + Gt222*Gt312*gt33L + T1000035 + T1000036 + + T1000110 + T1000111 + T1000112 + T1000113 + T1000114 + T1000115 + + T1000116 + T1000122) + 2*gtu21* + (Gt113*gt11L*Gt122 + 2*Gt213*Gt222*gt22L + Gt123*gt12L*Gt313 + + Gt122*gt13L*Gt313 + 2*Gt213*gt23L*Gt322 + + Gt112*(T1000029 + T1000065 + T1000066) + T1000111 + T1000113 + + T1000114 + T1000115 + T1000116 + T1000117 + T1000118 + T1000119 + + T1000120 + T1000121 + T1000122 + T1000123 + T1000124 + T1000125 + + T1000126 + T1000127) + 2*gtu31* + (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + + gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + + 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + + Gt133*gt23L*Gt311 + 2*Gt233*gt23L*Gt312 + Gt113*gt12L*Gt333 + + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + Gt123*Gt311*gt33L + + Gt223*Gt312*gt33L + T1000080 + T1000085 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000132 + T1000133) + + 2*gtu31*(Gt112*Gt213*gt23L + gt12L*Gt133*Gt313 + + Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + Gt112*Gt313*gt33L + + T1000074 + T1000080 + T1000082 + T1000085 + + Gt113*(T1000030 + T1000031 + T1000038 + T1000039 + T1000060 + + T1000093) + T1000128 + T1000129 + T1000133 + T1000134 + T1000135 + + T1000136 + T1000137 + T1000138) + + 2*gtu32*(gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + + gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + Gt133*Gt212*gt22L + + 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + + Gt133*gt23L*Gt312 + 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + + Gt223*gt23L*Gt323 + Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + + Gt223*gt22L*Gt333 + Gt222*gt23L*Gt333 + Gt123*Gt312*gt33L + + Gt223*Gt322*gt33L + T1000140 + T1000141 + T1000142 + T1000143 + + T1000144) + 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + + Gt123*gt13L*Gt222 + 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + + Gt122*Gt213*gt23L + Gt123*gt23L*Gt313 + Gt233*gt23L*Gt322 + + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + gt22L*Gt233*Gt323 + + 3*Gt223*gt23L*Gt323 + Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + + 2*gt22L*T1000081 + gt11L*T1000139 + T1000140 + T1000141 + T1000142 + + T1000143 + T1000144) + 2*gtu33* + (gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + + gt12L*Gt133*Gt223 + Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + + 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + + Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + + gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + gt22L*Gt233*Gt333 + + Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + + 2*Gt323*Gt333*gt33L + gt23L*T1000081 + gt23L*T1000145) + + T1000032*Xt1L + T1000095*Xt1L + + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xt2L + + (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xt2L + + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xt3L + + (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xt3L); - gu32 = em4phi*gtu32; + R11 = Rphi11 + Rt11; - gu33 = em4phi*gtu33; + R22 = Rphi22 + Rt22; - R11 = Rphi11 + Rt11; + R33 = Rphi33 + Rt33; R12 = Rphi12 + Rt12; R13 = Rphi13 + Rt13; - R22 = Rphi22 + Rt22; - R23 = Rphi23 + Rt23; - R33 = Rphi33 + Rt33; - trR = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + gu32*R23) + gu33*R33; - Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; - - Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; - - Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; - - Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; - - Atm22 = At12L*gtu21 + At22L*gtu22 + At23L*gtu32; - - Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; - - Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; - - Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; - - Atm33 = At13L*gtu31 + At23L*gtu32 + At33L*gtu33; - HL = -2*(Atm12*Atm21 + Atm13*Atm31 + Atm23*Atm32) + trR - SQR(Atm11) - SQR(Atm22) - SQR(Atm33) + ktwothird*SQR(trKL); - M1L = -(At12L*Gt112*gtu22) - At11L*Gt122*gtu22 - At22L*Gt212*gtu22 - - At12L*Gt222*gtu22 - At23L*Gt312*gtu22 - At13L*Gt322*gtu22 - - At13L*Gt111*gtu31 - 3*At11L*Gt113*gtu31 - At23L*Gt211*gtu31 - - 3*At12L*Gt213*gtu31 - At33L*Gt311*gtu31 - 3*At13L*Gt313*gtu31 - - At13L*Gt112*gtu32 - At12L*Gt113*gtu32 - At23L*Gt212*gtu32 - - At22L*Gt213*gtu32 - 2*At12L*Gt223*gtu32 - At33L*Gt312*gtu32 - - At23L*Gt313*gtu32 - 2*At13L*Gt323*gtu32 - - 2*(At11L*Gt111*gtu11 + At12L*Gt211*gtu11 + At13L*Gt311*gtu11 + - At11L*Gt123*gtu32) - At13L*Gt113*gtu33 - At11L*Gt133*gtu33 - - At23L*Gt213*gtu33 - At12L*Gt233*gtu33 - At33L*Gt313*gtu33 - - At13L*Gt333*gtu33 + gtu11*PDstandardNth1At11 + - gtu21*(-(At12L*Gt111) - 3*At11L*Gt112 - At22L*Gt211 - 3*At12L*Gt212 - - At23L*Gt311 - 3*At13L*Gt312 + PDstandardNth1At12) + - gtu31*PDstandardNth1At13 + 6*At11L*gtu11*PDstandardNth1phi + - 6*At12L*gtu21*PDstandardNth1phi + 6*At13L*gtu31*PDstandardNth1phi - - ktwothird*PDstandardNth1trK + gtu21*PDstandardNth2At11 + - gtu22*PDstandardNth2At12 + gtu32*PDstandardNth2At13 + - 6*At11L*gtu21*PDstandardNth2phi + 6*At12L*gtu22*PDstandardNth2phi + - 6*At13L*gtu32*PDstandardNth2phi + gtu31*PDstandardNth3At11 + - gtu32*PDstandardNth3At12 + gtu33*PDstandardNth3At13 + - 6*At11L*gtu31*PDstandardNth3phi + 6*At12L*gtu32*PDstandardNth3phi + - 6*At13L*gtu33*PDstandardNth3phi; - - M2L = -(At12L*Gt111*gtu11) - At11L*Gt112*gtu11 - At22L*Gt211*gtu11 - - At12L*Gt212*gtu11 - At23L*Gt311*gtu11 - At13L*Gt312*gtu11 - - 3*At12L*Gt112*gtu21 - At11L*Gt122*gtu21 - 3*At22L*Gt212*gtu21 - - At12L*Gt222*gtu21 - 3*At23L*Gt312*gtu21 - At13L*Gt322*gtu21 - - 2*At12L*Gt122*gtu22 - 2*At22L*Gt222*gtu22 - 2*At23L*Gt322*gtu22 - - At13L*Gt112*gtu31 - 2*At12L*Gt113*gtu31 - At11L*Gt123*gtu31 - - At23L*Gt212*gtu31 - 2*At22L*Gt213*gtu31 - At12L*Gt223*gtu31 - - At33L*Gt312*gtu31 - 2*At23L*Gt313*gtu31 - At13L*Gt323*gtu31 - - At13L*Gt122*gtu32 - 3*At12L*Gt123*gtu32 - At23L*Gt222*gtu32 - - 3*At22L*Gt223*gtu32 - At33L*Gt322*gtu32 - 3*At23L*Gt323*gtu32 - - At13L*Gt123*gtu33 - At12L*Gt133*gtu33 - At23L*Gt223*gtu33 - - At22L*Gt233*gtu33 - At33L*Gt323*gtu33 - At23L*Gt333*gtu33 + - gtu11*PDstandardNth1At12 + gtu21*PDstandardNth1At22 + - gtu31*PDstandardNth1At23 + 6*At12L*gtu11*PDstandardNth1phi + - 6*At22L*gtu21*PDstandardNth1phi + 6*At23L*gtu31*PDstandardNth1phi + - gtu21*PDstandardNth2At12 + gtu22*PDstandardNth2At22 + - gtu32*PDstandardNth2At23 + 6*At12L*gtu21*PDstandardNth2phi + - 6*At22L*gtu22*PDstandardNth2phi + 6*At23L*gtu32*PDstandardNth2phi - - ktwothird*PDstandardNth2trK + gtu31*PDstandardNth3At12 + - gtu32*PDstandardNth3At22 + gtu33*PDstandardNth3At23 + - 6*At12L*gtu31*PDstandardNth3phi + 6*At22L*gtu32*PDstandardNth3phi + - 6*At23L*gtu33*PDstandardNth3phi; - - M3L = -(At13L*Gt111*gtu11) - At11L*Gt113*gtu11 - At23L*Gt211*gtu11 - - At12L*Gt213*gtu11 - At33L*Gt311*gtu11 - At13L*Gt313*gtu11 - - 2*At13L*Gt112*gtu21 - At12L*Gt113*gtu21 - At11L*Gt123*gtu21 - - 2*At23L*Gt212*gtu21 - At22L*Gt213*gtu21 - At12L*Gt223*gtu21 - - 2*At33L*Gt312*gtu21 - At23L*Gt313*gtu21 - At13L*Gt323*gtu21 - - At13L*Gt122*gtu22 - At12L*Gt123*gtu22 - At23L*Gt222*gtu22 - - At22L*Gt223*gtu22 - At33L*Gt322*gtu22 - At23L*Gt323*gtu22 - - 3*At13L*Gt113*gtu31 - At11L*Gt133*gtu31 - 3*At23L*Gt213*gtu31 - - At12L*Gt233*gtu31 - 3*At33L*Gt313*gtu31 - At13L*Gt333*gtu31 - - 3*At13L*Gt123*gtu32 - At12L*Gt133*gtu32 - 3*At23L*Gt223*gtu32 - - At22L*Gt233*gtu32 - 3*At33L*Gt323*gtu32 - At23L*Gt333*gtu32 - - 2*At13L*Gt133*gtu33 - 2*At23L*Gt233*gtu33 - 2*At33L*Gt333*gtu33 + - gtu11*PDstandardNth1At13 + gtu21*PDstandardNth1At23 + - gtu31*PDstandardNth1At33 + 6*At13L*gtu11*PDstandardNth1phi + - 6*At23L*gtu21*PDstandardNth1phi + 6*At33L*gtu31*PDstandardNth1phi + - gtu21*PDstandardNth2At13 + gtu22*PDstandardNth2At23 + - gtu32*PDstandardNth2At33 + 6*At13L*gtu21*PDstandardNth2phi + - 6*At23L*gtu22*PDstandardNth2phi + 6*At33L*gtu32*PDstandardNth2phi + - gtu31*PDstandardNth3At13 + gtu32*PDstandardNth3At23 + - gtu33*PDstandardNth3At33 + 6*At13L*gtu31*PDstandardNth3phi + - 6*At23L*gtu32*PDstandardNth3phi + 6*At33L*gtu33*PDstandardNth3phi - - ktwothird*PDstandardNth3trK; - - cSL = Log(detgt); - - cXt1L = Gt111*gtu11 + Gt122*gtu22 + - 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - Xt1L; - - cXt2L = Gt211*gtu11 + Gt222*gtu22 + - 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33 - Xt2L; - - cXt3L = Gt311*gtu11 + Gt322*gtu22 + - 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33 - Xt3L; - - cAL = At11L*gtu11 + At22L*gtu22 + - 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + At33L*gtu33; - /* Copy local copies back to grid functions */ cA[index] = cAL; @@ -1137,8 +1368,8 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK void ML_BSSN_constraints(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_constraints_Body); } diff --git a/ML_BSSN/src/ML_BSSN_constraints_boundary.c b/ML_BSSN/src/ML_BSSN_constraints_boundary.c index db3fd13..65efc47 100644 --- a/ML_BSSN/src/ML_BSSN_constraints_boundary.c +++ b/ML_BSSN/src/ML_BSSN_constraints_boundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const #pragma omp parallel LC_LOOP3 (ML_BSSN_constraints_boundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -151,8 +151,8 @@ void ML_BSSN_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const void ML_BSSN_constraints_boundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_BSSN_constraints_boundary_Body); } diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBase.c b/ML_BSSN/src/ML_BSSN_convertFromADMBase.c index 1e6b70a..28a5c5c 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBase.c +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBase.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di #pragma omp parallel LC_LOOP3 (ML_BSSN_convertFromADMBase, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -184,22 +184,50 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di g33 = gzzL; - detg = 2*g12*g13*g23 + g33*(g11*g22 - SQR(g12)) - g22*SQR(g13) - g11*SQR(g23); + K11 = kxxL; + + K12 = kxyL; + + K13 = kxzL; + + K22 = kyyL; + + K23 = kyzL; + + K33 = kzzL; - gu11 = INV(detg)*(g22*g33 - SQR(g23)); + alphaL = alpL; + + beta1L = betaxL; - gu21 = (g13*g23 - g12*g33)*INV(detg); + beta2L = betayL; + + beta3L = betazL; - gu31 = (-(g13*g22) + g12*g23)*INV(detg); + CCTK_REAL const T1000001 = SQR(g23); - gu22 = INV(detg)*(g11*g33 - SQR(g13)); + CCTK_REAL const T1000003 = SQR(g13); - gu32 = (g12*g13 - g11*g23)*INV(detg); + CCTK_REAL const T1000004 = SQR(g12); - gu33 = INV(detg)*(g11*g22 - SQR(g12)); + detg = 2*g12*g13*g23 + g11*(g22*g33 - T1000001) - g22*T1000003 - g33*T1000004; + + CCTK_REAL const T1000002 = INV(detg); phiL = Log(detg)/12.; + gu11 = (g22*g33 - T1000001)*T1000002; + + gu21 = (g13*g23 - g12*g33)*T1000002; + + gu31 = (-(g13*g22) + g12*g23)*T1000002; + + gu22 = T1000002*(g11*g33 - T1000003); + + gu32 = (g12*g13 - g11*g23)*T1000002; + + gu33 = T1000002*(g11*g22 - T1000004); + em4phi = exp(-4*phiL); gt11L = em4phi*g11; @@ -214,18 +242,6 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di gt33L = em4phi*g33; - K11 = kxxL; - - K12 = kxyL; - - K13 = kxzL; - - K22 = kyyL; - - K23 = kyzL; - - K33 = kzzL; - trKL = gu11*K11 + gu22*K22 + 2*(gu21*K12 + gu31*K13 + gu32*K23) + gu33*K33; At11L = em4phi*(K11 - g11*kthird*trKL); @@ -240,14 +256,6 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di At33L = em4phi*(K33 - g33*kthird*trKL); - alphaL = alpL; - - beta1L = betaxL; - - beta2L = betayL; - - beta3L = betazL; - /* Copy local copies back to grid functions */ alpha[index] = alphaL; @@ -276,8 +284,8 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di void ML_BSSN_convertFromADMBase(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_convertFromADMBase_Body); } diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c index 67a75c5..e2c6ecd 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con #pragma omp parallel LC_LOOP3 (ML_BSSN_convertFromADMBaseGamma, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -131,15 +131,6 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con /* Declare precomputed derivatives*/ /* Declare derivatives */ - CCTK_REAL PDupwindNth1beta1 = INITVALUE; - CCTK_REAL PDupwindNth2beta1 = INITVALUE; - CCTK_REAL PDupwindNth3beta1 = INITVALUE; - CCTK_REAL PDupwindNth1beta2 = INITVALUE; - CCTK_REAL PDupwindNth2beta2 = INITVALUE; - CCTK_REAL PDupwindNth3beta2 = INITVALUE; - CCTK_REAL PDupwindNth1beta3 = INITVALUE; - CCTK_REAL PDupwindNth2beta3 = INITVALUE; - CCTK_REAL PDupwindNth3beta3 = INITVALUE; CCTK_REAL PDstandardNth1gt11 = INITVALUE; CCTK_REAL PDstandardNth2gt11 = INITVALUE; CCTK_REAL PDstandardNth3gt11 = INITVALUE; @@ -202,6 +193,14 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ + CCTK_REAL const T1000002 = -PDstandardNth3gt12; + + CCTK_REAL const T1000004 = -PDstandardNth2gt13; + + CCTK_REAL const T1000006 = -PDstandardNth1gt23; + + CCTK_REAL const T1000008 = INV(ShiftGammaCoeff); + dir1 = Sign(beta1L); dir2 = Sign(beta2L); @@ -210,17 +209,39 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + AL = -(dtalpL*(-1 + LapseAdvectionCoeff)*INV(harmonicF)*pow(alphaL,-harmonicN)); + + CCTK_REAL const T1000001 = INV(detgt); + + CCTK_REAL const T1000003 = PDstandardNth1gt23 + PDstandardNth2gt13 + T1000002; + + CCTK_REAL const T1000005 = PDstandardNth1gt23 + PDstandardNth3gt12 + T1000004; + + CCTK_REAL const T1000007 = PDstandardNth2gt13 + PDstandardNth3gt12 + T1000006; + + B1L = (dtbetaxL - (PDupwindNth1(beta1, i, j, k)*beta1L + + PDupwindNth2(beta1, i, j, k)*beta2L + + PDupwindNth3(beta1, i, j, k)*beta3L)*ShiftAdvectionCoeff)*T1000008; + + B2L = (dtbetayL - (PDupwindNth1(beta2, i, j, k)*beta1L + + PDupwindNth2(beta2, i, j, k)*beta2L + + PDupwindNth3(beta2, i, j, k)*beta3L)*ShiftAdvectionCoeff)*T1000008; + + B3L = (dtbetazL - (PDupwindNth1(beta3, i, j, k)*beta1L + + PDupwindNth2(beta3, i, j, k)*beta2L + + PDupwindNth3(beta3, i, j, k)*beta3L)*ShiftAdvectionCoeff)*T1000008; + + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - @@ -235,22 +256,22 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu31*T1000003); Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu32*T1000003); Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu33*T1000003); Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu21*T1000005); Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu22*T1000005); Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu32*T1000005); Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + @@ -264,17 +285,14 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con gtu32*PDstandardNth2gt22 + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + - gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu21*PDstandardNth3gt22 + + gtu11*T1000007); - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + - gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu22*PDstandardNth3gt22 + + gtu21*T1000007); - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + - gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu32*PDstandardNth3gt22 + + gtu31*T1000007); Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + 2*gtu21*PDstandardNth3gt23 + @@ -297,23 +315,6 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; - AL = -(dtalpL*(-1 + LapseAdvectionCoeff)*INV(harmonicF)*pow(alphaL,-harmonicN)); - - B1L = (dtbetaxL - (PDupwindNth1(beta1, i, j, k)*beta1L + - PDupwindNth2(beta1, i, j, k)*beta2L + - PDupwindNth3(beta1, i, j, k)*beta3L)*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff); - - B2L = (dtbetayL - (PDupwindNth1(beta2, i, j, k)*beta1L + - PDupwindNth2(beta2, i, j, k)*beta2L + - PDupwindNth3(beta2, i, j, k)*beta3L)*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff); - - B3L = (dtbetazL - (PDupwindNth1(beta3, i, j, k)*beta1L + - PDupwindNth2(beta3, i, j, k)*beta2L + - PDupwindNth3(beta3, i, j, k)*beta3L)*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff); - /* Copy local copies back to grid functions */ A[index] = AL; @@ -331,8 +332,8 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con void ML_BSSN_convertFromADMBaseGamma(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_convertFromADMBaseGamma_Body); } diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBase.c b/ML_BSSN/src/ML_BSSN_convertToADMBase.c index 7eba3a2..42bc211 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBase.c +++ b/ML_BSSN/src/ML_BSSN_convertToADMBase.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, #pragma omp parallel LC_LOOP3 (ML_BSSN_convertToADMBase, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -147,18 +147,6 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, /* Declare precomputed derivatives*/ /* Declare derivatives */ - CCTK_REAL PDupwindNth1alpha = INITVALUE; - CCTK_REAL PDupwindNth2alpha = INITVALUE; - CCTK_REAL PDupwindNth3alpha = INITVALUE; - CCTK_REAL PDupwindNth1beta1 = INITVALUE; - CCTK_REAL PDupwindNth2beta1 = INITVALUE; - CCTK_REAL PDupwindNth3beta1 = INITVALUE; - CCTK_REAL PDupwindNth1beta2 = INITVALUE; - CCTK_REAL PDupwindNth2beta2 = INITVALUE; - CCTK_REAL PDupwindNth3beta2 = INITVALUE; - CCTK_REAL PDupwindNth1beta3 = INITVALUE; - CCTK_REAL PDupwindNth2beta3 = INITVALUE; - CCTK_REAL PDupwindNth3beta3 = INITVALUE; /* Assign local copies of grid functions */ AL = A[index]; @@ -199,7 +187,7 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, dir3 = Sign(beta3L); - e4phi = exp(4*phiL); + e4phi = xp(4*phiL); g11 = e4phi*gt11L; @@ -308,8 +296,8 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, void ML_BSSN_convertToADMBase(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_convertToADMBase_Body); } diff --git a/ML_BSSN/src/ML_BSSN_enforce.c b/ML_BSSN/src/ML_BSSN_enforce.c index 980514f..2b02dd2 100644 --- a/ML_BSSN/src/ML_BSSN_enforce.c +++ b/ML_BSSN/src/ML_BSSN_enforce.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT #pragma omp parallel LC_LOOP3 (ML_BSSN_enforce, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -146,17 +146,19 @@ void ML_BSSN_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT /* Calculate temporaries and grid functions */ detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + CCTK_REAL const T1000001 = INV(detgt); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; + + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); trAt = At11L*gtu11 + At22L*gtu22 + 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + At33L*gtu33; @@ -189,8 +191,8 @@ void ML_BSSN_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT void ML_BSSN_enforce(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_enforce_Body); } diff --git a/ML_BSSN/src/RegisterMoL.c b/ML_BSSN/src/RegisterMoL.c index 0bdc194..5d2feac 100644 --- a/ML_BSSN/src/RegisterMoL.c +++ b/ML_BSSN/src/RegisterMoL.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -9,8 +9,8 @@ void ML_BSSN_RegisterVars(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; CCTK_INT ierr = 0; diff --git a/ML_BSSN/src/RegisterSymmetries.c b/ML_BSSN/src/RegisterSymmetries.c index 44f11de..eddc61a 100644 --- a/ML_BSSN/src/RegisterSymmetries.c +++ b/ML_BSSN/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -10,8 +10,8 @@ void ML_BSSN_RegisterSymmetries(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* array holding symmetry definitions */ diff --git a/ML_BSSN/src/Startup.c b/ML_BSSN/src/Startup.c index 3871ecb..c0fbc17 100644 --- a/ML_BSSN/src/Startup.c +++ b/ML_BSSN/src/Startup.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/make.code.defn b/ML_BSSN/src/make.code.defn index 97668a7..3c8ac71 100644 --- a/ML_BSSN/src/make.code.defn +++ b/ML_BSSN/src/make.code.defn @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNW/configuration.ccl b/ML_BSSNW/configuration.ccl index 006249a..c4e15c5 100644 --- a/ML_BSSNW/configuration.ccl +++ b/ML_BSSNW/configuration.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSNW/interface.ccl b/ML_BSSNW/interface.ccl index 3e378c5..1eb7590 100644 --- a/ML_BSSNW/interface.ccl +++ b/ML_BSSNW/interface.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa @@ -18,9 +18,6 @@ USES INCLUDE: loopcontrol.h CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex) USES FUNCTION MoLRegisterEvolved -CCTK_INT FUNCTION MoLRegisterConstrained(CCTK_INT IN ConstrainedIndex) -USES FUNCTION MoLRegisterConstrained - SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle) USES FUNCTION Diff_coeff diff --git a/ML_BSSNW/param.ccl b/ML_BSSNW/param.ccl index 5f3d376..e90f817 100644 --- a/ML_BSSNW/param.ccl +++ b/ML_BSSNW/param.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa @@ -38,12 +38,11 @@ USES CCTK_INT boundary_width shares: MethodOfLines USES CCTK_INT MoL_Num_Evolved_Vars -USES CCTK_INT MoL_Num_Constrained_Vars restricted: -CCTK_REAL verbose "verbose" +CCTK_INT verbose "verbose" { - "*:*" :: "" + *:* :: "" } 0 restricted: @@ -115,12 +114,6 @@ CCTK_INT ML_BSSNW_MaxNumEvolvedVars "Number of evolved variables used by this th } 25 restricted: -CCTK_INT ML_BSSNW_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars -{ - 43:43 :: "Number of constrained variables used by this thorn" -} 43 - -restricted: CCTK_INT timelevels "Number of active timelevels" { 0:3 :: "" diff --git a/ML_BSSNW/schedule.ccl b/ML_BSSNW/schedule.ccl index 69ee05a..540daa7 100644 --- a/ML_BSSNW/schedule.ccl +++ b/ML_BSSNW/schedule.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa @@ -161,7 +161,7 @@ schedule ML_BSSNW_RegisterVars in MoL_Register OPTIONS: meta } "Register Variables for MoL" -schedule ML_BSSNW_RegisterSymmetries at BASEGRID +schedule ML_BSSNW_RegisterSymmetries in SymmetryRegister { LANG: C OPTIONS: meta diff --git a/ML_BSSNW/src/Boundaries.c b/ML_BSSNW/src/Boundaries.c index f931f6b..5a061c1 100644 --- a/ML_BSSNW/src/Boundaries.c +++ b/ML_BSSNW/src/Boundaries.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -22,16 +22,16 @@ void ML_BSSNW_CheckBoundaries(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; return; } void ML_BSSNW_ApplyBoundConds(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; CCTK_INT ierr = 0; diff --git a/ML_BSSNW/src/ML_BSSNW_ADMBaseBoundary.c b/ML_BSSNW/src/ML_BSSNW_ADMBaseBoundary.c index ba93f5a..5a22ef2 100644 --- a/ML_BSSNW/src/ML_BSSNW_ADMBaseBoundary.c +++ b/ML_BSSNW/src/ML_BSSNW_ADMBaseBoundary.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_ADMBaseBoundary_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_ADMBaseBoundary_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCT pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_ADMBaseBoundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -208,8 +211,8 @@ void ML_BSSNW_ADMBaseBoundary_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCT void ML_BSSNW_ADMBaseBoundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_BSSNW_ADMBaseBoundary_Body); } diff --git a/ML_BSSNW/src/ML_BSSNW_Minkowski.c b/ML_BSSNW/src/ML_BSSNW_Minkowski.c index 71845b1..94c8ed1 100644 --- a/ML_BSSNW/src/ML_BSSNW_Minkowski.c +++ b/ML_BSSNW/src/ML_BSSNW_Minkowski.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_Minkowski_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_Minkowski_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_Minkowski, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -212,8 +215,8 @@ void ML_BSSNW_Minkowski_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL void ML_BSSNW_Minkowski(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_BSSNW_Minkowski_Body); } diff --git a/ML_BSSNW/src/ML_BSSNW_RHS.c b/ML_BSSNW/src/ML_BSSNW_RHS.c index 6de92c3..27b958e 100644 --- a/ML_BSSNW/src/ML_BSSNW_RHS.c +++ b/ML_BSSNW/src/ML_BSSNW_RHS.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_RHS, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -159,10 +162,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33alpha = INITVALUE; CCTK_REAL PDstandardNth12alpha = INITVALUE; CCTK_REAL PDstandardNth13alpha = INITVALUE; - CCTK_REAL PDstandardNth21alpha = INITVALUE; CCTK_REAL PDstandardNth23alpha = INITVALUE; - CCTK_REAL PDstandardNth31alpha = INITVALUE; - CCTK_REAL PDstandardNth32alpha = INITVALUE; CCTK_REAL PDupwindpNth1alpha = INITVALUE; CCTK_REAL PDupwindpNth2alpha = INITVALUE; CCTK_REAL PDupwindpNth3alpha = INITVALUE; @@ -231,10 +231,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33beta1 = INITVALUE; CCTK_REAL PDstandardNth12beta1 = INITVALUE; CCTK_REAL PDstandardNth13beta1 = INITVALUE; - CCTK_REAL PDstandardNth21beta1 = INITVALUE; CCTK_REAL PDstandardNth23beta1 = INITVALUE; - CCTK_REAL PDstandardNth31beta1 = INITVALUE; - CCTK_REAL PDstandardNth32beta1 = INITVALUE; CCTK_REAL PDupwindpNth1beta1 = INITVALUE; CCTK_REAL PDupwindpNth2beta1 = INITVALUE; CCTK_REAL PDupwindpNth3beta1 = INITVALUE; @@ -249,10 +246,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33beta2 = INITVALUE; CCTK_REAL PDstandardNth12beta2 = INITVALUE; CCTK_REAL PDstandardNth13beta2 = INITVALUE; - CCTK_REAL PDstandardNth21beta2 = INITVALUE; CCTK_REAL PDstandardNth23beta2 = INITVALUE; - CCTK_REAL PDstandardNth31beta2 = INITVALUE; - CCTK_REAL PDstandardNth32beta2 = INITVALUE; CCTK_REAL PDupwindpNth1beta2 = INITVALUE; CCTK_REAL PDupwindpNth2beta2 = INITVALUE; CCTK_REAL PDupwindpNth3beta2 = INITVALUE; @@ -267,10 +261,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33beta3 = INITVALUE; CCTK_REAL PDstandardNth12beta3 = INITVALUE; CCTK_REAL PDstandardNth13beta3 = INITVALUE; - CCTK_REAL PDstandardNth21beta3 = INITVALUE; CCTK_REAL PDstandardNth23beta3 = INITVALUE; - CCTK_REAL PDstandardNth31beta3 = INITVALUE; - CCTK_REAL PDstandardNth32beta3 = INITVALUE; CCTK_REAL PDupwindpNth1beta3 = INITVALUE; CCTK_REAL PDupwindpNth2beta3 = INITVALUE; CCTK_REAL PDupwindpNth3beta3 = INITVALUE; @@ -285,10 +276,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33gt11 = INITVALUE; CCTK_REAL PDstandardNth12gt11 = INITVALUE; CCTK_REAL PDstandardNth13gt11 = INITVALUE; - CCTK_REAL PDstandardNth21gt11 = INITVALUE; CCTK_REAL PDstandardNth23gt11 = INITVALUE; - CCTK_REAL PDstandardNth31gt11 = INITVALUE; - CCTK_REAL PDstandardNth32gt11 = INITVALUE; CCTK_REAL PDupwindpNth1gt11 = INITVALUE; CCTK_REAL PDupwindpNth2gt11 = INITVALUE; CCTK_REAL PDupwindpNth3gt11 = INITVALUE; @@ -303,10 +291,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33gt12 = INITVALUE; CCTK_REAL PDstandardNth12gt12 = INITVALUE; CCTK_REAL PDstandardNth13gt12 = INITVALUE; - CCTK_REAL PDstandardNth21gt12 = INITVALUE; CCTK_REAL PDstandardNth23gt12 = INITVALUE; - CCTK_REAL PDstandardNth31gt12 = INITVALUE; - CCTK_REAL PDstandardNth32gt12 = INITVALUE; CCTK_REAL PDupwindpNth1gt12 = INITVALUE; CCTK_REAL PDupwindpNth2gt12 = INITVALUE; CCTK_REAL PDupwindpNth3gt12 = INITVALUE; @@ -321,10 +306,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33gt13 = INITVALUE; CCTK_REAL PDstandardNth12gt13 = INITVALUE; CCTK_REAL PDstandardNth13gt13 = INITVALUE; - CCTK_REAL PDstandardNth21gt13 = INITVALUE; CCTK_REAL PDstandardNth23gt13 = INITVALUE; - CCTK_REAL PDstandardNth31gt13 = INITVALUE; - CCTK_REAL PDstandardNth32gt13 = INITVALUE; CCTK_REAL PDupwindpNth1gt13 = INITVALUE; CCTK_REAL PDupwindpNth2gt13 = INITVALUE; CCTK_REAL PDupwindpNth3gt13 = INITVALUE; @@ -339,10 +321,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33gt22 = INITVALUE; CCTK_REAL PDstandardNth12gt22 = INITVALUE; CCTK_REAL PDstandardNth13gt22 = INITVALUE; - CCTK_REAL PDstandardNth21gt22 = INITVALUE; CCTK_REAL PDstandardNth23gt22 = INITVALUE; - CCTK_REAL PDstandardNth31gt22 = INITVALUE; - CCTK_REAL PDstandardNth32gt22 = INITVALUE; CCTK_REAL PDupwindpNth1gt22 = INITVALUE; CCTK_REAL PDupwindpNth2gt22 = INITVALUE; CCTK_REAL PDupwindpNth3gt22 = INITVALUE; @@ -357,10 +336,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33gt23 = INITVALUE; CCTK_REAL PDstandardNth12gt23 = INITVALUE; CCTK_REAL PDstandardNth13gt23 = INITVALUE; - CCTK_REAL PDstandardNth21gt23 = INITVALUE; CCTK_REAL PDstandardNth23gt23 = INITVALUE; - CCTK_REAL PDstandardNth31gt23 = INITVALUE; - CCTK_REAL PDstandardNth32gt23 = INITVALUE; CCTK_REAL PDupwindpNth1gt23 = INITVALUE; CCTK_REAL PDupwindpNth2gt23 = INITVALUE; CCTK_REAL PDupwindpNth3gt23 = INITVALUE; @@ -375,10 +351,7 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma CCTK_REAL PDstandardNth33gt33 = INITVALUE; CCTK_REAL PDstandardNth12gt33 = INITVALUE; CCTK_REAL PDstandardNth13gt33 = INITVALUE; - CCTK_REAL PDstandardNth21gt33 = INITVALUE; CCTK_REAL PDstandardNth23gt33 = INITVALUE; - CCTK_REAL PDstandardNth31gt33 = INITVALUE; - CCTK_REAL PDstandardNth32gt33 = INITVALUE; CCTK_REAL PDupwindpNth1gt33 = INITVALUE; CCTK_REAL PDupwindpNth2gt33 = INITVALUE; CCTK_REAL PDupwindpNth3gt33 = INITVALUE; @@ -732,671 +705,1221 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ - betam1 = khalf*(beta1L - Abs(beta1L)); + CCTK_REAL const T1000001 = Abs(beta1L); - betam2 = khalf*(beta2L - Abs(beta2L)); + CCTK_REAL const T1000002 = Abs(beta2L); - betam3 = khalf*(beta3L - Abs(beta3L)); + CCTK_REAL const T1000003 = Abs(beta3L); - betap1 = khalf*(beta1L + Abs(beta1L)); + CCTK_REAL const T1000005 = -PDstandardNth3gt12; - betap2 = khalf*(beta2L + Abs(beta2L)); + CCTK_REAL const T1000007 = -PDstandardNth2gt13; - betap3 = khalf*(beta3L + Abs(beta3L)); + CCTK_REAL const T1000009 = -PDstandardNth1gt23; + + CCTK_REAL const T1000171 = + PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3; + + CCTK_REAL const T1000172 = + PDstandardNth11beta1 + PDstandardNth12beta2 + PDstandardNth13beta3; + + CCTK_REAL const T1000173 = + PDstandardNth12beta1 + PDstandardNth22beta2 + PDstandardNth23beta3; + + CCTK_REAL const T1000174 = + PDstandardNth13beta1 + PDstandardNth23beta2 + PDstandardNth33beta3; + + CCTK_REAL const T1000175 = -1 + LapseAdvectionCoeff; detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + invW = INV(WL); + + W2 = SQR(WL); + + CCTK_REAL const T1000004 = INV(detgt); + + CCTK_REAL const T1000006 = PDstandardNth1gt23 + PDstandardNth2gt13 + T1000005; + + CCTK_REAL const T1000008 = PDstandardNth1gt23 + PDstandardNth3gt12 + T1000007; + + CCTK_REAL const T1000010 = PDstandardNth2gt13 + PDstandardNth3gt12 + T1000009; + + CCTK_REAL const T1000149 = invW*PDstandardNth3W; + + betam1 = khalf*(beta1L - T1000001); + + betam2 = khalf*(beta2L - T1000002); + + betam3 = khalf*(beta3L - T1000003); + + betap1 = khalf*(beta1L + T1000001); + + betap2 = khalf*(beta2L + T1000002); + + betap3 = khalf*(beta3L + T1000003); + + invW2 = SQR(invW); + + pdphi1 = -(invW*khalf*PDstandardNth1W); + + pdphi2 = -(invW*khalf*PDstandardNth2W); + + pdphi3 = -(invW*khalf*PDstandardNth3W); + + CCTK_REAL const T1000150 = SQR(pdphi1); + + CCTK_REAL const T1000151 = SQR(pdphi2); + + CCTK_REAL const T1000152 = SQR(pdphi3); + + CCTK_REAL const T1000168 = -pdphi1; - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + CCTK_REAL const T1000169 = -pdphi3; - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + CCTK_REAL const T1000170 = -pdphi2; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + gtu11 = T1000004*(gt22L*gt33L - SQR(gt23L)); - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000004; - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000004; - Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - + gtu22 = T1000004*(gt11L*gt33L - SQR(gt13L)); + + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000004; + + gtu33 = T1000004*(gt11L*gt22L - SQR(gt12L)); + + g11 = gt11L*invW2; + + g12 = gt12L*invW2; + + g13 = gt13L*invW2; + + g22 = gt22L*invW2; + + g23 = gt23L*invW2; + + g33 = gt33L*invW2; + + WrhsL = betam1*PDupwindmNth1W + betam2*PDupwindmNth2W + + betam3*PDupwindmNth3W + betap1*PDupwindpNth1W + betap2*PDupwindpNth2W + + betap3*PDupwindpNth3W + kthird*(-T1000171 + alphaL*trKL)*WL; + + gt11rhsL = -2*alphaL*At11L + 2*(gt11L*PDstandardNth1beta1 + + gt12L*PDstandardNth1beta2 + gt13L*PDstandardNth1beta3) + + betam1*PDupwindmNth1gt11 + betam2*PDupwindmNth2gt11 + + betam3*PDupwindmNth3gt11 + betap1*PDupwindpNth1gt11 + + betap2*PDupwindpNth2gt11 + betap3*PDupwindpNth3gt11 - + gt11L*ktwothird*T1000171; + + gt12rhsL = -2*alphaL*At12L + gt22L*PDstandardNth1beta2 + + gt23L*PDstandardNth1beta3 + gt11L*PDstandardNth2beta1 + + gt13L*PDstandardNth2beta3 + gt12L* + (kthird*(PDstandardNth1beta1 + PDstandardNth2beta2) - + ktwothird*PDstandardNth3beta3) + betam1*PDupwindmNth1gt12 + + betam2*PDupwindmNth2gt12 + betam3*PDupwindmNth3gt12 + + betap1*PDupwindpNth1gt12 + betap2*PDupwindpNth2gt12 + + betap3*PDupwindpNth3gt12; + + gt13rhsL = -2*alphaL*At13L + gt23L*PDstandardNth1beta2 + + gt33L*PDstandardNth1beta3 + gt11L*PDstandardNth3beta1 + + gt12L*PDstandardNth3beta2 + gt13L* + (-(ktwothird*PDstandardNth2beta2) + + kthird*(PDstandardNth1beta1 + PDstandardNth3beta3)) + + betam1*PDupwindmNth1gt13 + betam2*PDupwindmNth2gt13 + + betam3*PDupwindmNth3gt13 + betap1*PDupwindpNth1gt13 + + betap2*PDupwindpNth2gt13 + betap3*PDupwindpNth3gt13; + + gt22rhsL = -2*alphaL*At22L + 2*(gt12L*PDstandardNth2beta1 + + gt22L*PDstandardNth2beta2 + gt23L*PDstandardNth2beta3) + + betam1*PDupwindmNth1gt22 + betam2*PDupwindmNth2gt22 + + betam3*PDupwindmNth3gt22 + betap1*PDupwindpNth1gt22 + + betap2*PDupwindpNth2gt22 + betap3*PDupwindpNth3gt22 - + gt22L*ktwothird*T1000171; + + gt23rhsL = -2*alphaL*At23L + gt13L*PDstandardNth2beta1 + + gt33L*PDstandardNth2beta3 + gt12L*PDstandardNth3beta1 + + gt22L*PDstandardNth3beta2 + gt23L* + (-(ktwothird*PDstandardNth1beta1) + + kthird*(PDstandardNth2beta2 + PDstandardNth3beta3)) + + betam1*PDupwindmNth1gt23 + betam2*PDupwindmNth2gt23 + + betam3*PDupwindmNth3gt23 + betap1*PDupwindpNth1gt23 + + betap2*PDupwindpNth2gt23 + betap3*PDupwindpNth3gt23; + + gt33rhsL = -2*alphaL*At33L + 2*(gt13L*PDstandardNth3beta1 + + gt23L*PDstandardNth3beta2 + gt33L*PDstandardNth3beta3) + + betam1*PDupwindmNth1gt33 + betam2*PDupwindmNth2gt33 + + betam3*PDupwindmNth3gt33 + betap1*PDupwindpNth1gt33 + + betap2*PDupwindpNth2gt33 + betap3*PDupwindpNth3gt33 - + gt33L*ktwothird*T1000171; + + alpharhsL = LapseAdvectionCoeff* + (betam1*PDupwindmNth1alpha + betam2*PDupwindmNth2alpha + + betam3*PDupwindmNth3alpha + betap1*PDupwindpNth1alpha + + betap2*PDupwindpNth2alpha + betap3*PDupwindpNth3alpha) + + harmonicF*(AL*T1000175 - LapseAdvectionCoeff*trKL)*pow(alphaL,harmonicN); + + beta1rhsL = (betam1*PDupwindmNth1beta1 + betam2*PDupwindmNth2beta1 + + betam3*PDupwindmNth3beta1 + betap1*PDupwindpNth1beta1 + + betap2*PDupwindpNth2beta1 + betap3*PDupwindpNth3beta1)* + ShiftAdvectionCoeff + B1L*ShiftGammaCoeff; + + beta2rhsL = (betam1*PDupwindmNth1beta2 + betam2*PDupwindmNth2beta2 + + betam3*PDupwindmNth3beta2 + betap1*PDupwindpNth1beta2 + + betap2*PDupwindpNth2beta2 + betap3*PDupwindpNth3beta2)* + ShiftAdvectionCoeff + B2L*ShiftGammaCoeff; + + beta3rhsL = (betam1*PDupwindmNth1beta3 + betam2*PDupwindmNth2beta3 + + betam3*PDupwindmNth3beta3 + betap1*PDupwindpNth1beta3 + + betap2*PDupwindpNth2beta3 + betap3*PDupwindpNth3beta3)* + ShiftAdvectionCoeff + B3L*ShiftGammaCoeff; + + CCTK_REAL const T1000153 = At12L*gtu21; + + CCTK_REAL const T1000154 = At13L*gtu31; + + CCTK_REAL const T1000155 = At23L*gtu32; + + CCTK_REAL const T1000156 = gtu31*pdphi1; + + CCTK_REAL const T1000157 = gtu32*pdphi2; + + CCTK_REAL const T1000158 = gtu33*pdphi3; + + CCTK_REAL const T1000160 = gtu11*pdphi1; + + CCTK_REAL const T1000161 = gtu21*pdphi2; + + CCTK_REAL const T1000162 = gtu31*pdphi3; + + CCTK_REAL const T1000164 = gtu21*pdphi1; + + CCTK_REAL const T1000165 = gtu22*pdphi2; + + CCTK_REAL const T1000166 = gtu32*pdphi3; + + Gt111 = khalf*(gtu11*PDstandardNth1gt11 + + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - gtu21*PDstandardNth2gt11 - gtu31*PDstandardNth3gt11); - Gt211 = khalf*(gtu21*PDstandardNth1gt11 + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - + Gt211 = khalf*(gtu21*PDstandardNth1gt11 + + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - gtu22*PDstandardNth2gt11 - gtu32*PDstandardNth3gt11); - Gt311 = khalf*(gtu31*PDstandardNth1gt11 + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - + Gt311 = khalf*(gtu31*PDstandardNth1gt11 + + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu31*T1000006); Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu32*T1000006); Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu33*T1000006); Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu21*T1000008); Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu22*T1000008); Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu32*T1000008); - Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + + Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + + gtu21*PDstandardNth2gt22 + gtu31*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu22*PDstandardNth2gt22 + + Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + + gtu22*PDstandardNth2gt22 + gtu32*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu32*PDstandardNth2gt22 + + Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + + gtu32*PDstandardNth2gt22 + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu21*PDstandardNth3gt22 + + gtu11*T1000010); - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu22*PDstandardNth3gt22 + + gtu21*T1000010); - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu32*PDstandardNth3gt22 + + gtu31*T1000010); - Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + - 2*gtu21*PDstandardNth3gt23 + gtu31*PDstandardNth3gt33); + Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + + 2*gtu11*PDstandardNth3gt13 + 2*gtu21*PDstandardNth3gt23 + + gtu31*PDstandardNth3gt33); - Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + 2*gtu21*PDstandardNth3gt13 + - 2*gtu22*PDstandardNth3gt23 + gtu32*PDstandardNth3gt33); + Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + + 2*gtu21*PDstandardNth3gt13 + 2*gtu22*PDstandardNth3gt23 + + gtu32*PDstandardNth3gt33); - Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + 2*gtu31*PDstandardNth3gt13 + - 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); + Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + + 2*gtu31*PDstandardNth3gt13 + 2*gtu32*PDstandardNth3gt23 + + gtu33*PDstandardNth3gt33); - Xtn1 = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; + Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; - Xtn2 = Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; + Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; - Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; + Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; - Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + gtu21* - (2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + - 2*gt13L*Gt311*Gt323 + 2*Gt311*Gt312*gt33L - PDstandardNth12gt11) - gtu31*PDstandardNth13gt11 + - gt11L*PDstandardNth1Xt1 + gt12L*(4*Gt111*Gt212*gtu21 + 2*Gt211*Gt222*gtu21 + 2*Gt212*Gt222*gtu22 + - 4*Gt113*Gt211*gtu31 + 4*Gt113*Gt212*gtu32 + 4*Gt113*Gt213*gtu33 + PDstandardNth1Xt2) + - gt13L*(4*Gt111*Gt312*gtu21 + 2*Gt212*Gt312*gtu21 + 4*Gt112*Gt312*gtu22 + 4*Gt113*Gt311*gtu31 + - 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - - gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + - Gt111*(6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xtn1) + - Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + 2*gt11L*Gt123*gtu31 + gt12L*Xtn1) + - Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + 2*gt11L*Gt123*gtu21 + - 2*gt11L*Gt133*gtu31 + gt13L*Xtn1) + gt12L*Gt212*Xtn2 + gt13L*Gt312*Xtn2 + - Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + 2*gt11L*Gt213*gtu31 + - 6*Gt113*gt11L*gtu32 + gt11L*Xtn2) + Gt113*gt11L*Xtn3 + - Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + 2*gt11L*Gt123*gtu33 + gt12L*Xtn3) + - Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + 4*Gt112*gt13L*gtu32 + - 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + gt13L*Xtn3) + 3*gt11L*gtu11*SQR(Gt111) + 3*gt11L*gtu22*SQR(Gt112) + - 3*gt11L*gtu33*SQR(Gt113) + gt22L*gtu11*SQR(Gt211) + gt22L*gtu22*SQR(Gt212) + - 2*(gt12L*Gt211*Gt212*gtu11 + Gt113*gt11L*Gt311*gtu11 + Gt211*gt23L*Gt311*gtu11 + gt13L*Gt211*Gt312*gtu11 + - Gt112*gt11L*Gt212*gtu21 + gt12L*Gt223*Gt311*gtu21 + Gt212*gt23L*Gt311*gtu21 + gt12L*Gt213*Gt312*gtu21 + - Gt211*gt23L*Gt312*gtu21 + gt11L*Gt122*Gt212*gtu22 + gt11L*Gt123*Gt312*gtu22 + gt12L*Gt223*Gt312*gtu22 + - Gt212*gt23L*Gt312*gtu22 + gt13L*Gt212*Gt322*gtu22 + gt13L*Gt312*Gt323*gtu22 + gt12L*Gt212*Gt213*gtu31 + - gt12L*Gt211*Gt223*gtu31 + Gt211*Gt213*gt22L*gtu31 + gt12L*Gt233*Gt311*gtu31 + Gt213*gt23L*Gt311*gtu31 + - gt13L*Gt213*Gt312*gtu31 + Gt113*gt11L*Gt313*gtu31 + Gt211*gt23L*Gt313*gtu31 + gt13L*Gt211*Gt323*gtu31 + - gt13L*Gt311*Gt333*gtu31 + Gt311*Gt313*gt33L*gtu31 + gt11L*Gt123*Gt212*gtu32 + gt12L*Gt213*Gt222*gtu32 + - gt12L*Gt212*Gt223*gtu32 + Gt212*Gt213*gt22L*gtu32 + gt11L*Gt133*Gt312*gtu32 + gt12L*Gt233*Gt312*gtu32 + - Gt213*gt23L*Gt312*gtu32 + Gt212*gt23L*Gt313*gtu32 + gt13L*Gt213*Gt322*gtu32 + gt13L*Gt212*Gt323*gtu32 + - gt13L*Gt313*Gt323*gtu32 + gt13L*Gt312*Gt333*gtu32 + Gt312*Gt313*gt33L*gtu32 + gt12L*Gt213*Gt223*gtu33 + - gt12L*Gt233*Gt313*gtu33 + Gt213*gt23L*Gt313*gtu33 + gt13L*Gt213*Gt323*gtu33 + gt13L*Gt313*Gt333*gtu33 + - gt12L*gtu21*SQR(Gt212)) + gt22L*gtu33*SQR(Gt213) + gt33L*gtu11*SQR(Gt311) + gt33L*gtu22*SQR(Gt312) + - 2*gt13L*gtu31*SQR(Gt313) + gt33L*gtu33*SQR(Gt313); - - Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - 2*gtu31*PDstandardNth13gt12 + - gt12L*PDstandardNth1Xt1 + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt12 - - 2*gtu32*PDstandardNth23gt12 + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3 - - gtu33*PDstandardNth33gt12 + (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xtn1 + - (Gt112*gt11L + gt12L*Gt212 + gt13L*Gt312)*Xtn1 + (Gt112*gt12L + Gt212*gt22L + gt23L*Gt312)*Xtn2 + - (gt11L*Gt122 + gt12L*Gt222 + gt13L*Gt322)*Xtn2 + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xtn3 + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xtn3 + - 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + Gt211*Gt222*gt22L + 2*Gt122*gt13L*Gt311 + Gt112*gt23L*Gt311 + - Gt222*gt23L*Gt311 + gt13L*Gt222*Gt312 + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + gt23L*Gt312*Gt313 + - Gt113*gt11L*Gt322 + Gt211*gt23L*Gt322 + gt13L*Gt313*Gt322 + - Gt111*(2*gt11L*Gt122 + Gt112*gt12L + gt12L*Gt222 + gt13L*Gt322) + - gt12L*(2*Gt122*Gt211 + Gt112*Gt212 + Gt212*Gt222 + Gt113*Gt312 + Gt213*Gt322) + Gt311*Gt322*gt33L + - gt22L*SQR(Gt212)) + 2*((Gt123*gt12L*Gt211 + Gt113*gt12L*Gt212 + 2*Gt112*gt12L*Gt213 + gt12L*Gt212*Gt223 + - Gt212*Gt213*gt22L + Gt211*Gt223*gt22L + gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + Gt113*gt13L*Gt312 + - gt12L*Gt233*Gt312 + Gt213*gt23L*Gt312 + gt11L*(2*Gt112*Gt113 + Gt123*Gt212 + Gt133*Gt312) + - 2*Gt112*gt13L*Gt313 + Gt212*gt23L*Gt313 + Gt111*(Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + - gt13L*Gt212*Gt323 + Gt211*gt23L*Gt323 + gt23L*Gt311*Gt333 + gt13L*Gt312*Gt333 + Gt312*Gt313*gt33L)*gtu31 + - (Gt123*gt12L*Gt212 + 2*Gt122*gt12L*Gt213 + Gt113*gt12L*Gt222 + gt12L*Gt222*Gt223 + Gt213*Gt222*gt22L + - Gt212*Gt223*gt22L + gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + Gt222*gt23L*Gt313 + - Gt112*(Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + Gt113*gt13L*Gt322 + gt12L*Gt233*Gt322 + - Gt213*gt23L*Gt322 + gt11L*(2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + gt13L*Gt222*Gt323 + - Gt212*gt23L*Gt323 + gt23L*Gt312*Gt333 + gt13L*Gt322*Gt333 + Gt313*Gt322*gt33L)*gtu32 + - gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + 2*Gt112*gt13L*Gt311 + - Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + - gt11L*(2*Gt111*Gt112 + Gt112*Gt212 + Gt113*Gt312) + - Gt111*(gt12L*Gt212 + Gt211*gt22L + gt23L*Gt311 + gt13L*Gt312) + gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + - Gt311*Gt312*gt33L + gt12L*SQR(Gt111) + gt12L*SQR(Gt212))) + - 2*gtu22*(gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + - gt11L*Gt123*Gt322 + gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + - Gt112*(2*gt11L*Gt122 + gt12L*Gt222 + Gt212*gt22L + gt23L*Gt312 + gt13L*Gt322) + gt23L*Gt312*Gt323 + - gt13L*Gt322*Gt323 + Gt312*Gt322*gt33L + gt12L*SQR(Gt112) + - gt12L*(3*Gt122*Gt212 + Gt123*Gt312 + Gt223*Gt322 + SQR(Gt222))) + - 2*gtu33*(gt11L*Gt123*Gt223 + 2*Gt213*Gt223*gt22L + 2*Gt123*gt13L*Gt313 + gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + - gt11L*Gt133*Gt323 + gt13L*Gt223*Gt323 + 2*Gt213*gt23L*Gt323 + - Gt113*(2*gt11L*Gt123 + gt12L*Gt223 + Gt213*gt22L + gt23L*Gt313 + gt13L*Gt323) + gt23L*Gt313*Gt333 + - gt13L*Gt323*Gt333 + Gt313*Gt323*gt33L + gt12L*SQR(Gt113) + - gt12L*(3*Gt123*Gt213 + Gt133*Gt313 + Gt233*Gt323 + SQR(Gt223))) + - 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + Gt211*Gt222*gt22L + Gt123*gt12L*Gt311 + - Gt223*gt22L*Gt311 + 3*Gt112*gt13L*Gt312 + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + - Gt111*(Gt112*gt12L + Gt212*gt22L + gt23L*Gt312) + gt13L*Gt212*Gt322 + Gt211*gt23L*Gt322 + gt23L*Gt311*Gt323 + - gt13L*Gt312*Gt323 + gt11L*(Gt122*Gt212 + Gt123*Gt312 + 2*SQR(Gt112)) + gt22L*SQR(Gt212) + gt33L*SQR(Gt312)) + - 2*gtu31*(Gt112*gt11L*Gt223 + Gt113*Gt211*gt22L + Gt212*Gt213*gt22L + Gt211*Gt223*gt22L + 2*Gt123*gt13L*Gt311 + - Gt113*gt23L*Gt311 + Gt223*gt23L*Gt311 + gt13L*Gt223*Gt312 + Gt213*gt23L*Gt312 + Gt213*gt22L*Gt313 + - Gt113*gt11L*Gt323 + Gt211*gt23L*Gt323 + gt13L*Gt313*Gt323 + - Gt111*(2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(2*Gt123*Gt211 + Gt112*Gt213 + Gt212*Gt223 + Gt113*Gt313 + Gt213*Gt323) + Gt311*Gt323*gt33L + - gt23L*SQR(Gt313)) + 2*gtu32*(gt11L*Gt122*Gt223 + Gt113*Gt212*gt22L + Gt213*Gt222*gt22L + Gt212*Gt223*gt22L + - 2*Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + Gt223*gt23L*Gt312 + Gt223*gt22L*Gt313 + gt13L*Gt223*Gt322 + - Gt213*gt23L*Gt322 + gt11L*Gt123*Gt323 + Gt212*gt23L*Gt323 + gt23L*Gt313*Gt323 + - Gt112*(2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(Gt122*Gt213 + Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323)) + Gt312*Gt323*gt33L + gt13L*SQR(Gt323))); - - Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - 2*gtu31*PDstandardNth13gt13 + - gt13L*PDstandardNth1Xt1 + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt13 - - 2*gtu32*PDstandardNth23gt13 - gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + - gt13L*PDstandardNth3Xt3 + (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xtn1 + - (Gt111*gt13L + Gt211*gt23L + Gt311*gt33L)*Xtn1 + (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xtn2 + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xtn2 + (gt11L*Gt133 + gt12L*Gt233 + gt13L*Gt333)*Xtn3 + - (Gt113*gt13L + Gt213*gt23L + Gt313*gt33L)*Xtn3 + - 2*((Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + gt12L*Gt213*Gt222 + Gt212*Gt213*gt22L + - Gt211*Gt222*gt23L + Gt123*gt13L*Gt311 + Gt223*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + Gt213*gt23L*Gt312 + - Gt112*gt13L*Gt313 + gt12L*Gt223*Gt313 + Gt212*gt23L*Gt313 + - gt11L*(2*Gt112*Gt113 + Gt122*Gt213 + Gt123*Gt313) + gt13L*Gt213*Gt322 + gt13L*Gt313*Gt323 + - Gt312*Gt313*gt33L + Gt211*Gt322*gt33L + Gt311*Gt323*gt33L + Gt111*(Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)) - *gtu21 + (Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + Gt212*gt22L*Gt233 + Gt113*Gt212*gt23L + - Gt213*Gt222*gt23L + 2*Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + Gt123*gt13L*Gt313 + Gt223*gt23L*Gt313 + - gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + Gt212*gt23L*Gt333 + gt13L*Gt323*Gt333 + - Gt112*(2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + - Gt313*Gt323*gt33L + Gt312*Gt333*gt33L)*gtu32 + - gtu21*(2*Gt123*gt12L*Gt211 + Gt112*gt13L*Gt212 + gt12L*Gt212*Gt223 + Gt211*Gt223*gt22L + Gt112*Gt211*gt23L + - 2*Gt123*gt13L*Gt311 + Gt223*gt23L*Gt311 + Gt113*gt13L*Gt312 + gt13L*Gt223*Gt312 + Gt213*gt23L*Gt312 + - gt12L*Gt213*Gt323 + Gt211*gt23L*Gt323 + gt13L*Gt313*Gt323 + - gt11L*(2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + Gt111*(Gt112*gt13L + gt12L*Gt223 + gt13L*Gt323) + - Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + Gt312*Gt313*gt33L + Gt311*Gt323*gt33L + gt23L*SQR(Gt212))) + - 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + Gt213*Gt223*gt22L + Gt212*Gt223*gt23L + - Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + 2*Gt123*gt13L*Gt313 + Gt223*gt23L*Gt313 + Gt113*gt13L*Gt323 + - gt13L*Gt223*Gt323 + gt12L*Gt233*Gt323 + Gt213*gt23L*Gt323 + - gt11L*(2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + gt13L*Gt323*Gt333 + Gt212*Gt323*gt33L + - Gt313*Gt323*gt33L + Gt312*Gt333*gt33L + Gt112*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + gt12L*SQR(Gt223)) + - 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + - 3*Gt113*gt13L*Gt311 + 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + Gt211*gt23L*Gt313 + - gt11L*(2*Gt111*Gt113 + Gt112*Gt213 + Gt113*Gt313) + Gt211*Gt312*gt33L + 2*Gt311*Gt313*gt33L + - Gt111*(gt12L*Gt213 + Gt211*gt23L + gt13L*Gt313 + Gt311*gt33L) + gt13L*SQR(Gt111) + gt13L*SQR(Gt313)) + - 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + - 2*Gt133*gt13L*Gt311 + Gt233*gt23L*Gt311 + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + Gt213*gt23L*Gt313 + - Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + gt13L*Gt313*Gt333 + - Gt111*(2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + - Gt311*Gt333*gt33L + gt33L*SQR(Gt313)) + - 2*gtu31*(Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + - Gt233*gt23L*Gt311 + 3*Gt113*gt13L*Gt313 + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + gt13L*Gt213*Gt323 + - gt13L*Gt313*Gt333 + Gt211*Gt323*gt33L + Gt311*Gt333*gt33L + Gt111*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + - gt11L*(Gt123*Gt213 + Gt133*Gt313 + 2*SQR(Gt113)) + gt22L*SQR(Gt213) + gt33L*SQR(Gt313)) + - 2*gtu22*(2*Gt123*gt12L*Gt212 + Gt122*gt13L*Gt212 + gt12L*Gt222*Gt223 + Gt212*Gt223*gt22L + Gt212*Gt222*gt23L + - 3*Gt123*gt13L*Gt312 + 2*Gt223*gt23L*Gt312 + gt13L*Gt223*Gt322 + gt12L*Gt223*Gt323 + Gt212*gt23L*Gt323 + - gt11L*(2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + Gt212*Gt322*gt33L + 2*Gt312*Gt323*gt33L + - Gt112*(gt12L*Gt223 + Gt212*gt23L + gt13L*Gt323 + Gt312*gt33L) + gt13L*SQR(Gt112) + gt13L*SQR(Gt323)) + - 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + - Gt213*Gt223*gt23L + 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + gt11L*Gt133*Gt333 + - gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + - Gt113*(2*gt11L*Gt133 + gt12L*Gt233 + Gt213*gt23L + gt13L*Gt333 + Gt313*gt33L) + gt13L*SQR(Gt113) + - gt13L*SQR(Gt333))); - - Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + - Gt123*gt12L*Gt222*gtu32 + Gt123*gt12L*Gt223*gtu33) - gtu11*khalf*PDstandardNth11gt22 + - gtu21*(6*Gt212*Gt222*gt22L + 2*Gt122*gt23L*Gt311 + 2*Gt122*gt13L*Gt312 + 4*Gt222*gt23L*Gt312 + - 2*Gt113*gt12L*Gt322 + 2*gt23L*Gt312*Gt323 + 2*Gt312*Gt322*gt33L - PDstandardNth12gt22) + - gtu31*(6*Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + 2*Gt112*gt23L*Gt313 + 2*Gt113*gt12L*Gt323 + - 2*gt23L*Gt312*Gt333 + 2*Gt312*Gt323*gt33L - PDstandardNth13gt22) - gtu22*khalf*PDstandardNth22gt22 + - gtu32*(4*Gt122*gt12L*Gt223 + 2*Gt123*Gt212*gt22L + 2*gt12L*Gt133*Gt322 + 4*Gt223*gt23L*Gt322 + - 2*Gt123*gt12L*Gt323 + 4*Gt222*gt23L*Gt323 + 2*gt23L*Gt322*Gt333 + 2*Gt322*Gt323*gt33L - PDstandardNth23gt22) + - gt12L*(2*Gt111*Gt123*gtu31 + 4*Gt112*Gt223*gtu31 + 2*Gt113*Gt122*gtu32 + 2*Gt113*Gt123*gtu33 + PDstandardNth2Xt1) + - gt22L*(2*Gt122*Gt213*gtu32 + 6*Gt222*Gt223*gtu32 + 2*Gt123*Gt213*gtu33 + PDstandardNth2Xt2) + - gt23L*(4*Gt212*Gt322*gtu21 + 2*Gt313*Gt322*gtu21 + 4*Gt222*Gt322*gtu22 + 2*Gt123*Gt311*gtu31 + - 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + - 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - gtu33*khalf*PDstandardNth33gt22 + Gt212*gt22L*Xtn1 + - Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + - 2*gt11L*Gt123*gtu31 + 2*Gt123*gt12L*gtu32 + gt12L*Xtn1) + - Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + 2*Gt123*gt12L*gtu21 + - 2*Gt122*gt23L*gtu22 + 2*gt12L*Gt133*gtu31 + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + - gt23L*Xtn1) + Gt122*gt12L*Xtn2 + Gt222*gt22L*Xtn2 + gt23L*Gt322*Xtn2 + Gt123*gt12L*Xtn3 + Gt223*gt22L*Xtn3 + - gt23L*Gt323*Xtn3 + gt11L*gtu11*SQR(Gt112) + 2* - (Gt112*Gt211*gt22L*gtu11 + Gt112*gt23L*Gt311*gtu11 + Gt113*gt12L*Gt312*gtu11 + Gt112*gt13L*Gt312*gtu11 + - Gt111*Gt122*gt12L*gtu21 + Gt122*Gt211*gt22L*gtu21 + Gt112*Gt212*gt22L*gtu21 + Gt223*gt22L*Gt312*gtu21 + - Gt112*gt23L*Gt312*gtu21 + Gt112*gt13L*Gt322*gtu21 + Gt213*gt22L*Gt322*gtu21 + Gt122*Gt212*gt22L*gtu22 + - Gt123*gt12L*Gt322*gtu22 + Gt122*gt13L*Gt322*gtu22 + Gt223*gt22L*Gt322*gtu22 + gt23L*Gt322*Gt323*gtu22 + - Gt112*Gt113*gt12L*gtu31 + Gt123*Gt211*gt22L*gtu31 + Gt112*Gt213*gt22L*gtu31 + Gt112*gt13L*Gt323*gtu31 + - Gt213*gt22L*Gt323*gtu31 + gt11L*Gt122*Gt123*gtu32 + Gt123*gt13L*Gt322*gtu32 + gt22L*Gt233*Gt322*gtu32 + - Gt122*gt13L*Gt323*gtu32 + Gt223*gt22L*Gt323*gtu32 + gt12L*Gt133*Gt323*gtu33 + Gt123*gt13L*Gt323*gtu33 + - gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*SQR(Gt112)) + gt11L*gtu22*SQR(Gt122) + gt11L*gtu33*SQR(Gt123) + - 3*gt22L*gtu11*SQR(Gt212) + 3*gt22L*gtu22*SQR(Gt222) + 3*gt22L*gtu33*SQR(Gt223) + gt33L*gtu11*SQR(Gt312) + - gt33L*gtu22*SQR(Gt322) + 2*gt23L*gtu32*SQR(Gt323) + gt33L*gtu33*SQR(Gt323); - - Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - 2*gtu31*PDstandardNth13gt23 - - gtu22*PDstandardNth22gt23 - 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + gt23L*PDstandardNth2Xt2 + - gt33L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + - gt23L*PDstandardNth3Xt3 + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xtn1 + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xtn1 + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xtn2 + - (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xtn2 + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xtn3 + - (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xtn3 + - 2*((Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + Gt123*gt12L*Gt212 + Gt112*gt13L*Gt222 + - 2*Gt112*gt12L*Gt223 + Gt123*Gt211*gt22L + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + Gt212*Gt222*gt23L + - Gt123*gt23L*Gt311 + Gt123*gt13L*Gt312 + 2*Gt223*gt23L*Gt312 + Gt113*gt13L*Gt322 + Gt213*gt23L*Gt322 + - Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + Gt212*gt23L*Gt323 + gt23L*Gt313*Gt323 + - Gt122*Gt311*gt33L + Gt222*Gt312*gt33L + Gt313*Gt322*gt33L + Gt312*Gt323*gt33L)*gtu21 + - (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + - Gt133*Gt211*gt22L + 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + Gt212*Gt223*gt23L + - Gt133*gt23L*Gt311 + Gt133*gt13L*Gt312 + 2*Gt233*gt23L*Gt312 + Gt113*gt13L*Gt323 + Gt213*gt23L*Gt323 + - Gt113*gt12L*Gt333 + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + Gt212*gt23L*Gt333 + gt23L*Gt313*Gt333 + - Gt123*Gt311*gt33L + Gt223*Gt312*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L)*gtu31 + - gtu21*(Gt113*gt11L*Gt122 + Gt122*gt13L*Gt212 + 2*Gt122*gt12L*Gt213 + Gt113*gt12L*Gt222 + Gt113*Gt212*gt22L + - 2*Gt213*Gt222*gt22L + Gt212*Gt222*gt23L + Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + Gt223*gt23L*Gt312 + - Gt123*gt12L*Gt313 + Gt122*gt13L*Gt313 + Gt223*gt22L*Gt313 + Gt222*gt23L*Gt313 + Gt113*gt13L*Gt322 + - 2*Gt213*gt23L*Gt322 + gt23L*Gt313*Gt323 + Gt212*Gt322*gt33L + Gt313*Gt322*gt33L + Gt312*Gt323*gt33L + - Gt112*(Gt113*gt12L + Gt212*gt23L + Gt312*gt33L) + gt13L*SQR(Gt112))) + - 2*gtu31*(2*Gt213*Gt223*gt22L + Gt112*Gt213*gt23L + Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + - gt12L*Gt133*Gt313 + gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + - 2*Gt213*gt23L*Gt323 + Gt113*(gt11L*Gt123 + Gt112*gt13L + gt12L*Gt223 + Gt213*gt22L + gt23L*Gt313 + - gt13L*Gt323) + gt23L*Gt313*Gt333 + Gt112*Gt313*gt33L + Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L + gt12L*SQR(Gt113)) + - 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + Gt113*gt12L*Gt212 + Gt112*gt13L*Gt212 + - 2*Gt112*gt12L*Gt213 + Gt113*Gt211*gt22L + 2*Gt212*Gt213*gt22L + Gt112*Gt211*gt23L + Gt113*gt23L*Gt311 + - 2*Gt113*gt13L*Gt312 + 3*Gt213*gt23L*Gt312 + Gt113*gt12L*Gt313 + Gt112*gt13L*Gt313 + Gt213*gt22L*Gt313 + - Gt212*gt23L*Gt313 + Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + 2*Gt312*Gt313*gt33L + gt23L*SQR(Gt212) + - gt23L*SQR(Gt313)) + 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + Gt123*gt12L*Gt222 + - Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + - Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + - Gt223*gt22L*Gt323 + Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + 2*Gt322*Gt323*gt33L + - gt23L*SQR(Gt222) + gt23L*SQR(Gt323)) + 2*gtu32* - (gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + - Gt133*Gt212*gt22L + 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + Gt222*Gt223*gt23L + - Gt133*gt23L*Gt312 + Gt133*gt13L*Gt322 + 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + Gt223*gt23L*Gt323 + - Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + Gt223*gt22L*Gt333 + Gt222*gt23L*Gt333 + gt23L*Gt323*Gt333 + - Gt123*Gt312*gt33L + Gt223*Gt322*gt33L + Gt322*Gt333*gt33L + gt33L*SQR(Gt323)) + - 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + Gt123*gt13L*Gt222 + 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + - Gt122*Gt213*gt23L + Gt222*Gt223*gt23L + Gt123*gt23L*Gt313 + Gt133*gt13L*Gt322 + Gt233*gt23L*Gt322 + - gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + gt22L*Gt233*Gt323 + 3*Gt223*gt23L*Gt323 + gt23L*Gt323*Gt333 + - Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + Gt322*Gt333*gt33L + gt11L*SQR(Gt123) + 2*gt22L*SQR(Gt223) + - gt33L*SQR(Gt323)) + 2*gtu33*(gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + gt12L*Gt133*Gt223 + - Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + - Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + - gt22L*Gt233*Gt333 + Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + 2*Gt323*Gt333*gt33L + - gt23L*SQR(Gt223) + gt23L*SQR(Gt333))); - - Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + - Gt113*gt13L*Gt333*gtu31 + Gt133*gt13L*Gt323*gtu32 + Gt233*gt23L*Gt323*gtu32 + Gt123*gt13L*Gt333*gtu32 + - Gt133*gt13L*Gt333*gtu33) + gtu21*(2*Gt212*Gt223*gt23L + 4*Gt123*gt13L*Gt313 + 4*Gt223*gt23L*Gt313 + - 4*Gt113*gt13L*Gt323 + 4*Gt213*gt23L*Gt323 + 2*Gt123*Gt311*gt33L - PDstandardNth12gt33) + - gtu31*(4*Gt213*gt23L*Gt333 + 2*Gt233*Gt312*gt33L + 6*Gt313*Gt333*gt33L - PDstandardNth13gt33) - - gtu22*khalf*PDstandardNth22gt33 + gtu32*(4*Gt223*gt23L*Gt333 + 2*Gt123*Gt313*gt33L + 6*Gt323*Gt333*gt33L - - PDstandardNth23gt33) - gtu33*khalf*PDstandardNth33gt33 + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + - gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + 2*Gt133*Gt311*gtu31 + - 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + PDstandardNth3Xt3) + Gt113*gt13L*Xtn1 + Gt213*gt23L*Xtn1 + - Gt313*gt33L*Xtn1 + Gt123*gt13L*Xtn2 + Gt223*gt23L*Xtn2 + Gt323*gt33L*Xtn2 + Gt133*gt13L*Xtn3 + Gt333*gt33L*Xtn3 + - Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xtn3) + - gtu11*(2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + 2*Gt113*Gt311*gt33L + - 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + gt11L*SQR(Gt113)) + - 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + - Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + - Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + - Gt123*Gt211*gt23L*gtu21 + Gt113*Gt212*gt23L*gtu21 + Gt213*Gt222*gt23L*gtu21 + Gt113*Gt312*gt33L*gtu21 + - Gt223*Gt312*gt33L*gtu21 + Gt112*Gt123*gt13L*gtu22 + Gt123*gt12L*Gt223*gtu22 + Gt122*gt13L*Gt223*gtu22 + - Gt123*Gt212*gt23L*gtu22 + Gt222*Gt223*gt23L*gtu22 + Gt223*Gt322*gt33L*gtu22 + Gt113*gt11L*Gt133*gtu31 + - Gt111*Gt133*gt13L*gtu31 + gt12L*Gt133*Gt213*gtu31 + Gt123*gt13L*Gt213*gtu31 + Gt113*gt12L*Gt233*gtu31 + - Gt112*gt13L*Gt233*gtu31 + Gt213*gt22L*Gt233*gtu31 + Gt133*Gt211*gt23L*gtu31 + Gt113*Gt213*gt23L*gtu31 + - Gt213*Gt223*gt23L*gtu31 + Gt212*Gt233*gt23L*gtu31 + Gt113*Gt313*gt33L*gtu31 + Gt213*Gt323*gt33L*gtu31 + - gt11L*Gt123*Gt133*gtu32 + Gt113*Gt123*gt13L*gtu32 + Gt112*Gt133*gt13L*gtu32 + gt12L*Gt133*Gt223*gtu32 + - Gt123*gt13L*Gt223*gtu32 + Gt123*gt12L*Gt233*gtu32 + Gt122*gt13L*Gt233*gtu32 + Gt223*gt22L*Gt233*gtu32 + - Gt133*Gt212*gt23L*gtu32 + Gt123*Gt213*gt23L*gtu32 + Gt222*Gt233*gt23L*gtu32 + Gt233*Gt322*gt33L*gtu32 + - Gt223*Gt323*gt33L*gtu32 + Gt113*Gt133*gt13L*gtu33 + gt12L*Gt133*Gt233*gtu33 + Gt123*gt13L*Gt233*gtu33 + - Gt133*Gt213*gt23L*gtu33 + Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*SQR(Gt113)) + gt11L*gtu22*SQR(Gt123) + - gt11L*gtu33*SQR(Gt133) + gt22L*gtu11*SQR(Gt213) + gt22L*gtu22*SQR(Gt223) + 2*gt23L*gtu32*SQR(Gt223) + - gt22L*gtu33*SQR(Gt233) + 3*gt33L*gtu11*SQR(Gt313) + 3*gt33L*gtu22*SQR(Gt323) + 3*gt33L*gtu33*SQR(Gt333); + Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; - invW = INV(WL); + Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; - W2 = SQR(WL); + Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; - invW2 = SQR(invW); + gu11 = gtu11*W2; - pdphi1 = -(invW*khalf*PDstandardNth1W); + gu21 = gtu21*W2; - pdphi2 = -(invW*khalf*PDstandardNth2W); + gu31 = gtu31*W2; - pdphi3 = -(invW*khalf*PDstandardNth3W); + gu22 = gtu22*W2; - cdphi211 = invW*khalf*(-PDstandardNth11W + Gt111*PDstandardNth1W + Gt211*PDstandardNth2W + Gt311*PDstandardNth3W + - invW*SQR(PDstandardNth1W)); + gu32 = gtu32*W2; - cdphi212 = invW*khalf*(-PDstandardNth12W + Gt212*PDstandardNth2W + PDstandardNth1W*(Gt112 + invW*PDstandardNth2W) + - Gt312*PDstandardNth3W); + gu33 = gtu33*W2; - cdphi213 = invW*khalf*(-PDstandardNth13W + Gt213*PDstandardNth2W + Gt313*PDstandardNth3W + - PDstandardNth1W*(Gt113 + invW*PDstandardNth3W)); + CCTK_REAL const T1000011 = SQR(Gt212); - cdphi222 = invW*khalf*(Gt122*PDstandardNth1W - PDstandardNth22W + Gt222*PDstandardNth2W + Gt322*PDstandardNth3W + - invW*SQR(PDstandardNth2W)); + CCTK_REAL const T1000012 = SQR(Gt313); - cdphi223 = invW*khalf*(Gt123*PDstandardNth1W - PDstandardNth23W + Gt323*PDstandardNth3W + - PDstandardNth2W*(Gt223 + invW*PDstandardNth3W)); + CCTK_REAL const T1000013 = SQR(Gt111); - cdphi233 = invW*khalf*(Gt133*PDstandardNth1W + Gt233*PDstandardNth2W - PDstandardNth33W + Gt333*PDstandardNth3W + - invW*SQR(PDstandardNth3W)); + CCTK_REAL const T1000014 = SQR(Gt112); - Rphi11 = -2*(cdphi211 - 2*SQR(pdphi1) + gt11L*(cdphi233*gtu33 + - 4*(gtu32*pdphi2*pdphi3 + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000015 = SQR(Gt312); - Rphi12 = -2*(cdphi212 + pdphi1*(-2*pdphi2 + 4*gt12L*gtu31*pdphi3) + - gt12L*(cdphi233*gtu33 + 4*pdphi2*(gtu21*pdphi1 + gtu32*pdphi3) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000017 = Gt211*Gt222*gt22L; - Rphi13 = -2*(cdphi213 + (-2*pdphi1 + 4*gt13L*gtu32*pdphi2)*pdphi3 + - gt13L*(cdphi233*gtu33 + 4*pdphi1*(gtu21*pdphi2 + gtu31*pdphi3) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000018 = Gt211*gt23L*Gt322; - Rphi22 = -2*(cdphi222 - 2*SQR(pdphi2) + gt22L*(cdphi233*gtu33 + - 4*(gtu32*pdphi2*pdphi3 + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000019 = Gt112*gt12L; - Rphi23 = -2*(cdphi223 + (-2 + 4*gt23L*gtu32)*pdphi2*pdphi3 + - gt23L*(cdphi233*gtu33 + 4*pdphi1*(gtu21*pdphi2 + gtu31*pdphi3) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000020 = Gt112*Gt212; - Rphi33 = -2*(cdphi233 - 2*SQR(pdphi3) + gt33L*(cdphi233*gtu33 + - 4*(gtu32*pdphi2*pdphi3 + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000021 = Gt113*Gt312; - Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; + CCTK_REAL const T1000022 = 2*gt11L*Gt122; - Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; + CCTK_REAL const T1000023 = gt12L*Gt222; - Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; + CCTK_REAL const T1000024 = Gt212*gt22L; - Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; + CCTK_REAL const T1000025 = gt23L*Gt312; - Atm22 = At12L*gtu21 + At22L*gtu22 + At23L*gtu32; + CCTK_REAL const T1000026 = gt13L*Gt322; - Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; + CCTK_REAL const T1000027 = Gt123*Gt312; - Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; + CCTK_REAL const T1000028 = Gt212*Gt213*gt22L; - Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; + CCTK_REAL const T1000029 = Gt211*Gt223*gt22L; - Atm33 = At13L*gtu31 + At23L*gtu32 + At33L*gtu33; + CCTK_REAL const T1000030 = Gt213*gt23L*Gt312; - Atu11 = Atm11*gtu11 + Atm12*gtu21 + Atm13*gtu31; + CCTK_REAL const T1000031 = Gt211*gt23L*Gt323; - Atu21 = Atm11*gtu21 + Atm12*gtu22 + Atm13*gtu32; + CCTK_REAL const T1000032 = Gt113*gt12L; - Atu31 = Atm11*gtu31 + Atm12*gtu32 + Atm13*gtu33; + CCTK_REAL const T1000033 = Gt213*gt22L; - Atu22 = Atm21*gtu21 + Atm22*gtu22 + Atm23*gtu32; + CCTK_REAL const T1000034 = gt23L*Gt313; - Atu32 = Atm21*gtu31 + Atm22*gtu32 + Atm23*gtu33; + CCTK_REAL const T1000036 = Gt213*Gt222*gt22L; - Atu33 = Atm31*gtu31 + Atm32*gtu32 + Atm33*gtu33; + CCTK_REAL const T1000037 = Gt212*Gt223*gt22L; - g11 = gt11L*invW2; + CCTK_REAL const T1000038 = Gt213*gt23L*Gt322; - g12 = gt12L*invW2; + CCTK_REAL const T1000039 = Gt212*gt23L*Gt323; - g13 = gt13L*invW2; + CCTK_REAL const T1000040 = 2*gt11L*Gt123; - g22 = gt22L*invW2; + CCTK_REAL const T1000041 = gt12L*Gt223; - g23 = gt23L*invW2; + CCTK_REAL const T1000042 = gt13L*Gt323; - g33 = gt33L*invW2; + CCTK_REAL const T1000044 = SQR(Gt113); - gu11 = gtu11*W2; + CCTK_REAL const T1000045 = Gt211*gt22L; - gu21 = gtu21*W2; + CCTK_REAL const T1000046 = gt23L*Gt311; - gu31 = gtu31*W2; + CCTK_REAL const T1000047 = gt12L*Gt212; - gu22 = gtu22*W2; + CCTK_REAL const T1000048 = gt13L*Gt312; - gu32 = gtu32*W2; + CCTK_REAL const T1000050 = Gt112*Gt213; - gu33 = gtu33*W2; + CCTK_REAL const T1000051 = Gt113*Gt313; - G111 = Gt111 - 2*((-2 + gt11L*gtu11)*pdphi1 + gt11L*(gtu21*pdphi2 + gtu31*pdphi3)); + CCTK_REAL const T1000052 = gt12L*Gt212*Gt223; - G211 = Gt211 - 2*gt11L*(gtu21*pdphi1 + gtu22*pdphi2 + gtu32*pdphi3); + CCTK_REAL const T1000053 = 2*Gt123*gt13L*Gt311; - G311 = Gt311 - 2*gt11L*(gtu31*pdphi1 + gtu32*pdphi2 + gtu33*pdphi3); + CCTK_REAL const T1000054 = Gt223*gt23L*Gt311; - G112 = Gt112 - 2*(-pdphi2 + gt12L*(gtu11*pdphi1 + gtu21*pdphi2 + gtu31*pdphi3)); + CCTK_REAL const T1000055 = Gt113*gt13L*Gt312; - G212 = Gt212 - 2*((-1 + gt12L*gtu21)*pdphi1 + gt12L*(gtu22*pdphi2 + gtu32*pdphi3)); + CCTK_REAL const T1000056 = gt13L*Gt223*Gt312; - G312 = Gt312 - 2*gt12L*(gtu31*pdphi1 + gtu32*pdphi2 + gtu33*pdphi3); + CCTK_REAL const T1000057 = gt13L*Gt313*Gt323; - G113 = Gt113 - 2*(-pdphi3 + gt13L*(gtu11*pdphi1 + gtu21*pdphi2 + gtu31*pdphi3)); + CCTK_REAL const T1000058 = Gt312*Gt313*gt33L; - G213 = Gt213 - 2*gt13L*(gtu21*pdphi1 + gtu22*pdphi2 + gtu32*pdphi3); + CCTK_REAL const T1000059 = Gt311*Gt323*gt33L; - G313 = Gt313 - 2*((-1 + gt13L*gtu31)*pdphi1 + gt13L*(gtu32*pdphi2 + gtu33*pdphi3)); + CCTK_REAL const T1000060 = Gt212*gt23L*Gt313; - G122 = Gt122 - 2*gt22L*(gtu11*pdphi1 + gtu21*pdphi2 + gtu31*pdphi3); + CCTK_REAL const T1000061 = 2*Gt112*Gt113; - G222 = Gt222 - 2*(-2*pdphi2 + gt22L*(gtu21*pdphi1 + gtu22*pdphi2 + gtu32*pdphi3)); + CCTK_REAL const T1000062 = Gt122*Gt213; - G322 = Gt322 - 2*gt22L*(gtu31*pdphi1 + gtu32*pdphi2 + gtu33*pdphi3); + CCTK_REAL const T1000063 = Gt112*gt13L; - G123 = Gt123 - 2*gt23L*(gtu11*pdphi1 + gtu21*pdphi2 + gtu31*pdphi3); + CCTK_REAL const T1000064 = gt12L*Gt222*Gt223; - G223 = Gt223 - 2*(-pdphi3 + gt23L*(gtu21*pdphi1 + gtu22*pdphi2 + gtu32*pdphi3)); + CCTK_REAL const T1000065 = gt13L*Gt223*Gt322; - G323 = Gt323 - 2*(-pdphi2 + gt23L*(gtu31*pdphi1 + gtu32*pdphi2 + gtu33*pdphi3)); + CCTK_REAL const T1000066 = SQR(Gt323); - G133 = Gt133 - 2*gt33L*(gtu11*pdphi1 + gtu21*pdphi2 + gtu31*pdphi3); + CCTK_REAL const T1000068 = Gt212*gt23L; - G233 = Gt233 - 2*gt33L*(gtu21*pdphi1 + gtu22*pdphi2 + gtu32*pdphi3); + CCTK_REAL const T1000069 = Gt312*gt33L; - G333 = Gt333 - 2*(-2*pdphi3 + gt33L*(gtu31*pdphi1 + gtu32*pdphi2 + gtu33*pdphi3)); + CCTK_REAL const T1000070 = SQR(Gt213); - R11 = Rphi11 + Rt11; + CCTK_REAL const T1000071 = Gt233*gt23L*Gt311; - R12 = Rphi12 + Rt12; + CCTK_REAL const T1000072 = Gt133*Gt313; - R13 = Rphi13 + Rt13; + CCTK_REAL const T1000073 = gt13L*Gt313*Gt333; - R22 = Rphi22 + Rt22; + CCTK_REAL const T1000075 = Gt311*Gt333*gt33L; - R23 = Rphi23 + Rt23; + CCTK_REAL const T1000076 = Gt113*gt13L; + + CCTK_REAL const T1000077 = Gt223*gt23L*Gt313; + + CCTK_REAL const T1000078 = gt13L*Gt323*Gt333; + + CCTK_REAL const T1000079 = 2*gt11L*Gt133; + + CCTK_REAL const T1000080 = gt12L*Gt233; + + CCTK_REAL const T1000081 = gt13L*Gt333; + + CCTK_REAL const T1000083 = Gt313*Gt323*gt33L; + + CCTK_REAL const T1000084 = SQR(Gt223); + + CCTK_REAL const T1000085 = Gt233*gt23L*Gt312; + + CCTK_REAL const T1000086 = 2*Gt123*gt13L*Gt313; + + CCTK_REAL const T1000087 = gt13L*Gt223*Gt323; + + CCTK_REAL const T1000088 = Gt312*Gt333*gt33L; + + CCTK_REAL const T1000089 = Gt213*gt23L; + + CCTK_REAL const T1000090 = Gt313*gt33L; + + CCTK_REAL const T1000092 = gt12L*Gt213; + + CCTK_REAL const T1000093 = gt13L*Gt313; + + CCTK_REAL const T1000094 = Gt211*gt23L; + + CCTK_REAL const T1000095 = Gt311*gt33L; + + CCTK_REAL const T1000096 = gt11L*Gt123; + + CCTK_REAL const T1000099 = SQR(Gt222); + + CCTK_REAL const T1000100 = Gt113*gt12L*Gt212; + + CCTK_REAL const T1000101 = Gt112*gt13L*Gt212; + + CCTK_REAL const T1000102 = 2*Gt112*gt12L*Gt213; + + CCTK_REAL const T1000103 = Gt113*Gt211*gt22L; + + CCTK_REAL const T1000104 = Gt112*Gt211*gt23L; + + CCTK_REAL const T1000106 = Gt113*gt23L*Gt311; + + CCTK_REAL const T1000107 = 2*Gt113*gt13L*Gt312; + + CCTK_REAL const T1000108 = Gt112*gt13L*Gt313; + + CCTK_REAL const T1000109 = Gt213*gt22L*Gt313; + + CCTK_REAL const T1000111 = Gt112*Gt311*gt33L; + + CCTK_REAL const T1000112 = Gt212*Gt312*gt33L; + + CCTK_REAL const T1000113 = Gt123*gt12L*Gt212; + + CCTK_REAL const T1000114 = Gt212*Gt222*gt23L; + + CCTK_REAL const T1000115 = 2*Gt223*gt23L*Gt312; + + CCTK_REAL const T1000116 = Gt113*gt13L*Gt322; + + CCTK_REAL const T1000117 = gt23L*Gt313*Gt323; + + CCTK_REAL const T1000118 = Gt313*Gt322*gt33L; + + CCTK_REAL const T1000119 = Gt312*Gt323*gt33L; + + CCTK_REAL const T1000121 = Gt122*gt13L*Gt212; + + CCTK_REAL const T1000122 = 2*Gt122*gt12L*Gt213; + + CCTK_REAL const T1000123 = Gt113*gt12L*Gt222; + + CCTK_REAL const T1000124 = Gt113*Gt212*gt22L; + + CCTK_REAL const T1000125 = Gt123*gt13L*Gt312; + + CCTK_REAL const T1000126 = Gt113*gt23L*Gt312; + + CCTK_REAL const T1000127 = Gt223*gt23L*Gt312; + + CCTK_REAL const T1000128 = Gt223*gt22L*Gt313; + + CCTK_REAL const T1000129 = Gt222*gt23L*Gt313; + + CCTK_REAL const T1000130 = Gt212*Gt322*gt33L; + + CCTK_REAL const T1000131 = Gt212*Gt223*gt23L; + + CCTK_REAL const T1000132 = Gt133*gt13L*Gt312; + + CCTK_REAL const T1000133 = Gt113*gt13L*Gt323; + + CCTK_REAL const T1000134 = Gt213*gt23L*Gt323; + + CCTK_REAL const T1000135 = Gt212*gt23L*Gt333; + + CCTK_REAL const T1000136 = gt23L*Gt313*Gt333; + + CCTK_REAL const T1000138 = 2*Gt213*Gt223*gt22L; + + CCTK_REAL const T1000139 = gt22L*Gt233*Gt313; + + CCTK_REAL const T1000140 = 2*Gt213*gt23L*Gt323; + + CCTK_REAL const T1000141 = Gt212*Gt323*gt33L; + + CCTK_REAL const T1000142 = SQR(Gt123); + + CCTK_REAL const T1000143 = Gt222*Gt223*gt23L; + + CCTK_REAL const T1000144 = Gt133*gt13L*Gt322; + + CCTK_REAL const T1000145 = gt23L*Gt323*Gt333; + + CCTK_REAL const T1000147 = Gt322*Gt333*gt33L; + + CCTK_REAL const T1000148 = SQR(Gt333); + + CCTK_REAL const T1000159 = T1000156 + T1000157 + T1000158; + + CCTK_REAL const T1000163 = T1000160 + T1000161 + T1000162; + + CCTK_REAL const T1000167 = T1000164 + T1000165 + T1000166; + + Xtn1 = Gt111*gtu11 + Gt122*gtu22 + + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; + + Xtn2 = Gt211*gtu11 + Gt222*gtu22 + + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; + + Xtn3 = Gt311*gtu11 + Gt322*gtu22 + + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; + + cdphi211 = invW*khalf*(-PDstandardNth11W + Gt111*PDstandardNth1W + + Gt211*PDstandardNth2W + Gt311*PDstandardNth3W + invW*SQR(PDstandardNth1W)); + + cdphi212 = invW*khalf*(-PDstandardNth12W + Gt212*PDstandardNth2W + + PDstandardNth1W*(Gt112 + invW*PDstandardNth2W) + Gt312*PDstandardNth3W); + + cdphi213 = invW*khalf*(-PDstandardNth13W + Gt213*PDstandardNth2W + + Gt313*PDstandardNth3W + PDstandardNth1W*(Gt113 + T1000149)); + + cdphi222 = invW*khalf*(Gt122*PDstandardNth1W - PDstandardNth22W + + Gt222*PDstandardNth2W + Gt322*PDstandardNth3W + invW*SQR(PDstandardNth2W)); + + cdphi223 = invW*khalf*(Gt123*PDstandardNth1W - PDstandardNth23W + + Gt323*PDstandardNth3W + PDstandardNth2W*(Gt223 + T1000149)); + + cdphi233 = invW*khalf*(Gt133*PDstandardNth1W + Gt233*PDstandardNth2W - + PDstandardNth33W + Gt333*PDstandardNth3W + invW*SQR(PDstandardNth3W)); + + Atm11 = At11L*gtu11 + T1000153 + T1000154; + + Atm22 = At22L*gtu22 + T1000153 + T1000155; + + Atm33 = At33L*gtu33 + T1000154 + T1000155; + + G111 = Gt111 - 2*((-2 + gt11L*gtu11)*pdphi1 + + gt11L*(gtu21*pdphi2 + gtu31*pdphi3)); + + G212 = Gt212 - 2*(gt12L*(gtu21*pdphi1 + gtu22*pdphi2 + gtu32*pdphi3) + + T1000168); + + G313 = Gt313 - 2*(gt13L*(gtu31*pdphi1 + gtu32*pdphi2 + gtu33*pdphi3) + + T1000168); + + CCTK_REAL const T1000016 = gt22L*T1000011; + + CCTK_REAL const T1000035 = T1000032 + T1000033 + T1000034; + + CCTK_REAL const T1000043 = T1000032 + T1000040 + T1000041 + T1000042; + + CCTK_REAL const T1000049 = T1000019 + T1000024 + T1000025; + + CCTK_REAL const T1000067 = gt13L*T1000066; + + CCTK_REAL const T1000074 = gt33L*T1000012; + + CCTK_REAL const T1000082 = T1000076 + T1000079 + T1000080 + T1000081; + + CCTK_REAL const T1000091 = T1000076 + T1000089 + T1000090; + + CCTK_REAL const T1000097 = T1000041 + T1000042 + T1000096; + + CCTK_REAL const T1000098 = T1000063 + T1000068 + T1000069; + + CCTK_REAL const T1000105 = gt23L*T1000011; + + CCTK_REAL const T1000110 = gt23L*T1000012; + + CCTK_REAL const T1000120 = gt13L*T1000014; + + CCTK_REAL const T1000137 = gt12L*T1000044; + + CCTK_REAL const T1000146 = gt33L*T1000066; + + Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + + gtu21*(2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + 2*gt13L*Gt311*Gt323 + + 2*Gt311*Gt312*gt33L - PDstandardNth12gt11) - gtu31*PDstandardNth13gt11 + + gt11L*PDstandardNth1Xt1 + gt12L* + (4*Gt111*Gt212*gtu21 + 2*Gt211*Gt222*gtu21 + 2*Gt212*Gt222*gtu22 + + 4*Gt113*Gt211*gtu31 + 4*Gt113*Gt212*gtu32 + 4*Gt113*Gt213*gtu33 + + PDstandardNth1Xt2) + gt13L* + (4*Gt111*Gt312*gtu21 + 2*Gt212*Gt312*gtu21 + 4*Gt112*Gt312*gtu22 + + 4*Gt113*Gt311*gtu31 + 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - + gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + + gt22L*gtu22*T1000011 + 2*(gt12L*Gt211*Gt212*gtu11 + + Gt113*gt11L*Gt311*gtu11 + Gt211*gt23L*Gt311*gtu11 + + gt13L*Gt211*Gt312*gtu11 + Gt112*gt11L*Gt212*gtu21 + + gt12L*Gt223*Gt311*gtu21 + Gt212*gt23L*Gt311*gtu21 + + gt12L*Gt213*Gt312*gtu21 + Gt211*gt23L*Gt312*gtu21 + + gt11L*Gt122*Gt212*gtu22 + gt11L*Gt123*Gt312*gtu22 + + gt12L*Gt223*Gt312*gtu22 + Gt212*gt23L*Gt312*gtu22 + + gt13L*Gt212*Gt322*gtu22 + gt13L*Gt312*Gt323*gtu22 + + gt12L*Gt212*Gt213*gtu31 + gt12L*Gt211*Gt223*gtu31 + + Gt211*Gt213*gt22L*gtu31 + gt12L*Gt233*Gt311*gtu31 + + Gt213*gt23L*Gt311*gtu31 + gt13L*Gt213*Gt312*gtu31 + + Gt113*gt11L*Gt313*gtu31 + Gt211*gt23L*Gt313*gtu31 + + gt13L*Gt211*Gt323*gtu31 + gt13L*Gt311*Gt333*gtu31 + + Gt311*Gt313*gt33L*gtu31 + gt11L*Gt123*Gt212*gtu32 + + gt12L*Gt213*Gt222*gtu32 + gt12L*Gt212*Gt223*gtu32 + + Gt212*Gt213*gt22L*gtu32 + gt11L*Gt133*Gt312*gtu32 + + gt12L*Gt233*Gt312*gtu32 + Gt213*gt23L*Gt312*gtu32 + + Gt212*gt23L*Gt313*gtu32 + gt13L*Gt213*Gt322*gtu32 + + gt13L*Gt212*Gt323*gtu32 + gt13L*Gt313*Gt323*gtu32 + + gt13L*Gt312*Gt333*gtu32 + Gt312*Gt313*gt33L*gtu32 + + gt12L*Gt213*Gt223*gtu33 + gt12L*Gt233*Gt313*gtu33 + + Gt213*gt23L*Gt313*gtu33 + gt13L*Gt213*Gt323*gtu33 + + gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*T1000011) + + 2*gt13L*gtu31*T1000012 + gt33L*gtu33*T1000012 + 3*gt11L*gtu11*T1000013 + + 3*gt11L*gtu22*T1000014 + gt33L*gtu22*T1000015 + 3*gt11L*gtu33*T1000044 + + gt22L*gtu33*T1000070 + Gt111* + (6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xtn1) + + Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + + 2*gt11L*Gt123*gtu31 + gt12L*Xtn1) + + Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + + 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xtn1) + + gt12L*Gt212*Xtn2 + gt13L*Gt312*Xtn2 + + Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + + 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xtn2) + + Gt113*gt11L*Xtn3 + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + + 2*gt11L*Gt123*gtu33 + gt12L*Xtn3) + + Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + + 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + + gt13L*Xtn3) + gt22L*gtu11*SQR(Gt211) + gt33L*gtu11*SQR(Gt311); + + Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + + Gt123*gt12L*Gt222*gtu32 + Gt123*gt12L*Gt223*gtu33) - + gtu11*khalf*PDstandardNth11gt22 + + gtu21*(6*Gt212*Gt222*gt22L + 2*Gt122*gt23L*Gt311 + 2*Gt122*gt13L*Gt312 + + 4*Gt222*gt23L*Gt312 + 2*Gt113*gt12L*Gt322 + 2*gt23L*Gt312*Gt323 + + 2*Gt312*Gt322*gt33L - PDstandardNth12gt22) + + gtu31*(6*Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + 2*Gt112*gt23L*Gt313 + + 2*Gt113*gt12L*Gt323 + 2*gt23L*Gt312*Gt333 + 2*Gt312*Gt323*gt33L - + PDstandardNth13gt22) - gtu22*khalf*PDstandardNth22gt22 + + gtu32*(4*Gt122*gt12L*Gt223 + 2*Gt123*Gt212*gt22L + 2*gt12L*Gt133*Gt322 + + 4*Gt223*gt23L*Gt322 + 2*Gt123*gt12L*Gt323 + 4*Gt222*gt23L*Gt323 + + 2*gt23L*Gt322*Gt333 + 2*Gt322*Gt323*gt33L - PDstandardNth23gt22) + + gt12L*(2*Gt111*Gt123*gtu31 + 4*Gt112*Gt223*gtu31 + 2*Gt113*Gt122*gtu32 + + 2*Gt113*Gt123*gtu33 + PDstandardNth2Xt1) + + gt22L*(2*Gt122*Gt213*gtu32 + 6*Gt222*Gt223*gtu32 + 2*Gt123*Gt213*gtu33 + + PDstandardNth2Xt2) + gt23L* + (4*Gt212*Gt322*gtu21 + 2*Gt313*Gt322*gtu21 + 4*Gt222*Gt322*gtu22 + + 2*Gt123*Gt311*gtu31 + 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + + 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - + gtu33*khalf*PDstandardNth33gt22 + 3*gt22L*gtu11*T1000011 + + gt11L*gtu11*T1000014 + 2*(Gt112*Gt211*gt22L*gtu11 + + Gt112*gt23L*Gt311*gtu11 + Gt113*gt12L*Gt312*gtu11 + + Gt112*gt13L*Gt312*gtu11 + Gt111*Gt122*gt12L*gtu21 + + Gt122*Gt211*gt22L*gtu21 + Gt112*Gt212*gt22L*gtu21 + + Gt223*gt22L*Gt312*gtu21 + Gt112*gt23L*Gt312*gtu21 + + Gt112*gt13L*Gt322*gtu21 + Gt213*gt22L*Gt322*gtu21 + + Gt122*Gt212*gt22L*gtu22 + Gt123*gt12L*Gt322*gtu22 + + Gt122*gt13L*Gt322*gtu22 + Gt223*gt22L*Gt322*gtu22 + + gt23L*Gt322*Gt323*gtu22 + Gt112*Gt113*gt12L*gtu31 + + Gt123*Gt211*gt22L*gtu31 + Gt112*Gt213*gt22L*gtu31 + + Gt112*gt13L*Gt323*gtu31 + Gt213*gt22L*Gt323*gtu31 + + gt11L*Gt122*Gt123*gtu32 + Gt123*gt13L*Gt322*gtu32 + + gt22L*Gt233*Gt322*gtu32 + Gt122*gt13L*Gt323*gtu32 + + Gt223*gt22L*Gt323*gtu32 + gt12L*Gt133*Gt323*gtu33 + + Gt123*gt13L*Gt323*gtu33 + gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*T1000014) + + gt33L*gtu11*T1000015 + 2*gt23L*gtu32*T1000066 + gt33L*gtu33*T1000066 + + 3*gt22L*gtu33*T1000084 + 3*gt22L*gtu22*T1000099 + gt11L*gtu33*T1000142 + + Gt212*gt22L*Xtn1 + Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + + 2*Gt123*gt12L*gtu32 + gt12L*Xtn1) + + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + 2*gt12L*Gt133*gtu31 + + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + + gt23L*Xtn1) + Gt122*gt12L*Xtn2 + Gt222*gt22L*Xtn2 + gt23L*Gt322*Xtn2 + + Gt123*gt12L*Xtn3 + Gt223*gt22L*Xtn3 + gt23L*Gt323*Xtn3 + + gt11L*gtu22*SQR(Gt122) + gt33L*gtu22*SQR(Gt322); + + Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + + Gt113*gt13L*Gt333*gtu31 + Gt133*gt13L*Gt323*gtu32 + + Gt233*gt23L*Gt323*gtu32 + Gt123*gt13L*Gt333*gtu32 + + Gt133*gt13L*Gt333*gtu33) + + gtu21*(2*Gt212*Gt223*gt23L + 4*Gt123*gt13L*Gt313 + 4*Gt223*gt23L*Gt313 + + 4*Gt113*gt13L*Gt323 + 4*Gt213*gt23L*Gt323 + 2*Gt123*Gt311*gt33L - + PDstandardNth12gt33) + gtu31* + (4*Gt213*gt23L*Gt333 + 2*Gt233*Gt312*gt33L + 6*Gt313*Gt333*gt33L - + PDstandardNth13gt33) - gtu22*khalf*PDstandardNth22gt33 + + gtu32*(4*Gt223*gt23L*Gt333 + 2*Gt123*Gt313*gt33L + 6*Gt323*Gt333*gt33L - + PDstandardNth23gt33) - gtu33*khalf*PDstandardNth33gt33 + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + + 2*Gt133*Gt311*gtu31 + 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + + PDstandardNth3Xt3) + gtu11* + (2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + + 2*Gt113*Gt311*gt33L + 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + + 3*gt33L*T1000012) + gt11L*gtu11*T1000044 + + 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + + Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + + Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + + Gt123*Gt211*gt23L*gtu21 + Gt113*Gt212*gt23L*gtu21 + + Gt213*Gt222*gt23L*gtu21 + Gt113*Gt312*gt33L*gtu21 + + Gt223*Gt312*gt33L*gtu21 + Gt112*Gt123*gt13L*gtu22 + + Gt123*gt12L*Gt223*gtu22 + Gt122*gt13L*Gt223*gtu22 + + Gt123*Gt212*gt23L*gtu22 + Gt222*Gt223*gt23L*gtu22 + + Gt223*Gt322*gt33L*gtu22 + Gt113*gt11L*Gt133*gtu31 + + Gt111*Gt133*gt13L*gtu31 + gt12L*Gt133*Gt213*gtu31 + + Gt123*gt13L*Gt213*gtu31 + Gt113*gt12L*Gt233*gtu31 + + Gt112*gt13L*Gt233*gtu31 + Gt213*gt22L*Gt233*gtu31 + + Gt133*Gt211*gt23L*gtu31 + Gt113*Gt213*gt23L*gtu31 + + Gt213*Gt223*gt23L*gtu31 + Gt212*Gt233*gt23L*gtu31 + + Gt113*Gt313*gt33L*gtu31 + Gt213*Gt323*gt33L*gtu31 + + gt11L*Gt123*Gt133*gtu32 + Gt113*Gt123*gt13L*gtu32 + + Gt112*Gt133*gt13L*gtu32 + gt12L*Gt133*Gt223*gtu32 + + Gt123*gt13L*Gt223*gtu32 + Gt123*gt12L*Gt233*gtu32 + + Gt122*gt13L*Gt233*gtu32 + Gt223*gt22L*Gt233*gtu32 + + Gt133*Gt212*gt23L*gtu32 + Gt123*Gt213*gt23L*gtu32 + + Gt222*Gt233*gt23L*gtu32 + Gt233*Gt322*gt33L*gtu32 + + Gt223*Gt323*gt33L*gtu32 + Gt113*Gt133*gt13L*gtu33 + + gt12L*Gt133*Gt233*gtu33 + Gt123*gt13L*Gt233*gtu33 + + Gt133*Gt213*gt23L*gtu33 + Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*T1000044) + + 3*gt33L*gtu22*T1000066 + gt22L*gtu11*T1000070 + gt22L*gtu22*T1000084 + + 2*gt23L*gtu32*T1000084 + gt11L*gtu22*T1000142 + 3*gt33L*gtu33*T1000148 + + Gt113*gt13L*Xtn1 + Gt213*gt23L*Xtn1 + Gt313*gt33L*Xtn1 + Gt123*gt13L*Xtn2 + + Gt223*gt23L*Xtn2 + Gt323*gt33L*Xtn2 + Gt133*gt13L*Xtn3 + Gt333*gt33L*Xtn3 + + Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xtn3) + + gt11L*gtu33*SQR(Gt133) + gt22L*gtu33*SQR(Gt233); + + Rphi11 = -2*(cdphi211 - 2*T1000150 + + gt11L*(cdphi233*gtu33 + 4*(gtu32*pdphi2*pdphi3 + + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + + gtu11*(cdphi211 + 2*T1000150) + gtu22*(cdphi222 + 2*T1000151) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000152))); + + Rphi12 = -2*(cdphi212 + pdphi1*(-2*pdphi2 + 4*gt12L*gtu31*pdphi3) + + gt12L*(cdphi233*gtu33 + 4*pdphi2*(gtu21*pdphi1 + gtu32*pdphi3) + + gtu11*(cdphi211 + 2*T1000150) + gtu22*(cdphi222 + 2*T1000151) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000152))); + + Rphi13 = -2*(cdphi213 + (-2*pdphi1 + 4*gt13L*gtu32*pdphi2)*pdphi3 + + gt13L*(cdphi233*gtu33 + 4*pdphi1*(gtu21*pdphi2 + gtu31*pdphi3) + + gtu11*(cdphi211 + 2*T1000150) + gtu22*(cdphi222 + 2*T1000151) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000152))); + + Rphi22 = -2*(cdphi222 - 2*T1000151 + + gt22L*(cdphi233*gtu33 + 4*(gtu32*pdphi2*pdphi3 + + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + + gtu11*(cdphi211 + 2*T1000150) + gtu22*(cdphi222 + 2*T1000151) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000152))); + + Rphi23 = -2*(cdphi223 + (-2 + 4*gt23L*gtu32)*pdphi2*pdphi3 + + gt23L*(cdphi233*gtu33 + 4*pdphi1*(gtu21*pdphi2 + gtu31*pdphi3) + + gtu11*(cdphi211 + 2*T1000150) + gtu22*(cdphi222 + 2*T1000151) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000152))); + + Rphi33 = -2*(cdphi233 - 2*T1000152 + + gt33L*(cdphi233*gtu33 + 4*(gtu32*pdphi2*pdphi3 + + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + + gtu11*(cdphi211 + 2*T1000150) + gtu22*(cdphi222 + 2*T1000151) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000152))); + + Atu11 = Atm11*gtu11 + Atm12*gtu21 + Atm13*gtu31; + + Atu21 = Atm11*gtu21 + Atm12*gtu22 + Atm13*gtu32; + + Atu31 = Atm11*gtu31 + Atm12*gtu32 + Atm13*gtu33; + + Atu22 = Atm21*gtu21 + Atm22*gtu22 + Atm23*gtu32; + + Atu32 = Atm21*gtu31 + Atm22*gtu32 + Atm23*gtu33; + + Atu33 = Atm31*gtu31 + Atm32*gtu32 + Atm33*gtu33; + + G211 = Gt211 - 2*gt11L*T1000167; + + G311 = Gt311 - 2*gt11L*T1000159; + + G112 = Gt112 - 2*(gt12L*T1000163 + T1000170); + + G312 = Gt312 - 2*gt12L*T1000159; + + G113 = Gt113 - 2*(gt13L*T1000163 + T1000169); + + G213 = Gt213 - 2*gt13L*T1000167; + + G122 = Gt122 - 2*gt22L*T1000163; + + G222 = Gt222 - 2*(-2*pdphi2 + gt22L*T1000167); + + G322 = Gt322 - 2*gt22L*T1000159; + + G123 = Gt123 - 2*gt23L*T1000163; + + G223 = Gt223 - 2*(gt23L*T1000167 + T1000169); + + G323 = Gt323 - 2*(gt23L*T1000159 + T1000170); + + G133 = Gt133 - 2*gt33L*T1000163; + + G233 = Gt233 - 2*gt33L*T1000167; + + G333 = Gt333 - 2*(-2*pdphi3 + gt33L*T1000159); + + Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - + 2*gtu31*PDstandardNth13gt12 + gt12L*PDstandardNth1Xt1 + + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - + gtu22*PDstandardNth22gt12 - 2*gtu32*PDstandardNth23gt12 + + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + + gt13L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt12 + + 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + 2*Gt122*gt13L*Gt311 + + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + gt13L*Gt222*Gt312 + + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + gt23L*Gt312*Gt313 + + Gt113*gt11L*Gt322 + gt13L*Gt313*Gt322 + Gt311*Gt322*gt33L + T1000016 + + T1000017 + T1000018 + gt12L* + (2*Gt122*Gt211 + Gt212*Gt222 + Gt213*Gt322 + T1000020 + T1000021) + + Gt111*(T1000019 + T1000022 + T1000023 + T1000026)) + + 2*gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + + 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + + gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + + gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + + gt12L*T1000011 + gt12L*T1000013 + + gt11L*(2*Gt111*Gt112 + T1000020 + T1000021) + + Gt111*(T1000045 + T1000046 + T1000047 + T1000048)) + + 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + 3*Gt112*gt13L*Gt312 + + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + gt13L*Gt212*Gt322 + + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + gt33L*T1000015 + T1000016 + + T1000017 + T1000018 + gt11L*(Gt122*Gt212 + 2*T1000014 + T1000027) + + Gt111*T1000049) + 2*gtu22* + (gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + + Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + + gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + gt23L*Gt312*Gt323 + + gt13L*Gt322*Gt323 + Gt312*Gt322*gt33L + gt12L*T1000014 + + Gt112*(T1000022 + T1000023 + T1000024 + T1000025 + T1000026) + + gt12L*(3*Gt122*Gt212 + Gt223*Gt322 + T1000027 + T1000099)) + + 2*gtu31*(Gt123*gt12L*Gt211 + gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + + gt12L*Gt233*Gt312 + 2*Gt112*gt13L*Gt313 + gt13L*Gt212*Gt323 + + gt23L*Gt311*Gt333 + gt13L*Gt312*Gt333 + T1000028 + T1000029 + + T1000030 + T1000031 + Gt111*T1000035 + T1000052 + T1000055 + + T1000058 + T1000060 + gt11L*(Gt123*Gt212 + Gt133*Gt312 + T1000061) + + T1000100 + T1000102) + 2*gtu31* + (Gt112*gt11L*Gt223 + Gt113*gt11L*Gt323 + T1000028 + T1000029 + + T1000030 + T1000031 + Gt111*T1000043 + + gt12L*(2*Gt123*Gt211 + Gt212*Gt223 + Gt213*Gt323 + T1000050 + + T1000051) + T1000053 + T1000054 + T1000056 + T1000057 + T1000059 + + T1000103 + T1000106 + T1000109 + T1000110) + + 2*gtu32*(gt11L*Gt122*Gt223 + 2*Gt123*gt13L*Gt312 + gt11L*Gt123*Gt323 + + T1000036 + T1000037 + T1000038 + T1000039 + Gt112*T1000043 + + gt12L*(Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323) + T1000062) + + T1000065 + T1000067 + T1000117 + T1000119 + T1000124 + T1000126 + + T1000127 + T1000128) + 2*gtu32* + (gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + + gt12L*Gt233*Gt322 + gt11L* + (2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + gt13L*Gt222*Gt323 + + gt23L*Gt312*Gt333 + gt13L*Gt322*Gt333 + Gt112*T1000035 + T1000036 + + T1000037 + T1000038 + T1000039 + T1000064 + T1000113 + T1000116 + + T1000118 + T1000122 + T1000123 + T1000129) + + 2*gtu33*(gt11L*Gt123*Gt223 + gt11L*Gt133*Gt323 + + Gt113*(T1000033 + T1000034 + T1000040 + T1000041 + T1000042) + + T1000077 + T1000078 + T1000083 + + gt12L*(3*Gt123*Gt213 + Gt233*Gt323 + T1000072 + T1000084) + T1000086 + + T1000087 + T1000136 + T1000137 + T1000138 + T1000139 + T1000140) + + (Gt111*gt12L + T1000045 + T1000046)*Xtn1 + + (Gt112*gt11L + T1000047 + T1000048)*Xtn1 + + (gt11L*Gt122 + T1000023 + T1000026)*Xtn2 + T1000049*Xtn2 + + T1000035*Xtn3 + T1000097*Xtn3); + + Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - + 2*gtu31*PDstandardNth13gt13 + gt13L*PDstandardNth1Xt1 + + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - + gtu22*PDstandardNth22gt13 - 2*gtu32*PDstandardNth23gt13 - + gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + + gt12L*PDstandardNth3Xt2 + gt13L*PDstandardNth3Xt3 + + 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + + Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + 2*Gt133*gt13L*Gt311 + + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + Gt213*gt23L*Gt313 + + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + + gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + + Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + T1000071 + T1000073 + + T1000074 + T1000075 + Gt111*T1000082) + + 2*gtu31*(Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + + Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + 3*Gt113*gt13L*Gt313 + + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + gt13L*Gt213*Gt323 + + Gt211*Gt323*gt33L + gt22L*T1000070 + T1000071 + + gt11L*(Gt123*Gt213 + 2*T1000044 + T1000072) + T1000073 + T1000074 + + T1000075 + Gt111*T1000091) + + 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + + Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + + 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + + Gt211*gt23L*Gt313 + Gt211*Gt312*gt33L + 2*Gt311*Gt313*gt33L + + gt13L*T1000012 + gt13L*T1000013 + + gt11L*(2*Gt111*Gt113 + T1000050 + T1000051) + + Gt111*(T1000092 + T1000093 + T1000094 + T1000095)) + + 2*gtu21*(Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + + gt12L*Gt213*Gt222 + Gt211*Gt222*gt23L + Gt123*gt13L*Gt311 + + gt12L*Gt223*Gt313 + gt13L*Gt213*Gt322 + Gt211*Gt322*gt33L + T1000028 + + T1000030 + T1000054 + T1000057 + T1000058 + T1000059 + T1000060 + + gt11L*(Gt123*Gt313 + T1000061 + T1000062) + Gt111*T1000098 + + T1000107 + T1000108) + 2*gtu21* + (2*Gt123*gt12L*Gt211 + gt12L*Gt213*Gt323 + + gt11L*(2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + T1000029 + + T1000030 + T1000031 + T1000052 + T1000053 + T1000054 + T1000055 + + T1000056 + T1000057 + T1000058 + T1000059 + + Gt111*(T1000041 + T1000042 + T1000063) + T1000101 + T1000104 + + T1000105 + T1000111 + T1000112) + + 2*gtu22*(2*Gt123*gt12L*Gt212 + 3*Gt123*gt13L*Gt312 + gt12L*Gt223*Gt323 + + gt11L*(2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + + 2*Gt312*Gt323*gt33L + T1000037 + T1000039 + T1000064 + T1000065 + + T1000067 + Gt112*(T1000041 + T1000042 + T1000068 + T1000069) + + T1000114 + T1000115 + T1000120 + T1000121 + T1000130) + + 2*gtu32*(Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + Gt212*gt22L*Gt233 + + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + 2*Gt133*gt13L*Gt312 + + Gt123*gt13L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + + gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + + Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + T1000077 + T1000078 + + Gt112*T1000082 + T1000083 + T1000085 + T1000088 + T1000135) + + 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + + Gt213*Gt223*gt22L + gt12L*Gt233*Gt323 + + gt11L*(2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + T1000077 + + T1000078 + T1000083 + gt12L*T1000084 + T1000085 + T1000086 + + T1000087 + T1000088 + Gt112*T1000091 + T1000131 + T1000132 + + T1000133 + T1000134 + T1000141) + + 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + + gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + Gt213*Gt223*gt23L + + 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + + gt11L*Gt133*Gt333 + gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + + Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + gt13L*T1000044 + + Gt113*(T1000079 + T1000080 + T1000081 + T1000089 + T1000090) + + gt13L*T1000148) + (Gt113*gt11L + T1000092 + T1000093)*Xtn1 + + (Gt111*gt13L + T1000094 + T1000095)*Xtn1 + T1000097*Xtn2 + + T1000098*Xtn2 + (gt11L*Gt133 + T1000080 + T1000081)*Xtn3 + T1000091*Xtn3); + + Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - + 2*gtu31*PDstandardNth13gt23 - gtu22*PDstandardNth22gt23 - + 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + + gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3 - + gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + + gt22L*PDstandardNth3Xt2 + gt23L*PDstandardNth3Xt3 + + 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + + Gt123*gt12L*Gt222 + Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + + Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + + Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + + Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + Gt223*gt22L*Gt323 + + Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + + 2*Gt322*Gt323*gt33L + gt23L*T1000066 + gt23L*T1000099) + + 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + + 2*Gt212*Gt213*gt22L + 3*Gt213*gt23L*Gt312 + Gt113*gt12L*Gt313 + + 2*Gt312*Gt313*gt33L + T1000060 + T1000100 + T1000101 + T1000102 + + T1000103 + T1000104 + T1000105 + T1000106 + T1000107 + T1000108 + + T1000109 + T1000110 + T1000111 + T1000112) + + 2*gtu21*(Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + Gt123*Gt211*gt22L + + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + Gt123*gt23L*Gt311 + + Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + + Gt122*Gt311*gt33L + Gt222*Gt312*gt33L + T1000038 + T1000039 + + T1000113 + T1000114 + T1000115 + T1000116 + T1000117 + T1000118 + + T1000119 + T1000125) + 2*gtu21* + (Gt113*gt11L*Gt122 + 2*Gt213*Gt222*gt22L + Gt123*gt12L*Gt313 + + Gt122*gt13L*Gt313 + 2*Gt213*gt23L*Gt322 + + Gt112*(T1000032 + T1000068 + T1000069) + T1000114 + T1000116 + + T1000117 + T1000118 + T1000119 + T1000120 + T1000121 + T1000122 + + T1000123 + T1000124 + T1000125 + T1000126 + T1000127 + T1000128 + + T1000129 + T1000130) + 2*gtu31* + (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + + gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + + 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + + Gt133*gt23L*Gt311 + 2*Gt233*gt23L*Gt312 + Gt113*gt12L*Gt333 + + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + Gt123*Gt311*gt33L + + Gt223*Gt312*gt33L + T1000083 + T1000088 + T1000131 + T1000132 + + T1000133 + T1000134 + T1000135 + T1000136) + + 2*gtu31*(Gt112*Gt213*gt23L + gt12L*Gt133*Gt313 + + Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + Gt112*Gt313*gt33L + + T1000077 + T1000083 + T1000085 + T1000088 + + Gt113*(T1000033 + T1000034 + T1000041 + T1000042 + T1000063 + + T1000096) + T1000131 + T1000132 + T1000136 + T1000137 + T1000138 + + T1000139 + T1000140 + T1000141) + + 2*gtu32*(gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + + gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + Gt133*Gt212*gt22L + + 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + + Gt133*gt23L*Gt312 + 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + + Gt223*gt23L*Gt323 + Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + + Gt223*gt22L*Gt333 + Gt222*gt23L*Gt333 + Gt123*Gt312*gt33L + + Gt223*Gt322*gt33L + T1000143 + T1000144 + T1000145 + T1000146 + + T1000147) + 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + + Gt123*gt13L*Gt222 + 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + + Gt122*Gt213*gt23L + Gt123*gt23L*Gt313 + Gt233*gt23L*Gt322 + + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + gt22L*Gt233*Gt323 + + 3*Gt223*gt23L*Gt323 + Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + + 2*gt22L*T1000084 + gt11L*T1000142 + T1000143 + T1000144 + T1000145 + + T1000146 + T1000147) + 2*gtu33* + (gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + + gt12L*Gt133*Gt223 + Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + + 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + + Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + + gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + gt22L*Gt233*Gt333 + + Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + + 2*Gt323*Gt333*gt33L + gt23L*T1000084 + gt23L*T1000148) + + T1000035*Xtn1 + T1000098*Xtn1 + + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xtn2 + + (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xtn2 + + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xtn3 + + (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xtn3); + + R11 = Rphi11 + Rt11; + + R22 = Rphi22 + Rt22; R33 = Rphi33 + Rt33; - WrhsL = betam1*PDupwindmNth1W + betam2*PDupwindmNth2W + betam3*PDupwindmNth3W + betap1*PDupwindpNth1W + - betap2*PDupwindpNth2W + betap3*PDupwindpNth3W + - kthird*(-PDstandardNth1beta1 - PDstandardNth2beta2 - PDstandardNth3beta3 + alphaL*trKL)*WL; - - gt11rhsL = -2*alphaL*At11L + 2*(gt11L*PDstandardNth1beta1 + gt12L*PDstandardNth1beta2 + gt13L*PDstandardNth1beta3) - - gt11L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) + betam1*PDupwindmNth1gt11 + - betam2*PDupwindmNth2gt11 + betam3*PDupwindmNth3gt11 + betap1*PDupwindpNth1gt11 + betap2*PDupwindpNth2gt11 + - betap3*PDupwindpNth3gt11; - - gt12rhsL = -2*alphaL*At12L + gt22L*PDstandardNth1beta2 + gt23L*PDstandardNth1beta3 + gt11L*PDstandardNth2beta1 + - gt13L*PDstandardNth2beta3 + gt12L*(kthird*(PDstandardNth1beta1 + PDstandardNth2beta2) - - ktwothird*PDstandardNth3beta3) + betam1*PDupwindmNth1gt12 + betam2*PDupwindmNth2gt12 + - betam3*PDupwindmNth3gt12 + betap1*PDupwindpNth1gt12 + betap2*PDupwindpNth2gt12 + betap3*PDupwindpNth3gt12; - - gt13rhsL = -2*alphaL*At13L + gt23L*PDstandardNth1beta2 + gt33L*PDstandardNth1beta3 + gt11L*PDstandardNth3beta1 + - gt12L*PDstandardNth3beta2 + gt13L*(-(ktwothird*PDstandardNth2beta2) + - kthird*(PDstandardNth1beta1 + PDstandardNth3beta3)) + betam1*PDupwindmNth1gt13 + betam2*PDupwindmNth2gt13 + - betam3*PDupwindmNth3gt13 + betap1*PDupwindpNth1gt13 + betap2*PDupwindpNth2gt13 + betap3*PDupwindpNth3gt13; - - gt22rhsL = -2*alphaL*At22L + 2*(gt12L*PDstandardNth2beta1 + gt22L*PDstandardNth2beta2 + gt23L*PDstandardNth2beta3) - - gt22L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) + betam1*PDupwindmNth1gt22 + - betam2*PDupwindmNth2gt22 + betam3*PDupwindmNth3gt22 + betap1*PDupwindpNth1gt22 + betap2*PDupwindpNth2gt22 + - betap3*PDupwindpNth3gt22; - - gt23rhsL = -2*alphaL*At23L + gt13L*PDstandardNth2beta1 + gt33L*PDstandardNth2beta3 + gt12L*PDstandardNth3beta1 + - gt22L*PDstandardNth3beta2 + gt23L*(-(ktwothird*PDstandardNth1beta1) + - kthird*(PDstandardNth2beta2 + PDstandardNth3beta3)) + betam1*PDupwindmNth1gt23 + betam2*PDupwindmNth2gt23 + - betam3*PDupwindmNth3gt23 + betap1*PDupwindpNth1gt23 + betap2*PDupwindpNth2gt23 + betap3*PDupwindpNth3gt23; - - gt33rhsL = -2*alphaL*At33L - gt33L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) + - 2*(gt13L*PDstandardNth3beta1 + gt23L*PDstandardNth3beta2 + gt33L*PDstandardNth3beta3) + betam1*PDupwindmNth1gt33 + - betam2*PDupwindmNth2gt33 + betam3*PDupwindmNth3gt33 + betap1*PDupwindpNth1gt33 + betap2*PDupwindpNth2gt33 + - betap3*PDupwindpNth3gt33; - - Xt1rhsL = gtu11*PDstandardNth11beta1 + gtu22*PDstandardNth22beta1 + gtu33*PDstandardNth33beta1 + - kthird*(gtu11*(PDstandardNth11beta1 + PDstandardNth12beta2 + PDstandardNth13beta3) + - gtu21*(PDstandardNth12beta1 + PDstandardNth22beta2 + PDstandardNth23beta3) + - gtu31*(PDstandardNth13beta1 + PDstandardNth23beta2 + PDstandardNth33beta3)) - - 2*(Atu11*PDstandardNth1alpha + Atu21*PDstandardNth2alpha + Atu31*PDstandardNth3alpha) + - 2*(gtu21*PDstandardNth12beta1 + gtu31*PDstandardNth13beta1 + gtu32*PDstandardNth23beta1 + - alphaL*(Atu11*Gt111 + 2*Atu21*Gt112 + 2*Atu31*Gt113 + Atu22*Gt122 + 2*Atu32*Gt123 + Atu33*Gt133 + + Xt1rhsL = gtu11*PDstandardNth11beta1 + gtu22*PDstandardNth22beta1 + + gtu33*PDstandardNth33beta1 - + 2*(Atu11*PDstandardNth1alpha + Atu21*PDstandardNth2alpha + + Atu31*PDstandardNth3alpha) + + 2*(gtu21*PDstandardNth12beta1 + gtu31*PDstandardNth13beta1 + + gtu32*PDstandardNth23beta1 + + alphaL*(Atu11*Gt111 + 2*Atu21*Gt112 + 2*Atu31*Gt113 + Atu22*Gt122 + + 2*Atu32*Gt123 + Atu33*Gt133 + 6*(Atu11*pdphi1 + Atu21*pdphi2 + Atu31*pdphi3) - - ktwothird*(gtu11*PDstandardNth1trK + gtu21*PDstandardNth2trK + gtu31*PDstandardNth3trK))) + - betam1*PDupwindmNth1Xt1 + betam2*PDupwindmNth2Xt1 + betam3*PDupwindmNth3Xt1 + betap1*PDupwindpNth1Xt1 + - betap2*PDupwindpNth2Xt1 + betap3*PDupwindpNth3Xt1 + - (-PDstandardNth1beta1 + ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3))*Xtn1 - + ktwothird*(gtu11*PDstandardNth1trK + gtu21*PDstandardNth2trK + + gtu31*PDstandardNth3trK))) + betam1*PDupwindmNth1Xt1 + + betam2*PDupwindmNth2Xt1 + betam3*PDupwindmNth3Xt1 + + betap1*PDupwindpNth1Xt1 + betap2*PDupwindpNth2Xt1 + + betap3*PDupwindpNth3Xt1 + kthird* + (gtu11*T1000172 + gtu21*T1000173 + gtu31*T1000174) + + (-PDstandardNth1beta1 + ktwothird*T1000171)*Xtn1 - PDstandardNth2beta1*Xtn2 - PDstandardNth3beta1*Xtn3; - Xt2rhsL = gtu11*PDstandardNth11beta2 + gtu22*PDstandardNth22beta2 + gtu33*PDstandardNth33beta2 + - kthird*(gtu21*(PDstandardNth11beta1 + PDstandardNth12beta2 + PDstandardNth13beta3) + - gtu22*(PDstandardNth12beta1 + PDstandardNth22beta2 + PDstandardNth23beta3) + - gtu32*(PDstandardNth13beta1 + PDstandardNth23beta2 + PDstandardNth33beta3)) - - 2*(Atu21*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + Atu32*PDstandardNth3alpha) + - 2*(gtu21*PDstandardNth12beta2 + gtu31*PDstandardNth13beta2 + gtu32*PDstandardNth23beta2 + - alphaL*(Atu11*Gt211 + 2*Atu21*Gt212 + 2*Atu31*Gt213 + Atu22*Gt222 + 2*Atu32*Gt223 + Atu33*Gt233 + + Xt2rhsL = gtu11*PDstandardNth11beta2 + gtu22*PDstandardNth22beta2 + + gtu33*PDstandardNth33beta2 - + 2*(Atu21*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + + Atu32*PDstandardNth3alpha) + + 2*(gtu21*PDstandardNth12beta2 + gtu31*PDstandardNth13beta2 + + gtu32*PDstandardNth23beta2 + + alphaL*(Atu11*Gt211 + 2*Atu21*Gt212 + 2*Atu31*Gt213 + Atu22*Gt222 + + 2*Atu32*Gt223 + Atu33*Gt233 + 6*(Atu21*pdphi1 + Atu22*pdphi2 + Atu32*pdphi3) - - ktwothird*(gtu21*PDstandardNth1trK + gtu22*PDstandardNth2trK + gtu32*PDstandardNth3trK))) + - betam1*PDupwindmNth1Xt2 + betam2*PDupwindmNth2Xt2 + betam3*PDupwindmNth3Xt2 + betap1*PDupwindpNth1Xt2 + - betap2*PDupwindpNth2Xt2 + betap3*PDupwindpNth3Xt2 - PDstandardNth1beta2*Xtn1 - PDstandardNth2beta2*Xtn2 + - ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)*Xtn2 - PDstandardNth3beta2*Xtn3; - - Xt3rhsL = gtu11*PDstandardNth11beta3 + gtu22*PDstandardNth22beta3 + gtu33*PDstandardNth33beta3 + - kthird*(gtu31*(PDstandardNth11beta1 + PDstandardNth12beta2 + PDstandardNth13beta3) + - gtu32*(PDstandardNth12beta1 + PDstandardNth22beta2 + PDstandardNth23beta3) + - gtu33*(PDstandardNth13beta1 + PDstandardNth23beta2 + PDstandardNth33beta3)) - - 2*(Atu31*PDstandardNth1alpha + Atu32*PDstandardNth2alpha + Atu33*PDstandardNth3alpha) + - 2*(gtu21*PDstandardNth12beta3 + gtu31*PDstandardNth13beta3 + gtu32*PDstandardNth23beta3 + - alphaL*(Atu11*Gt311 + 2*Atu21*Gt312 + 2*Atu31*Gt313 + Atu22*Gt322 + 2*Atu32*Gt323 + Atu33*Gt333 + + ktwothird*(gtu21*PDstandardNth1trK + gtu22*PDstandardNth2trK + + gtu32*PDstandardNth3trK))) + betam1*PDupwindmNth1Xt2 + + betam2*PDupwindmNth2Xt2 + betam3*PDupwindmNth3Xt2 + + betap1*PDupwindpNth1Xt2 + betap2*PDupwindpNth2Xt2 + + betap3*PDupwindpNth3Xt2 + kthird* + (gtu21*T1000172 + gtu22*T1000173 + gtu32*T1000174) - + PDstandardNth1beta2*Xtn1 - PDstandardNth2beta2*Xtn2 + + ktwothird*T1000171*Xtn2 - PDstandardNth3beta2*Xtn3; + + Xt3rhsL = gtu11*PDstandardNth11beta3 + gtu22*PDstandardNth22beta3 + + gtu33*PDstandardNth33beta3 - + 2*(Atu31*PDstandardNth1alpha + Atu32*PDstandardNth2alpha + + Atu33*PDstandardNth3alpha) + + 2*(gtu21*PDstandardNth12beta3 + gtu31*PDstandardNth13beta3 + + gtu32*PDstandardNth23beta3 + + alphaL*(Atu11*Gt311 + 2*Atu21*Gt312 + 2*Atu31*Gt313 + Atu22*Gt322 + + 2*Atu32*Gt323 + Atu33*Gt333 + 6*(Atu31*pdphi1 + Atu32*pdphi2 + Atu33*pdphi3) - - ktwothird*(gtu31*PDstandardNth1trK + gtu32*PDstandardNth2trK + gtu33*PDstandardNth3trK))) + - betam1*PDupwindmNth1Xt3 + betam2*PDupwindmNth2Xt3 + betam3*PDupwindmNth3Xt3 + betap1*PDupwindpNth1Xt3 + - betap2*PDupwindpNth2Xt3 + betap3*PDupwindpNth3Xt3 - PDstandardNth1beta3*Xtn1 - PDstandardNth2beta3*Xtn2 - - PDstandardNth3beta3*Xtn3 + ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)*Xtn3; - - trKrhsL = -(gu11*PDstandardNth11alpha) - 2*gu21*PDstandardNth12alpha - 2*gu31*PDstandardNth13alpha + - (G111*gu11 + 2*G112*gu21 + G122*gu22 + 2*G113*gu31 + 2*G123*gu32 + G133*gu33)*PDstandardNth1alpha - - gu22*PDstandardNth22alpha - 2*gu32*PDstandardNth23alpha + - (G211*gu11 + 2*G212*gu21 + G222*gu22 + 2*G213*gu31 + 2*G223*gu32 + G233*gu33)*PDstandardNth2alpha - - gu33*PDstandardNth33alpha + G311*gu11*PDstandardNth3alpha + G322*gu22*PDstandardNth3alpha + - 2*G313*gu31*PDstandardNth3alpha + 2*G323*gu32*PDstandardNth3alpha + G333*gu33*PDstandardNth3alpha + - 2*(alphaL*Atm12*Atm21 + alphaL*Atm13*Atm31 + alphaL*Atm23*Atm32 + G312*gu21*PDstandardNth3alpha) + - betam1*PDupwindmNth1trK + betam2*PDupwindmNth2trK + betam3*PDupwindmNth3trK + betap1*PDupwindpNth1trK + - betap2*PDupwindpNth2trK + betap3*PDupwindpNth3trK + alphaL*SQR(Atm11) + alphaL*SQR(Atm22) + alphaL*SQR(Atm33) + - alphaL*kthird*SQR(trKL); - - Ats11 = -PDstandardNth11alpha + G111*PDstandardNth1alpha + G211*PDstandardNth2alpha + G311*PDstandardNth3alpha + - alphaL*R11; - - Ats12 = -PDstandardNth12alpha + G112*PDstandardNth1alpha + G212*PDstandardNth2alpha + G312*PDstandardNth3alpha + - alphaL*R12; - - Ats13 = -PDstandardNth13alpha + G113*PDstandardNth1alpha + G213*PDstandardNth2alpha + G313*PDstandardNth3alpha + - alphaL*R13; - - Ats22 = G122*PDstandardNth1alpha - PDstandardNth22alpha + G222*PDstandardNth2alpha + G322*PDstandardNth3alpha + - alphaL*R22; - - Ats23 = G123*PDstandardNth1alpha - PDstandardNth23alpha + G223*PDstandardNth2alpha + G323*PDstandardNth3alpha + - alphaL*R23; - - Ats33 = G133*PDstandardNth1alpha + G233*PDstandardNth2alpha - PDstandardNth33alpha + G333*PDstandardNth3alpha + - alphaL*R33; - - trAts = Ats11*gu11 + Ats22*gu22 + 2*(Ats12*gu21 + Ats13*gu31 + Ats23*gu32) + Ats33*gu33; - - At11rhsL = 2*(At11L*PDstandardNth1beta1 + At12L*PDstandardNth1beta2 + At13L*PDstandardNth1beta3) - - At11L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) + betam1*PDupwindmNth1At11 + - betam2*PDupwindmNth2At11 + betam3*PDupwindmNth3At11 + betap1*PDupwindpNth1At11 + betap2*PDupwindpNth2At11 + - betap3*PDupwindpNth3At11 + alphaL*(-2*(At11L*Atm11 + At12L*Atm21 + At13L*Atm31) + At11L*trKL) + - (Ats11 - g11*kthird*trAts)*W2; + ktwothird*(gtu31*PDstandardNth1trK + gtu32*PDstandardNth2trK + + gtu33*PDstandardNth3trK))) + betam1*PDupwindmNth1Xt3 + + betam2*PDupwindmNth2Xt3 + betam3*PDupwindmNth3Xt3 + + betap1*PDupwindpNth1Xt3 + betap2*PDupwindpNth2Xt3 + + betap3*PDupwindpNth3Xt3 + kthird* + (gtu31*T1000172 + gtu32*T1000173 + gtu33*T1000174) - + PDstandardNth1beta3*Xtn1 - PDstandardNth2beta3*Xtn2 - + PDstandardNth3beta3*Xtn3 + ktwothird*T1000171*Xtn3; + + trKrhsL = -(gu11*PDstandardNth11alpha) - 2*gu21*PDstandardNth12alpha - + 2*gu31*PDstandardNth13alpha + + (G111*gu11 + 2*G112*gu21 + G122*gu22 + 2*G113*gu31 + 2*G123*gu32 + + G133*gu33)*PDstandardNth1alpha - gu22*PDstandardNth22alpha - + 2*gu32*PDstandardNth23alpha + + (G211*gu11 + 2*G212*gu21 + G222*gu22 + 2*G213*gu31 + 2*G223*gu32 + + G233*gu33)*PDstandardNth2alpha - gu33*PDstandardNth33alpha + + G311*gu11*PDstandardNth3alpha + G322*gu22*PDstandardNth3alpha + + 2*G313*gu31*PDstandardNth3alpha + 2*G323*gu32*PDstandardNth3alpha + + G333*gu33*PDstandardNth3alpha + + 2*(alphaL*Atm12*Atm21 + alphaL*Atm13*Atm31 + alphaL*Atm23*Atm32 + + G312*gu21*PDstandardNth3alpha) + betam1*PDupwindmNth1trK + + betam2*PDupwindmNth2trK + betam3*PDupwindmNth3trK + + betap1*PDupwindpNth1trK + betap2*PDupwindpNth2trK + + betap3*PDupwindpNth3trK + alphaL*SQR(Atm11) + alphaL*SQR(Atm22) + + alphaL*SQR(Atm33) + alphaL*kthird*SQR(trKL); - At12rhsL = At22L*PDstandardNth1beta2 + At23L*PDstandardNth1beta3 + At11L*PDstandardNth2beta1 + - At13L*PDstandardNth2beta3 + At12L*(PDstandardNth1beta1 + PDstandardNth2beta2 - - ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)) + betam1*PDupwindmNth1At12 + - betam2*PDupwindmNth2At12 + betam3*PDupwindmNth3At12 + betap1*PDupwindpNth1At12 + betap2*PDupwindpNth2At12 + - betap3*PDupwindpNth3At12 + alphaL*(-2*(At11L*Atm12 + At12L*Atm22 + At13L*Atm32) + At12L*trKL) + - (Ats12 - g12*kthird*trAts)*W2; - - At13rhsL = At23L*PDstandardNth1beta2 + At33L*PDstandardNth1beta3 + At11L*PDstandardNth3beta1 + - At12L*PDstandardNth3beta2 + At13L*(PDstandardNth1beta1 + PDstandardNth3beta3 - - ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)) + betam1*PDupwindmNth1At13 + - betam2*PDupwindmNth2At13 + betam3*PDupwindmNth3At13 + betap1*PDupwindpNth1At13 + betap2*PDupwindpNth2At13 + - betap3*PDupwindpNth3At13 + alphaL*(-2*(At11L*Atm13 + At12L*Atm23 + At13L*Atm33) + At13L*trKL) + - (Ats13 - g13*kthird*trAts)*W2; - - At22rhsL = 2*(At12L*PDstandardNth2beta1 + At22L*PDstandardNth2beta2 + At23L*PDstandardNth2beta3) - - At22L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) + betam1*PDupwindmNth1At22 + - betam2*PDupwindmNth2At22 + betam3*PDupwindmNth3At22 + betap1*PDupwindpNth1At22 + betap2*PDupwindpNth2At22 + - betap3*PDupwindpNth3At22 + alphaL*(-2*(At12L*Atm12 + At22L*Atm22 + At23L*Atm32) + At22L*trKL) + - (Ats22 - g22*kthird*trAts)*W2; - - At23rhsL = At13L*PDstandardNth2beta1 + At33L*PDstandardNth2beta3 + At12L*PDstandardNth3beta1 + - At22L*PDstandardNth3beta2 + At23L*(PDstandardNth2beta2 + PDstandardNth3beta3 - - ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)) + betam1*PDupwindmNth1At23 + - betam2*PDupwindmNth2At23 + betam3*PDupwindmNth3At23 + betap1*PDupwindpNth1At23 + betap2*PDupwindpNth2At23 + - betap3*PDupwindpNth3At23 + alphaL*(-2*(At12L*Atm13 + At22L*Atm23 + At23L*Atm33) + At23L*trKL) + - (Ats23 - g23*kthird*trAts)*W2; + R12 = Rphi12 + Rt12; - At33rhsL = -(At33L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)) + - 2*(At13L*PDstandardNth3beta1 + At23L*PDstandardNth3beta2 + At33L*PDstandardNth3beta3) + betam1*PDupwindmNth1At33 + - betam2*PDupwindmNth2At33 + betam3*PDupwindmNth3At33 + betap1*PDupwindpNth1At33 + betap2*PDupwindpNth2At33 + - betap3*PDupwindpNth3At33 + alphaL*(-2*(At13L*Atm13 + At23L*Atm23 + At33L*Atm33) + At33L*trKL) + - (Ats33 - g33*kthird*trAts)*W2; + R13 = Rphi13 + Rt13; - alpharhsL = LapseAdvectionCoeff*(betam1*PDupwindmNth1alpha + betam2*PDupwindmNth2alpha + betam3*PDupwindmNth3alpha + - betap1*PDupwindpNth1alpha + betap2*PDupwindpNth2alpha + betap3*PDupwindpNth3alpha) + - harmonicF*(AL*(-1 + LapseAdvectionCoeff) - LapseAdvectionCoeff*trKL)*pow(alphaL,harmonicN); + R23 = Rphi23 + Rt23; - ArhsL = (-1 + LapseAdvectionCoeff)*(AL*AlphaDriver - trKrhsL); + Ats11 = -PDstandardNth11alpha + G111*PDstandardNth1alpha + + G211*PDstandardNth2alpha + G311*PDstandardNth3alpha + alphaL*R11; - beta1rhsL = (betam1*PDupwindmNth1beta1 + betam2*PDupwindmNth2beta1 + betam3*PDupwindmNth3beta1 + - betap1*PDupwindpNth1beta1 + betap2*PDupwindpNth2beta1 + betap3*PDupwindpNth3beta1)*ShiftAdvectionCoeff + - B1L*ShiftGammaCoeff; + Ats22 = G122*PDstandardNth1alpha - PDstandardNth22alpha + + G222*PDstandardNth2alpha + G322*PDstandardNth3alpha + alphaL*R22; - beta2rhsL = (betam1*PDupwindmNth1beta2 + betam2*PDupwindmNth2beta2 + betam3*PDupwindmNth3beta2 + - betap1*PDupwindpNth1beta2 + betap2*PDupwindpNth2beta2 + betap3*PDupwindpNth3beta2)*ShiftAdvectionCoeff + - B2L*ShiftGammaCoeff; + Ats33 = G133*PDstandardNth1alpha + G233*PDstandardNth2alpha - + PDstandardNth33alpha + G333*PDstandardNth3alpha + alphaL*R33; - beta3rhsL = (betam1*PDupwindmNth1beta3 + betam2*PDupwindmNth2beta3 + betam3*PDupwindmNth3beta3 + - betap1*PDupwindpNth1beta3 + betap2*PDupwindpNth2beta3 + betap3*PDupwindpNth3beta3)*ShiftAdvectionCoeff + - B3L*ShiftGammaCoeff; + ArhsL = T1000175*(AL*AlphaDriver - trKrhsL); B1rhsL = -(B1L*BetaDriver) + (betam1*(PDupwindmNth1B1 - PDupwindmNth1Xt1) + - betam2*(PDupwindmNth2B1 - PDupwindmNth2Xt1) + betam3*(PDupwindmNth3B1 - PDupwindmNth3Xt1) + - betap1*(PDupwindpNth1B1 - PDupwindpNth1Xt1) + betap2*(PDupwindpNth2B1 - PDupwindpNth2Xt1) + - betap3*(PDupwindpNth3B1 - PDupwindpNth3Xt1))*ShiftAdvectionCoeff + Xt1rhsL; + betam2*(PDupwindmNth2B1 - PDupwindmNth2Xt1) + + betam3*(PDupwindmNth3B1 - PDupwindmNth3Xt1) + + betap1*(PDupwindpNth1B1 - PDupwindpNth1Xt1) + + betap2*(PDupwindpNth2B1 - PDupwindpNth2Xt1) + + betap3*(PDupwindpNth3B1 - PDupwindpNth3Xt1))*ShiftAdvectionCoeff + + Xt1rhsL; B2rhsL = -(B2L*BetaDriver) + (betam1*(PDupwindmNth1B2 - PDupwindmNth1Xt2) + - betam2*(PDupwindmNth2B2 - PDupwindmNth2Xt2) + betam3*(PDupwindmNth3B2 - PDupwindmNth3Xt2) + - betap1*(PDupwindpNth1B2 - PDupwindpNth1Xt2) + betap2*(PDupwindpNth2B2 - PDupwindpNth2Xt2) + - betap3*(PDupwindpNth3B2 - PDupwindpNth3Xt2))*ShiftAdvectionCoeff + Xt2rhsL; + betam2*(PDupwindmNth2B2 - PDupwindmNth2Xt2) + + betam3*(PDupwindmNth3B2 - PDupwindmNth3Xt2) + + betap1*(PDupwindpNth1B2 - PDupwindpNth1Xt2) + + betap2*(PDupwindpNth2B2 - PDupwindpNth2Xt2) + + betap3*(PDupwindpNth3B2 - PDupwindpNth3Xt2))*ShiftAdvectionCoeff + + Xt2rhsL; B3rhsL = -(B3L*BetaDriver) + (betam1*(PDupwindmNth1B3 - PDupwindmNth1Xt3) + - betam2*(PDupwindmNth2B3 - PDupwindmNth2Xt3) + betam3*(PDupwindmNth3B3 - PDupwindmNth3Xt3) + - betap1*(PDupwindpNth1B3 - PDupwindpNth1Xt3) + betap2*(PDupwindpNth2B3 - PDupwindpNth2Xt3) + - betap3*(PDupwindpNth3B3 - PDupwindpNth3Xt3))*ShiftAdvectionCoeff + Xt3rhsL; + betam2*(PDupwindmNth2B3 - PDupwindmNth2Xt3) + + betam3*(PDupwindmNth3B3 - PDupwindmNth3Xt3) + + betap1*(PDupwindpNth1B3 - PDupwindpNth1Xt3) + + betap2*(PDupwindpNth2B3 - PDupwindpNth2Xt3) + + betap3*(PDupwindpNth3B3 - PDupwindpNth3Xt3))*ShiftAdvectionCoeff + + Xt3rhsL; + + Ats12 = -PDstandardNth12alpha + G112*PDstandardNth1alpha + + G212*PDstandardNth2alpha + G312*PDstandardNth3alpha + alphaL*R12; + + Ats13 = -PDstandardNth13alpha + G113*PDstandardNth1alpha + + G213*PDstandardNth2alpha + G313*PDstandardNth3alpha + alphaL*R13; + + Ats23 = G123*PDstandardNth1alpha - PDstandardNth23alpha + + G223*PDstandardNth2alpha + G323*PDstandardNth3alpha + alphaL*R23; + + trAts = Ats11*gu11 + Ats22*gu22 + 2*(Ats12*gu21 + Ats13*gu31 + Ats23*gu32) + + Ats33*gu33; + + At11rhsL = 2*(At11L*PDstandardNth1beta1 + At12L*PDstandardNth1beta2 + + At13L*PDstandardNth1beta3) + betam1*PDupwindmNth1At11 + + betam2*PDupwindmNth2At11 + betam3*PDupwindmNth3At11 + + betap1*PDupwindpNth1At11 + betap2*PDupwindpNth2At11 + + betap3*PDupwindpNth3At11 - At11L*ktwothird*T1000171 + + alphaL*(-2*(At11L*Atm11 + At12L*Atm21 + At13L*Atm31) + At11L*trKL) + + (Ats11 - g11*kthird*trAts)*W2; + + At12rhsL = At22L*PDstandardNth1beta2 + At23L*PDstandardNth1beta3 + + At11L*PDstandardNth2beta1 + At13L*PDstandardNth2beta3 + + betam1*PDupwindmNth1At12 + betam2*PDupwindmNth2At12 + + betam3*PDupwindmNth3At12 + betap1*PDupwindpNth1At12 + + betap2*PDupwindpNth2At12 + betap3*PDupwindpNth3At12 + + At12L*(PDstandardNth1beta1 + PDstandardNth2beta2 - ktwothird*T1000171) + + alphaL*(-2*(At11L*Atm12 + At12L*Atm22 + At13L*Atm32) + At12L*trKL) + + (Ats12 - g12*kthird*trAts)*W2; + + At13rhsL = At23L*PDstandardNth1beta2 + At33L*PDstandardNth1beta3 + + At11L*PDstandardNth3beta1 + At12L*PDstandardNth3beta2 + + betam1*PDupwindmNth1At13 + betam2*PDupwindmNth2At13 + + betam3*PDupwindmNth3At13 + betap1*PDupwindpNth1At13 + + betap2*PDupwindpNth2At13 + betap3*PDupwindpNth3At13 + + At13L*(PDstandardNth1beta1 + PDstandardNth3beta3 - ktwothird*T1000171) + + alphaL*(-2*(At11L*Atm13 + At12L*Atm23 + At13L*Atm33) + At13L*trKL) + + (Ats13 - g13*kthird*trAts)*W2; + + At22rhsL = 2*(At12L*PDstandardNth2beta1 + At22L*PDstandardNth2beta2 + + At23L*PDstandardNth2beta3) + betam1*PDupwindmNth1At22 + + betam2*PDupwindmNth2At22 + betam3*PDupwindmNth3At22 + + betap1*PDupwindpNth1At22 + betap2*PDupwindpNth2At22 + + betap3*PDupwindpNth3At22 - At22L*ktwothird*T1000171 + + alphaL*(-2*(At12L*Atm12 + At22L*Atm22 + At23L*Atm32) + At22L*trKL) + + (Ats22 - g22*kthird*trAts)*W2; + + At23rhsL = At13L*PDstandardNth2beta1 + At33L*PDstandardNth2beta3 + + At12L*PDstandardNth3beta1 + At22L*PDstandardNth3beta2 + + betam1*PDupwindmNth1At23 + betam2*PDupwindmNth2At23 + + betam3*PDupwindmNth3At23 + betap1*PDupwindpNth1At23 + + betap2*PDupwindpNth2At23 + betap3*PDupwindpNth3At23 + + At23L*(PDstandardNth2beta2 + PDstandardNth3beta3 - ktwothird*T1000171) + + alphaL*(-2*(At12L*Atm13 + At22L*Atm23 + At23L*Atm33) + At23L*trKL) + + (Ats23 - g23*kthird*trAts)*W2; + + At33rhsL = 2*(At13L*PDstandardNth3beta1 + At23L*PDstandardNth3beta2 + + At33L*PDstandardNth3beta3) + betam1*PDupwindmNth1At33 + + betam2*PDupwindmNth2At33 + betam3*PDupwindmNth3At33 + + betap1*PDupwindpNth1At33 + betap2*PDupwindpNth2At33 + + betap3*PDupwindpNth3At33 - At33L*ktwothird*T1000171 + + alphaL*(-2*(At13L*Atm13 + At23L*Atm23 + At33L*Atm33) + At33L*trKL) + + (Ats33 - g33*kthird*trAts)*W2; /* Copy local copies back to grid functions */ @@ -1433,8 +1956,8 @@ void ML_BSSNW_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL norma void ML_BSSNW_RHS(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSNW_RHS_Body); } diff --git a/ML_BSSNW/src/ML_BSSNW_boundary.c b/ML_BSSNW/src/ML_BSSNW_boundary.c index 1f45b58..650ce5e 100644 --- a/ML_BSSNW/src/ML_BSSNW_boundary.c +++ b/ML_BSSNW/src/ML_BSSNW_boundary.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_boundary_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_boundary_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_boundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -212,8 +215,8 @@ void ML_BSSNW_boundary_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL void ML_BSSNW_boundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_BSSNW_boundary_Body); } diff --git a/ML_BSSNW/src/ML_BSSNW_constraints.c b/ML_BSSNW/src/ML_BSSNW_constraints.c index 02481de..9672625 100644 --- a/ML_BSSNW/src/ML_BSSNW_constraints.c +++ b/ML_BSSNW/src/ML_BSSNW_constraints.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_RE pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_constraints, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -158,10 +161,7 @@ void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_RE CCTK_REAL PDstandardNth33gt11 = INITVALUE; CCTK_REAL PDstandardNth12gt11 = INITVALUE; CCTK_REAL PDstandardNth13gt11 = INITVALUE; - CCTK_REAL PDstandardNth21gt11 = INITVALUE; CCTK_REAL PDstandardNth23gt11 = INITVALUE; - CCTK_REAL PDstandardNth31gt11 = INITVALUE; - CCTK_REAL PDstandardNth32gt11 = INITVALUE; CCTK_REAL PDstandardNth1gt12 = INITVALUE; CCTK_REAL PDstandardNth2gt12 = INITVALUE; CCTK_REAL PDstandardNth3gt12 = INITVALUE; @@ -170,10 +170,7 @@ void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_RE CCTK_REAL PDstandardNth33gt12 = INITVALUE; CCTK_REAL PDstandardNth12gt12 = INITVALUE; CCTK_REAL PDstandardNth13gt12 = INITVALUE; - CCTK_REAL PDstandardNth21gt12 = INITVALUE; CCTK_REAL PDstandardNth23gt12 = INITVALUE; - CCTK_REAL PDstandardNth31gt12 = INITVALUE; - CCTK_REAL PDstandardNth32gt12 = INITVALUE; CCTK_REAL PDstandardNth1gt13 = INITVALUE; CCTK_REAL PDstandardNth2gt13 = INITVALUE; CCTK_REAL PDstandardNth3gt13 = INITVALUE; @@ -182,10 +179,7 @@ void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_RE CCTK_REAL PDstandardNth33gt13 = INITVALUE; CCTK_REAL PDstandardNth12gt13 = INITVALUE; CCTK_REAL PDstandardNth13gt13 = INITVALUE; - CCTK_REAL PDstandardNth21gt13 = INITVALUE; CCTK_REAL PDstandardNth23gt13 = INITVALUE; - CCTK_REAL PDstandardNth31gt13 = INITVALUE; - CCTK_REAL PDstandardNth32gt13 = INITVALUE; CCTK_REAL PDstandardNth1gt22 = INITVALUE; CCTK_REAL PDstandardNth2gt22 = INITVALUE; CCTK_REAL PDstandardNth3gt22 = INITVALUE; @@ -194,10 +188,7 @@ void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_RE CCTK_REAL PDstandardNth33gt22 = INITVALUE; CCTK_REAL PDstandardNth12gt22 = INITVALUE; CCTK_REAL PDstandardNth13gt22 = INITVALUE; - CCTK_REAL PDstandardNth21gt22 = INITVALUE; CCTK_REAL PDstandardNth23gt22 = INITVALUE; - CCTK_REAL PDstandardNth31gt22 = INITVALUE; - CCTK_REAL PDstandardNth32gt22 = INITVALUE; CCTK_REAL PDstandardNth1gt23 = INITVALUE; CCTK_REAL PDstandardNth2gt23 = INITVALUE; CCTK_REAL PDstandardNth3gt23 = INITVALUE; @@ -206,10 +197,7 @@ void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_RE CCTK_REAL PDstandardNth33gt23 = INITVALUE; CCTK_REAL PDstandardNth12gt23 = INITVALUE; CCTK_REAL PDstandardNth13gt23 = INITVALUE; - CCTK_REAL PDstandardNth21gt23 = INITVALUE; CCTK_REAL PDstandardNth23gt23 = INITVALUE; - CCTK_REAL PDstandardNth31gt23 = INITVALUE; - CCTK_REAL PDstandardNth32gt23 = INITVALUE; CCTK_REAL PDstandardNth1gt33 = INITVALUE; CCTK_REAL PDstandardNth2gt33 = INITVALUE; CCTK_REAL PDstandardNth3gt33 = INITVALUE; @@ -218,10 +206,7 @@ void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_RE CCTK_REAL PDstandardNth33gt33 = INITVALUE; CCTK_REAL PDstandardNth12gt33 = INITVALUE; CCTK_REAL PDstandardNth13gt33 = INITVALUE; - CCTK_REAL PDstandardNth21gt33 = INITVALUE; CCTK_REAL PDstandardNth23gt33 = INITVALUE; - CCTK_REAL PDstandardNth31gt33 = INITVALUE; - CCTK_REAL PDstandardNth32gt33 = INITVALUE; CCTK_REAL PDstandardNth1trK = INITVALUE; CCTK_REAL PDstandardNth2trK = INITVALUE; CCTK_REAL PDstandardNth3trK = INITVALUE; @@ -365,467 +350,931 @@ void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_RE /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ + CCTK_REAL const T1000002 = -PDstandardNth3gt12; + + CCTK_REAL const T1000004 = -PDstandardNth2gt13; + + CCTK_REAL const T1000006 = -PDstandardNth1gt23; + detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + invW = INV(WL); + + W2 = SQR(WL); + + CCTK_REAL const T1000001 = INV(detgt); + + CCTK_REAL const T1000003 = PDstandardNth1gt23 + PDstandardNth2gt13 + T1000002; + + CCTK_REAL const T1000005 = PDstandardNth1gt23 + PDstandardNth3gt12 + T1000004; + + CCTK_REAL const T1000007 = PDstandardNth2gt13 + PDstandardNth3gt12 + T1000006; + + CCTK_REAL const T1000146 = invW*PDstandardNth3W; + + pdphi1 = -(invW*khalf*PDstandardNth1W); + + pdphi2 = -(invW*khalf*PDstandardNth2W); + + pdphi3 = -(invW*khalf*PDstandardNth3W); + + cSL = Log(detgt); + + CCTK_REAL const T1000147 = SQR(pdphi1); + + CCTK_REAL const T1000148 = SQR(pdphi2); + + CCTK_REAL const T1000149 = SQR(pdphi3); + + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); + + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; + + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; + + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); + + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; + + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + CCTK_REAL const T1000150 = At12L*gtu21; - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + CCTK_REAL const T1000151 = At13L*gtu31; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + CCTK_REAL const T1000152 = At23L*gtu32; - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + CCTK_REAL const T1000153 = At11L*gtu11; - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + CCTK_REAL const T1000154 = At22L*gtu22; - Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - + CCTK_REAL const T1000155 = At33L*gtu33; + + Gt111 = khalf*(gtu11*PDstandardNth1gt11 + + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - gtu21*PDstandardNth2gt11 - gtu31*PDstandardNth3gt11); - Gt211 = khalf*(gtu21*PDstandardNth1gt11 + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - + Gt211 = khalf*(gtu21*PDstandardNth1gt11 + + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - gtu22*PDstandardNth2gt11 - gtu32*PDstandardNth3gt11); - Gt311 = khalf*(gtu31*PDstandardNth1gt11 + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - + Gt311 = khalf*(gtu31*PDstandardNth1gt11 + + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu31*T1000003); Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu32*T1000003); Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu33*T1000003); Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu21*T1000005); Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu22*T1000005); Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu32*T1000005); - Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + + Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + + gtu21*PDstandardNth2gt22 + gtu31*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu22*PDstandardNth2gt22 + + Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + + gtu22*PDstandardNth2gt22 + gtu32*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu32*PDstandardNth2gt22 + + Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + + gtu32*PDstandardNth2gt22 + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu21*PDstandardNth3gt22 + + gtu11*T1000007); - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu22*PDstandardNth3gt22 + + gtu21*T1000007); - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu32*PDstandardNth3gt22 + + gtu31*T1000007); - Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + - 2*gtu21*PDstandardNth3gt23 + gtu31*PDstandardNth3gt33); + Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + + 2*gtu11*PDstandardNth3gt13 + 2*gtu21*PDstandardNth3gt23 + + gtu31*PDstandardNth3gt33); - Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + 2*gtu21*PDstandardNth3gt13 + - 2*gtu22*PDstandardNth3gt23 + gtu32*PDstandardNth3gt33); + Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + + 2*gtu21*PDstandardNth3gt13 + 2*gtu22*PDstandardNth3gt23 + + gtu32*PDstandardNth3gt33); - Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + 2*gtu31*PDstandardNth3gt13 + - 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); + Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + + 2*gtu31*PDstandardNth3gt13 + 2*gtu32*PDstandardNth3gt23 + + gtu33*PDstandardNth3gt33); - Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + gtu21* - (2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + - 2*gt13L*Gt311*Gt323 + 2*Gt311*Gt312*gt33L - PDstandardNth12gt11) - gtu31*PDstandardNth13gt11 + - gt11L*PDstandardNth1Xt1 + gt12L*(4*Gt111*Gt212*gtu21 + 2*Gt211*Gt222*gtu21 + 2*Gt212*Gt222*gtu22 + - 4*Gt113*Gt211*gtu31 + 4*Gt113*Gt212*gtu32 + 4*Gt113*Gt213*gtu33 + PDstandardNth1Xt2) + - gt13L*(4*Gt111*Gt312*gtu21 + 2*Gt212*Gt312*gtu21 + 4*Gt112*Gt312*gtu22 + 4*Gt113*Gt311*gtu31 + - 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - - gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + - Gt111*(6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xt1L) + - Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + 2*gt11L*Gt123*gtu31 + gt12L*Xt1L) + - Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + 2*gt11L*Gt123*gtu21 + - 2*gt11L*Gt133*gtu31 + gt13L*Xt1L) + gt12L*Gt212*Xt2L + gt13L*Gt312*Xt2L + - Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + 2*gt11L*Gt213*gtu31 + - 6*Gt113*gt11L*gtu32 + gt11L*Xt2L) + Gt113*gt11L*Xt3L + - Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + 2*gt11L*Gt123*gtu33 + gt12L*Xt3L) + - Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + 4*Gt112*gt13L*gtu32 + - 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + gt13L*Xt3L) + 3*gt11L*gtu11*SQR(Gt111) + 3*gt11L*gtu22*SQR(Gt112) + - 3*gt11L*gtu33*SQR(Gt113) + gt22L*gtu11*SQR(Gt211) + gt22L*gtu22*SQR(Gt212) + - 2*(gt12L*Gt211*Gt212*gtu11 + Gt113*gt11L*Gt311*gtu11 + Gt211*gt23L*Gt311*gtu11 + gt13L*Gt211*Gt312*gtu11 + - Gt112*gt11L*Gt212*gtu21 + gt12L*Gt223*Gt311*gtu21 + Gt212*gt23L*Gt311*gtu21 + gt12L*Gt213*Gt312*gtu21 + - Gt211*gt23L*Gt312*gtu21 + gt11L*Gt122*Gt212*gtu22 + gt11L*Gt123*Gt312*gtu22 + gt12L*Gt223*Gt312*gtu22 + - Gt212*gt23L*Gt312*gtu22 + gt13L*Gt212*Gt322*gtu22 + gt13L*Gt312*Gt323*gtu22 + gt12L*Gt212*Gt213*gtu31 + - gt12L*Gt211*Gt223*gtu31 + Gt211*Gt213*gt22L*gtu31 + gt12L*Gt233*Gt311*gtu31 + Gt213*gt23L*Gt311*gtu31 + - gt13L*Gt213*Gt312*gtu31 + Gt113*gt11L*Gt313*gtu31 + Gt211*gt23L*Gt313*gtu31 + gt13L*Gt211*Gt323*gtu31 + - gt13L*Gt311*Gt333*gtu31 + Gt311*Gt313*gt33L*gtu31 + gt11L*Gt123*Gt212*gtu32 + gt12L*Gt213*Gt222*gtu32 + - gt12L*Gt212*Gt223*gtu32 + Gt212*Gt213*gt22L*gtu32 + gt11L*Gt133*Gt312*gtu32 + gt12L*Gt233*Gt312*gtu32 + - Gt213*gt23L*Gt312*gtu32 + Gt212*gt23L*Gt313*gtu32 + gt13L*Gt213*Gt322*gtu32 + gt13L*Gt212*Gt323*gtu32 + - gt13L*Gt313*Gt323*gtu32 + gt13L*Gt312*Gt333*gtu32 + Gt312*Gt313*gt33L*gtu32 + gt12L*Gt213*Gt223*gtu33 + - gt12L*Gt233*Gt313*gtu33 + Gt213*gt23L*Gt313*gtu33 + gt13L*Gt213*Gt323*gtu33 + gt13L*Gt313*Gt333*gtu33 + - gt12L*gtu21*SQR(Gt212)) + gt22L*gtu33*SQR(Gt213) + gt33L*gtu11*SQR(Gt311) + gt33L*gtu22*SQR(Gt312) + - 2*gt13L*gtu31*SQR(Gt313) + gt33L*gtu33*SQR(Gt313); - - Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - 2*gtu31*PDstandardNth13gt12 + - gt12L*PDstandardNth1Xt1 + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt12 - - 2*gtu32*PDstandardNth23gt12 + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3 - - gtu33*PDstandardNth33gt12 + (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xt1L + - (Gt112*gt11L + gt12L*Gt212 + gt13L*Gt312)*Xt1L + (Gt112*gt12L + Gt212*gt22L + gt23L*Gt312)*Xt2L + - (gt11L*Gt122 + gt12L*Gt222 + gt13L*Gt322)*Xt2L + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt3L + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt3L + - 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + Gt211*Gt222*gt22L + 2*Gt122*gt13L*Gt311 + Gt112*gt23L*Gt311 + - Gt222*gt23L*Gt311 + gt13L*Gt222*Gt312 + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + gt23L*Gt312*Gt313 + - Gt113*gt11L*Gt322 + Gt211*gt23L*Gt322 + gt13L*Gt313*Gt322 + - Gt111*(2*gt11L*Gt122 + Gt112*gt12L + gt12L*Gt222 + gt13L*Gt322) + - gt12L*(2*Gt122*Gt211 + Gt112*Gt212 + Gt212*Gt222 + Gt113*Gt312 + Gt213*Gt322) + Gt311*Gt322*gt33L + - gt22L*SQR(Gt212)) + 2*((Gt123*gt12L*Gt211 + Gt113*gt12L*Gt212 + 2*Gt112*gt12L*Gt213 + gt12L*Gt212*Gt223 + - Gt212*Gt213*gt22L + Gt211*Gt223*gt22L + gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + Gt113*gt13L*Gt312 + - gt12L*Gt233*Gt312 + Gt213*gt23L*Gt312 + gt11L*(2*Gt112*Gt113 + Gt123*Gt212 + Gt133*Gt312) + - 2*Gt112*gt13L*Gt313 + Gt212*gt23L*Gt313 + Gt111*(Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + - gt13L*Gt212*Gt323 + Gt211*gt23L*Gt323 + gt23L*Gt311*Gt333 + gt13L*Gt312*Gt333 + Gt312*Gt313*gt33L)*gtu31 + - (Gt123*gt12L*Gt212 + 2*Gt122*gt12L*Gt213 + Gt113*gt12L*Gt222 + gt12L*Gt222*Gt223 + Gt213*Gt222*gt22L + - Gt212*Gt223*gt22L + gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + Gt222*gt23L*Gt313 + - Gt112*(Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + Gt113*gt13L*Gt322 + gt12L*Gt233*Gt322 + - Gt213*gt23L*Gt322 + gt11L*(2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + gt13L*Gt222*Gt323 + - Gt212*gt23L*Gt323 + gt23L*Gt312*Gt333 + gt13L*Gt322*Gt333 + Gt313*Gt322*gt33L)*gtu32 + - gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + 2*Gt112*gt13L*Gt311 + - Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + - gt11L*(2*Gt111*Gt112 + Gt112*Gt212 + Gt113*Gt312) + - Gt111*(gt12L*Gt212 + Gt211*gt22L + gt23L*Gt311 + gt13L*Gt312) + gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + - Gt311*Gt312*gt33L + gt12L*SQR(Gt111) + gt12L*SQR(Gt212))) + - 2*gtu22*(gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + - gt11L*Gt123*Gt322 + gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + - Gt112*(2*gt11L*Gt122 + gt12L*Gt222 + Gt212*gt22L + gt23L*Gt312 + gt13L*Gt322) + gt23L*Gt312*Gt323 + - gt13L*Gt322*Gt323 + Gt312*Gt322*gt33L + gt12L*SQR(Gt112) + - gt12L*(3*Gt122*Gt212 + Gt123*Gt312 + Gt223*Gt322 + SQR(Gt222))) + - 2*gtu33*(gt11L*Gt123*Gt223 + 2*Gt213*Gt223*gt22L + 2*Gt123*gt13L*Gt313 + gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + - gt11L*Gt133*Gt323 + gt13L*Gt223*Gt323 + 2*Gt213*gt23L*Gt323 + - Gt113*(2*gt11L*Gt123 + gt12L*Gt223 + Gt213*gt22L + gt23L*Gt313 + gt13L*Gt323) + gt23L*Gt313*Gt333 + - gt13L*Gt323*Gt333 + Gt313*Gt323*gt33L + gt12L*SQR(Gt113) + - gt12L*(3*Gt123*Gt213 + Gt133*Gt313 + Gt233*Gt323 + SQR(Gt223))) + - 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + Gt211*Gt222*gt22L + Gt123*gt12L*Gt311 + - Gt223*gt22L*Gt311 + 3*Gt112*gt13L*Gt312 + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + - Gt111*(Gt112*gt12L + Gt212*gt22L + gt23L*Gt312) + gt13L*Gt212*Gt322 + Gt211*gt23L*Gt322 + gt23L*Gt311*Gt323 + - gt13L*Gt312*Gt323 + gt11L*(Gt122*Gt212 + Gt123*Gt312 + 2*SQR(Gt112)) + gt22L*SQR(Gt212) + gt33L*SQR(Gt312)) + - 2*gtu31*(Gt112*gt11L*Gt223 + Gt113*Gt211*gt22L + Gt212*Gt213*gt22L + Gt211*Gt223*gt22L + 2*Gt123*gt13L*Gt311 + - Gt113*gt23L*Gt311 + Gt223*gt23L*Gt311 + gt13L*Gt223*Gt312 + Gt213*gt23L*Gt312 + Gt213*gt22L*Gt313 + - Gt113*gt11L*Gt323 + Gt211*gt23L*Gt323 + gt13L*Gt313*Gt323 + - Gt111*(2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(2*Gt123*Gt211 + Gt112*Gt213 + Gt212*Gt223 + Gt113*Gt313 + Gt213*Gt323) + Gt311*Gt323*gt33L + - gt23L*SQR(Gt313)) + 2*gtu32*(gt11L*Gt122*Gt223 + Gt113*Gt212*gt22L + Gt213*Gt222*gt22L + Gt212*Gt223*gt22L + - 2*Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + Gt223*gt23L*Gt312 + Gt223*gt22L*Gt313 + gt13L*Gt223*Gt322 + - Gt213*gt23L*Gt322 + gt11L*Gt123*Gt323 + Gt212*gt23L*Gt323 + gt23L*Gt313*Gt323 + - Gt112*(2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(Gt122*Gt213 + Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323)) + Gt312*Gt323*gt33L + gt13L*SQR(Gt323))); - - Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - 2*gtu31*PDstandardNth13gt13 + - gt13L*PDstandardNth1Xt1 + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt13 - - 2*gtu32*PDstandardNth23gt13 - gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + - gt13L*PDstandardNth3Xt3 + (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xt1L + - (Gt111*gt13L + Gt211*gt23L + Gt311*gt33L)*Xt1L + (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt2L + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt2L + (gt11L*Gt133 + gt12L*Gt233 + gt13L*Gt333)*Xt3L + - (Gt113*gt13L + Gt213*gt23L + Gt313*gt33L)*Xt3L + - 2*((Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + gt12L*Gt213*Gt222 + Gt212*Gt213*gt22L + - Gt211*Gt222*gt23L + Gt123*gt13L*Gt311 + Gt223*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + Gt213*gt23L*Gt312 + - Gt112*gt13L*Gt313 + gt12L*Gt223*Gt313 + Gt212*gt23L*Gt313 + - gt11L*(2*Gt112*Gt113 + Gt122*Gt213 + Gt123*Gt313) + gt13L*Gt213*Gt322 + gt13L*Gt313*Gt323 + - Gt312*Gt313*gt33L + Gt211*Gt322*gt33L + Gt311*Gt323*gt33L + Gt111*(Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)) - *gtu21 + (Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + Gt212*gt22L*Gt233 + Gt113*Gt212*gt23L + - Gt213*Gt222*gt23L + 2*Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + Gt123*gt13L*Gt313 + Gt223*gt23L*Gt313 + - gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + Gt212*gt23L*Gt333 + gt13L*Gt323*Gt333 + - Gt112*(2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + - Gt313*Gt323*gt33L + Gt312*Gt333*gt33L)*gtu32 + - gtu21*(2*Gt123*gt12L*Gt211 + Gt112*gt13L*Gt212 + gt12L*Gt212*Gt223 + Gt211*Gt223*gt22L + Gt112*Gt211*gt23L + - 2*Gt123*gt13L*Gt311 + Gt223*gt23L*Gt311 + Gt113*gt13L*Gt312 + gt13L*Gt223*Gt312 + Gt213*gt23L*Gt312 + - gt12L*Gt213*Gt323 + Gt211*gt23L*Gt323 + gt13L*Gt313*Gt323 + - gt11L*(2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + Gt111*(Gt112*gt13L + gt12L*Gt223 + gt13L*Gt323) + - Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + Gt312*Gt313*gt33L + Gt311*Gt323*gt33L + gt23L*SQR(Gt212))) + - 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + Gt213*Gt223*gt22L + Gt212*Gt223*gt23L + - Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + 2*Gt123*gt13L*Gt313 + Gt223*gt23L*Gt313 + Gt113*gt13L*Gt323 + - gt13L*Gt223*Gt323 + gt12L*Gt233*Gt323 + Gt213*gt23L*Gt323 + - gt11L*(2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + gt13L*Gt323*Gt333 + Gt212*Gt323*gt33L + - Gt313*Gt323*gt33L + Gt312*Gt333*gt33L + Gt112*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + gt12L*SQR(Gt223)) + - 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + - 3*Gt113*gt13L*Gt311 + 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + Gt211*gt23L*Gt313 + - gt11L*(2*Gt111*Gt113 + Gt112*Gt213 + Gt113*Gt313) + Gt211*Gt312*gt33L + 2*Gt311*Gt313*gt33L + - Gt111*(gt12L*Gt213 + Gt211*gt23L + gt13L*Gt313 + Gt311*gt33L) + gt13L*SQR(Gt111) + gt13L*SQR(Gt313)) + - 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + - 2*Gt133*gt13L*Gt311 + Gt233*gt23L*Gt311 + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + Gt213*gt23L*Gt313 + - Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + gt13L*Gt313*Gt333 + - Gt111*(2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + - Gt311*Gt333*gt33L + gt33L*SQR(Gt313)) + - 2*gtu31*(Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + - Gt233*gt23L*Gt311 + 3*Gt113*gt13L*Gt313 + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + gt13L*Gt213*Gt323 + - gt13L*Gt313*Gt333 + Gt211*Gt323*gt33L + Gt311*Gt333*gt33L + Gt111*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + - gt11L*(Gt123*Gt213 + Gt133*Gt313 + 2*SQR(Gt113)) + gt22L*SQR(Gt213) + gt33L*SQR(Gt313)) + - 2*gtu22*(2*Gt123*gt12L*Gt212 + Gt122*gt13L*Gt212 + gt12L*Gt222*Gt223 + Gt212*Gt223*gt22L + Gt212*Gt222*gt23L + - 3*Gt123*gt13L*Gt312 + 2*Gt223*gt23L*Gt312 + gt13L*Gt223*Gt322 + gt12L*Gt223*Gt323 + Gt212*gt23L*Gt323 + - gt11L*(2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + Gt212*Gt322*gt33L + 2*Gt312*Gt323*gt33L + - Gt112*(gt12L*Gt223 + Gt212*gt23L + gt13L*Gt323 + Gt312*gt33L) + gt13L*SQR(Gt112) + gt13L*SQR(Gt323)) + - 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + - Gt213*Gt223*gt23L + 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + gt11L*Gt133*Gt333 + - gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + - Gt113*(2*gt11L*Gt133 + gt12L*Gt233 + Gt213*gt23L + gt13L*Gt333 + Gt313*gt33L) + gt13L*SQR(Gt113) + - gt13L*SQR(Gt333))); - - Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + - Gt123*gt12L*Gt222*gtu32 + Gt123*gt12L*Gt223*gtu33) - gtu11*khalf*PDstandardNth11gt22 + - gtu21*(6*Gt212*Gt222*gt22L + 2*Gt122*gt23L*Gt311 + 2*Gt122*gt13L*Gt312 + 4*Gt222*gt23L*Gt312 + - 2*Gt113*gt12L*Gt322 + 2*gt23L*Gt312*Gt323 + 2*Gt312*Gt322*gt33L - PDstandardNth12gt22) + - gtu31*(6*Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + 2*Gt112*gt23L*Gt313 + 2*Gt113*gt12L*Gt323 + - 2*gt23L*Gt312*Gt333 + 2*Gt312*Gt323*gt33L - PDstandardNth13gt22) - gtu22*khalf*PDstandardNth22gt22 + - gtu32*(4*Gt122*gt12L*Gt223 + 2*Gt123*Gt212*gt22L + 2*gt12L*Gt133*Gt322 + 4*Gt223*gt23L*Gt322 + - 2*Gt123*gt12L*Gt323 + 4*Gt222*gt23L*Gt323 + 2*gt23L*Gt322*Gt333 + 2*Gt322*Gt323*gt33L - PDstandardNth23gt22) + - gt12L*(2*Gt111*Gt123*gtu31 + 4*Gt112*Gt223*gtu31 + 2*Gt113*Gt122*gtu32 + 2*Gt113*Gt123*gtu33 + PDstandardNth2Xt1) + - gt22L*(2*Gt122*Gt213*gtu32 + 6*Gt222*Gt223*gtu32 + 2*Gt123*Gt213*gtu33 + PDstandardNth2Xt2) + - gt23L*(4*Gt212*Gt322*gtu21 + 2*Gt313*Gt322*gtu21 + 4*Gt222*Gt322*gtu22 + 2*Gt123*Gt311*gtu31 + - 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + - 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - gtu33*khalf*PDstandardNth33gt22 + Gt212*gt22L*Xt1L + - Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + - 2*gt11L*Gt123*gtu31 + 2*Gt123*gt12L*gtu32 + gt12L*Xt1L) + - Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + 2*Gt123*gt12L*gtu21 + - 2*Gt122*gt23L*gtu22 + 2*gt12L*Gt133*gtu31 + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + - gt23L*Xt1L) + Gt122*gt12L*Xt2L + Gt222*gt22L*Xt2L + gt23L*Gt322*Xt2L + Gt123*gt12L*Xt3L + Gt223*gt22L*Xt3L + - gt23L*Gt323*Xt3L + gt11L*gtu11*SQR(Gt112) + 2* - (Gt112*Gt211*gt22L*gtu11 + Gt112*gt23L*Gt311*gtu11 + Gt113*gt12L*Gt312*gtu11 + Gt112*gt13L*Gt312*gtu11 + - Gt111*Gt122*gt12L*gtu21 + Gt122*Gt211*gt22L*gtu21 + Gt112*Gt212*gt22L*gtu21 + Gt223*gt22L*Gt312*gtu21 + - Gt112*gt23L*Gt312*gtu21 + Gt112*gt13L*Gt322*gtu21 + Gt213*gt22L*Gt322*gtu21 + Gt122*Gt212*gt22L*gtu22 + - Gt123*gt12L*Gt322*gtu22 + Gt122*gt13L*Gt322*gtu22 + Gt223*gt22L*Gt322*gtu22 + gt23L*Gt322*Gt323*gtu22 + - Gt112*Gt113*gt12L*gtu31 + Gt123*Gt211*gt22L*gtu31 + Gt112*Gt213*gt22L*gtu31 + Gt112*gt13L*Gt323*gtu31 + - Gt213*gt22L*Gt323*gtu31 + gt11L*Gt122*Gt123*gtu32 + Gt123*gt13L*Gt322*gtu32 + gt22L*Gt233*Gt322*gtu32 + - Gt122*gt13L*Gt323*gtu32 + Gt223*gt22L*Gt323*gtu32 + gt12L*Gt133*Gt323*gtu33 + Gt123*gt13L*Gt323*gtu33 + - gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*SQR(Gt112)) + gt11L*gtu22*SQR(Gt122) + gt11L*gtu33*SQR(Gt123) + - 3*gt22L*gtu11*SQR(Gt212) + 3*gt22L*gtu22*SQR(Gt222) + 3*gt22L*gtu33*SQR(Gt223) + gt33L*gtu11*SQR(Gt312) + - gt33L*gtu22*SQR(Gt322) + 2*gt23L*gtu32*SQR(Gt323) + gt33L*gtu33*SQR(Gt323); - - Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - 2*gtu31*PDstandardNth13gt23 - - gtu22*PDstandardNth22gt23 - 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + gt23L*PDstandardNth2Xt2 + - gt33L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + - gt23L*PDstandardNth3Xt3 + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt1L + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt1L + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xt2L + - (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xt2L + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xt3L + - (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xt3L + - 2*((Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + Gt123*gt12L*Gt212 + Gt112*gt13L*Gt222 + - 2*Gt112*gt12L*Gt223 + Gt123*Gt211*gt22L + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + Gt212*Gt222*gt23L + - Gt123*gt23L*Gt311 + Gt123*gt13L*Gt312 + 2*Gt223*gt23L*Gt312 + Gt113*gt13L*Gt322 + Gt213*gt23L*Gt322 + - Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + Gt212*gt23L*Gt323 + gt23L*Gt313*Gt323 + - Gt122*Gt311*gt33L + Gt222*Gt312*gt33L + Gt313*Gt322*gt33L + Gt312*Gt323*gt33L)*gtu21 + - (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + - Gt133*Gt211*gt22L + 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + Gt212*Gt223*gt23L + - Gt133*gt23L*Gt311 + Gt133*gt13L*Gt312 + 2*Gt233*gt23L*Gt312 + Gt113*gt13L*Gt323 + Gt213*gt23L*Gt323 + - Gt113*gt12L*Gt333 + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + Gt212*gt23L*Gt333 + gt23L*Gt313*Gt333 + - Gt123*Gt311*gt33L + Gt223*Gt312*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L)*gtu31 + - gtu21*(Gt113*gt11L*Gt122 + Gt122*gt13L*Gt212 + 2*Gt122*gt12L*Gt213 + Gt113*gt12L*Gt222 + Gt113*Gt212*gt22L + - 2*Gt213*Gt222*gt22L + Gt212*Gt222*gt23L + Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + Gt223*gt23L*Gt312 + - Gt123*gt12L*Gt313 + Gt122*gt13L*Gt313 + Gt223*gt22L*Gt313 + Gt222*gt23L*Gt313 + Gt113*gt13L*Gt322 + - 2*Gt213*gt23L*Gt322 + gt23L*Gt313*Gt323 + Gt212*Gt322*gt33L + Gt313*Gt322*gt33L + Gt312*Gt323*gt33L + - Gt112*(Gt113*gt12L + Gt212*gt23L + Gt312*gt33L) + gt13L*SQR(Gt112))) + - 2*gtu31*(2*Gt213*Gt223*gt22L + Gt112*Gt213*gt23L + Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + - gt12L*Gt133*Gt313 + gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + - 2*Gt213*gt23L*Gt323 + Gt113*(gt11L*Gt123 + Gt112*gt13L + gt12L*Gt223 + Gt213*gt22L + gt23L*Gt313 + - gt13L*Gt323) + gt23L*Gt313*Gt333 + Gt112*Gt313*gt33L + Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L + gt12L*SQR(Gt113)) + - 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + Gt113*gt12L*Gt212 + Gt112*gt13L*Gt212 + - 2*Gt112*gt12L*Gt213 + Gt113*Gt211*gt22L + 2*Gt212*Gt213*gt22L + Gt112*Gt211*gt23L + Gt113*gt23L*Gt311 + - 2*Gt113*gt13L*Gt312 + 3*Gt213*gt23L*Gt312 + Gt113*gt12L*Gt313 + Gt112*gt13L*Gt313 + Gt213*gt22L*Gt313 + - Gt212*gt23L*Gt313 + Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + 2*Gt312*Gt313*gt33L + gt23L*SQR(Gt212) + - gt23L*SQR(Gt313)) + 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + Gt123*gt12L*Gt222 + - Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + - Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + - Gt223*gt22L*Gt323 + Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + 2*Gt322*Gt323*gt33L + - gt23L*SQR(Gt222) + gt23L*SQR(Gt323)) + 2*gtu32* - (gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + - Gt133*Gt212*gt22L + 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + Gt222*Gt223*gt23L + - Gt133*gt23L*Gt312 + Gt133*gt13L*Gt322 + 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + Gt223*gt23L*Gt323 + - Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + Gt223*gt22L*Gt333 + Gt222*gt23L*Gt333 + gt23L*Gt323*Gt333 + - Gt123*Gt312*gt33L + Gt223*Gt322*gt33L + Gt322*Gt333*gt33L + gt33L*SQR(Gt323)) + - 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + Gt123*gt13L*Gt222 + 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + - Gt122*Gt213*gt23L + Gt222*Gt223*gt23L + Gt123*gt23L*Gt313 + Gt133*gt13L*Gt322 + Gt233*gt23L*Gt322 + - gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + gt22L*Gt233*Gt323 + 3*Gt223*gt23L*Gt323 + gt23L*Gt323*Gt333 + - Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + Gt322*Gt333*gt33L + gt11L*SQR(Gt123) + 2*gt22L*SQR(Gt223) + - gt33L*SQR(Gt323)) + 2*gtu33*(gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + gt12L*Gt133*Gt223 + - Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + - Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + - gt22L*Gt233*Gt333 + Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + 2*Gt323*Gt333*gt33L + - gt23L*SQR(Gt223) + gt23L*SQR(Gt333))); - - Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + - Gt113*gt13L*Gt333*gtu31 + Gt133*gt13L*Gt323*gtu32 + Gt233*gt23L*Gt323*gtu32 + Gt123*gt13L*Gt333*gtu32 + - Gt133*gt13L*Gt333*gtu33) + gtu21*(2*Gt212*Gt223*gt23L + 4*Gt123*gt13L*Gt313 + 4*Gt223*gt23L*Gt313 + - 4*Gt113*gt13L*Gt323 + 4*Gt213*gt23L*Gt323 + 2*Gt123*Gt311*gt33L - PDstandardNth12gt33) + - gtu31*(4*Gt213*gt23L*Gt333 + 2*Gt233*Gt312*gt33L + 6*Gt313*Gt333*gt33L - PDstandardNth13gt33) - - gtu22*khalf*PDstandardNth22gt33 + gtu32*(4*Gt223*gt23L*Gt333 + 2*Gt123*Gt313*gt33L + 6*Gt323*Gt333*gt33L - - PDstandardNth23gt33) - gtu33*khalf*PDstandardNth33gt33 + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + - gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + 2*Gt133*Gt311*gtu31 + - 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + PDstandardNth3Xt3) + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + - Gt313*gt33L*Xt1L + Gt123*gt13L*Xt2L + Gt223*gt23L*Xt2L + Gt323*gt33L*Xt2L + Gt133*gt13L*Xt3L + Gt333*gt33L*Xt3L + - Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xt3L) + - gtu11*(2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + 2*Gt113*Gt311*gt33L + - 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + gt11L*SQR(Gt113)) + - 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + - Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + - Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + - Gt123*Gt211*gt23L*gtu21 + Gt113*Gt212*gt23L*gtu21 + Gt213*Gt222*gt23L*gtu21 + Gt113*Gt312*gt33L*gtu21 + - Gt223*Gt312*gt33L*gtu21 + Gt112*Gt123*gt13L*gtu22 + Gt123*gt12L*Gt223*gtu22 + Gt122*gt13L*Gt223*gtu22 + - Gt123*Gt212*gt23L*gtu22 + Gt222*Gt223*gt23L*gtu22 + Gt223*Gt322*gt33L*gtu22 + Gt113*gt11L*Gt133*gtu31 + - Gt111*Gt133*gt13L*gtu31 + gt12L*Gt133*Gt213*gtu31 + Gt123*gt13L*Gt213*gtu31 + Gt113*gt12L*Gt233*gtu31 + - Gt112*gt13L*Gt233*gtu31 + Gt213*gt22L*Gt233*gtu31 + Gt133*Gt211*gt23L*gtu31 + Gt113*Gt213*gt23L*gtu31 + - Gt213*Gt223*gt23L*gtu31 + Gt212*Gt233*gt23L*gtu31 + Gt113*Gt313*gt33L*gtu31 + Gt213*Gt323*gt33L*gtu31 + - gt11L*Gt123*Gt133*gtu32 + Gt113*Gt123*gt13L*gtu32 + Gt112*Gt133*gt13L*gtu32 + gt12L*Gt133*Gt223*gtu32 + - Gt123*gt13L*Gt223*gtu32 + Gt123*gt12L*Gt233*gtu32 + Gt122*gt13L*Gt233*gtu32 + Gt223*gt22L*Gt233*gtu32 + - Gt133*Gt212*gt23L*gtu32 + Gt123*Gt213*gt23L*gtu32 + Gt222*Gt233*gt23L*gtu32 + Gt233*Gt322*gt33L*gtu32 + - Gt223*Gt323*gt33L*gtu32 + Gt113*Gt133*gt13L*gtu33 + gt12L*Gt133*Gt233*gtu33 + Gt123*gt13L*Gt233*gtu33 + - Gt133*Gt213*gt23L*gtu33 + Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*SQR(Gt113)) + gt11L*gtu22*SQR(Gt123) + - gt11L*gtu33*SQR(Gt133) + gt22L*gtu11*SQR(Gt213) + gt22L*gtu22*SQR(Gt223) + 2*gt23L*gtu32*SQR(Gt223) + - gt22L*gtu33*SQR(Gt233) + 3*gt33L*gtu11*SQR(Gt313) + 3*gt33L*gtu22*SQR(Gt323) + 3*gt33L*gtu33*SQR(Gt333); + gu11 = gtu11*W2; - invW = INV(WL); + gu21 = gtu21*W2; - W2 = SQR(WL); + gu31 = gtu31*W2; - pdphi1 = -(invW*khalf*PDstandardNth1W); + gu22 = gtu22*W2; - pdphi2 = -(invW*khalf*PDstandardNth2W); + gu32 = gtu32*W2; - pdphi3 = -(invW*khalf*PDstandardNth3W); + gu33 = gtu33*W2; - cdphi211 = invW*khalf*(-PDstandardNth11W + Gt111*PDstandardNth1W + Gt211*PDstandardNth2W + Gt311*PDstandardNth3W + - invW*SQR(PDstandardNth1W)); + Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; - cdphi212 = invW*khalf*(-PDstandardNth12W + Gt212*PDstandardNth2W + PDstandardNth1W*(Gt112 + invW*PDstandardNth2W) + - Gt312*PDstandardNth3W); + Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; - cdphi213 = invW*khalf*(-PDstandardNth13W + Gt213*PDstandardNth2W + Gt313*PDstandardNth3W + - PDstandardNth1W*(Gt113 + invW*PDstandardNth3W)); + Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; - cdphi222 = invW*khalf*(Gt122*PDstandardNth1W - PDstandardNth22W + Gt222*PDstandardNth2W + Gt322*PDstandardNth3W + - invW*SQR(PDstandardNth2W)); + Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; - cdphi223 = invW*khalf*(Gt123*PDstandardNth1W - PDstandardNth23W + Gt323*PDstandardNth3W + - PDstandardNth2W*(Gt223 + invW*PDstandardNth3W)); + Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; - cdphi233 = invW*khalf*(Gt133*PDstandardNth1W + Gt233*PDstandardNth2W - PDstandardNth33W + Gt333*PDstandardNth3W + - invW*SQR(PDstandardNth3W)); + Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; - Rphi11 = -2*(cdphi211 - 2*SQR(pdphi1) + gt11L*(cdphi233*gtu33 + - 4*(gtu32*pdphi2*pdphi3 + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000008 = SQR(Gt212); - Rphi12 = -2*(cdphi212 + pdphi1*(-2*pdphi2 + 4*gt12L*gtu31*pdphi3) + - gt12L*(cdphi233*gtu33 + 4*pdphi2*(gtu21*pdphi1 + gtu32*pdphi3) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000009 = SQR(Gt313); - Rphi13 = -2*(cdphi213 + (-2*pdphi1 + 4*gt13L*gtu32*pdphi2)*pdphi3 + - gt13L*(cdphi233*gtu33 + 4*pdphi1*(gtu21*pdphi2 + gtu31*pdphi3) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000010 = SQR(Gt111); - Rphi22 = -2*(cdphi222 - 2*SQR(pdphi2) + gt22L*(cdphi233*gtu33 + - 4*(gtu32*pdphi2*pdphi3 + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000011 = SQR(Gt112); - Rphi23 = -2*(cdphi223 + (-2 + 4*gt23L*gtu32)*pdphi2*pdphi3 + - gt23L*(cdphi233*gtu33 + 4*pdphi1*(gtu21*pdphi2 + gtu31*pdphi3) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000012 = SQR(Gt312); - Rphi33 = -2*(cdphi233 - 2*SQR(pdphi3) + gt33L*(cdphi233*gtu33 + - 4*(gtu32*pdphi2*pdphi3 + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + gtu11*(cdphi211 + 2*SQR(pdphi1)) + - gtu22*(cdphi222 + 2*SQR(pdphi2)) + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*SQR(pdphi3)))); + CCTK_REAL const T1000014 = Gt211*Gt222*gt22L; - gu11 = gtu11*W2; + CCTK_REAL const T1000015 = Gt211*gt23L*Gt322; - gu21 = gtu21*W2; + CCTK_REAL const T1000016 = Gt112*gt12L; - gu31 = gtu31*W2; + CCTK_REAL const T1000017 = Gt112*Gt212; - gu22 = gtu22*W2; + CCTK_REAL const T1000018 = Gt113*Gt312; - gu32 = gtu32*W2; + CCTK_REAL const T1000019 = 2*gt11L*Gt122; - gu33 = gtu33*W2; + CCTK_REAL const T1000020 = gt12L*Gt222; - R11 = Rphi11 + Rt11; + CCTK_REAL const T1000021 = Gt212*gt22L; - R12 = Rphi12 + Rt12; + CCTK_REAL const T1000022 = gt23L*Gt312; - R13 = Rphi13 + Rt13; + CCTK_REAL const T1000023 = gt13L*Gt322; - R22 = Rphi22 + Rt22; + CCTK_REAL const T1000024 = Gt123*Gt312; - R23 = Rphi23 + Rt23; + CCTK_REAL const T1000025 = Gt212*Gt213*gt22L; - R33 = Rphi33 + Rt33; + CCTK_REAL const T1000026 = Gt211*Gt223*gt22L; - trR = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + gu32*R23) + gu33*R33; + CCTK_REAL const T1000027 = Gt213*gt23L*Gt312; - Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; + CCTK_REAL const T1000028 = Gt211*gt23L*Gt323; - Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; + CCTK_REAL const T1000029 = Gt113*gt12L; - Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; + CCTK_REAL const T1000030 = Gt213*gt22L; - Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; + CCTK_REAL const T1000031 = gt23L*Gt313; - Atm22 = At12L*gtu21 + At22L*gtu22 + At23L*gtu32; + CCTK_REAL const T1000033 = Gt213*Gt222*gt22L; - Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; + CCTK_REAL const T1000034 = Gt212*Gt223*gt22L; - Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; + CCTK_REAL const T1000035 = Gt213*gt23L*Gt322; - Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; + CCTK_REAL const T1000036 = Gt212*gt23L*Gt323; + + CCTK_REAL const T1000037 = 2*gt11L*Gt123; + + CCTK_REAL const T1000038 = gt12L*Gt223; + + CCTK_REAL const T1000039 = gt13L*Gt323; + + CCTK_REAL const T1000041 = SQR(Gt113); + + CCTK_REAL const T1000042 = Gt211*gt22L; + + CCTK_REAL const T1000043 = gt23L*Gt311; + + CCTK_REAL const T1000044 = gt12L*Gt212; + + CCTK_REAL const T1000045 = gt13L*Gt312; + + CCTK_REAL const T1000047 = Gt112*Gt213; + + CCTK_REAL const T1000048 = Gt113*Gt313; + + CCTK_REAL const T1000049 = gt12L*Gt212*Gt223; + + CCTK_REAL const T1000050 = 2*Gt123*gt13L*Gt311; + + CCTK_REAL const T1000051 = Gt223*gt23L*Gt311; + + CCTK_REAL const T1000052 = Gt113*gt13L*Gt312; + + CCTK_REAL const T1000053 = gt13L*Gt223*Gt312; + + CCTK_REAL const T1000054 = gt13L*Gt313*Gt323; + + CCTK_REAL const T1000055 = Gt312*Gt313*gt33L; + + CCTK_REAL const T1000056 = Gt311*Gt323*gt33L; + + CCTK_REAL const T1000057 = Gt212*gt23L*Gt313; + + CCTK_REAL const T1000058 = 2*Gt112*Gt113; + + CCTK_REAL const T1000059 = Gt122*Gt213; + + CCTK_REAL const T1000060 = Gt112*gt13L; + + CCTK_REAL const T1000061 = gt12L*Gt222*Gt223; + + CCTK_REAL const T1000062 = gt13L*Gt223*Gt322; + + CCTK_REAL const T1000063 = SQR(Gt323); + + CCTK_REAL const T1000065 = Gt212*gt23L; + + CCTK_REAL const T1000066 = Gt312*gt33L; + + CCTK_REAL const T1000067 = SQR(Gt213); + + CCTK_REAL const T1000068 = Gt233*gt23L*Gt311; + + CCTK_REAL const T1000069 = Gt133*Gt313; + + CCTK_REAL const T1000070 = gt13L*Gt313*Gt333; + + CCTK_REAL const T1000072 = Gt311*Gt333*gt33L; + + CCTK_REAL const T1000073 = Gt113*gt13L; + + CCTK_REAL const T1000074 = Gt223*gt23L*Gt313; + + CCTK_REAL const T1000075 = gt13L*Gt323*Gt333; + + CCTK_REAL const T1000076 = 2*gt11L*Gt133; + + CCTK_REAL const T1000077 = gt12L*Gt233; + + CCTK_REAL const T1000078 = gt13L*Gt333; + + CCTK_REAL const T1000080 = Gt313*Gt323*gt33L; - Atm33 = At13L*gtu31 + At23L*gtu32 + At33L*gtu33; - - HL = -2*(Atm12*Atm21 + Atm13*Atm31 + Atm23*Atm32) + trR - SQR(Atm11) - SQR(Atm22) - SQR(Atm33) + ktwothird*SQR(trKL); - - M1L = -(At12L*Gt112*gtu22) - At11L*Gt122*gtu22 - At22L*Gt212*gtu22 - At12L*Gt222*gtu22 - At23L*Gt312*gtu22 - - At13L*Gt322*gtu22 - At13L*Gt111*gtu31 - 3*At11L*Gt113*gtu31 - At23L*Gt211*gtu31 - 3*At12L*Gt213*gtu31 - - At33L*Gt311*gtu31 - 3*At13L*Gt313*gtu31 - At13L*Gt112*gtu32 - At12L*Gt113*gtu32 - At23L*Gt212*gtu32 - - At22L*Gt213*gtu32 - 2*At12L*Gt223*gtu32 - At33L*Gt312*gtu32 - At23L*Gt313*gtu32 - 2*At13L*Gt323*gtu32 - - 2*(At11L*Gt111*gtu11 + At12L*Gt211*gtu11 + At13L*Gt311*gtu11 + At11L*Gt123*gtu32) - At13L*Gt113*gtu33 - - At11L*Gt133*gtu33 - At23L*Gt213*gtu33 - At12L*Gt233*gtu33 - At33L*Gt313*gtu33 - At13L*Gt333*gtu33 + - 6*At11L*gtu11*pdphi1 + 6*At13L*gtu31*pdphi1 + - gtu21*(-(At12L*Gt111) - 3*At11L*Gt112 - At22L*Gt211 - 3*At12L*Gt212 - At23L*Gt311 - 3*At13L*Gt312 + - 6*At12L*pdphi1) + 6*At11L*gtu21*pdphi2 + 6*At12L*gtu22*pdphi2 + 6*At13L*gtu32*pdphi2 + 6*At11L*gtu31*pdphi3 + - 6*At12L*gtu32*pdphi3 + 6*At13L*gtu33*pdphi3 + gtu11*PDstandardNth1At11 + gtu21*PDstandardNth1At12 + - gtu31*PDstandardNth1At13 - ktwothird*PDstandardNth1trK + gtu21*PDstandardNth2At11 + gtu22*PDstandardNth2At12 + - gtu32*PDstandardNth2At13 + gtu31*PDstandardNth3At11 + gtu32*PDstandardNth3At12 + gtu33*PDstandardNth3At13; - - M2L = -(At12L*Gt111*gtu11) - At11L*Gt112*gtu11 - At22L*Gt211*gtu11 - At12L*Gt212*gtu11 - At23L*Gt311*gtu11 - - At13L*Gt312*gtu11 - 3*At12L*Gt112*gtu21 - At11L*Gt122*gtu21 - 3*At22L*Gt212*gtu21 - At12L*Gt222*gtu21 - - 3*At23L*Gt312*gtu21 - At13L*Gt322*gtu21 - 2*At12L*Gt122*gtu22 - 2*At22L*Gt222*gtu22 - 2*At23L*Gt322*gtu22 - - At13L*Gt112*gtu31 - 2*At12L*Gt113*gtu31 - At11L*Gt123*gtu31 - At23L*Gt212*gtu31 - 2*At22L*Gt213*gtu31 - - At12L*Gt223*gtu31 - At33L*Gt312*gtu31 - 2*At23L*Gt313*gtu31 - At13L*Gt323*gtu31 - At13L*Gt122*gtu32 - - 3*At12L*Gt123*gtu32 - At23L*Gt222*gtu32 - 3*At22L*Gt223*gtu32 - At33L*Gt322*gtu32 - 3*At23L*Gt323*gtu32 - - At13L*Gt123*gtu33 - At12L*Gt133*gtu33 - At23L*Gt223*gtu33 - At22L*Gt233*gtu33 - At33L*Gt323*gtu33 - - At23L*Gt333*gtu33 + 6*At12L*gtu11*pdphi1 + 6*At22L*gtu21*pdphi1 + 6*At23L*gtu31*pdphi1 + 6*At12L*gtu21*pdphi2 + - 6*At22L*gtu22*pdphi2 + 6*At23L*gtu32*pdphi2 + 6*At12L*gtu31*pdphi3 + 6*At22L*gtu32*pdphi3 + 6*At23L*gtu33*pdphi3 + - gtu11*PDstandardNth1At12 + gtu21*PDstandardNth1At22 + gtu31*PDstandardNth1At23 + gtu21*PDstandardNth2At12 + - gtu22*PDstandardNth2At22 + gtu32*PDstandardNth2At23 - ktwothird*PDstandardNth2trK + gtu31*PDstandardNth3At12 + + CCTK_REAL const T1000081 = SQR(Gt223); + + CCTK_REAL const T1000082 = Gt233*gt23L*Gt312; + + CCTK_REAL const T1000083 = 2*Gt123*gt13L*Gt313; + + CCTK_REAL const T1000084 = gt13L*Gt223*Gt323; + + CCTK_REAL const T1000085 = Gt312*Gt333*gt33L; + + CCTK_REAL const T1000086 = Gt213*gt23L; + + CCTK_REAL const T1000087 = Gt313*gt33L; + + CCTK_REAL const T1000089 = gt12L*Gt213; + + CCTK_REAL const T1000090 = gt13L*Gt313; + + CCTK_REAL const T1000091 = Gt211*gt23L; + + CCTK_REAL const T1000092 = Gt311*gt33L; + + CCTK_REAL const T1000093 = gt11L*Gt123; + + CCTK_REAL const T1000096 = SQR(Gt222); + + CCTK_REAL const T1000097 = Gt113*gt12L*Gt212; + + CCTK_REAL const T1000098 = Gt112*gt13L*Gt212; + + CCTK_REAL const T1000099 = 2*Gt112*gt12L*Gt213; + + CCTK_REAL const T1000100 = Gt113*Gt211*gt22L; + + CCTK_REAL const T1000101 = Gt112*Gt211*gt23L; + + CCTK_REAL const T1000103 = Gt113*gt23L*Gt311; + + CCTK_REAL const T1000104 = 2*Gt113*gt13L*Gt312; + + CCTK_REAL const T1000105 = Gt112*gt13L*Gt313; + + CCTK_REAL const T1000106 = Gt213*gt22L*Gt313; + + CCTK_REAL const T1000108 = Gt112*Gt311*gt33L; + + CCTK_REAL const T1000109 = Gt212*Gt312*gt33L; + + CCTK_REAL const T1000110 = Gt123*gt12L*Gt212; + + CCTK_REAL const T1000111 = Gt212*Gt222*gt23L; + + CCTK_REAL const T1000112 = 2*Gt223*gt23L*Gt312; + + CCTK_REAL const T1000113 = Gt113*gt13L*Gt322; + + CCTK_REAL const T1000114 = gt23L*Gt313*Gt323; + + CCTK_REAL const T1000115 = Gt313*Gt322*gt33L; + + CCTK_REAL const T1000116 = Gt312*Gt323*gt33L; + + CCTK_REAL const T1000118 = Gt122*gt13L*Gt212; + + CCTK_REAL const T1000119 = 2*Gt122*gt12L*Gt213; + + CCTK_REAL const T1000120 = Gt113*gt12L*Gt222; + + CCTK_REAL const T1000121 = Gt113*Gt212*gt22L; + + CCTK_REAL const T1000122 = Gt123*gt13L*Gt312; + + CCTK_REAL const T1000123 = Gt113*gt23L*Gt312; + + CCTK_REAL const T1000124 = Gt223*gt23L*Gt312; + + CCTK_REAL const T1000125 = Gt223*gt22L*Gt313; + + CCTK_REAL const T1000126 = Gt222*gt23L*Gt313; + + CCTK_REAL const T1000127 = Gt212*Gt322*gt33L; + + CCTK_REAL const T1000128 = Gt212*Gt223*gt23L; + + CCTK_REAL const T1000129 = Gt133*gt13L*Gt312; + + CCTK_REAL const T1000130 = Gt113*gt13L*Gt323; + + CCTK_REAL const T1000131 = Gt213*gt23L*Gt323; + + CCTK_REAL const T1000132 = Gt212*gt23L*Gt333; + + CCTK_REAL const T1000133 = gt23L*Gt313*Gt333; + + CCTK_REAL const T1000135 = 2*Gt213*Gt223*gt22L; + + CCTK_REAL const T1000136 = gt22L*Gt233*Gt313; + + CCTK_REAL const T1000137 = 2*Gt213*gt23L*Gt323; + + CCTK_REAL const T1000138 = Gt212*Gt323*gt33L; + + CCTK_REAL const T1000139 = SQR(Gt123); + + CCTK_REAL const T1000140 = Gt222*Gt223*gt23L; + + CCTK_REAL const T1000141 = Gt133*gt13L*Gt322; + + CCTK_REAL const T1000142 = gt23L*Gt323*Gt333; + + CCTK_REAL const T1000144 = Gt322*Gt333*gt33L; + + CCTK_REAL const T1000145 = SQR(Gt333); + + cdphi211 = invW*khalf*(-PDstandardNth11W + Gt111*PDstandardNth1W + + Gt211*PDstandardNth2W + Gt311*PDstandardNth3W + invW*SQR(PDstandardNth1W)); + + cdphi212 = invW*khalf*(-PDstandardNth12W + Gt212*PDstandardNth2W + + PDstandardNth1W*(Gt112 + invW*PDstandardNth2W) + Gt312*PDstandardNth3W); + + cdphi213 = invW*khalf*(-PDstandardNth13W + Gt213*PDstandardNth2W + + Gt313*PDstandardNth3W + PDstandardNth1W*(Gt113 + T1000146)); + + cdphi222 = invW*khalf*(Gt122*PDstandardNth1W - PDstandardNth22W + + Gt222*PDstandardNth2W + Gt322*PDstandardNth3W + invW*SQR(PDstandardNth2W)); + + cdphi223 = invW*khalf*(Gt123*PDstandardNth1W - PDstandardNth23W + + Gt323*PDstandardNth3W + PDstandardNth2W*(Gt223 + T1000146)); + + cdphi233 = invW*khalf*(Gt133*PDstandardNth1W + Gt233*PDstandardNth2W - + PDstandardNth33W + Gt333*PDstandardNth3W + invW*SQR(PDstandardNth3W)); + + Atm11 = T1000150 + T1000151 + T1000153; + + Atm22 = T1000150 + T1000152 + T1000154; + + Atm33 = T1000151 + T1000152 + T1000155; + + M1L = -(At12L*Gt112*gtu22) - At11L*Gt122*gtu22 - At22L*Gt212*gtu22 - + At12L*Gt222*gtu22 - At23L*Gt312*gtu22 - At13L*Gt322*gtu22 - + At13L*Gt111*gtu31 - 3*At11L*Gt113*gtu31 - At23L*Gt211*gtu31 - + 3*At12L*Gt213*gtu31 - At33L*Gt311*gtu31 - 3*At13L*Gt313*gtu31 - + At13L*Gt112*gtu32 - At12L*Gt113*gtu32 - At23L*Gt212*gtu32 - + At22L*Gt213*gtu32 - 2*At12L*Gt223*gtu32 - At33L*Gt312*gtu32 - + At23L*Gt313*gtu32 - 2*At13L*Gt323*gtu32 - + 2*(At11L*Gt111*gtu11 + At12L*Gt211*gtu11 + At13L*Gt311*gtu11 + + At11L*Gt123*gtu32) - At13L*Gt113*gtu33 - At11L*Gt133*gtu33 - + At23L*Gt213*gtu33 - At12L*Gt233*gtu33 - At33L*Gt313*gtu33 - + At13L*Gt333*gtu33 + 6*At11L*gtu11*pdphi1 + 6*At13L*gtu31*pdphi1 + + gtu21*(-(At12L*Gt111) - 3*At11L*Gt112 - At22L*Gt211 - 3*At12L*Gt212 - + At23L*Gt311 - 3*At13L*Gt312 + 6*At12L*pdphi1) + 6*At11L*gtu21*pdphi2 + + 6*At12L*gtu22*pdphi2 + 6*At13L*gtu32*pdphi2 + 6*At11L*gtu31*pdphi3 + + 6*At12L*gtu32*pdphi3 + 6*At13L*gtu33*pdphi3 + gtu11*PDstandardNth1At11 + + gtu21*PDstandardNth1At12 + gtu31*PDstandardNth1At13 - + ktwothird*PDstandardNth1trK + gtu21*PDstandardNth2At11 + + gtu22*PDstandardNth2At12 + gtu32*PDstandardNth2At13 + + gtu31*PDstandardNth3At11 + gtu32*PDstandardNth3At12 + + gtu33*PDstandardNth3At13; + + M2L = -(At12L*Gt111*gtu11) - At11L*Gt112*gtu11 - At22L*Gt211*gtu11 - + At12L*Gt212*gtu11 - At23L*Gt311*gtu11 - At13L*Gt312*gtu11 - + 3*At12L*Gt112*gtu21 - At11L*Gt122*gtu21 - 3*At22L*Gt212*gtu21 - + At12L*Gt222*gtu21 - 3*At23L*Gt312*gtu21 - At13L*Gt322*gtu21 - + 2*At12L*Gt122*gtu22 - 2*At22L*Gt222*gtu22 - 2*At23L*Gt322*gtu22 - + At13L*Gt112*gtu31 - 2*At12L*Gt113*gtu31 - At11L*Gt123*gtu31 - + At23L*Gt212*gtu31 - 2*At22L*Gt213*gtu31 - At12L*Gt223*gtu31 - + At33L*Gt312*gtu31 - 2*At23L*Gt313*gtu31 - At13L*Gt323*gtu31 - + At13L*Gt122*gtu32 - 3*At12L*Gt123*gtu32 - At23L*Gt222*gtu32 - + 3*At22L*Gt223*gtu32 - At33L*Gt322*gtu32 - 3*At23L*Gt323*gtu32 - + At13L*Gt123*gtu33 - At12L*Gt133*gtu33 - At23L*Gt223*gtu33 - + At22L*Gt233*gtu33 - At33L*Gt323*gtu33 - At23L*Gt333*gtu33 + + 6*At12L*gtu11*pdphi1 + 6*At22L*gtu21*pdphi1 + 6*At23L*gtu31*pdphi1 + + 6*At12L*gtu21*pdphi2 + 6*At22L*gtu22*pdphi2 + 6*At23L*gtu32*pdphi2 + + 6*At12L*gtu31*pdphi3 + 6*At22L*gtu32*pdphi3 + 6*At23L*gtu33*pdphi3 + + gtu11*PDstandardNth1At12 + gtu21*PDstandardNth1At22 + + gtu31*PDstandardNth1At23 + gtu21*PDstandardNth2At12 + + gtu22*PDstandardNth2At22 + gtu32*PDstandardNth2At23 - + ktwothird*PDstandardNth2trK + gtu31*PDstandardNth3At12 + gtu32*PDstandardNth3At22 + gtu33*PDstandardNth3At23; - M3L = -(At13L*Gt111*gtu11) - At11L*Gt113*gtu11 - At23L*Gt211*gtu11 - At12L*Gt213*gtu11 - At33L*Gt311*gtu11 - - At13L*Gt313*gtu11 - 2*At13L*Gt112*gtu21 - At12L*Gt113*gtu21 - At11L*Gt123*gtu21 - 2*At23L*Gt212*gtu21 - - At22L*Gt213*gtu21 - At12L*Gt223*gtu21 - 2*At33L*Gt312*gtu21 - At23L*Gt313*gtu21 - At13L*Gt323*gtu21 - - At13L*Gt122*gtu22 - At12L*Gt123*gtu22 - At23L*Gt222*gtu22 - At22L*Gt223*gtu22 - At33L*Gt322*gtu22 - - At23L*Gt323*gtu22 - 3*At13L*Gt113*gtu31 - At11L*Gt133*gtu31 - 3*At23L*Gt213*gtu31 - At12L*Gt233*gtu31 - - 3*At33L*Gt313*gtu31 - At13L*Gt333*gtu31 - 3*At13L*Gt123*gtu32 - At12L*Gt133*gtu32 - 3*At23L*Gt223*gtu32 - - At22L*Gt233*gtu32 - 3*At33L*Gt323*gtu32 - At23L*Gt333*gtu32 - 2*At13L*Gt133*gtu33 - 2*At23L*Gt233*gtu33 - - 2*At33L*Gt333*gtu33 + 6*At13L*gtu11*pdphi1 + 6*At23L*gtu21*pdphi1 + 6*At33L*gtu31*pdphi1 + 6*At13L*gtu21*pdphi2 + - 6*At23L*gtu22*pdphi2 + 6*At33L*gtu32*pdphi2 + 6*At13L*gtu31*pdphi3 + 6*At23L*gtu32*pdphi3 + 6*At33L*gtu33*pdphi3 + - gtu11*PDstandardNth1At13 + gtu21*PDstandardNth1At23 + gtu31*PDstandardNth1At33 + gtu21*PDstandardNth2At13 + - gtu22*PDstandardNth2At23 + gtu32*PDstandardNth2At33 + gtu31*PDstandardNth3At13 + gtu32*PDstandardNth3At23 + + M3L = -(At13L*Gt111*gtu11) - At11L*Gt113*gtu11 - At23L*Gt211*gtu11 - + At12L*Gt213*gtu11 - At33L*Gt311*gtu11 - At13L*Gt313*gtu11 - + 2*At13L*Gt112*gtu21 - At12L*Gt113*gtu21 - At11L*Gt123*gtu21 - + 2*At23L*Gt212*gtu21 - At22L*Gt213*gtu21 - At12L*Gt223*gtu21 - + 2*At33L*Gt312*gtu21 - At23L*Gt313*gtu21 - At13L*Gt323*gtu21 - + At13L*Gt122*gtu22 - At12L*Gt123*gtu22 - At23L*Gt222*gtu22 - + At22L*Gt223*gtu22 - At33L*Gt322*gtu22 - At23L*Gt323*gtu22 - + 3*At13L*Gt113*gtu31 - At11L*Gt133*gtu31 - 3*At23L*Gt213*gtu31 - + At12L*Gt233*gtu31 - 3*At33L*Gt313*gtu31 - At13L*Gt333*gtu31 - + 3*At13L*Gt123*gtu32 - At12L*Gt133*gtu32 - 3*At23L*Gt223*gtu32 - + At22L*Gt233*gtu32 - 3*At33L*Gt323*gtu32 - At23L*Gt333*gtu32 - + 2*At13L*Gt133*gtu33 - 2*At23L*Gt233*gtu33 - 2*At33L*Gt333*gtu33 + + 6*At13L*gtu11*pdphi1 + 6*At23L*gtu21*pdphi1 + 6*At33L*gtu31*pdphi1 + + 6*At13L*gtu21*pdphi2 + 6*At23L*gtu22*pdphi2 + 6*At33L*gtu32*pdphi2 + + 6*At13L*gtu31*pdphi3 + 6*At23L*gtu32*pdphi3 + 6*At33L*gtu33*pdphi3 + + gtu11*PDstandardNth1At13 + gtu21*PDstandardNth1At23 + + gtu31*PDstandardNth1At33 + gtu21*PDstandardNth2At13 + + gtu22*PDstandardNth2At23 + gtu32*PDstandardNth2At33 + + gtu31*PDstandardNth3At13 + gtu32*PDstandardNth3At23 + gtu33*PDstandardNth3At33 - ktwothird*PDstandardNth3trK; - cSL = Log(detgt); + cXt1L = Gt111*gtu11 + Gt122*gtu22 + + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - Xt1L; + + cXt2L = Gt211*gtu11 + Gt222*gtu22 + + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33 - Xt2L; + + cXt3L = Gt311*gtu11 + Gt322*gtu22 + + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33 - Xt3L; + + cAL = 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + T1000153 + T1000154 + + T1000155; + + CCTK_REAL const T1000013 = gt22L*T1000008; + + CCTK_REAL const T1000032 = T1000029 + T1000030 + T1000031; + + CCTK_REAL const T1000040 = T1000029 + T1000037 + T1000038 + T1000039; + + CCTK_REAL const T1000046 = T1000016 + T1000021 + T1000022; + + CCTK_REAL const T1000064 = gt13L*T1000063; + + CCTK_REAL const T1000071 = gt33L*T1000009; + + CCTK_REAL const T1000079 = T1000073 + T1000076 + T1000077 + T1000078; + + CCTK_REAL const T1000088 = T1000073 + T1000086 + T1000087; + + CCTK_REAL const T1000094 = T1000038 + T1000039 + T1000093; + + CCTK_REAL const T1000095 = T1000060 + T1000065 + T1000066; - cXt1L = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - Xt1L; + CCTK_REAL const T1000102 = gt23L*T1000008; - cXt2L = Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33 - Xt2L; + CCTK_REAL const T1000107 = gt23L*T1000009; - cXt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33 - Xt3L; + CCTK_REAL const T1000117 = gt13L*T1000011; + + CCTK_REAL const T1000134 = gt12L*T1000041; + + CCTK_REAL const T1000143 = gt33L*T1000063; + + Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + + gtu21*(2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + 2*gt13L*Gt311*Gt323 + + 2*Gt311*Gt312*gt33L - PDstandardNth12gt11) - gtu31*PDstandardNth13gt11 + + gt11L*PDstandardNth1Xt1 + gt12L* + (4*Gt111*Gt212*gtu21 + 2*Gt211*Gt222*gtu21 + 2*Gt212*Gt222*gtu22 + + 4*Gt113*Gt211*gtu31 + 4*Gt113*Gt212*gtu32 + 4*Gt113*Gt213*gtu33 + + PDstandardNth1Xt2) + gt13L* + (4*Gt111*Gt312*gtu21 + 2*Gt212*Gt312*gtu21 + 4*Gt112*Gt312*gtu22 + + 4*Gt113*Gt311*gtu31 + 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - + gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + + gt22L*gtu22*T1000008 + 2*(gt12L*Gt211*Gt212*gtu11 + + Gt113*gt11L*Gt311*gtu11 + Gt211*gt23L*Gt311*gtu11 + + gt13L*Gt211*Gt312*gtu11 + Gt112*gt11L*Gt212*gtu21 + + gt12L*Gt223*Gt311*gtu21 + Gt212*gt23L*Gt311*gtu21 + + gt12L*Gt213*Gt312*gtu21 + Gt211*gt23L*Gt312*gtu21 + + gt11L*Gt122*Gt212*gtu22 + gt11L*Gt123*Gt312*gtu22 + + gt12L*Gt223*Gt312*gtu22 + Gt212*gt23L*Gt312*gtu22 + + gt13L*Gt212*Gt322*gtu22 + gt13L*Gt312*Gt323*gtu22 + + gt12L*Gt212*Gt213*gtu31 + gt12L*Gt211*Gt223*gtu31 + + Gt211*Gt213*gt22L*gtu31 + gt12L*Gt233*Gt311*gtu31 + + Gt213*gt23L*Gt311*gtu31 + gt13L*Gt213*Gt312*gtu31 + + Gt113*gt11L*Gt313*gtu31 + Gt211*gt23L*Gt313*gtu31 + + gt13L*Gt211*Gt323*gtu31 + gt13L*Gt311*Gt333*gtu31 + + Gt311*Gt313*gt33L*gtu31 + gt11L*Gt123*Gt212*gtu32 + + gt12L*Gt213*Gt222*gtu32 + gt12L*Gt212*Gt223*gtu32 + + Gt212*Gt213*gt22L*gtu32 + gt11L*Gt133*Gt312*gtu32 + + gt12L*Gt233*Gt312*gtu32 + Gt213*gt23L*Gt312*gtu32 + + Gt212*gt23L*Gt313*gtu32 + gt13L*Gt213*Gt322*gtu32 + + gt13L*Gt212*Gt323*gtu32 + gt13L*Gt313*Gt323*gtu32 + + gt13L*Gt312*Gt333*gtu32 + Gt312*Gt313*gt33L*gtu32 + + gt12L*Gt213*Gt223*gtu33 + gt12L*Gt233*Gt313*gtu33 + + Gt213*gt23L*Gt313*gtu33 + gt13L*Gt213*Gt323*gtu33 + + gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*T1000008) + + 2*gt13L*gtu31*T1000009 + gt33L*gtu33*T1000009 + 3*gt11L*gtu11*T1000010 + + 3*gt11L*gtu22*T1000011 + gt33L*gtu22*T1000012 + 3*gt11L*gtu33*T1000041 + + gt22L*gtu33*T1000067 + Gt111* + (6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xt1L) + + Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + + 2*gt11L*Gt123*gtu31 + gt12L*Xt1L) + + Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + + 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xt1L) + + gt12L*Gt212*Xt2L + gt13L*Gt312*Xt2L + + Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + + 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xt2L) + + Gt113*gt11L*Xt3L + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + + 2*gt11L*Gt123*gtu33 + gt12L*Xt3L) + + Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + + 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + + gt13L*Xt3L) + gt22L*gtu11*SQR(Gt211) + gt33L*gtu11*SQR(Gt311); + + Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + + Gt123*gt12L*Gt222*gtu32 + Gt123*gt12L*Gt223*gtu33) - + gtu11*khalf*PDstandardNth11gt22 + + gtu21*(6*Gt212*Gt222*gt22L + 2*Gt122*gt23L*Gt311 + 2*Gt122*gt13L*Gt312 + + 4*Gt222*gt23L*Gt312 + 2*Gt113*gt12L*Gt322 + 2*gt23L*Gt312*Gt323 + + 2*Gt312*Gt322*gt33L - PDstandardNth12gt22) + + gtu31*(6*Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + 2*Gt112*gt23L*Gt313 + + 2*Gt113*gt12L*Gt323 + 2*gt23L*Gt312*Gt333 + 2*Gt312*Gt323*gt33L - + PDstandardNth13gt22) - gtu22*khalf*PDstandardNth22gt22 + + gtu32*(4*Gt122*gt12L*Gt223 + 2*Gt123*Gt212*gt22L + 2*gt12L*Gt133*Gt322 + + 4*Gt223*gt23L*Gt322 + 2*Gt123*gt12L*Gt323 + 4*Gt222*gt23L*Gt323 + + 2*gt23L*Gt322*Gt333 + 2*Gt322*Gt323*gt33L - PDstandardNth23gt22) + + gt12L*(2*Gt111*Gt123*gtu31 + 4*Gt112*Gt223*gtu31 + 2*Gt113*Gt122*gtu32 + + 2*Gt113*Gt123*gtu33 + PDstandardNth2Xt1) + + gt22L*(2*Gt122*Gt213*gtu32 + 6*Gt222*Gt223*gtu32 + 2*Gt123*Gt213*gtu33 + + PDstandardNth2Xt2) + gt23L* + (4*Gt212*Gt322*gtu21 + 2*Gt313*Gt322*gtu21 + 4*Gt222*Gt322*gtu22 + + 2*Gt123*Gt311*gtu31 + 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + + 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - + gtu33*khalf*PDstandardNth33gt22 + 3*gt22L*gtu11*T1000008 + + gt11L*gtu11*T1000011 + 2*(Gt112*Gt211*gt22L*gtu11 + + Gt112*gt23L*Gt311*gtu11 + Gt113*gt12L*Gt312*gtu11 + + Gt112*gt13L*Gt312*gtu11 + Gt111*Gt122*gt12L*gtu21 + + Gt122*Gt211*gt22L*gtu21 + Gt112*Gt212*gt22L*gtu21 + + Gt223*gt22L*Gt312*gtu21 + Gt112*gt23L*Gt312*gtu21 + + Gt112*gt13L*Gt322*gtu21 + Gt213*gt22L*Gt322*gtu21 + + Gt122*Gt212*gt22L*gtu22 + Gt123*gt12L*Gt322*gtu22 + + Gt122*gt13L*Gt322*gtu22 + Gt223*gt22L*Gt322*gtu22 + + gt23L*Gt322*Gt323*gtu22 + Gt112*Gt113*gt12L*gtu31 + + Gt123*Gt211*gt22L*gtu31 + Gt112*Gt213*gt22L*gtu31 + + Gt112*gt13L*Gt323*gtu31 + Gt213*gt22L*Gt323*gtu31 + + gt11L*Gt122*Gt123*gtu32 + Gt123*gt13L*Gt322*gtu32 + + gt22L*Gt233*Gt322*gtu32 + Gt122*gt13L*Gt323*gtu32 + + Gt223*gt22L*Gt323*gtu32 + gt12L*Gt133*Gt323*gtu33 + + Gt123*gt13L*Gt323*gtu33 + gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*T1000011) + + gt33L*gtu11*T1000012 + 2*gt23L*gtu32*T1000063 + gt33L*gtu33*T1000063 + + 3*gt22L*gtu33*T1000081 + 3*gt22L*gtu22*T1000096 + gt11L*gtu33*T1000139 + + Gt212*gt22L*Xt1L + Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + + 2*Gt123*gt12L*gtu32 + gt12L*Xt1L) + + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + 2*gt12L*Gt133*gtu31 + + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + + gt23L*Xt1L) + Gt122*gt12L*Xt2L + Gt222*gt22L*Xt2L + gt23L*Gt322*Xt2L + + Gt123*gt12L*Xt3L + Gt223*gt22L*Xt3L + gt23L*Gt323*Xt3L + + gt11L*gtu22*SQR(Gt122) + gt33L*gtu22*SQR(Gt322); + + Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + + Gt113*gt13L*Gt333*gtu31 + Gt133*gt13L*Gt323*gtu32 + + Gt233*gt23L*Gt323*gtu32 + Gt123*gt13L*Gt333*gtu32 + + Gt133*gt13L*Gt333*gtu33) + + gtu21*(2*Gt212*Gt223*gt23L + 4*Gt123*gt13L*Gt313 + 4*Gt223*gt23L*Gt313 + + 4*Gt113*gt13L*Gt323 + 4*Gt213*gt23L*Gt323 + 2*Gt123*Gt311*gt33L - + PDstandardNth12gt33) + gtu31* + (4*Gt213*gt23L*Gt333 + 2*Gt233*Gt312*gt33L + 6*Gt313*Gt333*gt33L - + PDstandardNth13gt33) - gtu22*khalf*PDstandardNth22gt33 + + gtu32*(4*Gt223*gt23L*Gt333 + 2*Gt123*Gt313*gt33L + 6*Gt323*Gt333*gt33L - + PDstandardNth23gt33) - gtu33*khalf*PDstandardNth33gt33 + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + + 2*Gt133*Gt311*gtu31 + 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + + PDstandardNth3Xt3) + gtu11* + (2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + + 2*Gt113*Gt311*gt33L + 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + + 3*gt33L*T1000009) + gt11L*gtu11*T1000041 + + 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + + Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + + Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + + Gt123*Gt211*gt23L*gtu21 + Gt113*Gt212*gt23L*gtu21 + + Gt213*Gt222*gt23L*gtu21 + Gt113*Gt312*gt33L*gtu21 + + Gt223*Gt312*gt33L*gtu21 + Gt112*Gt123*gt13L*gtu22 + + Gt123*gt12L*Gt223*gtu22 + Gt122*gt13L*Gt223*gtu22 + + Gt123*Gt212*gt23L*gtu22 + Gt222*Gt223*gt23L*gtu22 + + Gt223*Gt322*gt33L*gtu22 + Gt113*gt11L*Gt133*gtu31 + + Gt111*Gt133*gt13L*gtu31 + gt12L*Gt133*Gt213*gtu31 + + Gt123*gt13L*Gt213*gtu31 + Gt113*gt12L*Gt233*gtu31 + + Gt112*gt13L*Gt233*gtu31 + Gt213*gt22L*Gt233*gtu31 + + Gt133*Gt211*gt23L*gtu31 + Gt113*Gt213*gt23L*gtu31 + + Gt213*Gt223*gt23L*gtu31 + Gt212*Gt233*gt23L*gtu31 + + Gt113*Gt313*gt33L*gtu31 + Gt213*Gt323*gt33L*gtu31 + + gt11L*Gt123*Gt133*gtu32 + Gt113*Gt123*gt13L*gtu32 + + Gt112*Gt133*gt13L*gtu32 + gt12L*Gt133*Gt223*gtu32 + + Gt123*gt13L*Gt223*gtu32 + Gt123*gt12L*Gt233*gtu32 + + Gt122*gt13L*Gt233*gtu32 + Gt223*gt22L*Gt233*gtu32 + + Gt133*Gt212*gt23L*gtu32 + Gt123*Gt213*gt23L*gtu32 + + Gt222*Gt233*gt23L*gtu32 + Gt233*Gt322*gt33L*gtu32 + + Gt223*Gt323*gt33L*gtu32 + Gt113*Gt133*gt13L*gtu33 + + gt12L*Gt133*Gt233*gtu33 + Gt123*gt13L*Gt233*gtu33 + + Gt133*Gt213*gt23L*gtu33 + Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*T1000041) + + 3*gt33L*gtu22*T1000063 + gt22L*gtu11*T1000067 + gt22L*gtu22*T1000081 + + 2*gt23L*gtu32*T1000081 + gt11L*gtu22*T1000139 + 3*gt33L*gtu33*T1000145 + + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + Gt313*gt33L*Xt1L + Gt123*gt13L*Xt2L + + Gt223*gt23L*Xt2L + Gt323*gt33L*Xt2L + Gt133*gt13L*Xt3L + Gt333*gt33L*Xt3L + + Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xt3L) + + gt11L*gtu33*SQR(Gt133) + gt22L*gtu33*SQR(Gt233); + + Rphi11 = -2*(cdphi211 - 2*T1000147 + + gt11L*(cdphi233*gtu33 + 4*(gtu32*pdphi2*pdphi3 + + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + + gtu11*(cdphi211 + 2*T1000147) + gtu22*(cdphi222 + 2*T1000148) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000149))); + + Rphi12 = -2*(cdphi212 + pdphi1*(-2*pdphi2 + 4*gt12L*gtu31*pdphi3) + + gt12L*(cdphi233*gtu33 + 4*pdphi2*(gtu21*pdphi1 + gtu32*pdphi3) + + gtu11*(cdphi211 + 2*T1000147) + gtu22*(cdphi222 + 2*T1000148) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000149))); + + Rphi13 = -2*(cdphi213 + (-2*pdphi1 + 4*gt13L*gtu32*pdphi2)*pdphi3 + + gt13L*(cdphi233*gtu33 + 4*pdphi1*(gtu21*pdphi2 + gtu31*pdphi3) + + gtu11*(cdphi211 + 2*T1000147) + gtu22*(cdphi222 + 2*T1000148) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000149))); + + Rphi22 = -2*(cdphi222 - 2*T1000148 + + gt22L*(cdphi233*gtu33 + 4*(gtu32*pdphi2*pdphi3 + + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + + gtu11*(cdphi211 + 2*T1000147) + gtu22*(cdphi222 + 2*T1000148) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000149))); + + Rphi23 = -2*(cdphi223 + (-2 + 4*gt23L*gtu32)*pdphi2*pdphi3 + + gt23L*(cdphi233*gtu33 + 4*pdphi1*(gtu21*pdphi2 + gtu31*pdphi3) + + gtu11*(cdphi211 + 2*T1000147) + gtu22*(cdphi222 + 2*T1000148) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000149))); + + Rphi33 = -2*(cdphi233 - 2*T1000149 + + gt33L*(cdphi233*gtu33 + 4*(gtu32*pdphi2*pdphi3 + + pdphi1*(gtu21*pdphi2 + gtu31*pdphi3)) + + gtu11*(cdphi211 + 2*T1000147) + gtu22*(cdphi222 + 2*T1000148) + + 2*(cdphi212*gtu21 + cdphi213*gtu31 + cdphi223*gtu32 + gtu33*T1000149))); + + Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - + 2*gtu31*PDstandardNth13gt12 + gt12L*PDstandardNth1Xt1 + + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - + gtu22*PDstandardNth22gt12 - 2*gtu32*PDstandardNth23gt12 + + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + + gt13L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt12 + + 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + 2*Gt122*gt13L*Gt311 + + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + gt13L*Gt222*Gt312 + + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + gt23L*Gt312*Gt313 + + Gt113*gt11L*Gt322 + gt13L*Gt313*Gt322 + Gt311*Gt322*gt33L + T1000013 + + T1000014 + T1000015 + gt12L* + (2*Gt122*Gt211 + Gt212*Gt222 + Gt213*Gt322 + T1000017 + T1000018) + + Gt111*(T1000016 + T1000019 + T1000020 + T1000023)) + + 2*gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + + 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + + gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + + gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + + gt12L*T1000008 + gt12L*T1000010 + + gt11L*(2*Gt111*Gt112 + T1000017 + T1000018) + + Gt111*(T1000042 + T1000043 + T1000044 + T1000045)) + + 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + 3*Gt112*gt13L*Gt312 + + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + gt13L*Gt212*Gt322 + + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + gt33L*T1000012 + T1000013 + + T1000014 + T1000015 + gt11L*(Gt122*Gt212 + 2*T1000011 + T1000024) + + Gt111*T1000046) + 2*gtu22* + (gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + + Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + + gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + gt23L*Gt312*Gt323 + + gt13L*Gt322*Gt323 + Gt312*Gt322*gt33L + gt12L*T1000011 + + Gt112*(T1000019 + T1000020 + T1000021 + T1000022 + T1000023) + + gt12L*(3*Gt122*Gt212 + Gt223*Gt322 + T1000024 + T1000096)) + + 2*gtu31*(Gt123*gt12L*Gt211 + gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + + gt12L*Gt233*Gt312 + 2*Gt112*gt13L*Gt313 + gt13L*Gt212*Gt323 + + gt23L*Gt311*Gt333 + gt13L*Gt312*Gt333 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000032 + T1000049 + T1000052 + + T1000055 + T1000057 + gt11L*(Gt123*Gt212 + Gt133*Gt312 + T1000058) + + T1000097 + T1000099) + 2*gtu31* + (Gt112*gt11L*Gt223 + Gt113*gt11L*Gt323 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000040 + + gt12L*(2*Gt123*Gt211 + Gt212*Gt223 + Gt213*Gt323 + T1000047 + + T1000048) + T1000050 + T1000051 + T1000053 + T1000054 + T1000056 + + T1000100 + T1000103 + T1000106 + T1000107) + + 2*gtu32*(gt11L*Gt122*Gt223 + 2*Gt123*gt13L*Gt312 + gt11L*Gt123*Gt323 + + T1000033 + T1000034 + T1000035 + T1000036 + Gt112*T1000040 + + gt12L*(Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323) + T1000059) + + T1000062 + T1000064 + T1000114 + T1000116 + T1000121 + T1000123 + + T1000124 + T1000125) + 2*gtu32* + (gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + + gt12L*Gt233*Gt322 + gt11L* + (2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + gt13L*Gt222*Gt323 + + gt23L*Gt312*Gt333 + gt13L*Gt322*Gt333 + Gt112*T1000032 + T1000033 + + T1000034 + T1000035 + T1000036 + T1000061 + T1000110 + T1000113 + + T1000115 + T1000119 + T1000120 + T1000126) + + 2*gtu33*(gt11L*Gt123*Gt223 + gt11L*Gt133*Gt323 + + Gt113*(T1000030 + T1000031 + T1000037 + T1000038 + T1000039) + + T1000074 + T1000075 + T1000080 + + gt12L*(3*Gt123*Gt213 + Gt233*Gt323 + T1000069 + T1000081) + T1000083 + + T1000084 + T1000133 + T1000134 + T1000135 + T1000136 + T1000137) + + (Gt111*gt12L + T1000042 + T1000043)*Xt1L + + (Gt112*gt11L + T1000044 + T1000045)*Xt1L + + (gt11L*Gt122 + T1000020 + T1000023)*Xt2L + T1000046*Xt2L + + T1000032*Xt3L + T1000094*Xt3L); + + Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - + 2*gtu31*PDstandardNth13gt13 + gt13L*PDstandardNth1Xt1 + + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - + gtu22*PDstandardNth22gt13 - 2*gtu32*PDstandardNth23gt13 - + gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + + gt12L*PDstandardNth3Xt2 + gt13L*PDstandardNth3Xt3 + + 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + + Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + 2*Gt133*gt13L*Gt311 + + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + Gt213*gt23L*Gt313 + + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + + gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + + Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + T1000068 + T1000070 + + T1000071 + T1000072 + Gt111*T1000079) + + 2*gtu31*(Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + + Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + 3*Gt113*gt13L*Gt313 + + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + gt13L*Gt213*Gt323 + + Gt211*Gt323*gt33L + gt22L*T1000067 + T1000068 + + gt11L*(Gt123*Gt213 + 2*T1000041 + T1000069) + T1000070 + T1000071 + + T1000072 + Gt111*T1000088) + + 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + + Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + + 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + + Gt211*gt23L*Gt313 + Gt211*Gt312*gt33L + 2*Gt311*Gt313*gt33L + + gt13L*T1000009 + gt13L*T1000010 + + gt11L*(2*Gt111*Gt113 + T1000047 + T1000048) + + Gt111*(T1000089 + T1000090 + T1000091 + T1000092)) + + 2*gtu21*(Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + + gt12L*Gt213*Gt222 + Gt211*Gt222*gt23L + Gt123*gt13L*Gt311 + + gt12L*Gt223*Gt313 + gt13L*Gt213*Gt322 + Gt211*Gt322*gt33L + T1000025 + + T1000027 + T1000051 + T1000054 + T1000055 + T1000056 + T1000057 + + gt11L*(Gt123*Gt313 + T1000058 + T1000059) + Gt111*T1000095 + + T1000104 + T1000105) + 2*gtu21* + (2*Gt123*gt12L*Gt211 + gt12L*Gt213*Gt323 + + gt11L*(2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + T1000026 + + T1000027 + T1000028 + T1000049 + T1000050 + T1000051 + T1000052 + + T1000053 + T1000054 + T1000055 + T1000056 + + Gt111*(T1000038 + T1000039 + T1000060) + T1000098 + T1000101 + + T1000102 + T1000108 + T1000109) + + 2*gtu22*(2*Gt123*gt12L*Gt212 + 3*Gt123*gt13L*Gt312 + gt12L*Gt223*Gt323 + + gt11L*(2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + + 2*Gt312*Gt323*gt33L + T1000034 + T1000036 + T1000061 + T1000062 + + T1000064 + Gt112*(T1000038 + T1000039 + T1000065 + T1000066) + + T1000111 + T1000112 + T1000117 + T1000118 + T1000127) + + 2*gtu32*(Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + Gt212*gt22L*Gt233 + + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + 2*Gt133*gt13L*Gt312 + + Gt123*gt13L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + + gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + + Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + T1000074 + T1000075 + + Gt112*T1000079 + T1000080 + T1000082 + T1000085 + T1000132) + + 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + + Gt213*Gt223*gt22L + gt12L*Gt233*Gt323 + + gt11L*(2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + T1000074 + + T1000075 + T1000080 + gt12L*T1000081 + T1000082 + T1000083 + + T1000084 + T1000085 + Gt112*T1000088 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000138) + + 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + + gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + Gt213*Gt223*gt23L + + 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + + gt11L*Gt133*Gt333 + gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + + Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + gt13L*T1000041 + + Gt113*(T1000076 + T1000077 + T1000078 + T1000086 + T1000087) + + gt13L*T1000145) + (Gt113*gt11L + T1000089 + T1000090)*Xt1L + + (Gt111*gt13L + T1000091 + T1000092)*Xt1L + T1000094*Xt2L + + T1000095*Xt2L + (gt11L*Gt133 + T1000077 + T1000078)*Xt3L + T1000088*Xt3L); + + Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - + 2*gtu31*PDstandardNth13gt23 - gtu22*PDstandardNth22gt23 - + 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + + gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3 - + gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + + gt22L*PDstandardNth3Xt2 + gt23L*PDstandardNth3Xt3 + + 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + + Gt123*gt12L*Gt222 + Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + + Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + + Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + + Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + Gt223*gt22L*Gt323 + + Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + + 2*Gt322*Gt323*gt33L + gt23L*T1000063 + gt23L*T1000096) + + 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + + 2*Gt212*Gt213*gt22L + 3*Gt213*gt23L*Gt312 + Gt113*gt12L*Gt313 + + 2*Gt312*Gt313*gt33L + T1000057 + T1000097 + T1000098 + T1000099 + + T1000100 + T1000101 + T1000102 + T1000103 + T1000104 + T1000105 + + T1000106 + T1000107 + T1000108 + T1000109) + + 2*gtu21*(Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + Gt123*Gt211*gt22L + + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + Gt123*gt23L*Gt311 + + Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + + Gt122*Gt311*gt33L + Gt222*Gt312*gt33L + T1000035 + T1000036 + + T1000110 + T1000111 + T1000112 + T1000113 + T1000114 + T1000115 + + T1000116 + T1000122) + 2*gtu21* + (Gt113*gt11L*Gt122 + 2*Gt213*Gt222*gt22L + Gt123*gt12L*Gt313 + + Gt122*gt13L*Gt313 + 2*Gt213*gt23L*Gt322 + + Gt112*(T1000029 + T1000065 + T1000066) + T1000111 + T1000113 + + T1000114 + T1000115 + T1000116 + T1000117 + T1000118 + T1000119 + + T1000120 + T1000121 + T1000122 + T1000123 + T1000124 + T1000125 + + T1000126 + T1000127) + 2*gtu31* + (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + + gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + + 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + + Gt133*gt23L*Gt311 + 2*Gt233*gt23L*Gt312 + Gt113*gt12L*Gt333 + + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + Gt123*Gt311*gt33L + + Gt223*Gt312*gt33L + T1000080 + T1000085 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000132 + T1000133) + + 2*gtu31*(Gt112*Gt213*gt23L + gt12L*Gt133*Gt313 + + Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + Gt112*Gt313*gt33L + + T1000074 + T1000080 + T1000082 + T1000085 + + Gt113*(T1000030 + T1000031 + T1000038 + T1000039 + T1000060 + + T1000093) + T1000128 + T1000129 + T1000133 + T1000134 + T1000135 + + T1000136 + T1000137 + T1000138) + + 2*gtu32*(gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + + gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + Gt133*Gt212*gt22L + + 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + + Gt133*gt23L*Gt312 + 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + + Gt223*gt23L*Gt323 + Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + + Gt223*gt22L*Gt333 + Gt222*gt23L*Gt333 + Gt123*Gt312*gt33L + + Gt223*Gt322*gt33L + T1000140 + T1000141 + T1000142 + T1000143 + + T1000144) + 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + + Gt123*gt13L*Gt222 + 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + + Gt122*Gt213*gt23L + Gt123*gt23L*Gt313 + Gt233*gt23L*Gt322 + + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + gt22L*Gt233*Gt323 + + 3*Gt223*gt23L*Gt323 + Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + + 2*gt22L*T1000081 + gt11L*T1000139 + T1000140 + T1000141 + T1000142 + + T1000143 + T1000144) + 2*gtu33* + (gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + + gt12L*Gt133*Gt223 + Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + + 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + + Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + + gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + gt22L*Gt233*Gt333 + + Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + + 2*Gt323*Gt333*gt33L + gt23L*T1000081 + gt23L*T1000145) + + T1000032*Xt1L + T1000095*Xt1L + + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xt2L + + (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xt2L + + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xt3L + + (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xt3L); + + R11 = Rphi11 + Rt11; + + R22 = Rphi22 + Rt22; + + R33 = Rphi33 + Rt33; + + R12 = Rphi12 + Rt12; + + R13 = Rphi13 + Rt13; + + R23 = Rphi23 + Rt23; + + trR = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + gu32*R23) + gu33*R33; - cAL = At11L*gtu11 + At22L*gtu22 + 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + At33L*gtu33; + HL = -2*(Atm12*Atm21 + Atm13*Atm31 + Atm23*Atm32) + trR - SQR(Atm11) - + SQR(Atm22) - SQR(Atm33) + ktwothird*SQR(trKL); /* Copy local copies back to grid functions */ @@ -846,8 +1295,8 @@ void ML_BSSNW_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_RE void ML_BSSNW_constraints(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSNW_constraints_Body); } diff --git a/ML_BSSNW/src/ML_BSSNW_constraints_boundary.c b/ML_BSSNW/src/ML_BSSNW_constraints_boundary.c index 88d2d76..25dbcea 100644 --- a/ML_BSSNW/src/ML_BSSNW_constraints_boundary.c +++ b/ML_BSSNW/src/ML_BSSNW_constraints_boundary.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_constraints_boundary_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_constraints_boundary_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_constraints_boundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -142,8 +145,8 @@ void ML_BSSNW_constraints_boundary_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face void ML_BSSNW_constraints_boundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_BSSNW_constraints_boundary_Body); } diff --git a/ML_BSSNW/src/ML_BSSNW_convertFromADMBase.c b/ML_BSSNW/src/ML_BSSNW_convertFromADMBase.c index 4dfedac..c420a13 100644 --- a/ML_BSSNW/src/ML_BSSNW_convertFromADMBase.c +++ b/ML_BSSNW/src/ML_BSSNW_convertFromADMBase.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_convertFromADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_convertFromADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_convertFromADMBase, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -175,22 +178,50 @@ void ML_BSSNW_convertFromADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, g33 = gzzL; - detg = 2*g12*g13*g23 + g33*(g11*g22 - SQR(g12)) - g22*SQR(g13) - g11*SQR(g23); + K11 = kxxL; + + K12 = kxyL; + + K13 = kxzL; + + K22 = kyyL; + + K23 = kyzL; + + K33 = kzzL; - gu11 = INV(detg)*(g22*g33 - SQR(g23)); + alphaL = alpL; + + beta1L = betaxL; - gu21 = (g13*g23 - g12*g33)*INV(detg); + beta2L = betayL; + + beta3L = betazL; - gu31 = (-(g13*g22) + g12*g23)*INV(detg); + CCTK_REAL const T1000001 = SQR(g23); - gu22 = INV(detg)*(g11*g33 - SQR(g13)); + CCTK_REAL const T1000003 = SQR(g13); - gu32 = (g12*g13 - g11*g23)*INV(detg); + CCTK_REAL const T1000004 = SQR(g12); - gu33 = INV(detg)*(g11*g22 - SQR(g12)); + detg = 2*g12*g13*g23 + g11*(g22*g33 - T1000001) - g22*T1000003 - g33*T1000004; + + CCTK_REAL const T1000002 = INV(detg); WL = pow(detg,-0.16666666666666666); + gu11 = (g22*g33 - T1000001)*T1000002; + + gu21 = (g13*g23 - g12*g33)*T1000002; + + gu31 = (-(g13*g22) + g12*g23)*T1000002; + + gu22 = T1000002*(g11*g33 - T1000003); + + gu32 = (g12*g13 - g11*g23)*T1000002; + + gu33 = T1000002*(g11*g22 - T1000004); + W2 = SQR(WL); gt11L = g11*W2; @@ -205,18 +236,6 @@ void ML_BSSNW_convertFromADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, gt33L = g33*W2; - K11 = kxxL; - - K12 = kxyL; - - K13 = kxzL; - - K22 = kyyL; - - K23 = kyzL; - - K33 = kzzL; - trKL = gu11*K11 + gu22*K22 + 2*(gu21*K12 + gu31*K13 + gu32*K23) + gu33*K33; At11L = (K11 - g11*kthird*trKL)*W2; @@ -231,14 +250,6 @@ void ML_BSSNW_convertFromADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, At33L = (K33 - g33*kthird*trKL)*W2; - alphaL = alpL; - - beta1L = betaxL; - - beta2L = betayL; - - beta3L = betazL; - /* Copy local copies back to grid functions */ alpha[index] = alphaL; @@ -267,8 +278,8 @@ void ML_BSSNW_convertFromADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, void ML_BSSNW_convertFromADMBase(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_BSSNW_convertFromADMBase_Body); } diff --git a/ML_BSSNW/src/ML_BSSNW_convertFromADMBaseGamma.c b/ML_BSSNW/src/ML_BSSNW_convertFromADMBaseGamma.c index f0b7eae..7cbaf2d 100644 --- a/ML_BSSNW/src/ML_BSSNW_convertFromADMBaseGamma.c +++ b/ML_BSSNW/src/ML_BSSNW_convertFromADMBaseGamma.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_convertFromADMBaseGamma_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_convertFromADMBaseGamma_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT f pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_convertFromADMBaseGamma, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -221,105 +224,142 @@ void ML_BSSNW_convertFromADMBaseGamma_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT f /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ - betam1 = khalf*(beta1L - Abs(beta1L)); + CCTK_REAL const T1000001 = Abs(beta1L); - betam2 = khalf*(beta2L - Abs(beta2L)); + CCTK_REAL const T1000002 = Abs(beta2L); - betam3 = khalf*(beta3L - Abs(beta3L)); + CCTK_REAL const T1000003 = Abs(beta3L); - betap1 = khalf*(beta1L + Abs(beta1L)); + CCTK_REAL const T1000005 = -PDstandardNth3gt12; - betap2 = khalf*(beta2L + Abs(beta2L)); + CCTK_REAL const T1000007 = -PDstandardNth2gt13; - betap3 = khalf*(beta3L + Abs(beta3L)); + CCTK_REAL const T1000009 = -PDstandardNth1gt23; + + CCTK_REAL const T1000011 = INV(ShiftGammaCoeff); detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + AL = -(dtalpL*(-1 + LapseAdvectionCoeff)*INV(harmonicF)*pow(alphaL,-harmonicN)); + + CCTK_REAL const T1000004 = INV(detgt); + + CCTK_REAL const T1000006 = PDstandardNth1gt23 + PDstandardNth2gt13 + T1000005; + + CCTK_REAL const T1000008 = PDstandardNth1gt23 + PDstandardNth3gt12 + T1000007; + + CCTK_REAL const T1000010 = PDstandardNth2gt13 + PDstandardNth3gt12 + T1000009; + + betam1 = khalf*(beta1L - T1000001); + + betam2 = khalf*(beta2L - T1000002); + + betam3 = khalf*(beta3L - T1000003); + + betap1 = khalf*(beta1L + T1000001); + + betap2 = khalf*(beta2L + T1000002); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + betap3 = khalf*(beta3L + T1000003); - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + gtu11 = T1000004*(gt22L*gt33L - SQR(gt23L)); - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000004; - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000004; - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + gtu22 = T1000004*(gt11L*gt33L - SQR(gt13L)); - Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000004; + + gtu33 = T1000004*(gt11L*gt22L - SQR(gt12L)); + + B1L = (dtbetaxL - (betam1*PDupwindmNth1beta1 + betam2*PDupwindmNth2beta1 + + betam3*PDupwindmNth3beta1 + betap1*PDupwindpNth1beta1 + + betap2*PDupwindpNth2beta1 + betap3*PDupwindpNth3beta1)* + ShiftAdvectionCoeff)*T1000011; + + B2L = (dtbetayL - (betam1*PDupwindmNth1beta2 + betam2*PDupwindmNth2beta2 + + betam3*PDupwindmNth3beta2 + betap1*PDupwindpNth1beta2 + + betap2*PDupwindpNth2beta2 + betap3*PDupwindpNth3beta2)* + ShiftAdvectionCoeff)*T1000011; + + B3L = (dtbetazL - (betam1*PDupwindmNth1beta3 + betam2*PDupwindmNth2beta3 + + betam3*PDupwindmNth3beta3 + betap1*PDupwindpNth1beta3 + + betap2*PDupwindpNth2beta3 + betap3*PDupwindpNth3beta3)* + ShiftAdvectionCoeff)*T1000011; + + Gt111 = khalf*(gtu11*PDstandardNth1gt11 + + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - gtu21*PDstandardNth2gt11 - gtu31*PDstandardNth3gt11); - Gt211 = khalf*(gtu21*PDstandardNth1gt11 + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - + Gt211 = khalf*(gtu21*PDstandardNth1gt11 + + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - gtu22*PDstandardNth2gt11 - gtu32*PDstandardNth3gt11); - Gt311 = khalf*(gtu31*PDstandardNth1gt11 + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - + Gt311 = khalf*(gtu31*PDstandardNth1gt11 + + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu31*T1000006); Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu32*T1000006); Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu33*T1000006); Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu21*T1000008); Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu22*T1000008); Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu32*T1000008); - Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + + Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + + gtu21*PDstandardNth2gt22 + gtu31*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu22*PDstandardNth2gt22 + + Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + + gtu22*PDstandardNth2gt22 + gtu32*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu32*PDstandardNth2gt22 + + Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + + gtu32*PDstandardNth2gt22 + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu21*PDstandardNth3gt22 + + gtu11*T1000010); - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu22*PDstandardNth3gt22 + + gtu21*T1000010); - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu32*PDstandardNth3gt22 + + gtu31*T1000010); - Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + - 2*gtu21*PDstandardNth3gt23 + gtu31*PDstandardNth3gt33); + Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + + 2*gtu11*PDstandardNth3gt13 + 2*gtu21*PDstandardNth3gt23 + + gtu31*PDstandardNth3gt33); - Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + 2*gtu21*PDstandardNth3gt13 + - 2*gtu22*PDstandardNth3gt23 + gtu32*PDstandardNth3gt33); + Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + + 2*gtu21*PDstandardNth3gt13 + 2*gtu22*PDstandardNth3gt23 + + gtu32*PDstandardNth3gt33); - Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + 2*gtu31*PDstandardNth3gt13 + - 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); - - Xt1L = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; - - Xt2L = Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; - - Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; - - AL = -(dtalpL*(-1 + LapseAdvectionCoeff)*INV(harmonicF)*pow(alphaL,-harmonicN)); + Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + + 2*gtu31*PDstandardNth3gt13 + 2*gtu32*PDstandardNth3gt23 + + gtu33*PDstandardNth3gt33); - B1L = (dtbetaxL - (betam1*PDupwindmNth1beta1 + betam2*PDupwindmNth2beta1 + betam3*PDupwindmNth3beta1 + - betap1*PDupwindpNth1beta1 + betap2*PDupwindpNth2beta1 + betap3*PDupwindpNth3beta1)*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff); + Xt1L = Gt111*gtu11 + Gt122*gtu22 + + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; - B2L = (dtbetayL - (betam1*PDupwindmNth1beta2 + betam2*PDupwindmNth2beta2 + betam3*PDupwindmNth3beta2 + - betap1*PDupwindpNth1beta2 + betap2*PDupwindpNth2beta2 + betap3*PDupwindpNth3beta2)*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff); + Xt2L = Gt211*gtu11 + Gt222*gtu22 + + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; - B3L = (dtbetazL - (betam1*PDupwindmNth1beta3 + betam2*PDupwindmNth2beta3 + betam3*PDupwindmNth3beta3 + - betap1*PDupwindpNth1beta3 + betap2*PDupwindpNth2beta3 + betap3*PDupwindpNth3beta3)*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff); + Xt3L = Gt311*gtu11 + Gt322*gtu22 + + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; /* Copy local copies back to grid functions */ @@ -338,8 +378,8 @@ void ML_BSSNW_convertFromADMBaseGamma_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT f void ML_BSSNW_convertFromADMBaseGamma(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSNW_convertFromADMBaseGamma_Body); } diff --git a/ML_BSSNW/src/ML_BSSNW_convertToADMBase.c b/ML_BSSNW/src/ML_BSSNW_convertToADMBase.c index 337396a..2d10bb2 100644 --- a/ML_BSSNW/src/ML_BSSNW_convertToADMBase.c +++ b/ML_BSSNW/src/ML_BSSNW_convertToADMBase.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_convertToADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_convertToADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CC pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_convertToADMBase, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -197,19 +200,33 @@ void ML_BSSNW_convertToADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CC /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ - betam1 = khalf*(beta1L - Abs(beta1L)); + CCTK_REAL const T1000001 = Abs(beta1L); - betam2 = khalf*(beta2L - Abs(beta2L)); + CCTK_REAL const T1000002 = Abs(beta2L); - betam3 = khalf*(beta3L - Abs(beta3L)); + CCTK_REAL const T1000003 = Abs(beta3L); - betap1 = khalf*(beta1L + Abs(beta1L)); + invW2 = pow(WL,-2); - betap2 = khalf*(beta2L + Abs(beta2L)); + alpL = alphaL; - betap3 = khalf*(beta3L + Abs(beta3L)); + betaxL = beta1L; - invW2 = pow(WL,-2); + betayL = beta2L; + + betazL = beta3L; + + betam1 = khalf*(beta1L - T1000001); + + betam2 = khalf*(beta2L - T1000002); + + betam3 = khalf*(beta3L - T1000003); + + betap1 = khalf*(beta1L + T1000001); + + betap2 = khalf*(beta2L + T1000002); + + betap3 = khalf*(beta3L + T1000003); g11 = gt11L*invW2; @@ -223,6 +240,18 @@ void ML_BSSNW_convertToADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CC g33 = gt33L*invW2; + CCTK_REAL const T1000004 = betam1*PDupwindmNth1beta1; + + CCTK_REAL const T1000005 = betam2*PDupwindmNth2beta1; + + CCTK_REAL const T1000006 = betam3*PDupwindmNth3beta1; + + CCTK_REAL const T1000007 = betap1*PDupwindpNth1beta1; + + CCTK_REAL const T1000008 = betap2*PDupwindpNth2beta1; + + CCTK_REAL const T1000009 = betap3*PDupwindpNth3beta1; + gxxL = g11; gxyL = g12; @@ -247,6 +276,16 @@ void ML_BSSNW_convertToADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CC K33 = At33L*invW2 + g33*kthird*trKL; + dtalpL = LapseAdvectionCoeff*(betam1*PDupwindmNth1alpha + + betam2*PDupwindmNth2alpha + betam3*PDupwindmNth3alpha + + betap1*PDupwindpNth1alpha + betap2*PDupwindpNth2alpha + + betap3*PDupwindpNth3alpha) + + harmonicF*(AL*(-1 + LapseAdvectionCoeff) - LapseAdvectionCoeff*trKL)* + pow(alphaL,harmonicN); + + CCTK_REAL const T1000010 = + T1000004 + T1000005 + T1000006 + T1000007 + T1000008 + T1000009; + kxxL = K11; kxyL = K12; @@ -259,29 +298,13 @@ void ML_BSSNW_convertToADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CC kzzL = K33; - alpL = alphaL; - - betaxL = beta1L; - - betayL = beta2L; - - betazL = beta3L; - - dtalpL = LapseAdvectionCoeff*(betam1*PDupwindmNth1alpha + betam2*PDupwindmNth2alpha + betam3*PDupwindmNth3alpha + - betap1*PDupwindpNth1alpha + betap2*PDupwindpNth2alpha + betap3*PDupwindpNth3alpha) + - harmonicF*(AL*(-1 + LapseAdvectionCoeff) - LapseAdvectionCoeff*trKL)*pow(alphaL,harmonicN); + CCTK_REAL const T1000011 = ShiftAdvectionCoeff*T1000010; - dtbetaxL = (betam1*PDupwindmNth1beta1 + betam2*PDupwindmNth2beta1 + betam3*PDupwindmNth3beta1 + - betap1*PDupwindpNth1beta1 + betap2*PDupwindpNth2beta1 + betap3*PDupwindpNth3beta1)*ShiftAdvectionCoeff + - B1L*ShiftGammaCoeff; + dtbetaxL = B1L*ShiftGammaCoeff + T1000011; - dtbetayL = (betam1*PDupwindmNth1beta1 + betam2*PDupwindmNth2beta1 + betam3*PDupwindmNth3beta1 + - betap1*PDupwindpNth1beta1 + betap2*PDupwindpNth2beta1 + betap3*PDupwindpNth3beta1)*ShiftAdvectionCoeff + - B2L*ShiftGammaCoeff; + dtbetayL = B2L*ShiftGammaCoeff + T1000011; - dtbetazL = (betam1*PDupwindmNth1beta1 + betam2*PDupwindmNth2beta1 + betam3*PDupwindmNth3beta1 + - betap1*PDupwindpNth1beta1 + betap2*PDupwindpNth2beta1 + betap3*PDupwindpNth3beta1)*ShiftAdvectionCoeff + - B3L*ShiftGammaCoeff; + dtbetazL = B3L*ShiftGammaCoeff + T1000011; /* Copy local copies back to grid functions */ @@ -313,8 +336,8 @@ void ML_BSSNW_convertToADMBase_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CC void ML_BSSNW_convertToADMBase(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSNW_convertToADMBase_Body); } diff --git a/ML_BSSNW/src/ML_BSSNW_enforce.c b/ML_BSSNW/src/ML_BSSNW_enforce.c index fbecc57..70b5e11 100644 --- a/ML_BSSNW/src/ML_BSSNW_enforce.c +++ b/ML_BSSNW/src/ML_BSSNW_enforce.c @@ -1,11 +1,14 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ #define KRANC_C +#include <assert.h> #include <math.h> +#include <stdio.h> +#include <stdlib.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -20,10 +23,10 @@ #define CUB(x) ((x) * (x) * (x)) #define QAD(x) ((x) * (x) * (x) * (x)) -void ML_BSSNW_enforce_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal[3], CCTK_REAL tangentA[3], CCTK_REAL tangentB[3], CCTK_INT min[3], CCTK_INT max[3], CCTK_INT n_subblock_gfs, CCTK_REAL *subblock_gfs[]) +void ML_BSSNW_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -90,10 +93,10 @@ void ML_BSSNW_enforce_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL n pm1o12dz2 = -pow(dz,-2)/12.; /* Loop over the grid points */ - _Pragma ("omp parallel") + #pragma omp parallel LC_LOOP3 (ML_BSSNW_enforce, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -137,19 +140,22 @@ void ML_BSSNW_enforce_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL n /* Calculate temporaries and grid functions */ detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + CCTK_REAL const T1000001 = INV(detgt); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; - trAt = At11L*gtu11 + At22L*gtu22 + 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + At33L*gtu33; + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); + + trAt = At11L*gtu11 + At22L*gtu22 + + 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + At33L*gtu33; At11L = At11L - gt11L*kthird*trAt; @@ -179,8 +185,8 @@ void ML_BSSNW_enforce_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL n void ML_BSSNW_enforce(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_BSSNW_enforce_Body); } diff --git a/ML_BSSNW/src/RegisterMoL.c b/ML_BSSNW/src/RegisterMoL.c index 2634923..cd6617e 100644 --- a/ML_BSSNW/src/RegisterMoL.c +++ b/ML_BSSNW/src/RegisterMoL.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -9,8 +9,8 @@ void ML_BSSNW_RegisterVars(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; CCTK_INT ierr = 0; diff --git a/ML_BSSNW/src/RegisterSymmetries.c b/ML_BSSNW/src/RegisterSymmetries.c index c2b840d..267aa55 100644 --- a/ML_BSSNW/src/RegisterSymmetries.c +++ b/ML_BSSNW/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -10,8 +10,8 @@ void ML_BSSNW_RegisterSymmetries(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* array holding symmetry definitions */ diff --git a/ML_BSSNW/src/Startup.c b/ML_BSSNW/src/Startup.c index f8fb377..a11caf1 100644 --- a/ML_BSSNW/src/Startup.c +++ b/ML_BSSNW/src/Startup.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSNW/src/make.code.defn b/ML_BSSNW/src/make.code.defn index 4142b3f..c59ec5d 100644 --- a/ML_BSSNW/src/make.code.defn +++ b/ML_BSSNW/src/make.code.defn @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa |