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_BSSN | |
parent | 2ca9b048d3710cab763737790679bcc68a3bf122 (diff) |
Resolve merge commits
Diffstat (limited to 'ML_BSSN')
-rw-r--r-- | ML_BSSN/configuration.ccl | 4 | ||||
-rw-r--r-- | ML_BSSN/interface.ccl | 4 | ||||
-rw-r--r-- | ML_BSSN/param.ccl | 4 | ||||
-rw-r--r-- | ML_BSSN/schedule.ccl | 4 | ||||
-rw-r--r-- | ML_BSSN/src/Boundaries.c | 12 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c | 14 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_Minkowski.c | 14 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_RHS.c | 1752 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_RHSBoundary.c | 52 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_boundary.c | 14 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_constraints.c | 1319 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_constraints_boundary.c | 14 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_convertFromADMBase.c | 76 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c | 109 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_convertToADMBase.c | 28 | ||||
-rw-r--r-- | ML_BSSN/src/ML_BSSN_enforce.c | 28 | ||||
-rw-r--r-- | ML_BSSN/src/RegisterMoL.c | 8 | ||||
-rw-r--r-- | ML_BSSN/src/RegisterSymmetries.c | 8 | ||||
-rw-r--r-- | ML_BSSN/src/Startup.c | 4 | ||||
-rw-r--r-- | ML_BSSN/src/make.code.defn | 4 |
20 files changed, 1931 insertions, 1541 deletions
diff --git a/ML_BSSN/configuration.ccl b/ML_BSSN/configuration.ccl index 006249a..c4e15c5 100644 --- a/ML_BSSN/configuration.ccl +++ b/ML_BSSN/configuration.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/interface.ccl b/ML_BSSN/interface.ccl index e95bb1a..bc4e88e 100644 --- a/ML_BSSN/interface.ccl +++ b/ML_BSSN/interface.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/param.ccl b/ML_BSSN/param.ccl index b4b7a2e..82a9c5a 100644 --- a/ML_BSSN/param.ccl +++ b/ML_BSSN/param.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/schedule.ccl b/ML_BSSN/schedule.ccl index 390d607..7be8894 100644 --- a/ML_BSSN/schedule.ccl +++ b/ML_BSSN/schedule.ccl @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa diff --git a/ML_BSSN/src/Boundaries.c b/ML_BSSN/src/Boundaries.c index 3d91f94..064b986 100644 --- a/ML_BSSN/src/Boundaries.c +++ b/ML_BSSN/src/Boundaries.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -22,16 +22,16 @@ void ML_BSSN_CheckBoundaries(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; return; } void ML_BSSN_ApplyBoundConds(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; CCTK_INT ierr = 0; diff --git a/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c b/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c index 2814b68..7533696 100644 --- a/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c +++ b/ML_BSSN/src/ML_BSSN_ADMBaseBoundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, #pragma omp parallel LC_LOOP3 (ML_BSSN_ADMBaseBoundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -277,8 +277,8 @@ void ML_BSSN_ADMBaseBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, void ML_BSSN_ADMBaseBoundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_BSSN_ADMBaseBoundary_Body); } diff --git a/ML_BSSN/src/ML_BSSN_Minkowski.c b/ML_BSSN/src/ML_BSSN_Minkowski.c index 1cfc3e1..a2c6090 100644 --- a/ML_BSSN/src/ML_BSSN_Minkowski.c +++ b/ML_BSSN/src/ML_BSSN_Minkowski.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_I #pragma omp parallel LC_LOOP3 (ML_BSSN_Minkowski, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -221,8 +221,8 @@ void ML_BSSN_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_I void ML_BSSN_Minkowski(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_Minkowski_Body); } diff --git a/ML_BSSN/src/ML_BSSN_RHS.c b/ML_BSSN/src/ML_BSSN_RHS.c index a3e200e..0841e33 100644 --- a/ML_BSSN/src/ML_BSSN_RHS.c +++ b/ML_BSSN/src/ML_BSSN_RHS.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con #pragma omp parallel LC_LOOP3 (ML_BSSN_RHS, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -165,40 +165,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33alpha = INITVALUE; CCTK_REAL PDstandardNth12alpha = INITVALUE; CCTK_REAL PDstandardNth13alpha = INITVALUE; - CCTK_REAL PDstandardNth21alpha = INITVALUE; CCTK_REAL PDstandardNth23alpha = INITVALUE; - CCTK_REAL PDstandardNth31alpha = INITVALUE; - CCTK_REAL PDstandardNth32alpha = INITVALUE; - CCTK_REAL PDupwindNth1alpha = INITVALUE; - CCTK_REAL PDupwindNth2alpha = INITVALUE; - CCTK_REAL PDupwindNth3alpha = INITVALUE; - CCTK_REAL PDupwindNth1At11 = INITVALUE; - CCTK_REAL PDupwindNth2At11 = INITVALUE; - CCTK_REAL PDupwindNth3At11 = INITVALUE; - CCTK_REAL PDupwindNth1At12 = INITVALUE; - CCTK_REAL PDupwindNth2At12 = INITVALUE; - CCTK_REAL PDupwindNth3At12 = INITVALUE; - CCTK_REAL PDupwindNth1At13 = INITVALUE; - CCTK_REAL PDupwindNth2At13 = INITVALUE; - CCTK_REAL PDupwindNth3At13 = INITVALUE; - CCTK_REAL PDupwindNth1At22 = INITVALUE; - CCTK_REAL PDupwindNth2At22 = INITVALUE; - CCTK_REAL PDupwindNth3At22 = INITVALUE; - CCTK_REAL PDupwindNth1At23 = INITVALUE; - CCTK_REAL PDupwindNth2At23 = INITVALUE; - CCTK_REAL PDupwindNth3At23 = INITVALUE; - CCTK_REAL PDupwindNth1At33 = INITVALUE; - CCTK_REAL PDupwindNth2At33 = INITVALUE; - CCTK_REAL PDupwindNth3At33 = INITVALUE; - CCTK_REAL PDupwindNth1B1 = INITVALUE; - CCTK_REAL PDupwindNth2B1 = INITVALUE; - CCTK_REAL PDupwindNth3B1 = INITVALUE; - CCTK_REAL PDupwindNth1B2 = INITVALUE; - CCTK_REAL PDupwindNth2B2 = INITVALUE; - CCTK_REAL PDupwindNth3B2 = INITVALUE; - CCTK_REAL PDupwindNth1B3 = INITVALUE; - CCTK_REAL PDupwindNth2B3 = INITVALUE; - CCTK_REAL PDupwindNth3B3 = INITVALUE; CCTK_REAL PDstandardNth1beta1 = INITVALUE; CCTK_REAL PDstandardNth2beta1 = INITVALUE; CCTK_REAL PDstandardNth3beta1 = INITVALUE; @@ -207,13 +174,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33beta1 = INITVALUE; CCTK_REAL PDstandardNth12beta1 = INITVALUE; CCTK_REAL PDstandardNth13beta1 = INITVALUE; - CCTK_REAL PDstandardNth21beta1 = INITVALUE; CCTK_REAL PDstandardNth23beta1 = INITVALUE; - CCTK_REAL PDstandardNth31beta1 = INITVALUE; - CCTK_REAL PDstandardNth32beta1 = INITVALUE; - CCTK_REAL PDupwindNth1beta1 = INITVALUE; - CCTK_REAL PDupwindNth2beta1 = INITVALUE; - CCTK_REAL PDupwindNth3beta1 = INITVALUE; CCTK_REAL PDstandardNth1beta2 = INITVALUE; CCTK_REAL PDstandardNth2beta2 = INITVALUE; CCTK_REAL PDstandardNth3beta2 = INITVALUE; @@ -222,13 +183,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33beta2 = INITVALUE; CCTK_REAL PDstandardNth12beta2 = INITVALUE; CCTK_REAL PDstandardNth13beta2 = INITVALUE; - CCTK_REAL PDstandardNth21beta2 = INITVALUE; CCTK_REAL PDstandardNth23beta2 = INITVALUE; - CCTK_REAL PDstandardNth31beta2 = INITVALUE; - CCTK_REAL PDstandardNth32beta2 = INITVALUE; - CCTK_REAL PDupwindNth1beta2 = INITVALUE; - CCTK_REAL PDupwindNth2beta2 = INITVALUE; - CCTK_REAL PDupwindNth3beta2 = INITVALUE; CCTK_REAL PDstandardNth1beta3 = INITVALUE; CCTK_REAL PDstandardNth2beta3 = INITVALUE; CCTK_REAL PDstandardNth3beta3 = INITVALUE; @@ -237,13 +192,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33beta3 = INITVALUE; CCTK_REAL PDstandardNth12beta3 = INITVALUE; CCTK_REAL PDstandardNth13beta3 = INITVALUE; - CCTK_REAL PDstandardNth21beta3 = INITVALUE; CCTK_REAL PDstandardNth23beta3 = INITVALUE; - CCTK_REAL PDstandardNth31beta3 = INITVALUE; - CCTK_REAL PDstandardNth32beta3 = INITVALUE; - CCTK_REAL PDupwindNth1beta3 = INITVALUE; - CCTK_REAL PDupwindNth2beta3 = INITVALUE; - CCTK_REAL PDupwindNth3beta3 = INITVALUE; CCTK_REAL PDstandardNth1gt11 = INITVALUE; CCTK_REAL PDstandardNth2gt11 = INITVALUE; CCTK_REAL PDstandardNth3gt11 = INITVALUE; @@ -252,13 +201,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt11 = INITVALUE; CCTK_REAL PDstandardNth12gt11 = INITVALUE; CCTK_REAL PDstandardNth13gt11 = INITVALUE; - CCTK_REAL PDstandardNth21gt11 = INITVALUE; CCTK_REAL PDstandardNth23gt11 = INITVALUE; - CCTK_REAL PDstandardNth31gt11 = INITVALUE; - CCTK_REAL PDstandardNth32gt11 = INITVALUE; - CCTK_REAL PDupwindNth1gt11 = INITVALUE; - CCTK_REAL PDupwindNth2gt11 = INITVALUE; - CCTK_REAL PDupwindNth3gt11 = INITVALUE; CCTK_REAL PDstandardNth1gt12 = INITVALUE; CCTK_REAL PDstandardNth2gt12 = INITVALUE; CCTK_REAL PDstandardNth3gt12 = INITVALUE; @@ -267,13 +210,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt12 = INITVALUE; CCTK_REAL PDstandardNth12gt12 = INITVALUE; CCTK_REAL PDstandardNth13gt12 = INITVALUE; - CCTK_REAL PDstandardNth21gt12 = INITVALUE; CCTK_REAL PDstandardNth23gt12 = INITVALUE; - CCTK_REAL PDstandardNth31gt12 = INITVALUE; - CCTK_REAL PDstandardNth32gt12 = INITVALUE; - CCTK_REAL PDupwindNth1gt12 = INITVALUE; - CCTK_REAL PDupwindNth2gt12 = INITVALUE; - CCTK_REAL PDupwindNth3gt12 = INITVALUE; CCTK_REAL PDstandardNth1gt13 = INITVALUE; CCTK_REAL PDstandardNth2gt13 = INITVALUE; CCTK_REAL PDstandardNth3gt13 = INITVALUE; @@ -282,13 +219,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt13 = INITVALUE; CCTK_REAL PDstandardNth12gt13 = INITVALUE; CCTK_REAL PDstandardNth13gt13 = INITVALUE; - CCTK_REAL PDstandardNth21gt13 = INITVALUE; CCTK_REAL PDstandardNth23gt13 = INITVALUE; - CCTK_REAL PDstandardNth31gt13 = INITVALUE; - CCTK_REAL PDstandardNth32gt13 = INITVALUE; - CCTK_REAL PDupwindNth1gt13 = INITVALUE; - CCTK_REAL PDupwindNth2gt13 = INITVALUE; - CCTK_REAL PDupwindNth3gt13 = INITVALUE; CCTK_REAL PDstandardNth1gt22 = INITVALUE; CCTK_REAL PDstandardNth2gt22 = INITVALUE; CCTK_REAL PDstandardNth3gt22 = INITVALUE; @@ -297,13 +228,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt22 = INITVALUE; CCTK_REAL PDstandardNth12gt22 = INITVALUE; CCTK_REAL PDstandardNth13gt22 = INITVALUE; - CCTK_REAL PDstandardNth21gt22 = INITVALUE; CCTK_REAL PDstandardNth23gt22 = INITVALUE; - CCTK_REAL PDstandardNth31gt22 = INITVALUE; - CCTK_REAL PDstandardNth32gt22 = INITVALUE; - CCTK_REAL PDupwindNth1gt22 = INITVALUE; - CCTK_REAL PDupwindNth2gt22 = INITVALUE; - CCTK_REAL PDupwindNth3gt22 = INITVALUE; CCTK_REAL PDstandardNth1gt23 = INITVALUE; CCTK_REAL PDstandardNth2gt23 = INITVALUE; CCTK_REAL PDstandardNth3gt23 = INITVALUE; @@ -312,13 +237,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt23 = INITVALUE; CCTK_REAL PDstandardNth12gt23 = INITVALUE; CCTK_REAL PDstandardNth13gt23 = INITVALUE; - CCTK_REAL PDstandardNth21gt23 = INITVALUE; CCTK_REAL PDstandardNth23gt23 = INITVALUE; - CCTK_REAL PDstandardNth31gt23 = INITVALUE; - CCTK_REAL PDstandardNth32gt23 = INITVALUE; - CCTK_REAL PDupwindNth1gt23 = INITVALUE; - CCTK_REAL PDupwindNth2gt23 = INITVALUE; - CCTK_REAL PDupwindNth3gt23 = INITVALUE; CCTK_REAL PDstandardNth1gt33 = INITVALUE; CCTK_REAL PDstandardNth2gt33 = INITVALUE; CCTK_REAL PDstandardNth3gt33 = INITVALUE; @@ -327,13 +246,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33gt33 = INITVALUE; CCTK_REAL PDstandardNth12gt33 = INITVALUE; CCTK_REAL PDstandardNth13gt33 = INITVALUE; - CCTK_REAL PDstandardNth21gt33 = INITVALUE; CCTK_REAL PDstandardNth23gt33 = INITVALUE; - CCTK_REAL PDstandardNth31gt33 = INITVALUE; - CCTK_REAL PDstandardNth32gt33 = INITVALUE; - CCTK_REAL PDupwindNth1gt33 = INITVALUE; - CCTK_REAL PDupwindNth2gt33 = INITVALUE; - CCTK_REAL PDupwindNth3gt33 = INITVALUE; CCTK_REAL PDstandardNth1phi = INITVALUE; CCTK_REAL PDstandardNth2phi = INITVALUE; CCTK_REAL PDstandardNth3phi = INITVALUE; @@ -342,37 +255,19 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con CCTK_REAL PDstandardNth33phi = INITVALUE; CCTK_REAL PDstandardNth12phi = INITVALUE; CCTK_REAL PDstandardNth13phi = INITVALUE; - CCTK_REAL PDstandardNth21phi = INITVALUE; CCTK_REAL PDstandardNth23phi = INITVALUE; - CCTK_REAL PDstandardNth31phi = INITVALUE; - CCTK_REAL PDstandardNth32phi = INITVALUE; - CCTK_REAL PDupwindNth1phi = INITVALUE; - CCTK_REAL PDupwindNth2phi = INITVALUE; - CCTK_REAL PDupwindNth3phi = INITVALUE; CCTK_REAL PDstandardNth1trK = INITVALUE; CCTK_REAL PDstandardNth2trK = INITVALUE; CCTK_REAL PDstandardNth3trK = INITVALUE; - CCTK_REAL PDupwindNth1trK = INITVALUE; - CCTK_REAL PDupwindNth2trK = INITVALUE; - CCTK_REAL PDupwindNth3trK = INITVALUE; CCTK_REAL PDstandardNth1Xt1 = INITVALUE; CCTK_REAL PDstandardNth2Xt1 = INITVALUE; CCTK_REAL PDstandardNth3Xt1 = INITVALUE; - CCTK_REAL PDupwindNth1Xt1 = INITVALUE; - CCTK_REAL PDupwindNth2Xt1 = INITVALUE; - CCTK_REAL PDupwindNth3Xt1 = INITVALUE; CCTK_REAL PDstandardNth1Xt2 = INITVALUE; CCTK_REAL PDstandardNth2Xt2 = INITVALUE; CCTK_REAL PDstandardNth3Xt2 = INITVALUE; - CCTK_REAL PDupwindNth1Xt2 = INITVALUE; - CCTK_REAL PDupwindNth2Xt2 = INITVALUE; - CCTK_REAL PDupwindNth3Xt2 = INITVALUE; CCTK_REAL PDstandardNth1Xt3 = INITVALUE; CCTK_REAL PDstandardNth2Xt3 = INITVALUE; CCTK_REAL PDstandardNth3Xt3 = INITVALUE; - CCTK_REAL PDupwindNth1Xt3 = INITVALUE; - CCTK_REAL PDupwindNth2Xt3 = INITVALUE; - CCTK_REAL PDupwindNth3Xt3 = INITVALUE; /* Assign local copies of grid functions */ AL = A[index]; @@ -525,6 +420,43 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ + CCTK_REAL const T1000002 = -PDstandardNth3gt12; + + CCTK_REAL const T1000004 = -PDstandardNth2gt13; + + CCTK_REAL const T1000006 = -PDstandardNth1gt23; + + CCTK_REAL const T1000151 = SQR(PDstandardNth1phi); + + CCTK_REAL const T1000152 = SQR(PDstandardNth2phi); + + CCTK_REAL const T1000153 = SQR(PDstandardNth3phi); + + CCTK_REAL const T1000162 = 2*PDstandardNth3phi; + + CCTK_REAL const T1000163 = + PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3; + + CCTK_REAL const T1000164 = -1 + LapseAdvectionCoeff; + + False; + + False; + + False; + + False; + + False; + + False; + + False; + + False; + + False; + dir1 = Sign(beta1L); dir2 = Sign(beta2L); @@ -533,17 +465,123 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + e4phi = exp(4*phiL); + + phirhsL = (6*(PDupwindNth1(phi, i, j, k)*beta1L + + PDupwindNth2(phi, i, j, k)*beta2L + + PDupwindNth3(phi, i, j, k)*beta3L) + PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3 - alphaL*trKL)/6.; + + gt11rhsL = -2*alphaL*At11L + PDupwindNth1(gt11, i, j, k)*beta1L + + PDupwindNth2(gt11, i, j, k)*beta2L + + PDupwindNth3(gt11, i, j, k)*beta3L + + 2*(gt12L*PDstandardNth1beta2 + gt13L*PDstandardNth1beta3) + + gt11L*(kfourthird*PDstandardNth1beta1 - ktwothird*PDstandardNth2beta2 - + ktwothird*PDstandardNth3beta3); + + gt12rhsL = -2*alphaL*At12L + PDupwindNth1(gt12, i, j, k)*beta1L + + PDupwindNth2(gt12, i, j, k)*beta2L + + PDupwindNth3(gt12, i, j, k)*beta3L + gt22L*PDstandardNth1beta2 + + gt23L*PDstandardNth1beta3 + gt11L*PDstandardNth2beta1 + + gt13L*PDstandardNth2beta3 + gt12L* + (kthird*(PDstandardNth1beta1 + PDstandardNth2beta2) - + ktwothird*PDstandardNth3beta3); + + gt13rhsL = -2*alphaL*At13L + PDupwindNth1(gt13, i, j, k)*beta1L + + PDupwindNth2(gt13, i, j, k)*beta2L + + PDupwindNth3(gt13, i, j, k)*beta3L + gt23L*PDstandardNth1beta2 + + gt33L*PDstandardNth1beta3 + gt11L*PDstandardNth3beta1 + + gt12L*PDstandardNth3beta2 + gt13L* + (-(ktwothird*PDstandardNth2beta2) + + kthird*(PDstandardNth1beta1 + PDstandardNth3beta3)); + + gt22rhsL = -2*alphaL*At22L + PDupwindNth1(gt22, i, j, k)*beta1L + + PDupwindNth2(gt22, i, j, k)*beta2L + + PDupwindNth3(gt22, i, j, k)*beta3L + + 2*(gt12L*PDstandardNth2beta1 + gt23L*PDstandardNth2beta3) + + gt22L*(-(ktwothird*PDstandardNth1beta1) + kfourthird*PDstandardNth2beta2 - + ktwothird*PDstandardNth3beta3); + + gt23rhsL = -2*alphaL*At23L + PDupwindNth1(gt23, i, j, k)*beta1L + + PDupwindNth2(gt23, i, j, k)*beta2L + + PDupwindNth3(gt23, i, j, k)*beta3L + gt13L*PDstandardNth2beta1 + + gt33L*PDstandardNth2beta3 + gt12L*PDstandardNth3beta1 + + gt22L*PDstandardNth3beta2 + gt23L* + (-(ktwothird*PDstandardNth1beta1) + + kthird*(PDstandardNth2beta2 + PDstandardNth3beta3)); + + gt33rhsL = -2*alphaL*At33L + PDupwindNth1(gt33, i, j, k)*beta1L + + PDupwindNth2(gt33, i, j, k)*beta2L + + PDupwindNth3(gt33, i, j, k)*beta3L - + gt33L*ktwothird*PDstandardNth1beta1 - gt33L*ktwothird*PDstandardNth2beta2 + + 2*gt13L*PDstandardNth3beta1 + 2*gt23L*PDstandardNth3beta2 + + gt33L*kfourthird*PDstandardNth3beta3; + + beta1rhsL = (PDupwindNth1(beta1, i, j, k)*beta1L + + PDupwindNth2(beta1, i, j, k)*beta2L + + PDupwindNth3(beta1, i, j, k)*beta3L)*ShiftAdvectionCoeff + + B1L*ShiftGammaCoeff; + + beta2rhsL = (PDupwindNth1(beta2, i, j, k)*beta1L + + PDupwindNth2(beta2, i, j, k)*beta2L + + PDupwindNth3(beta2, i, j, k)*beta3L)*ShiftAdvectionCoeff + + B2L*ShiftGammaCoeff; + + beta3rhsL = (PDupwindNth1(beta3, i, j, k)*beta1L + + PDupwindNth2(beta3, i, j, k)*beta2L + + PDupwindNth3(beta3, i, j, k)*beta3L)*ShiftAdvectionCoeff + + B3L*ShiftGammaCoeff; + + CCTK_REAL const T1000001 = INV(detgt); + + CCTK_REAL const T1000003 = PDstandardNth1gt23 + PDstandardNth2gt13 + T1000002; + + CCTK_REAL const T1000005 = PDstandardNth1gt23 + PDstandardNth3gt12 + T1000004; + + CCTK_REAL const T1000007 = PDstandardNth2gt13 + PDstandardNth3gt12 + T1000006; + + em4phi = INV(e4phi); + + g11 = e4phi*gt11L; + + g12 = e4phi*gt12L; + + g13 = e4phi*gt13L; + + g22 = e4phi*gt22L; + + g23 = e4phi*gt23L; + + g33 = e4phi*gt33L; + + alpharhsL = (PDupwindNth1(alpha, i, j, k)*beta1L + + PDupwindNth2(alpha, i, j, k)*beta2L + + PDupwindNth3(alpha, i, j, k)*beta3L)*LapseAdvectionCoeff + + harmonicF*(AL*T1000164 - LapseAdvectionCoeff*trKL)*pow(alphaL,harmonicN); + + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); + + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; + + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; + + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); + + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + CCTK_REAL const T1000155 = At12L*gtu21; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + CCTK_REAL const T1000156 = At13L*gtu31; - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + CCTK_REAL const T1000157 = At23L*gtu32; - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + CCTK_REAL const T1000158 = -2*gt11L*gtu11; + + CCTK_REAL const T1000159 = -2*gt12L*gtu21; + + CCTK_REAL const T1000161 = -2*gt22L*gtu22; Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - @@ -558,22 +596,22 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu31*T1000003); Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu32*T1000003); Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu33*T1000003); Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu21*T1000005); Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu22*T1000005); Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu32*T1000005); Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + @@ -587,17 +625,14 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gtu32*PDstandardNth2gt22 + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + - gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu21*PDstandardNth3gt22 + + gtu11*T1000007); - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + - gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu22*PDstandardNth3gt22 + + gtu21*T1000007); - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + - gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu32*PDstandardNth3gt22 + + gtu31*T1000007); Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + 2*gtu21*PDstandardNth3gt23 + @@ -611,15 +646,512 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con 2*gtu31*PDstandardNth3gt13 + 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); + Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; + + Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; + + Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; + + Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; + + Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; + + Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; + + gu11 = em4phi*gtu11; + + gu21 = em4phi*gtu21; + + gu31 = em4phi*gtu31; + + gu22 = em4phi*gtu22; + + gu32 = em4phi*gtu32; + + gu33 = em4phi*gtu33; + + CCTK_REAL const T1000008 = SQR(Gt212); + + CCTK_REAL const T1000009 = SQR(Gt313); + + CCTK_REAL const T1000010 = SQR(Gt111); + + CCTK_REAL const T1000011 = SQR(Gt112); + + CCTK_REAL const T1000012 = SQR(Gt312); + + CCTK_REAL const T1000014 = Gt211*Gt222*gt22L; + + CCTK_REAL const T1000015 = Gt211*gt23L*Gt322; + + CCTK_REAL const T1000016 = Gt112*gt12L; + + CCTK_REAL const T1000017 = Gt112*Gt212; + + CCTK_REAL const T1000018 = Gt113*Gt312; + + CCTK_REAL const T1000019 = 2*gt11L*Gt122; + + CCTK_REAL const T1000020 = gt12L*Gt222; + + CCTK_REAL const T1000021 = Gt212*gt22L; + + CCTK_REAL const T1000022 = gt23L*Gt312; + + CCTK_REAL const T1000023 = gt13L*Gt322; + + CCTK_REAL const T1000024 = Gt123*Gt312; + + CCTK_REAL const T1000025 = Gt212*Gt213*gt22L; + + CCTK_REAL const T1000026 = Gt211*Gt223*gt22L; + + CCTK_REAL const T1000027 = Gt213*gt23L*Gt312; + + CCTK_REAL const T1000028 = Gt211*gt23L*Gt323; + + CCTK_REAL const T1000029 = Gt113*gt12L; + + CCTK_REAL const T1000030 = Gt213*gt22L; + + CCTK_REAL const T1000031 = gt23L*Gt313; + + CCTK_REAL const T1000033 = Gt213*Gt222*gt22L; + + CCTK_REAL const T1000034 = Gt212*Gt223*gt22L; + + CCTK_REAL const T1000035 = Gt213*gt23L*Gt322; + + CCTK_REAL const T1000036 = Gt212*gt23L*Gt323; + + CCTK_REAL const T1000037 = 2*gt11L*Gt123; + + CCTK_REAL const T1000038 = gt12L*Gt223; + + CCTK_REAL const T1000039 = gt13L*Gt323; + + CCTK_REAL const T1000041 = SQR(Gt113); + + CCTK_REAL const T1000042 = Gt211*gt22L; + + CCTK_REAL const T1000043 = gt23L*Gt311; + + CCTK_REAL const T1000044 = gt12L*Gt212; + + CCTK_REAL const T1000045 = gt13L*Gt312; + + CCTK_REAL const T1000047 = Gt112*Gt213; + + CCTK_REAL const T1000048 = Gt113*Gt313; + + CCTK_REAL const T1000049 = gt12L*Gt212*Gt223; + + CCTK_REAL const T1000050 = 2*Gt123*gt13L*Gt311; + + CCTK_REAL const T1000051 = Gt223*gt23L*Gt311; + + CCTK_REAL const T1000052 = Gt113*gt13L*Gt312; + + CCTK_REAL const T1000053 = gt13L*Gt223*Gt312; + + CCTK_REAL const T1000054 = gt13L*Gt313*Gt323; + + CCTK_REAL const T1000055 = Gt312*Gt313*gt33L; + + CCTK_REAL const T1000056 = Gt311*Gt323*gt33L; + + CCTK_REAL const T1000057 = Gt212*gt23L*Gt313; + + CCTK_REAL const T1000058 = 2*Gt112*Gt113; + + CCTK_REAL const T1000059 = Gt122*Gt213; + + CCTK_REAL const T1000060 = Gt112*gt13L; + + CCTK_REAL const T1000061 = gt12L*Gt222*Gt223; + + CCTK_REAL const T1000062 = gt13L*Gt223*Gt322; + + CCTK_REAL const T1000063 = SQR(Gt323); + + CCTK_REAL const T1000065 = Gt212*gt23L; + + CCTK_REAL const T1000066 = Gt312*gt33L; + + CCTK_REAL const T1000067 = SQR(Gt213); + + CCTK_REAL const T1000068 = Gt233*gt23L*Gt311; + + CCTK_REAL const T1000069 = Gt133*Gt313; + + CCTK_REAL const T1000070 = gt13L*Gt313*Gt333; + + CCTK_REAL const T1000072 = Gt311*Gt333*gt33L; + + CCTK_REAL const T1000073 = Gt113*gt13L; + + CCTK_REAL const T1000074 = Gt223*gt23L*Gt313; + + CCTK_REAL const T1000075 = gt13L*Gt323*Gt333; + + CCTK_REAL const T1000076 = 2*gt11L*Gt133; + + CCTK_REAL const T1000077 = gt12L*Gt233; + + CCTK_REAL const T1000078 = gt13L*Gt333; + + CCTK_REAL const T1000080 = Gt313*Gt323*gt33L; + + CCTK_REAL const T1000081 = SQR(Gt223); + + CCTK_REAL const T1000082 = Gt233*gt23L*Gt312; + + CCTK_REAL const T1000083 = 2*Gt123*gt13L*Gt313; + + CCTK_REAL const T1000084 = gt13L*Gt223*Gt323; + + CCTK_REAL const T1000085 = Gt312*Gt333*gt33L; + + CCTK_REAL const T1000086 = Gt213*gt23L; + + CCTK_REAL const T1000087 = Gt313*gt33L; + + CCTK_REAL const T1000089 = gt12L*Gt213; + + CCTK_REAL const T1000090 = gt13L*Gt313; + + CCTK_REAL const T1000091 = Gt211*gt23L; + + CCTK_REAL const T1000092 = Gt311*gt33L; + + CCTK_REAL const T1000093 = gt11L*Gt123; + + CCTK_REAL const T1000096 = SQR(Gt222); + + CCTK_REAL const T1000097 = Gt113*gt12L*Gt212; + + CCTK_REAL const T1000098 = Gt112*gt13L*Gt212; + + CCTK_REAL const T1000099 = 2*Gt112*gt12L*Gt213; + + CCTK_REAL const T1000100 = Gt113*Gt211*gt22L; + + CCTK_REAL const T1000101 = Gt112*Gt211*gt23L; + + CCTK_REAL const T1000103 = Gt113*gt23L*Gt311; + + CCTK_REAL const T1000104 = 2*Gt113*gt13L*Gt312; + + CCTK_REAL const T1000105 = Gt112*gt13L*Gt313; + + CCTK_REAL const T1000106 = Gt213*gt22L*Gt313; + + CCTK_REAL const T1000108 = Gt112*Gt311*gt33L; + + CCTK_REAL const T1000109 = Gt212*Gt312*gt33L; + + CCTK_REAL const T1000110 = Gt123*gt12L*Gt212; + + CCTK_REAL const T1000111 = Gt212*Gt222*gt23L; + + CCTK_REAL const T1000112 = 2*Gt223*gt23L*Gt312; + + CCTK_REAL const T1000113 = Gt113*gt13L*Gt322; + + CCTK_REAL const T1000114 = gt23L*Gt313*Gt323; + + CCTK_REAL const T1000115 = Gt313*Gt322*gt33L; + + CCTK_REAL const T1000116 = Gt312*Gt323*gt33L; + + CCTK_REAL const T1000118 = Gt122*gt13L*Gt212; + + CCTK_REAL const T1000119 = 2*Gt122*gt12L*Gt213; + + CCTK_REAL const T1000120 = Gt113*gt12L*Gt222; + + CCTK_REAL const T1000121 = Gt113*Gt212*gt22L; + + CCTK_REAL const T1000122 = Gt123*gt13L*Gt312; + + CCTK_REAL const T1000123 = Gt113*gt23L*Gt312; + + CCTK_REAL const T1000124 = Gt223*gt23L*Gt312; + + CCTK_REAL const T1000125 = Gt223*gt22L*Gt313; + + CCTK_REAL const T1000126 = Gt222*gt23L*Gt313; + + CCTK_REAL const T1000127 = Gt212*Gt322*gt33L; + + CCTK_REAL const T1000128 = Gt212*Gt223*gt23L; + + CCTK_REAL const T1000129 = Gt133*gt13L*Gt312; + + CCTK_REAL const T1000130 = Gt113*gt13L*Gt323; + + CCTK_REAL const T1000131 = Gt213*gt23L*Gt323; + + CCTK_REAL const T1000132 = Gt212*gt23L*Gt333; + + CCTK_REAL const T1000133 = gt23L*Gt313*Gt333; + + CCTK_REAL const T1000135 = 2*Gt213*Gt223*gt22L; + + CCTK_REAL const T1000136 = gt22L*Gt233*Gt313; + + CCTK_REAL const T1000137 = 2*Gt213*gt23L*Gt323; + + CCTK_REAL const T1000138 = Gt212*Gt323*gt33L; + + CCTK_REAL const T1000139 = SQR(Gt123); + + CCTK_REAL const T1000140 = Gt222*Gt223*gt23L; + + CCTK_REAL const T1000141 = Gt133*gt13L*Gt322; + + CCTK_REAL const T1000142 = gt23L*Gt323*Gt333; + + CCTK_REAL const T1000144 = Gt322*Gt333*gt33L; + + CCTK_REAL const T1000145 = SQR(Gt333); + + CCTK_REAL const T1000146 = 2*Gt212*gtu21; + + CCTK_REAL const T1000147 = Gt222*gtu22; + + CCTK_REAL const T1000148 = 2*Gt213*gtu31; + + CCTK_REAL const T1000149 = 2*Gt223*gtu32; + + CCTK_REAL const T1000150 = Gt233*gtu33; + + CCTK_REAL const T1000154 = Gt211*gtu11; + + CCTK_REAL const T1000160 = 2 + T1000159; + Xtn1 = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; - Xtn2 = Gt211*gtu11 + Gt222*gtu22 + - 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; - Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; + Atm11 = At11L*gtu11 + T1000155 + T1000156; + + Atm22 = At22L*gtu22 + T1000155 + T1000157; + + Atm33 = At33L*gtu33 + T1000156 + T1000157; + + G111 = Gt111 - 2*gt11L*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi) + + PDstandardNth1phi*(4 + T1000158); + + G211 = Gt211 - 2*gt11L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + + gtu32*PDstandardNth3phi); + + G311 = Gt311 - 2*gt11L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + + gtu33*PDstandardNth3phi); + + G312 = Gt312 - 2*gt12L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + + gtu33*PDstandardNth3phi); + + G113 = Gt113 - 2*gt13L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + + gtu31*PDstandardNth3phi) + T1000162; + + G213 = Gt213 - 2*gt13L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + + gtu32*PDstandardNth3phi); + + G313 = Gt313 + (2 - 2*gt13L*gtu31)*PDstandardNth1phi - + 2*gt13L*(gtu32*PDstandardNth2phi + gtu33*PDstandardNth3phi); + + G122 = Gt122 - 2*gt22L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + + gtu31*PDstandardNth3phi); + + G222 = Gt222 - 2*gt22L*(gtu21*PDstandardNth1phi + gtu32*PDstandardNth3phi) + + PDstandardNth2phi*(4 + T1000161); + + G322 = Gt322 - 2*gt22L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + + gtu33*PDstandardNth3phi); + + G123 = Gt123 - 2*gt23L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + + gtu31*PDstandardNth3phi); + + G223 = Gt223 - 2*gt23L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + + gtu32*PDstandardNth3phi) + T1000162; + + G323 = Gt323 + (2 - 2*gt23L*gtu32)*PDstandardNth2phi - + 2*gt23L*(gtu31*PDstandardNth1phi + gtu33*PDstandardNth3phi); + + G133 = Gt133 - 2*gt33L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + + gtu31*PDstandardNth3phi); + + G233 = Gt233 - 2*gt33L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + + gtu32*PDstandardNth3phi); + + G333 = Gt333 + 4*PDstandardNth3phi - + 2*gt33L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + + gtu33*PDstandardNth3phi); + + CCTK_REAL const T1000013 = gt22L*T1000008; + + CCTK_REAL const T1000032 = T1000029 + T1000030 + T1000031; + + CCTK_REAL const T1000040 = T1000029 + T1000037 + T1000038 + T1000039; + + CCTK_REAL const T1000046 = T1000016 + T1000021 + T1000022; + + CCTK_REAL const T1000064 = gt13L*T1000063; + + CCTK_REAL const T1000071 = gt33L*T1000009; + + CCTK_REAL const T1000079 = T1000073 + T1000076 + T1000077 + T1000078; + + CCTK_REAL const T1000088 = T1000073 + T1000086 + T1000087; + + CCTK_REAL const T1000094 = T1000038 + T1000039 + T1000093; + + CCTK_REAL const T1000095 = T1000060 + T1000065 + T1000066; + + CCTK_REAL const T1000102 = gt23L*T1000008; + + CCTK_REAL const T1000107 = gt23L*T1000009; + + CCTK_REAL const T1000117 = gt13L*T1000011; + + CCTK_REAL const T1000134 = gt12L*T1000041; + + CCTK_REAL const T1000143 = gt33L*T1000063; + + Xtn2 = T1000146 + T1000147 + T1000148 + T1000149 + T1000150 + T1000154; + + Rphi11 = 2*(-PDstandardNth11phi - gt11L*gtu11*PDstandardNth11phi - + 2*gt11L*gtu21*PDstandardNth12phi - 2*gt11L*gtu31*PDstandardNth13phi - + gt11L*gtu22*PDstandardNth22phi - 2*gt11L*gtu32*PDstandardNth23phi - + gt11L*gtu33*PDstandardNth33phi + Gt311*PDstandardNth3phi + + gt11L*Gt311*gtu11*PDstandardNth3phi + + 2*gt11L*Gt312*gtu21*PDstandardNth3phi + + gt11L*Gt322*gtu22*PDstandardNth3phi + + 2*gt11L*Gt313*gtu31*PDstandardNth3phi + + 2*gt11L*Gt323*gtu32*PDstandardNth3phi + + gt11L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt111 + Gt111*gt11L*gtu11 + 2*Gt112*gt11L*gtu21 + + gt11L*Gt122*gtu22 + 2*Gt113*gt11L*gtu31 + 2*gt11L*Gt123*gtu32 + + gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandardNth2phi - + 4*gt11L*gtu31*PDstandardNth3phi) + + PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 - + 4*gt11L*gtu32*PDstandardNth3phi + + gt11L*(T1000146 + T1000147 + T1000148 + T1000149 + T1000150)) - + 2*gt11L*gtu22*T1000152 - 2*gt11L*gtu33*T1000153 + T1000151*(2 + T1000158)); + + Rphi12 = 2*(-(gt12L*gtu11*PDstandardNth11phi) - PDstandardNth12phi - + 2*gt12L*gtu21*PDstandardNth12phi - 2*gt12L*gtu31*PDstandardNth13phi - + gt12L*gtu22*PDstandardNth22phi - 2*gt12L*gtu32*PDstandardNth23phi - + gt12L*gtu33*PDstandardNth33phi + Gt312*PDstandardNth3phi + + gt12L*Gt311*gtu11*PDstandardNth3phi + + 2*gt12L*Gt312*gtu21*PDstandardNth3phi + + gt12L*Gt322*gtu22*PDstandardNth3phi + + 2*gt12L*Gt313*gtu31*PDstandardNth3phi + + 2*gt12L*Gt323*gtu32*PDstandardNth3phi + + gt12L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt112 + Gt111*gt12L*gtu11 + 2*Gt112*gt12L*gtu21 + + Gt122*gt12L*gtu22 + 2*Gt113*gt12L*gtu31 + 2*Gt123*gt12L*gtu32 + + gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandardNth2phi - + 4*gt12L*gtu31*PDstandardNth3phi) - 2*gt12L*gtu11*T1000151 - + 2*gt12L*gtu22*T1000152 - 2*gt12L*gtu33*T1000153 + + PDstandardNth2phi*(Gt212 + 2*gt12L*Gt212*gtu21 - + 4*gt12L*gtu32*PDstandardNth3phi + + gt12L*(T1000147 + T1000148 + T1000149 + T1000150 + T1000154))); + + Rphi13 = 2*(-PDstandardNth13phi + + gt13L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi) - gt13L*gtu22*PDstandardNth22phi - + 2*gt13L*gtu32*PDstandardNth23phi - gt13L*gtu33*PDstandardNth33phi + + Gt313*PDstandardNth3phi + gt13L*Gt311*gtu11*PDstandardNth3phi + + 2*gt13L*Gt312*gtu21*PDstandardNth3phi + + gt13L*Gt322*gtu22*PDstandardNth3phi + + 2*gt13L*Gt313*gtu31*PDstandardNth3phi + + 2*gt13L*Gt323*gtu32*PDstandardNth3phi + + gt13L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt113 + Gt111*gt13L*gtu11 + 2*Gt112*gt13L*gtu21 + + Gt122*gt13L*gtu22 + 2*Gt113*gt13L*gtu31 + 2*Gt123*gt13L*gtu32 + + Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandardNth2phi + + (2 - 4*gt13L*gtu31)*PDstandardNth3phi) - 2*gt13L*gtu11*T1000151 - + 2*gt13L*gtu22*T1000152 - 2*gt13L*gtu33*T1000153 + + PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 - + 4*gt13L*gtu32*PDstandardNth3phi + + gt13L*(T1000146 + T1000147 + T1000149 + T1000150 + T1000154))); + + Rphi22 = 2*(-PDstandardNth22phi + + gt22L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi) - + 2*gt22L*gtu32*PDstandardNth23phi - gt22L*gtu33*PDstandardNth33phi + + Gt322*PDstandardNth3phi + gt22L*Gt311*gtu11*PDstandardNth3phi + + 2*gt22L*Gt312*gtu21*PDstandardNth3phi + + gt22L*Gt322*gtu22*PDstandardNth3phi + + 2*gt22L*Gt313*gtu31*PDstandardNth3phi + + 2*gt22L*Gt323*gtu32*PDstandardNth3phi + + gt22L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt122 + Gt111*gt22L*gtu11 + 2*Gt112*gt22L*gtu21 + + Gt122*gt22L*gtu22 + 2*Gt113*gt22L*gtu31 + 2*Gt123*gt22L*gtu32 + + Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandardNth2phi - + 4*gt22L*gtu31*PDstandardNth3phi) - 2*gt22L*gtu11*T1000151 - + 2*gt22L*gtu33*T1000153 + PDstandardNth2phi* + (Gt222 + Gt222*gt22L*gtu22 - 4*gt22L*gtu32*PDstandardNth3phi + + gt22L*(T1000146 + T1000148 + T1000149 + T1000150 + T1000154)) + + T1000152*(2 + T1000161)); + + Rphi23 = 2*(-PDstandardNth23phi + + gt23L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - + 2*gtu32*PDstandardNth23phi) - gt23L*gtu33*PDstandardNth33phi + + Gt323*PDstandardNth3phi + gt23L*Gt311*gtu11*PDstandardNth3phi + + 2*gt23L*Gt312*gtu21*PDstandardNth3phi + + gt23L*Gt322*gtu22*PDstandardNth3phi + + 2*gt23L*Gt313*gtu31*PDstandardNth3phi + + 2*gt23L*Gt323*gtu32*PDstandardNth3phi + + gt23L*Gt333*gtu33*PDstandardNth3phi + + PDstandardNth1phi*(Gt123 + Gt111*gt23L*gtu11 + 2*Gt112*gt23L*gtu21 + + Gt122*gt23L*gtu22 + 2*Gt113*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + + Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandardNth2phi - + 4*gt23L*gtu31*PDstandardNth3phi) - 2*gt23L*gtu11*T1000151 - + 2*gt23L*gtu22*T1000152 - 2*gt23L*gtu33*T1000153 + + PDstandardNth2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + + (2 - 4*gt23L*gtu32)*PDstandardNth3phi + + gt23L*(T1000146 + T1000147 + T1000148 + T1000150 + T1000154))); + + Rphi33 = 2*(-PDstandardNth33phi + + (Gt333 + gt33L*(Gt322*gtu22 + + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))* + PDstandardNth3phi + PDstandardNth1phi* + (Gt133 + gt33L*(Gt111*gtu11 + Gt122*gtu22 + + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - + 4*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi))) + + 2*T1000153 + gt33L*(-(gtu11*PDstandardNth11phi) - + 2*gtu21*PDstandardNth12phi - 2*gtu31*PDstandardNth13phi - + gtu22*PDstandardNth22phi - 2*gtu32*PDstandardNth23phi - + gtu33*PDstandardNth33phi + Gt311*gtu11*PDstandardNth3phi - + 2*gtu11*T1000151 - 2*gtu22*T1000152 - 2*gtu33*T1000153) + + PDstandardNth2phi*(Gt233 + + gt33L*(Gt233*gtu33 - 4*gtu32*PDstandardNth3phi + T1000146 + T1000147 + + T1000148 + T1000149 + T1000154))); + + Atu11 = Atm11*gtu11 + Atm12*gtu21 + Atm13*gtu31; + + Atu21 = Atm11*gtu21 + Atm12*gtu22 + Atm13*gtu32; + + Atu31 = Atm11*gtu31 + Atm12*gtu32 + Atm13*gtu33; + + Atu22 = Atm21*gtu21 + Atm22*gtu22 + Atm23*gtu32; + + Atu32 = Atm21*gtu31 + Atm22*gtu32 + Atm23*gtu33; + + Atu33 = Atm31*gtu31 + Atm32*gtu32 + Atm33*gtu33; + + G112 = Gt112 - 2*gt12L*(gtu11*PDstandardNth1phi + gtu31*PDstandardNth3phi) + + PDstandardNth2phi*T1000160; + + G212 = Gt212 - 2*gt12L*(gtu22*PDstandardNth2phi + gtu32*PDstandardNth3phi) + + PDstandardNth1phi*T1000160; + Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + gtu21*(2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + 2*gt13L*Gt311*Gt323 + @@ -632,21 +1164,7 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con 4*Gt113*Gt311*gtu31 + 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + - Gt111*(6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xtn1) + - Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + - 2*gt11L*Gt123*gtu31 + gt12L*Xtn1) + - Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + - 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xtn1) + - gt12L*Gt212*Xtn2 + gt13L*Gt312*Xtn2 + - Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + - 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xtn2) + - Gt113*gt11L*Xtn3 + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + - 2*gt11L*Gt123*gtu33 + gt12L*Xtn3) + - Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + - 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + - gt13L*Xtn3) + 3*gt11L*gtu11*SQR(Gt111) + 3*gt11L*gtu22*SQR(Gt112) + - 3*gt11L*gtu33*SQR(Gt113) + gt22L*gtu11*SQR(Gt211) + - gt22L*gtu22*SQR(Gt212) + 2*(gt12L*Gt211*Gt212*gtu11 + + gt22L*gtu22*T1000008 + 2*(gt12L*Gt211*Gt212*gtu11 + Gt113*gt11L*Gt311*gtu11 + Gt211*gt23L*Gt311*gtu11 + gt13L*Gt211*Gt312*gtu11 + Gt112*gt11L*Gt212*gtu21 + gt12L*Gt223*Gt311*gtu21 + Gt212*gt23L*Gt311*gtu21 + @@ -668,9 +1186,23 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gt13L*Gt312*Gt333*gtu32 + Gt312*Gt313*gt33L*gtu32 + gt12L*Gt213*Gt223*gtu33 + gt12L*Gt233*Gt313*gtu33 + Gt213*gt23L*Gt313*gtu33 + gt13L*Gt213*Gt323*gtu33 + - gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*SQR(Gt212)) + - gt22L*gtu33*SQR(Gt213) + gt33L*gtu11*SQR(Gt311) + gt33L*gtu22*SQR(Gt312) + - 2*gt13L*gtu31*SQR(Gt313) + gt33L*gtu33*SQR(Gt313); + gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*T1000008) + + 2*gt13L*gtu31*T1000009 + gt33L*gtu33*T1000009 + 3*gt11L*gtu11*T1000010 + + 3*gt11L*gtu22*T1000011 + gt33L*gtu22*T1000012 + 3*gt11L*gtu33*T1000041 + + gt22L*gtu33*T1000067 + Gt111* + (6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xtn1) + + Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + + 2*gt11L*Gt123*gtu31 + gt12L*Xtn1) + + Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + + 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xtn1) + + gt12L*Gt212*Xtn2 + gt13L*Gt312*Xtn2 + + Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + + 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xtn2) + + Gt113*gt11L*Xtn3 + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + + 2*gt11L*Gt123*gtu33 + gt12L*Xtn3) + + Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + + 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + + gt13L*Xtn3) + gt22L*gtu11*SQR(Gt211) + gt33L*gtu11*SQR(Gt311); Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - 2*gtu31*PDstandardNth13gt12 + gt12L*PDstandardNth1Xt1 + @@ -678,82 +1210,63 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gtu22*PDstandardNth22gt12 - 2*gtu32*PDstandardNth23gt12 + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt12 + - (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xtn1 + - (Gt112*gt11L + gt12L*Gt212 + gt13L*Gt312)*Xtn1 + - (Gt112*gt12L + Gt212*gt22L + gt23L*Gt312)*Xtn2 + - (gt11L*Gt122 + gt12L*Gt222 + gt13L*Gt322)*Xtn2 + - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xtn3 + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xtn3 + - 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + Gt211*Gt222*gt22L + - 2*Gt122*gt13L*Gt311 + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + - gt13L*Gt222*Gt312 + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + - gt23L*Gt312*Gt313 + Gt113*gt11L*Gt322 + Gt211*gt23L*Gt322 + - gt13L*Gt313*Gt322 + Gt111* - (2*gt11L*Gt122 + Gt112*gt12L + gt12L*Gt222 + gt13L*Gt322) + - gt12L*(2*Gt122*Gt211 + Gt112*Gt212 + Gt212*Gt222 + Gt113*Gt312 + - Gt213*Gt322) + Gt311*Gt322*gt33L + gt22L*SQR(Gt212)) + - 2*((Gt123*gt12L*Gt211 + Gt113*gt12L*Gt212 + 2*Gt112*gt12L*Gt213 + - gt12L*Gt212*Gt223 + Gt212*Gt213*gt22L + Gt211*Gt223*gt22L + - gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + Gt113*gt13L*Gt312 + - gt12L*Gt233*Gt312 + Gt213*gt23L*Gt312 + - gt11L*(2*Gt112*Gt113 + Gt123*Gt212 + Gt133*Gt312) + - 2*Gt112*gt13L*Gt313 + Gt212*gt23L*Gt313 + - Gt111*(Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + - gt13L*Gt212*Gt323 + Gt211*gt23L*Gt323 + gt23L*Gt311*Gt333 + - gt13L*Gt312*Gt333 + Gt312*Gt313*gt33L)*gtu31 + - (Gt123*gt12L*Gt212 + 2*Gt122*gt12L*Gt213 + Gt113*gt12L*Gt222 + - gt12L*Gt222*Gt223 + Gt213*Gt222*gt22L + Gt212*Gt223*gt22L + - gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + - Gt222*gt23L*Gt313 + Gt112* - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + Gt113*gt13L*Gt322 + - gt12L*Gt233*Gt322 + Gt213*gt23L*Gt322 + - gt11L*(2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + - gt13L*Gt222*Gt323 + Gt212*gt23L*Gt323 + gt23L*Gt312*Gt333 + - gt13L*Gt322*Gt333 + Gt313*Gt322*gt33L)*gtu32 + - gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + - 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + - gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + - gt11L*(2*Gt111*Gt112 + Gt112*Gt212 + Gt113*Gt312) + - Gt111*(gt12L*Gt212 + Gt211*gt22L + gt23L*Gt311 + gt13L*Gt312) + - gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + - gt12L*SQR(Gt111) + gt12L*SQR(Gt212))) + - 2*gtu22*(gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + - Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + - gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + - Gt112*(2*gt11L*Gt122 + gt12L*Gt222 + Gt212*gt22L + gt23L*Gt312 + - gt13L*Gt322) + gt23L*Gt312*Gt323 + gt13L*Gt322*Gt323 + - Gt312*Gt322*gt33L + gt12L*SQR(Gt112) + - gt12L*(3*Gt122*Gt212 + Gt123*Gt312 + Gt223*Gt322 + SQR(Gt222))) + - 2*gtu33*(gt11L*Gt123*Gt223 + 2*Gt213*Gt223*gt22L + 2*Gt123*gt13L*Gt313 + - gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + gt11L*Gt133*Gt323 + - gt13L*Gt223*Gt323 + 2*Gt213*gt23L*Gt323 + - Gt113*(2*gt11L*Gt123 + gt12L*Gt223 + Gt213*gt22L + gt23L*Gt313 + - gt13L*Gt323) + gt23L*Gt313*Gt333 + gt13L*Gt323*Gt333 + - Gt313*Gt323*gt33L + gt12L*SQR(Gt113) + - gt12L*(3*Gt123*Gt213 + Gt133*Gt313 + Gt233*Gt323 + SQR(Gt223))) + + 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + 2*Gt122*gt13L*Gt311 + + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + gt13L*Gt222*Gt312 + + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + gt23L*Gt312*Gt313 + + Gt113*gt11L*Gt322 + gt13L*Gt313*Gt322 + Gt311*Gt322*gt33L + T1000013 + + T1000014 + T1000015 + gt12L* + (2*Gt122*Gt211 + Gt212*Gt222 + Gt213*Gt322 + T1000017 + T1000018) + + Gt111*(T1000016 + T1000019 + T1000020 + T1000023)) + + 2*gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + + 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + + gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + + gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + + gt12L*T1000008 + gt12L*T1000010 + + gt11L*(2*Gt111*Gt112 + T1000017 + T1000018) + + Gt111*(T1000042 + T1000043 + T1000044 + T1000045)) + 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + - Gt211*Gt222*gt22L + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + - 3*Gt112*gt13L*Gt312 + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + - Gt111*(Gt112*gt12L + Gt212*gt22L + gt23L*Gt312) + gt13L*Gt212*Gt322 + - Gt211*gt23L*Gt322 + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + - gt11L*(Gt122*Gt212 + Gt123*Gt312 + 2*SQR(Gt112)) + gt22L*SQR(Gt212) + - gt33L*SQR(Gt312)) + 2*gtu31* - (Gt112*gt11L*Gt223 + Gt113*Gt211*gt22L + Gt212*Gt213*gt22L + - Gt211*Gt223*gt22L + 2*Gt123*gt13L*Gt311 + Gt113*gt23L*Gt311 + - Gt223*gt23L*Gt311 + gt13L*Gt223*Gt312 + Gt213*gt23L*Gt312 + - Gt213*gt22L*Gt313 + Gt113*gt11L*Gt323 + Gt211*gt23L*Gt323 + - gt13L*Gt313*Gt323 + Gt111* - (2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(2*Gt123*Gt211 + Gt112*Gt213 + Gt212*Gt223 + Gt113*Gt313 + - Gt213*Gt323) + Gt311*Gt323*gt33L + gt23L*SQR(Gt313)) + - 2*gtu32*(gt11L*Gt122*Gt223 + Gt113*Gt212*gt22L + Gt213*Gt222*gt22L + - Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + - Gt223*gt23L*Gt312 + Gt223*gt22L*Gt313 + gt13L*Gt223*Gt322 + - Gt213*gt23L*Gt322 + gt11L*Gt123*Gt323 + Gt212*gt23L*Gt323 + - gt23L*Gt313*Gt323 + Gt112* - (2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(Gt122*Gt213 + Gt123*(2*Gt212 + Gt313) + - Gt223*(Gt222 + Gt323)) + Gt312*Gt323*gt33L + gt13L*SQR(Gt323))); + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + 3*Gt112*gt13L*Gt312 + + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + gt13L*Gt212*Gt322 + + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + gt33L*T1000012 + T1000013 + + T1000014 + T1000015 + gt11L*(Gt122*Gt212 + 2*T1000011 + T1000024) + + Gt111*T1000046) + 2*gtu22* + (gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + + Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + + gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + gt23L*Gt312*Gt323 + + gt13L*Gt322*Gt323 + Gt312*Gt322*gt33L + gt12L*T1000011 + + Gt112*(T1000019 + T1000020 + T1000021 + T1000022 + T1000023) + + gt12L*(3*Gt122*Gt212 + Gt223*Gt322 + T1000024 + T1000096)) + + 2*gtu31*(Gt123*gt12L*Gt211 + gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + + gt12L*Gt233*Gt312 + 2*Gt112*gt13L*Gt313 + gt13L*Gt212*Gt323 + + gt23L*Gt311*Gt333 + gt13L*Gt312*Gt333 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000032 + T1000049 + T1000052 + + T1000055 + T1000057 + gt11L*(Gt123*Gt212 + Gt133*Gt312 + T1000058) + + T1000097 + T1000099) + 2*gtu31* + (Gt112*gt11L*Gt223 + Gt113*gt11L*Gt323 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000040 + + gt12L*(2*Gt123*Gt211 + Gt212*Gt223 + Gt213*Gt323 + T1000047 + + T1000048) + T1000050 + T1000051 + T1000053 + T1000054 + T1000056 + + T1000100 + T1000103 + T1000106 + T1000107) + + 2*gtu32*(gt11L*Gt122*Gt223 + 2*Gt123*gt13L*Gt312 + gt11L*Gt123*Gt323 + + T1000033 + T1000034 + T1000035 + T1000036 + Gt112*T1000040 + + gt12L*(Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323) + T1000059) + + T1000062 + T1000064 + T1000114 + T1000116 + T1000121 + T1000123 + + T1000124 + T1000125) + 2*gtu32* + (gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + + gt12L*Gt233*Gt322 + gt11L* + (2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + gt13L*Gt222*Gt323 + + gt23L*Gt312*Gt333 + gt13L*Gt322*Gt333 + Gt112*T1000032 + T1000033 + + T1000034 + T1000035 + T1000036 + T1000061 + T1000110 + T1000113 + + T1000115 + T1000119 + T1000120 + T1000126) + + 2*gtu33*(gt11L*Gt123*Gt223 + gt11L*Gt133*Gt323 + + Gt113*(T1000030 + T1000031 + T1000037 + T1000038 + T1000039) + + T1000074 + T1000075 + T1000080 + + gt12L*(3*Gt123*Gt213 + Gt233*Gt323 + T1000069 + T1000081) + T1000083 + + T1000084 + T1000133 + T1000134 + T1000135 + T1000136 + T1000137) + + (Gt111*gt12L + T1000042 + T1000043)*Xtn1 + + (Gt112*gt11L + T1000044 + T1000045)*Xtn1 + + (gt11L*Gt122 + T1000020 + T1000023)*Xtn2 + T1000046*Xtn2 + + T1000032*Xtn3 + T1000094*Xtn3); Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - 2*gtu31*PDstandardNth13gt13 + gt13L*PDstandardNth1Xt1 + @@ -761,85 +1274,64 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gtu22*PDstandardNth22gt13 - 2*gtu32*PDstandardNth23gt13 - gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + gt13L*PDstandardNth3Xt3 + - (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xtn1 + - (Gt111*gt13L + Gt211*gt23L + Gt311*gt33L)*Xtn1 + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xtn2 + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xtn2 + - (gt11L*Gt133 + gt12L*Gt233 + gt13L*Gt333)*Xtn3 + - (Gt113*gt13L + Gt213*gt23L + Gt313*gt33L)*Xtn3 + - 2*((Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + - gt12L*Gt213*Gt222 + Gt212*Gt213*gt22L + Gt211*Gt222*gt23L + - Gt123*gt13L*Gt311 + Gt223*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + - Gt213*gt23L*Gt312 + Gt112*gt13L*Gt313 + gt12L*Gt223*Gt313 + - Gt212*gt23L*Gt313 + gt11L* - (2*Gt112*Gt113 + Gt122*Gt213 + Gt123*Gt313) + gt13L*Gt213*Gt322 + - gt13L*Gt313*Gt323 + Gt312*Gt313*gt33L + Gt211*Gt322*gt33L + - Gt311*Gt323*gt33L + Gt111*(Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)) - *gtu21 + (Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + - Gt212*gt22L*Gt233 + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + - 2*Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + Gt123*gt13L*Gt313 + - Gt223*gt23L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + - Gt212*gt23L*Gt333 + gt13L*Gt323*Gt333 + - Gt112*(2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + - Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L)*gtu32 + - gtu21*(2*Gt123*gt12L*Gt211 + Gt112*gt13L*Gt212 + gt12L*Gt212*Gt223 + - Gt211*Gt223*gt22L + Gt112*Gt211*gt23L + 2*Gt123*gt13L*Gt311 + - Gt223*gt23L*Gt311 + Gt113*gt13L*Gt312 + gt13L*Gt223*Gt312 + - Gt213*gt23L*Gt312 + gt12L*Gt213*Gt323 + Gt211*gt23L*Gt323 + - gt13L*Gt313*Gt323 + gt11L* - (2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + - Gt111*(Gt112*gt13L + gt12L*Gt223 + gt13L*Gt323) + - Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + Gt312*Gt313*gt33L + - Gt311*Gt323*gt33L + gt23L*SQR(Gt212))) + - 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + - Gt213*Gt223*gt22L + Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + - Gt233*gt23L*Gt312 + 2*Gt123*gt13L*Gt313 + Gt223*gt23L*Gt313 + - Gt113*gt13L*Gt323 + gt13L*Gt223*Gt323 + gt12L*Gt233*Gt323 + - Gt213*gt23L*Gt323 + gt11L* - (2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + gt13L*Gt323*Gt333 + - Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L + - Gt112*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + gt12L*SQR(Gt223)) + - 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + - Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + - 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + - Gt211*gt23L*Gt313 + gt11L* - (2*Gt111*Gt113 + Gt112*Gt213 + Gt113*Gt313) + Gt211*Gt312*gt33L + - 2*Gt311*Gt313*gt33L + Gt111* - (gt12L*Gt213 + Gt211*gt23L + gt13L*Gt313 + Gt311*gt33L) + - gt13L*SQR(Gt111) + gt13L*SQR(Gt313)) + 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + 2*Gt133*gt13L*Gt311 + - Gt233*gt23L*Gt311 + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + - Gt213*gt23L*Gt313 + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + - gt13L*Gt313*Gt333 + Gt111* - (2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + Gt213*gt23L*Gt313 + + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + - Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + Gt311*Gt333*gt33L + - gt33L*SQR(Gt313)) + 2*gtu31* - (Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + - Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + Gt233*gt23L*Gt311 + - 3*Gt113*gt13L*Gt313 + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + - gt13L*Gt213*Gt323 + gt13L*Gt313*Gt333 + Gt211*Gt323*gt33L + - Gt311*Gt333*gt33L + Gt111*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + - gt11L*(Gt123*Gt213 + Gt133*Gt313 + 2*SQR(Gt113)) + gt22L*SQR(Gt213) + - gt33L*SQR(Gt313)) + 2*gtu22* - (2*Gt123*gt12L*Gt212 + Gt122*gt13L*Gt212 + gt12L*Gt222*Gt223 + - Gt212*Gt223*gt22L + Gt212*Gt222*gt23L + 3*Gt123*gt13L*Gt312 + - 2*Gt223*gt23L*Gt312 + gt13L*Gt223*Gt322 + gt12L*Gt223*Gt323 + - Gt212*gt23L*Gt323 + gt11L* - (2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + Gt212*Gt322*gt33L + - 2*Gt312*Gt323*gt33L + Gt112* - (gt12L*Gt223 + Gt212*gt23L + gt13L*Gt323 + Gt312*gt33L) + - gt13L*SQR(Gt112) + gt13L*SQR(Gt323)) + + Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + T1000068 + T1000070 + + T1000071 + T1000072 + Gt111*T1000079) + + 2*gtu31*(Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + + Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + 3*Gt113*gt13L*Gt313 + + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + gt13L*Gt213*Gt323 + + Gt211*Gt323*gt33L + gt22L*T1000067 + T1000068 + + gt11L*(Gt123*Gt213 + 2*T1000041 + T1000069) + T1000070 + T1000071 + + T1000072 + Gt111*T1000088) + + 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + + Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + + 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + + Gt211*gt23L*Gt313 + Gt211*Gt312*gt33L + 2*Gt311*Gt313*gt33L + + gt13L*T1000009 + gt13L*T1000010 + + gt11L*(2*Gt111*Gt113 + T1000047 + T1000048) + + Gt111*(T1000089 + T1000090 + T1000091 + T1000092)) + + 2*gtu21*(Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + + gt12L*Gt213*Gt222 + Gt211*Gt222*gt23L + Gt123*gt13L*Gt311 + + gt12L*Gt223*Gt313 + gt13L*Gt213*Gt322 + Gt211*Gt322*gt33L + T1000025 + + T1000027 + T1000051 + T1000054 + T1000055 + T1000056 + T1000057 + + gt11L*(Gt123*Gt313 + T1000058 + T1000059) + Gt111*T1000095 + + T1000104 + T1000105) + 2*gtu21* + (2*Gt123*gt12L*Gt211 + gt12L*Gt213*Gt323 + + gt11L*(2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + T1000026 + + T1000027 + T1000028 + T1000049 + T1000050 + T1000051 + T1000052 + + T1000053 + T1000054 + T1000055 + T1000056 + + Gt111*(T1000038 + T1000039 + T1000060) + T1000098 + T1000101 + + T1000102 + T1000108 + T1000109) + + 2*gtu22*(2*Gt123*gt12L*Gt212 + 3*Gt123*gt13L*Gt312 + gt12L*Gt223*Gt323 + + gt11L*(2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + + 2*Gt312*Gt323*gt33L + T1000034 + T1000036 + T1000061 + T1000062 + + T1000064 + Gt112*(T1000038 + T1000039 + T1000065 + T1000066) + + T1000111 + T1000112 + T1000117 + T1000118 + T1000127) + + 2*gtu32*(Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + Gt212*gt22L*Gt233 + + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + 2*Gt133*gt13L*Gt312 + + Gt123*gt13L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + + gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + + Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + T1000074 + T1000075 + + Gt112*T1000079 + T1000080 + T1000082 + T1000085 + T1000132) + + 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + + Gt213*Gt223*gt22L + gt12L*Gt233*Gt323 + + gt11L*(2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + T1000074 + + T1000075 + T1000080 + gt12L*T1000081 + T1000082 + T1000083 + + T1000084 + T1000085 + Gt112*T1000088 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000138) + 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + Gt213*Gt223*gt23L + 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + gt11L*Gt133*Gt333 + gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + - Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + - Gt113*(2*gt11L*Gt133 + gt12L*Gt233 + Gt213*gt23L + gt13L*Gt333 + - Gt313*gt33L) + gt13L*SQR(Gt113) + gt13L*SQR(Gt333))); + Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + gt13L*T1000041 + + Gt113*(T1000076 + T1000077 + T1000078 + T1000086 + T1000087) + + gt13L*T1000145) + (Gt113*gt11L + T1000089 + T1000090)*Xtn1 + + (Gt111*gt13L + T1000091 + T1000092)*Xtn1 + T1000094*Xtn2 + + T1000095*Xtn2 + (gt11L*Gt133 + T1000077 + T1000078)*Xtn3 + T1000088*Xtn3); Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + @@ -862,34 +1354,33 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con 2*Gt123*Gt311*gtu31 + 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - - gtu33*khalf*PDstandardNth33gt22 + Gt212*gt22L*Xtn1 + - Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + 2*gt11L*Gt122*gtu21 + - 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + 2*Gt123*gt12L*gtu32 + - gt12L*Xtn1) + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + - 2*gt23L*Gt313*gtu11 + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + - 2*gt12L*Gt133*gtu31 + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + - 2*Gt123*gt23L*gtu32 + gt23L*Xtn1) + Gt122*gt12L*Xtn2 + - Gt222*gt22L*Xtn2 + gt23L*Gt322*Xtn2 + Gt123*gt12L*Xtn3 + Gt223*gt22L*Xtn3 + - gt23L*Gt323*Xtn3 + gt11L*gtu11*SQR(Gt112) + - 2*(Gt112*Gt211*gt22L*gtu11 + Gt112*gt23L*Gt311*gtu11 + - Gt113*gt12L*Gt312*gtu11 + Gt112*gt13L*Gt312*gtu11 + - Gt111*Gt122*gt12L*gtu21 + Gt122*Gt211*gt22L*gtu21 + - Gt112*Gt212*gt22L*gtu21 + Gt223*gt22L*Gt312*gtu21 + - Gt112*gt23L*Gt312*gtu21 + Gt112*gt13L*Gt322*gtu21 + - Gt213*gt22L*Gt322*gtu21 + Gt122*Gt212*gt22L*gtu22 + - Gt123*gt12L*Gt322*gtu22 + Gt122*gt13L*Gt322*gtu22 + - Gt223*gt22L*Gt322*gtu22 + gt23L*Gt322*Gt323*gtu22 + - Gt112*Gt113*gt12L*gtu31 + Gt123*Gt211*gt22L*gtu31 + - Gt112*Gt213*gt22L*gtu31 + Gt112*gt13L*Gt323*gtu31 + - Gt213*gt22L*Gt323*gtu31 + gt11L*Gt122*Gt123*gtu32 + - Gt123*gt13L*Gt322*gtu32 + gt22L*Gt233*Gt322*gtu32 + - Gt122*gt13L*Gt323*gtu32 + Gt223*gt22L*Gt323*gtu32 + - gt12L*Gt133*Gt323*gtu33 + Gt123*gt13L*Gt323*gtu33 + - gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*SQR(Gt112)) + - gt11L*gtu22*SQR(Gt122) + gt11L*gtu33*SQR(Gt123) + - 3*gt22L*gtu11*SQR(Gt212) + 3*gt22L*gtu22*SQR(Gt222) + - 3*gt22L*gtu33*SQR(Gt223) + gt33L*gtu11*SQR(Gt312) + - gt33L*gtu22*SQR(Gt322) + 2*gt23L*gtu32*SQR(Gt323) + gt33L*gtu33*SQR(Gt323); + gtu33*khalf*PDstandardNth33gt22 + 3*gt22L*gtu11*T1000008 + + gt11L*gtu11*T1000011 + 2*(Gt112*Gt211*gt22L*gtu11 + + Gt112*gt23L*Gt311*gtu11 + Gt113*gt12L*Gt312*gtu11 + + Gt112*gt13L*Gt312*gtu11 + Gt111*Gt122*gt12L*gtu21 + + Gt122*Gt211*gt22L*gtu21 + Gt112*Gt212*gt22L*gtu21 + + Gt223*gt22L*Gt312*gtu21 + Gt112*gt23L*Gt312*gtu21 + + Gt112*gt13L*Gt322*gtu21 + Gt213*gt22L*Gt322*gtu21 + + Gt122*Gt212*gt22L*gtu22 + Gt123*gt12L*Gt322*gtu22 + + Gt122*gt13L*Gt322*gtu22 + Gt223*gt22L*Gt322*gtu22 + + gt23L*Gt322*Gt323*gtu22 + Gt112*Gt113*gt12L*gtu31 + + Gt123*Gt211*gt22L*gtu31 + Gt112*Gt213*gt22L*gtu31 + + Gt112*gt13L*Gt323*gtu31 + Gt213*gt22L*Gt323*gtu31 + + gt11L*Gt122*Gt123*gtu32 + Gt123*gt13L*Gt322*gtu32 + + gt22L*Gt233*Gt322*gtu32 + Gt122*gt13L*Gt323*gtu32 + + Gt223*gt22L*Gt323*gtu32 + gt12L*Gt133*Gt323*gtu33 + + Gt123*gt13L*Gt323*gtu33 + gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*T1000011) + + gt33L*gtu11*T1000012 + 2*gt23L*gtu32*T1000063 + gt33L*gtu33*T1000063 + + 3*gt22L*gtu33*T1000081 + 3*gt22L*gtu22*T1000096 + gt11L*gtu33*T1000139 + + Gt212*gt22L*Xtn1 + Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + + 2*Gt123*gt12L*gtu32 + gt12L*Xtn1) + + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + 2*gt12L*Gt133*gtu31 + + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + + gt23L*Xtn1) + Gt122*gt12L*Xtn2 + Gt222*gt22L*Xtn2 + gt23L*Gt322*Xtn2 + + Gt123*gt12L*Xtn3 + Gt223*gt22L*Xtn3 + gt23L*Gt323*Xtn3 + + gt11L*gtu22*SQR(Gt122) + gt33L*gtu22*SQR(Gt322); Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - 2*gtu31*PDstandardNth13gt23 - gtu22*PDstandardNth22gt23 - @@ -897,80 +1388,70 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + gt23L*PDstandardNth3Xt3 + - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xtn1 + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xtn1 + - (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xtn2 + - (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xtn2 + - (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xtn3 + - (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xtn3 + - 2*((Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + - Gt123*gt12L*Gt212 + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + - Gt123*Gt211*gt22L + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + - Gt212*Gt222*gt23L + Gt123*gt23L*Gt311 + Gt123*gt13L*Gt312 + - 2*Gt223*gt23L*Gt312 + Gt113*gt13L*Gt322 + Gt213*gt23L*Gt322 + - Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + - Gt212*gt23L*Gt323 + gt23L*Gt313*Gt323 + Gt122*Gt311*gt33L + - Gt222*Gt312*gt33L + Gt313*Gt322*gt33L + Gt312*Gt323*gt33L)*gtu21 + - (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + - gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + - 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + - Gt212*Gt223*gt23L + Gt133*gt23L*Gt311 + Gt133*gt13L*Gt312 + - 2*Gt233*gt23L*Gt312 + Gt113*gt13L*Gt323 + Gt213*gt23L*Gt323 + - Gt113*gt12L*Gt333 + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + - Gt212*gt23L*Gt333 + gt23L*Gt313*Gt333 + Gt123*Gt311*gt33L + - Gt223*Gt312*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L)*gtu31 + - gtu21*(Gt113*gt11L*Gt122 + Gt122*gt13L*Gt212 + 2*Gt122*gt12L*Gt213 + - Gt113*gt12L*Gt222 + Gt113*Gt212*gt22L + 2*Gt213*Gt222*gt22L + - Gt212*Gt222*gt23L + Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + - Gt223*gt23L*Gt312 + Gt123*gt12L*Gt313 + Gt122*gt13L*Gt313 + - Gt223*gt22L*Gt313 + Gt222*gt23L*Gt313 + Gt113*gt13L*Gt322 + - 2*Gt213*gt23L*Gt322 + gt23L*Gt313*Gt323 + Gt212*Gt322*gt33L + - Gt313*Gt322*gt33L + Gt312*Gt323*gt33L + - Gt112*(Gt113*gt12L + Gt212*gt23L + Gt312*gt33L) + gt13L*SQR(Gt112))) - + 2*gtu31*(2*Gt213*Gt223*gt22L + Gt112*Gt213*gt23L + - Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + - gt12L*Gt133*Gt313 + gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + - Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + 2*Gt213*gt23L*Gt323 + - Gt113*(gt11L*Gt123 + Gt112*gt13L + gt12L*Gt223 + Gt213*gt22L + - gt23L*Gt313 + gt13L*Gt323) + gt23L*Gt313*Gt333 + - Gt112*Gt313*gt33L + Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L + gt12L*SQR(Gt113)) + - 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + - Gt113*gt12L*Gt212 + Gt112*gt13L*Gt212 + 2*Gt112*gt12L*Gt213 + - Gt113*Gt211*gt22L + 2*Gt212*Gt213*gt22L + Gt112*Gt211*gt23L + - Gt113*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + 3*Gt213*gt23L*Gt312 + - Gt113*gt12L*Gt313 + Gt112*gt13L*Gt313 + Gt213*gt22L*Gt313 + - Gt212*gt23L*Gt313 + Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + - 2*Gt312*Gt313*gt33L + gt23L*SQR(Gt212) + gt23L*SQR(Gt313)) + 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + Gt123*gt12L*Gt222 + Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + Gt223*gt22L*Gt323 + Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + - 2*Gt322*Gt323*gt33L + gt23L*SQR(Gt222) + gt23L*SQR(Gt323)) + + 2*Gt322*Gt323*gt33L + gt23L*T1000063 + gt23L*T1000096) + + 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + + 2*Gt212*Gt213*gt22L + 3*Gt213*gt23L*Gt312 + Gt113*gt12L*Gt313 + + 2*Gt312*Gt313*gt33L + T1000057 + T1000097 + T1000098 + T1000099 + + T1000100 + T1000101 + T1000102 + T1000103 + T1000104 + T1000105 + + T1000106 + T1000107 + T1000108 + T1000109) + + 2*gtu21*(Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + Gt123*Gt211*gt22L + + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + Gt123*gt23L*Gt311 + + Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + + Gt122*Gt311*gt33L + Gt222*Gt312*gt33L + T1000035 + T1000036 + + T1000110 + T1000111 + T1000112 + T1000113 + T1000114 + T1000115 + + T1000116 + T1000122) + 2*gtu21* + (Gt113*gt11L*Gt122 + 2*Gt213*Gt222*gt22L + Gt123*gt12L*Gt313 + + Gt122*gt13L*Gt313 + 2*Gt213*gt23L*Gt322 + + Gt112*(T1000029 + T1000065 + T1000066) + T1000111 + T1000113 + + T1000114 + T1000115 + T1000116 + T1000117 + T1000118 + T1000119 + + T1000120 + T1000121 + T1000122 + T1000123 + T1000124 + T1000125 + + T1000126 + T1000127) + 2*gtu31* + (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + + gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + + 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + + Gt133*gt23L*Gt311 + 2*Gt233*gt23L*Gt312 + Gt113*gt12L*Gt333 + + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + Gt123*Gt311*gt33L + + Gt223*Gt312*gt33L + T1000080 + T1000085 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000132 + T1000133) + + 2*gtu31*(Gt112*Gt213*gt23L + gt12L*Gt133*Gt313 + + Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + Gt112*Gt313*gt33L + + T1000074 + T1000080 + T1000082 + T1000085 + + Gt113*(T1000030 + T1000031 + T1000038 + T1000039 + T1000060 + + T1000093) + T1000128 + T1000129 + T1000133 + T1000134 + T1000135 + + T1000136 + T1000137 + T1000138) + 2*gtu32*(gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + Gt133*Gt212*gt22L + 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + - Gt222*Gt223*gt23L + Gt133*gt23L*Gt312 + Gt133*gt13L*Gt322 + - 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + Gt223*gt23L*Gt323 + - Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + Gt223*gt22L*Gt333 + - Gt222*gt23L*Gt333 + gt23L*Gt323*Gt333 + Gt123*Gt312*gt33L + - Gt223*Gt322*gt33L + Gt322*Gt333*gt33L + gt33L*SQR(Gt323)) + - 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + Gt123*gt13L*Gt222 + - 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + Gt122*Gt213*gt23L + - Gt222*Gt223*gt23L + Gt123*gt23L*Gt313 + Gt133*gt13L*Gt322 + - Gt233*gt23L*Gt322 + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + - gt22L*Gt233*Gt323 + 3*Gt223*gt23L*Gt323 + gt23L*Gt323*Gt333 + - Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + Gt322*Gt333*gt33L + - gt11L*SQR(Gt123) + 2*gt22L*SQR(Gt223) + gt33L*SQR(Gt323)) + - 2*gtu33*(gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + + Gt133*gt23L*Gt312 + 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + + Gt223*gt23L*Gt323 + Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + + Gt223*gt22L*Gt333 + Gt222*gt23L*Gt333 + Gt123*Gt312*gt33L + + Gt223*Gt322*gt33L + T1000140 + T1000141 + T1000142 + T1000143 + + T1000144) + 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + + Gt123*gt13L*Gt222 + 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + + Gt122*Gt213*gt23L + Gt123*gt23L*Gt313 + Gt233*gt23L*Gt322 + + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + gt22L*Gt233*Gt323 + + 3*Gt223*gt23L*Gt323 + Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + + 2*gt22L*T1000081 + gt11L*T1000139 + T1000140 + T1000141 + T1000142 + + T1000143 + T1000144) + 2*gtu33* + (gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + gt12L*Gt133*Gt223 + Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + gt22L*Gt233*Gt333 + Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + - 2*Gt323*Gt333*gt33L + gt23L*SQR(Gt223) + gt23L*SQR(Gt333))); + 2*Gt323*Gt333*gt33L + gt23L*T1000081 + gt23L*T1000145) + + T1000032*Xtn1 + T1000095*Xtn1 + + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xtn2 + + (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xtn2 + + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xtn3 + + (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xtn3); Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + @@ -987,354 +1468,49 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + 2*Gt133*Gt311*gtu31 + 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + - PDstandardNth3Xt3) + Gt113*gt13L*Xtn1 + Gt213*gt23L*Xtn1 + - Gt313*gt33L*Xtn1 + Gt123*gt13L*Xtn2 + Gt223*gt23L*Xtn2 + Gt323*gt33L*Xtn2 + - Gt133*gt13L*Xtn3 + Gt333*gt33L*Xtn3 + - Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xtn3) + - gtu11*(2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + + PDstandardNth3Xt3) + gtu11* + (2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + 2*Gt113*Gt311*gt33L + 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + - gt11L*SQR(Gt113)) + 2*(Gt111*Gt113*gt13L*gtu11 + - Gt113*gt12L*Gt213*gtu11 + Gt112*gt13L*Gt213*gtu11 + - Gt113*Gt211*gt23L*gtu11 + Gt113*gt11L*Gt123*gtu21 + - Gt112*Gt113*gt13L*gtu21 + Gt111*Gt123*gt13L*gtu21 + - Gt123*gt12L*Gt213*gtu21 + Gt122*gt13L*Gt213*gtu21 + - Gt113*gt12L*Gt223*gtu21 + Gt112*gt13L*Gt223*gtu21 + - Gt213*Gt223*gt22L*gtu21 + Gt123*Gt211*gt23L*gtu21 + - Gt113*Gt212*gt23L*gtu21 + Gt213*Gt222*gt23L*gtu21 + - Gt113*Gt312*gt33L*gtu21 + Gt223*Gt312*gt33L*gtu21 + - Gt112*Gt123*gt13L*gtu22 + Gt123*gt12L*Gt223*gtu22 + - Gt122*gt13L*Gt223*gtu22 + Gt123*Gt212*gt23L*gtu22 + - Gt222*Gt223*gt23L*gtu22 + Gt223*Gt322*gt33L*gtu22 + - Gt113*gt11L*Gt133*gtu31 + Gt111*Gt133*gt13L*gtu31 + - gt12L*Gt133*Gt213*gtu31 + Gt123*gt13L*Gt213*gtu31 + - Gt113*gt12L*Gt233*gtu31 + Gt112*gt13L*Gt233*gtu31 + - Gt213*gt22L*Gt233*gtu31 + Gt133*Gt211*gt23L*gtu31 + - Gt113*Gt213*gt23L*gtu31 + Gt213*Gt223*gt23L*gtu31 + - Gt212*Gt233*gt23L*gtu31 + Gt113*Gt313*gt33L*gtu31 + - Gt213*Gt323*gt33L*gtu31 + gt11L*Gt123*Gt133*gtu32 + - Gt113*Gt123*gt13L*gtu32 + Gt112*Gt133*gt13L*gtu32 + - gt12L*Gt133*Gt223*gtu32 + Gt123*gt13L*Gt223*gtu32 + - Gt123*gt12L*Gt233*gtu32 + Gt122*gt13L*Gt233*gtu32 + - Gt223*gt22L*Gt233*gtu32 + Gt133*Gt212*gt23L*gtu32 + - Gt123*Gt213*gt23L*gtu32 + Gt222*Gt233*gt23L*gtu32 + - Gt233*Gt322*gt33L*gtu32 + Gt223*Gt323*gt33L*gtu32 + - Gt113*Gt133*gt13L*gtu33 + gt12L*Gt133*Gt233*gtu33 + - Gt123*gt13L*Gt233*gtu33 + Gt133*Gt213*gt23L*gtu33 + - Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*SQR(Gt113)) + - gt11L*gtu22*SQR(Gt123) + gt11L*gtu33*SQR(Gt133) + gt22L*gtu11*SQR(Gt213) + - gt22L*gtu22*SQR(Gt223) + 2*gt23L*gtu32*SQR(Gt223) + - gt22L*gtu33*SQR(Gt233) + 3*gt33L*gtu11*SQR(Gt313) + - 3*gt33L*gtu22*SQR(Gt323) + 3*gt33L*gtu33*SQR(Gt333); - - Rphi11 = 2*(-PDstandardNth11phi - gt11L*gtu11*PDstandardNth11phi - - 2*gt11L*gtu21*PDstandardNth12phi - 2*gt11L*gtu31*PDstandardNth13phi - - gt11L*gtu22*PDstandardNth22phi - 2*gt11L*gtu32*PDstandardNth23phi - - gt11L*gtu33*PDstandardNth33phi + Gt311*PDstandardNth3phi + - gt11L*Gt311*gtu11*PDstandardNth3phi + - 2*gt11L*Gt312*gtu21*PDstandardNth3phi + - gt11L*Gt322*gtu22*PDstandardNth3phi + - 2*gt11L*Gt313*gtu31*PDstandardNth3phi + - 2*gt11L*Gt323*gtu32*PDstandardNth3phi + - gt11L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt111 + Gt111*gt11L*gtu11 + 2*Gt112*gt11L*gtu21 + - gt11L*Gt122*gtu22 + 2*Gt113*gt11L*gtu31 + 2*gt11L*Gt123*gtu32 + - gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandardNth2phi - - 4*gt11L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 + - gt11L*(2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt11L*gtu32*PDstandardNth3phi) + - (2 - 2*gt11L*gtu11)*SQR(PDstandardNth1phi) - - 2*gt11L*gtu22*SQR(PDstandardNth2phi) - - 2*gt11L*gtu33*SQR(PDstandardNth3phi)); - - Rphi12 = 2*(-(gt12L*gtu11*PDstandardNth11phi) - PDstandardNth12phi - - 2*gt12L*gtu21*PDstandardNth12phi - 2*gt12L*gtu31*PDstandardNth13phi - - gt12L*gtu22*PDstandardNth22phi - 2*gt12L*gtu32*PDstandardNth23phi - - gt12L*gtu33*PDstandardNth33phi + Gt312*PDstandardNth3phi + - gt12L*Gt311*gtu11*PDstandardNth3phi + - 2*gt12L*Gt312*gtu21*PDstandardNth3phi + - gt12L*Gt322*gtu22*PDstandardNth3phi + - 2*gt12L*Gt313*gtu31*PDstandardNth3phi + - 2*gt12L*Gt323*gtu32*PDstandardNth3phi + - gt12L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt112 + Gt111*gt12L*gtu11 + 2*Gt112*gt12L*gtu21 + - Gt122*gt12L*gtu22 + 2*Gt113*gt12L*gtu31 + 2*Gt123*gt12L*gtu32 + - gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandardNth2phi - - 4*gt12L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt212 + 2*gt12L*Gt212*gtu21 + - gt12L*(Gt211*gtu11 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt12L*gtu32*PDstandardNth3phi) - - 2*gt12L*gtu11*SQR(PDstandardNth1phi) - - 2*gt12L*gtu22*SQR(PDstandardNth2phi) - - 2*gt12L*gtu33*SQR(PDstandardNth3phi)); - - Rphi13 = 2*(-PDstandardNth13phi + - gt13L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi) - gt13L*gtu22*PDstandardNth22phi - - 2*gt13L*gtu32*PDstandardNth23phi - gt13L*gtu33*PDstandardNth33phi + - Gt313*PDstandardNth3phi + gt13L*Gt311*gtu11*PDstandardNth3phi + - 2*gt13L*Gt312*gtu21*PDstandardNth3phi + - gt13L*Gt322*gtu22*PDstandardNth3phi + - 2*gt13L*Gt313*gtu31*PDstandardNth3phi + - 2*gt13L*Gt323*gtu32*PDstandardNth3phi + - gt13L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt113 + Gt111*gt13L*gtu11 + 2*Gt112*gt13L*gtu21 + - Gt122*gt13L*gtu22 + 2*Gt113*gt13L*gtu31 + 2*Gt123*gt13L*gtu32 + - Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandardNth2phi + - (2 - 4*gt13L*gtu31)*PDstandardNth3phi) + - PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 + - gt13L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt13L*gtu32*PDstandardNth3phi) - - 2*gt13L*gtu11*SQR(PDstandardNth1phi) - - 2*gt13L*gtu22*SQR(PDstandardNth2phi) - - 2*gt13L*gtu33*SQR(PDstandardNth3phi)); - - Rphi22 = 2*(-PDstandardNth22phi + - gt22L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi) - - 2*gt22L*gtu32*PDstandardNth23phi - gt22L*gtu33*PDstandardNth33phi + - Gt322*PDstandardNth3phi + gt22L*Gt311*gtu11*PDstandardNth3phi + - 2*gt22L*Gt312*gtu21*PDstandardNth3phi + - gt22L*Gt322*gtu22*PDstandardNth3phi + - 2*gt22L*Gt313*gtu31*PDstandardNth3phi + - 2*gt22L*Gt323*gtu32*PDstandardNth3phi + - gt22L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt122 + Gt111*gt22L*gtu11 + 2*Gt112*gt22L*gtu21 + - Gt122*gt22L*gtu22 + 2*Gt113*gt22L*gtu31 + 2*Gt123*gt22L*gtu32 + - Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandardNth2phi - - 4*gt22L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt222 + Gt222*gt22L*gtu22 + - gt22L*(Gt211*gtu11 + 2*Gt212*gtu21 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt22L*gtu32*PDstandardNth3phi) - - 2*gt22L*gtu11*SQR(PDstandardNth1phi) + - (2 - 2*gt22L*gtu22)*SQR(PDstandardNth2phi) - - 2*gt22L*gtu33*SQR(PDstandardNth3phi)); - - Rphi23 = 2*(-PDstandardNth23phi + - gt23L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - - 2*gtu32*PDstandardNth23phi) - gt23L*gtu33*PDstandardNth33phi + - Gt323*PDstandardNth3phi + gt23L*Gt311*gtu11*PDstandardNth3phi + - 2*gt23L*Gt312*gtu21*PDstandardNth3phi + - gt23L*Gt322*gtu22*PDstandardNth3phi + - 2*gt23L*Gt313*gtu31*PDstandardNth3phi + - 2*gt23L*Gt323*gtu32*PDstandardNth3phi + - gt23L*Gt333*gtu33*PDstandardNth3phi + - PDstandardNth1phi*(Gt123 + Gt111*gt23L*gtu11 + 2*Gt112*gt23L*gtu21 + - Gt122*gt23L*gtu22 + 2*Gt113*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + - Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandardNth2phi - - 4*gt23L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + - gt23L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + - Gt233*gtu33) + (2 - 4*gt23L*gtu32)*PDstandardNth3phi) - - 2*gt23L*gtu11*SQR(PDstandardNth1phi) - - 2*gt23L*gtu22*SQR(PDstandardNth2phi) - - 2*gt23L*gtu33*SQR(PDstandardNth3phi)); - - Rphi33 = 2*(-PDstandardNth33phi + - (Gt333 + gt33L*(Gt322*gtu22 + - 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))* - PDstandardNth3phi + PDstandardNth2phi* - (Gt233 + gt33L*(Gt211*gtu11 + Gt222*gtu22 + - 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33 - - 4*gtu32*PDstandardNth3phi)) + - PDstandardNth1phi*(Gt133 + - gt33L*(Gt111*gtu11 + Gt122*gtu22 + - 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - - 4*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi))) + - 2*SQR(PDstandardNth3phi) + - gt33L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - - 2*gtu32*PDstandardNth23phi - gtu33*PDstandardNth33phi + - Gt311*gtu11*PDstandardNth3phi - 2*gtu11*SQR(PDstandardNth1phi) - - 2*gtu22*SQR(PDstandardNth2phi) - 2*gtu33*SQR(PDstandardNth3phi))); - - Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; - - Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; - - Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; - - Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; - - Atm22 = At12L*gtu21 + At22L*gtu22 + At23L*gtu32; - - Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; - - Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; - - Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; - - Atm33 = At13L*gtu31 + At23L*gtu32 + At33L*gtu33; - - Atu11 = Atm11*gtu11 + Atm12*gtu21 + Atm13*gtu31; - - Atu21 = Atm11*gtu21 + Atm12*gtu22 + Atm13*gtu32; - - Atu31 = Atm11*gtu31 + Atm12*gtu32 + Atm13*gtu33; - - Atu22 = Atm21*gtu21 + Atm22*gtu22 + Atm23*gtu32; - - Atu32 = Atm21*gtu31 + Atm22*gtu32 + Atm23*gtu33; - - Atu33 = Atm31*gtu31 + Atm32*gtu32 + Atm33*gtu33; - - e4phi = exp(4*phiL); - - em4phi = INV(e4phi); - - g11 = e4phi*gt11L; - - g12 = e4phi*gt12L; - - g13 = e4phi*gt13L; - - g22 = e4phi*gt22L; - - g23 = e4phi*gt23L; - - g33 = e4phi*gt33L; - - gu11 = em4phi*gtu11; - - gu21 = em4phi*gtu21; - - gu31 = em4phi*gtu31; - - gu22 = em4phi*gtu22; - - gu32 = em4phi*gtu32; - - gu33 = em4phi*gtu33; - - G111 = Gt111 + (4 - 2*gt11L*gtu11)*PDstandardNth1phi - - 2*gt11L*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi); - - G211 = Gt211 - 2*gt11L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + - gtu32*PDstandardNth3phi); - - G311 = Gt311 - 2*gt11L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + - gtu33*PDstandardNth3phi); - - G112 = Gt112 + (2 - 2*gt12L*gtu21)*PDstandardNth2phi - - 2*gt12L*(gtu11*PDstandardNth1phi + gtu31*PDstandardNth3phi); - - G212 = Gt212 + (2 - 2*gt12L*gtu21)*PDstandardNth1phi - - 2*gt12L*(gtu22*PDstandardNth2phi + gtu32*PDstandardNth3phi); - - G312 = Gt312 - 2*gt12L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + - gtu33*PDstandardNth3phi); - - G113 = Gt113 + 2*PDstandardNth3phi - - 2*gt13L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + - gtu31*PDstandardNth3phi); - - G213 = Gt213 - 2*gt13L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + - gtu32*PDstandardNth3phi); - - G313 = Gt313 + (2 - 2*gt13L*gtu31)*PDstandardNth1phi - - 2*gt13L*(gtu32*PDstandardNth2phi + gtu33*PDstandardNth3phi); - - G122 = Gt122 - 2*gt22L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + - gtu31*PDstandardNth3phi); - - G222 = Gt222 + (4 - 2*gt22L*gtu22)*PDstandardNth2phi - - 2*gt22L*(gtu21*PDstandardNth1phi + gtu32*PDstandardNth3phi); - - G322 = Gt322 - 2*gt22L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + - gtu33*PDstandardNth3phi); - - G123 = Gt123 - 2*gt23L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + - gtu31*PDstandardNth3phi); - - G223 = Gt223 + 2*PDstandardNth3phi - - 2*gt23L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + - gtu32*PDstandardNth3phi); - - G323 = Gt323 + (2 - 2*gt23L*gtu32)*PDstandardNth2phi - - 2*gt23L*(gtu31*PDstandardNth1phi + gtu33*PDstandardNth3phi); - - G133 = Gt133 - 2*gt33L*(gtu11*PDstandardNth1phi + gtu21*PDstandardNth2phi + - gtu31*PDstandardNth3phi); - - G233 = Gt233 - 2*gt33L*(gtu21*PDstandardNth1phi + gtu22*PDstandardNth2phi + - gtu32*PDstandardNth3phi); - - G333 = Gt333 + 4*PDstandardNth3phi - - 2*gt33L*(gtu31*PDstandardNth1phi + gtu32*PDstandardNth2phi + - gtu33*PDstandardNth3phi); - - R11 = Rphi11 + Rt11; - - R12 = Rphi12 + Rt12; - - R13 = Rphi13 + Rt13; - - R22 = Rphi22 + Rt22; - - R23 = Rphi23 + Rt23; - - R33 = Rphi33 + Rt33; - - phirhsL = (6*(PDupwindNth1(phi, i, j, k)*beta1L + - PDupwindNth2(phi, i, j, k)*beta2L + - PDupwindNth3(phi, i, j, k)*beta3L) + PDstandardNth1beta1 + - PDstandardNth2beta2 + PDstandardNth3beta3 - alphaL*trKL)/6.; - - gt11rhsL = -2*alphaL*At11L + PDupwindNth1(gt11, i, j, k)*beta1L + - PDupwindNth2(gt11, i, j, k)*beta2L + - PDupwindNth3(gt11, i, j, k)*beta3L + - 2*(gt12L*PDstandardNth1beta2 + gt13L*PDstandardNth1beta3) + - gt11L*(kfourthird*PDstandardNth1beta1 - ktwothird*PDstandardNth2beta2 - - ktwothird*PDstandardNth3beta3); - - gt12rhsL = -2*alphaL*At12L + PDupwindNth1(gt12, i, j, k)*beta1L + - PDupwindNth2(gt12, i, j, k)*beta2L + - PDupwindNth3(gt12, i, j, k)*beta3L + gt22L*PDstandardNth1beta2 + - gt23L*PDstandardNth1beta3 + gt11L*PDstandardNth2beta1 + - gt13L*PDstandardNth2beta3 + gt12L* - (kthird*(PDstandardNth1beta1 + PDstandardNth2beta2) - - ktwothird*PDstandardNth3beta3); - - gt13rhsL = -2*alphaL*At13L + PDupwindNth1(gt13, i, j, k)*beta1L + - PDupwindNth2(gt13, i, j, k)*beta2L + - PDupwindNth3(gt13, i, j, k)*beta3L + gt23L*PDstandardNth1beta2 + - gt33L*PDstandardNth1beta3 + gt11L*PDstandardNth3beta1 + - gt12L*PDstandardNth3beta2 + gt13L* - (-(ktwothird*PDstandardNth2beta2) + - kthird*(PDstandardNth1beta1 + PDstandardNth3beta3)); - - gt22rhsL = -2*alphaL*At22L + PDupwindNth1(gt22, i, j, k)*beta1L + - PDupwindNth2(gt22, i, j, k)*beta2L + - PDupwindNth3(gt22, i, j, k)*beta3L + - 2*(gt12L*PDstandardNth2beta1 + gt23L*PDstandardNth2beta3) + - gt22L*(-(ktwothird*PDstandardNth1beta1) + kfourthird*PDstandardNth2beta2 - - ktwothird*PDstandardNth3beta3); - - gt23rhsL = -2*alphaL*At23L + PDupwindNth1(gt23, i, j, k)*beta1L + - PDupwindNth2(gt23, i, j, k)*beta2L + - PDupwindNth3(gt23, i, j, k)*beta3L + gt13L*PDstandardNth2beta1 + - gt33L*PDstandardNth2beta3 + gt12L*PDstandardNth3beta1 + - gt22L*PDstandardNth3beta2 + gt23L* - (-(ktwothird*PDstandardNth1beta1) + - kthird*(PDstandardNth2beta2 + PDstandardNth3beta3)); - - gt33rhsL = -2*alphaL*At33L + PDupwindNth1(gt33, i, j, k)*beta1L + - PDupwindNth2(gt33, i, j, k)*beta2L + - PDupwindNth3(gt33, i, j, k)*beta3L - - gt33L*ktwothird*PDstandardNth1beta1 - gt33L*ktwothird*PDstandardNth2beta2 + - 2*gt13L*PDstandardNth3beta1 + 2*gt23L*PDstandardNth3beta2 + - gt33L*kfourthird*PDstandardNth3beta3; + 3*gt33L*T1000009) + gt11L*gtu11*T1000041 + + 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + + Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + + Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + + Gt123*Gt211*gt23L*gtu21 + Gt113*Gt212*gt23L*gtu21 + + Gt213*Gt222*gt23L*gtu21 + Gt113*Gt312*gt33L*gtu21 + + Gt223*Gt312*gt33L*gtu21 + Gt112*Gt123*gt13L*gtu22 + + Gt123*gt12L*Gt223*gtu22 + Gt122*gt13L*Gt223*gtu22 + + Gt123*Gt212*gt23L*gtu22 + Gt222*Gt223*gt23L*gtu22 + + Gt223*Gt322*gt33L*gtu22 + Gt113*gt11L*Gt133*gtu31 + + Gt111*Gt133*gt13L*gtu31 + gt12L*Gt133*Gt213*gtu31 + + Gt123*gt13L*Gt213*gtu31 + Gt113*gt12L*Gt233*gtu31 + + Gt112*gt13L*Gt233*gtu31 + Gt213*gt22L*Gt233*gtu31 + + Gt133*Gt211*gt23L*gtu31 + Gt113*Gt213*gt23L*gtu31 + + Gt213*Gt223*gt23L*gtu31 + Gt212*Gt233*gt23L*gtu31 + + Gt113*Gt313*gt33L*gtu31 + Gt213*Gt323*gt33L*gtu31 + + gt11L*Gt123*Gt133*gtu32 + Gt113*Gt123*gt13L*gtu32 + + Gt112*Gt133*gt13L*gtu32 + gt12L*Gt133*Gt223*gtu32 + + Gt123*gt13L*Gt223*gtu32 + Gt123*gt12L*Gt233*gtu32 + + Gt122*gt13L*Gt233*gtu32 + Gt223*gt22L*Gt233*gtu32 + + Gt133*Gt212*gt23L*gtu32 + Gt123*Gt213*gt23L*gtu32 + + Gt222*Gt233*gt23L*gtu32 + Gt233*Gt322*gt33L*gtu32 + + Gt223*Gt323*gt33L*gtu32 + Gt113*Gt133*gt13L*gtu33 + + gt12L*Gt133*Gt233*gtu33 + Gt123*gt13L*Gt233*gtu33 + + Gt133*Gt213*gt23L*gtu33 + Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*T1000041) + + 3*gt33L*gtu22*T1000063 + gt22L*gtu11*T1000067 + gt22L*gtu22*T1000081 + + 2*gt23L*gtu32*T1000081 + gt11L*gtu22*T1000139 + 3*gt33L*gtu33*T1000145 + + Gt113*gt13L*Xtn1 + Gt213*gt23L*Xtn1 + Gt313*gt33L*Xtn1 + Gt123*gt13L*Xtn2 + + Gt223*gt23L*Xtn2 + Gt323*gt33L*Xtn2 + Gt133*gt13L*Xtn3 + Gt333*gt33L*Xtn3 + + Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xtn3) + + gt11L*gtu33*SQR(Gt133) + gt22L*gtu33*SQR(Gt233); Xt1rhsL = kthird*(7*(gtu21*PDstandardNth12beta1 + gtu31*PDstandardNth13beta1) + gtu11*(4*PDstandardNth11beta1 + PDstandardNth12beta2 + PDstandardNth13beta3) + gtu21*(PDstandardNth22beta2 + PDstandardNth23beta3) + - 3*(PDupwindNth1(Xt1, i, j, k)*beta1L + - PDupwindNth2(Xt1, i, j, k)*beta2L + - PDupwindNth3(Xt1, i, j, k)*beta3L + gtu22*PDstandardNth22beta1 + - gtu33*PDstandardNth33beta1) + gtu31*(PDstandardNth23beta2 + PDstandardNth33beta3) - 6*(Atu11*PDstandardNth1alpha + Atu21*PDstandardNth2alpha + Atu31*PDstandardNth3alpha) + @@ -1345,18 +1521,15 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con Atu31*PDstandardNth3phi) - ktwothird*(gtu11*PDstandardNth1trK + gtu21*PDstandardNth2trK + gtu31*PDstandardNth3trK))) + - (-3*PDstandardNth1beta1 + 2* - (PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3))* - Xtn1 - 3*(PDstandardNth2beta1*Xtn2 + PDstandardNth3beta1*Xtn3)); + 3*(gtu22*PDstandardNth22beta1 + gtu33*PDstandardNth33beta1 + + beta1L*T1000165 + beta2L*T1000166 + beta3L*T1000167) + + (-3*PDstandardNth1beta1 + 2*T1000163)*Xtn1 - + 3*(PDstandardNth2beta1*Xtn2 + PDstandardNth3beta1*Xtn3)); Xt2rhsL = kthird*(gtu21*(PDstandardNth11beta1 + 7*PDstandardNth12beta2 + PDstandardNth13beta3) + gtu22*(PDstandardNth12beta1 + 4*PDstandardNth22beta2 + PDstandardNth23beta3) + - 3*(PDupwindNth1(Xt2, i, j, k)*beta1L + - PDupwindNth2(Xt2, i, j, k)*beta2L + - PDupwindNth3(Xt2, i, j, k)*beta3L + gtu11*PDstandardNth11beta2 + - gtu33*PDstandardNth33beta2) + gtu32*(PDstandardNth13beta1 + 7*PDstandardNth23beta2 + PDstandardNth33beta3) - 6*(Atu21*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + @@ -1368,16 +1541,13 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con Atu32*PDstandardNth3phi) - ktwothird*(gtu21*PDstandardNth1trK + gtu22*PDstandardNth2trK + gtu32*PDstandardNth3trK))) + - 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)* - Xtn2 - 3*(PDstandardNth1beta2*Xtn1 + PDstandardNth2beta2*Xtn2 + - PDstandardNth3beta2*Xtn3)); + 3*(gtu11*PDstandardNth11beta2 + gtu33*PDstandardNth33beta2 + + beta1L*T1000168 + beta2L*T1000169 + beta3L*T1000170) + + 2*T1000163*Xtn2 - 3*(PDstandardNth1beta2*Xtn1 + + PDstandardNth2beta2*Xtn2 + PDstandardNth3beta2*Xtn3)); Xt3rhsL = kthird*(gtu31*(PDstandardNth11beta1 + PDstandardNth12beta2 + 7*PDstandardNth13beta3) + - 3*(PDupwindNth1(Xt3, i, j, k)*beta1L + - PDupwindNth2(Xt3, i, j, k)*beta2L + - PDupwindNth3(Xt3, i, j, k)*beta3L + gtu11*PDstandardNth11beta3 + - gtu22*PDstandardNth22beta3) + gtu32*(PDstandardNth12beta1 + PDstandardNth22beta2 + 7*PDstandardNth23beta3) + gtu33*(PDstandardNth13beta1 + PDstandardNth23beta2 + @@ -1391,9 +1561,10 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con Atu33*PDstandardNth3phi) - ktwothird*(gtu31*PDstandardNth1trK + gtu32*PDstandardNth2trK + gtu33*PDstandardNth3trK))) + - 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)* - Xtn3 - 3*(PDstandardNth1beta3*Xtn1 + PDstandardNth2beta3*Xtn2 + - PDstandardNth3beta3*Xtn3)); + 3*(gtu11*PDstandardNth11beta3 + gtu22*PDstandardNth22beta3 + + beta1L*T1000171 + beta2L*T1000172 + beta3L*T1000173) + + 2*T1000163*Xtn3 - 3*(PDstandardNth1beta3*Xtn1 + + PDstandardNth2beta3*Xtn2 + PDstandardNth3beta3*Xtn3)); trKrhsL = PDupwindNth1(trK, i, j, k)*beta1L + PDupwindNth2(trK, i, j, k)*beta2L + PDupwindNth3(trK, i, j, k)*beta3L - @@ -1411,6 +1582,35 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con G312*gu21*PDstandardNth3alpha) + alphaL*SQR(Atm11) + alphaL*SQR(Atm22) + alphaL*SQR(Atm33) + alphaL*kthird*SQR(trKL); + R11 = Rphi11 + Rt11; + + R12 = Rphi12 + Rt12; + + R13 = Rphi13 + Rt13; + + R22 = Rphi22 + Rt22; + + R23 = Rphi23 + Rt23; + + R33 = Rphi33 + Rt33; + + ArhsL = T1000164*(AL*AlphaDriver - trKrhsL); + + B1rhsL = -(B1L*BetaDriver) + ShiftAdvectionCoeff* + (beta1L*(PDupwindNth1(B1, i, j, k) - T1000165) + + beta2L*(PDupwindNth2(B1, i, j, k) - T1000166) + + beta3L*(PDupwindNth3(B1, i, j, k) - T1000167)) + Xt1rhsL; + + B2rhsL = -(B2L*BetaDriver) + ShiftAdvectionCoeff* + (beta1L*(PDupwindNth1(B2, i, j, k) - T1000168) + + beta2L*(PDupwindNth2(B2, i, j, k) - T1000169) + + beta3L*(PDupwindNth3(B2, i, j, k) - T1000170)) + Xt2rhsL; + + B3rhsL = -(B3L*BetaDriver) + ShiftAdvectionCoeff* + (beta1L*(PDupwindNth1(B3, i, j, k) - T1000171) + + beta2L*(PDupwindNth2(B3, i, j, k) - T1000172) + + beta3L*(PDupwindNth3(B3, i, j, k) - T1000173)) + Xt3rhsL; + Ats11 = -PDstandardNth11alpha + G111*PDstandardNth1alpha + G211*PDstandardNth2alpha + G311*PDstandardNth3alpha + alphaL*R11; @@ -1436,9 +1636,8 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con PDupwindNth2(At11, i, j, k)*beta2L + PDupwindNth3(At11, i, j, k)*beta3L + 2*(At11L*PDstandardNth1beta1 + At12L*PDstandardNth1beta2 + - At13L*PDstandardNth1beta3) - - At11L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + - PDstandardNth3beta3) + em4phi*(Ats11 - g11*kthird*trAts) + + At13L*PDstandardNth1beta3) - At11L*ktwothird*T1000163 + + em4phi*(Ats11 - g11*kthird*trAts) + alphaL*(-2*(At11L*Atm11 + At12L*Atm21 + At13L*Atm31) + At11L*trKL); At12rhsL = -2*alphaL*(At11L*Atm12 + At12L*Atm22 + At13L*Atm32) + @@ -1463,9 +1662,8 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con PDupwindNth2(At22, i, j, k)*beta2L + PDupwindNth3(At22, i, j, k)*beta3L + 2*(At12L*PDstandardNth2beta1 + At22L*PDstandardNth2beta2 + - At23L*PDstandardNth2beta3) - - At22L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + - PDstandardNth3beta3) + em4phi*(Ats22 - g22*kthird*trAts) + + At23L*PDstandardNth2beta3) - At22L*ktwothird*T1000163 + + em4phi*(Ats22 - g22*kthird*trAts) + alphaL*(-2*(At12L*Atm12 + At22L*Atm22 + At23L*Atm32) + At22L*trKL); At23rhsL = -2*alphaL*(At12L*Atm13 + At22L*Atm23 + At23L*Atm33) + @@ -1479,54 +1677,12 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con At33rhsL = PDupwindNth1(At33, i, j, k)*beta1L + PDupwindNth2(At33, i, j, k)*beta2L + - PDupwindNth3(At33, i, j, k)*beta3L - - At33L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + - PDstandardNth3beta3) + 2*(At13L*PDstandardNth3beta1 + - At23L*PDstandardNth3beta2 + At33L*PDstandardNth3beta3) + + PDupwindNth3(At33, i, j, k)*beta3L + + 2*(At13L*PDstandardNth3beta1 + At23L*PDstandardNth3beta2 + + At33L*PDstandardNth3beta3) - At33L*ktwothird*T1000163 + em4phi*(Ats33 - g33*kthird*trAts) + alphaL*(-2*(At13L*Atm13 + At23L*Atm23 + At33L*Atm33) + At33L*trKL); - alpharhsL = (PDupwindNth1(alpha, i, j, k)*beta1L + - PDupwindNth2(alpha, i, j, k)*beta2L + - PDupwindNth3(alpha, i, j, k)*beta3L)*LapseAdvectionCoeff + - harmonicF*(AL*(-1 + LapseAdvectionCoeff) - LapseAdvectionCoeff*trKL)* - pow(alphaL,harmonicN); - - ArhsL = (-1 + LapseAdvectionCoeff)*(AL*AlphaDriver - trKrhsL); - - beta1rhsL = (PDupwindNth1(beta1, i, j, k)*beta1L + - PDupwindNth2(beta1, i, j, k)*beta2L + - PDupwindNth3(beta1, i, j, k)*beta3L)*ShiftAdvectionCoeff + - B1L*ShiftGammaCoeff; - - beta2rhsL = (PDupwindNth1(beta2, i, j, k)*beta1L + - PDupwindNth2(beta2, i, j, k)*beta2L + - PDupwindNth3(beta2, i, j, k)*beta3L)*ShiftAdvectionCoeff + - B2L*ShiftGammaCoeff; - - beta3rhsL = (PDupwindNth1(beta3, i, j, k)*beta1L + - PDupwindNth2(beta3, i, j, k)*beta2L + - PDupwindNth3(beta3, i, j, k)*beta3L)*ShiftAdvectionCoeff + - B3L*ShiftGammaCoeff; - - B1rhsL = -(B1L*BetaDriver) + ((PDupwindNth1(B1, i, j, k) - PDupwindNth1(Xt1\ - , i, j, k))*beta1L + - (PDupwindNth2(B1, i, j, k) - PDupwindNth2(Xt1, i, j, k))*beta2L + - (PDupwindNth3(B1, i, j, k) - PDupwindNth3(Xt1, i, j, k))*beta3L)* - ShiftAdvectionCoeff + Xt1rhsL; - - B2rhsL = -(B2L*BetaDriver) + ((PDupwindNth1(B2, i, j, k) - PDupwindNth1(Xt2\ - , i, j, k))*beta1L + - (PDupwindNth2(B2, i, j, k) - PDupwindNth2(Xt2, i, j, k))*beta2L + - (PDupwindNth3(B2, i, j, k) - PDupwindNth3(Xt2, i, j, k))*beta3L)* - ShiftAdvectionCoeff + Xt2rhsL; - - B3rhsL = -(B3L*BetaDriver) + ((PDupwindNth1(B3, i, j, k) - PDupwindNth1(Xt3\ - , i, j, k))*beta1L + - (PDupwindNth2(B3, i, j, k) - PDupwindNth2(Xt3, i, j, k))*beta2L + - (PDupwindNth3(B3, i, j, k) - PDupwindNth3(Xt3, i, j, k))*beta3L)* - ShiftAdvectionCoeff + Xt3rhsL; - /* Copy local copies back to grid functions */ alpharhs[index] = alpharhsL; @@ -1562,8 +1718,8 @@ void ML_BSSN_RHS_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT con void ML_BSSN_RHS(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_RHS_Body); } diff --git a/ML_BSSN/src/ML_BSSN_RHSBoundary.c b/ML_BSSN/src/ML_BSSN_RHSBoundary.c index c64c196..d44c179 100644 --- a/ML_BSSN/src/ML_BSSN_RHSBoundary.c +++ b/ML_BSSN/src/ML_BSSN_RHSBoundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK #pragma omp parallel LC_LOOP3 (ML_BSSN_RHSBoundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -325,19 +325,29 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK /* Calculate temporaries and grid functions */ detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + em4phi = exp(-4*phiL); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + nn1 = normal[0]; - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + nn2 = normal[1]; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + nn3 = normal[2]; - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + vg = pow(harmonicF,0.5); - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + CCTK_REAL const T1000001 = INV(detgt); - em4phi = exp(-4*phiL); + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); + + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; + + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; + + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); + + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; + + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); gu11 = em4phi*gtu11; @@ -351,12 +361,6 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gu33 = em4phi*gtu33; - nn1 = normal[0]; - - nn2 = normal[1]; - - nn3 = normal[2]; - nu1 = gu11*nn1 + gu21*nn2 + gu31*nn3; nu2 = gu21*nn1 + gu22*nn2 + gu32*nn3; @@ -367,13 +371,13 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK nlen = pow(nlen2,0.5); - su1 = nu1*INV(nlen); + CCTK_REAL const T1000002 = INV(nlen); - su2 = nu2*INV(nlen); + su1 = nu1*T1000002; - su3 = nu3*INV(nlen); + su2 = nu2*T1000002; - vg = pow(harmonicF,0.5); + su3 = nu3*T1000002; phirhsL = -((PDMinus1phi*su1 + PDMinus2phi*su2 + PDMinus3phi*su3)*vg); @@ -460,8 +464,8 @@ void ML_BSSN_RHSBoundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK void ML_BSSN_RHSBoundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundary(cctkGH, &ML_BSSN_RHSBoundary_Body); } diff --git a/ML_BSSN/src/ML_BSSN_boundary.c b/ML_BSSN/src/ML_BSSN_boundary.c index 6d825c5..5520ebc 100644 --- a/ML_BSSN/src/ML_BSSN_boundary.c +++ b/ML_BSSN/src/ML_BSSN_boundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_IN #pragma omp parallel LC_LOOP3 (ML_BSSN_boundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -221,8 +221,8 @@ void ML_BSSN_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_IN void ML_BSSN_boundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_BSSN_boundary_Body); } diff --git a/ML_BSSN/src/ML_BSSN_constraints.c b/ML_BSSN/src/ML_BSSN_constraints.c index cf01580..e9d0498 100644 --- a/ML_BSSN/src/ML_BSSN_constraints.c +++ b/ML_BSSN/src/ML_BSSN_constraints.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK #pragma omp parallel LC_LOOP3 (ML_BSSN_constraints, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -165,10 +165,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt11 = INITVALUE; CCTK_REAL PDstandardNth12gt11 = INITVALUE; CCTK_REAL PDstandardNth13gt11 = INITVALUE; - CCTK_REAL PDstandardNth21gt11 = INITVALUE; CCTK_REAL PDstandardNth23gt11 = INITVALUE; - CCTK_REAL PDstandardNth31gt11 = INITVALUE; - CCTK_REAL PDstandardNth32gt11 = INITVALUE; CCTK_REAL PDstandardNth1gt12 = INITVALUE; CCTK_REAL PDstandardNth2gt12 = INITVALUE; CCTK_REAL PDstandardNth3gt12 = INITVALUE; @@ -177,10 +174,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt12 = INITVALUE; CCTK_REAL PDstandardNth12gt12 = INITVALUE; CCTK_REAL PDstandardNth13gt12 = INITVALUE; - CCTK_REAL PDstandardNth21gt12 = INITVALUE; CCTK_REAL PDstandardNth23gt12 = INITVALUE; - CCTK_REAL PDstandardNth31gt12 = INITVALUE; - CCTK_REAL PDstandardNth32gt12 = INITVALUE; CCTK_REAL PDstandardNth1gt13 = INITVALUE; CCTK_REAL PDstandardNth2gt13 = INITVALUE; CCTK_REAL PDstandardNth3gt13 = INITVALUE; @@ -189,10 +183,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt13 = INITVALUE; CCTK_REAL PDstandardNth12gt13 = INITVALUE; CCTK_REAL PDstandardNth13gt13 = INITVALUE; - CCTK_REAL PDstandardNth21gt13 = INITVALUE; CCTK_REAL PDstandardNth23gt13 = INITVALUE; - CCTK_REAL PDstandardNth31gt13 = INITVALUE; - CCTK_REAL PDstandardNth32gt13 = INITVALUE; CCTK_REAL PDstandardNth1gt22 = INITVALUE; CCTK_REAL PDstandardNth2gt22 = INITVALUE; CCTK_REAL PDstandardNth3gt22 = INITVALUE; @@ -201,10 +192,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt22 = INITVALUE; CCTK_REAL PDstandardNth12gt22 = INITVALUE; CCTK_REAL PDstandardNth13gt22 = INITVALUE; - CCTK_REAL PDstandardNth21gt22 = INITVALUE; CCTK_REAL PDstandardNth23gt22 = INITVALUE; - CCTK_REAL PDstandardNth31gt22 = INITVALUE; - CCTK_REAL PDstandardNth32gt22 = INITVALUE; CCTK_REAL PDstandardNth1gt23 = INITVALUE; CCTK_REAL PDstandardNth2gt23 = INITVALUE; CCTK_REAL PDstandardNth3gt23 = INITVALUE; @@ -213,10 +201,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt23 = INITVALUE; CCTK_REAL PDstandardNth12gt23 = INITVALUE; CCTK_REAL PDstandardNth13gt23 = INITVALUE; - CCTK_REAL PDstandardNth21gt23 = INITVALUE; CCTK_REAL PDstandardNth23gt23 = INITVALUE; - CCTK_REAL PDstandardNth31gt23 = INITVALUE; - CCTK_REAL PDstandardNth32gt23 = INITVALUE; CCTK_REAL PDstandardNth1gt33 = INITVALUE; CCTK_REAL PDstandardNth2gt33 = INITVALUE; CCTK_REAL PDstandardNth3gt33 = INITVALUE; @@ -225,10 +210,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33gt33 = INITVALUE; CCTK_REAL PDstandardNth12gt33 = INITVALUE; CCTK_REAL PDstandardNth13gt33 = INITVALUE; - CCTK_REAL PDstandardNth21gt33 = INITVALUE; CCTK_REAL PDstandardNth23gt33 = INITVALUE; - CCTK_REAL PDstandardNth31gt33 = INITVALUE; - CCTK_REAL PDstandardNth32gt33 = INITVALUE; CCTK_REAL PDstandardNth1phi = INITVALUE; CCTK_REAL PDstandardNth2phi = INITVALUE; CCTK_REAL PDstandardNth3phi = INITVALUE; @@ -237,10 +219,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK CCTK_REAL PDstandardNth33phi = INITVALUE; CCTK_REAL PDstandardNth12phi = INITVALUE; CCTK_REAL PDstandardNth13phi = INITVALUE; - CCTK_REAL PDstandardNth21phi = INITVALUE; CCTK_REAL PDstandardNth23phi = INITVALUE; - CCTK_REAL PDstandardNth31phi = INITVALUE; - CCTK_REAL PDstandardNth32phi = INITVALUE; CCTK_REAL PDstandardNth1trK = INITVALUE; CCTK_REAL PDstandardNth2trK = INITVALUE; CCTK_REAL PDstandardNth3trK = INITVALUE; @@ -375,19 +354,57 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ + CCTK_REAL const T1000002 = -PDstandardNth3gt12; + + CCTK_REAL const T1000004 = -PDstandardNth2gt13; + + CCTK_REAL const T1000006 = -PDstandardNth1gt23; + + CCTK_REAL const T1000146 = SQR(PDstandardNth1phi); + + CCTK_REAL const T1000147 = SQR(PDstandardNth2phi); + + CCTK_REAL const T1000148 = SQR(PDstandardNth3phi); + detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + e4phi = exp(4*phiL); + + CCTK_REAL const T1000001 = INV(detgt); + + CCTK_REAL const T1000003 = PDstandardNth1gt23 + PDstandardNth2gt13 + T1000002; + + CCTK_REAL const T1000005 = PDstandardNth1gt23 + PDstandardNth3gt12 + T1000004; + + CCTK_REAL const T1000007 = PDstandardNth2gt13 + PDstandardNth3gt12 + T1000006; + + em4phi = INV(e4phi); + + cSL = Log(detgt); + + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); + + CCTK_REAL const T1000155 = At12L*gtu21; + + CCTK_REAL const T1000156 = At13L*gtu31; + + CCTK_REAL const T1000157 = At23L*gtu32; + + CCTK_REAL const T1000158 = At11L*gtu11; + + CCTK_REAL const T1000159 = At22L*gtu22; + + CCTK_REAL const T1000160 = At33L*gtu33; Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - @@ -402,22 +419,22 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu31*T1000003); Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu32*T1000003); Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu33*T1000003); Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu21*T1000005); Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu22*T1000005); Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu32*T1000005); Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + @@ -431,17 +448,14 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gtu32*PDstandardNth2gt22 + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + - gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu21*PDstandardNth3gt22 + + gtu11*T1000007); - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + - gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu22*PDstandardNth3gt22 + + gtu21*T1000007); - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + - gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu32*PDstandardNth3gt22 + + gtu31*T1000007); Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + 2*gtu21*PDstandardNth3gt23 + @@ -455,6 +469,402 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK 2*gtu31*PDstandardNth3gt13 + 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); + gu11 = em4phi*gtu11; + + gu21 = em4phi*gtu21; + + gu31 = em4phi*gtu31; + + gu22 = em4phi*gtu22; + + gu32 = em4phi*gtu32; + + gu33 = em4phi*gtu33; + + Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; + + Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; + + Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; + + Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; + + Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; + + Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; + + CCTK_REAL const T1000008 = SQR(Gt212); + + CCTK_REAL const T1000009 = SQR(Gt313); + + CCTK_REAL const T1000010 = SQR(Gt111); + + CCTK_REAL const T1000011 = SQR(Gt112); + + CCTK_REAL const T1000012 = SQR(Gt312); + + CCTK_REAL const T1000014 = Gt211*Gt222*gt22L; + + CCTK_REAL const T1000015 = Gt211*gt23L*Gt322; + + CCTK_REAL const T1000016 = Gt112*gt12L; + + CCTK_REAL const T1000017 = Gt112*Gt212; + + CCTK_REAL const T1000018 = Gt113*Gt312; + + CCTK_REAL const T1000019 = 2*gt11L*Gt122; + + CCTK_REAL const T1000020 = gt12L*Gt222; + + CCTK_REAL const T1000021 = Gt212*gt22L; + + CCTK_REAL const T1000022 = gt23L*Gt312; + + CCTK_REAL const T1000023 = gt13L*Gt322; + + CCTK_REAL const T1000024 = Gt123*Gt312; + + CCTK_REAL const T1000025 = Gt212*Gt213*gt22L; + + CCTK_REAL const T1000026 = Gt211*Gt223*gt22L; + + CCTK_REAL const T1000027 = Gt213*gt23L*Gt312; + + CCTK_REAL const T1000028 = Gt211*gt23L*Gt323; + + CCTK_REAL const T1000029 = Gt113*gt12L; + + CCTK_REAL const T1000030 = Gt213*gt22L; + + CCTK_REAL const T1000031 = gt23L*Gt313; + + CCTK_REAL const T1000033 = Gt213*Gt222*gt22L; + + CCTK_REAL const T1000034 = Gt212*Gt223*gt22L; + + CCTK_REAL const T1000035 = Gt213*gt23L*Gt322; + + CCTK_REAL const T1000036 = Gt212*gt23L*Gt323; + + CCTK_REAL const T1000037 = 2*gt11L*Gt123; + + CCTK_REAL const T1000038 = gt12L*Gt223; + + CCTK_REAL const T1000039 = gt13L*Gt323; + + CCTK_REAL const T1000041 = SQR(Gt113); + + CCTK_REAL const T1000042 = Gt211*gt22L; + + CCTK_REAL const T1000043 = gt23L*Gt311; + + CCTK_REAL const T1000044 = gt12L*Gt212; + + CCTK_REAL const T1000045 = gt13L*Gt312; + + CCTK_REAL const T1000047 = Gt112*Gt213; + + CCTK_REAL const T1000048 = Gt113*Gt313; + + CCTK_REAL const T1000049 = gt12L*Gt212*Gt223; + + CCTK_REAL const T1000050 = 2*Gt123*gt13L*Gt311; + + CCTK_REAL const T1000051 = Gt223*gt23L*Gt311; + + CCTK_REAL const T1000052 = Gt113*gt13L*Gt312; + + CCTK_REAL const T1000053 = gt13L*Gt223*Gt312; + + CCTK_REAL const T1000054 = gt13L*Gt313*Gt323; + + CCTK_REAL const T1000055 = Gt312*Gt313*gt33L; + + CCTK_REAL const T1000056 = Gt311*Gt323*gt33L; + + CCTK_REAL const T1000057 = Gt212*gt23L*Gt313; + + CCTK_REAL const T1000058 = 2*Gt112*Gt113; + + CCTK_REAL const T1000059 = Gt122*Gt213; + + CCTK_REAL const T1000060 = Gt112*gt13L; + + CCTK_REAL const T1000061 = gt12L*Gt222*Gt223; + + CCTK_REAL const T1000062 = gt13L*Gt223*Gt322; + + CCTK_REAL const T1000063 = SQR(Gt323); + + CCTK_REAL const T1000065 = Gt212*gt23L; + + CCTK_REAL const T1000066 = Gt312*gt33L; + + CCTK_REAL const T1000067 = SQR(Gt213); + + CCTK_REAL const T1000068 = Gt233*gt23L*Gt311; + + CCTK_REAL const T1000069 = Gt133*Gt313; + + CCTK_REAL const T1000070 = gt13L*Gt313*Gt333; + + CCTK_REAL const T1000072 = Gt311*Gt333*gt33L; + + CCTK_REAL const T1000073 = Gt113*gt13L; + + CCTK_REAL const T1000074 = Gt223*gt23L*Gt313; + + CCTK_REAL const T1000075 = gt13L*Gt323*Gt333; + + CCTK_REAL const T1000076 = 2*gt11L*Gt133; + + CCTK_REAL const T1000077 = gt12L*Gt233; + + CCTK_REAL const T1000078 = gt13L*Gt333; + + CCTK_REAL const T1000080 = Gt313*Gt323*gt33L; + + CCTK_REAL const T1000081 = SQR(Gt223); + + CCTK_REAL const T1000082 = Gt233*gt23L*Gt312; + + CCTK_REAL const T1000083 = 2*Gt123*gt13L*Gt313; + + CCTK_REAL const T1000084 = gt13L*Gt223*Gt323; + + CCTK_REAL const T1000085 = Gt312*Gt333*gt33L; + + CCTK_REAL const T1000086 = Gt213*gt23L; + + CCTK_REAL const T1000087 = Gt313*gt33L; + + CCTK_REAL const T1000089 = gt12L*Gt213; + + CCTK_REAL const T1000090 = gt13L*Gt313; + + CCTK_REAL const T1000091 = Gt211*gt23L; + + CCTK_REAL const T1000092 = Gt311*gt33L; + + CCTK_REAL const T1000093 = gt11L*Gt123; + + CCTK_REAL const T1000096 = SQR(Gt222); + + CCTK_REAL const T1000097 = Gt113*gt12L*Gt212; + + CCTK_REAL const T1000098 = Gt112*gt13L*Gt212; + + CCTK_REAL const T1000099 = 2*Gt112*gt12L*Gt213; + + CCTK_REAL const T1000100 = Gt113*Gt211*gt22L; + + CCTK_REAL const T1000101 = Gt112*Gt211*gt23L; + + CCTK_REAL const T1000103 = Gt113*gt23L*Gt311; + + CCTK_REAL const T1000104 = 2*Gt113*gt13L*Gt312; + + CCTK_REAL const T1000105 = Gt112*gt13L*Gt313; + + CCTK_REAL const T1000106 = Gt213*gt22L*Gt313; + + CCTK_REAL const T1000108 = Gt112*Gt311*gt33L; + + CCTK_REAL const T1000109 = Gt212*Gt312*gt33L; + + CCTK_REAL const T1000110 = Gt123*gt12L*Gt212; + + CCTK_REAL const T1000111 = Gt212*Gt222*gt23L; + + CCTK_REAL const T1000112 = 2*Gt223*gt23L*Gt312; + + CCTK_REAL const T1000113 = Gt113*gt13L*Gt322; + + CCTK_REAL const T1000114 = gt23L*Gt313*Gt323; + + CCTK_REAL const T1000115 = Gt313*Gt322*gt33L; + + CCTK_REAL const T1000116 = Gt312*Gt323*gt33L; + + CCTK_REAL const T1000118 = Gt122*gt13L*Gt212; + + CCTK_REAL const T1000119 = 2*Gt122*gt12L*Gt213; + + CCTK_REAL const T1000120 = Gt113*gt12L*Gt222; + + CCTK_REAL const T1000121 = Gt113*Gt212*gt22L; + + CCTK_REAL const T1000122 = Gt123*gt13L*Gt312; + + CCTK_REAL const T1000123 = Gt113*gt23L*Gt312; + + CCTK_REAL const T1000124 = Gt223*gt23L*Gt312; + + CCTK_REAL const T1000125 = Gt223*gt22L*Gt313; + + CCTK_REAL const T1000126 = Gt222*gt23L*Gt313; + + CCTK_REAL const T1000127 = Gt212*Gt322*gt33L; + + CCTK_REAL const T1000128 = Gt212*Gt223*gt23L; + + CCTK_REAL const T1000129 = Gt133*gt13L*Gt312; + + CCTK_REAL const T1000130 = Gt113*gt13L*Gt323; + + CCTK_REAL const T1000131 = Gt213*gt23L*Gt323; + + CCTK_REAL const T1000132 = Gt212*gt23L*Gt333; + + CCTK_REAL const T1000133 = gt23L*Gt313*Gt333; + + CCTK_REAL const T1000135 = 2*Gt213*Gt223*gt22L; + + CCTK_REAL const T1000136 = gt22L*Gt233*Gt313; + + CCTK_REAL const T1000137 = 2*Gt213*gt23L*Gt323; + + CCTK_REAL const T1000138 = Gt212*Gt323*gt33L; + + CCTK_REAL const T1000139 = SQR(Gt123); + + CCTK_REAL const T1000140 = Gt222*Gt223*gt23L; + + CCTK_REAL const T1000141 = Gt133*gt13L*Gt322; + + CCTK_REAL const T1000142 = gt23L*Gt323*Gt333; + + CCTK_REAL const T1000144 = Gt322*Gt333*gt33L; + + CCTK_REAL const T1000145 = SQR(Gt333); + + CCTK_REAL const T1000149 = Gt222*gtu22; + + CCTK_REAL const T1000150 = 2*Gt213*gtu31; + + CCTK_REAL const T1000151 = 2*Gt223*gtu32; + + CCTK_REAL const T1000152 = Gt233*gtu33; + + CCTK_REAL const T1000153 = Gt211*gtu11; + + CCTK_REAL const T1000154 = 2*Gt212*gtu21; + + Atm11 = T1000155 + T1000156 + T1000158; + + Atm22 = T1000155 + T1000157 + T1000159; + + Atm33 = T1000156 + T1000157 + T1000160; + + M1L = -(At12L*Gt112*gtu22) - At11L*Gt122*gtu22 - At22L*Gt212*gtu22 - + At12L*Gt222*gtu22 - At23L*Gt312*gtu22 - At13L*Gt322*gtu22 - + At13L*Gt111*gtu31 - 3*At11L*Gt113*gtu31 - At23L*Gt211*gtu31 - + 3*At12L*Gt213*gtu31 - At33L*Gt311*gtu31 - 3*At13L*Gt313*gtu31 - + At13L*Gt112*gtu32 - At12L*Gt113*gtu32 - At23L*Gt212*gtu32 - + At22L*Gt213*gtu32 - 2*At12L*Gt223*gtu32 - At33L*Gt312*gtu32 - + At23L*Gt313*gtu32 - 2*At13L*Gt323*gtu32 - + 2*(At11L*Gt111*gtu11 + At12L*Gt211*gtu11 + At13L*Gt311*gtu11 + + At11L*Gt123*gtu32) - At13L*Gt113*gtu33 - At11L*Gt133*gtu33 - + At23L*Gt213*gtu33 - At12L*Gt233*gtu33 - At33L*Gt313*gtu33 - + At13L*Gt333*gtu33 + gtu11*PDstandardNth1At11 + + gtu21*(-(At12L*Gt111) - 3*At11L*Gt112 - At22L*Gt211 - 3*At12L*Gt212 - + At23L*Gt311 - 3*At13L*Gt312 + PDstandardNth1At12) + + gtu31*PDstandardNth1At13 + 6*At11L*gtu11*PDstandardNth1phi + + 6*At12L*gtu21*PDstandardNth1phi + 6*At13L*gtu31*PDstandardNth1phi - + ktwothird*PDstandardNth1trK + gtu21*PDstandardNth2At11 + + gtu22*PDstandardNth2At12 + gtu32*PDstandardNth2At13 + + 6*At11L*gtu21*PDstandardNth2phi + 6*At12L*gtu22*PDstandardNth2phi + + 6*At13L*gtu32*PDstandardNth2phi + gtu31*PDstandardNth3At11 + + gtu32*PDstandardNth3At12 + gtu33*PDstandardNth3At13 + + 6*At11L*gtu31*PDstandardNth3phi + 6*At12L*gtu32*PDstandardNth3phi + + 6*At13L*gtu33*PDstandardNth3phi; + + M2L = -(At12L*Gt111*gtu11) - At11L*Gt112*gtu11 - At22L*Gt211*gtu11 - + At12L*Gt212*gtu11 - At23L*Gt311*gtu11 - At13L*Gt312*gtu11 - + 3*At12L*Gt112*gtu21 - At11L*Gt122*gtu21 - 3*At22L*Gt212*gtu21 - + At12L*Gt222*gtu21 - 3*At23L*Gt312*gtu21 - At13L*Gt322*gtu21 - + 2*At12L*Gt122*gtu22 - 2*At22L*Gt222*gtu22 - 2*At23L*Gt322*gtu22 - + At13L*Gt112*gtu31 - 2*At12L*Gt113*gtu31 - At11L*Gt123*gtu31 - + At23L*Gt212*gtu31 - 2*At22L*Gt213*gtu31 - At12L*Gt223*gtu31 - + At33L*Gt312*gtu31 - 2*At23L*Gt313*gtu31 - At13L*Gt323*gtu31 - + At13L*Gt122*gtu32 - 3*At12L*Gt123*gtu32 - At23L*Gt222*gtu32 - + 3*At22L*Gt223*gtu32 - At33L*Gt322*gtu32 - 3*At23L*Gt323*gtu32 - + At13L*Gt123*gtu33 - At12L*Gt133*gtu33 - At23L*Gt223*gtu33 - + At22L*Gt233*gtu33 - At33L*Gt323*gtu33 - At23L*Gt333*gtu33 + + gtu11*PDstandardNth1At12 + gtu21*PDstandardNth1At22 + + gtu31*PDstandardNth1At23 + 6*At12L*gtu11*PDstandardNth1phi + + 6*At22L*gtu21*PDstandardNth1phi + 6*At23L*gtu31*PDstandardNth1phi + + gtu21*PDstandardNth2At12 + gtu22*PDstandardNth2At22 + + gtu32*PDstandardNth2At23 + 6*At12L*gtu21*PDstandardNth2phi + + 6*At22L*gtu22*PDstandardNth2phi + 6*At23L*gtu32*PDstandardNth2phi - + ktwothird*PDstandardNth2trK + gtu31*PDstandardNth3At12 + + gtu32*PDstandardNth3At22 + gtu33*PDstandardNth3At23 + + 6*At12L*gtu31*PDstandardNth3phi + 6*At22L*gtu32*PDstandardNth3phi + + 6*At23L*gtu33*PDstandardNth3phi; + + M3L = -(At13L*Gt111*gtu11) - At11L*Gt113*gtu11 - At23L*Gt211*gtu11 - + At12L*Gt213*gtu11 - At33L*Gt311*gtu11 - At13L*Gt313*gtu11 - + 2*At13L*Gt112*gtu21 - At12L*Gt113*gtu21 - At11L*Gt123*gtu21 - + 2*At23L*Gt212*gtu21 - At22L*Gt213*gtu21 - At12L*Gt223*gtu21 - + 2*At33L*Gt312*gtu21 - At23L*Gt313*gtu21 - At13L*Gt323*gtu21 - + At13L*Gt122*gtu22 - At12L*Gt123*gtu22 - At23L*Gt222*gtu22 - + At22L*Gt223*gtu22 - At33L*Gt322*gtu22 - At23L*Gt323*gtu22 - + 3*At13L*Gt113*gtu31 - At11L*Gt133*gtu31 - 3*At23L*Gt213*gtu31 - + At12L*Gt233*gtu31 - 3*At33L*Gt313*gtu31 - At13L*Gt333*gtu31 - + 3*At13L*Gt123*gtu32 - At12L*Gt133*gtu32 - 3*At23L*Gt223*gtu32 - + At22L*Gt233*gtu32 - 3*At33L*Gt323*gtu32 - At23L*Gt333*gtu32 - + 2*At13L*Gt133*gtu33 - 2*At23L*Gt233*gtu33 - 2*At33L*Gt333*gtu33 + + gtu11*PDstandardNth1At13 + gtu21*PDstandardNth1At23 + + gtu31*PDstandardNth1At33 + 6*At13L*gtu11*PDstandardNth1phi + + 6*At23L*gtu21*PDstandardNth1phi + 6*At33L*gtu31*PDstandardNth1phi + + gtu21*PDstandardNth2At13 + gtu22*PDstandardNth2At23 + + gtu32*PDstandardNth2At33 + 6*At13L*gtu21*PDstandardNth2phi + + 6*At23L*gtu22*PDstandardNth2phi + 6*At33L*gtu32*PDstandardNth2phi + + gtu31*PDstandardNth3At13 + gtu32*PDstandardNth3At23 + + gtu33*PDstandardNth3At33 + 6*At13L*gtu31*PDstandardNth3phi + + 6*At23L*gtu32*PDstandardNth3phi + 6*At33L*gtu33*PDstandardNth3phi - + ktwothird*PDstandardNth3trK; + + cXt1L = Gt111*gtu11 + Gt122*gtu22 + + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - Xt1L; + + cXt3L = Gt311*gtu11 + Gt322*gtu22 + + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33 - Xt3L; + + cAL = 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + T1000158 + T1000159 + + T1000160; + + CCTK_REAL const T1000013 = gt22L*T1000008; + + CCTK_REAL const T1000032 = T1000029 + T1000030 + T1000031; + + CCTK_REAL const T1000040 = T1000029 + T1000037 + T1000038 + T1000039; + + CCTK_REAL const T1000046 = T1000016 + T1000021 + T1000022; + + CCTK_REAL const T1000064 = gt13L*T1000063; + + CCTK_REAL const T1000071 = gt33L*T1000009; + + CCTK_REAL const T1000079 = T1000073 + T1000076 + T1000077 + T1000078; + + CCTK_REAL const T1000088 = T1000073 + T1000086 + T1000087; + + CCTK_REAL const T1000094 = T1000038 + T1000039 + T1000093; + + CCTK_REAL const T1000095 = T1000060 + T1000065 + T1000066; + + CCTK_REAL const T1000102 = gt23L*T1000008; + + CCTK_REAL const T1000107 = gt23L*T1000009; + + CCTK_REAL const T1000117 = gt13L*T1000011; + + CCTK_REAL const T1000134 = gt12L*T1000041; + + CCTK_REAL const T1000143 = gt33L*T1000063; + Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + gtu21*(2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + 2*gt13L*Gt311*Gt323 + @@ -467,21 +877,7 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK 4*Gt113*Gt311*gtu31 + 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + - Gt111*(6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xt1L) + - Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + - 2*gt11L*Gt123*gtu31 + gt12L*Xt1L) + - Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + - 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xt1L) + - gt12L*Gt212*Xt2L + gt13L*Gt312*Xt2L + - Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + - 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xt2L) + - Gt113*gt11L*Xt3L + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + - 2*gt11L*Gt123*gtu33 + gt12L*Xt3L) + - Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + - 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + - gt13L*Xt3L) + 3*gt11L*gtu11*SQR(Gt111) + 3*gt11L*gtu22*SQR(Gt112) + - 3*gt11L*gtu33*SQR(Gt113) + gt22L*gtu11*SQR(Gt211) + - gt22L*gtu22*SQR(Gt212) + 2*(gt12L*Gt211*Gt212*gtu11 + + gt22L*gtu22*T1000008 + 2*(gt12L*Gt211*Gt212*gtu11 + Gt113*gt11L*Gt311*gtu11 + Gt211*gt23L*Gt311*gtu11 + gt13L*Gt211*Gt312*gtu11 + Gt112*gt11L*Gt212*gtu21 + gt12L*Gt223*Gt311*gtu21 + Gt212*gt23L*Gt311*gtu21 + @@ -503,178 +899,23 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gt13L*Gt312*Gt333*gtu32 + Gt312*Gt313*gt33L*gtu32 + gt12L*Gt213*Gt223*gtu33 + gt12L*Gt233*Gt313*gtu33 + Gt213*gt23L*Gt313*gtu33 + gt13L*Gt213*Gt323*gtu33 + - gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*SQR(Gt212)) + - gt22L*gtu33*SQR(Gt213) + gt33L*gtu11*SQR(Gt311) + gt33L*gtu22*SQR(Gt312) + - 2*gt13L*gtu31*SQR(Gt313) + gt33L*gtu33*SQR(Gt313); - - Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - - 2*gtu31*PDstandardNth13gt12 + gt12L*PDstandardNth1Xt1 + - gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - - gtu22*PDstandardNth22gt12 - 2*gtu32*PDstandardNth23gt12 + - gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + - gt13L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt12 + - (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xt1L + - (Gt112*gt11L + gt12L*Gt212 + gt13L*Gt312)*Xt1L + - (Gt112*gt12L + Gt212*gt22L + gt23L*Gt312)*Xt2L + - (gt11L*Gt122 + gt12L*Gt222 + gt13L*Gt322)*Xt2L + - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt3L + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt3L + - 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + Gt211*Gt222*gt22L + - 2*Gt122*gt13L*Gt311 + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + - gt13L*Gt222*Gt312 + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + - gt23L*Gt312*Gt313 + Gt113*gt11L*Gt322 + Gt211*gt23L*Gt322 + - gt13L*Gt313*Gt322 + Gt111* - (2*gt11L*Gt122 + Gt112*gt12L + gt12L*Gt222 + gt13L*Gt322) + - gt12L*(2*Gt122*Gt211 + Gt112*Gt212 + Gt212*Gt222 + Gt113*Gt312 + - Gt213*Gt322) + Gt311*Gt322*gt33L + gt22L*SQR(Gt212)) + - 2*((Gt123*gt12L*Gt211 + Gt113*gt12L*Gt212 + 2*Gt112*gt12L*Gt213 + - gt12L*Gt212*Gt223 + Gt212*Gt213*gt22L + Gt211*Gt223*gt22L + - gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + Gt113*gt13L*Gt312 + - gt12L*Gt233*Gt312 + Gt213*gt23L*Gt312 + - gt11L*(2*Gt112*Gt113 + Gt123*Gt212 + Gt133*Gt312) + - 2*Gt112*gt13L*Gt313 + Gt212*gt23L*Gt313 + - Gt111*(Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + - gt13L*Gt212*Gt323 + Gt211*gt23L*Gt323 + gt23L*Gt311*Gt333 + - gt13L*Gt312*Gt333 + Gt312*Gt313*gt33L)*gtu31 + - (Gt123*gt12L*Gt212 + 2*Gt122*gt12L*Gt213 + Gt113*gt12L*Gt222 + - gt12L*Gt222*Gt223 + Gt213*Gt222*gt22L + Gt212*Gt223*gt22L + - gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + - Gt222*gt23L*Gt313 + Gt112* - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313) + Gt113*gt13L*Gt322 + - gt12L*Gt233*Gt322 + Gt213*gt23L*Gt322 + - gt11L*(2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + - gt13L*Gt222*Gt323 + Gt212*gt23L*Gt323 + gt23L*Gt312*Gt333 + - gt13L*Gt322*Gt333 + Gt313*Gt322*gt33L)*gtu32 + - gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + - 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + - gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + - gt11L*(2*Gt111*Gt112 + Gt112*Gt212 + Gt113*Gt312) + - Gt111*(gt12L*Gt212 + Gt211*gt22L + gt23L*Gt311 + gt13L*Gt312) + - gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + - gt12L*SQR(Gt111) + gt12L*SQR(Gt212))) + - 2*gtu22*(gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + - Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + - gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + - Gt112*(2*gt11L*Gt122 + gt12L*Gt222 + Gt212*gt22L + gt23L*Gt312 + - gt13L*Gt322) + gt23L*Gt312*Gt323 + gt13L*Gt322*Gt323 + - Gt312*Gt322*gt33L + gt12L*SQR(Gt112) + - gt12L*(3*Gt122*Gt212 + Gt123*Gt312 + Gt223*Gt322 + SQR(Gt222))) + - 2*gtu33*(gt11L*Gt123*Gt223 + 2*Gt213*Gt223*gt22L + 2*Gt123*gt13L*Gt313 + - gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + gt11L*Gt133*Gt323 + - gt13L*Gt223*Gt323 + 2*Gt213*gt23L*Gt323 + - Gt113*(2*gt11L*Gt123 + gt12L*Gt223 + Gt213*gt22L + gt23L*Gt313 + - gt13L*Gt323) + gt23L*Gt313*Gt333 + gt13L*Gt323*Gt333 + - Gt313*Gt323*gt33L + gt12L*SQR(Gt113) + - gt12L*(3*Gt123*Gt213 + Gt133*Gt313 + Gt233*Gt323 + SQR(Gt223))) + - 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + - Gt211*Gt222*gt22L + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + - 3*Gt112*gt13L*Gt312 + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + - Gt111*(Gt112*gt12L + Gt212*gt22L + gt23L*Gt312) + gt13L*Gt212*Gt322 + - Gt211*gt23L*Gt322 + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + - gt11L*(Gt122*Gt212 + Gt123*Gt312 + 2*SQR(Gt112)) + gt22L*SQR(Gt212) + - gt33L*SQR(Gt312)) + 2*gtu31* - (Gt112*gt11L*Gt223 + Gt113*Gt211*gt22L + Gt212*Gt213*gt22L + - Gt211*Gt223*gt22L + 2*Gt123*gt13L*Gt311 + Gt113*gt23L*Gt311 + - Gt223*gt23L*Gt311 + gt13L*Gt223*Gt312 + Gt213*gt23L*Gt312 + - Gt213*gt22L*Gt313 + Gt113*gt11L*Gt323 + Gt211*gt23L*Gt323 + - gt13L*Gt313*Gt323 + Gt111* - (2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(2*Gt123*Gt211 + Gt112*Gt213 + Gt212*Gt223 + Gt113*Gt313 + - Gt213*Gt323) + Gt311*Gt323*gt33L + gt23L*SQR(Gt313)) + - 2*gtu32*(gt11L*Gt122*Gt223 + Gt113*Gt212*gt22L + Gt213*Gt222*gt22L + - Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + - Gt223*gt23L*Gt312 + Gt223*gt22L*Gt313 + gt13L*Gt223*Gt322 + - Gt213*gt23L*Gt322 + gt11L*Gt123*Gt323 + Gt212*gt23L*Gt323 + - gt23L*Gt313*Gt323 + Gt112* - (2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + - gt12L*(Gt122*Gt213 + Gt123*(2*Gt212 + Gt313) + - Gt223*(Gt222 + Gt323)) + Gt312*Gt323*gt33L + gt13L*SQR(Gt323))); - - Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - - 2*gtu31*PDstandardNth13gt13 + gt13L*PDstandardNth1Xt1 + - gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - - gtu22*PDstandardNth22gt13 - 2*gtu32*PDstandardNth23gt13 - - gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + - gt12L*PDstandardNth3Xt2 + gt13L*PDstandardNth3Xt3 + - (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xt1L + - (Gt111*gt13L + Gt211*gt23L + Gt311*gt33L)*Xt1L + - (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt2L + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt2L + - (gt11L*Gt133 + gt12L*Gt233 + gt13L*Gt333)*Xt3L + - (Gt113*gt13L + Gt213*gt23L + Gt313*gt33L)*Xt3L + - 2*((Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + - gt12L*Gt213*Gt222 + Gt212*Gt213*gt22L + Gt211*Gt222*gt23L + - Gt123*gt13L*Gt311 + Gt223*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + - Gt213*gt23L*Gt312 + Gt112*gt13L*Gt313 + gt12L*Gt223*Gt313 + - Gt212*gt23L*Gt313 + gt11L* - (2*Gt112*Gt113 + Gt122*Gt213 + Gt123*Gt313) + gt13L*Gt213*Gt322 + - gt13L*Gt313*Gt323 + Gt312*Gt313*gt33L + Gt211*Gt322*gt33L + - Gt311*Gt323*gt33L + Gt111*(Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)) - *gtu21 + (Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + - Gt212*gt22L*Gt233 + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + - 2*Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + Gt123*gt13L*Gt313 + - Gt223*gt23L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + - Gt212*gt23L*Gt333 + gt13L*Gt323*Gt333 + - Gt112*(2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + - Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L)*gtu32 + - gtu21*(2*Gt123*gt12L*Gt211 + Gt112*gt13L*Gt212 + gt12L*Gt212*Gt223 + - Gt211*Gt223*gt22L + Gt112*Gt211*gt23L + 2*Gt123*gt13L*Gt311 + - Gt223*gt23L*Gt311 + Gt113*gt13L*Gt312 + gt13L*Gt223*Gt312 + - Gt213*gt23L*Gt312 + gt12L*Gt213*Gt323 + Gt211*gt23L*Gt323 + - gt13L*Gt313*Gt323 + gt11L* - (2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + - Gt111*(Gt112*gt13L + gt12L*Gt223 + gt13L*Gt323) + - Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + Gt312*Gt313*gt33L + - Gt311*Gt323*gt33L + gt23L*SQR(Gt212))) + - 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + - Gt213*Gt223*gt22L + Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + - Gt233*gt23L*Gt312 + 2*Gt123*gt13L*Gt313 + Gt223*gt23L*Gt313 + - Gt113*gt13L*Gt323 + gt13L*Gt223*Gt323 + gt12L*Gt233*Gt323 + - Gt213*gt23L*Gt323 + gt11L* - (2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + gt13L*Gt323*Gt333 + - Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L + - Gt112*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + gt12L*SQR(Gt223)) + - 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + - Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + - 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + - Gt211*gt23L*Gt313 + gt11L* - (2*Gt111*Gt113 + Gt112*Gt213 + Gt113*Gt313) + Gt211*Gt312*gt33L + - 2*Gt311*Gt313*gt33L + Gt111* - (gt12L*Gt213 + Gt211*gt23L + gt13L*Gt313 + Gt311*gt33L) + - gt13L*SQR(Gt111) + gt13L*SQR(Gt313)) + - 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + - Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + 2*Gt133*gt13L*Gt311 + - Gt233*gt23L*Gt311 + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + - Gt213*gt23L*Gt313 + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + - gt13L*Gt313*Gt333 + Gt111* - (2*gt11L*Gt133 + Gt113*gt13L + gt12L*Gt233 + gt13L*Gt333) + - gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + - Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + Gt311*Gt333*gt33L + - gt33L*SQR(Gt313)) + 2*gtu31* - (Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + - Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + Gt233*gt23L*Gt311 + - 3*Gt113*gt13L*Gt313 + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + - gt13L*Gt213*Gt323 + gt13L*Gt313*Gt333 + Gt211*Gt323*gt33L + - Gt311*Gt333*gt33L + Gt111*(Gt113*gt13L + Gt213*gt23L + Gt313*gt33L) + - gt11L*(Gt123*Gt213 + Gt133*Gt313 + 2*SQR(Gt113)) + gt22L*SQR(Gt213) + - gt33L*SQR(Gt313)) + 2*gtu22* - (2*Gt123*gt12L*Gt212 + Gt122*gt13L*Gt212 + gt12L*Gt222*Gt223 + - Gt212*Gt223*gt22L + Gt212*Gt222*gt23L + 3*Gt123*gt13L*Gt312 + - 2*Gt223*gt23L*Gt312 + gt13L*Gt223*Gt322 + gt12L*Gt223*Gt323 + - Gt212*gt23L*Gt323 + gt11L* - (2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + Gt212*Gt322*gt33L + - 2*Gt312*Gt323*gt33L + Gt112* - (gt12L*Gt223 + Gt212*gt23L + gt13L*Gt323 + Gt312*gt33L) + - gt13L*SQR(Gt112) + gt13L*SQR(Gt323)) + - 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + - gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + Gt213*Gt223*gt23L + - 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + - gt11L*Gt133*Gt333 + gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + - Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + - Gt113*(2*gt11L*Gt133 + gt12L*Gt233 + Gt213*gt23L + gt13L*Gt333 + - Gt313*gt33L) + gt13L*SQR(Gt113) + gt13L*SQR(Gt333))); + gt13L*Gt313*Gt333*gtu33 + gt12L*gtu21*T1000008) + + 2*gt13L*gtu31*T1000009 + gt33L*gtu33*T1000009 + 3*gt11L*gtu11*T1000010 + + 3*gt11L*gtu22*T1000011 + gt33L*gtu22*T1000012 + 3*gt11L*gtu33*T1000041 + + gt22L*gtu33*T1000067 + Gt111* + (6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xt1L) + + Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + + 2*gt11L*Gt123*gtu31 + gt12L*Xt1L) + + Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + + 2*gt11L*Gt123*gtu21 + 2*gt11L*Gt133*gtu31 + gt13L*Xt1L) + + gt12L*Gt212*Xt2L + gt13L*Gt312*Xt2L + + Gt112*(6*Gt111*gt11L*gtu21 + 4*gt12L*Gt211*gtu21 + 4*gt12L*Gt212*gtu22 + + 2*gt11L*Gt213*gtu31 + 6*Gt113*gt11L*gtu32 + gt11L*Xt2L) + + Gt113*gt11L*Xt3L + Gt213*(2*gt11L*Gt122*gtu32 + 4*Gt112*gt12L*gtu32 + + 2*gt11L*Gt123*gtu33 + gt12L*Xt3L) + + Gt313*(4*Gt111*gt13L*gtu31 + 2*gt12L*Gt213*gtu31 + 2*gt11L*Gt123*gtu32 + + 4*Gt112*gt13L*gtu32 + 2*gt12L*Gt223*gtu32 + 2*gt11L*Gt133*gtu33 + + gt13L*Xt3L) + gt22L*gtu11*SQR(Gt211) + gt33L*gtu11*SQR(Gt311); Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + @@ -697,115 +938,33 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK 2*Gt123*Gt311*gtu31 + 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - - gtu33*khalf*PDstandardNth33gt22 + Gt212*gt22L*Xt1L + - Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + 2*gt11L*Gt122*gtu21 + - 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + 2*Gt123*gt12L*gtu32 + - gt12L*Xt1L) + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + - 2*gt23L*Gt313*gtu11 + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + - 2*gt12L*Gt133*gtu31 + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + - 2*Gt123*gt23L*gtu32 + gt23L*Xt1L) + Gt122*gt12L*Xt2L + - Gt222*gt22L*Xt2L + gt23L*Gt322*Xt2L + Gt123*gt12L*Xt3L + Gt223*gt22L*Xt3L + - gt23L*Gt323*Xt3L + gt11L*gtu11*SQR(Gt112) + - 2*(Gt112*Gt211*gt22L*gtu11 + Gt112*gt23L*Gt311*gtu11 + - Gt113*gt12L*Gt312*gtu11 + Gt112*gt13L*Gt312*gtu11 + - Gt111*Gt122*gt12L*gtu21 + Gt122*Gt211*gt22L*gtu21 + - Gt112*Gt212*gt22L*gtu21 + Gt223*gt22L*Gt312*gtu21 + - Gt112*gt23L*Gt312*gtu21 + Gt112*gt13L*Gt322*gtu21 + - Gt213*gt22L*Gt322*gtu21 + Gt122*Gt212*gt22L*gtu22 + - Gt123*gt12L*Gt322*gtu22 + Gt122*gt13L*Gt322*gtu22 + - Gt223*gt22L*Gt322*gtu22 + gt23L*Gt322*Gt323*gtu22 + - Gt112*Gt113*gt12L*gtu31 + Gt123*Gt211*gt22L*gtu31 + - Gt112*Gt213*gt22L*gtu31 + Gt112*gt13L*Gt323*gtu31 + - Gt213*gt22L*Gt323*gtu31 + gt11L*Gt122*Gt123*gtu32 + - Gt123*gt13L*Gt322*gtu32 + gt22L*Gt233*Gt322*gtu32 + - Gt122*gt13L*Gt323*gtu32 + Gt223*gt22L*Gt323*gtu32 + - gt12L*Gt133*Gt323*gtu33 + Gt123*gt13L*Gt323*gtu33 + - gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*SQR(Gt112)) + - gt11L*gtu22*SQR(Gt122) + gt11L*gtu33*SQR(Gt123) + - 3*gt22L*gtu11*SQR(Gt212) + 3*gt22L*gtu22*SQR(Gt222) + - 3*gt22L*gtu33*SQR(Gt223) + gt33L*gtu11*SQR(Gt312) + - gt33L*gtu22*SQR(Gt322) + 2*gt23L*gtu32*SQR(Gt323) + gt33L*gtu33*SQR(Gt323); - - Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - - 2*gtu31*PDstandardNth13gt23 - gtu22*PDstandardNth22gt23 - - 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + - gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3 - - gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + - gt22L*PDstandardNth3Xt2 + gt23L*PDstandardNth3Xt3 + - (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt1L + - (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt1L + - (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xt2L + - (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xt2L + - (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xt3L + - (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xt3L + - 2*((Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + - Gt123*gt12L*Gt212 + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + - Gt123*Gt211*gt22L + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + - Gt212*Gt222*gt23L + Gt123*gt23L*Gt311 + Gt123*gt13L*Gt312 + - 2*Gt223*gt23L*Gt312 + Gt113*gt13L*Gt322 + Gt213*gt23L*Gt322 + - Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + - Gt212*gt23L*Gt323 + gt23L*Gt313*Gt323 + Gt122*Gt311*gt33L + - Gt222*Gt312*gt33L + Gt313*Gt322*gt33L + Gt312*Gt323*gt33L)*gtu21 + - (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + - gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + - 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + - Gt212*Gt223*gt23L + Gt133*gt23L*Gt311 + Gt133*gt13L*Gt312 + - 2*Gt233*gt23L*Gt312 + Gt113*gt13L*Gt323 + Gt213*gt23L*Gt323 + - Gt113*gt12L*Gt333 + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + - Gt212*gt23L*Gt333 + gt23L*Gt313*Gt333 + Gt123*Gt311*gt33L + - Gt223*Gt312*gt33L + Gt313*Gt323*gt33L + Gt312*Gt333*gt33L)*gtu31 + - gtu21*(Gt113*gt11L*Gt122 + Gt122*gt13L*Gt212 + 2*Gt122*gt12L*Gt213 + - Gt113*gt12L*Gt222 + Gt113*Gt212*gt22L + 2*Gt213*Gt222*gt22L + - Gt212*Gt222*gt23L + Gt123*gt13L*Gt312 + Gt113*gt23L*Gt312 + - Gt223*gt23L*Gt312 + Gt123*gt12L*Gt313 + Gt122*gt13L*Gt313 + - Gt223*gt22L*Gt313 + Gt222*gt23L*Gt313 + Gt113*gt13L*Gt322 + - 2*Gt213*gt23L*Gt322 + gt23L*Gt313*Gt323 + Gt212*Gt322*gt33L + - Gt313*Gt322*gt33L + Gt312*Gt323*gt33L + - Gt112*(Gt113*gt12L + Gt212*gt23L + Gt312*gt33L) + gt13L*SQR(Gt112))) - + 2*gtu31*(2*Gt213*Gt223*gt22L + Gt112*Gt213*gt23L + - Gt212*Gt223*gt23L + Gt133*gt13L*Gt312 + Gt233*gt23L*Gt312 + - gt12L*Gt133*Gt313 + gt22L*Gt233*Gt313 + Gt223*gt23L*Gt313 + - Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + 2*Gt213*gt23L*Gt323 + - Gt113*(gt11L*Gt123 + Gt112*gt13L + gt12L*Gt223 + Gt213*gt22L + - gt23L*Gt313 + gt13L*Gt323) + gt23L*Gt313*Gt333 + - Gt112*Gt313*gt33L + Gt212*Gt323*gt33L + Gt313*Gt323*gt33L + - Gt312*Gt333*gt33L + gt12L*SQR(Gt113)) + - 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + - Gt113*gt12L*Gt212 + Gt112*gt13L*Gt212 + 2*Gt112*gt12L*Gt213 + - Gt113*Gt211*gt22L + 2*Gt212*Gt213*gt22L + Gt112*Gt211*gt23L + - Gt113*gt23L*Gt311 + 2*Gt113*gt13L*Gt312 + 3*Gt213*gt23L*Gt312 + - Gt113*gt12L*Gt313 + Gt112*gt13L*Gt313 + Gt213*gt22L*Gt313 + - Gt212*gt23L*Gt313 + Gt112*Gt311*gt33L + Gt212*Gt312*gt33L + - 2*Gt312*Gt313*gt33L + gt23L*SQR(Gt212) + gt23L*SQR(Gt313)) + - 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + - Gt123*gt12L*Gt222 + Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + - Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + - Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + - Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + Gt223*gt22L*Gt323 + - Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + - 2*Gt322*Gt323*gt33L + gt23L*SQR(Gt222) + gt23L*SQR(Gt323)) + - 2*gtu32*(gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + - gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + Gt133*Gt212*gt22L + - 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + - Gt222*Gt223*gt23L + Gt133*gt23L*Gt312 + Gt133*gt13L*Gt322 + - 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + Gt223*gt23L*Gt323 + - Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + Gt223*gt22L*Gt333 + - Gt222*gt23L*Gt333 + gt23L*Gt323*Gt333 + Gt123*Gt312*gt33L + - Gt223*Gt322*gt33L + Gt322*Gt333*gt33L + gt33L*SQR(Gt323)) + - 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + Gt123*gt13L*Gt222 + - 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + Gt122*Gt213*gt23L + - Gt222*Gt223*gt23L + Gt123*gt23L*Gt313 + Gt133*gt13L*Gt322 + - Gt233*gt23L*Gt322 + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + - gt22L*Gt233*Gt323 + 3*Gt223*gt23L*Gt323 + gt23L*Gt323*Gt333 + - Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + Gt322*Gt333*gt33L + - gt11L*SQR(Gt123) + 2*gt22L*SQR(Gt223) + gt33L*SQR(Gt323)) + - 2*gtu33*(gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + - gt12L*Gt133*Gt223 + Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + - 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + - Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + - gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + gt22L*Gt233*Gt333 + - Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + - 2*Gt323*Gt333*gt33L + gt23L*SQR(Gt223) + gt23L*SQR(Gt333))); + gtu33*khalf*PDstandardNth33gt22 + 3*gt22L*gtu11*T1000008 + + gt11L*gtu11*T1000011 + 2*(Gt112*Gt211*gt22L*gtu11 + + Gt112*gt23L*Gt311*gtu11 + Gt113*gt12L*Gt312*gtu11 + + Gt112*gt13L*Gt312*gtu11 + Gt111*Gt122*gt12L*gtu21 + + Gt122*Gt211*gt22L*gtu21 + Gt112*Gt212*gt22L*gtu21 + + Gt223*gt22L*Gt312*gtu21 + Gt112*gt23L*Gt312*gtu21 + + Gt112*gt13L*Gt322*gtu21 + Gt213*gt22L*Gt322*gtu21 + + Gt122*Gt212*gt22L*gtu22 + Gt123*gt12L*Gt322*gtu22 + + Gt122*gt13L*Gt322*gtu22 + Gt223*gt22L*Gt322*gtu22 + + gt23L*Gt322*Gt323*gtu22 + Gt112*Gt113*gt12L*gtu31 + + Gt123*Gt211*gt22L*gtu31 + Gt112*Gt213*gt22L*gtu31 + + Gt112*gt13L*Gt323*gtu31 + Gt213*gt22L*Gt323*gtu31 + + gt11L*Gt122*Gt123*gtu32 + Gt123*gt13L*Gt322*gtu32 + + gt22L*Gt233*Gt322*gtu32 + Gt122*gt13L*Gt323*gtu32 + + Gt223*gt22L*Gt323*gtu32 + gt12L*Gt133*Gt323*gtu33 + + Gt123*gt13L*Gt323*gtu33 + gt22L*Gt233*Gt323*gtu33 + gt12L*gtu21*T1000011) + + gt33L*gtu11*T1000012 + 2*gt23L*gtu32*T1000063 + gt33L*gtu33*T1000063 + + 3*gt22L*gtu33*T1000081 + 3*gt22L*gtu22*T1000096 + gt11L*gtu33*T1000139 + + Gt212*gt22L*Xt1L + Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + + 2*Gt123*gt12L*gtu32 + gt12L*Xt1L) + + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + + 2*Gt123*gt12L*gtu21 + 2*Gt122*gt23L*gtu22 + 2*gt12L*Gt133*gtu31 + + 2*gt22L*Gt233*gtu31 + 4*Gt223*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + + gt23L*Xt1L) + Gt122*gt12L*Xt2L + Gt222*gt22L*Xt2L + gt23L*Gt322*Xt2L + + Gt123*gt12L*Xt3L + Gt223*gt22L*Xt3L + gt23L*Gt323*Xt3L + + gt11L*gtu22*SQR(Gt122) + gt33L*gtu22*SQR(Gt322); Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + @@ -822,44 +981,43 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + 2*Gt133*Gt311*gtu31 + 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + - PDstandardNth3Xt3) + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + - Gt313*gt33L*Xt1L + Gt123*gt13L*Xt2L + Gt223*gt23L*Xt2L + Gt323*gt33L*Xt2L + - Gt133*gt13L*Xt3L + Gt333*gt33L*Xt3L + - Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xt3L) + - gtu11*(2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + + PDstandardNth3Xt3) + gtu11* + (2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + 2*Gt113*Gt311*gt33L + 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + - gt11L*SQR(Gt113)) + 2*(Gt111*Gt113*gt13L*gtu11 + - Gt113*gt12L*Gt213*gtu11 + Gt112*gt13L*Gt213*gtu11 + - Gt113*Gt211*gt23L*gtu11 + Gt113*gt11L*Gt123*gtu21 + - Gt112*Gt113*gt13L*gtu21 + Gt111*Gt123*gt13L*gtu21 + - Gt123*gt12L*Gt213*gtu21 + Gt122*gt13L*Gt213*gtu21 + - Gt113*gt12L*Gt223*gtu21 + Gt112*gt13L*Gt223*gtu21 + - Gt213*Gt223*gt22L*gtu21 + Gt123*Gt211*gt23L*gtu21 + - Gt113*Gt212*gt23L*gtu21 + Gt213*Gt222*gt23L*gtu21 + - Gt113*Gt312*gt33L*gtu21 + Gt223*Gt312*gt33L*gtu21 + - Gt112*Gt123*gt13L*gtu22 + Gt123*gt12L*Gt223*gtu22 + - Gt122*gt13L*Gt223*gtu22 + Gt123*Gt212*gt23L*gtu22 + - Gt222*Gt223*gt23L*gtu22 + Gt223*Gt322*gt33L*gtu22 + - Gt113*gt11L*Gt133*gtu31 + Gt111*Gt133*gt13L*gtu31 + - gt12L*Gt133*Gt213*gtu31 + Gt123*gt13L*Gt213*gtu31 + - Gt113*gt12L*Gt233*gtu31 + Gt112*gt13L*Gt233*gtu31 + - Gt213*gt22L*Gt233*gtu31 + Gt133*Gt211*gt23L*gtu31 + - Gt113*Gt213*gt23L*gtu31 + Gt213*Gt223*gt23L*gtu31 + - Gt212*Gt233*gt23L*gtu31 + Gt113*Gt313*gt33L*gtu31 + - Gt213*Gt323*gt33L*gtu31 + gt11L*Gt123*Gt133*gtu32 + - Gt113*Gt123*gt13L*gtu32 + Gt112*Gt133*gt13L*gtu32 + - gt12L*Gt133*Gt223*gtu32 + Gt123*gt13L*Gt223*gtu32 + - Gt123*gt12L*Gt233*gtu32 + Gt122*gt13L*Gt233*gtu32 + - Gt223*gt22L*Gt233*gtu32 + Gt133*Gt212*gt23L*gtu32 + - Gt123*Gt213*gt23L*gtu32 + Gt222*Gt233*gt23L*gtu32 + - Gt233*Gt322*gt33L*gtu32 + Gt223*Gt323*gt33L*gtu32 + - Gt113*Gt133*gt13L*gtu33 + gt12L*Gt133*Gt233*gtu33 + - Gt123*gt13L*Gt233*gtu33 + Gt133*Gt213*gt23L*gtu33 + - Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*SQR(Gt113)) + - gt11L*gtu22*SQR(Gt123) + gt11L*gtu33*SQR(Gt133) + gt22L*gtu11*SQR(Gt213) + - gt22L*gtu22*SQR(Gt223) + 2*gt23L*gtu32*SQR(Gt223) + - gt22L*gtu33*SQR(Gt233) + 3*gt33L*gtu11*SQR(Gt313) + - 3*gt33L*gtu22*SQR(Gt323) + 3*gt33L*gtu33*SQR(Gt333); + 3*gt33L*T1000009) + gt11L*gtu11*T1000041 + + 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + + Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + + Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + + Gt123*Gt211*gt23L*gtu21 + Gt113*Gt212*gt23L*gtu21 + + Gt213*Gt222*gt23L*gtu21 + Gt113*Gt312*gt33L*gtu21 + + Gt223*Gt312*gt33L*gtu21 + Gt112*Gt123*gt13L*gtu22 + + Gt123*gt12L*Gt223*gtu22 + Gt122*gt13L*Gt223*gtu22 + + Gt123*Gt212*gt23L*gtu22 + Gt222*Gt223*gt23L*gtu22 + + Gt223*Gt322*gt33L*gtu22 + Gt113*gt11L*Gt133*gtu31 + + Gt111*Gt133*gt13L*gtu31 + gt12L*Gt133*Gt213*gtu31 + + Gt123*gt13L*Gt213*gtu31 + Gt113*gt12L*Gt233*gtu31 + + Gt112*gt13L*Gt233*gtu31 + Gt213*gt22L*Gt233*gtu31 + + Gt133*Gt211*gt23L*gtu31 + Gt113*Gt213*gt23L*gtu31 + + Gt213*Gt223*gt23L*gtu31 + Gt212*Gt233*gt23L*gtu31 + + Gt113*Gt313*gt33L*gtu31 + Gt213*Gt323*gt33L*gtu31 + + gt11L*Gt123*Gt133*gtu32 + Gt113*Gt123*gt13L*gtu32 + + Gt112*Gt133*gt13L*gtu32 + gt12L*Gt133*Gt223*gtu32 + + Gt123*gt13L*Gt223*gtu32 + Gt123*gt12L*Gt233*gtu32 + + Gt122*gt13L*Gt233*gtu32 + Gt223*gt22L*Gt233*gtu32 + + Gt133*Gt212*gt23L*gtu32 + Gt123*Gt213*gt23L*gtu32 + + Gt222*Gt233*gt23L*gtu32 + Gt233*Gt322*gt33L*gtu32 + + Gt223*Gt323*gt33L*gtu32 + Gt113*Gt133*gt13L*gtu33 + + gt12L*Gt133*Gt233*gtu33 + Gt123*gt13L*Gt233*gtu33 + + Gt133*Gt213*gt23L*gtu33 + Gt223*Gt233*gt23L*gtu33 + gt13L*gtu31*T1000041) + + 3*gt33L*gtu22*T1000063 + gt22L*gtu11*T1000067 + gt22L*gtu22*T1000081 + + 2*gt23L*gtu32*T1000081 + gt11L*gtu22*T1000139 + 3*gt33L*gtu33*T1000145 + + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + Gt313*gt33L*Xt1L + Gt123*gt13L*Xt2L + + Gt223*gt23L*Xt2L + Gt323*gt33L*Xt2L + Gt133*gt13L*Xt3L + Gt333*gt33L*Xt3L + + Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xt3L) + + gt11L*gtu33*SQR(Gt133) + gt22L*gtu33*SQR(Gt233); Rphi11 = 2*(-PDstandardNth11phi - gt11L*gtu11*PDstandardNth11phi - 2*gt11L*gtu21*PDstandardNth12phi - 2*gt11L*gtu31*PDstandardNth13phi - @@ -874,13 +1032,11 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt111 + Gt111*gt11L*gtu11 + 2*Gt112*gt11L*gtu21 + gt11L*Gt122*gtu22 + 2*Gt113*gt11L*gtu31 + 2*gt11L*Gt123*gtu32 + gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandardNth2phi - - 4*gt11L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 + - gt11L*(2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt11L*gtu32*PDstandardNth3phi) + - (2 - 2*gt11L*gtu11)*SQR(PDstandardNth1phi) - - 2*gt11L*gtu22*SQR(PDstandardNth2phi) - - 2*gt11L*gtu33*SQR(PDstandardNth3phi)); + 4*gt11L*gtu31*PDstandardNth3phi) + (2 - 2*gt11L*gtu11)*T1000146 - + 2*gt11L*gtu22*T1000147 - 2*gt11L*gtu33*T1000148 + + PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 - + 4*gt11L*gtu32*PDstandardNth3phi + + gt11L*(T1000149 + T1000150 + T1000151 + T1000152 + T1000154))); Rphi12 = 2*(-(gt12L*gtu11*PDstandardNth11phi) - PDstandardNth12phi - 2*gt12L*gtu21*PDstandardNth12phi - 2*gt12L*gtu31*PDstandardNth13phi - @@ -895,13 +1051,11 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt112 + Gt111*gt12L*gtu11 + 2*Gt112*gt12L*gtu21 + Gt122*gt12L*gtu22 + 2*Gt113*gt12L*gtu31 + 2*Gt123*gt12L*gtu32 + gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandardNth2phi - - 4*gt12L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt212 + 2*gt12L*Gt212*gtu21 + - gt12L*(Gt211*gtu11 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt12L*gtu32*PDstandardNth3phi) - - 2*gt12L*gtu11*SQR(PDstandardNth1phi) - - 2*gt12L*gtu22*SQR(PDstandardNth2phi) - - 2*gt12L*gtu33*SQR(PDstandardNth3phi)); + 4*gt12L*gtu31*PDstandardNth3phi) - 2*gt12L*gtu11*T1000146 - + 2*gt12L*gtu22*T1000147 - 2*gt12L*gtu33*T1000148 + + PDstandardNth2phi*(Gt212 + 2*gt12L*Gt212*gtu21 - + 4*gt12L*gtu32*PDstandardNth3phi + + gt12L*(T1000149 + T1000150 + T1000151 + T1000152 + T1000153))); Rphi13 = 2*(-PDstandardNth13phi + gt13L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - @@ -916,13 +1070,11 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt113 + Gt111*gt13L*gtu11 + 2*Gt112*gt13L*gtu21 + Gt122*gt13L*gtu22 + 2*Gt113*gt13L*gtu31 + 2*Gt123*gt13L*gtu32 + Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandardNth2phi + - (2 - 4*gt13L*gtu31)*PDstandardNth3phi) + - PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 + - gt13L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt13L*gtu32*PDstandardNth3phi) - - 2*gt13L*gtu11*SQR(PDstandardNth1phi) - - 2*gt13L*gtu22*SQR(PDstandardNth2phi) - - 2*gt13L*gtu33*SQR(PDstandardNth3phi)); + (2 - 4*gt13L*gtu31)*PDstandardNth3phi) - 2*gt13L*gtu11*T1000146 - + 2*gt13L*gtu22*T1000147 - 2*gt13L*gtu33*T1000148 + + PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 - + 4*gt13L*gtu32*PDstandardNth3phi + + gt13L*(T1000149 + T1000151 + T1000152 + T1000153 + T1000154))); Rphi22 = 2*(-PDstandardNth22phi + gt22L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - @@ -937,13 +1089,11 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt122 + Gt111*gt22L*gtu11 + 2*Gt112*gt22L*gtu21 + Gt122*gt22L*gtu22 + 2*Gt113*gt22L*gtu31 + 2*Gt123*gt22L*gtu32 + Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandardNth2phi - - 4*gt22L*gtu31*PDstandardNth3phi) + - PDstandardNth2phi*(Gt222 + Gt222*gt22L*gtu22 + - gt22L*(Gt211*gtu11 + 2*Gt212*gtu21 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + - Gt233*gtu33) - 4*gt22L*gtu32*PDstandardNth3phi) - - 2*gt22L*gtu11*SQR(PDstandardNth1phi) + - (2 - 2*gt22L*gtu22)*SQR(PDstandardNth2phi) - - 2*gt22L*gtu33*SQR(PDstandardNth3phi)); + 4*gt22L*gtu31*PDstandardNth3phi) - 2*gt22L*gtu11*T1000146 + + (2 - 2*gt22L*gtu22)*T1000147 - 2*gt22L*gtu33*T1000148 + + PDstandardNth2phi*(Gt222 + Gt222*gt22L*gtu22 - + 4*gt22L*gtu32*PDstandardNth3phi + + gt22L*(T1000150 + T1000151 + T1000152 + T1000153 + T1000154))); Rphi23 = 2*(-PDstandardNth23phi + gt23L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - @@ -958,166 +1108,247 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK PDstandardNth1phi*(Gt123 + Gt111*gt23L*gtu11 + 2*Gt112*gt23L*gtu21 + Gt122*gt23L*gtu22 + 2*Gt113*gt23L*gtu31 + 2*Gt123*gt23L*gtu32 + Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandardNth2phi - - 4*gt23L*gtu31*PDstandardNth3phi) + + 4*gt23L*gtu31*PDstandardNth3phi) - 2*gt23L*gtu11*T1000146 - + 2*gt23L*gtu22*T1000147 - 2*gt23L*gtu33*T1000148 + PDstandardNth2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + - gt23L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + - Gt233*gtu33) + (2 - 4*gt23L*gtu32)*PDstandardNth3phi) - - 2*gt23L*gtu11*SQR(PDstandardNth1phi) - - 2*gt23L*gtu22*SQR(PDstandardNth2phi) - - 2*gt23L*gtu33*SQR(PDstandardNth3phi)); + (2 - 4*gt23L*gtu32)*PDstandardNth3phi + + gt23L*(T1000149 + T1000150 + T1000152 + T1000153 + T1000154))); Rphi33 = 2*(-PDstandardNth33phi + (Gt333 + gt33L*(Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))* - PDstandardNth3phi + PDstandardNth2phi* - (Gt233 + gt33L*(Gt211*gtu11 + Gt222*gtu22 + - 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33 - - 4*gtu32*PDstandardNth3phi)) + - PDstandardNth1phi*(Gt133 + - gt33L*(Gt111*gtu11 + Gt122*gtu22 + + PDstandardNth3phi + PDstandardNth1phi* + (Gt133 + gt33L*(Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - 4*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi))) + - 2*SQR(PDstandardNth3phi) + - gt33L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - - 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - - 2*gtu32*PDstandardNth23phi - gtu33*PDstandardNth33phi + - Gt311*gtu11*PDstandardNth3phi - 2*gtu11*SQR(PDstandardNth1phi) - - 2*gtu22*SQR(PDstandardNth2phi) - 2*gtu33*SQR(PDstandardNth3phi))); + 2*T1000148 + gt33L*(-(gtu11*PDstandardNth11phi) - + 2*gtu21*PDstandardNth12phi - 2*gtu31*PDstandardNth13phi - + gtu22*PDstandardNth22phi - 2*gtu32*PDstandardNth23phi - + gtu33*PDstandardNth33phi + Gt311*gtu11*PDstandardNth3phi - + 2*gtu11*T1000146 - 2*gtu22*T1000147 - 2*gtu33*T1000148) + + PDstandardNth2phi*(Gt233 + + gt33L*(Gt233*gtu33 - 4*gtu32*PDstandardNth3phi + T1000149 + T1000150 + + T1000151 + T1000153 + T1000154))); - e4phi = exp(4*phiL); - - em4phi = INV(e4phi); + cXt2L = T1000149 + T1000150 + T1000151 + T1000152 + T1000153 + T1000154 - Xt2L; - gu11 = em4phi*gtu11; - - gu21 = em4phi*gtu21; + Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - + 2*gtu31*PDstandardNth13gt12 + gt12L*PDstandardNth1Xt1 + + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - + gtu22*PDstandardNth22gt12 - 2*gtu32*PDstandardNth23gt12 + + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + + gt13L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt12 + + 2*gtu21*(Gt112*gt11L*Gt222 + Gt112*Gt211*gt22L + 2*Gt122*gt13L*Gt311 + + Gt112*gt23L*Gt311 + Gt222*gt23L*Gt311 + gt13L*Gt222*Gt312 + + Gt213*gt22L*Gt312 + Gt212*gt23L*Gt312 + gt23L*Gt312*Gt313 + + Gt113*gt11L*Gt322 + gt13L*Gt313*Gt322 + Gt311*Gt322*gt33L + T1000013 + + T1000014 + T1000015 + gt12L* + (2*Gt122*Gt211 + Gt212*Gt222 + Gt213*Gt322 + T1000017 + T1000018) + + Gt111*(T1000016 + T1000019 + T1000020 + T1000023)) + + 2*gtu11*(3*Gt112*gt12L*Gt211 + 2*Gt211*Gt212*gt22L + Gt113*gt12L*Gt311 + + 2*Gt112*gt13L*Gt311 + Gt213*gt22L*Gt311 + Gt212*gt23L*Gt311 + + gt13L*Gt212*Gt312 + gt12L*Gt213*Gt312 + 2*Gt211*gt23L*Gt312 + + gt23L*Gt311*Gt313 + gt13L*Gt312*Gt313 + Gt311*Gt312*gt33L + + gt12L*T1000008 + gt12L*T1000010 + + gt11L*(2*Gt111*Gt112 + T1000017 + T1000018) + + Gt111*(T1000042 + T1000043 + T1000044 + T1000045)) + + 2*gtu21*(Gt122*gt12L*Gt211 + 3*Gt112*gt12L*Gt212 + gt12L*Gt212*Gt222 + + Gt123*gt12L*Gt311 + Gt223*gt22L*Gt311 + 3*Gt112*gt13L*Gt312 + + gt12L*Gt223*Gt312 + 2*Gt212*gt23L*Gt312 + gt13L*Gt212*Gt322 + + gt23L*Gt311*Gt323 + gt13L*Gt312*Gt323 + gt33L*T1000012 + T1000013 + + T1000014 + T1000015 + gt11L*(Gt122*Gt212 + 2*T1000011 + T1000024) + + Gt111*T1000046) + 2*gtu22* + (gt11L*Gt122*Gt222 + 2*Gt212*Gt222*gt22L + 2*Gt122*gt13L*Gt312 + + Gt223*gt22L*Gt312 + Gt222*gt23L*Gt312 + gt11L*Gt123*Gt322 + + gt13L*Gt222*Gt322 + 2*Gt212*gt23L*Gt322 + gt23L*Gt312*Gt323 + + gt13L*Gt322*Gt323 + Gt312*Gt322*gt33L + gt12L*T1000011 + + Gt112*(T1000019 + T1000020 + T1000021 + T1000022 + T1000023) + + gt12L*(3*Gt122*Gt212 + Gt223*Gt322 + T1000024 + T1000096)) + + 2*gtu31*(Gt123*gt12L*Gt211 + gt12L*Gt133*Gt311 + gt22L*Gt233*Gt311 + + gt12L*Gt233*Gt312 + 2*Gt112*gt13L*Gt313 + gt13L*Gt212*Gt323 + + gt23L*Gt311*Gt333 + gt13L*Gt312*Gt333 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000032 + T1000049 + T1000052 + + T1000055 + T1000057 + gt11L*(Gt123*Gt212 + Gt133*Gt312 + T1000058) + + T1000097 + T1000099) + 2*gtu31* + (Gt112*gt11L*Gt223 + Gt113*gt11L*Gt323 + T1000025 + T1000026 + + T1000027 + T1000028 + Gt111*T1000040 + + gt12L*(2*Gt123*Gt211 + Gt212*Gt223 + Gt213*Gt323 + T1000047 + + T1000048) + T1000050 + T1000051 + T1000053 + T1000054 + T1000056 + + T1000100 + T1000103 + T1000106 + T1000107) + + 2*gtu32*(gt11L*Gt122*Gt223 + 2*Gt123*gt13L*Gt312 + gt11L*Gt123*Gt323 + + T1000033 + T1000034 + T1000035 + T1000036 + Gt112*T1000040 + + gt12L*(Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323) + T1000059) + + T1000062 + T1000064 + T1000114 + T1000116 + T1000121 + T1000123 + + T1000124 + T1000125) + 2*gtu32* + (gt12L*Gt133*Gt312 + gt22L*Gt233*Gt312 + 2*Gt122*gt13L*Gt313 + + gt12L*Gt233*Gt322 + gt11L* + (2*Gt113*Gt122 + Gt123*Gt222 + Gt133*Gt322) + gt13L*Gt222*Gt323 + + gt23L*Gt312*Gt333 + gt13L*Gt322*Gt333 + Gt112*T1000032 + T1000033 + + T1000034 + T1000035 + T1000036 + T1000061 + T1000110 + T1000113 + + T1000115 + T1000119 + T1000120 + T1000126) + + 2*gtu33*(gt11L*Gt123*Gt223 + gt11L*Gt133*Gt323 + + Gt113*(T1000030 + T1000031 + T1000037 + T1000038 + T1000039) + + T1000074 + T1000075 + T1000080 + + gt12L*(3*Gt123*Gt213 + Gt233*Gt323 + T1000069 + T1000081) + T1000083 + + T1000084 + T1000133 + T1000134 + T1000135 + T1000136 + T1000137) + + (Gt111*gt12L + T1000042 + T1000043)*Xt1L + + (Gt112*gt11L + T1000044 + T1000045)*Xt1L + + (gt11L*Gt122 + T1000020 + T1000023)*Xt2L + T1000046*Xt2L + + T1000032*Xt3L + T1000094*Xt3L); - gu31 = em4phi*gtu31; + Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - + 2*gtu31*PDstandardNth13gt13 + gt13L*PDstandardNth1Xt1 + + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - + gtu22*PDstandardNth22gt13 - 2*gtu32*PDstandardNth23gt13 - + gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + + gt12L*PDstandardNth3Xt2 + gt13L*PDstandardNth3Xt3 + + 2*gtu31*(Gt112*gt13L*Gt213 + Gt112*gt11L*Gt233 + Gt211*gt22L*Gt233 + + Gt113*Gt211*gt23L + Gt212*Gt213*gt23L + 2*Gt133*gt13L*Gt311 + + gt13L*Gt233*Gt312 + Gt113*gt13L*Gt313 + Gt213*gt23L*Gt313 + + Gt113*gt11L*Gt333 + Gt211*gt23L*Gt333 + + gt12L*(2*Gt133*Gt211 + Gt212*Gt233 + Gt213*Gt333) + + Gt113*Gt311*gt33L + Gt213*Gt312*gt33L + T1000068 + T1000070 + + T1000071 + T1000072 + Gt111*T1000079) + + 2*gtu31*(Gt123*gt13L*Gt211 + 3*Gt113*gt12L*Gt213 + gt12L*Gt213*Gt223 + + Gt211*Gt223*gt23L + Gt133*gt13L*Gt311 + 3*Gt113*gt13L*Gt313 + + gt12L*Gt233*Gt313 + 2*Gt213*gt23L*Gt313 + gt13L*Gt213*Gt323 + + Gt211*Gt323*gt33L + gt22L*T1000067 + T1000068 + + gt11L*(Gt123*Gt213 + 2*T1000041 + T1000069) + T1000070 + T1000071 + + T1000072 + Gt111*T1000088) + + 2*gtu11*(2*Gt113*gt12L*Gt211 + Gt112*gt13L*Gt211 + gt12L*Gt212*Gt213 + + Gt211*Gt213*gt22L + Gt211*Gt212*gt23L + 3*Gt113*gt13L*Gt311 + + 2*Gt213*gt23L*Gt311 + gt13L*Gt213*Gt312 + gt12L*Gt213*Gt313 + + Gt211*gt23L*Gt313 + Gt211*Gt312*gt33L + 2*Gt311*Gt313*gt33L + + gt13L*T1000009 + gt13L*T1000010 + + gt11L*(2*Gt111*Gt113 + T1000047 + T1000048) + + Gt111*(T1000089 + T1000090 + T1000091 + T1000092)) + + 2*gtu21*(Gt122*gt13L*Gt211 + 2*Gt113*gt12L*Gt212 + Gt112*gt12L*Gt213 + + gt12L*Gt213*Gt222 + Gt211*Gt222*gt23L + Gt123*gt13L*Gt311 + + gt12L*Gt223*Gt313 + gt13L*Gt213*Gt322 + Gt211*Gt322*gt33L + T1000025 + + T1000027 + T1000051 + T1000054 + T1000055 + T1000056 + T1000057 + + gt11L*(Gt123*Gt313 + T1000058 + T1000059) + Gt111*T1000095 + + T1000104 + T1000105) + 2*gtu21* + (2*Gt123*gt12L*Gt211 + gt12L*Gt213*Gt323 + + gt11L*(2*Gt111*Gt123 + Gt112*Gt223 + Gt113*Gt323) + T1000026 + + T1000027 + T1000028 + T1000049 + T1000050 + T1000051 + T1000052 + + T1000053 + T1000054 + T1000055 + T1000056 + + Gt111*(T1000038 + T1000039 + T1000060) + T1000098 + T1000101 + + T1000102 + T1000108 + T1000109) + + 2*gtu22*(2*Gt123*gt12L*Gt212 + 3*Gt123*gt13L*Gt312 + gt12L*Gt223*Gt323 + + gt11L*(2*Gt112*Gt123 + Gt122*Gt223 + Gt123*Gt323) + + 2*Gt312*Gt323*gt33L + T1000034 + T1000036 + T1000061 + T1000062 + + T1000064 + Gt112*(T1000038 + T1000039 + T1000065 + T1000066) + + T1000111 + T1000112 + T1000117 + T1000118 + T1000127) + + 2*gtu32*(Gt122*gt13L*Gt213 + gt11L*Gt122*Gt233 + Gt212*gt22L*Gt233 + + Gt113*Gt212*gt23L + Gt213*Gt222*gt23L + 2*Gt133*gt13L*Gt312 + + Gt123*gt13L*Gt313 + gt13L*Gt233*Gt322 + gt11L*Gt123*Gt333 + + gt12L*(2*Gt133*Gt212 + Gt222*Gt233 + Gt223*Gt333) + + Gt113*Gt312*gt33L + Gt213*Gt322*gt33L + T1000074 + T1000075 + + Gt112*T1000079 + T1000080 + T1000082 + T1000085 + T1000132) + + 2*gtu32*(Gt123*gt13L*Gt212 + 2*Gt123*gt12L*Gt213 + Gt113*gt12L*Gt223 + + Gt213*Gt223*gt22L + gt12L*Gt233*Gt323 + + gt11L*(2*Gt113*Gt123 + Gt123*Gt223 + Gt133*Gt323) + T1000074 + + T1000075 + T1000080 + gt12L*T1000081 + T1000082 + T1000083 + + T1000084 + T1000085 + Gt112*T1000088 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000138) + + 2*gtu33*(2*gt12L*Gt133*Gt213 + Gt123*gt13L*Gt213 + gt11L*Gt123*Gt233 + + gt12L*Gt223*Gt233 + Gt213*gt22L*Gt233 + Gt213*Gt223*gt23L + + 3*Gt133*gt13L*Gt313 + 2*Gt233*gt23L*Gt313 + gt13L*Gt233*Gt323 + + gt11L*Gt133*Gt333 + gt12L*Gt233*Gt333 + Gt213*gt23L*Gt333 + + Gt213*Gt323*gt33L + 2*Gt313*Gt333*gt33L + gt13L*T1000041 + + Gt113*(T1000076 + T1000077 + T1000078 + T1000086 + T1000087) + + gt13L*T1000145) + (Gt113*gt11L + T1000089 + T1000090)*Xt1L + + (Gt111*gt13L + T1000091 + T1000092)*Xt1L + T1000094*Xt2L + + T1000095*Xt2L + (gt11L*Gt133 + T1000077 + T1000078)*Xt3L + T1000088*Xt3L); - gu22 = em4phi*gtu22; + Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - + 2*gtu31*PDstandardNth13gt23 - gtu22*PDstandardNth22gt23 - + 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + + gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3 - + gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + + gt22L*PDstandardNth3Xt2 + gt23L*PDstandardNth3Xt3 + + 2*gtu22*(gt11L*Gt122*Gt123 + Gt112*Gt123*gt12L + Gt112*Gt122*gt13L + + Gt123*gt12L*Gt222 + Gt122*gt13L*Gt222 + 2*Gt122*gt12L*Gt223 + + Gt123*Gt212*gt22L + 2*Gt222*Gt223*gt22L + Gt122*Gt212*gt23L + + Gt123*gt23L*Gt312 + 2*Gt123*gt13L*Gt322 + 3*Gt223*gt23L*Gt322 + + Gt123*gt12L*Gt323 + Gt122*gt13L*Gt323 + Gt223*gt22L*Gt323 + + Gt222*gt23L*Gt323 + Gt122*Gt312*gt33L + Gt222*Gt322*gt33L + + 2*Gt322*Gt323*gt33L + gt23L*T1000063 + gt23L*T1000096) + + 2*gtu11*(Gt112*Gt113*gt11L + Gt111*Gt113*gt12L + Gt111*Gt112*gt13L + + 2*Gt212*Gt213*gt22L + 3*Gt213*gt23L*Gt312 + Gt113*gt12L*Gt313 + + 2*Gt312*Gt313*gt33L + T1000057 + T1000097 + T1000098 + T1000099 + + T1000100 + T1000101 + T1000102 + T1000103 + T1000104 + T1000105 + + T1000106 + T1000107 + T1000108 + T1000109) + + 2*gtu21*(Gt112*gt11L*Gt123 + Gt111*Gt123*gt12L + Gt111*Gt122*gt13L + + Gt112*gt13L*Gt222 + 2*Gt112*gt12L*Gt223 + Gt123*Gt211*gt22L + + 2*Gt212*Gt223*gt22L + Gt122*Gt211*gt23L + Gt123*gt23L*Gt311 + + Gt113*gt12L*Gt323 + Gt112*gt13L*Gt323 + Gt213*gt22L*Gt323 + + Gt122*Gt311*gt33L + Gt222*Gt312*gt33L + T1000035 + T1000036 + + T1000110 + T1000111 + T1000112 + T1000113 + T1000114 + T1000115 + + T1000116 + T1000122) + 2*gtu21* + (Gt113*gt11L*Gt122 + 2*Gt213*Gt222*gt22L + Gt123*gt12L*Gt313 + + Gt122*gt13L*Gt313 + 2*Gt213*gt23L*Gt322 + + Gt112*(T1000029 + T1000065 + T1000066) + T1000111 + T1000113 + + T1000114 + T1000115 + T1000116 + T1000117 + T1000118 + T1000119 + + T1000120 + T1000121 + T1000122 + T1000123 + T1000124 + T1000125 + + T1000126 + T1000127) + 2*gtu31* + (Gt112*gt11L*Gt133 + Gt111*gt12L*Gt133 + Gt111*Gt123*gt13L + + gt12L*Gt133*Gt212 + Gt112*gt13L*Gt223 + Gt133*Gt211*gt22L + + 2*Gt112*gt12L*Gt233 + 2*Gt212*gt22L*Gt233 + Gt123*Gt211*gt23L + + Gt133*gt23L*Gt311 + 2*Gt233*gt23L*Gt312 + Gt113*gt12L*Gt333 + + Gt112*gt13L*Gt333 + Gt213*gt22L*Gt333 + Gt123*Gt311*gt33L + + Gt223*Gt312*gt33L + T1000080 + T1000085 + T1000128 + T1000129 + + T1000130 + T1000131 + T1000132 + T1000133) + + 2*gtu31*(Gt112*Gt213*gt23L + gt12L*Gt133*Gt313 + + Gt123*(2*gt12L*Gt213 + gt13L*(Gt212 + Gt313)) + Gt112*Gt313*gt33L + + T1000074 + T1000080 + T1000082 + T1000085 + + Gt113*(T1000030 + T1000031 + T1000038 + T1000039 + T1000060 + + T1000093) + T1000128 + T1000129 + T1000133 + T1000134 + T1000135 + + T1000136 + T1000137 + T1000138) + + 2*gtu32*(gt11L*Gt122*Gt133 + Gt112*gt12L*Gt133 + Gt112*Gt123*gt13L + + gt12L*Gt133*Gt222 + Gt122*gt13L*Gt223 + Gt133*Gt212*gt22L + + 2*Gt122*gt12L*Gt233 + 2*Gt222*gt22L*Gt233 + Gt123*Gt212*gt23L + + Gt133*gt23L*Gt312 + 2*Gt233*gt23L*Gt322 + Gt123*gt13L*Gt323 + + Gt223*gt23L*Gt323 + Gt123*gt12L*Gt333 + Gt122*gt13L*Gt333 + + Gt223*gt22L*Gt333 + Gt222*gt23L*Gt333 + Gt123*Gt312*gt33L + + Gt223*Gt322*gt33L + T1000140 + T1000141 + T1000142 + T1000143 + + T1000144) + 2*gtu32*(Gt113*Gt123*gt12L + Gt113*Gt122*gt13L + + Gt123*gt13L*Gt222 + 3*Gt123*gt12L*Gt223 + Gt123*Gt213*gt22L + + Gt122*Gt213*gt23L + Gt123*gt23L*Gt313 + Gt233*gt23L*Gt322 + + gt12L*Gt133*Gt323 + 2*Gt123*gt13L*Gt323 + gt22L*Gt233*Gt323 + + 3*Gt223*gt23L*Gt323 + Gt122*Gt313*gt33L + Gt222*Gt323*gt33L + + 2*gt22L*T1000081 + gt11L*T1000139 + T1000140 + T1000141 + T1000142 + + T1000143 + T1000144) + 2*gtu33* + (gt11L*Gt123*Gt133 + Gt113*gt12L*Gt133 + Gt113*Gt123*gt13L + + gt12L*Gt133*Gt223 + Gt123*gt13L*Gt223 + Gt133*Gt213*gt22L + + 2*Gt123*gt12L*Gt233 + 2*Gt223*gt22L*Gt233 + Gt123*Gt213*gt23L + + Gt133*gt23L*Gt313 + 2*Gt133*gt13L*Gt323 + 3*Gt233*gt23L*Gt323 + + gt12L*Gt133*Gt333 + Gt123*gt13L*Gt333 + gt22L*Gt233*Gt333 + + Gt223*gt23L*Gt333 + Gt123*Gt313*gt33L + Gt223*Gt323*gt33L + + 2*Gt323*Gt333*gt33L + gt23L*T1000081 + gt23L*T1000145) + + T1000032*Xt1L + T1000095*Xt1L + + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xt2L + + (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xt2L + + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xt3L + + (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xt3L); - gu32 = em4phi*gtu32; + R11 = Rphi11 + Rt11; - gu33 = em4phi*gtu33; + R22 = Rphi22 + Rt22; - R11 = Rphi11 + Rt11; + R33 = Rphi33 + Rt33; R12 = Rphi12 + Rt12; R13 = Rphi13 + Rt13; - R22 = Rphi22 + Rt22; - R23 = Rphi23 + Rt23; - R33 = Rphi33 + Rt33; - trR = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + gu32*R23) + gu33*R33; - Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; - - Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32; - - Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33; - - Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31; - - Atm22 = At12L*gtu21 + At22L*gtu22 + At23L*gtu32; - - Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33; - - Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31; - - Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32; - - Atm33 = At13L*gtu31 + At23L*gtu32 + At33L*gtu33; - HL = -2*(Atm12*Atm21 + Atm13*Atm31 + Atm23*Atm32) + trR - SQR(Atm11) - SQR(Atm22) - SQR(Atm33) + ktwothird*SQR(trKL); - M1L = -(At12L*Gt112*gtu22) - At11L*Gt122*gtu22 - At22L*Gt212*gtu22 - - At12L*Gt222*gtu22 - At23L*Gt312*gtu22 - At13L*Gt322*gtu22 - - At13L*Gt111*gtu31 - 3*At11L*Gt113*gtu31 - At23L*Gt211*gtu31 - - 3*At12L*Gt213*gtu31 - At33L*Gt311*gtu31 - 3*At13L*Gt313*gtu31 - - At13L*Gt112*gtu32 - At12L*Gt113*gtu32 - At23L*Gt212*gtu32 - - At22L*Gt213*gtu32 - 2*At12L*Gt223*gtu32 - At33L*Gt312*gtu32 - - At23L*Gt313*gtu32 - 2*At13L*Gt323*gtu32 - - 2*(At11L*Gt111*gtu11 + At12L*Gt211*gtu11 + At13L*Gt311*gtu11 + - At11L*Gt123*gtu32) - At13L*Gt113*gtu33 - At11L*Gt133*gtu33 - - At23L*Gt213*gtu33 - At12L*Gt233*gtu33 - At33L*Gt313*gtu33 - - At13L*Gt333*gtu33 + gtu11*PDstandardNth1At11 + - gtu21*(-(At12L*Gt111) - 3*At11L*Gt112 - At22L*Gt211 - 3*At12L*Gt212 - - At23L*Gt311 - 3*At13L*Gt312 + PDstandardNth1At12) + - gtu31*PDstandardNth1At13 + 6*At11L*gtu11*PDstandardNth1phi + - 6*At12L*gtu21*PDstandardNth1phi + 6*At13L*gtu31*PDstandardNth1phi - - ktwothird*PDstandardNth1trK + gtu21*PDstandardNth2At11 + - gtu22*PDstandardNth2At12 + gtu32*PDstandardNth2At13 + - 6*At11L*gtu21*PDstandardNth2phi + 6*At12L*gtu22*PDstandardNth2phi + - 6*At13L*gtu32*PDstandardNth2phi + gtu31*PDstandardNth3At11 + - gtu32*PDstandardNth3At12 + gtu33*PDstandardNth3At13 + - 6*At11L*gtu31*PDstandardNth3phi + 6*At12L*gtu32*PDstandardNth3phi + - 6*At13L*gtu33*PDstandardNth3phi; - - M2L = -(At12L*Gt111*gtu11) - At11L*Gt112*gtu11 - At22L*Gt211*gtu11 - - At12L*Gt212*gtu11 - At23L*Gt311*gtu11 - At13L*Gt312*gtu11 - - 3*At12L*Gt112*gtu21 - At11L*Gt122*gtu21 - 3*At22L*Gt212*gtu21 - - At12L*Gt222*gtu21 - 3*At23L*Gt312*gtu21 - At13L*Gt322*gtu21 - - 2*At12L*Gt122*gtu22 - 2*At22L*Gt222*gtu22 - 2*At23L*Gt322*gtu22 - - At13L*Gt112*gtu31 - 2*At12L*Gt113*gtu31 - At11L*Gt123*gtu31 - - At23L*Gt212*gtu31 - 2*At22L*Gt213*gtu31 - At12L*Gt223*gtu31 - - At33L*Gt312*gtu31 - 2*At23L*Gt313*gtu31 - At13L*Gt323*gtu31 - - At13L*Gt122*gtu32 - 3*At12L*Gt123*gtu32 - At23L*Gt222*gtu32 - - 3*At22L*Gt223*gtu32 - At33L*Gt322*gtu32 - 3*At23L*Gt323*gtu32 - - At13L*Gt123*gtu33 - At12L*Gt133*gtu33 - At23L*Gt223*gtu33 - - At22L*Gt233*gtu33 - At33L*Gt323*gtu33 - At23L*Gt333*gtu33 + - gtu11*PDstandardNth1At12 + gtu21*PDstandardNth1At22 + - gtu31*PDstandardNth1At23 + 6*At12L*gtu11*PDstandardNth1phi + - 6*At22L*gtu21*PDstandardNth1phi + 6*At23L*gtu31*PDstandardNth1phi + - gtu21*PDstandardNth2At12 + gtu22*PDstandardNth2At22 + - gtu32*PDstandardNth2At23 + 6*At12L*gtu21*PDstandardNth2phi + - 6*At22L*gtu22*PDstandardNth2phi + 6*At23L*gtu32*PDstandardNth2phi - - ktwothird*PDstandardNth2trK + gtu31*PDstandardNth3At12 + - gtu32*PDstandardNth3At22 + gtu33*PDstandardNth3At23 + - 6*At12L*gtu31*PDstandardNth3phi + 6*At22L*gtu32*PDstandardNth3phi + - 6*At23L*gtu33*PDstandardNth3phi; - - M3L = -(At13L*Gt111*gtu11) - At11L*Gt113*gtu11 - At23L*Gt211*gtu11 - - At12L*Gt213*gtu11 - At33L*Gt311*gtu11 - At13L*Gt313*gtu11 - - 2*At13L*Gt112*gtu21 - At12L*Gt113*gtu21 - At11L*Gt123*gtu21 - - 2*At23L*Gt212*gtu21 - At22L*Gt213*gtu21 - At12L*Gt223*gtu21 - - 2*At33L*Gt312*gtu21 - At23L*Gt313*gtu21 - At13L*Gt323*gtu21 - - At13L*Gt122*gtu22 - At12L*Gt123*gtu22 - At23L*Gt222*gtu22 - - At22L*Gt223*gtu22 - At33L*Gt322*gtu22 - At23L*Gt323*gtu22 - - 3*At13L*Gt113*gtu31 - At11L*Gt133*gtu31 - 3*At23L*Gt213*gtu31 - - At12L*Gt233*gtu31 - 3*At33L*Gt313*gtu31 - At13L*Gt333*gtu31 - - 3*At13L*Gt123*gtu32 - At12L*Gt133*gtu32 - 3*At23L*Gt223*gtu32 - - At22L*Gt233*gtu32 - 3*At33L*Gt323*gtu32 - At23L*Gt333*gtu32 - - 2*At13L*Gt133*gtu33 - 2*At23L*Gt233*gtu33 - 2*At33L*Gt333*gtu33 + - gtu11*PDstandardNth1At13 + gtu21*PDstandardNth1At23 + - gtu31*PDstandardNth1At33 + 6*At13L*gtu11*PDstandardNth1phi + - 6*At23L*gtu21*PDstandardNth1phi + 6*At33L*gtu31*PDstandardNth1phi + - gtu21*PDstandardNth2At13 + gtu22*PDstandardNth2At23 + - gtu32*PDstandardNth2At33 + 6*At13L*gtu21*PDstandardNth2phi + - 6*At23L*gtu22*PDstandardNth2phi + 6*At33L*gtu32*PDstandardNth2phi + - gtu31*PDstandardNth3At13 + gtu32*PDstandardNth3At23 + - gtu33*PDstandardNth3At33 + 6*At13L*gtu31*PDstandardNth3phi + - 6*At23L*gtu32*PDstandardNth3phi + 6*At33L*gtu33*PDstandardNth3phi - - ktwothird*PDstandardNth3trK; - - cSL = Log(detgt); - - cXt1L = Gt111*gtu11 + Gt122*gtu22 + - 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33 - Xt1L; - - cXt2L = Gt211*gtu11 + Gt222*gtu22 + - 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33 - Xt2L; - - cXt3L = Gt311*gtu11 + Gt322*gtu22 + - 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33 - Xt3L; - - cAL = At11L*gtu11 + At22L*gtu22 + - 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + At33L*gtu33; - /* Copy local copies back to grid functions */ cA[index] = cAL; @@ -1137,8 +1368,8 @@ void ML_BSSN_constraints_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK void ML_BSSN_constraints(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_constraints_Body); } diff --git a/ML_BSSN/src/ML_BSSN_constraints_boundary.c b/ML_BSSN/src/ML_BSSN_constraints_boundary.c index db3fd13..65efc47 100644 --- a/ML_BSSN/src/ML_BSSN_constraints_boundary.c +++ b/ML_BSSN/src/ML_BSSN_constraints_boundary.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const #pragma omp parallel LC_LOOP3 (ML_BSSN_constraints_boundary, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -151,8 +151,8 @@ void ML_BSSN_constraints_boundary_Body(cGH const * const cctkGH, CCTK_INT const void ML_BSSN_constraints_boundary(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_BSSN_constraints_boundary_Body); } diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBase.c b/ML_BSSN/src/ML_BSSN_convertFromADMBase.c index 1e6b70a..28a5c5c 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBase.c +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBase.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di #pragma omp parallel LC_LOOP3 (ML_BSSN_convertFromADMBase, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -184,22 +184,50 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di g33 = gzzL; - detg = 2*g12*g13*g23 + g33*(g11*g22 - SQR(g12)) - g22*SQR(g13) - g11*SQR(g23); + K11 = kxxL; + + K12 = kxyL; + + K13 = kxzL; + + K22 = kyyL; + + K23 = kyzL; + + K33 = kzzL; - gu11 = INV(detg)*(g22*g33 - SQR(g23)); + alphaL = alpL; + + beta1L = betaxL; - gu21 = (g13*g23 - g12*g33)*INV(detg); + beta2L = betayL; + + beta3L = betazL; - gu31 = (-(g13*g22) + g12*g23)*INV(detg); + CCTK_REAL const T1000001 = SQR(g23); - gu22 = INV(detg)*(g11*g33 - SQR(g13)); + CCTK_REAL const T1000003 = SQR(g13); - gu32 = (g12*g13 - g11*g23)*INV(detg); + CCTK_REAL const T1000004 = SQR(g12); - gu33 = INV(detg)*(g11*g22 - SQR(g12)); + detg = 2*g12*g13*g23 + g11*(g22*g33 - T1000001) - g22*T1000003 - g33*T1000004; + + CCTK_REAL const T1000002 = INV(detg); phiL = Log(detg)/12.; + gu11 = (g22*g33 - T1000001)*T1000002; + + gu21 = (g13*g23 - g12*g33)*T1000002; + + gu31 = (-(g13*g22) + g12*g23)*T1000002; + + gu22 = T1000002*(g11*g33 - T1000003); + + gu32 = (g12*g13 - g11*g23)*T1000002; + + gu33 = T1000002*(g11*g22 - T1000004); + em4phi = exp(-4*phiL); gt11L = em4phi*g11; @@ -214,18 +242,6 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di gt33L = em4phi*g33; - K11 = kxxL; - - K12 = kxyL; - - K13 = kxzL; - - K22 = kyyL; - - K23 = kyzL; - - K33 = kzzL; - trKL = gu11*K11 + gu22*K22 + 2*(gu21*K12 + gu31*K13 + gu32*K23) + gu33*K33; At11L = em4phi*(K11 - g11*kthird*trKL); @@ -240,14 +256,6 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di At33L = em4phi*(K33 - g33*kthird*trKL); - alphaL = alpL; - - beta1L = betaxL; - - beta2L = betayL; - - beta3L = betazL; - /* Copy local copies back to grid functions */ alpha[index] = alphaL; @@ -276,8 +284,8 @@ void ML_BSSN_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const di void ML_BSSN_convertFromADMBase(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_convertFromADMBase_Body); } diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c index 67a75c5..e2c6ecd 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con #pragma omp parallel LC_LOOP3 (ML_BSSN_convertFromADMBaseGamma, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -131,15 +131,6 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con /* Declare precomputed derivatives*/ /* Declare derivatives */ - CCTK_REAL PDupwindNth1beta1 = INITVALUE; - CCTK_REAL PDupwindNth2beta1 = INITVALUE; - CCTK_REAL PDupwindNth3beta1 = INITVALUE; - CCTK_REAL PDupwindNth1beta2 = INITVALUE; - CCTK_REAL PDupwindNth2beta2 = INITVALUE; - CCTK_REAL PDupwindNth3beta2 = INITVALUE; - CCTK_REAL PDupwindNth1beta3 = INITVALUE; - CCTK_REAL PDupwindNth2beta3 = INITVALUE; - CCTK_REAL PDupwindNth3beta3 = INITVALUE; CCTK_REAL PDstandardNth1gt11 = INITVALUE; CCTK_REAL PDstandardNth2gt11 = INITVALUE; CCTK_REAL PDstandardNth3gt11 = INITVALUE; @@ -202,6 +193,14 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con /* Precompute derivatives (old style) */ /* Calculate temporaries and grid functions */ + CCTK_REAL const T1000002 = -PDstandardNth3gt12; + + CCTK_REAL const T1000004 = -PDstandardNth2gt13; + + CCTK_REAL const T1000006 = -PDstandardNth1gt23; + + CCTK_REAL const T1000008 = INV(ShiftGammaCoeff); + dir1 = Sign(beta1L); dir2 = Sign(beta2L); @@ -210,17 +209,39 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + AL = -(dtalpL*(-1 + LapseAdvectionCoeff)*INV(harmonicF)*pow(alphaL,-harmonicN)); + + CCTK_REAL const T1000001 = INV(detgt); + + CCTK_REAL const T1000003 = PDstandardNth1gt23 + PDstandardNth2gt13 + T1000002; + + CCTK_REAL const T1000005 = PDstandardNth1gt23 + PDstandardNth3gt12 + T1000004; + + CCTK_REAL const T1000007 = PDstandardNth2gt13 + PDstandardNth3gt12 + T1000006; + + B1L = (dtbetaxL - (PDupwindNth1(beta1, i, j, k)*beta1L + + PDupwindNth2(beta1, i, j, k)*beta2L + + PDupwindNth3(beta1, i, j, k)*beta3L)*ShiftAdvectionCoeff)*T1000008; + + B2L = (dtbetayL - (PDupwindNth1(beta2, i, j, k)*beta1L + + PDupwindNth2(beta2, i, j, k)*beta2L + + PDupwindNth3(beta2, i, j, k)*beta3L)*ShiftAdvectionCoeff)*T1000008; + + B3L = (dtbetazL - (PDupwindNth1(beta3, i, j, k)*beta1L + + PDupwindNth2(beta3, i, j, k)*beta2L + + PDupwindNth3(beta3, i, j, k)*beta3L)*ShiftAdvectionCoeff)*T1000008; + + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - @@ -235,22 +256,22 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu31*T1000003); Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu32*T1000003); Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + gtu33*T1000003); Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu21*T1000005); Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu22*T1000005); Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + gtu32*T1000005); Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + @@ -264,17 +285,14 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con gtu32*PDstandardNth2gt22 + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + - gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu21*PDstandardNth3gt22 + + gtu11*T1000007); - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + - gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu22*PDstandardNth3gt22 + + gtu21*T1000007); - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + - gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu32*PDstandardNth3gt22 + + gtu31*T1000007); Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + 2*gtu21*PDstandardNth3gt23 + @@ -297,23 +315,6 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; - AL = -(dtalpL*(-1 + LapseAdvectionCoeff)*INV(harmonicF)*pow(alphaL,-harmonicN)); - - B1L = (dtbetaxL - (PDupwindNth1(beta1, i, j, k)*beta1L + - PDupwindNth2(beta1, i, j, k)*beta2L + - PDupwindNth3(beta1, i, j, k)*beta3L)*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff); - - B2L = (dtbetayL - (PDupwindNth1(beta2, i, j, k)*beta1L + - PDupwindNth2(beta2, i, j, k)*beta2L + - PDupwindNth3(beta2, i, j, k)*beta3L)*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff); - - B3L = (dtbetazL - (PDupwindNth1(beta3, i, j, k)*beta1L + - PDupwindNth2(beta3, i, j, k)*beta2L + - PDupwindNth3(beta3, i, j, k)*beta3L)*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff); - /* Copy local copies back to grid functions */ A[index] = AL; @@ -331,8 +332,8 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT con void ML_BSSN_convertFromADMBaseGamma(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_convertFromADMBaseGamma_Body); } diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBase.c b/ML_BSSN/src/ML_BSSN_convertToADMBase.c index 7eba3a2..42bc211 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBase.c +++ b/ML_BSSN/src/ML_BSSN_convertToADMBase.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, #pragma omp parallel LC_LOOP3 (ML_BSSN_convertToADMBase, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -147,18 +147,6 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, /* Declare precomputed derivatives*/ /* Declare derivatives */ - CCTK_REAL PDupwindNth1alpha = INITVALUE; - CCTK_REAL PDupwindNth2alpha = INITVALUE; - CCTK_REAL PDupwindNth3alpha = INITVALUE; - CCTK_REAL PDupwindNth1beta1 = INITVALUE; - CCTK_REAL PDupwindNth2beta1 = INITVALUE; - CCTK_REAL PDupwindNth3beta1 = INITVALUE; - CCTK_REAL PDupwindNth1beta2 = INITVALUE; - CCTK_REAL PDupwindNth2beta2 = INITVALUE; - CCTK_REAL PDupwindNth3beta2 = INITVALUE; - CCTK_REAL PDupwindNth1beta3 = INITVALUE; - CCTK_REAL PDupwindNth2beta3 = INITVALUE; - CCTK_REAL PDupwindNth3beta3 = INITVALUE; /* Assign local copies of grid functions */ AL = A[index]; @@ -199,7 +187,7 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, dir3 = Sign(beta3L); - e4phi = exp(4*phiL); + e4phi = xp(4*phiL); g11 = e4phi*gt11L; @@ -308,8 +296,8 @@ void ML_BSSN_convertToADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, void ML_BSSN_convertToADMBase(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_convertToADMBase_Body); } diff --git a/ML_BSSN/src/ML_BSSN_enforce.c b/ML_BSSN/src/ML_BSSN_enforce.c index 980514f..2b02dd2 100644 --- a/ML_BSSN/src/ML_BSSN_enforce.c +++ b/ML_BSSN/src/ML_BSSN_enforce.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -25,8 +25,8 @@ void ML_BSSN_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* Declare finite differencing variables */ @@ -102,7 +102,7 @@ void ML_BSSN_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT #pragma omp parallel LC_LOOP3 (ML_BSSN_enforce, i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + cctk_lssh[CCTK_LSSH_IDX(0,0)],cctk_lssh[CCTK_LSSH_IDX(0,1)],cctk_lssh[CCTK_LSSH_IDX(0,2)]) { int index = INITVALUE; int subblock_index = INITVALUE; @@ -146,17 +146,19 @@ void ML_BSSN_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT /* Calculate temporaries and grid functions */ detgt = 1; - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + CCTK_REAL const T1000001 = INV(detgt); - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + gtu11 = T1000001*(gt22L*gt33L - SQR(gt23L)); - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + gtu21 = (gt13L*gt23L - gt12L*gt33L)*T1000001; - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*T1000001; - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + gtu22 = T1000001*(gt11L*gt33L - SQR(gt13L)); - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + gtu32 = (gt12L*gt13L - gt11L*gt23L)*T1000001; + + gtu33 = T1000001*(gt11L*gt22L - SQR(gt12L)); trAt = At11L*gtu11 + At22L*gtu22 + 2*(At12L*gtu21 + At13L*gtu31 + At23L*gtu32) + At33L*gtu33; @@ -189,8 +191,8 @@ void ML_BSSN_enforce_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT void ML_BSSN_enforce(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_enforce_Body); } diff --git a/ML_BSSN/src/RegisterMoL.c b/ML_BSSN/src/RegisterMoL.c index 0bdc194..5d2feac 100644 --- a/ML_BSSN/src/RegisterMoL.c +++ b/ML_BSSN/src/RegisterMoL.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -9,8 +9,8 @@ void ML_BSSN_RegisterVars(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; CCTK_INT ierr = 0; diff --git a/ML_BSSN/src/RegisterSymmetries.c b/ML_BSSN/src/RegisterSymmetries.c index 44f11de..eddc61a 100644 --- a/ML_BSSN/src/RegisterSymmetries.c +++ b/ML_BSSN/src/RegisterSymmetries.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ @@ -10,8 +10,8 @@ void ML_BSSN_RegisterSymmetries(CCTK_ARGUMENTS) { - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; /* array holding symmetry definitions */ diff --git a/ML_BSSN/src/Startup.c b/ML_BSSN/src/Startup.c index 3871ecb..c0fbc17 100644 --- a/ML_BSSN/src/Startup.c +++ b/ML_BSSN/src/Startup.c @@ -1,5 +1,5 @@ -/* File produced by user diener */ -/* Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) */ +/* File produced by user eschnett */ +/* Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) */ /* Mathematica script written by Ian Hinder and Sascha Husa */ diff --git a/ML_BSSN/src/make.code.defn b/ML_BSSN/src/make.code.defn index 97668a7..3c8ac71 100644 --- a/ML_BSSN/src/make.code.defn +++ b/ML_BSSN/src/make.code.defn @@ -1,5 +1,5 @@ -# File produced by user diener -# Produced with Mathematica Version 6.0 for Linux x86 (32-bit) (April 20, 2007) +# File produced by user eschnett +# Produced with Mathematica Version 6.0 for Mac OS X x86 (64-bit) (May 21, 2008) # Mathematica script written by Ian Hinder and Sascha Husa |