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 /ML_BSSNW | |
parent | 2ca9b048d3710cab763737790679bcc68a3bf122 (diff) |
Resolve merge commits
Diffstat (limited to 'ML_BSSNW')
-rw-r--r-- | ML_BSSNW/configuration.ccl | 4 | ||||
-rw-r--r-- | ML_BSSNW/interface.ccl | 7 | ||||
-rw-r--r-- | ML_BSSNW/param.ccl | 15 | ||||
-rw-r--r-- | ML_BSSNW/schedule.ccl | 6 | ||||
-rw-r--r-- | ML_BSSNW/src/Boundaries.c | 12 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_ADMBaseBoundary.c | 21 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_Minkowski.c | 21 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_RHS.c | 1659 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_boundary.c | 21 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_constraints.c | 1255 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_constraints_boundary.c | 21 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_convertFromADMBase.c | 83 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_convertFromADMBaseGamma.c | 164 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_convertToADMBase.c | 95 | ||||
-rw-r--r-- | ML_BSSNW/src/ML_BSSNW_enforce.c | 38 | ||||
-rw-r--r-- | ML_BSSNW/src/RegisterMoL.c | 8 | ||||
-rw-r--r-- | ML_BSSNW/src/RegisterSymmetries.c | 8 | ||||
-rw-r--r-- | ML_BSSNW/src/Startup.c | 4 | ||||
-rw-r--r-- | ML_BSSNW/src/make.code.defn | 4 |
19 files changed, 2250 insertions, 1196 deletions
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 |