Regenerate code, removing the *_O* and *_MP thorns

290 files changed, 3456 insertions, 115829 deletions

diff --git a/ML_ADM/schedule.ccl b/ML_ADM/schedule.ccl
index c5c8a2b..f5f7977 100644
--- a/ML_ADM/schedule.ccl
+++ b/ML_ADM/schedule.ccl
@@ -133,10 +133,22 @@ if (CCTK_EQUALS(my_initial_data, "Minkowski"))
   schedule ML_ADM_Minkowski IN ADMBase_InitialData
   {
     LANG: C
-    WRITES:   ML_ADM::ML_curv
-    WRITES:   ML_ADM::ML_lapse
-    WRITES:   ML_ADM::ML_metric
-    WRITES:   ML_ADM::ML_shift
+    WRITES:   ML_ADM::alpha
+    WRITES:   ML_ADM::beta1
+    WRITES:   ML_ADM::beta2
+    WRITES:   ML_ADM::beta3
+    WRITES:   ML_ADM::g11
+    WRITES:   ML_ADM::g12
+    WRITES:   ML_ADM::g13
+    WRITES:   ML_ADM::g22
+    WRITES:   ML_ADM::g23
+    WRITES:   ML_ADM::g33
+    WRITES:   ML_ADM::K11
+    WRITES:   ML_ADM::K12
+    WRITES:   ML_ADM::K13
+    WRITES:   ML_ADM::K22
+    WRITES:   ML_ADM::K23
+    WRITES:   ML_ADM::K33
   } "ML_ADM_Minkowski"
 }
 
@@ -146,28 +158,76 @@ if (CCTK_EQUALS(my_initial_data, "ADMBase"))
   schedule ML_ADM_convertFromADMBase AT initial AFTER ADMBase_PostInitial
   {
     LANG: C
-    READS:    ADMBase::curv
-    READS:    ADMBase::lapse
-    READS:    ADMBase::metric
-    READS:    ADMBase::shift
-    WRITES:   ML_ADM::ML_curv
-    WRITES:   ML_ADM::ML_lapse
-    WRITES:   ML_ADM::ML_metric
-    WRITES:   ML_ADM::ML_shift
+    READS:    ADMBase::alp
+    READS:    ADMBase::betax
+    READS:    ADMBase::betay
+    READS:    ADMBase::betaz
+    READS:    ADMBase::gxx
+    READS:    ADMBase::gxy
+    READS:    ADMBase::gxz
+    READS:    ADMBase::gyy
+    READS:    ADMBase::gyz
+    READS:    ADMBase::gzz
+    READS:    ADMBase::kxx
+    READS:    ADMBase::kxy
+    READS:    ADMBase::kxz
+    READS:    ADMBase::kyy
+    READS:    ADMBase::kyz
+    READS:    ADMBase::kzz
+    WRITES:   ML_ADM::alpha
+    WRITES:   ML_ADM::beta1
+    WRITES:   ML_ADM::beta2
+    WRITES:   ML_ADM::beta3
+    WRITES:   ML_ADM::g11
+    WRITES:   ML_ADM::g12
+    WRITES:   ML_ADM::g13
+    WRITES:   ML_ADM::g22
+    WRITES:   ML_ADM::g23
+    WRITES:   ML_ADM::g33
+    WRITES:   ML_ADM::K11
+    WRITES:   ML_ADM::K12
+    WRITES:   ML_ADM::K13
+    WRITES:   ML_ADM::K22
+    WRITES:   ML_ADM::K23
+    WRITES:   ML_ADM::K33
   } "ML_ADM_convertFromADMBase"
 }
 
 schedule ML_ADM_RHS IN MoL_CalcRHS
 {
   LANG: C
-  READS:    ML_ADM::ML_curv
-  READS:    ML_ADM::ML_lapse
-  READS:    ML_ADM::ML_metric
-  READS:    ML_ADM::ML_shift
-  WRITES:   ML_ADM::ML_curvrhs
-  WRITES:   ML_ADM::ML_lapserhs
-  WRITES:   ML_ADM::ML_metricrhs
-  WRITES:   ML_ADM::ML_shiftrhs
+  READS:    ML_ADM::alpha
+  READS:    ML_ADM::beta1
+  READS:    ML_ADM::beta2
+  READS:    ML_ADM::beta3
+  READS:    ML_ADM::g11
+  READS:    ML_ADM::g12
+  READS:    ML_ADM::g13
+  READS:    ML_ADM::g22
+  READS:    ML_ADM::g23
+  READS:    ML_ADM::g33
+  READS:    ML_ADM::K11
+  READS:    ML_ADM::K12
+  READS:    ML_ADM::K13
+  READS:    ML_ADM::K22
+  READS:    ML_ADM::K23
+  READS:    ML_ADM::K33
+  WRITES:   ML_ADM::alpharhs
+  WRITES:   ML_ADM::beta1rhs
+  WRITES:   ML_ADM::beta2rhs
+  WRITES:   ML_ADM::beta3rhs
+  WRITES:   ML_ADM::g11rhs
+  WRITES:   ML_ADM::g12rhs
+  WRITES:   ML_ADM::g13rhs
+  WRITES:   ML_ADM::g22rhs
+  WRITES:   ML_ADM::g23rhs
+  WRITES:   ML_ADM::g33rhs
+  WRITES:   ML_ADM::K11rhs
+  WRITES:   ML_ADM::K12rhs
+  WRITES:   ML_ADM::K13rhs
+  WRITES:   ML_ADM::K22rhs
+  WRITES:   ML_ADM::K23rhs
+  WRITES:   ML_ADM::K33rhs
 } "ML_ADM_RHS"
 
 schedule ML_ADM_RHS AT analysis
@@ -177,14 +237,38 @@ schedule ML_ADM_RHS AT analysis
   SYNC: ML_lapserhs
   SYNC: ML_metricrhs
   SYNC: ML_shiftrhs
-  READS:    ML_ADM::ML_curv
-  READS:    ML_ADM::ML_lapse
-  READS:    ML_ADM::ML_metric
-  READS:    ML_ADM::ML_shift
-  WRITES:   ML_ADM::ML_curvrhs
-  WRITES:   ML_ADM::ML_lapserhs
-  WRITES:   ML_ADM::ML_metricrhs
-  WRITES:   ML_ADM::ML_shiftrhs
+  READS:    ML_ADM::alpha
+  READS:    ML_ADM::beta1
+  READS:    ML_ADM::beta2
+  READS:    ML_ADM::beta3
+  READS:    ML_ADM::g11
+  READS:    ML_ADM::g12
+  READS:    ML_ADM::g13
+  READS:    ML_ADM::g22
+  READS:    ML_ADM::g23
+  READS:    ML_ADM::g33
+  READS:    ML_ADM::K11
+  READS:    ML_ADM::K12
+  READS:    ML_ADM::K13
+  READS:    ML_ADM::K22
+  READS:    ML_ADM::K23
+  READS:    ML_ADM::K33
+  WRITES:   ML_ADM::alpharhs
+  WRITES:   ML_ADM::beta1rhs
+  WRITES:   ML_ADM::beta2rhs
+  WRITES:   ML_ADM::beta3rhs
+  WRITES:   ML_ADM::g11rhs
+  WRITES:   ML_ADM::g12rhs
+  WRITES:   ML_ADM::g13rhs
+  WRITES:   ML_ADM::g22rhs
+  WRITES:   ML_ADM::g23rhs
+  WRITES:   ML_ADM::g33rhs
+  WRITES:   ML_ADM::K11rhs
+  WRITES:   ML_ADM::K12rhs
+  WRITES:   ML_ADM::K13rhs
+  WRITES:   ML_ADM::K22rhs
+  WRITES:   ML_ADM::K23rhs
+  WRITES:   ML_ADM::K33rhs
 } "ML_ADM_RHS"
 
 
@@ -193,26 +277,64 @@ if (CCTK_EQUALS(my_boundary_condition, "Minkowski"))
   schedule ML_ADM_boundary IN MoL_PostStep
   {
     LANG: C
-    WRITES:   ML_ADM::ML_curv
-    WRITES:   ML_ADM::ML_lapse
-    WRITES:   ML_ADM::ML_metric
-    WRITES:   ML_ADM::ML_shift
+    WRITES:   ML_ADM::alpha
+    WRITES:   ML_ADM::beta1
+    WRITES:   ML_ADM::beta2
+    WRITES:   ML_ADM::beta3
+    WRITES:   ML_ADM::g11
+    WRITES:   ML_ADM::g12
+    WRITES:   ML_ADM::g13
+    WRITES:   ML_ADM::g22
+    WRITES:   ML_ADM::g23
+    WRITES:   ML_ADM::g33
+    WRITES:   ML_ADM::K11
+    WRITES:   ML_ADM::K12
+    WRITES:   ML_ADM::K13
+    WRITES:   ML_ADM::K22
+    WRITES:   ML_ADM::K23
+    WRITES:   ML_ADM::K33
   } "ML_ADM_boundary"
 }
 
 schedule ML_ADM_convertToADMBase IN MoL_PostStep AFTER ML_ADM_ApplyBCs
 {
   LANG: C
-  READS:    ML_ADM::ML_curv
-  READS:    ML_ADM::ML_lapse
-  READS:    ML_ADM::ML_metric
-  READS:    ML_ADM::ML_shift
-  WRITES:   ADMBase::curv
-  WRITES:   ADMBase::dtlapse
-  WRITES:   ADMBase::dtshift
-  WRITES:   ADMBase::lapse
-  WRITES:   ADMBase::metric
-  WRITES:   ADMBase::shift
+  READS:    ML_ADM::alpha
+  READS:    ML_ADM::beta1
+  READS:    ML_ADM::beta2
+  READS:    ML_ADM::beta3
+  READS:    ML_ADM::g11
+  READS:    ML_ADM::g12
+  READS:    ML_ADM::g13
+  READS:    ML_ADM::g22
+  READS:    ML_ADM::g23
+  READS:    ML_ADM::g33
+  READS:    ML_ADM::K11
+  READS:    ML_ADM::K12
+  READS:    ML_ADM::K13
+  READS:    ML_ADM::K22
+  READS:    ML_ADM::K23
+  READS:    ML_ADM::K33
+  WRITES:   ADMBase::alp
+  WRITES:   ADMBase::betax
+  WRITES:   ADMBase::betay
+  WRITES:   ADMBase::betaz
+  WRITES:   ADMBase::dtalp
+  WRITES:   ADMBase::dtbetax
+  WRITES:   ADMBase::dtbetay
+  WRITES:   ADMBase::dtbetaz
+  WRITES:   ADMBase::gxx
+  WRITES:   ADMBase::gxy
+  WRITES:   ADMBase::gxz
+  WRITES:   ADMBase::gyy
+  WRITES:   ADMBase::gyz
+  WRITES:   ADMBase::gzz
+  WRITES:   ADMBase::kxx
+  WRITES:   ADMBase::kxy
+  WRITES:   ADMBase::kxz
+  WRITES:   ADMBase::kyy
+  WRITES:   ADMBase::kyz
+  WRITES:   ADMBase::kzz
 } "ML_ADM_convertToADMBase"
 
 schedule ML_ADM_constraints AT analysis
@@ -222,17 +344,31 @@ schedule ML_ADM_constraints AT analysis
   SYNC: ML_mom
   TRIGGERS: ML_Ham
   TRIGGERS: ML_mom
-  READS:    ML_ADM::ML_curv
-  READS:    ML_ADM::ML_metric
-  WRITES:   ML_ADM::ML_Ham
-  WRITES:   ML_ADM::ML_mom
+  READS:    ML_ADM::g11
+  READS:    ML_ADM::g12
+  READS:    ML_ADM::g13
+  READS:    ML_ADM::g22
+  READS:    ML_ADM::g23
+  READS:    ML_ADM::g33
+  READS:    ML_ADM::K11
+  READS:    ML_ADM::K12
+  READS:    ML_ADM::K13
+  READS:    ML_ADM::K22
+  READS:    ML_ADM::K23
+  READS:    ML_ADM::K33
+  WRITES:   ML_ADM::H
+  WRITES:   ML_ADM::M1
+  WRITES:   ML_ADM::M2
+  WRITES:   ML_ADM::M3
 } "ML_ADM_constraints"
 
 schedule ML_ADM_constraints_boundary AT analysis AFTER ML_ADM_constraints
 {
   LANG: C
-  WRITES:   ML_ADM::ML_Ham
-  WRITES:   ML_ADM::ML_mom
+  WRITES:   ML_ADM::H
+  WRITES:   ML_ADM::M1
+  WRITES:   ML_ADM::M2
+  WRITES:   ML_ADM::M3
 } "ML_ADM_constraints_boundary"
 
 schedule ML_ADM_SelectBoundConds in MoL_PostStep
diff --git a/ML_ADMConstraints/param.ccl b/ML_ADMConstraints/param.ccl
index 76915f6..566dd14 100644
--- a/ML_ADMConstraints/param.ccl
+++ b/ML_ADMConstraints/param.ccl
@@ -3,6 +3,9 @@
 
 shares: GenericFD
 
+USES CCTK_STRING jacobian_group
+USES CCTK_STRING jacobian_derivative_group
+USES CCTK_INT jacobian_identity_map
 
 
 shares: MethodOfLines
diff --git a/ML_ADMConstraints/schedule.ccl b/ML_ADMConstraints/schedule.ccl
index 095a226..d0c358e 100644
--- a/ML_ADMConstraints/schedule.ccl
+++ b/ML_ADMConstraints/schedule.ccl
@@ -47,15 +47,36 @@ schedule group ML_ADMConstraints_group in MoL_PseudoEvolution after MoL_PostStep
 schedule ML_ADMConstraints in ML_ADMConstraints_group
 {
   LANG: C
-  READS:    ADMBase::curv
-  READS:    ADMBase::lapse
-  READS:    ADMBase::metric
-  READS:    ADMBase::shift
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_ADMConstraints::ML_Ham
-  WRITES:   ML_ADMConstraints::ML_mom
+  READS:    ADMBase::alp
+  READS:    ADMBase::betax
+  READS:    ADMBase::betay
+  READS:    ADMBase::betaz
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ADMBase::gxx
+  READS:    ADMBase::gxy
+  READS:    ADMBase::gxz
+  READS:    ADMBase::gyy
+  READS:    ADMBase::gyz
+  READS:    ADMBase::gzz
+  READS:    ADMBase::kxx
+  READS:    ADMBase::kxy
+  READS:    ADMBase::kxz
+  READS:    ADMBase::kyy
+  READS:    ADMBase::kyz
+  READS:    ADMBase::kzz
+  WRITES:   ML_ADMConstraints::H
+  WRITES:   ML_ADMConstraints::M1
+  WRITES:   ML_ADMConstraints::M2
+  WRITES:   ML_ADMConstraints::M3
 } "ML_ADMConstraints"
 
 schedule ML_ADMConstraints_SelectBCs in ML_ADMConstraints_bc_group
diff --git a/ML_ADMConstraints/src/ML_ADMConstraints.cc b/ML_ADMConstraints/src/ML_ADMConstraints.cc
index 4c59931..1a89aa7 100644
--- a/ML_ADMConstraints/src/ML_ADMConstraints.cc
+++ b/ML_ADMConstraints/src/ML_ADMConstraints.cc
@@ -80,6 +80,51 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
   CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy));
   CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz));
   
+  /* Jacobian variable pointers */
+  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
+                       && strlen(jacobian_group) > 0;
+  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
+  {
+    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
+  }
+  
+  CCTK_REAL const *restrict jacobian_ptrs[9];
+  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
+                                                9, jacobian_ptrs);
+  
+  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
+  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
+  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
+  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
+  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
+  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
+  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
+  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
+  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
+  
+  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
+  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
+                                                18, jacobian_derivative_ptrs);
+  
+  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
+  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
+  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
+  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
+  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
+  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
+  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
+  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
+  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
+  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
+  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
+  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
+  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
+  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
+  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
+  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
+  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
+  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
+  
   /* Assign local copies of arrays functions */
   
   
@@ -144,18 +189,56 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
       eTzzL = ToReal(0.0);
     }
     
+    CCTK_REAL dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
+    
+    if (use_jacobian)
+    {
+      dJ111L = dJ111[index];
+      dJ112L = dJ112[index];
+      dJ113L = dJ113[index];
+      dJ122L = dJ122[index];
+      dJ123L = dJ123[index];
+      dJ133L = dJ133[index];
+      dJ211L = dJ211[index];
+      dJ212L = dJ212[index];
+      dJ213L = dJ213[index];
+      dJ222L = dJ222[index];
+      dJ223L = dJ223[index];
+      dJ233L = dJ233[index];
+      dJ311L = dJ311[index];
+      dJ312L = dJ312[index];
+      dJ313L = dJ313[index];
+      dJ322L = dJ322[index];
+      dJ323L = dJ323[index];
+      dJ333L = dJ333[index];
+      J11L = J11[index];
+      J12L = J12[index];
+      J13L = J13[index];
+      J21L = J21[index];
+      J22L = J22[index];
+      J23L = J23[index];
+      J31L = J31[index];
+      J32L = J32[index];
+      J33L = J33[index];
+    }
+    
     /* Include user supplied include files */
     
     /* Precompute derivatives */
     CCTK_REAL const PDstandardNth1gxx = PDstandardNth1(&gxx[index]);
     CCTK_REAL const PDstandardNth2gxx = PDstandardNth2(&gxx[index]);
     CCTK_REAL const PDstandardNth3gxx = PDstandardNth3(&gxx[index]);
+    CCTK_REAL const PDstandardNth11gxx = PDstandardNth11(&gxx[index]);
     CCTK_REAL const PDstandardNth22gxx = PDstandardNth22(&gxx[index]);
     CCTK_REAL const PDstandardNth33gxx = PDstandardNth33(&gxx[index]);
+    CCTK_REAL const PDstandardNth12gxx = PDstandardNth12(&gxx[index]);
+    CCTK_REAL const PDstandardNth13gxx = PDstandardNth13(&gxx[index]);
     CCTK_REAL const PDstandardNth23gxx = PDstandardNth23(&gxx[index]);
     CCTK_REAL const PDstandardNth1gxy = PDstandardNth1(&gxy[index]);
     CCTK_REAL const PDstandardNth2gxy = PDstandardNth2(&gxy[index]);
     CCTK_REAL const PDstandardNth3gxy = PDstandardNth3(&gxy[index]);
+    CCTK_REAL const PDstandardNth11gxy = PDstandardNth11(&gxy[index]);
+    CCTK_REAL const PDstandardNth22gxy = PDstandardNth22(&gxy[index]);
     CCTK_REAL const PDstandardNth33gxy = PDstandardNth33(&gxy[index]);
     CCTK_REAL const PDstandardNth12gxy = PDstandardNth12(&gxy[index]);
     CCTK_REAL const PDstandardNth13gxy = PDstandardNth13(&gxy[index]);
@@ -163,7 +246,9 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
     CCTK_REAL const PDstandardNth1gxz = PDstandardNth1(&gxz[index]);
     CCTK_REAL const PDstandardNth2gxz = PDstandardNth2(&gxz[index]);
     CCTK_REAL const PDstandardNth3gxz = PDstandardNth3(&gxz[index]);
+    CCTK_REAL const PDstandardNth11gxz = PDstandardNth11(&gxz[index]);
     CCTK_REAL const PDstandardNth22gxz = PDstandardNth22(&gxz[index]);
+    CCTK_REAL const PDstandardNth33gxz = PDstandardNth33(&gxz[index]);
     CCTK_REAL const PDstandardNth12gxz = PDstandardNth12(&gxz[index]);
     CCTK_REAL const PDstandardNth13gxz = PDstandardNth13(&gxz[index]);
     CCTK_REAL const PDstandardNth23gxz = PDstandardNth23(&gxz[index]);
@@ -171,12 +256,17 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
     CCTK_REAL const PDstandardNth2gyy = PDstandardNth2(&gyy[index]);
     CCTK_REAL const PDstandardNth3gyy = PDstandardNth3(&gyy[index]);
     CCTK_REAL const PDstandardNth11gyy = PDstandardNth11(&gyy[index]);
+    CCTK_REAL const PDstandardNth22gyy = PDstandardNth22(&gyy[index]);
     CCTK_REAL const PDstandardNth33gyy = PDstandardNth33(&gyy[index]);
+    CCTK_REAL const PDstandardNth12gyy = PDstandardNth12(&gyy[index]);
     CCTK_REAL const PDstandardNth13gyy = PDstandardNth13(&gyy[index]);
+    CCTK_REAL const PDstandardNth23gyy = PDstandardNth23(&gyy[index]);
     CCTK_REAL const PDstandardNth1gyz = PDstandardNth1(&gyz[index]);
     CCTK_REAL const PDstandardNth2gyz = PDstandardNth2(&gyz[index]);
     CCTK_REAL const PDstandardNth3gyz = PDstandardNth3(&gyz[index]);
     CCTK_REAL const PDstandardNth11gyz = PDstandardNth11(&gyz[index]);
+    CCTK_REAL const PDstandardNth22gyz = PDstandardNth22(&gyz[index]);
+    CCTK_REAL const PDstandardNth33gyz = PDstandardNth33(&gyz[index]);
     CCTK_REAL const PDstandardNth12gyz = PDstandardNth12(&gyz[index]);
     CCTK_REAL const PDstandardNth13gyz = PDstandardNth13(&gyz[index]);
     CCTK_REAL const PDstandardNth23gyz = PDstandardNth23(&gyz[index]);
@@ -185,7 +275,11 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
     CCTK_REAL const PDstandardNth3gzz = PDstandardNth3(&gzz[index]);
     CCTK_REAL const PDstandardNth11gzz = PDstandardNth11(&gzz[index]);
     CCTK_REAL const PDstandardNth22gzz = PDstandardNth22(&gzz[index]);
+    CCTK_REAL const PDstandardNth33gzz = PDstandardNth33(&gzz[index]);
     CCTK_REAL const PDstandardNth12gzz = PDstandardNth12(&gzz[index]);
+    CCTK_REAL const PDstandardNth13gzz = PDstandardNth13(&gzz[index]);
+    CCTK_REAL const PDstandardNth23gzz = PDstandardNth23(&gzz[index]);
+    CCTK_REAL const PDstandardNth1kxx = PDstandardNth1(&kxx[index]);
     CCTK_REAL const PDstandardNth2kxx = PDstandardNth2(&kxx[index]);
     CCTK_REAL const PDstandardNth3kxx = PDstandardNth3(&kxx[index]);
     CCTK_REAL const PDstandardNth1kxy = PDstandardNth1(&kxy[index]);
@@ -195,14 +289,697 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
     CCTK_REAL const PDstandardNth2kxz = PDstandardNth2(&kxz[index]);
     CCTK_REAL const PDstandardNth3kxz = PDstandardNth3(&kxz[index]);
     CCTK_REAL const PDstandardNth1kyy = PDstandardNth1(&kyy[index]);
+    CCTK_REAL const PDstandardNth2kyy = PDstandardNth2(&kyy[index]);
     CCTK_REAL const PDstandardNth3kyy = PDstandardNth3(&kyy[index]);
     CCTK_REAL const PDstandardNth1kyz = PDstandardNth1(&kyz[index]);
     CCTK_REAL const PDstandardNth2kyz = PDstandardNth2(&kyz[index]);
     CCTK_REAL const PDstandardNth3kyz = PDstandardNth3(&kyz[index]);
     CCTK_REAL const PDstandardNth1kzz = PDstandardNth1(&kzz[index]);
     CCTK_REAL const PDstandardNth2kzz = PDstandardNth2(&kzz[index]);
+    CCTK_REAL const PDstandardNth3kzz = PDstandardNth3(&kzz[index]);
     
     /* Calculate temporaries and grid functions */
+    CCTK_REAL JacPDstandardNth11gyy;
+    CCTK_REAL JacPDstandardNth11gyz;
+    CCTK_REAL JacPDstandardNth11gzz;
+    CCTK_REAL JacPDstandardNth12gxx;
+    CCTK_REAL JacPDstandardNth12gxy;
+    CCTK_REAL JacPDstandardNth12gxz;
+    CCTK_REAL JacPDstandardNth12gyy;
+    CCTK_REAL JacPDstandardNth12gyz;
+    CCTK_REAL JacPDstandardNth12gzz;
+    CCTK_REAL JacPDstandardNth13gxx;
+    CCTK_REAL JacPDstandardNth13gxy;
+    CCTK_REAL JacPDstandardNth13gxz;
+    CCTK_REAL JacPDstandardNth13gyy;
+    CCTK_REAL JacPDstandardNth13gyz;
+    CCTK_REAL JacPDstandardNth13gzz;
+    CCTK_REAL JacPDstandardNth1gxx;
+    CCTK_REAL JacPDstandardNth1gxy;
+    CCTK_REAL JacPDstandardNth1gxz;
+    CCTK_REAL JacPDstandardNth1gyy;
+    CCTK_REAL JacPDstandardNth1gyz;
+    CCTK_REAL JacPDstandardNth1gzz;
+    CCTK_REAL JacPDstandardNth1kxy;
+    CCTK_REAL JacPDstandardNth1kxz;
+    CCTK_REAL JacPDstandardNth1kyy;
+    CCTK_REAL JacPDstandardNth1kyz;
+    CCTK_REAL JacPDstandardNth1kzz;
+    CCTK_REAL JacPDstandardNth21gxx;
+    CCTK_REAL JacPDstandardNth21gxy;
+    CCTK_REAL JacPDstandardNth21gxz;
+    CCTK_REAL JacPDstandardNth21gyy;
+    CCTK_REAL JacPDstandardNth21gyz;
+    CCTK_REAL JacPDstandardNth21gzz;
+    CCTK_REAL JacPDstandardNth22gxx;
+    CCTK_REAL JacPDstandardNth22gxz;
+    CCTK_REAL JacPDstandardNth22gzz;
+    CCTK_REAL JacPDstandardNth23gxx;
+    CCTK_REAL JacPDstandardNth23gxy;
+    CCTK_REAL JacPDstandardNth23gxz;
+    CCTK_REAL JacPDstandardNth23gyy;
+    CCTK_REAL JacPDstandardNth23gyz;
+    CCTK_REAL JacPDstandardNth23gzz;
+    CCTK_REAL JacPDstandardNth2gxx;
+    CCTK_REAL JacPDstandardNth2gxy;
+    CCTK_REAL JacPDstandardNth2gxz;
+    CCTK_REAL JacPDstandardNth2gyy;
+    CCTK_REAL JacPDstandardNth2gyz;
+    CCTK_REAL JacPDstandardNth2gzz;
+    CCTK_REAL JacPDstandardNth2kxx;
+    CCTK_REAL JacPDstandardNth2kxy;
+    CCTK_REAL JacPDstandardNth2kxz;
+    CCTK_REAL JacPDstandardNth2kyz;
+    CCTK_REAL JacPDstandardNth2kzz;
+    CCTK_REAL JacPDstandardNth31gxx;
+    CCTK_REAL JacPDstandardNth31gxy;
+    CCTK_REAL JacPDstandardNth31gxz;
+    CCTK_REAL JacPDstandardNth31gyy;
+    CCTK_REAL JacPDstandardNth31gyz;
+    CCTK_REAL JacPDstandardNth31gzz;
+    CCTK_REAL JacPDstandardNth32gxx;
+    CCTK_REAL JacPDstandardNth32gxy;
+    CCTK_REAL JacPDstandardNth32gxz;
+    CCTK_REAL JacPDstandardNth32gyy;
+    CCTK_REAL JacPDstandardNth32gyz;
+    CCTK_REAL JacPDstandardNth32gzz;
+    CCTK_REAL JacPDstandardNth33gxx;
+    CCTK_REAL JacPDstandardNth33gxy;
+    CCTK_REAL JacPDstandardNth33gyy;
+    CCTK_REAL JacPDstandardNth3gxx;
+    CCTK_REAL JacPDstandardNth3gxy;
+    CCTK_REAL JacPDstandardNth3gxz;
+    CCTK_REAL JacPDstandardNth3gyy;
+    CCTK_REAL JacPDstandardNth3gyz;
+    CCTK_REAL JacPDstandardNth3gzz;
+    CCTK_REAL JacPDstandardNth3kxx;
+    CCTK_REAL JacPDstandardNth3kxy;
+    CCTK_REAL JacPDstandardNth3kxz;
+    CCTK_REAL JacPDstandardNth3kyy;
+    CCTK_REAL JacPDstandardNth3kyz;
+    
+    if (use_jacobian)
+    {
+      JacPDstandardNth1gxx = J11L*PDstandardNth1gxx + 
+        J21L*PDstandardNth2gxx + J31L*PDstandardNth3gxx;
+      
+      JacPDstandardNth1gxy = J11L*PDstandardNth1gxy + 
+        J21L*PDstandardNth2gxy + J31L*PDstandardNth3gxy;
+      
+      JacPDstandardNth1gxz = J11L*PDstandardNth1gxz + 
+        J21L*PDstandardNth2gxz + J31L*PDstandardNth3gxz;
+      
+      JacPDstandardNth1gyy = J11L*PDstandardNth1gyy + 
+        J21L*PDstandardNth2gyy + J31L*PDstandardNth3gyy;
+      
+      JacPDstandardNth1gyz = J11L*PDstandardNth1gyz + 
+        J21L*PDstandardNth2gyz + J31L*PDstandardNth3gyz;
+      
+      JacPDstandardNth1gzz = J11L*PDstandardNth1gzz + 
+        J21L*PDstandardNth2gzz + J31L*PDstandardNth3gzz;
+      
+      JacPDstandardNth1kxy = J11L*PDstandardNth1kxy + 
+        J21L*PDstandardNth2kxy + J31L*PDstandardNth3kxy;
+      
+      JacPDstandardNth1kxz = J11L*PDstandardNth1kxz + 
+        J21L*PDstandardNth2kxz + J31L*PDstandardNth3kxz;
+      
+      JacPDstandardNth1kyy = J11L*PDstandardNth1kyy + 
+        J21L*PDstandardNth2kyy + J31L*PDstandardNth3kyy;
+      
+      JacPDstandardNth1kyz = J11L*PDstandardNth1kyz + 
+        J21L*PDstandardNth2kyz + J31L*PDstandardNth3kyz;
+      
+      JacPDstandardNth1kzz = J11L*PDstandardNth1kzz + 
+        J21L*PDstandardNth2kzz + J31L*PDstandardNth3kzz;
+      
+      JacPDstandardNth2gxx = J12L*PDstandardNth1gxx + 
+        J22L*PDstandardNth2gxx + J32L*PDstandardNth3gxx;
+      
+      JacPDstandardNth2gxy = J12L*PDstandardNth1gxy + 
+        J22L*PDstandardNth2gxy + J32L*PDstandardNth3gxy;
+      
+      JacPDstandardNth2gxz = J12L*PDstandardNth1gxz + 
+        J22L*PDstandardNth2gxz + J32L*PDstandardNth3gxz;
+      
+      JacPDstandardNth2gyy = J12L*PDstandardNth1gyy + 
+        J22L*PDstandardNth2gyy + J32L*PDstandardNth3gyy;
+      
+      JacPDstandardNth2gyz = J12L*PDstandardNth1gyz + 
+        J22L*PDstandardNth2gyz + J32L*PDstandardNth3gyz;
+      
+      JacPDstandardNth2gzz = J12L*PDstandardNth1gzz + 
+        J22L*PDstandardNth2gzz + J32L*PDstandardNth3gzz;
+      
+      JacPDstandardNth2kxx = J12L*PDstandardNth1kxx + 
+        J22L*PDstandardNth2kxx + J32L*PDstandardNth3kxx;
+      
+      JacPDstandardNth2kxy = J12L*PDstandardNth1kxy + 
+        J22L*PDstandardNth2kxy + J32L*PDstandardNth3kxy;
+      
+      JacPDstandardNth2kxz = J12L*PDstandardNth1kxz + 
+        J22L*PDstandardNth2kxz + J32L*PDstandardNth3kxz;
+      
+      JacPDstandardNth2kyz = J12L*PDstandardNth1kyz + 
+        J22L*PDstandardNth2kyz + J32L*PDstandardNth3kyz;
+      
+      JacPDstandardNth2kzz = J12L*PDstandardNth1kzz + 
+        J22L*PDstandardNth2kzz + J32L*PDstandardNth3kzz;
+      
+      JacPDstandardNth3gxx = J13L*PDstandardNth1gxx + 
+        J23L*PDstandardNth2gxx + J33L*PDstandardNth3gxx;
+      
+      JacPDstandardNth3gxy = J13L*PDstandardNth1gxy + 
+        J23L*PDstandardNth2gxy + J33L*PDstandardNth3gxy;
+      
+      JacPDstandardNth3gxz = J13L*PDstandardNth1gxz + 
+        J23L*PDstandardNth2gxz + J33L*PDstandardNth3gxz;
+      
+      JacPDstandardNth3gyy = J13L*PDstandardNth1gyy + 
+        J23L*PDstandardNth2gyy + J33L*PDstandardNth3gyy;
+      
+      JacPDstandardNth3gyz = J13L*PDstandardNth1gyz + 
+        J23L*PDstandardNth2gyz + J33L*PDstandardNth3gyz;
+      
+      JacPDstandardNth3gzz = J13L*PDstandardNth1gzz + 
+        J23L*PDstandardNth2gzz + J33L*PDstandardNth3gzz;
+      
+      JacPDstandardNth3kxx = J13L*PDstandardNth1kxx + 
+        J23L*PDstandardNth2kxx + J33L*PDstandardNth3kxx;
+      
+      JacPDstandardNth3kxy = J13L*PDstandardNth1kxy + 
+        J23L*PDstandardNth2kxy + J33L*PDstandardNth3kxy;
+      
+      JacPDstandardNth3kxz = J13L*PDstandardNth1kxz + 
+        J23L*PDstandardNth2kxz + J33L*PDstandardNth3kxz;
+      
+      JacPDstandardNth3kyy = J13L*PDstandardNth1kyy + 
+        J23L*PDstandardNth2kyy + J33L*PDstandardNth3kyy;
+      
+      JacPDstandardNth3kyz = J13L*PDstandardNth1kyz + 
+        J23L*PDstandardNth2kyz + J33L*PDstandardNth3kyz;
+      
+      JacPDstandardNth11gyy = dJ111L*PDstandardNth1gyy + 
+        2*(J11L*(J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
+        J21L*J31L*PDstandardNth23gyy) + dJ211L*PDstandardNth2gyy + 
+        dJ311L*PDstandardNth3gyy + PDstandardNth11gyy*SQR(J11L) + 
+        PDstandardNth22gyy*SQR(J21L) + PDstandardNth33gyy*SQR(J31L);
+      
+      JacPDstandardNth11gyz = dJ111L*PDstandardNth1gyz + 
+        2*(J11L*(J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
+        J21L*J31L*PDstandardNth23gyz) + dJ211L*PDstandardNth2gyz + 
+        dJ311L*PDstandardNth3gyz + PDstandardNth11gyz*SQR(J11L) + 
+        PDstandardNth22gyz*SQR(J21L) + PDstandardNth33gyz*SQR(J31L);
+      
+      JacPDstandardNth11gzz = dJ111L*PDstandardNth1gzz + 
+        2*(J11L*(J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
+        J21L*J31L*PDstandardNth23gzz) + dJ211L*PDstandardNth2gzz + 
+        dJ311L*PDstandardNth3gzz + PDstandardNth11gzz*SQR(J11L) + 
+        PDstandardNth22gzz*SQR(J21L) + PDstandardNth33gzz*SQR(J31L);
+      
+      JacPDstandardNth22gxx = dJ122L*PDstandardNth1gxx + 
+        2*(J12L*(J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
+        J22L*J32L*PDstandardNth23gxx) + dJ222L*PDstandardNth2gxx + 
+        dJ322L*PDstandardNth3gxx + PDstandardNth11gxx*SQR(J12L) + 
+        PDstandardNth22gxx*SQR(J22L) + PDstandardNth33gxx*SQR(J32L);
+      
+      JacPDstandardNth22gxz = dJ122L*PDstandardNth1gxz + 
+        2*(J12L*(J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
+        J22L*J32L*PDstandardNth23gxz) + dJ222L*PDstandardNth2gxz + 
+        dJ322L*PDstandardNth3gxz + PDstandardNth11gxz*SQR(J12L) + 
+        PDstandardNth22gxz*SQR(J22L) + PDstandardNth33gxz*SQR(J32L);
+      
+      JacPDstandardNth22gzz = dJ122L*PDstandardNth1gzz + 
+        2*(J12L*(J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
+        J22L*J32L*PDstandardNth23gzz) + dJ222L*PDstandardNth2gzz + 
+        dJ322L*PDstandardNth3gzz + PDstandardNth11gzz*SQR(J12L) + 
+        PDstandardNth22gzz*SQR(J22L) + PDstandardNth33gzz*SQR(J32L);
+      
+      JacPDstandardNth33gxx = dJ133L*PDstandardNth1gxx + 
+        2*(J13L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
+        J23L*J33L*PDstandardNth23gxx) + dJ233L*PDstandardNth2gxx + 
+        dJ333L*PDstandardNth3gxx + PDstandardNth11gxx*SQR(J13L) + 
+        PDstandardNth22gxx*SQR(J23L) + PDstandardNth33gxx*SQR(J33L);
+      
+      JacPDstandardNth33gxy = dJ133L*PDstandardNth1gxy + 
+        2*(J13L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
+        J23L*J33L*PDstandardNth23gxy) + dJ233L*PDstandardNth2gxy + 
+        dJ333L*PDstandardNth3gxy + PDstandardNth11gxy*SQR(J13L) + 
+        PDstandardNth22gxy*SQR(J23L) + PDstandardNth33gxy*SQR(J33L);
+      
+      JacPDstandardNth33gyy = dJ133L*PDstandardNth1gyy + 
+        2*(J13L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
+        J23L*J33L*PDstandardNth23gyy) + dJ233L*PDstandardNth2gyy + 
+        dJ333L*PDstandardNth3gyy + PDstandardNth11gyy*SQR(J13L) + 
+        PDstandardNth22gyy*SQR(J23L) + PDstandardNth33gyy*SQR(J33L);
+      
+      JacPDstandardNth12gxx = J12L*(J11L*PDstandardNth11gxx + 
+        J21L*PDstandardNth12gxx + J31L*PDstandardNth13gxx) + 
+        J11L*(J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
+        dJ112L*PDstandardNth1gxx + J22L*(J21L*PDstandardNth22gxx + 
+        J31L*PDstandardNth23gxx) + dJ212L*PDstandardNth2gxx + 
+        J32L*(J21L*PDstandardNth23gxx + J31L*PDstandardNth33gxx) + 
+        dJ312L*PDstandardNth3gxx;
+      
+      JacPDstandardNth12gxy = J12L*(J11L*PDstandardNth11gxy + 
+        J21L*PDstandardNth12gxy + J31L*PDstandardNth13gxy) + 
+        J11L*(J22L*PDstandardNth12gxy + J32L*PDstandardNth13gxy) + 
+        dJ112L*PDstandardNth1gxy + J22L*(J21L*PDstandardNth22gxy + 
+        J31L*PDstandardNth23gxy) + dJ212L*PDstandardNth2gxy + 
+        J32L*(J21L*PDstandardNth23gxy + J31L*PDstandardNth33gxy) + 
+        dJ312L*PDstandardNth3gxy;
+      
+      JacPDstandardNth12gxz = J12L*(J11L*PDstandardNth11gxz + 
+        J21L*PDstandardNth12gxz + J31L*PDstandardNth13gxz) + 
+        J11L*(J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
+        dJ112L*PDstandardNth1gxz + J22L*(J21L*PDstandardNth22gxz + 
+        J31L*PDstandardNth23gxz) + dJ212L*PDstandardNth2gxz + 
+        J32L*(J21L*PDstandardNth23gxz + J31L*PDstandardNth33gxz) + 
+        dJ312L*PDstandardNth3gxz;
+      
+      JacPDstandardNth12gyy = J12L*(J11L*PDstandardNth11gyy + 
+        J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
+        J11L*(J22L*PDstandardNth12gyy + J32L*PDstandardNth13gyy) + 
+        dJ112L*PDstandardNth1gyy + J22L*(J21L*PDstandardNth22gyy + 
+        J31L*PDstandardNth23gyy) + dJ212L*PDstandardNth2gyy + 
+        J32L*(J21L*PDstandardNth23gyy + J31L*PDstandardNth33gyy) + 
+        dJ312L*PDstandardNth3gyy;
+      
+      JacPDstandardNth12gyz = J12L*(J11L*PDstandardNth11gyz + 
+        J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
+        J11L*(J22L*PDstandardNth12gyz + J32L*PDstandardNth13gyz) + 
+        dJ112L*PDstandardNth1gyz + J22L*(J21L*PDstandardNth22gyz + 
+        J31L*PDstandardNth23gyz) + dJ212L*PDstandardNth2gyz + 
+        J32L*(J21L*PDstandardNth23gyz + J31L*PDstandardNth33gyz) + 
+        dJ312L*PDstandardNth3gyz;
+      
+      JacPDstandardNth12gzz = J12L*(J11L*PDstandardNth11gzz + 
+        J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
+        J11L*(J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
+        dJ112L*PDstandardNth1gzz + J22L*(J21L*PDstandardNth22gzz + 
+        J31L*PDstandardNth23gzz) + dJ212L*PDstandardNth2gzz + 
+        J32L*(J21L*PDstandardNth23gzz + J31L*PDstandardNth33gzz) + 
+        dJ312L*PDstandardNth3gzz;
+      
+      JacPDstandardNth13gxx = J13L*(J11L*PDstandardNth11gxx + 
+        J21L*PDstandardNth12gxx + J31L*PDstandardNth13gxx) + 
+        J11L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
+        dJ113L*PDstandardNth1gxx + J23L*(J21L*PDstandardNth22gxx + 
+        J31L*PDstandardNth23gxx) + dJ213L*PDstandardNth2gxx + 
+        J33L*(J21L*PDstandardNth23gxx + J31L*PDstandardNth33gxx) + 
+        dJ313L*PDstandardNth3gxx;
+      
+      JacPDstandardNth13gxy = J13L*(J11L*PDstandardNth11gxy + 
+        J21L*PDstandardNth12gxy + J31L*PDstandardNth13gxy) + 
+        J11L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
+        dJ113L*PDstandardNth1gxy + J23L*(J21L*PDstandardNth22gxy + 
+        J31L*PDstandardNth23gxy) + dJ213L*PDstandardNth2gxy + 
+        J33L*(J21L*PDstandardNth23gxy + J31L*PDstandardNth33gxy) + 
+        dJ313L*PDstandardNth3gxy;
+      
+      JacPDstandardNth13gxz = J13L*(J11L*PDstandardNth11gxz + 
+        J21L*PDstandardNth12gxz + J31L*PDstandardNth13gxz) + 
+        J11L*(J23L*PDstandardNth12gxz + J33L*PDstandardNth13gxz) + 
+        dJ113L*PDstandardNth1gxz + J23L*(J21L*PDstandardNth22gxz + 
+        J31L*PDstandardNth23gxz) + dJ213L*PDstandardNth2gxz + 
+        J33L*(J21L*PDstandardNth23gxz + J31L*PDstandardNth33gxz) + 
+        dJ313L*PDstandardNth3gxz;
+      
+      JacPDstandardNth13gyy = J13L*(J11L*PDstandardNth11gyy + 
+        J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
+        J11L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
+        dJ113L*PDstandardNth1gyy + J23L*(J21L*PDstandardNth22gyy + 
+        J31L*PDstandardNth23gyy) + dJ213L*PDstandardNth2gyy + 
+        J33L*(J21L*PDstandardNth23gyy + J31L*PDstandardNth33gyy) + 
+        dJ313L*PDstandardNth3gyy;
+      
+      JacPDstandardNth13gyz = J13L*(J11L*PDstandardNth11gyz + 
+        J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
+        J11L*(J23L*PDstandardNth12gyz + J33L*PDstandardNth13gyz) + 
+        dJ113L*PDstandardNth1gyz + J23L*(J21L*PDstandardNth22gyz + 
+        J31L*PDstandardNth23gyz) + dJ213L*PDstandardNth2gyz + 
+        J33L*(J21L*PDstandardNth23gyz + J31L*PDstandardNth33gyz) + 
+        dJ313L*PDstandardNth3gyz;
+      
+      JacPDstandardNth13gzz = J13L*(J11L*PDstandardNth11gzz + 
+        J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
+        J11L*(J23L*PDstandardNth12gzz + J33L*PDstandardNth13gzz) + 
+        dJ113L*PDstandardNth1gzz + J23L*(J21L*PDstandardNth22gzz + 
+        J31L*PDstandardNth23gzz) + dJ213L*PDstandardNth2gzz + 
+        J33L*(J21L*PDstandardNth23gzz + J31L*PDstandardNth33gzz) + 
+        dJ313L*PDstandardNth3gzz;
+      
+      JacPDstandardNth21gxx = J12L*(J11L*PDstandardNth11gxx + 
+        J21L*PDstandardNth12gxx + J31L*PDstandardNth13gxx) + 
+        J11L*(J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
+        dJ112L*PDstandardNth1gxx + J22L*(J21L*PDstandardNth22gxx + 
+        J31L*PDstandardNth23gxx) + dJ212L*PDstandardNth2gxx + 
+        J32L*(J21L*PDstandardNth23gxx + J31L*PDstandardNth33gxx) + 
+        dJ312L*PDstandardNth3gxx;
+      
+      JacPDstandardNth21gxy = J12L*(J11L*PDstandardNth11gxy + 
+        J21L*PDstandardNth12gxy + J31L*PDstandardNth13gxy) + 
+        J11L*(J22L*PDstandardNth12gxy + J32L*PDstandardNth13gxy) + 
+        dJ112L*PDstandardNth1gxy + J22L*(J21L*PDstandardNth22gxy + 
+        J31L*PDstandardNth23gxy) + dJ212L*PDstandardNth2gxy + 
+        J32L*(J21L*PDstandardNth23gxy + J31L*PDstandardNth33gxy) + 
+        dJ312L*PDstandardNth3gxy;
+      
+      JacPDstandardNth21gxz = J12L*(J11L*PDstandardNth11gxz + 
+        J21L*PDstandardNth12gxz + J31L*PDstandardNth13gxz) + 
+        J11L*(J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
+        dJ112L*PDstandardNth1gxz + J22L*(J21L*PDstandardNth22gxz + 
+        J31L*PDstandardNth23gxz) + dJ212L*PDstandardNth2gxz + 
+        J32L*(J21L*PDstandardNth23gxz + J31L*PDstandardNth33gxz) + 
+        dJ312L*PDstandardNth3gxz;
+      
+      JacPDstandardNth21gyy = J12L*(J11L*PDstandardNth11gyy + 
+        J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
+        J11L*(J22L*PDstandardNth12gyy + J32L*PDstandardNth13gyy) + 
+        dJ112L*PDstandardNth1gyy + J22L*(J21L*PDstandardNth22gyy + 
+        J31L*PDstandardNth23gyy) + dJ212L*PDstandardNth2gyy + 
+        J32L*(J21L*PDstandardNth23gyy + J31L*PDstandardNth33gyy) + 
+        dJ312L*PDstandardNth3gyy;
+      
+      JacPDstandardNth21gyz = J12L*(J11L*PDstandardNth11gyz + 
+        J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
+        J11L*(J22L*PDstandardNth12gyz + J32L*PDstandardNth13gyz) + 
+        dJ112L*PDstandardNth1gyz + J22L*(J21L*PDstandardNth22gyz + 
+        J31L*PDstandardNth23gyz) + dJ212L*PDstandardNth2gyz + 
+        J32L*(J21L*PDstandardNth23gyz + J31L*PDstandardNth33gyz) + 
+        dJ312L*PDstandardNth3gyz;
+      
+      JacPDstandardNth21gzz = J12L*(J11L*PDstandardNth11gzz + 
+        J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
+        J11L*(J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
+        dJ112L*PDstandardNth1gzz + J22L*(J21L*PDstandardNth22gzz + 
+        J31L*PDstandardNth23gzz) + dJ212L*PDstandardNth2gzz + 
+        J32L*(J21L*PDstandardNth23gzz + J31L*PDstandardNth33gzz) + 
+        dJ312L*PDstandardNth3gzz;
+      
+      JacPDstandardNth23gxx = J13L*(J12L*PDstandardNth11gxx + 
+        J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
+        J12L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
+        dJ123L*PDstandardNth1gxx + J23L*(J22L*PDstandardNth22gxx + 
+        J32L*PDstandardNth23gxx) + dJ223L*PDstandardNth2gxx + 
+        J33L*(J22L*PDstandardNth23gxx + J32L*PDstandardNth33gxx) + 
+        dJ323L*PDstandardNth3gxx;
+      
+      JacPDstandardNth23gxy = J13L*(J12L*PDstandardNth11gxy + 
+        J22L*PDstandardNth12gxy + J32L*PDstandardNth13gxy) + 
+        J12L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
+        dJ123L*PDstandardNth1gxy + J23L*(J22L*PDstandardNth22gxy + 
+        J32L*PDstandardNth23gxy) + dJ223L*PDstandardNth2gxy + 
+        J33L*(J22L*PDstandardNth23gxy + J32L*PDstandardNth33gxy) + 
+        dJ323L*PDstandardNth3gxy;
+      
+      JacPDstandardNth23gxz = J13L*(J12L*PDstandardNth11gxz + 
+        J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
+        J12L*(J23L*PDstandardNth12gxz + J33L*PDstandardNth13gxz) + 
+        dJ123L*PDstandardNth1gxz + J23L*(J22L*PDstandardNth22gxz + 
+        J32L*PDstandardNth23gxz) + dJ223L*PDstandardNth2gxz + 
+        J33L*(J22L*PDstandardNth23gxz + J32L*PDstandardNth33gxz) + 
+        dJ323L*PDstandardNth3gxz;
+      
+      JacPDstandardNth23gyy = J13L*(J12L*PDstandardNth11gyy + 
+        J22L*PDstandardNth12gyy + J32L*PDstandardNth13gyy) + 
+        J12L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
+        dJ123L*PDstandardNth1gyy + J23L*(J22L*PDstandardNth22gyy + 
+        J32L*PDstandardNth23gyy) + dJ223L*PDstandardNth2gyy + 
+        J33L*(J22L*PDstandardNth23gyy + J32L*PDstandardNth33gyy) + 
+        dJ323L*PDstandardNth3gyy;
+      
+      JacPDstandardNth23gyz = J13L*(J12L*PDstandardNth11gyz + 
+        J22L*PDstandardNth12gyz + J32L*PDstandardNth13gyz) + 
+        J12L*(J23L*PDstandardNth12gyz + J33L*PDstandardNth13gyz) + 
+        dJ123L*PDstandardNth1gyz + J23L*(J22L*PDstandardNth22gyz + 
+        J32L*PDstandardNth23gyz) + dJ223L*PDstandardNth2gyz + 
+        J33L*(J22L*PDstandardNth23gyz + J32L*PDstandardNth33gyz) + 
+        dJ323L*PDstandardNth3gyz;
+      
+      JacPDstandardNth23gzz = J13L*(J12L*PDstandardNth11gzz + 
+        J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
+        J12L*(J23L*PDstandardNth12gzz + J33L*PDstandardNth13gzz) + 
+        dJ123L*PDstandardNth1gzz + J23L*(J22L*PDstandardNth22gzz + 
+        J32L*PDstandardNth23gzz) + dJ223L*PDstandardNth2gzz + 
+        J33L*(J22L*PDstandardNth23gzz + J32L*PDstandardNth33gzz) + 
+        dJ323L*PDstandardNth3gzz;
+      
+      JacPDstandardNth31gxx = J13L*(J11L*PDstandardNth11gxx + 
+        J21L*PDstandardNth12gxx + J31L*PDstandardNth13gxx) + 
+        J11L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
+        dJ113L*PDstandardNth1gxx + J23L*(J21L*PDstandardNth22gxx + 
+        J31L*PDstandardNth23gxx) + dJ213L*PDstandardNth2gxx + 
+        J33L*(J21L*PDstandardNth23gxx + J31L*PDstandardNth33gxx) + 
+        dJ313L*PDstandardNth3gxx;
+      
+      JacPDstandardNth31gxy = J13L*(J11L*PDstandardNth11gxy + 
+        J21L*PDstandardNth12gxy + J31L*PDstandardNth13gxy) + 
+        J11L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
+        dJ113L*PDstandardNth1gxy + J23L*(J21L*PDstandardNth22gxy + 
+        J31L*PDstandardNth23gxy) + dJ213L*PDstandardNth2gxy + 
+        J33L*(J21L*PDstandardNth23gxy + J31L*PDstandardNth33gxy) + 
+        dJ313L*PDstandardNth3gxy;
+      
+      JacPDstandardNth31gxz = J13L*(J11L*PDstandardNth11gxz + 
+        J21L*PDstandardNth12gxz + J31L*PDstandardNth13gxz) + 
+        J11L*(J23L*PDstandardNth12gxz + J33L*PDstandardNth13gxz) + 
+        dJ113L*PDstandardNth1gxz + J23L*(J21L*PDstandardNth22gxz + 
+        J31L*PDstandardNth23gxz) + dJ213L*PDstandardNth2gxz + 
+        J33L*(J21L*PDstandardNth23gxz + J31L*PDstandardNth33gxz) + 
+        dJ313L*PDstandardNth3gxz;
+      
+      JacPDstandardNth31gyy = J13L*(J11L*PDstandardNth11gyy + 
+        J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
+        J11L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
+        dJ113L*PDstandardNth1gyy + J23L*(J21L*PDstandardNth22gyy + 
+        J31L*PDstandardNth23gyy) + dJ213L*PDstandardNth2gyy + 
+        J33L*(J21L*PDstandardNth23gyy + J31L*PDstandardNth33gyy) + 
+        dJ313L*PDstandardNth3gyy;
+      
+      JacPDstandardNth31gyz = J13L*(J11L*PDstandardNth11gyz + 
+        J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
+        J11L*(J23L*PDstandardNth12gyz + J33L*PDstandardNth13gyz) + 
+        dJ113L*PDstandardNth1gyz + J23L*(J21L*PDstandardNth22gyz + 
+        J31L*PDstandardNth23gyz) + dJ213L*PDstandardNth2gyz + 
+        J33L*(J21L*PDstandardNth23gyz + J31L*PDstandardNth33gyz) + 
+        dJ313L*PDstandardNth3gyz;
+      
+      JacPDstandardNth31gzz = J13L*(J11L*PDstandardNth11gzz + 
+        J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
+        J11L*(J23L*PDstandardNth12gzz + J33L*PDstandardNth13gzz) + 
+        dJ113L*PDstandardNth1gzz + J23L*(J21L*PDstandardNth22gzz + 
+        J31L*PDstandardNth23gzz) + dJ213L*PDstandardNth2gzz + 
+        J33L*(J21L*PDstandardNth23gzz + J31L*PDstandardNth33gzz) + 
+        dJ313L*PDstandardNth3gzz;
+      
+      JacPDstandardNth32gxx = J13L*(J12L*PDstandardNth11gxx + 
+        J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
+        J12L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
+        dJ123L*PDstandardNth1gxx + J23L*(J22L*PDstandardNth22gxx + 
+        J32L*PDstandardNth23gxx) + dJ223L*PDstandardNth2gxx + 
+        J33L*(J22L*PDstandardNth23gxx + J32L*PDstandardNth33gxx) + 
+        dJ323L*PDstandardNth3gxx;
+      
+      JacPDstandardNth32gxy = J13L*(J12L*PDstandardNth11gxy + 
+        J22L*PDstandardNth12gxy + J32L*PDstandardNth13gxy) + 
+        J12L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
+        dJ123L*PDstandardNth1gxy + J23L*(J22L*PDstandardNth22gxy + 
+        J32L*PDstandardNth23gxy) + dJ223L*PDstandardNth2gxy + 
+        J33L*(J22L*PDstandardNth23gxy + J32L*PDstandardNth33gxy) + 
+        dJ323L*PDstandardNth3gxy;
+      
+      JacPDstandardNth32gxz = J13L*(J12L*PDstandardNth11gxz + 
+        J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
+        J12L*(J23L*PDstandardNth12gxz + J33L*PDstandardNth13gxz) + 
+        dJ123L*PDstandardNth1gxz + J23L*(J22L*PDstandardNth22gxz + 
+        J32L*PDstandardNth23gxz) + dJ223L*PDstandardNth2gxz + 
+        J33L*(J22L*PDstandardNth23gxz + J32L*PDstandardNth33gxz) + 
+        dJ323L*PDstandardNth3gxz;
+      
+      JacPDstandardNth32gyy = J13L*(J12L*PDstandardNth11gyy + 
+        J22L*PDstandardNth12gyy + J32L*PDstandardNth13gyy) + 
+        J12L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
+        dJ123L*PDstandardNth1gyy + J23L*(J22L*PDstandardNth22gyy + 
+        J32L*PDstandardNth23gyy) + dJ223L*PDstandardNth2gyy + 
+        J33L*(J22L*PDstandardNth23gyy + J32L*PDstandardNth33gyy) + 
+        dJ323L*PDstandardNth3gyy;
+      
+      JacPDstandardNth32gyz = J13L*(J12L*PDstandardNth11gyz + 
+        J22L*PDstandardNth12gyz + J32L*PDstandardNth13gyz) + 
+        J12L*(J23L*PDstandardNth12gyz + J33L*PDstandardNth13gyz) + 
+        dJ123L*PDstandardNth1gyz + J23L*(J22L*PDstandardNth22gyz + 
+        J32L*PDstandardNth23gyz) + dJ223L*PDstandardNth2gyz + 
+        J33L*(J22L*PDstandardNth23gyz + J32L*PDstandardNth33gyz) + 
+        dJ323L*PDstandardNth3gyz;
+      
+      JacPDstandardNth32gzz = J13L*(J12L*PDstandardNth11gzz + 
+        J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
+        J12L*(J23L*PDstandardNth12gzz + J33L*PDstandardNth13gzz) + 
+        dJ123L*PDstandardNth1gzz + J23L*(J22L*PDstandardNth22gzz + 
+        J32L*PDstandardNth23gzz) + dJ223L*PDstandardNth2gzz + 
+        J33L*(J22L*PDstandardNth23gzz + J32L*PDstandardNth33gzz) + 
+        dJ323L*PDstandardNth3gzz;
+    }
+    else
+    {
+      JacPDstandardNth1gxx = PDstandardNth1gxx;
+      
+      JacPDstandardNth1gxy = PDstandardNth1gxy;
+      
+      JacPDstandardNth1gxz = PDstandardNth1gxz;
+      
+      JacPDstandardNth1gyy = PDstandardNth1gyy;
+      
+      JacPDstandardNth1gyz = PDstandardNth1gyz;
+      
+      JacPDstandardNth1gzz = PDstandardNth1gzz;
+      
+      JacPDstandardNth1kxy = PDstandardNth1kxy;
+      
+      JacPDstandardNth1kxz = PDstandardNth1kxz;
+      
+      JacPDstandardNth1kyy = PDstandardNth1kyy;
+      
+      JacPDstandardNth1kyz = PDstandardNth1kyz;
+      
+      JacPDstandardNth1kzz = PDstandardNth1kzz;
+      
+      JacPDstandardNth2gxx = PDstandardNth2gxx;
+      
+      JacPDstandardNth2gxy = PDstandardNth2gxy;
+      
+      JacPDstandardNth2gxz = PDstandardNth2gxz;
+      
+      JacPDstandardNth2gyy = PDstandardNth2gyy;
+      
+      JacPDstandardNth2gyz = PDstandardNth2gyz;
+      
+      JacPDstandardNth2gzz = PDstandardNth2gzz;
+      
+      JacPDstandardNth2kxx = PDstandardNth2kxx;
+      
+      JacPDstandardNth2kxy = PDstandardNth2kxy;
+      
+      JacPDstandardNth2kxz = PDstandardNth2kxz;
+      
+      JacPDstandardNth2kyz = PDstandardNth2kyz;
+      
+      JacPDstandardNth2kzz = PDstandardNth2kzz;
+      
+      JacPDstandardNth3gxx = PDstandardNth3gxx;
+      
+      JacPDstandardNth3gxy = PDstandardNth3gxy;
+      
+      JacPDstandardNth3gxz = PDstandardNth3gxz;
+      
+      JacPDstandardNth3gyy = PDstandardNth3gyy;
+      
+      JacPDstandardNth3gyz = PDstandardNth3gyz;
+      
+      JacPDstandardNth3gzz = PDstandardNth3gzz;
+      
+      JacPDstandardNth3kxx = PDstandardNth3kxx;
+      
+      JacPDstandardNth3kxy = PDstandardNth3kxy;
+      
+      JacPDstandardNth3kxz = PDstandardNth3kxz;
+      
+      JacPDstandardNth3kyy = PDstandardNth3kyy;
+      
+      JacPDstandardNth3kyz = PDstandardNth3kyz;
+      
+      JacPDstandardNth11gyy = PDstandardNth11gyy;
+      
+      JacPDstandardNth11gyz = PDstandardNth11gyz;
+      
+      JacPDstandardNth11gzz = PDstandardNth11gzz;
+      
+      JacPDstandardNth22gxx = PDstandardNth22gxx;
+      
+      JacPDstandardNth22gxz = PDstandardNth22gxz;
+      
+      JacPDstandardNth22gzz = PDstandardNth22gzz;
+      
+      JacPDstandardNth33gxx = PDstandardNth33gxx;
+      
+      JacPDstandardNth33gxy = PDstandardNth33gxy;
+      
+      JacPDstandardNth33gyy = PDstandardNth33gyy;
+      
+      JacPDstandardNth12gxx = PDstandardNth12gxx;
+      
+      JacPDstandardNth12gxy = PDstandardNth12gxy;
+      
+      JacPDstandardNth12gxz = PDstandardNth12gxz;
+      
+      JacPDstandardNth12gyy = PDstandardNth12gyy;
+      
+      JacPDstandardNth12gyz = PDstandardNth12gyz;
+      
+      JacPDstandardNth12gzz = PDstandardNth12gzz;
+      
+      JacPDstandardNth13gxx = PDstandardNth13gxx;
+      
+      JacPDstandardNth13gxy = PDstandardNth13gxy;
+      
+      JacPDstandardNth13gxz = PDstandardNth13gxz;
+      
+      JacPDstandardNth13gyy = PDstandardNth13gyy;
+      
+      JacPDstandardNth13gyz = PDstandardNth13gyz;
+      
+      JacPDstandardNth13gzz = PDstandardNth13gzz;
+      
+      JacPDstandardNth21gxx = PDstandardNth12gxx;
+      
+      JacPDstandardNth21gxy = PDstandardNth12gxy;
+      
+      JacPDstandardNth21gxz = PDstandardNth12gxz;
+      
+      JacPDstandardNth21gyy = PDstandardNth12gyy;
+      
+      JacPDstandardNth21gyz = PDstandardNth12gyz;
+      
+      JacPDstandardNth21gzz = PDstandardNth12gzz;
+      
+      JacPDstandardNth23gxx = PDstandardNth23gxx;
+      
+      JacPDstandardNth23gxy = PDstandardNth23gxy;
+      
+      JacPDstandardNth23gxz = PDstandardNth23gxz;
+      
+      JacPDstandardNth23gyy = PDstandardNth23gyy;
+      
+      JacPDstandardNth23gyz = PDstandardNth23gyz;
+      
+      JacPDstandardNth23gzz = PDstandardNth23gzz;
+      
+      JacPDstandardNth31gxx = PDstandardNth13gxx;
+      
+      JacPDstandardNth31gxy = PDstandardNth13gxy;
+      
+      JacPDstandardNth31gxz = PDstandardNth13gxz;
+      
+      JacPDstandardNth31gyy = PDstandardNth13gyy;
+      
+      JacPDstandardNth31gyz = PDstandardNth13gyz;
+      
+      JacPDstandardNth31gzz = PDstandardNth13gzz;
+      
+      JacPDstandardNth32gxx = PDstandardNth23gxx;
+      
+      JacPDstandardNth32gxy = PDstandardNth23gxy;
+      
+      JacPDstandardNth32gxz = PDstandardNth23gxz;
+      
+      JacPDstandardNth32gyy = PDstandardNth23gyy;
+      
+      JacPDstandardNth32gyz = PDstandardNth23gyz;
+      
+      JacPDstandardNth32gzz = PDstandardNth23gzz;
+    }
+    
     CCTK_REAL detg = 2*gxyL*gxzL*gyzL + gzzL*(gxxL*gyyL - 
       SQR(gxyL)) - gyyL*SQR(gxzL) - gxxL*SQR(gyzL);
     
@@ -218,105 +995,118 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
     
     CCTK_REAL gu33 = INV(detg)*(gxxL*gyyL - SQR(gxyL));
     
-    CCTK_REAL G111 = 0.5*(gu11*PDstandardNth1gxx + 
-      2*(gu21*PDstandardNth1gxy + gu31*PDstandardNth1gxz) - 
-      gu21*PDstandardNth2gxx - gu31*PDstandardNth3gxx);
+    CCTK_REAL G111 = 0.5*(gu11*JacPDstandardNth1gxx + 
+      2*(gu21*JacPDstandardNth1gxy + gu31*JacPDstandardNth1gxz) - 
+      gu21*JacPDstandardNth2gxx - gu31*JacPDstandardNth3gxx);
     
-    CCTK_REAL G211 = 0.5*(gu21*PDstandardNth1gxx + 
-      2*(gu22*PDstandardNth1gxy + gu32*PDstandardNth1gxz) - 
-      gu22*PDstandardNth2gxx - gu32*PDstandardNth3gxx);
+    CCTK_REAL G211 = 0.5*(gu21*JacPDstandardNth1gxx + 
+      2*(gu22*JacPDstandardNth1gxy + gu32*JacPDstandardNth1gxz) - 
+      gu22*JacPDstandardNth2gxx - gu32*JacPDstandardNth3gxx);
     
-    CCTK_REAL G311 = 0.5*(gu31*PDstandardNth1gxx + 
-      2*(gu32*PDstandardNth1gxy + gu33*PDstandardNth1gxz) - 
-      gu32*PDstandardNth2gxx - gu33*PDstandardNth3gxx);
+    CCTK_REAL G311 = 0.5*(gu31*JacPDstandardNth1gxx + 
+      2*(gu32*JacPDstandardNth1gxy + gu33*JacPDstandardNth1gxz) - 
+      gu32*JacPDstandardNth2gxx - gu33*JacPDstandardNth3gxx);
     
-    CCTK_REAL G112 = 0.5*(gu21*PDstandardNth1gyy + gu11*PDstandardNth2gxx 
-      + gu31*(PDstandardNth1gyz + PDstandardNth2gxz - PDstandardNth3gxy));
+    CCTK_REAL G112 = 0.5*(gu21*JacPDstandardNth1gyy + 
+      gu11*JacPDstandardNth2gxx + gu31*(JacPDstandardNth1gyz + 
+      JacPDstandardNth2gxz - JacPDstandardNth3gxy));
     
-    CCTK_REAL G212 = 0.5*(gu22*PDstandardNth1gyy + gu21*PDstandardNth2gxx 
-      + gu32*(PDstandardNth1gyz + PDstandardNth2gxz - PDstandardNth3gxy));
+    CCTK_REAL G212 = 0.5*(gu22*JacPDstandardNth1gyy + 
+      gu21*JacPDstandardNth2gxx + gu32*(JacPDstandardNth1gyz + 
+      JacPDstandardNth2gxz - JacPDstandardNth3gxy));
     
-    CCTK_REAL G312 = 0.5*(gu32*PDstandardNth1gyy + gu31*PDstandardNth2gxx 
-      + gu33*(PDstandardNth1gyz + PDstandardNth2gxz - PDstandardNth3gxy));
+    CCTK_REAL G312 = 0.5*(gu32*JacPDstandardNth1gyy + 
+      gu31*JacPDstandardNth2gxx + gu33*(JacPDstandardNth1gyz + 
+      JacPDstandardNth2gxz - JacPDstandardNth3gxy));
     
-    CCTK_REAL G113 = 0.5*(gu31*PDstandardNth1gzz + gu11*PDstandardNth3gxx 
-      + gu21*(PDstandardNth1gyz - PDstandardNth2gxz + PDstandardNth3gxy));
+    CCTK_REAL G113 = 0.5*(gu31*JacPDstandardNth1gzz + 
+      gu11*JacPDstandardNth3gxx + gu21*(JacPDstandardNth1gyz - 
+      JacPDstandardNth2gxz + JacPDstandardNth3gxy));
     
-    CCTK_REAL G213 = 0.5*(gu32*PDstandardNth1gzz + gu21*PDstandardNth3gxx 
-      + gu22*(PDstandardNth1gyz - PDstandardNth2gxz + PDstandardNth3gxy));
+    CCTK_REAL G213 = 0.5*(gu32*JacPDstandardNth1gzz + 
+      gu21*JacPDstandardNth3gxx + gu22*(JacPDstandardNth1gyz - 
+      JacPDstandardNth2gxz + JacPDstandardNth3gxy));
     
-    CCTK_REAL G313 = 0.5*(gu33*PDstandardNth1gzz + gu31*PDstandardNth3gxx 
-      + gu32*(PDstandardNth1gyz - PDstandardNth2gxz + PDstandardNth3gxy));
+    CCTK_REAL G313 = 0.5*(gu33*JacPDstandardNth1gzz + 
+      gu31*JacPDstandardNth3gxx + gu32*(JacPDstandardNth1gyz - 
+      JacPDstandardNth2gxz + JacPDstandardNth3gxy));
     
-    CCTK_REAL G122 = 0.5*(gu11*(-PDstandardNth1gyy + 2*PDstandardNth2gxy) 
-      + gu21*PDstandardNth2gyy + gu31*(2*PDstandardNth2gyz - 
-      PDstandardNth3gyy));
+    CCTK_REAL G122 = 0.5*(gu11*(-JacPDstandardNth1gyy + 
+      2*JacPDstandardNth2gxy) + gu21*JacPDstandardNth2gyy + 
+      gu31*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy));
     
-    CCTK_REAL G222 = 0.5*(gu21*(-PDstandardNth1gyy + 2*PDstandardNth2gxy) 
-      + gu22*PDstandardNth2gyy + gu32*(2*PDstandardNth2gyz - 
-      PDstandardNth3gyy));
+    CCTK_REAL G222 = 0.5*(gu21*(-JacPDstandardNth1gyy + 
+      2*JacPDstandardNth2gxy) + gu22*JacPDstandardNth2gyy + 
+      gu32*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy));
     
-    CCTK_REAL G322 = 0.5*(gu31*(-PDstandardNth1gyy + 2*PDstandardNth2gxy) 
-      + gu32*PDstandardNth2gyy + gu33*(2*PDstandardNth2gyz - 
-      PDstandardNth3gyy));
+    CCTK_REAL G322 = 0.5*(gu31*(-JacPDstandardNth1gyy + 
+      2*JacPDstandardNth2gxy) + gu32*JacPDstandardNth2gyy + 
+      gu33*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy));
     
-    CCTK_REAL G123 = 0.5*(gu31*PDstandardNth2gzz + 
-      gu11*(-PDstandardNth1gyz + PDstandardNth2gxz + PDstandardNth3gxy) + 
-      gu21*PDstandardNth3gyy);
+    CCTK_REAL G123 = 0.5*(gu31*JacPDstandardNth2gzz + 
+      gu11*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + 
+      JacPDstandardNth3gxy) + gu21*JacPDstandardNth3gyy);
     
-    CCTK_REAL G223 = 0.5*(gu32*PDstandardNth2gzz + 
-      gu21*(-PDstandardNth1gyz + PDstandardNth2gxz + PDstandardNth3gxy) + 
-      gu22*PDstandardNth3gyy);
+    CCTK_REAL G223 = 0.5*(gu32*JacPDstandardNth2gzz + 
+      gu21*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + 
+      JacPDstandardNth3gxy) + gu22*JacPDstandardNth3gyy);
     
-    CCTK_REAL G323 = 0.5*(gu33*PDstandardNth2gzz + 
-      gu31*(-PDstandardNth1gyz + PDstandardNth2gxz + PDstandardNth3gxy) + 
-      gu32*PDstandardNth3gyy);
+    CCTK_REAL G323 = 0.5*(gu33*JacPDstandardNth2gzz + 
+      gu31*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + 
+      JacPDstandardNth3gxy) + gu32*JacPDstandardNth3gyy);
     
-    CCTK_REAL G133 = 0.5*(gu11*(-PDstandardNth1gzz + 2*PDstandardNth3gxz) 
-      + gu21*(-PDstandardNth2gzz + 2*PDstandardNth3gyz) + 
-      gu31*PDstandardNth3gzz);
+    CCTK_REAL G133 = 0.5*(gu11*(-JacPDstandardNth1gzz + 
+      2*JacPDstandardNth3gxz) + gu21*(-JacPDstandardNth2gzz + 
+      2*JacPDstandardNth3gyz) + gu31*JacPDstandardNth3gzz);
     
-    CCTK_REAL G233 = 0.5*(gu21*(-PDstandardNth1gzz + 2*PDstandardNth3gxz) 
-      + gu22*(-PDstandardNth2gzz + 2*PDstandardNth3gyz) + 
-      gu32*PDstandardNth3gzz);
+    CCTK_REAL G233 = 0.5*(gu21*(-JacPDstandardNth1gzz + 
+      2*JacPDstandardNth3gxz) + gu22*(-JacPDstandardNth2gzz + 
+      2*JacPDstandardNth3gyz) + gu32*JacPDstandardNth3gzz);
     
-    CCTK_REAL G333 = 0.5*(gu31*(-PDstandardNth1gzz + 2*PDstandardNth3gxz) 
-      + gu32*(-PDstandardNth2gzz + 2*PDstandardNth3gyz) + 
-      gu33*PDstandardNth3gzz);
+    CCTK_REAL G333 = 0.5*(gu31*(-JacPDstandardNth1gzz + 
+      2*JacPDstandardNth3gxz) + gu32*(-JacPDstandardNth2gzz + 
+      2*JacPDstandardNth3gyz) + gu33*JacPDstandardNth3gzz);
     
-    CCTK_REAL R11 = 0.5*(gu32*(4*(gxyL*(-(G123*G211) + G113*G212) + 
+    CCTK_REAL R11 = 0.5*(gu21*(-JacPDstandardNth12gxx + 
+      JacPDstandardNth21gxx) + gu31*(-JacPDstandardNth13gxx + 
+      JacPDstandardNth31gxx) + gu32*(4*(gxyL*(-(G123*G211) + G113*G212) + 
       gyyL*(G212*G213 - G211*G223) + gxzL*G113*G312 + gyzL*G212*G313 + 
       gzzL*G312*G313 + G112*(gxxL*G113 + gxyL*G213 + gxzL*G313) - 
       G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(-(gxzL*G123) - 
-      gyzL*G223 - gzzL*G323) + gyzL*(G213*G312 - G211*G323)) + 
-      2*(-PDstandardNth11gyz + PDstandardNth12gxz + PDstandardNth13gxy - 
-      PDstandardNth23gxx)) + gu22*(-PDstandardNth11gyy + 2*PDstandardNth12gxy 
-      - PDstandardNth22gxx + 2*(2*gyzL*G212*G312 + 2*G112*(gxyL*G212 + 
+      gyzL*G223 - gzzL*G323) + gyzL*(G213*G312 - G211*G323)) - 
+      JacPDstandardNth11gyz + JacPDstandardNth21gxz - JacPDstandardNth23gxx + 
+      JacPDstandardNth31gxy) + gu32*(-JacPDstandardNth11gyz + 
+      JacPDstandardNth21gxz + JacPDstandardNth31gxy - JacPDstandardNth32gxx) 
+      + gu22*(-JacPDstandardNth11gyy + 2*JacPDstandardNth21gxy - 
+      JacPDstandardNth22gxx + 2*(2*gyzL*G212*G312 + 2*G112*(gxyL*G212 + 
       gxzL*G312) - G111*(gxxL*G122 + gxyL*G222 + gxzL*G322) + 
       G211*(-(gxyL*G122) - gyyL*G222 - gyzL*G322) + 
       G311*(-(gxzL*G122) - gyzL*G222 - gzzL*G322) + gxxL*SQR(G112) + 
-      gyyL*SQR(G212) + gzzL*SQR(G312))) + gu33*(-PDstandardNth11gzz + 
-      2*PDstandardNth13gxz - PDstandardNth33gxx + 2*(2*gyzL*G213*G313 + 
-      2*G113*(gxyL*G213 + gxzL*G313) - G111*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G211*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
+      gyyL*SQR(G212) + gzzL*SQR(G312))) + gu33*(-JacPDstandardNth11gzz + 
+      2*JacPDstandardNth31gxz - JacPDstandardNth33gxx + 2*(2*gyzL*G213*G313 
+      + 2*G113*(gxyL*G213 + gxzL*G313) - G111*(gxxL*G133 + gxyL*G233 
+      + gxzL*G333) + G211*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
       G311*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G113) + 
       gyyL*SQR(G213) + gzzL*SQR(G313))));
     
-    CCTK_REAL R12 = 0.5*(gu21*(PDstandardNth11gyy - 2*PDstandardNth12gxy + 
-      PDstandardNth22gxx) + gu31*(PDstandardNth11gyz - PDstandardNth12gxz - 
-      PDstandardNth13gxy + PDstandardNth23gxx) + gu32*(-PDstandardNth12gyz + 
-      PDstandardNth13gyy + PDstandardNth22gxz - PDstandardNth23gxy) + 
-      gu33*(-PDstandardNth12gzz + PDstandardNth13gyz + PDstandardNth23gxz - 
-      PDstandardNth33gxy) + 2*((gxyL*(G123*G211 - G113*G212) + 
-      gyyL*(-(G212*G213) + G211*G223) - G112*(gxxL*G113 + gxyL*G213 + 
-      gxzL*G313) + G312*(-(gxzL*G113) - gyzL*G213 - gzzL*G313) + 
-      G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(gxzL*G123 + 
-      gyzL*G223 + gzzL*G323) + gyzL*(-(G212*G313) + G211*G323))*gu31 + 
-      (gxyL*(-(G123*G212) + G122*G213) + gyyL*(G213*G222 - G212*G223) + 
-      gxzL*G122*G313 + gyzL*G213*G322 + gzzL*G313*G322 + 
-      G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) - G112*(gxxL*G123 + 
-      gxyL*G223 + gxzL*G323) + G312*(-(gxzL*G123) - gyzL*G223 - 
-      gzzL*G323) + gyzL*(G222*G313 - G212*G323))*gu32 + 
+    CCTK_REAL R12 = 0.5*(gu22*(-JacPDstandardNth12gyy + 
+      JacPDstandardNth21gyy) + gu21*(JacPDstandardNth11gyy - 
+      2*JacPDstandardNth12gxy + JacPDstandardNth22gxx) + 
+      gu32*(-2*JacPDstandardNth12gyz + JacPDstandardNth21gyz + 
+      JacPDstandardNth22gxz - JacPDstandardNth23gxy + JacPDstandardNth31gyy) 
+      + gu31*(JacPDstandardNth11gyz - JacPDstandardNth12gxz - 
+      JacPDstandardNth13gxy + JacPDstandardNth32gxx) + 
+      gu33*(-JacPDstandardNth12gzz + JacPDstandardNth31gyz + 
+      JacPDstandardNth32gxz - JacPDstandardNth33gxy) + 2*((gxyL*(G123*G211 
+      - G113*G212) + gyyL*(-(G212*G213) + G211*G223) - G112*(gxxL*G113 + 
+      gxyL*G213 + gxzL*G313) + G312*(-(gxzL*G113) - gyzL*G213 - 
+      gzzL*G313) + G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + 
+      G311*(gxzL*G123 + gyzL*G223 + gzzL*G323) + gyzL*(-(G212*G313) + 
+      G211*G323))*gu31 + (gxyL*(-(G123*G212) + G122*G213) + 
+      gyyL*(G213*G222 - G212*G223) + gxzL*G122*G313 + gyzL*G213*G322 + 
+      gzzL*G313*G322 + G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) - 
+      G112*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G312*(-(gxzL*G123) - 
+      gyzL*G223 - gzzL*G323) + gyzL*(G222*G313 - G212*G323))*gu32 + 
       (gxyL*(-(G133*G212) + G123*G213) + gyyL*(G213*G223 - G212*G233) + 
       gxzL*G123*G313 + gyzL*G213*G323 + gzzL*G313*G323 + 
       G113*(gxxL*G123 + gxyL*G223 + gxzL*G323) - G112*(gxxL*G133 + 
@@ -328,12 +1118,15 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
       gzzL*G322) - gxxL*SQR(G112) - gyyL*SQR(G212) - 
       gzzL*SQR(G312))));
     
-    CCTK_REAL R13 = 0.5*(gu21*(PDstandardNth11gyz - PDstandardNth12gxz - 
-      PDstandardNth13gxy + PDstandardNth23gxx) + gu22*(PDstandardNth12gyz - 
-      PDstandardNth13gyy - PDstandardNth22gxz + PDstandardNth23gxy) + 
-      gu31*(PDstandardNth11gzz - 2*PDstandardNth13gxz + PDstandardNth33gxx) + 
-      gu32*(PDstandardNth12gzz - PDstandardNth13gyz - PDstandardNth23gxz + 
-      PDstandardNth33gxy) + 2*((gxyL*(G123*G211 - G113*G212) + 
+    CCTK_REAL R13 = 0.5*(gu21*(JacPDstandardNth11gyz - 
+      JacPDstandardNth12gxz - JacPDstandardNth13gxy + JacPDstandardNth23gxx) 
+      + gu22*(-JacPDstandardNth13gyy + JacPDstandardNth21gyz - 
+      JacPDstandardNth22gxz + JacPDstandardNth23gxy) + 
+      gu33*(-JacPDstandardNth13gzz + JacPDstandardNth31gzz) + 
+      gu31*(JacPDstandardNth11gzz - 2*JacPDstandardNth13gxz + 
+      JacPDstandardNth33gxx) + gu32*(-2*JacPDstandardNth13gyz + 
+      JacPDstandardNth21gzz + JacPDstandardNth31gyz - JacPDstandardNth32gxz + 
+      JacPDstandardNth33gxy) + 2*((gxyL*(G123*G211 - G113*G212) + 
       gyyL*(-(G212*G213) + G211*G223) - G112*(gxxL*G113 + gxyL*G213 + 
       gxzL*G313) + G312*(-(gxzL*G113) - gyzL*G213 - gzzL*G313) + 
       G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(gxzL*G123 + 
@@ -353,30 +1146,37 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
       gyzL*G233 + gzzL*G333) - gxxL*SQR(G113) - gyyL*SQR(G213) - 
       gzzL*SQR(G313))));
     
-    CCTK_REAL R22 = 0.5*(gu31*(4*(gxyL*(G123*G212 - G122*G213) + 
+    CCTK_REAL R22 = 0.5*(gu21*(JacPDstandardNth12gyy - 
+      JacPDstandardNth21gyy) + gu31*(4*(gxyL*(G123*G212 - G122*G213) + 
       gyyL*(-(G213*G222) + G212*G223) + gxzL*(G123*G312 - G122*G313) - 
       G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) + gyzL*(G223*G312 - 
       G222*G313 - G213*G322) + gyzL*G212*G323 + G112*(gxxL*G123 + 
       gxyL*G223 + gxzL*G323) + gzzL*(-(G313*G322) + G312*G323)) + 
-      2*(PDstandardNth12gyz - PDstandardNth13gyy - PDstandardNth22gxz + 
-      PDstandardNth23gxy)) + gu11*(-PDstandardNth11gyy + 2*PDstandardNth12gxy 
-      - PDstandardNth22gxx + 2*(2*gyzL*G212*G312 + 2*G112*(gxyL*G212 + 
+      JacPDstandardNth12gyz - JacPDstandardNth13gyy - JacPDstandardNth22gxz + 
+      JacPDstandardNth32gxy) + gu31*(JacPDstandardNth12gyz - 
+      JacPDstandardNth22gxz - JacPDstandardNth31gyy + JacPDstandardNth32gxy) 
+      + gu32*(-JacPDstandardNth23gyy + JacPDstandardNth32gyy) + 
+      gu11*(-JacPDstandardNth11gyy + 2*JacPDstandardNth12gxy - 
+      JacPDstandardNth22gxx + 2*(2*gyzL*G212*G312 + 2*G112*(gxyL*G212 + 
       gxzL*G312) - G111*(gxxL*G122 + gxyL*G222 + gxzL*G322) + 
       G211*(-(gxyL*G122) - gyyL*G222 - gyzL*G322) + 
       G311*(-(gxzL*G122) - gyzL*G222 - gzzL*G322) + gxxL*SQR(G112) + 
-      gyyL*SQR(G212) + gzzL*SQR(G312))) + gu33*(-PDstandardNth22gzz + 
-      2*PDstandardNth23gyz - PDstandardNth33gyy + 2*(2*gyzL*G223*G323 + 
-      2*G123*(gxyL*G223 + gxzL*G323) - G122*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G222*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
+      gyyL*SQR(G212) + gzzL*SQR(G312))) + gu33*(-JacPDstandardNth22gzz + 
+      2*JacPDstandardNth32gyz - JacPDstandardNth33gyy + 2*(2*gyzL*G223*G323 
+      + 2*G123*(gxyL*G223 + gxzL*G323) - G122*(gxxL*G133 + gxyL*G233 
+      + gxzL*G333) + G222*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
       G322*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G123) + 
       gyyL*SQR(G223) + gzzL*SQR(G323))));
     
-    CCTK_REAL R23 = 0.5*(gu11*(-PDstandardNth11gyz + PDstandardNth12gxz + 
-      PDstandardNth13gxy - PDstandardNth23gxx) + gu21*(-PDstandardNth12gyz + 
-      PDstandardNth13gyy + PDstandardNth22gxz - PDstandardNth23gxy) + 
-      gu31*(PDstandardNth12gzz - PDstandardNth13gyz - PDstandardNth23gxz + 
-      PDstandardNth33gxy) + gu32*(PDstandardNth22gzz - 2*PDstandardNth23gyz + 
-      PDstandardNth33gyy) + 2*((gxyL*(-(G123*G211) + G113*G212) + 
+    CCTK_REAL R23 = 0.5*(gu11*(-JacPDstandardNth11gyz + 
+      JacPDstandardNth12gxz + JacPDstandardNth13gxy - JacPDstandardNth23gxx) 
+      + gu21*(JacPDstandardNth13gyy - JacPDstandardNth21gyz + 
+      JacPDstandardNth22gxz - JacPDstandardNth23gxy) + 
+      gu33*(-JacPDstandardNth23gzz + JacPDstandardNth32gzz) + 
+      gu31*(JacPDstandardNth12gzz - 2*JacPDstandardNth23gxz - 
+      JacPDstandardNth31gyz + JacPDstandardNth32gxz + JacPDstandardNth33gxy) 
+      + gu32*(JacPDstandardNth22gzz - 2*JacPDstandardNth23gyz + 
+      JacPDstandardNth33gyy) + 2*((gxyL*(-(G123*G211) + G113*G212) + 
       gyyL*(G212*G213 - G211*G223) + gxzL*G113*G312 + gyzL*G212*G313 + 
       gzzL*G312*G313 + G112*(gxxL*G113 + gxyL*G213 + gxzL*G313) - 
       G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(-(gxzL*G123) - 
@@ -396,21 +1196,25 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
       G322*(gxzL*G133 + gyzL*G233 + gzzL*G333) - gxxL*SQR(G123) - 
       gyyL*SQR(G223) - gzzL*SQR(G323))));
     
-    CCTK_REAL R33 = 0.5*(gu21*(4*(gxyL*(-(G133*G212) + G123*G213) + 
+    CCTK_REAL R33 = 0.5*(gu31*(JacPDstandardNth13gzz - 
+      JacPDstandardNth31gzz) + gu32*(JacPDstandardNth23gzz - 
+      JacPDstandardNth32gzz) + gu21*(4*(gxyL*(-(G133*G212) + G123*G213) + 
       gyyL*(G213*G223 - G212*G233) + gxzL*G123*G313 + gyzL*G213*G323 + 
       gzzL*G313*G323 + G113*(gxxL*G123 + gxyL*G223 + gxzL*G323) - 
       G112*(gxxL*G133 + gxyL*G233 + gxzL*G333) + G312*(-(gxzL*G133) - 
-      gyzL*G233 - gzzL*G333) + gyzL*(G223*G313 - G212*G333)) + 
-      2*(-PDstandardNth12gzz + PDstandardNth13gyz + PDstandardNth23gxz - 
-      PDstandardNth33gxy)) + gu11*(-PDstandardNth11gzz + 2*PDstandardNth13gxz 
-      - PDstandardNth33gxx + 2*(2*gyzL*G213*G313 + 2*G113*(gxyL*G213 + 
+      gyzL*G233 - gzzL*G333) + gyzL*(G223*G313 - G212*G333)) - 
+      JacPDstandardNth12gzz + JacPDstandardNth13gyz + JacPDstandardNth23gxz - 
+      JacPDstandardNth33gxy) + gu21*(JacPDstandardNth13gyz - 
+      JacPDstandardNth21gzz + JacPDstandardNth23gxz - JacPDstandardNth33gxy) 
+      + gu11*(-JacPDstandardNth11gzz + 2*JacPDstandardNth13gxz - 
+      JacPDstandardNth33gxx + 2*(2*gyzL*G213*G313 + 2*G113*(gxyL*G213 + 
       gxzL*G313) - G111*(gxxL*G133 + gxyL*G233 + gxzL*G333) + 
       G211*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
       G311*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G113) + 
-      gyyL*SQR(G213) + gzzL*SQR(G313))) + gu22*(-PDstandardNth22gzz + 
-      2*PDstandardNth23gyz - PDstandardNth33gyy + 2*(2*gyzL*G223*G323 + 
-      2*G123*(gxyL*G223 + gxzL*G323) - G122*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G222*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
+      gyyL*SQR(G213) + gzzL*SQR(G313))) + gu22*(-JacPDstandardNth22gzz + 
+      2*JacPDstandardNth23gyz - JacPDstandardNth33gyy + 2*(2*gyzL*G223*G323 
+      + 2*G123*(gxyL*G223 + gxzL*G323) - G122*(gxxL*G133 + gxyL*G233 
+      + gxzL*G333) + G222*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
       G322*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G123) + 
       gyyL*SQR(G223) + gzzL*SQR(G323))));
     
@@ -455,43 +1259,43 @@ static void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const
       trR - SQR(Km11) - SQR(Km22) - SQR(Km33) + SQR(trK);
     
     CCTK_REAL M1L = gu21*(-(kxxL*G112) + kyyL*G211 + kxyL*(G111 - 
-      G212) + kyzL*G311 - kxzL*G312 - PDstandardNth1kxy + 
-      PDstandardNth2kxx) + gu22*(-(kxxL*G122) + kyyL*G212 + kxyL*(G112 
-      - G222) + kyzL*G312 - kxzL*G322 - PDstandardNth1kyy + 
-      PDstandardNth2kxy) + gu31*(-(kxxL*G113) + kyzL*G211 - kxyL*G213 + 
-      kzzL*G311 + kxzL*(G111 - G313) - PDstandardNth1kxz + 
-      PDstandardNth3kxx) + gu32*(kyyL*G213 + kxyL*(G113 - 2*G223) + 
+      G212) + kyzL*G311 - kxzL*G312 - JacPDstandardNth1kxy + 
+      JacPDstandardNth2kxx) + gu22*(-(kxxL*G122) + kyyL*G212 + 
+      kxyL*(G112 - G222) + kyzL*G312 - kxzL*G322 - JacPDstandardNth1kyy 
+      + JacPDstandardNth2kxy) + gu31*(-(kxxL*G113) + kyzL*G211 - 
+      kxyL*G213 + kzzL*G311 + kxzL*(G111 - G313) - JacPDstandardNth1kxz 
+      + JacPDstandardNth3kxx) + gu32*(kyyL*G213 + kxyL*(G113 - 2*G223) + 
       kzzL*G312 + kyzL*(G212 + G313) + kxzL*(G112 - 2*G323) - 
-      2*(kxxL*G123 + PDstandardNth1kyz) + PDstandardNth2kxz + 
-      PDstandardNth3kxy) + gu33*(-(kxxL*G133) + kyzL*G213 - kxyL*G233 + 
-      kzzL*G313 + kxzL*(G113 - G333) - PDstandardNth1kzz + 
-      PDstandardNth3kxz) - 8*Pi*S1;
+      2*(kxxL*G123 + JacPDstandardNth1kyz) + JacPDstandardNth2kxz + 
+      JacPDstandardNth3kxy) + gu33*(-(kxxL*G133) + kyzL*G213 - 
+      kxyL*G233 + kzzL*G313 + kxzL*(G113 - G333) - JacPDstandardNth1kzz 
+      + JacPDstandardNth3kxz) - 8*Pi*S1;
     
     CCTK_REAL M2L = gu11*(kxxL*G112 - kyyL*G211 + kxyL*(-G111 + 
-      G212) - kyzL*G311 + kxzL*G312 + PDstandardNth1kxy - 
-      PDstandardNth2kxx) + gu21*(kxxL*G122 - kyyL*G212 + kxyL*(-G112 + 
-      G222) - kyzL*G312 + kxzL*G322 + PDstandardNth1kyy - 
-      PDstandardNth2kxy) + gu31*(kxxL*G123 + kxyL*G223 + kzzL*G312 + 
-      kyzL*(G212 - 2*G313) + kxzL*(G112 + G323) + PDstandardNth1kyz - 
-      2*(kxyL*G113 + kyyL*G213 + PDstandardNth2kxz) + PDstandardNth3kxy) 
-      + gu32*(kxzL*G122 - kxyL*G123 - kyyL*G223 + kzzL*G322 + 
-      kyzL*(G222 - G323) - PDstandardNth2kyz + PDstandardNth3kyy) + 
-      gu33*(kxzL*G123 - kxyL*G133 - kyyL*G233 + kzzL*G323 + 
-      kyzL*(G223 - G333) - PDstandardNth2kzz + PDstandardNth3kyz) - 
-      8*Pi*S2;
+      G212) - kyzL*G311 + kxzL*G312 + JacPDstandardNth1kxy - 
+      JacPDstandardNth2kxx) + gu21*(kxxL*G122 - kyyL*G212 + kxyL*(-G112 
+      + G222) - kyzL*G312 + kxzL*G322 + JacPDstandardNth1kyy - 
+      JacPDstandardNth2kxy) + gu31*(kxxL*G123 + kxyL*G223 + kzzL*G312 + 
+      kyzL*(G212 - 2*G313) + kxzL*(G112 + G323) + JacPDstandardNth1kyz - 
+      2*(kxyL*G113 + kyyL*G213 + JacPDstandardNth2kxz) + 
+      JacPDstandardNth3kxy) + gu32*(kxzL*G122 - kxyL*G123 - kyyL*G223 + 
+      kzzL*G322 + kyzL*(G222 - G323) - JacPDstandardNth2kyz + 
+      JacPDstandardNth3kyy) + gu33*(kxzL*G123 - kxyL*G133 - kyyL*G233 + 
+      kzzL*G323 + kyzL*(G223 - G333) - JacPDstandardNth2kzz + 
+      JacPDstandardNth3kyz) - 8*Pi*S2;
     
     CCTK_REAL M3L = gu11*(kxxL*G113 - kyzL*G211 + kxyL*G213 - 
-      kzzL*G311 + kxzL*(-G111 + G313) + PDstandardNth1kxz - 
-      PDstandardNth3kxx) + gu21*(kxxL*G123 + kyyL*G213 + kxyL*(G113 + 
-      G223) + kyzL*G313 + kxzL*G323 + PDstandardNth1kyz + 
-      PDstandardNth2kxz - 2*(kxzL*G112 + kyzL*G212 + kzzL*G312 + 
-      PDstandardNth3kxy)) + gu31*(kxxL*G133 - kyzL*G213 + kxyL*G233 - 
-      kzzL*G313 + kxzL*(-G113 + G333) + PDstandardNth1kzz - 
-      PDstandardNth3kxz) + gu22*(-(kxzL*G122) + kxyL*G123 + kyyL*G223 - 
-      kzzL*G322 + kyzL*(-G222 + G323) + PDstandardNth2kyz - 
-      PDstandardNth3kyy) + gu32*(-(kxzL*G123) + kxyL*G133 + kyyL*G233 - 
-      kzzL*G323 + kyzL*(-G223 + G333) + PDstandardNth2kzz - 
-      PDstandardNth3kyz) - 8*Pi*S3;
+      kzzL*G311 + kxzL*(-G111 + G313) + JacPDstandardNth1kxz - 
+      JacPDstandardNth3kxx) + gu21*(kxxL*G123 + kyyL*G213 + kxyL*(G113 
+      + G223) + kyzL*G313 + kxzL*G323 + JacPDstandardNth1kyz + 
+      JacPDstandardNth2kxz - 2*(kxzL*G112 + kyzL*G212 + kzzL*G312 + 
+      JacPDstandardNth3kxy)) + gu31*(kxxL*G133 - kyzL*G213 + kxyL*G233 
+      - kzzL*G313 + kxzL*(-G113 + G333) + JacPDstandardNth1kzz - 
+      JacPDstandardNth3kxz) + gu22*(-(kxzL*G122) + kxyL*G123 + 
+      kyyL*G223 - kzzL*G322 + kyzL*(-G222 + G323) + 
+      JacPDstandardNth2kyz - JacPDstandardNth3kyy) + gu32*(-(kxzL*G123) + 
+      kxyL*G133 + kyyL*G233 - kzzL*G323 + kyzL*(-G223 + G333) + 
+      JacPDstandardNth2kzz - JacPDstandardNth3kyz) - 8*Pi*S3;
     
     /* Copy local copies back to grid functions */
     H[index] = HL;
diff --git a/ML_ADMConstraints_MP/configuration.ccl b/ML_ADMConstraints_MP/configuration.ccl
deleted file mode 100644
index 0a66ec2..0000000
--- a/ML_ADMConstraints_MP/configuration.ccl
+++ /dev/null
@@ -1,6 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-OPTIONAL LoopControl
-{
-}
diff --git a/ML_ADMConstraints_MP/interface.ccl b/ML_ADMConstraints_MP/interface.ccl
deleted file mode 100644
index fed4d32..0000000
--- a/ML_ADMConstraints_MP/interface.ccl
+++ /dev/null
@@ -1,42 +0,0 @@
-# File produced by Kranc
-
-implements: ML_ADMConstraints_MP
-
-inherits:   ADMBase TmunuBase Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL ML_Ham type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  H
-} "ML_Ham"
-
-public:
-CCTK_REAL ML_mom type=GF timelevels=3 tags='tensortypealias="D" tensorweight=0'
-{
-  M1,
-  M2,
-  M3
-} "ML_mom"
diff --git a/ML_ADMConstraints_MP/param.ccl b/ML_ADMConstraints_MP/param.ccl
deleted file mode 100644
index 5749429..0000000
--- a/ML_ADMConstraints_MP/param.ccl
+++ /dev/null
@@ -1,63 +0,0 @@
-# File produced by Kranc
-
-
-shares: GenericFD
-
-USES CCTK_STRING jacobian_group
-USES CCTK_STRING jacobian_derivative_group
-USES CCTK_INT jacobian_identity_map
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_ADMConstraints_MP_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT ML_ADMConstraints_MP_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT ML_ADMConstraints_MP_calc_every "ML_ADMConstraints_MP_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_ADMConstraints_MP_calc_offset "ML_ADMConstraints_MP_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
diff --git a/ML_ADMConstraints_MP/schedule.ccl b/ML_ADMConstraints_MP/schedule.ccl
deleted file mode 100644
index a20f509..0000000
--- a/ML_ADMConstraints_MP/schedule.ccl
+++ /dev/null
@@ -1,105 +0,0 @@
-# File produced by Kranc
-
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Ham[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Ham[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Ham[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_mom[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_mom[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_mom[3]
-}
-
-schedule ML_ADMConstraints_MP_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_ADMConstraints_MP_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-schedule group ML_ADMConstraints_MP_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_ADMConstraints_MP"
-
-schedule ML_ADMConstraints_MP in ML_ADMConstraints_MP_group
-{
-  LANG: C
-  READS:    ADMBase::curv
-  READS:    ADMBase::lapse
-  READS:    ADMBase::metric
-  READS:    ADMBase::shift
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_ADMConstraints_MP::ML_Ham
-  WRITES:   ML_ADMConstraints_MP::ML_mom
-} "ML_ADMConstraints_MP"
-
-schedule ML_ADMConstraints_MP_SelectBCs in ML_ADMConstraints_MP_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_Ham
-  SYNC: ML_mom
-} "ML_ADMConstraints_MP_SelectBCs"
-
-schedule group ApplyBCs as ML_ADMConstraints_MP_ApplyBCs in ML_ADMConstraints_MP_bc_group after ML_ADMConstraints_MP_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_ADMConstraints_MP"
-
-schedule group ML_ADMConstraints_MP_bc_group in ML_ADMConstraints_MP_group after ML_ADMConstraints_MP
-{
-  # no language specified
-} "ML_ADMConstraints_MP"
-
-schedule group ML_ADMConstraints_MP_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_ADMConstraints_MP"
-
-schedule ML_ADMConstraints_MP_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-} "select boundary conditions"
-
-schedule ML_ADMConstraints_MP_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_ADMConstraints_MP_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_ADMConstraints_MP_ApplyBCs in MoL_PostStep after ML_ADMConstraints_MP_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_ADMConstraints_MP/src/Boundaries.cc b/ML_ADMConstraints_MP/src/Boundaries.cc
deleted file mode 100644
index e5d9151..0000000
--- a/ML_ADMConstraints_MP/src/Boundaries.cc
+++ /dev/null
@@ -1,41 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_ADMConstraints_MP_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_ADMConstraints_MP_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-*/
-
diff --git a/ML_ADMConstraints_MP/src/Differencing.h b/ML_ADMConstraints_MP/src/Differencing.h
deleted file mode 100644
index b27ce50..0000000
--- a/ML_ADMConstraints_MP/src/Differencing.h
+++ /dev/null
@@ -1,144 +0,0 @@
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth1(u) ((-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx)
-#else
-#  define PDstandardNth1(u) (PDstandardNth1_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth2(u) ((-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy)
-#else
-#  define PDstandardNth2(u) (PDstandardNth2_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth3(u) ((-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz)
-#else
-#  define PDstandardNth3(u) (PDstandardNth3_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth11(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2)
-#else
-#  define PDstandardNth11(u) (PDstandardNth11_impl(u,pm1o12dx2,cdj,cdk))
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth22(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2)
-#else
-#  define PDstandardNth22(u) (PDstandardNth22_impl(u,pm1o12dy2,cdj,cdk))
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth33(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2)
-#else
-#  define PDstandardNth33(u) (PDstandardNth33_impl(u,pm1o12dz2,cdj,cdk))
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth12(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy)
-#else
-#  define PDstandardNth12(u) (PDstandardNth12_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth13(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz)
-#else
-#  define PDstandardNth13(u) (PDstandardNth13_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth21(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy)
-#else
-#  define PDstandardNth21(u) (PDstandardNth21_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth23(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz)
-#else
-#  define PDstandardNth23(u) (PDstandardNth23_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth31(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz)
-#else
-#  define PDstandardNth31(u) (PDstandardNth31_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth32(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz)
-#else
-#  define PDstandardNth32(u) (PDstandardNth32_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz;
-}
-#endif
-
diff --git a/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.cc b/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.cc
deleted file mode 100644
index 85f83c7..0000000
--- a/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.cc
+++ /dev/null
@@ -1,1342 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-extern "C" void ML_ADMConstraints_MP_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMConstraints_MP::ML_Ham","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_ADMConstraints_MP::ML_Ham.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMConstraints_MP::ML_mom","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_ADMConstraints_MP::ML_mom.");
-  return;
-}
-
-static void ML_ADMConstraints_MP_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx);
-  CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy);
-  CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz);
-  CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy);
-  CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz);
-  CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz);
-  CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx));
-  CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy));
-  CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(ML_ADMConstraints_MP,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL alpL = alp[index];
-    CCTK_REAL betaxL = betax[index];
-    CCTK_REAL betayL = betay[index];
-    CCTK_REAL betazL = betaz[index];
-    CCTK_REAL gxxL = gxx[index];
-    CCTK_REAL gxyL = gxy[index];
-    CCTK_REAL gxzL = gxz[index];
-    CCTK_REAL gyyL = gyy[index];
-    CCTK_REAL gyzL = gyz[index];
-    CCTK_REAL gzzL = gzz[index];
-    CCTK_REAL kxxL = kxx[index];
-    CCTK_REAL kxyL = kxy[index];
-    CCTK_REAL kxzL = kxz[index];
-    CCTK_REAL kyyL = kyy[index];
-    CCTK_REAL kyzL = kyz[index];
-    CCTK_REAL kzzL = kzz[index];
-    
-    CCTK_REAL eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = eTtt[index];
-      eTtxL = eTtx[index];
-      eTtyL = eTty[index];
-      eTtzL = eTtz[index];
-      eTxxL = eTxx[index];
-      eTxyL = eTxy[index];
-      eTxzL = eTxz[index];
-      eTyyL = eTyy[index];
-      eTyzL = eTyz[index];
-      eTzzL = eTzz[index];
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = dJ111[index];
-      dJ112L = dJ112[index];
-      dJ113L = dJ113[index];
-      dJ122L = dJ122[index];
-      dJ123L = dJ123[index];
-      dJ133L = dJ133[index];
-      dJ211L = dJ211[index];
-      dJ212L = dJ212[index];
-      dJ213L = dJ213[index];
-      dJ222L = dJ222[index];
-      dJ223L = dJ223[index];
-      dJ233L = dJ233[index];
-      dJ311L = dJ311[index];
-      dJ312L = dJ312[index];
-      dJ313L = dJ313[index];
-      dJ322L = dJ322[index];
-      dJ323L = dJ323[index];
-      dJ333L = dJ333[index];
-      J11L = J11[index];
-      J12L = J12[index];
-      J13L = J13[index];
-      J21L = J21[index];
-      J22L = J22[index];
-      J23L = J23[index];
-      J31L = J31[index];
-      J32L = J32[index];
-      J33L = J33[index];
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL const PDstandardNth1gxx = PDstandardNth1(&gxx[index]);
-    CCTK_REAL const PDstandardNth2gxx = PDstandardNth2(&gxx[index]);
-    CCTK_REAL const PDstandardNth3gxx = PDstandardNth3(&gxx[index]);
-    CCTK_REAL const PDstandardNth11gxx = PDstandardNth11(&gxx[index]);
-    CCTK_REAL const PDstandardNth22gxx = PDstandardNth22(&gxx[index]);
-    CCTK_REAL const PDstandardNth33gxx = PDstandardNth33(&gxx[index]);
-    CCTK_REAL const PDstandardNth12gxx = PDstandardNth12(&gxx[index]);
-    CCTK_REAL const PDstandardNth13gxx = PDstandardNth13(&gxx[index]);
-    CCTK_REAL const PDstandardNth23gxx = PDstandardNth23(&gxx[index]);
-    CCTK_REAL const PDstandardNth1gxy = PDstandardNth1(&gxy[index]);
-    CCTK_REAL const PDstandardNth2gxy = PDstandardNth2(&gxy[index]);
-    CCTK_REAL const PDstandardNth3gxy = PDstandardNth3(&gxy[index]);
-    CCTK_REAL const PDstandardNth11gxy = PDstandardNth11(&gxy[index]);
-    CCTK_REAL const PDstandardNth22gxy = PDstandardNth22(&gxy[index]);
-    CCTK_REAL const PDstandardNth33gxy = PDstandardNth33(&gxy[index]);
-    CCTK_REAL const PDstandardNth12gxy = PDstandardNth12(&gxy[index]);
-    CCTK_REAL const PDstandardNth13gxy = PDstandardNth13(&gxy[index]);
-    CCTK_REAL const PDstandardNth23gxy = PDstandardNth23(&gxy[index]);
-    CCTK_REAL const PDstandardNth1gxz = PDstandardNth1(&gxz[index]);
-    CCTK_REAL const PDstandardNth2gxz = PDstandardNth2(&gxz[index]);
-    CCTK_REAL const PDstandardNth3gxz = PDstandardNth3(&gxz[index]);
-    CCTK_REAL const PDstandardNth11gxz = PDstandardNth11(&gxz[index]);
-    CCTK_REAL const PDstandardNth22gxz = PDstandardNth22(&gxz[index]);
-    CCTK_REAL const PDstandardNth33gxz = PDstandardNth33(&gxz[index]);
-    CCTK_REAL const PDstandardNth12gxz = PDstandardNth12(&gxz[index]);
-    CCTK_REAL const PDstandardNth13gxz = PDstandardNth13(&gxz[index]);
-    CCTK_REAL const PDstandardNth23gxz = PDstandardNth23(&gxz[index]);
-    CCTK_REAL const PDstandardNth1gyy = PDstandardNth1(&gyy[index]);
-    CCTK_REAL const PDstandardNth2gyy = PDstandardNth2(&gyy[index]);
-    CCTK_REAL const PDstandardNth3gyy = PDstandardNth3(&gyy[index]);
-    CCTK_REAL const PDstandardNth11gyy = PDstandardNth11(&gyy[index]);
-    CCTK_REAL const PDstandardNth22gyy = PDstandardNth22(&gyy[index]);
-    CCTK_REAL const PDstandardNth33gyy = PDstandardNth33(&gyy[index]);
-    CCTK_REAL const PDstandardNth12gyy = PDstandardNth12(&gyy[index]);
-    CCTK_REAL const PDstandardNth13gyy = PDstandardNth13(&gyy[index]);
-    CCTK_REAL const PDstandardNth23gyy = PDstandardNth23(&gyy[index]);
-    CCTK_REAL const PDstandardNth1gyz = PDstandardNth1(&gyz[index]);
-    CCTK_REAL const PDstandardNth2gyz = PDstandardNth2(&gyz[index]);
-    CCTK_REAL const PDstandardNth3gyz = PDstandardNth3(&gyz[index]);
-    CCTK_REAL const PDstandardNth11gyz = PDstandardNth11(&gyz[index]);
-    CCTK_REAL const PDstandardNth22gyz = PDstandardNth22(&gyz[index]);
-    CCTK_REAL const PDstandardNth33gyz = PDstandardNth33(&gyz[index]);
-    CCTK_REAL const PDstandardNth12gyz = PDstandardNth12(&gyz[index]);
-    CCTK_REAL const PDstandardNth13gyz = PDstandardNth13(&gyz[index]);
-    CCTK_REAL const PDstandardNth23gyz = PDstandardNth23(&gyz[index]);
-    CCTK_REAL const PDstandardNth1gzz = PDstandardNth1(&gzz[index]);
-    CCTK_REAL const PDstandardNth2gzz = PDstandardNth2(&gzz[index]);
-    CCTK_REAL const PDstandardNth3gzz = PDstandardNth3(&gzz[index]);
-    CCTK_REAL const PDstandardNth11gzz = PDstandardNth11(&gzz[index]);
-    CCTK_REAL const PDstandardNth22gzz = PDstandardNth22(&gzz[index]);
-    CCTK_REAL const PDstandardNth33gzz = PDstandardNth33(&gzz[index]);
-    CCTK_REAL const PDstandardNth12gzz = PDstandardNth12(&gzz[index]);
-    CCTK_REAL const PDstandardNth13gzz = PDstandardNth13(&gzz[index]);
-    CCTK_REAL const PDstandardNth23gzz = PDstandardNth23(&gzz[index]);
-    CCTK_REAL const PDstandardNth1kxx = PDstandardNth1(&kxx[index]);
-    CCTK_REAL const PDstandardNth2kxx = PDstandardNth2(&kxx[index]);
-    CCTK_REAL const PDstandardNth3kxx = PDstandardNth3(&kxx[index]);
-    CCTK_REAL const PDstandardNth1kxy = PDstandardNth1(&kxy[index]);
-    CCTK_REAL const PDstandardNth2kxy = PDstandardNth2(&kxy[index]);
-    CCTK_REAL const PDstandardNth3kxy = PDstandardNth3(&kxy[index]);
-    CCTK_REAL const PDstandardNth1kxz = PDstandardNth1(&kxz[index]);
-    CCTK_REAL const PDstandardNth2kxz = PDstandardNth2(&kxz[index]);
-    CCTK_REAL const PDstandardNth3kxz = PDstandardNth3(&kxz[index]);
-    CCTK_REAL const PDstandardNth1kyy = PDstandardNth1(&kyy[index]);
-    CCTK_REAL const PDstandardNth2kyy = PDstandardNth2(&kyy[index]);
-    CCTK_REAL const PDstandardNth3kyy = PDstandardNth3(&kyy[index]);
-    CCTK_REAL const PDstandardNth1kyz = PDstandardNth1(&kyz[index]);
-    CCTK_REAL const PDstandardNth2kyz = PDstandardNth2(&kyz[index]);
-    CCTK_REAL const PDstandardNth3kyz = PDstandardNth3(&kyz[index]);
-    CCTK_REAL const PDstandardNth1kzz = PDstandardNth1(&kzz[index]);
-    CCTK_REAL const PDstandardNth2kzz = PDstandardNth2(&kzz[index]);
-    CCTK_REAL const PDstandardNth3kzz = PDstandardNth3(&kzz[index]);
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL JacPDstandardNth11gyy;
-    CCTK_REAL JacPDstandardNth11gyz;
-    CCTK_REAL JacPDstandardNth11gzz;
-    CCTK_REAL JacPDstandardNth12gxx;
-    CCTK_REAL JacPDstandardNth12gxy;
-    CCTK_REAL JacPDstandardNth12gxz;
-    CCTK_REAL JacPDstandardNth12gyy;
-    CCTK_REAL JacPDstandardNth12gyz;
-    CCTK_REAL JacPDstandardNth12gzz;
-    CCTK_REAL JacPDstandardNth13gxx;
-    CCTK_REAL JacPDstandardNth13gxy;
-    CCTK_REAL JacPDstandardNth13gxz;
-    CCTK_REAL JacPDstandardNth13gyy;
-    CCTK_REAL JacPDstandardNth13gyz;
-    CCTK_REAL JacPDstandardNth13gzz;
-    CCTK_REAL JacPDstandardNth1gxx;
-    CCTK_REAL JacPDstandardNth1gxy;
-    CCTK_REAL JacPDstandardNth1gxz;
-    CCTK_REAL JacPDstandardNth1gyy;
-    CCTK_REAL JacPDstandardNth1gyz;
-    CCTK_REAL JacPDstandardNth1gzz;
-    CCTK_REAL JacPDstandardNth1kxy;
-    CCTK_REAL JacPDstandardNth1kxz;
-    CCTK_REAL JacPDstandardNth1kyy;
-    CCTK_REAL JacPDstandardNth1kyz;
-    CCTK_REAL JacPDstandardNth1kzz;
-    CCTK_REAL JacPDstandardNth21gxx;
-    CCTK_REAL JacPDstandardNth21gxy;
-    CCTK_REAL JacPDstandardNth21gxz;
-    CCTK_REAL JacPDstandardNth21gyy;
-    CCTK_REAL JacPDstandardNth21gyz;
-    CCTK_REAL JacPDstandardNth21gzz;
-    CCTK_REAL JacPDstandardNth22gxx;
-    CCTK_REAL JacPDstandardNth22gxz;
-    CCTK_REAL JacPDstandardNth22gzz;
-    CCTK_REAL JacPDstandardNth23gxx;
-    CCTK_REAL JacPDstandardNth23gxy;
-    CCTK_REAL JacPDstandardNth23gxz;
-    CCTK_REAL JacPDstandardNth23gyy;
-    CCTK_REAL JacPDstandardNth23gyz;
-    CCTK_REAL JacPDstandardNth23gzz;
-    CCTK_REAL JacPDstandardNth2gxx;
-    CCTK_REAL JacPDstandardNth2gxy;
-    CCTK_REAL JacPDstandardNth2gxz;
-    CCTK_REAL JacPDstandardNth2gyy;
-    CCTK_REAL JacPDstandardNth2gyz;
-    CCTK_REAL JacPDstandardNth2gzz;
-    CCTK_REAL JacPDstandardNth2kxx;
-    CCTK_REAL JacPDstandardNth2kxy;
-    CCTK_REAL JacPDstandardNth2kxz;
-    CCTK_REAL JacPDstandardNth2kyz;
-    CCTK_REAL JacPDstandardNth2kzz;
-    CCTK_REAL JacPDstandardNth31gxx;
-    CCTK_REAL JacPDstandardNth31gxy;
-    CCTK_REAL JacPDstandardNth31gxz;
-    CCTK_REAL JacPDstandardNth31gyy;
-    CCTK_REAL JacPDstandardNth31gyz;
-    CCTK_REAL JacPDstandardNth31gzz;
-    CCTK_REAL JacPDstandardNth32gxx;
-    CCTK_REAL JacPDstandardNth32gxy;
-    CCTK_REAL JacPDstandardNth32gxz;
-    CCTK_REAL JacPDstandardNth32gyy;
-    CCTK_REAL JacPDstandardNth32gyz;
-    CCTK_REAL JacPDstandardNth32gzz;
-    CCTK_REAL JacPDstandardNth33gxx;
-    CCTK_REAL JacPDstandardNth33gxy;
-    CCTK_REAL JacPDstandardNth33gyy;
-    CCTK_REAL JacPDstandardNth3gxx;
-    CCTK_REAL JacPDstandardNth3gxy;
-    CCTK_REAL JacPDstandardNth3gxz;
-    CCTK_REAL JacPDstandardNth3gyy;
-    CCTK_REAL JacPDstandardNth3gyz;
-    CCTK_REAL JacPDstandardNth3gzz;
-    CCTK_REAL JacPDstandardNth3kxx;
-    CCTK_REAL JacPDstandardNth3kxy;
-    CCTK_REAL JacPDstandardNth3kxz;
-    CCTK_REAL JacPDstandardNth3kyy;
-    CCTK_REAL JacPDstandardNth3kyz;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gxx = J11L*PDstandardNth1gxx + 
-        J21L*PDstandardNth2gxx + J31L*PDstandardNth3gxx;
-      
-      JacPDstandardNth1gxy = J11L*PDstandardNth1gxy + 
-        J21L*PDstandardNth2gxy + J31L*PDstandardNth3gxy;
-      
-      JacPDstandardNth1gxz = J11L*PDstandardNth1gxz + 
-        J21L*PDstandardNth2gxz + J31L*PDstandardNth3gxz;
-      
-      JacPDstandardNth1gyy = J11L*PDstandardNth1gyy + 
-        J21L*PDstandardNth2gyy + J31L*PDstandardNth3gyy;
-      
-      JacPDstandardNth1gyz = J11L*PDstandardNth1gyz + 
-        J21L*PDstandardNth2gyz + J31L*PDstandardNth3gyz;
-      
-      JacPDstandardNth1gzz = J11L*PDstandardNth1gzz + 
-        J21L*PDstandardNth2gzz + J31L*PDstandardNth3gzz;
-      
-      JacPDstandardNth1kxy = J11L*PDstandardNth1kxy + 
-        J21L*PDstandardNth2kxy + J31L*PDstandardNth3kxy;
-      
-      JacPDstandardNth1kxz = J11L*PDstandardNth1kxz + 
-        J21L*PDstandardNth2kxz + J31L*PDstandardNth3kxz;
-      
-      JacPDstandardNth1kyy = J11L*PDstandardNth1kyy + 
-        J21L*PDstandardNth2kyy + J31L*PDstandardNth3kyy;
-      
-      JacPDstandardNth1kyz = J11L*PDstandardNth1kyz + 
-        J21L*PDstandardNth2kyz + J31L*PDstandardNth3kyz;
-      
-      JacPDstandardNth1kzz = J11L*PDstandardNth1kzz + 
-        J21L*PDstandardNth2kzz + J31L*PDstandardNth3kzz;
-      
-      JacPDstandardNth2gxx = J12L*PDstandardNth1gxx + 
-        J22L*PDstandardNth2gxx + J32L*PDstandardNth3gxx;
-      
-      JacPDstandardNth2gxy = J12L*PDstandardNth1gxy + 
-        J22L*PDstandardNth2gxy + J32L*PDstandardNth3gxy;
-      
-      JacPDstandardNth2gxz = J12L*PDstandardNth1gxz + 
-        J22L*PDstandardNth2gxz + J32L*PDstandardNth3gxz;
-      
-      JacPDstandardNth2gyy = J12L*PDstandardNth1gyy + 
-        J22L*PDstandardNth2gyy + J32L*PDstandardNth3gyy;
-      
-      JacPDstandardNth2gyz = J12L*PDstandardNth1gyz + 
-        J22L*PDstandardNth2gyz + J32L*PDstandardNth3gyz;
-      
-      JacPDstandardNth2gzz = J12L*PDstandardNth1gzz + 
-        J22L*PDstandardNth2gzz + J32L*PDstandardNth3gzz;
-      
-      JacPDstandardNth2kxx = J12L*PDstandardNth1kxx + 
-        J22L*PDstandardNth2kxx + J32L*PDstandardNth3kxx;
-      
-      JacPDstandardNth2kxy = J12L*PDstandardNth1kxy + 
-        J22L*PDstandardNth2kxy + J32L*PDstandardNth3kxy;
-      
-      JacPDstandardNth2kxz = J12L*PDstandardNth1kxz + 
-        J22L*PDstandardNth2kxz + J32L*PDstandardNth3kxz;
-      
-      JacPDstandardNth2kyz = J12L*PDstandardNth1kyz + 
-        J22L*PDstandardNth2kyz + J32L*PDstandardNth3kyz;
-      
-      JacPDstandardNth2kzz = J12L*PDstandardNth1kzz + 
-        J22L*PDstandardNth2kzz + J32L*PDstandardNth3kzz;
-      
-      JacPDstandardNth3gxx = J13L*PDstandardNth1gxx + 
-        J23L*PDstandardNth2gxx + J33L*PDstandardNth3gxx;
-      
-      JacPDstandardNth3gxy = J13L*PDstandardNth1gxy + 
-        J23L*PDstandardNth2gxy + J33L*PDstandardNth3gxy;
-      
-      JacPDstandardNth3gxz = J13L*PDstandardNth1gxz + 
-        J23L*PDstandardNth2gxz + J33L*PDstandardNth3gxz;
-      
-      JacPDstandardNth3gyy = J13L*PDstandardNth1gyy + 
-        J23L*PDstandardNth2gyy + J33L*PDstandardNth3gyy;
-      
-      JacPDstandardNth3gyz = J13L*PDstandardNth1gyz + 
-        J23L*PDstandardNth2gyz + J33L*PDstandardNth3gyz;
-      
-      JacPDstandardNth3gzz = J13L*PDstandardNth1gzz + 
-        J23L*PDstandardNth2gzz + J33L*PDstandardNth3gzz;
-      
-      JacPDstandardNth3kxx = J13L*PDstandardNth1kxx + 
-        J23L*PDstandardNth2kxx + J33L*PDstandardNth3kxx;
-      
-      JacPDstandardNth3kxy = J13L*PDstandardNth1kxy + 
-        J23L*PDstandardNth2kxy + J33L*PDstandardNth3kxy;
-      
-      JacPDstandardNth3kxz = J13L*PDstandardNth1kxz + 
-        J23L*PDstandardNth2kxz + J33L*PDstandardNth3kxz;
-      
-      JacPDstandardNth3kyy = J13L*PDstandardNth1kyy + 
-        J23L*PDstandardNth2kyy + J33L*PDstandardNth3kyy;
-      
-      JacPDstandardNth3kyz = J13L*PDstandardNth1kyz + 
-        J23L*PDstandardNth2kyz + J33L*PDstandardNth3kyz;
-      
-      JacPDstandardNth11gyy = dJ111L*PDstandardNth1gyy + 
-        2*(J11L*(J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
-        J21L*J31L*PDstandardNth23gyy) + dJ211L*PDstandardNth2gyy + 
-        dJ311L*PDstandardNth3gyy + PDstandardNth11gyy*SQR(J11L) + 
-        PDstandardNth22gyy*SQR(J21L) + PDstandardNth33gyy*SQR(J31L);
-      
-      JacPDstandardNth11gyz = dJ111L*PDstandardNth1gyz + 
-        2*(J11L*(J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
-        J21L*J31L*PDstandardNth23gyz) + dJ211L*PDstandardNth2gyz + 
-        dJ311L*PDstandardNth3gyz + PDstandardNth11gyz*SQR(J11L) + 
-        PDstandardNth22gyz*SQR(J21L) + PDstandardNth33gyz*SQR(J31L);
-      
-      JacPDstandardNth11gzz = dJ111L*PDstandardNth1gzz + 
-        2*(J11L*(J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
-        J21L*J31L*PDstandardNth23gzz) + dJ211L*PDstandardNth2gzz + 
-        dJ311L*PDstandardNth3gzz + PDstandardNth11gzz*SQR(J11L) + 
-        PDstandardNth22gzz*SQR(J21L) + PDstandardNth33gzz*SQR(J31L);
-      
-      JacPDstandardNth22gxx = dJ122L*PDstandardNth1gxx + 
-        2*(J12L*(J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
-        J22L*J32L*PDstandardNth23gxx) + dJ222L*PDstandardNth2gxx + 
-        dJ322L*PDstandardNth3gxx + PDstandardNth11gxx*SQR(J12L) + 
-        PDstandardNth22gxx*SQR(J22L) + PDstandardNth33gxx*SQR(J32L);
-      
-      JacPDstandardNth22gxz = dJ122L*PDstandardNth1gxz + 
-        2*(J12L*(J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
-        J22L*J32L*PDstandardNth23gxz) + dJ222L*PDstandardNth2gxz + 
-        dJ322L*PDstandardNth3gxz + PDstandardNth11gxz*SQR(J12L) + 
-        PDstandardNth22gxz*SQR(J22L) + PDstandardNth33gxz*SQR(J32L);
-      
-      JacPDstandardNth22gzz = dJ122L*PDstandardNth1gzz + 
-        2*(J12L*(J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
-        J22L*J32L*PDstandardNth23gzz) + dJ222L*PDstandardNth2gzz + 
-        dJ322L*PDstandardNth3gzz + PDstandardNth11gzz*SQR(J12L) + 
-        PDstandardNth22gzz*SQR(J22L) + PDstandardNth33gzz*SQR(J32L);
-      
-      JacPDstandardNth33gxx = dJ133L*PDstandardNth1gxx + 
-        2*(J13L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
-        J23L*J33L*PDstandardNth23gxx) + dJ233L*PDstandardNth2gxx + 
-        dJ333L*PDstandardNth3gxx + PDstandardNth11gxx*SQR(J13L) + 
-        PDstandardNth22gxx*SQR(J23L) + PDstandardNth33gxx*SQR(J33L);
-      
-      JacPDstandardNth33gxy = dJ133L*PDstandardNth1gxy + 
-        2*(J13L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
-        J23L*J33L*PDstandardNth23gxy) + dJ233L*PDstandardNth2gxy + 
-        dJ333L*PDstandardNth3gxy + PDstandardNth11gxy*SQR(J13L) + 
-        PDstandardNth22gxy*SQR(J23L) + PDstandardNth33gxy*SQR(J33L);
-      
-      JacPDstandardNth33gyy = dJ133L*PDstandardNth1gyy + 
-        2*(J13L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
-        J23L*J33L*PDstandardNth23gyy) + dJ233L*PDstandardNth2gyy + 
-        dJ333L*PDstandardNth3gyy + PDstandardNth11gyy*SQR(J13L) + 
-        PDstandardNth22gyy*SQR(J23L) + PDstandardNth33gyy*SQR(J33L);
-      
-      JacPDstandardNth12gxx = J12L*(J11L*PDstandardNth11gxx + 
-        J21L*PDstandardNth12gxx + J31L*PDstandardNth13gxx) + 
-        J11L*(J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
-        dJ112L*PDstandardNth1gxx + J22L*(J21L*PDstandardNth22gxx + 
-        J31L*PDstandardNth23gxx) + dJ212L*PDstandardNth2gxx + 
-        J32L*(J21L*PDstandardNth23gxx + J31L*PDstandardNth33gxx) + 
-        dJ312L*PDstandardNth3gxx;
-      
-      JacPDstandardNth12gxy = J12L*(J11L*PDstandardNth11gxy + 
-        J21L*PDstandardNth12gxy + J31L*PDstandardNth13gxy) + 
-        J11L*(J22L*PDstandardNth12gxy + J32L*PDstandardNth13gxy) + 
-        dJ112L*PDstandardNth1gxy + J22L*(J21L*PDstandardNth22gxy + 
-        J31L*PDstandardNth23gxy) + dJ212L*PDstandardNth2gxy + 
-        J32L*(J21L*PDstandardNth23gxy + J31L*PDstandardNth33gxy) + 
-        dJ312L*PDstandardNth3gxy;
-      
-      JacPDstandardNth12gxz = J12L*(J11L*PDstandardNth11gxz + 
-        J21L*PDstandardNth12gxz + J31L*PDstandardNth13gxz) + 
-        J11L*(J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
-        dJ112L*PDstandardNth1gxz + J22L*(J21L*PDstandardNth22gxz + 
-        J31L*PDstandardNth23gxz) + dJ212L*PDstandardNth2gxz + 
-        J32L*(J21L*PDstandardNth23gxz + J31L*PDstandardNth33gxz) + 
-        dJ312L*PDstandardNth3gxz;
-      
-      JacPDstandardNth12gyy = J12L*(J11L*PDstandardNth11gyy + 
-        J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
-        J11L*(J22L*PDstandardNth12gyy + J32L*PDstandardNth13gyy) + 
-        dJ112L*PDstandardNth1gyy + J22L*(J21L*PDstandardNth22gyy + 
-        J31L*PDstandardNth23gyy) + dJ212L*PDstandardNth2gyy + 
-        J32L*(J21L*PDstandardNth23gyy + J31L*PDstandardNth33gyy) + 
-        dJ312L*PDstandardNth3gyy;
-      
-      JacPDstandardNth12gyz = J12L*(J11L*PDstandardNth11gyz + 
-        J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
-        J11L*(J22L*PDstandardNth12gyz + J32L*PDstandardNth13gyz) + 
-        dJ112L*PDstandardNth1gyz + J22L*(J21L*PDstandardNth22gyz + 
-        J31L*PDstandardNth23gyz) + dJ212L*PDstandardNth2gyz + 
-        J32L*(J21L*PDstandardNth23gyz + J31L*PDstandardNth33gyz) + 
-        dJ312L*PDstandardNth3gyz;
-      
-      JacPDstandardNth12gzz = J12L*(J11L*PDstandardNth11gzz + 
-        J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
-        J11L*(J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
-        dJ112L*PDstandardNth1gzz + J22L*(J21L*PDstandardNth22gzz + 
-        J31L*PDstandardNth23gzz) + dJ212L*PDstandardNth2gzz + 
-        J32L*(J21L*PDstandardNth23gzz + J31L*PDstandardNth33gzz) + 
-        dJ312L*PDstandardNth3gzz;
-      
-      JacPDstandardNth13gxx = J13L*(J11L*PDstandardNth11gxx + 
-        J21L*PDstandardNth12gxx + J31L*PDstandardNth13gxx) + 
-        J11L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
-        dJ113L*PDstandardNth1gxx + J23L*(J21L*PDstandardNth22gxx + 
-        J31L*PDstandardNth23gxx) + dJ213L*PDstandardNth2gxx + 
-        J33L*(J21L*PDstandardNth23gxx + J31L*PDstandardNth33gxx) + 
-        dJ313L*PDstandardNth3gxx;
-      
-      JacPDstandardNth13gxy = J13L*(J11L*PDstandardNth11gxy + 
-        J21L*PDstandardNth12gxy + J31L*PDstandardNth13gxy) + 
-        J11L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
-        dJ113L*PDstandardNth1gxy + J23L*(J21L*PDstandardNth22gxy + 
-        J31L*PDstandardNth23gxy) + dJ213L*PDstandardNth2gxy + 
-        J33L*(J21L*PDstandardNth23gxy + J31L*PDstandardNth33gxy) + 
-        dJ313L*PDstandardNth3gxy;
-      
-      JacPDstandardNth13gxz = J13L*(J11L*PDstandardNth11gxz + 
-        J21L*PDstandardNth12gxz + J31L*PDstandardNth13gxz) + 
-        J11L*(J23L*PDstandardNth12gxz + J33L*PDstandardNth13gxz) + 
-        dJ113L*PDstandardNth1gxz + J23L*(J21L*PDstandardNth22gxz + 
-        J31L*PDstandardNth23gxz) + dJ213L*PDstandardNth2gxz + 
-        J33L*(J21L*PDstandardNth23gxz + J31L*PDstandardNth33gxz) + 
-        dJ313L*PDstandardNth3gxz;
-      
-      JacPDstandardNth13gyy = J13L*(J11L*PDstandardNth11gyy + 
-        J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
-        J11L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
-        dJ113L*PDstandardNth1gyy + J23L*(J21L*PDstandardNth22gyy + 
-        J31L*PDstandardNth23gyy) + dJ213L*PDstandardNth2gyy + 
-        J33L*(J21L*PDstandardNth23gyy + J31L*PDstandardNth33gyy) + 
-        dJ313L*PDstandardNth3gyy;
-      
-      JacPDstandardNth13gyz = J13L*(J11L*PDstandardNth11gyz + 
-        J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
-        J11L*(J23L*PDstandardNth12gyz + J33L*PDstandardNth13gyz) + 
-        dJ113L*PDstandardNth1gyz + J23L*(J21L*PDstandardNth22gyz + 
-        J31L*PDstandardNth23gyz) + dJ213L*PDstandardNth2gyz + 
-        J33L*(J21L*PDstandardNth23gyz + J31L*PDstandardNth33gyz) + 
-        dJ313L*PDstandardNth3gyz;
-      
-      JacPDstandardNth13gzz = J13L*(J11L*PDstandardNth11gzz + 
-        J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
-        J11L*(J23L*PDstandardNth12gzz + J33L*PDstandardNth13gzz) + 
-        dJ113L*PDstandardNth1gzz + J23L*(J21L*PDstandardNth22gzz + 
-        J31L*PDstandardNth23gzz) + dJ213L*PDstandardNth2gzz + 
-        J33L*(J21L*PDstandardNth23gzz + J31L*PDstandardNth33gzz) + 
-        dJ313L*PDstandardNth3gzz;
-      
-      JacPDstandardNth21gxx = J12L*(J11L*PDstandardNth11gxx + 
-        J21L*PDstandardNth12gxx + J31L*PDstandardNth13gxx) + 
-        J11L*(J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
-        dJ112L*PDstandardNth1gxx + J22L*(J21L*PDstandardNth22gxx + 
-        J31L*PDstandardNth23gxx) + dJ212L*PDstandardNth2gxx + 
-        J32L*(J21L*PDstandardNth23gxx + J31L*PDstandardNth33gxx) + 
-        dJ312L*PDstandardNth3gxx;
-      
-      JacPDstandardNth21gxy = J12L*(J11L*PDstandardNth11gxy + 
-        J21L*PDstandardNth12gxy + J31L*PDstandardNth13gxy) + 
-        J11L*(J22L*PDstandardNth12gxy + J32L*PDstandardNth13gxy) + 
-        dJ112L*PDstandardNth1gxy + J22L*(J21L*PDstandardNth22gxy + 
-        J31L*PDstandardNth23gxy) + dJ212L*PDstandardNth2gxy + 
-        J32L*(J21L*PDstandardNth23gxy + J31L*PDstandardNth33gxy) + 
-        dJ312L*PDstandardNth3gxy;
-      
-      JacPDstandardNth21gxz = J12L*(J11L*PDstandardNth11gxz + 
-        J21L*PDstandardNth12gxz + J31L*PDstandardNth13gxz) + 
-        J11L*(J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
-        dJ112L*PDstandardNth1gxz + J22L*(J21L*PDstandardNth22gxz + 
-        J31L*PDstandardNth23gxz) + dJ212L*PDstandardNth2gxz + 
-        J32L*(J21L*PDstandardNth23gxz + J31L*PDstandardNth33gxz) + 
-        dJ312L*PDstandardNth3gxz;
-      
-      JacPDstandardNth21gyy = J12L*(J11L*PDstandardNth11gyy + 
-        J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
-        J11L*(J22L*PDstandardNth12gyy + J32L*PDstandardNth13gyy) + 
-        dJ112L*PDstandardNth1gyy + J22L*(J21L*PDstandardNth22gyy + 
-        J31L*PDstandardNth23gyy) + dJ212L*PDstandardNth2gyy + 
-        J32L*(J21L*PDstandardNth23gyy + J31L*PDstandardNth33gyy) + 
-        dJ312L*PDstandardNth3gyy;
-      
-      JacPDstandardNth21gyz = J12L*(J11L*PDstandardNth11gyz + 
-        J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
-        J11L*(J22L*PDstandardNth12gyz + J32L*PDstandardNth13gyz) + 
-        dJ112L*PDstandardNth1gyz + J22L*(J21L*PDstandardNth22gyz + 
-        J31L*PDstandardNth23gyz) + dJ212L*PDstandardNth2gyz + 
-        J32L*(J21L*PDstandardNth23gyz + J31L*PDstandardNth33gyz) + 
-        dJ312L*PDstandardNth3gyz;
-      
-      JacPDstandardNth21gzz = J12L*(J11L*PDstandardNth11gzz + 
-        J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
-        J11L*(J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
-        dJ112L*PDstandardNth1gzz + J22L*(J21L*PDstandardNth22gzz + 
-        J31L*PDstandardNth23gzz) + dJ212L*PDstandardNth2gzz + 
-        J32L*(J21L*PDstandardNth23gzz + J31L*PDstandardNth33gzz) + 
-        dJ312L*PDstandardNth3gzz;
-      
-      JacPDstandardNth23gxx = J13L*(J12L*PDstandardNth11gxx + 
-        J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
-        J12L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
-        dJ123L*PDstandardNth1gxx + J23L*(J22L*PDstandardNth22gxx + 
-        J32L*PDstandardNth23gxx) + dJ223L*PDstandardNth2gxx + 
-        J33L*(J22L*PDstandardNth23gxx + J32L*PDstandardNth33gxx) + 
-        dJ323L*PDstandardNth3gxx;
-      
-      JacPDstandardNth23gxy = J13L*(J12L*PDstandardNth11gxy + 
-        J22L*PDstandardNth12gxy + J32L*PDstandardNth13gxy) + 
-        J12L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
-        dJ123L*PDstandardNth1gxy + J23L*(J22L*PDstandardNth22gxy + 
-        J32L*PDstandardNth23gxy) + dJ223L*PDstandardNth2gxy + 
-        J33L*(J22L*PDstandardNth23gxy + J32L*PDstandardNth33gxy) + 
-        dJ323L*PDstandardNth3gxy;
-      
-      JacPDstandardNth23gxz = J13L*(J12L*PDstandardNth11gxz + 
-        J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
-        J12L*(J23L*PDstandardNth12gxz + J33L*PDstandardNth13gxz) + 
-        dJ123L*PDstandardNth1gxz + J23L*(J22L*PDstandardNth22gxz + 
-        J32L*PDstandardNth23gxz) + dJ223L*PDstandardNth2gxz + 
-        J33L*(J22L*PDstandardNth23gxz + J32L*PDstandardNth33gxz) + 
-        dJ323L*PDstandardNth3gxz;
-      
-      JacPDstandardNth23gyy = J13L*(J12L*PDstandardNth11gyy + 
-        J22L*PDstandardNth12gyy + J32L*PDstandardNth13gyy) + 
-        J12L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
-        dJ123L*PDstandardNth1gyy + J23L*(J22L*PDstandardNth22gyy + 
-        J32L*PDstandardNth23gyy) + dJ223L*PDstandardNth2gyy + 
-        J33L*(J22L*PDstandardNth23gyy + J32L*PDstandardNth33gyy) + 
-        dJ323L*PDstandardNth3gyy;
-      
-      JacPDstandardNth23gyz = J13L*(J12L*PDstandardNth11gyz + 
-        J22L*PDstandardNth12gyz + J32L*PDstandardNth13gyz) + 
-        J12L*(J23L*PDstandardNth12gyz + J33L*PDstandardNth13gyz) + 
-        dJ123L*PDstandardNth1gyz + J23L*(J22L*PDstandardNth22gyz + 
-        J32L*PDstandardNth23gyz) + dJ223L*PDstandardNth2gyz + 
-        J33L*(J22L*PDstandardNth23gyz + J32L*PDstandardNth33gyz) + 
-        dJ323L*PDstandardNth3gyz;
-      
-      JacPDstandardNth23gzz = J13L*(J12L*PDstandardNth11gzz + 
-        J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
-        J12L*(J23L*PDstandardNth12gzz + J33L*PDstandardNth13gzz) + 
-        dJ123L*PDstandardNth1gzz + J23L*(J22L*PDstandardNth22gzz + 
-        J32L*PDstandardNth23gzz) + dJ223L*PDstandardNth2gzz + 
-        J33L*(J22L*PDstandardNth23gzz + J32L*PDstandardNth33gzz) + 
-        dJ323L*PDstandardNth3gzz;
-      
-      JacPDstandardNth31gxx = J13L*(J11L*PDstandardNth11gxx + 
-        J21L*PDstandardNth12gxx + J31L*PDstandardNth13gxx) + 
-        J11L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
-        dJ113L*PDstandardNth1gxx + J23L*(J21L*PDstandardNth22gxx + 
-        J31L*PDstandardNth23gxx) + dJ213L*PDstandardNth2gxx + 
-        J33L*(J21L*PDstandardNth23gxx + J31L*PDstandardNth33gxx) + 
-        dJ313L*PDstandardNth3gxx;
-      
-      JacPDstandardNth31gxy = J13L*(J11L*PDstandardNth11gxy + 
-        J21L*PDstandardNth12gxy + J31L*PDstandardNth13gxy) + 
-        J11L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
-        dJ113L*PDstandardNth1gxy + J23L*(J21L*PDstandardNth22gxy + 
-        J31L*PDstandardNth23gxy) + dJ213L*PDstandardNth2gxy + 
-        J33L*(J21L*PDstandardNth23gxy + J31L*PDstandardNth33gxy) + 
-        dJ313L*PDstandardNth3gxy;
-      
-      JacPDstandardNth31gxz = J13L*(J11L*PDstandardNth11gxz + 
-        J21L*PDstandardNth12gxz + J31L*PDstandardNth13gxz) + 
-        J11L*(J23L*PDstandardNth12gxz + J33L*PDstandardNth13gxz) + 
-        dJ113L*PDstandardNth1gxz + J23L*(J21L*PDstandardNth22gxz + 
-        J31L*PDstandardNth23gxz) + dJ213L*PDstandardNth2gxz + 
-        J33L*(J21L*PDstandardNth23gxz + J31L*PDstandardNth33gxz) + 
-        dJ313L*PDstandardNth3gxz;
-      
-      JacPDstandardNth31gyy = J13L*(J11L*PDstandardNth11gyy + 
-        J21L*PDstandardNth12gyy + J31L*PDstandardNth13gyy) + 
-        J11L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
-        dJ113L*PDstandardNth1gyy + J23L*(J21L*PDstandardNth22gyy + 
-        J31L*PDstandardNth23gyy) + dJ213L*PDstandardNth2gyy + 
-        J33L*(J21L*PDstandardNth23gyy + J31L*PDstandardNth33gyy) + 
-        dJ313L*PDstandardNth3gyy;
-      
-      JacPDstandardNth31gyz = J13L*(J11L*PDstandardNth11gyz + 
-        J21L*PDstandardNth12gyz + J31L*PDstandardNth13gyz) + 
-        J11L*(J23L*PDstandardNth12gyz + J33L*PDstandardNth13gyz) + 
-        dJ113L*PDstandardNth1gyz + J23L*(J21L*PDstandardNth22gyz + 
-        J31L*PDstandardNth23gyz) + dJ213L*PDstandardNth2gyz + 
-        J33L*(J21L*PDstandardNth23gyz + J31L*PDstandardNth33gyz) + 
-        dJ313L*PDstandardNth3gyz;
-      
-      JacPDstandardNth31gzz = J13L*(J11L*PDstandardNth11gzz + 
-        J21L*PDstandardNth12gzz + J31L*PDstandardNth13gzz) + 
-        J11L*(J23L*PDstandardNth12gzz + J33L*PDstandardNth13gzz) + 
-        dJ113L*PDstandardNth1gzz + J23L*(J21L*PDstandardNth22gzz + 
-        J31L*PDstandardNth23gzz) + dJ213L*PDstandardNth2gzz + 
-        J33L*(J21L*PDstandardNth23gzz + J31L*PDstandardNth33gzz) + 
-        dJ313L*PDstandardNth3gzz;
-      
-      JacPDstandardNth32gxx = J13L*(J12L*PDstandardNth11gxx + 
-        J22L*PDstandardNth12gxx + J32L*PDstandardNth13gxx) + 
-        J12L*(J23L*PDstandardNth12gxx + J33L*PDstandardNth13gxx) + 
-        dJ123L*PDstandardNth1gxx + J23L*(J22L*PDstandardNth22gxx + 
-        J32L*PDstandardNth23gxx) + dJ223L*PDstandardNth2gxx + 
-        J33L*(J22L*PDstandardNth23gxx + J32L*PDstandardNth33gxx) + 
-        dJ323L*PDstandardNth3gxx;
-      
-      JacPDstandardNth32gxy = J13L*(J12L*PDstandardNth11gxy + 
-        J22L*PDstandardNth12gxy + J32L*PDstandardNth13gxy) + 
-        J12L*(J23L*PDstandardNth12gxy + J33L*PDstandardNth13gxy) + 
-        dJ123L*PDstandardNth1gxy + J23L*(J22L*PDstandardNth22gxy + 
-        J32L*PDstandardNth23gxy) + dJ223L*PDstandardNth2gxy + 
-        J33L*(J22L*PDstandardNth23gxy + J32L*PDstandardNth33gxy) + 
-        dJ323L*PDstandardNth3gxy;
-      
-      JacPDstandardNth32gxz = J13L*(J12L*PDstandardNth11gxz + 
-        J22L*PDstandardNth12gxz + J32L*PDstandardNth13gxz) + 
-        J12L*(J23L*PDstandardNth12gxz + J33L*PDstandardNth13gxz) + 
-        dJ123L*PDstandardNth1gxz + J23L*(J22L*PDstandardNth22gxz + 
-        J32L*PDstandardNth23gxz) + dJ223L*PDstandardNth2gxz + 
-        J33L*(J22L*PDstandardNth23gxz + J32L*PDstandardNth33gxz) + 
-        dJ323L*PDstandardNth3gxz;
-      
-      JacPDstandardNth32gyy = J13L*(J12L*PDstandardNth11gyy + 
-        J22L*PDstandardNth12gyy + J32L*PDstandardNth13gyy) + 
-        J12L*(J23L*PDstandardNth12gyy + J33L*PDstandardNth13gyy) + 
-        dJ123L*PDstandardNth1gyy + J23L*(J22L*PDstandardNth22gyy + 
-        J32L*PDstandardNth23gyy) + dJ223L*PDstandardNth2gyy + 
-        J33L*(J22L*PDstandardNth23gyy + J32L*PDstandardNth33gyy) + 
-        dJ323L*PDstandardNth3gyy;
-      
-      JacPDstandardNth32gyz = J13L*(J12L*PDstandardNth11gyz + 
-        J22L*PDstandardNth12gyz + J32L*PDstandardNth13gyz) + 
-        J12L*(J23L*PDstandardNth12gyz + J33L*PDstandardNth13gyz) + 
-        dJ123L*PDstandardNth1gyz + J23L*(J22L*PDstandardNth22gyz + 
-        J32L*PDstandardNth23gyz) + dJ223L*PDstandardNth2gyz + 
-        J33L*(J22L*PDstandardNth23gyz + J32L*PDstandardNth33gyz) + 
-        dJ323L*PDstandardNth3gyz;
-      
-      JacPDstandardNth32gzz = J13L*(J12L*PDstandardNth11gzz + 
-        J22L*PDstandardNth12gzz + J32L*PDstandardNth13gzz) + 
-        J12L*(J23L*PDstandardNth12gzz + J33L*PDstandardNth13gzz) + 
-        dJ123L*PDstandardNth1gzz + J23L*(J22L*PDstandardNth22gzz + 
-        J32L*PDstandardNth23gzz) + dJ223L*PDstandardNth2gzz + 
-        J33L*(J22L*PDstandardNth23gzz + J32L*PDstandardNth33gzz) + 
-        dJ323L*PDstandardNth3gzz;
-    }
-    else
-    {
-      JacPDstandardNth1gxx = PDstandardNth1gxx;
-      
-      JacPDstandardNth1gxy = PDstandardNth1gxy;
-      
-      JacPDstandardNth1gxz = PDstandardNth1gxz;
-      
-      JacPDstandardNth1gyy = PDstandardNth1gyy;
-      
-      JacPDstandardNth1gyz = PDstandardNth1gyz;
-      
-      JacPDstandardNth1gzz = PDstandardNth1gzz;
-      
-      JacPDstandardNth1kxy = PDstandardNth1kxy;
-      
-      JacPDstandardNth1kxz = PDstandardNth1kxz;
-      
-      JacPDstandardNth1kyy = PDstandardNth1kyy;
-      
-      JacPDstandardNth1kyz = PDstandardNth1kyz;
-      
-      JacPDstandardNth1kzz = PDstandardNth1kzz;
-      
-      JacPDstandardNth2gxx = PDstandardNth2gxx;
-      
-      JacPDstandardNth2gxy = PDstandardNth2gxy;
-      
-      JacPDstandardNth2gxz = PDstandardNth2gxz;
-      
-      JacPDstandardNth2gyy = PDstandardNth2gyy;
-      
-      JacPDstandardNth2gyz = PDstandardNth2gyz;
-      
-      JacPDstandardNth2gzz = PDstandardNth2gzz;
-      
-      JacPDstandardNth2kxx = PDstandardNth2kxx;
-      
-      JacPDstandardNth2kxy = PDstandardNth2kxy;
-      
-      JacPDstandardNth2kxz = PDstandardNth2kxz;
-      
-      JacPDstandardNth2kyz = PDstandardNth2kyz;
-      
-      JacPDstandardNth2kzz = PDstandardNth2kzz;
-      
-      JacPDstandardNth3gxx = PDstandardNth3gxx;
-      
-      JacPDstandardNth3gxy = PDstandardNth3gxy;
-      
-      JacPDstandardNth3gxz = PDstandardNth3gxz;
-      
-      JacPDstandardNth3gyy = PDstandardNth3gyy;
-      
-      JacPDstandardNth3gyz = PDstandardNth3gyz;
-      
-      JacPDstandardNth3gzz = PDstandardNth3gzz;
-      
-      JacPDstandardNth3kxx = PDstandardNth3kxx;
-      
-      JacPDstandardNth3kxy = PDstandardNth3kxy;
-      
-      JacPDstandardNth3kxz = PDstandardNth3kxz;
-      
-      JacPDstandardNth3kyy = PDstandardNth3kyy;
-      
-      JacPDstandardNth3kyz = PDstandardNth3kyz;
-      
-      JacPDstandardNth11gyy = PDstandardNth11gyy;
-      
-      JacPDstandardNth11gyz = PDstandardNth11gyz;
-      
-      JacPDstandardNth11gzz = PDstandardNth11gzz;
-      
-      JacPDstandardNth22gxx = PDstandardNth22gxx;
-      
-      JacPDstandardNth22gxz = PDstandardNth22gxz;
-      
-      JacPDstandardNth22gzz = PDstandardNth22gzz;
-      
-      JacPDstandardNth33gxx = PDstandardNth33gxx;
-      
-      JacPDstandardNth33gxy = PDstandardNth33gxy;
-      
-      JacPDstandardNth33gyy = PDstandardNth33gyy;
-      
-      JacPDstandardNth12gxx = PDstandardNth12gxx;
-      
-      JacPDstandardNth12gxy = PDstandardNth12gxy;
-      
-      JacPDstandardNth12gxz = PDstandardNth12gxz;
-      
-      JacPDstandardNth12gyy = PDstandardNth12gyy;
-      
-      JacPDstandardNth12gyz = PDstandardNth12gyz;
-      
-      JacPDstandardNth12gzz = PDstandardNth12gzz;
-      
-      JacPDstandardNth13gxx = PDstandardNth13gxx;
-      
-      JacPDstandardNth13gxy = PDstandardNth13gxy;
-      
-      JacPDstandardNth13gxz = PDstandardNth13gxz;
-      
-      JacPDstandardNth13gyy = PDstandardNth13gyy;
-      
-      JacPDstandardNth13gyz = PDstandardNth13gyz;
-      
-      JacPDstandardNth13gzz = PDstandardNth13gzz;
-      
-      JacPDstandardNth21gxx = PDstandardNth12gxx;
-      
-      JacPDstandardNth21gxy = PDstandardNth12gxy;
-      
-      JacPDstandardNth21gxz = PDstandardNth12gxz;
-      
-      JacPDstandardNth21gyy = PDstandardNth12gyy;
-      
-      JacPDstandardNth21gyz = PDstandardNth12gyz;
-      
-      JacPDstandardNth21gzz = PDstandardNth12gzz;
-      
-      JacPDstandardNth23gxx = PDstandardNth23gxx;
-      
-      JacPDstandardNth23gxy = PDstandardNth23gxy;
-      
-      JacPDstandardNth23gxz = PDstandardNth23gxz;
-      
-      JacPDstandardNth23gyy = PDstandardNth23gyy;
-      
-      JacPDstandardNth23gyz = PDstandardNth23gyz;
-      
-      JacPDstandardNth23gzz = PDstandardNth23gzz;
-      
-      JacPDstandardNth31gxx = PDstandardNth13gxx;
-      
-      JacPDstandardNth31gxy = PDstandardNth13gxy;
-      
-      JacPDstandardNth31gxz = PDstandardNth13gxz;
-      
-      JacPDstandardNth31gyy = PDstandardNth13gyy;
-      
-      JacPDstandardNth31gyz = PDstandardNth13gyz;
-      
-      JacPDstandardNth31gzz = PDstandardNth13gzz;
-      
-      JacPDstandardNth32gxx = PDstandardNth23gxx;
-      
-      JacPDstandardNth32gxy = PDstandardNth23gxy;
-      
-      JacPDstandardNth32gxz = PDstandardNth23gxz;
-      
-      JacPDstandardNth32gyy = PDstandardNth23gyy;
-      
-      JacPDstandardNth32gyz = PDstandardNth23gyz;
-      
-      JacPDstandardNth32gzz = PDstandardNth23gzz;
-    }
-    
-    CCTK_REAL detg = 2*gxyL*gxzL*gyzL + gzzL*(gxxL*gyyL - 
-      SQR(gxyL)) - gyyL*SQR(gxzL) - gxxL*SQR(gyzL);
-    
-    CCTK_REAL gu11 = INV(detg)*(gyyL*gzzL - SQR(gyzL));
-    
-    CCTK_REAL gu21 = (gxzL*gyzL - gxyL*gzzL)*INV(detg);
-    
-    CCTK_REAL gu31 = (-(gxzL*gyyL) + gxyL*gyzL)*INV(detg);
-    
-    CCTK_REAL gu22 = INV(detg)*(gxxL*gzzL - SQR(gxzL));
-    
-    CCTK_REAL gu32 = (gxyL*gxzL - gxxL*gyzL)*INV(detg);
-    
-    CCTK_REAL gu33 = INV(detg)*(gxxL*gyyL - SQR(gxyL));
-    
-    CCTK_REAL G111 = 0.5*(gu11*JacPDstandardNth1gxx + 
-      2*(gu21*JacPDstandardNth1gxy + gu31*JacPDstandardNth1gxz) - 
-      gu21*JacPDstandardNth2gxx - gu31*JacPDstandardNth3gxx);
-    
-    CCTK_REAL G211 = 0.5*(gu21*JacPDstandardNth1gxx + 
-      2*(gu22*JacPDstandardNth1gxy + gu32*JacPDstandardNth1gxz) - 
-      gu22*JacPDstandardNth2gxx - gu32*JacPDstandardNth3gxx);
-    
-    CCTK_REAL G311 = 0.5*(gu31*JacPDstandardNth1gxx + 
-      2*(gu32*JacPDstandardNth1gxy + gu33*JacPDstandardNth1gxz) - 
-      gu32*JacPDstandardNth2gxx - gu33*JacPDstandardNth3gxx);
-    
-    CCTK_REAL G112 = 0.5*(gu21*JacPDstandardNth1gyy + 
-      gu11*JacPDstandardNth2gxx + gu31*(JacPDstandardNth1gyz + 
-      JacPDstandardNth2gxz - JacPDstandardNth3gxy));
-    
-    CCTK_REAL G212 = 0.5*(gu22*JacPDstandardNth1gyy + 
-      gu21*JacPDstandardNth2gxx + gu32*(JacPDstandardNth1gyz + 
-      JacPDstandardNth2gxz - JacPDstandardNth3gxy));
-    
-    CCTK_REAL G312 = 0.5*(gu32*JacPDstandardNth1gyy + 
-      gu31*JacPDstandardNth2gxx + gu33*(JacPDstandardNth1gyz + 
-      JacPDstandardNth2gxz - JacPDstandardNth3gxy));
-    
-    CCTK_REAL G113 = 0.5*(gu31*JacPDstandardNth1gzz + 
-      gu11*JacPDstandardNth3gxx + gu21*(JacPDstandardNth1gyz - 
-      JacPDstandardNth2gxz + JacPDstandardNth3gxy));
-    
-    CCTK_REAL G213 = 0.5*(gu32*JacPDstandardNth1gzz + 
-      gu21*JacPDstandardNth3gxx + gu22*(JacPDstandardNth1gyz - 
-      JacPDstandardNth2gxz + JacPDstandardNth3gxy));
-    
-    CCTK_REAL G313 = 0.5*(gu33*JacPDstandardNth1gzz + 
-      gu31*JacPDstandardNth3gxx + gu32*(JacPDstandardNth1gyz - 
-      JacPDstandardNth2gxz + JacPDstandardNth3gxy));
-    
-    CCTK_REAL G122 = 0.5*(gu11*(-JacPDstandardNth1gyy + 
-      2*JacPDstandardNth2gxy) + gu21*JacPDstandardNth2gyy + 
-      gu31*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy));
-    
-    CCTK_REAL G222 = 0.5*(gu21*(-JacPDstandardNth1gyy + 
-      2*JacPDstandardNth2gxy) + gu22*JacPDstandardNth2gyy + 
-      gu32*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy));
-    
-    CCTK_REAL G322 = 0.5*(gu31*(-JacPDstandardNth1gyy + 
-      2*JacPDstandardNth2gxy) + gu32*JacPDstandardNth2gyy + 
-      gu33*(2*JacPDstandardNth2gyz - JacPDstandardNth3gyy));
-    
-    CCTK_REAL G123 = 0.5*(gu31*JacPDstandardNth2gzz + 
-      gu11*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + 
-      JacPDstandardNth3gxy) + gu21*JacPDstandardNth3gyy);
-    
-    CCTK_REAL G223 = 0.5*(gu32*JacPDstandardNth2gzz + 
-      gu21*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + 
-      JacPDstandardNth3gxy) + gu22*JacPDstandardNth3gyy);
-    
-    CCTK_REAL G323 = 0.5*(gu33*JacPDstandardNth2gzz + 
-      gu31*(-JacPDstandardNth1gyz + JacPDstandardNth2gxz + 
-      JacPDstandardNth3gxy) + gu32*JacPDstandardNth3gyy);
-    
-    CCTK_REAL G133 = 0.5*(gu11*(-JacPDstandardNth1gzz + 
-      2*JacPDstandardNth3gxz) + gu21*(-JacPDstandardNth2gzz + 
-      2*JacPDstandardNth3gyz) + gu31*JacPDstandardNth3gzz);
-    
-    CCTK_REAL G233 = 0.5*(gu21*(-JacPDstandardNth1gzz + 
-      2*JacPDstandardNth3gxz) + gu22*(-JacPDstandardNth2gzz + 
-      2*JacPDstandardNth3gyz) + gu32*JacPDstandardNth3gzz);
-    
-    CCTK_REAL G333 = 0.5*(gu31*(-JacPDstandardNth1gzz + 
-      2*JacPDstandardNth3gxz) + gu32*(-JacPDstandardNth2gzz + 
-      2*JacPDstandardNth3gyz) + gu33*JacPDstandardNth3gzz);
-    
-    CCTK_REAL R11 = 0.5*(gu21*(-JacPDstandardNth12gxx + 
-      JacPDstandardNth21gxx) + gu31*(-JacPDstandardNth13gxx + 
-      JacPDstandardNth31gxx) + gu32*(4*(gxyL*(-(G123*G211) + G113*G212) + 
-      gyyL*(G212*G213 - G211*G223) + gxzL*G113*G312 + gyzL*G212*G313 + 
-      gzzL*G312*G313 + G112*(gxxL*G113 + gxyL*G213 + gxzL*G313) - 
-      G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(-(gxzL*G123) - 
-      gyzL*G223 - gzzL*G323) + gyzL*(G213*G312 - G211*G323)) - 
-      JacPDstandardNth11gyz + JacPDstandardNth21gxz - JacPDstandardNth23gxx + 
-      JacPDstandardNth31gxy) + gu32*(-JacPDstandardNth11gyz + 
-      JacPDstandardNth21gxz + JacPDstandardNth31gxy - JacPDstandardNth32gxx) 
-      + gu22*(-JacPDstandardNth11gyy + 2*JacPDstandardNth21gxy - 
-      JacPDstandardNth22gxx + 2*(2*gyzL*G212*G312 + 2*G112*(gxyL*G212 + 
-      gxzL*G312) - G111*(gxxL*G122 + gxyL*G222 + gxzL*G322) + 
-      G211*(-(gxyL*G122) - gyyL*G222 - gyzL*G322) + 
-      G311*(-(gxzL*G122) - gyzL*G222 - gzzL*G322) + gxxL*SQR(G112) + 
-      gyyL*SQR(G212) + gzzL*SQR(G312))) + gu33*(-JacPDstandardNth11gzz + 
-      2*JacPDstandardNth31gxz - JacPDstandardNth33gxx + 2*(2*gyzL*G213*G313 
-      + 2*G113*(gxyL*G213 + gxzL*G313) - G111*(gxxL*G133 + gxyL*G233 
-      + gxzL*G333) + G211*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
-      G311*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G113) + 
-      gyyL*SQR(G213) + gzzL*SQR(G313))));
-    
-    CCTK_REAL R12 = 0.5*(gu22*(-JacPDstandardNth12gyy + 
-      JacPDstandardNth21gyy) + gu21*(JacPDstandardNth11gyy - 
-      2*JacPDstandardNth12gxy + JacPDstandardNth22gxx) + 
-      gu32*(-2*JacPDstandardNth12gyz + JacPDstandardNth21gyz + 
-      JacPDstandardNth22gxz - JacPDstandardNth23gxy + JacPDstandardNth31gyy) 
-      + gu31*(JacPDstandardNth11gyz - JacPDstandardNth12gxz - 
-      JacPDstandardNth13gxy + JacPDstandardNth32gxx) + 
-      gu33*(-JacPDstandardNth12gzz + JacPDstandardNth31gyz + 
-      JacPDstandardNth32gxz - JacPDstandardNth33gxy) + 2*((gxyL*(G123*G211 
-      - G113*G212) + gyyL*(-(G212*G213) + G211*G223) - G112*(gxxL*G113 + 
-      gxyL*G213 + gxzL*G313) + G312*(-(gxzL*G113) - gyzL*G213 - 
-      gzzL*G313) + G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + 
-      G311*(gxzL*G123 + gyzL*G223 + gzzL*G323) + gyzL*(-(G212*G313) + 
-      G211*G323))*gu31 + (gxyL*(-(G123*G212) + G122*G213) + 
-      gyyL*(G213*G222 - G212*G223) + gxzL*G122*G313 + gyzL*G213*G322 + 
-      gzzL*G313*G322 + G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) - 
-      G112*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G312*(-(gxzL*G123) - 
-      gyzL*G223 - gzzL*G323) + gyzL*(G222*G313 - G212*G323))*gu32 + 
-      (gxyL*(-(G133*G212) + G123*G213) + gyyL*(G213*G223 - G212*G233) + 
-      gxzL*G123*G313 + gyzL*G213*G323 + gzzL*G313*G323 + 
-      G113*(gxxL*G123 + gxyL*G223 + gxzL*G323) - G112*(gxxL*G133 + 
-      gxyL*G233 + gxzL*G333) + G312*(-(gxzL*G133) - gyzL*G233 - 
-      gzzL*G333) + gyzL*(G223*G313 - G212*G333))*gu33 + 
-      gu21*(-2*(gyzL*G212*G312 + G112*(gxyL*G212 + gxzL*G312)) + 
-      G111*(gxxL*G122 + gxyL*G222 + gxzL*G322) + G211*(gxyL*G122 + 
-      gyyL*G222 + gyzL*G322) + G311*(gxzL*G122 + gyzL*G222 + 
-      gzzL*G322) - gxxL*SQR(G112) - gyyL*SQR(G212) - 
-      gzzL*SQR(G312))));
-    
-    CCTK_REAL R13 = 0.5*(gu21*(JacPDstandardNth11gyz - 
-      JacPDstandardNth12gxz - JacPDstandardNth13gxy + JacPDstandardNth23gxx) 
-      + gu22*(-JacPDstandardNth13gyy + JacPDstandardNth21gyz - 
-      JacPDstandardNth22gxz + JacPDstandardNth23gxy) + 
-      gu33*(-JacPDstandardNth13gzz + JacPDstandardNth31gzz) + 
-      gu31*(JacPDstandardNth11gzz - 2*JacPDstandardNth13gxz + 
-      JacPDstandardNth33gxx) + gu32*(-2*JacPDstandardNth13gyz + 
-      JacPDstandardNth21gzz + JacPDstandardNth31gyz - JacPDstandardNth32gxz + 
-      JacPDstandardNth33gxy) + 2*((gxyL*(G123*G211 - G113*G212) + 
-      gyyL*(-(G212*G213) + G211*G223) - G112*(gxxL*G113 + gxyL*G213 + 
-      gxzL*G313) + G312*(-(gxzL*G113) - gyzL*G213 - gzzL*G313) + 
-      G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(gxzL*G123 + 
-      gyzL*G223 + gzzL*G323) + gyzL*(-(G212*G313) + G211*G323))*gu21 + 
-      (gxyL*(G123*G212 - G122*G213) + gyyL*(-(G213*G222) + G212*G223) - 
-      G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) + G313*(-(gxzL*G122) - 
-      gyzL*G222 - gzzL*G322) + G112*(gxxL*G123 + gxyL*G223 + 
-      gxzL*G323) + G312*(gxzL*G123 + gyzL*G223 + gzzL*G323) + 
-      gyzL*(-(G213*G322) + G212*G323))*gu22 + (gxyL*(G133*G212 - 
-      G123*G213) + gyyL*(-(G213*G223) + G212*G233) - G113*(gxxL*G123 + 
-      gxyL*G223 + gxzL*G323) + G313*(-(gxzL*G123) - gyzL*G223 - 
-      gzzL*G323) + G112*(gxxL*G133 + gxyL*G233 + gxzL*G333) + 
-      G312*(gxzL*G133 + gyzL*G233 + gzzL*G333) + gyzL*(-(G213*G323) + 
-      G212*G333))*gu32 + gu31*(-2*(gyzL*G213*G313 + G113*(gxyL*G213 + 
-      gxzL*G313)) + G111*(gxxL*G133 + gxyL*G233 + gxzL*G333) + 
-      G211*(gxyL*G133 + gyyL*G233 + gyzL*G333) + G311*(gxzL*G133 + 
-      gyzL*G233 + gzzL*G333) - gxxL*SQR(G113) - gyyL*SQR(G213) - 
-      gzzL*SQR(G313))));
-    
-    CCTK_REAL R22 = 0.5*(gu21*(JacPDstandardNth12gyy - 
-      JacPDstandardNth21gyy) + gu31*(4*(gxyL*(G123*G212 - G122*G213) + 
-      gyyL*(-(G213*G222) + G212*G223) + gxzL*(G123*G312 - G122*G313) - 
-      G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) + gyzL*(G223*G312 - 
-      G222*G313 - G213*G322) + gyzL*G212*G323 + G112*(gxxL*G123 + 
-      gxyL*G223 + gxzL*G323) + gzzL*(-(G313*G322) + G312*G323)) + 
-      JacPDstandardNth12gyz - JacPDstandardNth13gyy - JacPDstandardNth22gxz + 
-      JacPDstandardNth32gxy) + gu31*(JacPDstandardNth12gyz - 
-      JacPDstandardNth22gxz - JacPDstandardNth31gyy + JacPDstandardNth32gxy) 
-      + gu32*(-JacPDstandardNth23gyy + JacPDstandardNth32gyy) + 
-      gu11*(-JacPDstandardNth11gyy + 2*JacPDstandardNth12gxy - 
-      JacPDstandardNth22gxx + 2*(2*gyzL*G212*G312 + 2*G112*(gxyL*G212 + 
-      gxzL*G312) - G111*(gxxL*G122 + gxyL*G222 + gxzL*G322) + 
-      G211*(-(gxyL*G122) - gyyL*G222 - gyzL*G322) + 
-      G311*(-(gxzL*G122) - gyzL*G222 - gzzL*G322) + gxxL*SQR(G112) + 
-      gyyL*SQR(G212) + gzzL*SQR(G312))) + gu33*(-JacPDstandardNth22gzz + 
-      2*JacPDstandardNth32gyz - JacPDstandardNth33gyy + 2*(2*gyzL*G223*G323 
-      + 2*G123*(gxyL*G223 + gxzL*G323) - G122*(gxxL*G133 + gxyL*G233 
-      + gxzL*G333) + G222*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
-      G322*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G123) + 
-      gyyL*SQR(G223) + gzzL*SQR(G323))));
-    
-    CCTK_REAL R23 = 0.5*(gu11*(-JacPDstandardNth11gyz + 
-      JacPDstandardNth12gxz + JacPDstandardNth13gxy - JacPDstandardNth23gxx) 
-      + gu21*(JacPDstandardNth13gyy - JacPDstandardNth21gyz + 
-      JacPDstandardNth22gxz - JacPDstandardNth23gxy) + 
-      gu33*(-JacPDstandardNth23gzz + JacPDstandardNth32gzz) + 
-      gu31*(JacPDstandardNth12gzz - 2*JacPDstandardNth23gxz - 
-      JacPDstandardNth31gyz + JacPDstandardNth32gxz + JacPDstandardNth33gxy) 
-      + gu32*(JacPDstandardNth22gzz - 2*JacPDstandardNth23gyz + 
-      JacPDstandardNth33gyy) + 2*((gxyL*(-(G123*G211) + G113*G212) + 
-      gyyL*(G212*G213 - G211*G223) + gxzL*G113*G312 + gyzL*G212*G313 + 
-      gzzL*G312*G313 + G112*(gxxL*G113 + gxyL*G213 + gxzL*G313) - 
-      G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(-(gxzL*G123) - 
-      gyzL*G223 - gzzL*G323) + gyzL*(G213*G312 - G211*G323))*gu11 + 
-      (gxyL*(-(G123*G212) + G122*G213) + gyyL*(G213*G222 - G212*G223) + 
-      gxzL*G122*G313 + gyzL*G213*G322 + gzzL*G313*G322 + 
-      G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) - G112*(gxxL*G123 + 
-      gxyL*G223 + gxzL*G323) + G312*(-(gxzL*G123) - gyzL*G223 - 
-      gzzL*G323) + gyzL*(G222*G313 - G212*G323))*gu21 + 
-      (gxyL*(G133*G212 - G123*G213) + gyyL*(-(G213*G223) + G212*G233) - 
-      G113*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G313*(-(gxzL*G123) - 
-      gyzL*G223 - gzzL*G323) + G112*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G312*(gxzL*G133 + gyzL*G233 + gzzL*G333) + 
-      gyzL*(-(G213*G323) + G212*G333))*gu31 + gu32*(-2*(gyzL*G223*G323 + 
-      G123*(gxyL*G223 + gxzL*G323)) + G122*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G222*(gxyL*G133 + gyyL*G233 + gyzL*G333) + 
-      G322*(gxzL*G133 + gyzL*G233 + gzzL*G333) - gxxL*SQR(G123) - 
-      gyyL*SQR(G223) - gzzL*SQR(G323))));
-    
-    CCTK_REAL R33 = 0.5*(gu31*(JacPDstandardNth13gzz - 
-      JacPDstandardNth31gzz) + gu32*(JacPDstandardNth23gzz - 
-      JacPDstandardNth32gzz) + gu21*(4*(gxyL*(-(G133*G212) + G123*G213) + 
-      gyyL*(G213*G223 - G212*G233) + gxzL*G123*G313 + gyzL*G213*G323 + 
-      gzzL*G313*G323 + G113*(gxxL*G123 + gxyL*G223 + gxzL*G323) - 
-      G112*(gxxL*G133 + gxyL*G233 + gxzL*G333) + G312*(-(gxzL*G133) - 
-      gyzL*G233 - gzzL*G333) + gyzL*(G223*G313 - G212*G333)) - 
-      JacPDstandardNth12gzz + JacPDstandardNth13gyz + JacPDstandardNth23gxz - 
-      JacPDstandardNth33gxy) + gu21*(JacPDstandardNth13gyz - 
-      JacPDstandardNth21gzz + JacPDstandardNth23gxz - JacPDstandardNth33gxy) 
-      + gu11*(-JacPDstandardNth11gzz + 2*JacPDstandardNth13gxz - 
-      JacPDstandardNth33gxx + 2*(2*gyzL*G213*G313 + 2*G113*(gxyL*G213 + 
-      gxzL*G313) - G111*(gxxL*G133 + gxyL*G233 + gxzL*G333) + 
-      G211*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
-      G311*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G113) + 
-      gyyL*SQR(G213) + gzzL*SQR(G313))) + gu22*(-JacPDstandardNth22gzz + 
-      2*JacPDstandardNth23gyz - JacPDstandardNth33gyy + 2*(2*gyzL*G223*G323 
-      + 2*G123*(gxyL*G223 + gxzL*G323) - G122*(gxxL*G133 + gxyL*G233 
-      + gxzL*G333) + G222*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
-      G322*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G123) + 
-      gyyL*SQR(G223) + gzzL*SQR(G323))));
-    
-    CCTK_REAL trR = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + 
-      gu32*R23) + gu33*R33;
-    
-    CCTK_REAL Km11 = kxxL*gu11 + kxyL*gu21 + kxzL*gu31;
-    
-    CCTK_REAL Km21 = kxxL*gu21 + kxyL*gu22 + kxzL*gu32;
-    
-    CCTK_REAL Km31 = kxxL*gu31 + kxyL*gu32 + kxzL*gu33;
-    
-    CCTK_REAL Km12 = kxyL*gu11 + kyyL*gu21 + kyzL*gu31;
-    
-    CCTK_REAL Km22 = kxyL*gu21 + kyyL*gu22 + kyzL*gu32;
-    
-    CCTK_REAL Km32 = kxyL*gu31 + kyyL*gu32 + kyzL*gu33;
-    
-    CCTK_REAL Km13 = kxzL*gu11 + kyzL*gu21 + kzzL*gu31;
-    
-    CCTK_REAL Km23 = kxzL*gu21 + kyzL*gu22 + kzzL*gu32;
-    
-    CCTK_REAL Km33 = kxzL*gu31 + kyzL*gu32 + kzzL*gu33;
-    
-    CCTK_REAL trK = Km11 + Km22 + Km33;
-    
-    CCTK_REAL rho = INV(SQR(alpL))*(eTttL - 2*(betayL*eTtyL + 
-      betazL*eTtzL) + 2*(betaxL*(-eTtxL + betayL*eTxyL + 
-      betazL*eTxzL) + betayL*betazL*eTyzL) + eTxxL*SQR(betaxL) 
-      + eTyyL*SQR(betayL) + eTzzL*SQR(betazL));
-    
-    CCTK_REAL S1 = (-eTtxL + betaxL*eTxxL + betayL*eTxyL + 
-      betazL*eTxzL)*INV(alpL);
-    
-    CCTK_REAL S2 = (-eTtyL + betaxL*eTxyL + betayL*eTyyL + 
-      betazL*eTyzL)*INV(alpL);
-    
-    CCTK_REAL S3 = (-eTtzL + betaxL*eTxzL + betayL*eTyzL + 
-      betazL*eTzzL)*INV(alpL);
-    
-    CCTK_REAL HL = -2*(Km12*Km21 + Km13*Km31 + Km23*Km32) - 16*Pi*rho + 
-      trR - SQR(Km11) - SQR(Km22) - SQR(Km33) + SQR(trK);
-    
-    CCTK_REAL M1L = gu21*(-(kxxL*G112) + kyyL*G211 + kxyL*(G111 - 
-      G212) + kyzL*G311 - kxzL*G312 - JacPDstandardNth1kxy + 
-      JacPDstandardNth2kxx) + gu22*(-(kxxL*G122) + kyyL*G212 + 
-      kxyL*(G112 - G222) + kyzL*G312 - kxzL*G322 - JacPDstandardNth1kyy 
-      + JacPDstandardNth2kxy) + gu31*(-(kxxL*G113) + kyzL*G211 - 
-      kxyL*G213 + kzzL*G311 + kxzL*(G111 - G313) - JacPDstandardNth1kxz 
-      + JacPDstandardNth3kxx) + gu32*(kyyL*G213 + kxyL*(G113 - 2*G223) + 
-      kzzL*G312 + kyzL*(G212 + G313) + kxzL*(G112 - 2*G323) - 
-      2*(kxxL*G123 + JacPDstandardNth1kyz) + JacPDstandardNth2kxz + 
-      JacPDstandardNth3kxy) + gu33*(-(kxxL*G133) + kyzL*G213 - 
-      kxyL*G233 + kzzL*G313 + kxzL*(G113 - G333) - JacPDstandardNth1kzz 
-      + JacPDstandardNth3kxz) - 8*Pi*S1;
-    
-    CCTK_REAL M2L = gu11*(kxxL*G112 - kyyL*G211 + kxyL*(-G111 + 
-      G212) - kyzL*G311 + kxzL*G312 + JacPDstandardNth1kxy - 
-      JacPDstandardNth2kxx) + gu21*(kxxL*G122 - kyyL*G212 + kxyL*(-G112 
-      + G222) - kyzL*G312 + kxzL*G322 + JacPDstandardNth1kyy - 
-      JacPDstandardNth2kxy) + gu31*(kxxL*G123 + kxyL*G223 + kzzL*G312 + 
-      kyzL*(G212 - 2*G313) + kxzL*(G112 + G323) + JacPDstandardNth1kyz - 
-      2*(kxyL*G113 + kyyL*G213 + JacPDstandardNth2kxz) + 
-      JacPDstandardNth3kxy) + gu32*(kxzL*G122 - kxyL*G123 - kyyL*G223 + 
-      kzzL*G322 + kyzL*(G222 - G323) - JacPDstandardNth2kyz + 
-      JacPDstandardNth3kyy) + gu33*(kxzL*G123 - kxyL*G133 - kyyL*G233 + 
-      kzzL*G323 + kyzL*(G223 - G333) - JacPDstandardNth2kzz + 
-      JacPDstandardNth3kyz) - 8*Pi*S2;
-    
-    CCTK_REAL M3L = gu11*(kxxL*G113 - kyzL*G211 + kxyL*G213 - 
-      kzzL*G311 + kxzL*(-G111 + G313) + JacPDstandardNth1kxz - 
-      JacPDstandardNth3kxx) + gu21*(kxxL*G123 + kyyL*G213 + kxyL*(G113 
-      + G223) + kyzL*G313 + kxzL*G323 + JacPDstandardNth1kyz + 
-      JacPDstandardNth2kxz - 2*(kxzL*G112 + kyzL*G212 + kzzL*G312 + 
-      JacPDstandardNth3kxy)) + gu31*(kxxL*G133 - kyzL*G213 + kxyL*G233 
-      - kzzL*G313 + kxzL*(-G113 + G333) + JacPDstandardNth1kzz - 
-      JacPDstandardNth3kxz) + gu22*(-(kxzL*G122) + kxyL*G123 + 
-      kyyL*G223 - kzzL*G322 + kyzL*(-G222 + G323) + 
-      JacPDstandardNth2kyz - JacPDstandardNth3kyy) + gu32*(-(kxzL*G123) + 
-      kxyL*G133 + kyyL*G233 - kzzL*G323 + kyzL*(-G223 + G333) + 
-      JacPDstandardNth2kzz - JacPDstandardNth3kyz) - 8*Pi*S3;
-    
-    /* Copy local copies back to grid functions */
-    H[index] = HL;
-    M1[index] = M1L;
-    M2[index] = M2L;
-    M3[index] = M3L;
-  }
-  CCTK_ENDLOOP3(ML_ADMConstraints_MP);
-}
-
-extern "C" void ML_ADMConstraints_MP(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_ADMConstraints_MP_Body");
-  }
-  
-  if (cctk_iteration % ML_ADMConstraints_MP_calc_every != ML_ADMConstraints_MP_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_ADMConstraints_MP::ML_Ham",
-    "ML_ADMConstraints_MP::ML_mom"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_ADMConstraints_MP", 6, groups);
-  
-  GenericFD_EnsureStencilFits(cctkGH, "ML_ADMConstraints_MP", 2, 2, 2);
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_ADMConstraints_MP_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_ADMConstraints_MP_Body");
-  }
-}
diff --git a/ML_ADMConstraints_MP/src/RegisterMoL.cc b/ML_ADMConstraints_MP/src/RegisterMoL.cc
deleted file mode 100644
index 383b3db..0000000
--- a/ML_ADMConstraints_MP/src/RegisterMoL.cc
+++ /dev/null
@@ -1,18 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_ADMConstraints_MP_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_ADMConstraints_MP/src/RegisterSymmetries.cc b/ML_ADMConstraints_MP/src/RegisterSymmetries.cc
deleted file mode 100644
index f6cca33..0000000
--- a/ML_ADMConstraints_MP/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,39 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_ADMConstraints_MP_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_MP::H");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_MP::M1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_MP::M2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_MP::M3");
-  
-}
diff --git a/ML_ADMConstraints_MP/src/Startup.cc b/ML_ADMConstraints_MP/src/Startup.cc
deleted file mode 100644
index 291cf43..0000000
--- a/ML_ADMConstraints_MP/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_ADMConstraints_MP_Startup(void)
-{
-  const char * banner = "ML_ADMConstraints_MP";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_ADMConstraints_MP/src/make.code.defn b/ML_ADMConstraints_MP/src/make.code.defn
deleted file mode 100644
index da1ced9..0000000
--- a/ML_ADMConstraints_MP/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc ML_ADMConstraints_MP.cc Boundaries.cc 
diff --git a/ML_ADMConstraints_O2/configuration.ccl b/ML_ADMConstraints_O2/configuration.ccl
deleted file mode 100644
index 0a66ec2..0000000
--- a/ML_ADMConstraints_O2/configuration.ccl
+++ /dev/null
@@ -1,6 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-OPTIONAL LoopControl
-{
-}
diff --git a/ML_ADMConstraints_O2/interface.ccl b/ML_ADMConstraints_O2/interface.ccl
deleted file mode 100644
index 6e2010a..0000000
--- a/ML_ADMConstraints_O2/interface.ccl
+++ /dev/null
@@ -1,42 +0,0 @@
-# File produced by Kranc
-
-implements: ML_ADMConstraints_O2
-
-inherits:   ADMBase TmunuBase Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL ML_Ham type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  H
-} "ML_Ham"
-
-public:
-CCTK_REAL ML_mom type=GF timelevels=3 tags='tensortypealias="D" tensorweight=0'
-{
-  M1,
-  M2,
-  M3
-} "ML_mom"
diff --git a/ML_ADMConstraints_O2/param.ccl b/ML_ADMConstraints_O2/param.ccl
deleted file mode 100644
index 62e7fd5..0000000
--- a/ML_ADMConstraints_O2/param.ccl
+++ /dev/null
@@ -1,60 +0,0 @@
-# File produced by Kranc
-
-
-shares: GenericFD
-
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_ADMConstraints_O2_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT ML_ADMConstraints_O2_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT ML_ADMConstraints_O2_calc_every "ML_ADMConstraints_O2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_ADMConstraints_O2_calc_offset "ML_ADMConstraints_O2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
diff --git a/ML_ADMConstraints_O2/schedule.ccl b/ML_ADMConstraints_O2/schedule.ccl
deleted file mode 100644
index c1489cb..0000000
--- a/ML_ADMConstraints_O2/schedule.ccl
+++ /dev/null
@@ -1,105 +0,0 @@
-# File produced by Kranc
-
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Ham[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Ham[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Ham[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_mom[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_mom[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_mom[3]
-}
-
-schedule ML_ADMConstraints_O2_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_ADMConstraints_O2_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-schedule group ML_ADMConstraints_O2_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_ADMConstraints_O2"
-
-schedule ML_ADMConstraints_O2 in ML_ADMConstraints_O2_group
-{
-  LANG: C
-  READS:    ADMBase::curv
-  READS:    ADMBase::lapse
-  READS:    ADMBase::metric
-  READS:    ADMBase::shift
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_ADMConstraints_O2::ML_Ham
-  WRITES:   ML_ADMConstraints_O2::ML_mom
-} "ML_ADMConstraints_O2"
-
-schedule ML_ADMConstraints_O2_SelectBCs in ML_ADMConstraints_O2_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_Ham
-  SYNC: ML_mom
-} "ML_ADMConstraints_O2_SelectBCs"
-
-schedule group ApplyBCs as ML_ADMConstraints_O2_ApplyBCs in ML_ADMConstraints_O2_bc_group after ML_ADMConstraints_O2_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_ADMConstraints_O2"
-
-schedule group ML_ADMConstraints_O2_bc_group in ML_ADMConstraints_O2_group after ML_ADMConstraints_O2
-{
-  # no language specified
-} "ML_ADMConstraints_O2"
-
-schedule group ML_ADMConstraints_O2_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_ADMConstraints_O2"
-
-schedule ML_ADMConstraints_O2_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-} "select boundary conditions"
-
-schedule ML_ADMConstraints_O2_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_ADMConstraints_O2_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_ADMConstraints_O2_ApplyBCs in MoL_PostStep after ML_ADMConstraints_O2_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_ADMConstraints_O2/src/Boundaries.cc b/ML_ADMConstraints_O2/src/Boundaries.cc
deleted file mode 100644
index 044e909..0000000
--- a/ML_ADMConstraints_O2/src/Boundaries.cc
+++ /dev/null
@@ -1,41 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_ADMConstraints_O2_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_ADMConstraints_O2_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-*/
-
diff --git a/ML_ADMConstraints_O2/src/Differencing.h b/ML_ADMConstraints_O2/src/Differencing.h
deleted file mode 100644
index 6e7b849..0000000
--- a/ML_ADMConstraints_O2/src/Differencing.h
+++ /dev/null
@@ -1,144 +0,0 @@
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth1(u) ((-KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1o2dx)
-#else
-#  define PDstandardNth1(u) (PDstandardNth1_impl(u,p1o2dx,cdj,cdk))
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1o2dx;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth2(u) ((-KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1o2dy)
-#else
-#  define PDstandardNth2(u) (PDstandardNth2_impl(u,p1o2dy,cdj,cdk))
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1o2dy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth3(u) ((-KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1o2dz)
-#else
-#  define PDstandardNth3(u) (PDstandardNth3_impl(u,p1o2dz,cdj,cdk))
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1o2dz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth11(u) ((-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1odx2)
-#else
-#  define PDstandardNth11(u) (PDstandardNth11_impl(u,p1odx2,cdj,cdk))
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1odx2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth22(u) ((-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1ody2)
-#else
-#  define PDstandardNth22(u) (PDstandardNth22_impl(u,p1ody2,cdj,cdk))
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1ody2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth33(u) ((-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1odz2)
-#else
-#  define PDstandardNth33(u) (PDstandardNth33_impl(u,p1odz2,cdj,cdk))
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1odz2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth12(u) ((KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy)
-#else
-#  define PDstandardNth12(u) (PDstandardNth12_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth13(u) ((KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz)
-#else
-#  define PDstandardNth13(u) (PDstandardNth13_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth21(u) ((KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy)
-#else
-#  define PDstandardNth21(u) (PDstandardNth21_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth23(u) ((KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz)
-#else
-#  define PDstandardNth23(u) (PDstandardNth23_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth31(u) ((KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz)
-#else
-#  define PDstandardNth31(u) (PDstandardNth31_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth32(u) ((KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz)
-#else
-#  define PDstandardNth32(u) (PDstandardNth32_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz;
-}
-#endif
-
diff --git a/ML_ADMConstraints_O2/src/ML_ADMConstraints_O2.cc b/ML_ADMConstraints_O2/src/ML_ADMConstraints_O2.cc
deleted file mode 100644
index d00d9c1..0000000
--- a/ML_ADMConstraints_O2/src/ML_ADMConstraints_O2.cc
+++ /dev/null
@@ -1,538 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-extern "C" void ML_ADMConstraints_O2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMConstraints_O2::ML_Ham","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_ADMConstraints_O2::ML_Ham.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMConstraints_O2::ML_mom","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_ADMConstraints_O2::ML_mom.");
-  return;
-}
-
-static void ML_ADMConstraints_O2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o2dx = 0.5*INV(dx);
-  CCTK_REAL const p1o2dy = 0.5*INV(dy);
-  CCTK_REAL const p1o2dz = 0.5*INV(dz);
-  CCTK_REAL const p1o4dxdy = 0.25*INV(dx*dy);
-  CCTK_REAL const p1o4dxdz = 0.25*INV(dx*dz);
-  CCTK_REAL const p1o4dydz = 0.25*INV(dy*dz);
-  CCTK_REAL const p1odx2 = INV(SQR(dx));
-  CCTK_REAL const p1ody2 = INV(SQR(dy));
-  CCTK_REAL const p1odz2 = INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(ML_ADMConstraints_O2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL alpL = alp[index];
-    CCTK_REAL betaxL = betax[index];
-    CCTK_REAL betayL = betay[index];
-    CCTK_REAL betazL = betaz[index];
-    CCTK_REAL gxxL = gxx[index];
-    CCTK_REAL gxyL = gxy[index];
-    CCTK_REAL gxzL = gxz[index];
-    CCTK_REAL gyyL = gyy[index];
-    CCTK_REAL gyzL = gyz[index];
-    CCTK_REAL gzzL = gzz[index];
-    CCTK_REAL kxxL = kxx[index];
-    CCTK_REAL kxyL = kxy[index];
-    CCTK_REAL kxzL = kxz[index];
-    CCTK_REAL kyyL = kyy[index];
-    CCTK_REAL kyzL = kyz[index];
-    CCTK_REAL kzzL = kzz[index];
-    
-    CCTK_REAL eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = eTtt[index];
-      eTtxL = eTtx[index];
-      eTtyL = eTty[index];
-      eTtzL = eTtz[index];
-      eTxxL = eTxx[index];
-      eTxyL = eTxy[index];
-      eTxzL = eTxz[index];
-      eTyyL = eTyy[index];
-      eTyzL = eTyz[index];
-      eTzzL = eTzz[index];
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL const PDstandardNth1gxx = PDstandardNth1(&gxx[index]);
-    CCTK_REAL const PDstandardNth2gxx = PDstandardNth2(&gxx[index]);
-    CCTK_REAL const PDstandardNth3gxx = PDstandardNth3(&gxx[index]);
-    CCTK_REAL const PDstandardNth22gxx = PDstandardNth22(&gxx[index]);
-    CCTK_REAL const PDstandardNth33gxx = PDstandardNth33(&gxx[index]);
-    CCTK_REAL const PDstandardNth23gxx = PDstandardNth23(&gxx[index]);
-    CCTK_REAL const PDstandardNth1gxy = PDstandardNth1(&gxy[index]);
-    CCTK_REAL const PDstandardNth2gxy = PDstandardNth2(&gxy[index]);
-    CCTK_REAL const PDstandardNth3gxy = PDstandardNth3(&gxy[index]);
-    CCTK_REAL const PDstandardNth33gxy = PDstandardNth33(&gxy[index]);
-    CCTK_REAL const PDstandardNth12gxy = PDstandardNth12(&gxy[index]);
-    CCTK_REAL const PDstandardNth13gxy = PDstandardNth13(&gxy[index]);
-    CCTK_REAL const PDstandardNth23gxy = PDstandardNth23(&gxy[index]);
-    CCTK_REAL const PDstandardNth1gxz = PDstandardNth1(&gxz[index]);
-    CCTK_REAL const PDstandardNth2gxz = PDstandardNth2(&gxz[index]);
-    CCTK_REAL const PDstandardNth3gxz = PDstandardNth3(&gxz[index]);
-    CCTK_REAL const PDstandardNth22gxz = PDstandardNth22(&gxz[index]);
-    CCTK_REAL const PDstandardNth12gxz = PDstandardNth12(&gxz[index]);
-    CCTK_REAL const PDstandardNth13gxz = PDstandardNth13(&gxz[index]);
-    CCTK_REAL const PDstandardNth23gxz = PDstandardNth23(&gxz[index]);
-    CCTK_REAL const PDstandardNth1gyy = PDstandardNth1(&gyy[index]);
-    CCTK_REAL const PDstandardNth2gyy = PDstandardNth2(&gyy[index]);
-    CCTK_REAL const PDstandardNth3gyy = PDstandardNth3(&gyy[index]);
-    CCTK_REAL const PDstandardNth11gyy = PDstandardNth11(&gyy[index]);
-    CCTK_REAL const PDstandardNth33gyy = PDstandardNth33(&gyy[index]);
-    CCTK_REAL const PDstandardNth13gyy = PDstandardNth13(&gyy[index]);
-    CCTK_REAL const PDstandardNth1gyz = PDstandardNth1(&gyz[index]);
-    CCTK_REAL const PDstandardNth2gyz = PDstandardNth2(&gyz[index]);
-    CCTK_REAL const PDstandardNth3gyz = PDstandardNth3(&gyz[index]);
-    CCTK_REAL const PDstandardNth11gyz = PDstandardNth11(&gyz[index]);
-    CCTK_REAL const PDstandardNth12gyz = PDstandardNth12(&gyz[index]);
-    CCTK_REAL const PDstandardNth13gyz = PDstandardNth13(&gyz[index]);
-    CCTK_REAL const PDstandardNth23gyz = PDstandardNth23(&gyz[index]);
-    CCTK_REAL const PDstandardNth1gzz = PDstandardNth1(&gzz[index]);
-    CCTK_REAL const PDstandardNth2gzz = PDstandardNth2(&gzz[index]);
-    CCTK_REAL const PDstandardNth3gzz = PDstandardNth3(&gzz[index]);
-    CCTK_REAL const PDstandardNth11gzz = PDstandardNth11(&gzz[index]);
-    CCTK_REAL const PDstandardNth22gzz = PDstandardNth22(&gzz[index]);
-    CCTK_REAL const PDstandardNth12gzz = PDstandardNth12(&gzz[index]);
-    CCTK_REAL const PDstandardNth2kxx = PDstandardNth2(&kxx[index]);
-    CCTK_REAL const PDstandardNth3kxx = PDstandardNth3(&kxx[index]);
-    CCTK_REAL const PDstandardNth1kxy = PDstandardNth1(&kxy[index]);
-    CCTK_REAL const PDstandardNth2kxy = PDstandardNth2(&kxy[index]);
-    CCTK_REAL const PDstandardNth3kxy = PDstandardNth3(&kxy[index]);
-    CCTK_REAL const PDstandardNth1kxz = PDstandardNth1(&kxz[index]);
-    CCTK_REAL const PDstandardNth2kxz = PDstandardNth2(&kxz[index]);
-    CCTK_REAL const PDstandardNth3kxz = PDstandardNth3(&kxz[index]);
-    CCTK_REAL const PDstandardNth1kyy = PDstandardNth1(&kyy[index]);
-    CCTK_REAL const PDstandardNth3kyy = PDstandardNth3(&kyy[index]);
-    CCTK_REAL const PDstandardNth1kyz = PDstandardNth1(&kyz[index]);
-    CCTK_REAL const PDstandardNth2kyz = PDstandardNth2(&kyz[index]);
-    CCTK_REAL const PDstandardNth3kyz = PDstandardNth3(&kyz[index]);
-    CCTK_REAL const PDstandardNth1kzz = PDstandardNth1(&kzz[index]);
-    CCTK_REAL const PDstandardNth2kzz = PDstandardNth2(&kzz[index]);
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL detg = 2*gxyL*gxzL*gyzL + gzzL*(gxxL*gyyL - 
-      SQR(gxyL)) - gyyL*SQR(gxzL) - gxxL*SQR(gyzL);
-    
-    CCTK_REAL gu11 = INV(detg)*(gyyL*gzzL - SQR(gyzL));
-    
-    CCTK_REAL gu21 = (gxzL*gyzL - gxyL*gzzL)*INV(detg);
-    
-    CCTK_REAL gu31 = (-(gxzL*gyyL) + gxyL*gyzL)*INV(detg);
-    
-    CCTK_REAL gu22 = INV(detg)*(gxxL*gzzL - SQR(gxzL));
-    
-    CCTK_REAL gu32 = (gxyL*gxzL - gxxL*gyzL)*INV(detg);
-    
-    CCTK_REAL gu33 = INV(detg)*(gxxL*gyyL - SQR(gxyL));
-    
-    CCTK_REAL G111 = 0.5*(gu11*PDstandardNth1gxx + 
-      2*(gu21*PDstandardNth1gxy + gu31*PDstandardNth1gxz) - 
-      gu21*PDstandardNth2gxx - gu31*PDstandardNth3gxx);
-    
-    CCTK_REAL G211 = 0.5*(gu21*PDstandardNth1gxx + 
-      2*(gu22*PDstandardNth1gxy + gu32*PDstandardNth1gxz) - 
-      gu22*PDstandardNth2gxx - gu32*PDstandardNth3gxx);
-    
-    CCTK_REAL G311 = 0.5*(gu31*PDstandardNth1gxx + 
-      2*(gu32*PDstandardNth1gxy + gu33*PDstandardNth1gxz) - 
-      gu32*PDstandardNth2gxx - gu33*PDstandardNth3gxx);
-    
-    CCTK_REAL G112 = 0.5*(gu21*PDstandardNth1gyy + gu11*PDstandardNth2gxx 
-      + gu31*(PDstandardNth1gyz + PDstandardNth2gxz - PDstandardNth3gxy));
-    
-    CCTK_REAL G212 = 0.5*(gu22*PDstandardNth1gyy + gu21*PDstandardNth2gxx 
-      + gu32*(PDstandardNth1gyz + PDstandardNth2gxz - PDstandardNth3gxy));
-    
-    CCTK_REAL G312 = 0.5*(gu32*PDstandardNth1gyy + gu31*PDstandardNth2gxx 
-      + gu33*(PDstandardNth1gyz + PDstandardNth2gxz - PDstandardNth3gxy));
-    
-    CCTK_REAL G113 = 0.5*(gu31*PDstandardNth1gzz + gu11*PDstandardNth3gxx 
-      + gu21*(PDstandardNth1gyz - PDstandardNth2gxz + PDstandardNth3gxy));
-    
-    CCTK_REAL G213 = 0.5*(gu32*PDstandardNth1gzz + gu21*PDstandardNth3gxx 
-      + gu22*(PDstandardNth1gyz - PDstandardNth2gxz + PDstandardNth3gxy));
-    
-    CCTK_REAL G313 = 0.5*(gu33*PDstandardNth1gzz + gu31*PDstandardNth3gxx 
-      + gu32*(PDstandardNth1gyz - PDstandardNth2gxz + PDstandardNth3gxy));
-    
-    CCTK_REAL G122 = 0.5*(gu11*(-PDstandardNth1gyy + 2*PDstandardNth2gxy) 
-      + gu21*PDstandardNth2gyy + gu31*(2*PDstandardNth2gyz - 
-      PDstandardNth3gyy));
-    
-    CCTK_REAL G222 = 0.5*(gu21*(-PDstandardNth1gyy + 2*PDstandardNth2gxy) 
-      + gu22*PDstandardNth2gyy + gu32*(2*PDstandardNth2gyz - 
-      PDstandardNth3gyy));
-    
-    CCTK_REAL G322 = 0.5*(gu31*(-PDstandardNth1gyy + 2*PDstandardNth2gxy) 
-      + gu32*PDstandardNth2gyy + gu33*(2*PDstandardNth2gyz - 
-      PDstandardNth3gyy));
-    
-    CCTK_REAL G123 = 0.5*(gu31*PDstandardNth2gzz + 
-      gu11*(-PDstandardNth1gyz + PDstandardNth2gxz + PDstandardNth3gxy) + 
-      gu21*PDstandardNth3gyy);
-    
-    CCTK_REAL G223 = 0.5*(gu32*PDstandardNth2gzz + 
-      gu21*(-PDstandardNth1gyz + PDstandardNth2gxz + PDstandardNth3gxy) + 
-      gu22*PDstandardNth3gyy);
-    
-    CCTK_REAL G323 = 0.5*(gu33*PDstandardNth2gzz + 
-      gu31*(-PDstandardNth1gyz + PDstandardNth2gxz + PDstandardNth3gxy) + 
-      gu32*PDstandardNth3gyy);
-    
-    CCTK_REAL G133 = 0.5*(gu11*(-PDstandardNth1gzz + 2*PDstandardNth3gxz) 
-      + gu21*(-PDstandardNth2gzz + 2*PDstandardNth3gyz) + 
-      gu31*PDstandardNth3gzz);
-    
-    CCTK_REAL G233 = 0.5*(gu21*(-PDstandardNth1gzz + 2*PDstandardNth3gxz) 
-      + gu22*(-PDstandardNth2gzz + 2*PDstandardNth3gyz) + 
-      gu32*PDstandardNth3gzz);
-    
-    CCTK_REAL G333 = 0.5*(gu31*(-PDstandardNth1gzz + 2*PDstandardNth3gxz) 
-      + gu32*(-PDstandardNth2gzz + 2*PDstandardNth3gyz) + 
-      gu33*PDstandardNth3gzz);
-    
-    CCTK_REAL R11 = 0.5*(gu32*(4*(gxyL*(-(G123*G211) + G113*G212) + 
-      gyyL*(G212*G213 - G211*G223) + gxzL*G113*G312 + gyzL*G212*G313 + 
-      gzzL*G312*G313 + G112*(gxxL*G113 + gxyL*G213 + gxzL*G313) - 
-      G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(-(gxzL*G123) - 
-      gyzL*G223 - gzzL*G323) + gyzL*(G213*G312 - G211*G323)) + 
-      2*(-PDstandardNth11gyz + PDstandardNth12gxz + PDstandardNth13gxy - 
-      PDstandardNth23gxx)) + gu22*(-PDstandardNth11gyy + 2*PDstandardNth12gxy 
-      - PDstandardNth22gxx + 2*(2*gyzL*G212*G312 + 2*G112*(gxyL*G212 + 
-      gxzL*G312) - G111*(gxxL*G122 + gxyL*G222 + gxzL*G322) + 
-      G211*(-(gxyL*G122) - gyyL*G222 - gyzL*G322) + 
-      G311*(-(gxzL*G122) - gyzL*G222 - gzzL*G322) + gxxL*SQR(G112) + 
-      gyyL*SQR(G212) + gzzL*SQR(G312))) + gu33*(-PDstandardNth11gzz + 
-      2*PDstandardNth13gxz - PDstandardNth33gxx + 2*(2*gyzL*G213*G313 + 
-      2*G113*(gxyL*G213 + gxzL*G313) - G111*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G211*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
-      G311*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G113) + 
-      gyyL*SQR(G213) + gzzL*SQR(G313))));
-    
-    CCTK_REAL R12 = 0.5*(gu21*(PDstandardNth11gyy - 2*PDstandardNth12gxy + 
-      PDstandardNth22gxx) + gu31*(PDstandardNth11gyz - PDstandardNth12gxz - 
-      PDstandardNth13gxy + PDstandardNth23gxx) + gu32*(-PDstandardNth12gyz + 
-      PDstandardNth13gyy + PDstandardNth22gxz - PDstandardNth23gxy) + 
-      gu33*(-PDstandardNth12gzz + PDstandardNth13gyz + PDstandardNth23gxz - 
-      PDstandardNth33gxy) + 2*((gxyL*(G123*G211 - G113*G212) + 
-      gyyL*(-(G212*G213) + G211*G223) - G112*(gxxL*G113 + gxyL*G213 + 
-      gxzL*G313) + G312*(-(gxzL*G113) - gyzL*G213 - gzzL*G313) + 
-      G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(gxzL*G123 + 
-      gyzL*G223 + gzzL*G323) + gyzL*(-(G212*G313) + G211*G323))*gu31 + 
-      (gxyL*(-(G123*G212) + G122*G213) + gyyL*(G213*G222 - G212*G223) + 
-      gxzL*G122*G313 + gyzL*G213*G322 + gzzL*G313*G322 + 
-      G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) - G112*(gxxL*G123 + 
-      gxyL*G223 + gxzL*G323) + G312*(-(gxzL*G123) - gyzL*G223 - 
-      gzzL*G323) + gyzL*(G222*G313 - G212*G323))*gu32 + 
-      (gxyL*(-(G133*G212) + G123*G213) + gyyL*(G213*G223 - G212*G233) + 
-      gxzL*G123*G313 + gyzL*G213*G323 + gzzL*G313*G323 + 
-      G113*(gxxL*G123 + gxyL*G223 + gxzL*G323) - G112*(gxxL*G133 + 
-      gxyL*G233 + gxzL*G333) + G312*(-(gxzL*G133) - gyzL*G233 - 
-      gzzL*G333) + gyzL*(G223*G313 - G212*G333))*gu33 + 
-      gu21*(-2*(gyzL*G212*G312 + G112*(gxyL*G212 + gxzL*G312)) + 
-      G111*(gxxL*G122 + gxyL*G222 + gxzL*G322) + G211*(gxyL*G122 + 
-      gyyL*G222 + gyzL*G322) + G311*(gxzL*G122 + gyzL*G222 + 
-      gzzL*G322) - gxxL*SQR(G112) - gyyL*SQR(G212) - 
-      gzzL*SQR(G312))));
-    
-    CCTK_REAL R13 = 0.5*(gu21*(PDstandardNth11gyz - PDstandardNth12gxz - 
-      PDstandardNth13gxy + PDstandardNth23gxx) + gu22*(PDstandardNth12gyz - 
-      PDstandardNth13gyy - PDstandardNth22gxz + PDstandardNth23gxy) + 
-      gu31*(PDstandardNth11gzz - 2*PDstandardNth13gxz + PDstandardNth33gxx) + 
-      gu32*(PDstandardNth12gzz - PDstandardNth13gyz - PDstandardNth23gxz + 
-      PDstandardNth33gxy) + 2*((gxyL*(G123*G211 - G113*G212) + 
-      gyyL*(-(G212*G213) + G211*G223) - G112*(gxxL*G113 + gxyL*G213 + 
-      gxzL*G313) + G312*(-(gxzL*G113) - gyzL*G213 - gzzL*G313) + 
-      G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(gxzL*G123 + 
-      gyzL*G223 + gzzL*G323) + gyzL*(-(G212*G313) + G211*G323))*gu21 + 
-      (gxyL*(G123*G212 - G122*G213) + gyyL*(-(G213*G222) + G212*G223) - 
-      G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) + G313*(-(gxzL*G122) - 
-      gyzL*G222 - gzzL*G322) + G112*(gxxL*G123 + gxyL*G223 + 
-      gxzL*G323) + G312*(gxzL*G123 + gyzL*G223 + gzzL*G323) + 
-      gyzL*(-(G213*G322) + G212*G323))*gu22 + (gxyL*(G133*G212 - 
-      G123*G213) + gyyL*(-(G213*G223) + G212*G233) - G113*(gxxL*G123 + 
-      gxyL*G223 + gxzL*G323) + G313*(-(gxzL*G123) - gyzL*G223 - 
-      gzzL*G323) + G112*(gxxL*G133 + gxyL*G233 + gxzL*G333) + 
-      G312*(gxzL*G133 + gyzL*G233 + gzzL*G333) + gyzL*(-(G213*G323) + 
-      G212*G333))*gu32 + gu31*(-2*(gyzL*G213*G313 + G113*(gxyL*G213 + 
-      gxzL*G313)) + G111*(gxxL*G133 + gxyL*G233 + gxzL*G333) + 
-      G211*(gxyL*G133 + gyyL*G233 + gyzL*G333) + G311*(gxzL*G133 + 
-      gyzL*G233 + gzzL*G333) - gxxL*SQR(G113) - gyyL*SQR(G213) - 
-      gzzL*SQR(G313))));
-    
-    CCTK_REAL R22 = 0.5*(gu31*(4*(gxyL*(G123*G212 - G122*G213) + 
-      gyyL*(-(G213*G222) + G212*G223) + gxzL*(G123*G312 - G122*G313) - 
-      G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) + gyzL*(G223*G312 - 
-      G222*G313 - G213*G322) + gyzL*G212*G323 + G112*(gxxL*G123 + 
-      gxyL*G223 + gxzL*G323) + gzzL*(-(G313*G322) + G312*G323)) + 
-      2*(PDstandardNth12gyz - PDstandardNth13gyy - PDstandardNth22gxz + 
-      PDstandardNth23gxy)) + gu11*(-PDstandardNth11gyy + 2*PDstandardNth12gxy 
-      - PDstandardNth22gxx + 2*(2*gyzL*G212*G312 + 2*G112*(gxyL*G212 + 
-      gxzL*G312) - G111*(gxxL*G122 + gxyL*G222 + gxzL*G322) + 
-      G211*(-(gxyL*G122) - gyyL*G222 - gyzL*G322) + 
-      G311*(-(gxzL*G122) - gyzL*G222 - gzzL*G322) + gxxL*SQR(G112) + 
-      gyyL*SQR(G212) + gzzL*SQR(G312))) + gu33*(-PDstandardNth22gzz + 
-      2*PDstandardNth23gyz - PDstandardNth33gyy + 2*(2*gyzL*G223*G323 + 
-      2*G123*(gxyL*G223 + gxzL*G323) - G122*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G222*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
-      G322*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G123) + 
-      gyyL*SQR(G223) + gzzL*SQR(G323))));
-    
-    CCTK_REAL R23 = 0.5*(gu11*(-PDstandardNth11gyz + PDstandardNth12gxz + 
-      PDstandardNth13gxy - PDstandardNth23gxx) + gu21*(-PDstandardNth12gyz + 
-      PDstandardNth13gyy + PDstandardNth22gxz - PDstandardNth23gxy) + 
-      gu31*(PDstandardNth12gzz - PDstandardNth13gyz - PDstandardNth23gxz + 
-      PDstandardNth33gxy) + gu32*(PDstandardNth22gzz - 2*PDstandardNth23gyz + 
-      PDstandardNth33gyy) + 2*((gxyL*(-(G123*G211) + G113*G212) + 
-      gyyL*(G212*G213 - G211*G223) + gxzL*G113*G312 + gyzL*G212*G313 + 
-      gzzL*G312*G313 + G112*(gxxL*G113 + gxyL*G213 + gxzL*G313) - 
-      G111*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G311*(-(gxzL*G123) - 
-      gyzL*G223 - gzzL*G323) + gyzL*(G213*G312 - G211*G323))*gu11 + 
-      (gxyL*(-(G123*G212) + G122*G213) + gyyL*(G213*G222 - G212*G223) + 
-      gxzL*G122*G313 + gyzL*G213*G322 + gzzL*G313*G322 + 
-      G113*(gxxL*G122 + gxyL*G222 + gxzL*G322) - G112*(gxxL*G123 + 
-      gxyL*G223 + gxzL*G323) + G312*(-(gxzL*G123) - gyzL*G223 - 
-      gzzL*G323) + gyzL*(G222*G313 - G212*G323))*gu21 + 
-      (gxyL*(G133*G212 - G123*G213) + gyyL*(-(G213*G223) + G212*G233) - 
-      G113*(gxxL*G123 + gxyL*G223 + gxzL*G323) + G313*(-(gxzL*G123) - 
-      gyzL*G223 - gzzL*G323) + G112*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G312*(gxzL*G133 + gyzL*G233 + gzzL*G333) + 
-      gyzL*(-(G213*G323) + G212*G333))*gu31 + gu32*(-2*(gyzL*G223*G323 + 
-      G123*(gxyL*G223 + gxzL*G323)) + G122*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G222*(gxyL*G133 + gyyL*G233 + gyzL*G333) + 
-      G322*(gxzL*G133 + gyzL*G233 + gzzL*G333) - gxxL*SQR(G123) - 
-      gyyL*SQR(G223) - gzzL*SQR(G323))));
-    
-    CCTK_REAL R33 = 0.5*(gu21*(4*(gxyL*(-(G133*G212) + G123*G213) + 
-      gyyL*(G213*G223 - G212*G233) + gxzL*G123*G313 + gyzL*G213*G323 + 
-      gzzL*G313*G323 + G113*(gxxL*G123 + gxyL*G223 + gxzL*G323) - 
-      G112*(gxxL*G133 + gxyL*G233 + gxzL*G333) + G312*(-(gxzL*G133) - 
-      gyzL*G233 - gzzL*G333) + gyzL*(G223*G313 - G212*G333)) + 
-      2*(-PDstandardNth12gzz + PDstandardNth13gyz + PDstandardNth23gxz - 
-      PDstandardNth33gxy)) + gu11*(-PDstandardNth11gzz + 2*PDstandardNth13gxz 
-      - PDstandardNth33gxx + 2*(2*gyzL*G213*G313 + 2*G113*(gxyL*G213 + 
-      gxzL*G313) - G111*(gxxL*G133 + gxyL*G233 + gxzL*G333) + 
-      G211*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
-      G311*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G113) + 
-      gyyL*SQR(G213) + gzzL*SQR(G313))) + gu22*(-PDstandardNth22gzz + 
-      2*PDstandardNth23gyz - PDstandardNth33gyy + 2*(2*gyzL*G223*G323 + 
-      2*G123*(gxyL*G223 + gxzL*G323) - G122*(gxxL*G133 + gxyL*G233 + 
-      gxzL*G333) + G222*(-(gxyL*G133) - gyyL*G233 - gyzL*G333) + 
-      G322*(-(gxzL*G133) - gyzL*G233 - gzzL*G333) + gxxL*SQR(G123) + 
-      gyyL*SQR(G223) + gzzL*SQR(G323))));
-    
-    CCTK_REAL trR = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + 
-      gu32*R23) + gu33*R33;
-    
-    CCTK_REAL Km11 = kxxL*gu11 + kxyL*gu21 + kxzL*gu31;
-    
-    CCTK_REAL Km21 = kxxL*gu21 + kxyL*gu22 + kxzL*gu32;
-    
-    CCTK_REAL Km31 = kxxL*gu31 + kxyL*gu32 + kxzL*gu33;
-    
-    CCTK_REAL Km12 = kxyL*gu11 + kyyL*gu21 + kyzL*gu31;
-    
-    CCTK_REAL Km22 = kxyL*gu21 + kyyL*gu22 + kyzL*gu32;
-    
-    CCTK_REAL Km32 = kxyL*gu31 + kyyL*gu32 + kyzL*gu33;
-    
-    CCTK_REAL Km13 = kxzL*gu11 + kyzL*gu21 + kzzL*gu31;
-    
-    CCTK_REAL Km23 = kxzL*gu21 + kyzL*gu22 + kzzL*gu32;
-    
-    CCTK_REAL Km33 = kxzL*gu31 + kyzL*gu32 + kzzL*gu33;
-    
-    CCTK_REAL trK = Km11 + Km22 + Km33;
-    
-    CCTK_REAL rho = INV(SQR(alpL))*(eTttL - 2*(betayL*eTtyL + 
-      betazL*eTtzL) + 2*(betaxL*(-eTtxL + betayL*eTxyL + 
-      betazL*eTxzL) + betayL*betazL*eTyzL) + eTxxL*SQR(betaxL) 
-      + eTyyL*SQR(betayL) + eTzzL*SQR(betazL));
-    
-    CCTK_REAL S1 = (-eTtxL + betaxL*eTxxL + betayL*eTxyL + 
-      betazL*eTxzL)*INV(alpL);
-    
-    CCTK_REAL S2 = (-eTtyL + betaxL*eTxyL + betayL*eTyyL + 
-      betazL*eTyzL)*INV(alpL);
-    
-    CCTK_REAL S3 = (-eTtzL + betaxL*eTxzL + betayL*eTyzL + 
-      betazL*eTzzL)*INV(alpL);
-    
-    CCTK_REAL HL = -2*(Km12*Km21 + Km13*Km31 + Km23*Km32) - 16*Pi*rho + 
-      trR - SQR(Km11) - SQR(Km22) - SQR(Km33) + SQR(trK);
-    
-    CCTK_REAL M1L = gu21*(-(kxxL*G112) + kyyL*G211 + kxyL*(G111 - 
-      G212) + kyzL*G311 - kxzL*G312 - PDstandardNth1kxy + 
-      PDstandardNth2kxx) + gu22*(-(kxxL*G122) + kyyL*G212 + kxyL*(G112 
-      - G222) + kyzL*G312 - kxzL*G322 - PDstandardNth1kyy + 
-      PDstandardNth2kxy) + gu31*(-(kxxL*G113) + kyzL*G211 - kxyL*G213 + 
-      kzzL*G311 + kxzL*(G111 - G313) - PDstandardNth1kxz + 
-      PDstandardNth3kxx) + gu32*(kyyL*G213 + kxyL*(G113 - 2*G223) + 
-      kzzL*G312 + kyzL*(G212 + G313) + kxzL*(G112 - 2*G323) - 
-      2*(kxxL*G123 + PDstandardNth1kyz) + PDstandardNth2kxz + 
-      PDstandardNth3kxy) + gu33*(-(kxxL*G133) + kyzL*G213 - kxyL*G233 + 
-      kzzL*G313 + kxzL*(G113 - G333) - PDstandardNth1kzz + 
-      PDstandardNth3kxz) - 8*Pi*S1;
-    
-    CCTK_REAL M2L = gu11*(kxxL*G112 - kyyL*G211 + kxyL*(-G111 + 
-      G212) - kyzL*G311 + kxzL*G312 + PDstandardNth1kxy - 
-      PDstandardNth2kxx) + gu21*(kxxL*G122 - kyyL*G212 + kxyL*(-G112 + 
-      G222) - kyzL*G312 + kxzL*G322 + PDstandardNth1kyy - 
-      PDstandardNth2kxy) + gu31*(kxxL*G123 + kxyL*G223 + kzzL*G312 + 
-      kyzL*(G212 - 2*G313) + kxzL*(G112 + G323) + PDstandardNth1kyz - 
-      2*(kxyL*G113 + kyyL*G213 + PDstandardNth2kxz) + PDstandardNth3kxy) 
-      + gu32*(kxzL*G122 - kxyL*G123 - kyyL*G223 + kzzL*G322 + 
-      kyzL*(G222 - G323) - PDstandardNth2kyz + PDstandardNth3kyy) + 
-      gu33*(kxzL*G123 - kxyL*G133 - kyyL*G233 + kzzL*G323 + 
-      kyzL*(G223 - G333) - PDstandardNth2kzz + PDstandardNth3kyz) - 
-      8*Pi*S2;
-    
-    CCTK_REAL M3L = gu11*(kxxL*G113 - kyzL*G211 + kxyL*G213 - 
-      kzzL*G311 + kxzL*(-G111 + G313) + PDstandardNth1kxz - 
-      PDstandardNth3kxx) + gu21*(kxxL*G123 + kyyL*G213 + kxyL*(G113 + 
-      G223) + kyzL*G313 + kxzL*G323 + PDstandardNth1kyz + 
-      PDstandardNth2kxz - 2*(kxzL*G112 + kyzL*G212 + kzzL*G312 + 
-      PDstandardNth3kxy)) + gu31*(kxxL*G133 - kyzL*G213 + kxyL*G233 - 
-      kzzL*G313 + kxzL*(-G113 + G333) + PDstandardNth1kzz - 
-      PDstandardNth3kxz) + gu22*(-(kxzL*G122) + kxyL*G123 + kyyL*G223 - 
-      kzzL*G322 + kyzL*(-G222 + G323) + PDstandardNth2kyz - 
-      PDstandardNth3kyy) + gu32*(-(kxzL*G123) + kxyL*G133 + kyyL*G233 - 
-      kzzL*G323 + kyzL*(-G223 + G333) + PDstandardNth2kzz - 
-      PDstandardNth3kyz) - 8*Pi*S3;
-    
-    /* Copy local copies back to grid functions */
-    H[index] = HL;
-    M1[index] = M1L;
-    M2[index] = M2L;
-    M3[index] = M3L;
-  }
-  CCTK_ENDLOOP3(ML_ADMConstraints_O2);
-}
-
-extern "C" void ML_ADMConstraints_O2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_ADMConstraints_O2_Body");
-  }
-  
-  if (cctk_iteration % ML_ADMConstraints_O2_calc_every != ML_ADMConstraints_O2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_ADMConstraints_O2::ML_Ham",
-    "ML_ADMConstraints_O2::ML_mom"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_ADMConstraints_O2", 6, groups);
-  
-  GenericFD_EnsureStencilFits(cctkGH, "ML_ADMConstraints_O2", 1, 1, 1);
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_ADMConstraints_O2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_ADMConstraints_O2_Body");
-  }
-}
diff --git a/ML_ADMConstraints_O2/src/RegisterMoL.cc b/ML_ADMConstraints_O2/src/RegisterMoL.cc
deleted file mode 100644
index a65c77b..0000000
--- a/ML_ADMConstraints_O2/src/RegisterMoL.cc
+++ /dev/null
@@ -1,18 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_ADMConstraints_O2_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_ADMConstraints_O2/src/RegisterSymmetries.cc b/ML_ADMConstraints_O2/src/RegisterSymmetries.cc
deleted file mode 100644
index a7e067d..0000000
--- a/ML_ADMConstraints_O2/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,39 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_ADMConstraints_O2_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_O2::H");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_O2::M1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_O2::M2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_O2::M3");
-  
-}
diff --git a/ML_ADMConstraints_O2/src/Startup.cc b/ML_ADMConstraints_O2/src/Startup.cc
deleted file mode 100644
index 5e66b49..0000000
--- a/ML_ADMConstraints_O2/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_ADMConstraints_O2_Startup(void)
-{
-  const char * banner = "ML_ADMConstraints_O2";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_ADMConstraints_O2/src/make.code.defn b/ML_ADMConstraints_O2/src/make.code.defn
deleted file mode 100644
index 751150b..0000000
--- a/ML_ADMConstraints_O2/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc ML_ADMConstraints_O2.cc Boundaries.cc 
diff --git a/ML_ADMQuantities/param.ccl b/ML_ADMQuantities/param.ccl
index cdd87d8..ebb4f66 100644
--- a/ML_ADMQuantities/param.ccl
+++ b/ML_ADMQuantities/param.ccl
@@ -3,6 +3,9 @@
 
 shares: GenericFD
 
+USES CCTK_STRING jacobian_group
+USES CCTK_STRING jacobian_derivative_group
+USES CCTK_INT jacobian_identity_map
 
 
 shares: MethodOfLines
diff --git a/ML_ADMQuantities/schedule.ccl b/ML_ADMQuantities/schedule.ccl
index cd3e5dd..5253582 100644
--- a/ML_ADMQuantities/schedule.ccl
+++ b/ML_ADMQuantities/schedule.ccl
@@ -47,20 +47,44 @@ schedule group ML_ADMQuantities_group in MoL_PseudoEvolution after MoL_PostStep
 schedule ML_ADMQuantities in ML_ADMQuantities_group
 {
   LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_Gamma
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_log_confac
-  READS:    ML_BSSN::ML_metric
-  READS:    ML_BSSN::ML_shift
-  READS:    ML_BSSN::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_ADMQuantities::ML_Jadm
-  WRITES:   ML_ADMQuantities::ML_Madm
+  READS:    ML_BSSN::alpha
+  READS:    ML_BSSN::At11
+  READS:    ML_BSSN::At12
+  READS:    ML_BSSN::At13
+  READS:    ML_BSSN::At22
+  READS:    ML_BSSN::At23
+  READS:    ML_BSSN::At33
+  READS:    ML_BSSN::beta1
+  READS:    ML_BSSN::beta2
+  READS:    ML_BSSN::beta3
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ML_BSSN::gt11
+  READS:    ML_BSSN::gt12
+  READS:    ML_BSSN::gt13
+  READS:    ML_BSSN::gt22
+  READS:    ML_BSSN::gt23
+  READS:    ML_BSSN::gt33
+  READS:    ML_BSSN::phi
+  READS:    ML_BSSN::trK
+  READS:    grid::x
+  READS:    ML_BSSN::Xt1
+  READS:    ML_BSSN::Xt2
+  READS:    ML_BSSN::Xt3
+  READS:    grid::y
+  READS:    grid::z
+  WRITES:   ML_ADMQuantities::Jadm1
+  WRITES:   ML_ADMQuantities::Jadm2
+  WRITES:   ML_ADMQuantities::Jadm3
+  WRITES:   ML_ADMQuantities::Madm
 } "ML_ADMQuantities"
 
 schedule ML_ADMQuantities_SelectBCs in ML_ADMQuantities_bc_group
diff --git a/ML_ADMQuantities/src/ML_ADMQuantities.cc b/ML_ADMQuantities/src/ML_ADMQuantities.cc
index 4bf679f..49cf80c 100644
--- a/ML_ADMQuantities/src/ML_ADMQuantities.cc
+++ b/ML_ADMQuantities/src/ML_ADMQuantities.cc
@@ -83,6 +83,51 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d
   CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy));
   CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz));
   
+  /* Jacobian variable pointers */
+  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
+                       && strlen(jacobian_group) > 0;
+  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
+  {
+    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
+  }
+  
+  CCTK_REAL const *restrict jacobian_ptrs[9];
+  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
+                                                9, jacobian_ptrs);
+  
+  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
+  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
+  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
+  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
+  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
+  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
+  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
+  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
+  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
+  
+  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
+  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
+                                                18, jacobian_derivative_ptrs);
+  
+  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
+  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
+  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
+  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
+  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
+  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
+  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
+  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
+  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
+  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
+  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
+  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
+  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
+  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
+  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
+  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
+  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
+  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
+  
   /* Assign local copies of arrays functions */
   
   
@@ -155,6 +200,39 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d
       eTzzL = ToReal(0.0);
     }
     
+    CCTK_REAL dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
+    
+    if (use_jacobian)
+    {
+      dJ111L = dJ111[index];
+      dJ112L = dJ112[index];
+      dJ113L = dJ113[index];
+      dJ122L = dJ122[index];
+      dJ123L = dJ123[index];
+      dJ133L = dJ133[index];
+      dJ211L = dJ211[index];
+      dJ212L = dJ212[index];
+      dJ213L = dJ213[index];
+      dJ222L = dJ222[index];
+      dJ223L = dJ223[index];
+      dJ233L = dJ233[index];
+      dJ311L = dJ311[index];
+      dJ312L = dJ312[index];
+      dJ313L = dJ313[index];
+      dJ322L = dJ322[index];
+      dJ323L = dJ323[index];
+      dJ333L = dJ333[index];
+      J11L = J11[index];
+      J12L = J12[index];
+      J13L = J13[index];
+      J21L = J21[index];
+      J22L = J22[index];
+      J23L = J23[index];
+      J31L = J31[index];
+      J32L = J32[index];
+      J33L = J33[index];
+    }
+    
     /* Include user supplied include files */
     
     /* Precompute derivatives */
@@ -226,6 +304,750 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d
     CCTK_REAL const PDstandardNth3Xt3 = PDstandardNth3(&Xt3[index]);
     
     /* Calculate temporaries and grid functions */
+    CCTK_REAL JacPDstandardNth11gt11;
+    CCTK_REAL JacPDstandardNth11gt12;
+    CCTK_REAL JacPDstandardNth11gt13;
+    CCTK_REAL JacPDstandardNth11gt22;
+    CCTK_REAL JacPDstandardNth11gt23;
+    CCTK_REAL JacPDstandardNth11gt33;
+    CCTK_REAL JacPDstandardNth12gt11;
+    CCTK_REAL JacPDstandardNth12gt12;
+    CCTK_REAL JacPDstandardNth12gt13;
+    CCTK_REAL JacPDstandardNth12gt22;
+    CCTK_REAL JacPDstandardNth12gt23;
+    CCTK_REAL JacPDstandardNth12gt33;
+    CCTK_REAL JacPDstandardNth13gt11;
+    CCTK_REAL JacPDstandardNth13gt12;
+    CCTK_REAL JacPDstandardNth13gt13;
+    CCTK_REAL JacPDstandardNth13gt22;
+    CCTK_REAL JacPDstandardNth13gt23;
+    CCTK_REAL JacPDstandardNth13gt33;
+    CCTK_REAL JacPDstandardNth1gt11;
+    CCTK_REAL JacPDstandardNth1gt12;
+    CCTK_REAL JacPDstandardNth1gt13;
+    CCTK_REAL JacPDstandardNth1gt22;
+    CCTK_REAL JacPDstandardNth1gt23;
+    CCTK_REAL JacPDstandardNth1gt33;
+    CCTK_REAL JacPDstandardNth1trK;
+    CCTK_REAL JacPDstandardNth1Xt1;
+    CCTK_REAL JacPDstandardNth1Xt2;
+    CCTK_REAL JacPDstandardNth1Xt3;
+    CCTK_REAL JacPDstandardNth21gt11;
+    CCTK_REAL JacPDstandardNth21gt12;
+    CCTK_REAL JacPDstandardNth21gt13;
+    CCTK_REAL JacPDstandardNth21gt22;
+    CCTK_REAL JacPDstandardNth21gt23;
+    CCTK_REAL JacPDstandardNth21gt33;
+    CCTK_REAL JacPDstandardNth22gt11;
+    CCTK_REAL JacPDstandardNth22gt12;
+    CCTK_REAL JacPDstandardNth22gt13;
+    CCTK_REAL JacPDstandardNth22gt22;
+    CCTK_REAL JacPDstandardNth22gt23;
+    CCTK_REAL JacPDstandardNth22gt33;
+    CCTK_REAL JacPDstandardNth23gt11;
+    CCTK_REAL JacPDstandardNth23gt12;
+    CCTK_REAL JacPDstandardNth23gt13;
+    CCTK_REAL JacPDstandardNth23gt22;
+    CCTK_REAL JacPDstandardNth23gt23;
+    CCTK_REAL JacPDstandardNth23gt33;
+    CCTK_REAL JacPDstandardNth2gt11;
+    CCTK_REAL JacPDstandardNth2gt12;
+    CCTK_REAL JacPDstandardNth2gt13;
+    CCTK_REAL JacPDstandardNth2gt22;
+    CCTK_REAL JacPDstandardNth2gt23;
+    CCTK_REAL JacPDstandardNth2gt33;
+    CCTK_REAL JacPDstandardNth2trK;
+    CCTK_REAL JacPDstandardNth2Xt1;
+    CCTK_REAL JacPDstandardNth2Xt2;
+    CCTK_REAL JacPDstandardNth2Xt3;
+    CCTK_REAL JacPDstandardNth31gt11;
+    CCTK_REAL JacPDstandardNth31gt12;
+    CCTK_REAL JacPDstandardNth31gt13;
+    CCTK_REAL JacPDstandardNth31gt22;
+    CCTK_REAL JacPDstandardNth31gt23;
+    CCTK_REAL JacPDstandardNth31gt33;
+    CCTK_REAL JacPDstandardNth32gt11;
+    CCTK_REAL JacPDstandardNth32gt12;
+    CCTK_REAL JacPDstandardNth32gt13;
+    CCTK_REAL JacPDstandardNth32gt22;
+    CCTK_REAL JacPDstandardNth32gt23;
+    CCTK_REAL JacPDstandardNth32gt33;
+    CCTK_REAL JacPDstandardNth33gt11;
+    CCTK_REAL JacPDstandardNth33gt12;
+    CCTK_REAL JacPDstandardNth33gt13;
+    CCTK_REAL JacPDstandardNth33gt22;
+    CCTK_REAL JacPDstandardNth33gt23;
+    CCTK_REAL JacPDstandardNth33gt33;
+    CCTK_REAL JacPDstandardNth3gt11;
+    CCTK_REAL JacPDstandardNth3gt12;
+    CCTK_REAL JacPDstandardNth3gt13;
+    CCTK_REAL JacPDstandardNth3gt22;
+    CCTK_REAL JacPDstandardNth3gt23;
+    CCTK_REAL JacPDstandardNth3gt33;
+    CCTK_REAL JacPDstandardNth3trK;
+    CCTK_REAL JacPDstandardNth3Xt1;
+    CCTK_REAL JacPDstandardNth3Xt2;
+    CCTK_REAL JacPDstandardNth3Xt3;
+    
+    if (use_jacobian)
+    {
+      JacPDstandardNth1gt11 = J11L*PDstandardNth1gt11 + 
+        J21L*PDstandardNth2gt11 + J31L*PDstandardNth3gt11;
+      
+      JacPDstandardNth1gt12 = J11L*PDstandardNth1gt12 + 
+        J21L*PDstandardNth2gt12 + J31L*PDstandardNth3gt12;
+      
+      JacPDstandardNth1gt13 = J11L*PDstandardNth1gt13 + 
+        J21L*PDstandardNth2gt13 + J31L*PDstandardNth3gt13;
+      
+      JacPDstandardNth1gt22 = J11L*PDstandardNth1gt22 + 
+        J21L*PDstandardNth2gt22 + J31L*PDstandardNth3gt22;
+      
+      JacPDstandardNth1gt23 = J11L*PDstandardNth1gt23 + 
+        J21L*PDstandardNth2gt23 + J31L*PDstandardNth3gt23;
+      
+      JacPDstandardNth1gt33 = J11L*PDstandardNth1gt33 + 
+        J21L*PDstandardNth2gt33 + J31L*PDstandardNth3gt33;
+      
+      JacPDstandardNth1trK = J11L*PDstandardNth1trK + 
+        J21L*PDstandardNth2trK + J31L*PDstandardNth3trK;
+      
+      JacPDstandardNth1Xt1 = J11L*PDstandardNth1Xt1 + 
+        J21L*PDstandardNth2Xt1 + J31L*PDstandardNth3Xt1;
+      
+      JacPDstandardNth1Xt2 = J11L*PDstandardNth1Xt2 + 
+        J21L*PDstandardNth2Xt2 + J31L*PDstandardNth3Xt2;
+      
+      JacPDstandardNth1Xt3 = J11L*PDstandardNth1Xt3 + 
+        J21L*PDstandardNth2Xt3 + J31L*PDstandardNth3Xt3;
+      
+      JacPDstandardNth2gt11 = J12L*PDstandardNth1gt11 + 
+        J22L*PDstandardNth2gt11 + J32L*PDstandardNth3gt11;
+      
+      JacPDstandardNth2gt12 = J12L*PDstandardNth1gt12 + 
+        J22L*PDstandardNth2gt12 + J32L*PDstandardNth3gt12;
+      
+      JacPDstandardNth2gt13 = J12L*PDstandardNth1gt13 + 
+        J22L*PDstandardNth2gt13 + J32L*PDstandardNth3gt13;
+      
+      JacPDstandardNth2gt22 = J12L*PDstandardNth1gt22 + 
+        J22L*PDstandardNth2gt22 + J32L*PDstandardNth3gt22;
+      
+      JacPDstandardNth2gt23 = J12L*PDstandardNth1gt23 + 
+        J22L*PDstandardNth2gt23 + J32L*PDstandardNth3gt23;
+      
+      JacPDstandardNth2gt33 = J12L*PDstandardNth1gt33 + 
+        J22L*PDstandardNth2gt33 + J32L*PDstandardNth3gt33;
+      
+      JacPDstandardNth2trK = J12L*PDstandardNth1trK + 
+        J22L*PDstandardNth2trK + J32L*PDstandardNth3trK;
+      
+      JacPDstandardNth2Xt1 = J12L*PDstandardNth1Xt1 + 
+        J22L*PDstandardNth2Xt1 + J32L*PDstandardNth3Xt1;
+      
+      JacPDstandardNth2Xt2 = J12L*PDstandardNth1Xt2 + 
+        J22L*PDstandardNth2Xt2 + J32L*PDstandardNth3Xt2;
+      
+      JacPDstandardNth2Xt3 = J12L*PDstandardNth1Xt3 + 
+        J22L*PDstandardNth2Xt3 + J32L*PDstandardNth3Xt3;
+      
+      JacPDstandardNth3gt11 = J13L*PDstandardNth1gt11 + 
+        J23L*PDstandardNth2gt11 + J33L*PDstandardNth3gt11;
+      
+      JacPDstandardNth3gt12 = J13L*PDstandardNth1gt12 + 
+        J23L*PDstandardNth2gt12 + J33L*PDstandardNth3gt12;
+      
+      JacPDstandardNth3gt13 = J13L*PDstandardNth1gt13 + 
+        J23L*PDstandardNth2gt13 + J33L*PDstandardNth3gt13;
+      
+      JacPDstandardNth3gt22 = J13L*PDstandardNth1gt22 + 
+        J23L*PDstandardNth2gt22 + J33L*PDstandardNth3gt22;
+      
+      JacPDstandardNth3gt23 = J13L*PDstandardNth1gt23 + 
+        J23L*PDstandardNth2gt23 + J33L*PDstandardNth3gt23;
+      
+      JacPDstandardNth3gt33 = J13L*PDstandardNth1gt33 + 
+        J23L*PDstandardNth2gt33 + J33L*PDstandardNth3gt33;
+      
+      JacPDstandardNth3trK = J13L*PDstandardNth1trK + 
+        J23L*PDstandardNth2trK + J33L*PDstandardNth3trK;
+      
+      JacPDstandardNth3Xt1 = J13L*PDstandardNth1Xt1 + 
+        J23L*PDstandardNth2Xt1 + J33L*PDstandardNth3Xt1;
+      
+      JacPDstandardNth3Xt2 = J13L*PDstandardNth1Xt2 + 
+        J23L*PDstandardNth2Xt2 + J33L*PDstandardNth3Xt2;
+      
+      JacPDstandardNth3Xt3 = J13L*PDstandardNth1Xt3 + 
+        J23L*PDstandardNth2Xt3 + J33L*PDstandardNth3Xt3;
+      
+      JacPDstandardNth11gt11 = dJ111L*PDstandardNth1gt11 + 
+        2*(J11L*(J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
+        J21L*J31L*PDstandardNth23gt11) + dJ211L*PDstandardNth2gt11 + 
+        dJ311L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J11L) + 
+        PDstandardNth22gt11*SQR(J21L) + PDstandardNth33gt11*SQR(J31L);
+      
+      JacPDstandardNth11gt12 = dJ111L*PDstandardNth1gt12 + 
+        2*(J11L*(J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
+        J21L*J31L*PDstandardNth23gt12) + dJ211L*PDstandardNth2gt12 + 
+        dJ311L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J11L) + 
+        PDstandardNth22gt12*SQR(J21L) + PDstandardNth33gt12*SQR(J31L);
+      
+      JacPDstandardNth11gt13 = dJ111L*PDstandardNth1gt13 + 
+        2*(J11L*(J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
+        J21L*J31L*PDstandardNth23gt13) + dJ211L*PDstandardNth2gt13 + 
+        dJ311L*PDstandardNth3gt13 + PDstandardNth11gt13*SQR(J11L) + 
+        PDstandardNth22gt13*SQR(J21L) + PDstandardNth33gt13*SQR(J31L);
+      
+      JacPDstandardNth11gt22 = dJ111L*PDstandardNth1gt22 + 
+        2*(J11L*(J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
+        J21L*J31L*PDstandardNth23gt22) + dJ211L*PDstandardNth2gt22 + 
+        dJ311L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J11L) + 
+        PDstandardNth22gt22*SQR(J21L) + PDstandardNth33gt22*SQR(J31L);
+      
+      JacPDstandardNth11gt23 = dJ111L*PDstandardNth1gt23 + 
+        2*(J11L*(J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
+        J21L*J31L*PDstandardNth23gt23) + dJ211L*PDstandardNth2gt23 + 
+        dJ311L*PDstandardNth3gt23 + PDstandardNth11gt23*SQR(J11L) + 
+        PDstandardNth22gt23*SQR(J21L) + PDstandardNth33gt23*SQR(J31L);
+      
+      JacPDstandardNth11gt33 = dJ111L*PDstandardNth1gt33 + 
+        2*(J11L*(J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
+        J21L*J31L*PDstandardNth23gt33) + dJ211L*PDstandardNth2gt33 + 
+        dJ311L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J11L) + 
+        PDstandardNth22gt33*SQR(J21L) + PDstandardNth33gt33*SQR(J31L);
+      
+      JacPDstandardNth22gt11 = dJ122L*PDstandardNth1gt11 + 
+        2*(J12L*(J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
+        J22L*J32L*PDstandardNth23gt11) + dJ222L*PDstandardNth2gt11 + 
+        dJ322L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J12L) + 
+        PDstandardNth22gt11*SQR(J22L) + PDstandardNth33gt11*SQR(J32L);
+      
+      JacPDstandardNth22gt12 = dJ122L*PDstandardNth1gt12 + 
+        2*(J12L*(J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
+        J22L*J32L*PDstandardNth23gt12) + dJ222L*PDstandardNth2gt12 + 
+        dJ322L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J12L) + 
+        PDstandardNth22gt12*SQR(J22L) + PDstandardNth33gt12*SQR(J32L);
+      
+      JacPDstandardNth22gt13 = dJ122L*PDstandardNth1gt13 + 
+        2*(J12L*(J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
+        J22L*J32L*PDstandardNth23gt13) + dJ222L*PDstandardNth2gt13 + 
+        dJ322L*PDstandardNth3gt13 + PDstandardNth11gt13*SQR(J12L) + 
+        PDstandardNth22gt13*SQR(J22L) + PDstandardNth33gt13*SQR(J32L);
+      
+      JacPDstandardNth22gt22 = dJ122L*PDstandardNth1gt22 + 
+        2*(J12L*(J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
+        J22L*J32L*PDstandardNth23gt22) + dJ222L*PDstandardNth2gt22 + 
+        dJ322L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J12L) + 
+        PDstandardNth22gt22*SQR(J22L) + PDstandardNth33gt22*SQR(J32L);
+      
+      JacPDstandardNth22gt23 = dJ122L*PDstandardNth1gt23 + 
+        2*(J12L*(J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
+        J22L*J32L*PDstandardNth23gt23) + dJ222L*PDstandardNth2gt23 + 
+        dJ322L*PDstandardNth3gt23 + PDstandardNth11gt23*SQR(J12L) + 
+        PDstandardNth22gt23*SQR(J22L) + PDstandardNth33gt23*SQR(J32L);
+      
+      JacPDstandardNth22gt33 = dJ122L*PDstandardNth1gt33 + 
+        2*(J12L*(J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
+        J22L*J32L*PDstandardNth23gt33) + dJ222L*PDstandardNth2gt33 + 
+        dJ322L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J12L) + 
+        PDstandardNth22gt33*SQR(J22L) + PDstandardNth33gt33*SQR(J32L);
+      
+      JacPDstandardNth33gt11 = dJ133L*PDstandardNth1gt11 + 
+        2*(J13L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
+        J23L*J33L*PDstandardNth23gt11) + dJ233L*PDstandardNth2gt11 + 
+        dJ333L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J13L) + 
+        PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L);
+      
+      JacPDstandardNth33gt12 = dJ133L*PDstandardNth1gt12 + 
+        2*(J13L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
+        J23L*J33L*PDstandardNth23gt12) + dJ233L*PDstandardNth2gt12 + 
+        dJ333L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J13L) + 
+        PDstandardNth22gt12*SQR(J23L) + PDstandardNth33gt12*SQR(J33L);
+      
+      JacPDstandardNth33gt13 = dJ133L*PDstandardNth1gt13 + 
+        2*(J13L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
+        J23L*J33L*PDstandardNth23gt13) + dJ233L*PDstandardNth2gt13 + 
+        dJ333L*PDstandardNth3gt13 + PDstandardNth11gt13*SQR(J13L) + 
+        PDstandardNth22gt13*SQR(J23L) + PDstandardNth33gt13*SQR(J33L);
+      
+      JacPDstandardNth33gt22 = dJ133L*PDstandardNth1gt22 + 
+        2*(J13L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
+        J23L*J33L*PDstandardNth23gt22) + dJ233L*PDstandardNth2gt22 + 
+        dJ333L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J13L) + 
+        PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L);
+      
+      JacPDstandardNth33gt23 = dJ133L*PDstandardNth1gt23 + 
+        2*(J13L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
+        J23L*J33L*PDstandardNth23gt23) + dJ233L*PDstandardNth2gt23 + 
+        dJ333L*PDstandardNth3gt23 + PDstandardNth11gt23*SQR(J13L) + 
+        PDstandardNth22gt23*SQR(J23L) + PDstandardNth33gt23*SQR(J33L);
+      
+      JacPDstandardNth33gt33 = dJ133L*PDstandardNth1gt33 + 
+        2*(J13L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
+        J23L*J33L*PDstandardNth23gt33) + dJ233L*PDstandardNth2gt33 + 
+        dJ333L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J13L) + 
+        PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L);
+      
+      JacPDstandardNth12gt11 = J12L*(J11L*PDstandardNth11gt11 + 
+        J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
+        J11L*(J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
+        dJ112L*PDstandardNth1gt11 + J22L*(J21L*PDstandardNth22gt11 + 
+        J31L*PDstandardNth23gt11) + dJ212L*PDstandardNth2gt11 + 
+        J32L*(J21L*PDstandardNth23gt11 + J31L*PDstandardNth33gt11) + 
+        dJ312L*PDstandardNth3gt11;
+      
+      JacPDstandardNth12gt12 = J12L*(J11L*PDstandardNth11gt12 + 
+        J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
+        J11L*(J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
+        dJ112L*PDstandardNth1gt12 + J22L*(J21L*PDstandardNth22gt12 + 
+        J31L*PDstandardNth23gt12) + dJ212L*PDstandardNth2gt12 + 
+        J32L*(J21L*PDstandardNth23gt12 + J31L*PDstandardNth33gt12) + 
+        dJ312L*PDstandardNth3gt12;
+      
+      JacPDstandardNth12gt13 = J12L*(J11L*PDstandardNth11gt13 + 
+        J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
+        J11L*(J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
+        dJ112L*PDstandardNth1gt13 + J22L*(J21L*PDstandardNth22gt13 + 
+        J31L*PDstandardNth23gt13) + dJ212L*PDstandardNth2gt13 + 
+        J32L*(J21L*PDstandardNth23gt13 + J31L*PDstandardNth33gt13) + 
+        dJ312L*PDstandardNth3gt13;
+      
+      JacPDstandardNth12gt22 = J12L*(J11L*PDstandardNth11gt22 + 
+        J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
+        J11L*(J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
+        dJ112L*PDstandardNth1gt22 + J22L*(J21L*PDstandardNth22gt22 + 
+        J31L*PDstandardNth23gt22) + dJ212L*PDstandardNth2gt22 + 
+        J32L*(J21L*PDstandardNth23gt22 + J31L*PDstandardNth33gt22) + 
+        dJ312L*PDstandardNth3gt22;
+      
+      JacPDstandardNth12gt23 = J12L*(J11L*PDstandardNth11gt23 + 
+        J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
+        J11L*(J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
+        dJ112L*PDstandardNth1gt23 + J22L*(J21L*PDstandardNth22gt23 + 
+        J31L*PDstandardNth23gt23) + dJ212L*PDstandardNth2gt23 + 
+        J32L*(J21L*PDstandardNth23gt23 + J31L*PDstandardNth33gt23) + 
+        dJ312L*PDstandardNth3gt23;
+      
+      JacPDstandardNth12gt33 = J12L*(J11L*PDstandardNth11gt33 + 
+        J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
+        J11L*(J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
+        dJ112L*PDstandardNth1gt33 + J22L*(J21L*PDstandardNth22gt33 + 
+        J31L*PDstandardNth23gt33) + dJ212L*PDstandardNth2gt33 + 
+        J32L*(J21L*PDstandardNth23gt33 + J31L*PDstandardNth33gt33) + 
+        dJ312L*PDstandardNth3gt33;
+      
+      JacPDstandardNth13gt11 = J13L*(J11L*PDstandardNth11gt11 + 
+        J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
+        J11L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
+        dJ113L*PDstandardNth1gt11 + J23L*(J21L*PDstandardNth22gt11 + 
+        J31L*PDstandardNth23gt11) + dJ213L*PDstandardNth2gt11 + 
+        J33L*(J21L*PDstandardNth23gt11 + J31L*PDstandardNth33gt11) + 
+        dJ313L*PDstandardNth3gt11;
+      
+      JacPDstandardNth13gt12 = J13L*(J11L*PDstandardNth11gt12 + 
+        J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
+        J11L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
+        dJ113L*PDstandardNth1gt12 + J23L*(J21L*PDstandardNth22gt12 + 
+        J31L*PDstandardNth23gt12) + dJ213L*PDstandardNth2gt12 + 
+        J33L*(J21L*PDstandardNth23gt12 + J31L*PDstandardNth33gt12) + 
+        dJ313L*PDstandardNth3gt12;
+      
+      JacPDstandardNth13gt13 = J13L*(J11L*PDstandardNth11gt13 + 
+        J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
+        J11L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
+        dJ113L*PDstandardNth1gt13 + J23L*(J21L*PDstandardNth22gt13 + 
+        J31L*PDstandardNth23gt13) + dJ213L*PDstandardNth2gt13 + 
+        J33L*(J21L*PDstandardNth23gt13 + J31L*PDstandardNth33gt13) + 
+        dJ313L*PDstandardNth3gt13;
+      
+      JacPDstandardNth13gt22 = J13L*(J11L*PDstandardNth11gt22 + 
+        J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
+        J11L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
+        dJ113L*PDstandardNth1gt22 + J23L*(J21L*PDstandardNth22gt22 + 
+        J31L*PDstandardNth23gt22) + dJ213L*PDstandardNth2gt22 + 
+        J33L*(J21L*PDstandardNth23gt22 + J31L*PDstandardNth33gt22) + 
+        dJ313L*PDstandardNth3gt22;
+      
+      JacPDstandardNth13gt23 = J13L*(J11L*PDstandardNth11gt23 + 
+        J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
+        J11L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
+        dJ113L*PDstandardNth1gt23 + J23L*(J21L*PDstandardNth22gt23 + 
+        J31L*PDstandardNth23gt23) + dJ213L*PDstandardNth2gt23 + 
+        J33L*(J21L*PDstandardNth23gt23 + J31L*PDstandardNth33gt23) + 
+        dJ313L*PDstandardNth3gt23;
+      
+      JacPDstandardNth13gt33 = J13L*(J11L*PDstandardNth11gt33 + 
+        J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
+        J11L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
+        dJ113L*PDstandardNth1gt33 + J23L*(J21L*PDstandardNth22gt33 + 
+        J31L*PDstandardNth23gt33) + dJ213L*PDstandardNth2gt33 + 
+        J33L*(J21L*PDstandardNth23gt33 + J31L*PDstandardNth33gt33) + 
+        dJ313L*PDstandardNth3gt33;
+      
+      JacPDstandardNth21gt11 = J12L*(J11L*PDstandardNth11gt11 + 
+        J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
+        J11L*(J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
+        dJ112L*PDstandardNth1gt11 + J22L*(J21L*PDstandardNth22gt11 + 
+        J31L*PDstandardNth23gt11) + dJ212L*PDstandardNth2gt11 + 
+        J32L*(J21L*PDstandardNth23gt11 + J31L*PDstandardNth33gt11) + 
+        dJ312L*PDstandardNth3gt11;
+      
+      JacPDstandardNth21gt12 = J12L*(J11L*PDstandardNth11gt12 + 
+        J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
+        J11L*(J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
+        dJ112L*PDstandardNth1gt12 + J22L*(J21L*PDstandardNth22gt12 + 
+        J31L*PDstandardNth23gt12) + dJ212L*PDstandardNth2gt12 + 
+        J32L*(J21L*PDstandardNth23gt12 + J31L*PDstandardNth33gt12) + 
+        dJ312L*PDstandardNth3gt12;
+      
+      JacPDstandardNth21gt13 = J12L*(J11L*PDstandardNth11gt13 + 
+        J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
+        J11L*(J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
+        dJ112L*PDstandardNth1gt13 + J22L*(J21L*PDstandardNth22gt13 + 
+        J31L*PDstandardNth23gt13) + dJ212L*PDstandardNth2gt13 + 
+        J32L*(J21L*PDstandardNth23gt13 + J31L*PDstandardNth33gt13) + 
+        dJ312L*PDstandardNth3gt13;
+      
+      JacPDstandardNth21gt22 = J12L*(J11L*PDstandardNth11gt22 + 
+        J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
+        J11L*(J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
+        dJ112L*PDstandardNth1gt22 + J22L*(J21L*PDstandardNth22gt22 + 
+        J31L*PDstandardNth23gt22) + dJ212L*PDstandardNth2gt22 + 
+        J32L*(J21L*PDstandardNth23gt22 + J31L*PDstandardNth33gt22) + 
+        dJ312L*PDstandardNth3gt22;
+      
+      JacPDstandardNth21gt23 = J12L*(J11L*PDstandardNth11gt23 + 
+        J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
+        J11L*(J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
+        dJ112L*PDstandardNth1gt23 + J22L*(J21L*PDstandardNth22gt23 + 
+        J31L*PDstandardNth23gt23) + dJ212L*PDstandardNth2gt23 + 
+        J32L*(J21L*PDstandardNth23gt23 + J31L*PDstandardNth33gt23) + 
+        dJ312L*PDstandardNth3gt23;
+      
+      JacPDstandardNth21gt33 = J12L*(J11L*PDstandardNth11gt33 + 
+        J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
+        J11L*(J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
+        dJ112L*PDstandardNth1gt33 + J22L*(J21L*PDstandardNth22gt33 + 
+        J31L*PDstandardNth23gt33) + dJ212L*PDstandardNth2gt33 + 
+        J32L*(J21L*PDstandardNth23gt33 + J31L*PDstandardNth33gt33) + 
+        dJ312L*PDstandardNth3gt33;
+      
+      JacPDstandardNth23gt11 = J13L*(J12L*PDstandardNth11gt11 + 
+        J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
+        J12L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
+        dJ123L*PDstandardNth1gt11 + J23L*(J22L*PDstandardNth22gt11 + 
+        J32L*PDstandardNth23gt11) + dJ223L*PDstandardNth2gt11 + 
+        J33L*(J22L*PDstandardNth23gt11 + J32L*PDstandardNth33gt11) + 
+        dJ323L*PDstandardNth3gt11;
+      
+      JacPDstandardNth23gt12 = J13L*(J12L*PDstandardNth11gt12 + 
+        J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
+        J12L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
+        dJ123L*PDstandardNth1gt12 + J23L*(J22L*PDstandardNth22gt12 + 
+        J32L*PDstandardNth23gt12) + dJ223L*PDstandardNth2gt12 + 
+        J33L*(J22L*PDstandardNth23gt12 + J32L*PDstandardNth33gt12) + 
+        dJ323L*PDstandardNth3gt12;
+      
+      JacPDstandardNth23gt13 = J13L*(J12L*PDstandardNth11gt13 + 
+        J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
+        J12L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
+        dJ123L*PDstandardNth1gt13 + J23L*(J22L*PDstandardNth22gt13 + 
+        J32L*PDstandardNth23gt13) + dJ223L*PDstandardNth2gt13 + 
+        J33L*(J22L*PDstandardNth23gt13 + J32L*PDstandardNth33gt13) + 
+        dJ323L*PDstandardNth3gt13;
+      
+      JacPDstandardNth23gt22 = J13L*(J12L*PDstandardNth11gt22 + 
+        J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
+        J12L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
+        dJ123L*PDstandardNth1gt22 + J23L*(J22L*PDstandardNth22gt22 + 
+        J32L*PDstandardNth23gt22) + dJ223L*PDstandardNth2gt22 + 
+        J33L*(J22L*PDstandardNth23gt22 + J32L*PDstandardNth33gt22) + 
+        dJ323L*PDstandardNth3gt22;
+      
+      JacPDstandardNth23gt23 = J13L*(J12L*PDstandardNth11gt23 + 
+        J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
+        J12L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
+        dJ123L*PDstandardNth1gt23 + J23L*(J22L*PDstandardNth22gt23 + 
+        J32L*PDstandardNth23gt23) + dJ223L*PDstandardNth2gt23 + 
+        J33L*(J22L*PDstandardNth23gt23 + J32L*PDstandardNth33gt23) + 
+        dJ323L*PDstandardNth3gt23;
+      
+      JacPDstandardNth23gt33 = J13L*(J12L*PDstandardNth11gt33 + 
+        J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
+        J12L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
+        dJ123L*PDstandardNth1gt33 + J23L*(J22L*PDstandardNth22gt33 + 
+        J32L*PDstandardNth23gt33) + dJ223L*PDstandardNth2gt33 + 
+        J33L*(J22L*PDstandardNth23gt33 + J32L*PDstandardNth33gt33) + 
+        dJ323L*PDstandardNth3gt33;
+      
+      JacPDstandardNth31gt11 = J13L*(J11L*PDstandardNth11gt11 + 
+        J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
+        J11L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
+        dJ113L*PDstandardNth1gt11 + J23L*(J21L*PDstandardNth22gt11 + 
+        J31L*PDstandardNth23gt11) + dJ213L*PDstandardNth2gt11 + 
+        J33L*(J21L*PDstandardNth23gt11 + J31L*PDstandardNth33gt11) + 
+        dJ313L*PDstandardNth3gt11;
+      
+      JacPDstandardNth31gt12 = J13L*(J11L*PDstandardNth11gt12 + 
+        J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
+        J11L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
+        dJ113L*PDstandardNth1gt12 + J23L*(J21L*PDstandardNth22gt12 + 
+        J31L*PDstandardNth23gt12) + dJ213L*PDstandardNth2gt12 + 
+        J33L*(J21L*PDstandardNth23gt12 + J31L*PDstandardNth33gt12) + 
+        dJ313L*PDstandardNth3gt12;
+      
+      JacPDstandardNth31gt13 = J13L*(J11L*PDstandardNth11gt13 + 
+        J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
+        J11L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
+        dJ113L*PDstandardNth1gt13 + J23L*(J21L*PDstandardNth22gt13 + 
+        J31L*PDstandardNth23gt13) + dJ213L*PDstandardNth2gt13 + 
+        J33L*(J21L*PDstandardNth23gt13 + J31L*PDstandardNth33gt13) + 
+        dJ313L*PDstandardNth3gt13;
+      
+      JacPDstandardNth31gt22 = J13L*(J11L*PDstandardNth11gt22 + 
+        J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
+        J11L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
+        dJ113L*PDstandardNth1gt22 + J23L*(J21L*PDstandardNth22gt22 + 
+        J31L*PDstandardNth23gt22) + dJ213L*PDstandardNth2gt22 + 
+        J33L*(J21L*PDstandardNth23gt22 + J31L*PDstandardNth33gt22) + 
+        dJ313L*PDstandardNth3gt22;
+      
+      JacPDstandardNth31gt23 = J13L*(J11L*PDstandardNth11gt23 + 
+        J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
+        J11L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
+        dJ113L*PDstandardNth1gt23 + J23L*(J21L*PDstandardNth22gt23 + 
+        J31L*PDstandardNth23gt23) + dJ213L*PDstandardNth2gt23 + 
+        J33L*(J21L*PDstandardNth23gt23 + J31L*PDstandardNth33gt23) + 
+        dJ313L*PDstandardNth3gt23;
+      
+      JacPDstandardNth31gt33 = J13L*(J11L*PDstandardNth11gt33 + 
+        J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
+        J11L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
+        dJ113L*PDstandardNth1gt33 + J23L*(J21L*PDstandardNth22gt33 + 
+        J31L*PDstandardNth23gt33) + dJ213L*PDstandardNth2gt33 + 
+        J33L*(J21L*PDstandardNth23gt33 + J31L*PDstandardNth33gt33) + 
+        dJ313L*PDstandardNth3gt33;
+      
+      JacPDstandardNth32gt11 = J13L*(J12L*PDstandardNth11gt11 + 
+        J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
+        J12L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
+        dJ123L*PDstandardNth1gt11 + J23L*(J22L*PDstandardNth22gt11 + 
+        J32L*PDstandardNth23gt11) + dJ223L*PDstandardNth2gt11 + 
+        J33L*(J22L*PDstandardNth23gt11 + J32L*PDstandardNth33gt11) + 
+        dJ323L*PDstandardNth3gt11;
+      
+      JacPDstandardNth32gt12 = J13L*(J12L*PDstandardNth11gt12 + 
+        J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
+        J12L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
+        dJ123L*PDstandardNth1gt12 + J23L*(J22L*PDstandardNth22gt12 + 
+        J32L*PDstandardNth23gt12) + dJ223L*PDstandardNth2gt12 + 
+        J33L*(J22L*PDstandardNth23gt12 + J32L*PDstandardNth33gt12) + 
+        dJ323L*PDstandardNth3gt12;
+      
+      JacPDstandardNth32gt13 = J13L*(J12L*PDstandardNth11gt13 + 
+        J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
+        J12L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
+        dJ123L*PDstandardNth1gt13 + J23L*(J22L*PDstandardNth22gt13 + 
+        J32L*PDstandardNth23gt13) + dJ223L*PDstandardNth2gt13 + 
+        J33L*(J22L*PDstandardNth23gt13 + J32L*PDstandardNth33gt13) + 
+        dJ323L*PDstandardNth3gt13;
+      
+      JacPDstandardNth32gt22 = J13L*(J12L*PDstandardNth11gt22 + 
+        J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
+        J12L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
+        dJ123L*PDstandardNth1gt22 + J23L*(J22L*PDstandardNth22gt22 + 
+        J32L*PDstandardNth23gt22) + dJ223L*PDstandardNth2gt22 + 
+        J33L*(J22L*PDstandardNth23gt22 + J32L*PDstandardNth33gt22) + 
+        dJ323L*PDstandardNth3gt22;
+      
+      JacPDstandardNth32gt23 = J13L*(J12L*PDstandardNth11gt23 + 
+        J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
+        J12L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
+        dJ123L*PDstandardNth1gt23 + J23L*(J22L*PDstandardNth22gt23 + 
+        J32L*PDstandardNth23gt23) + dJ223L*PDstandardNth2gt23 + 
+        J33L*(J22L*PDstandardNth23gt23 + J32L*PDstandardNth33gt23) + 
+        dJ323L*PDstandardNth3gt23;
+      
+      JacPDstandardNth32gt33 = J13L*(J12L*PDstandardNth11gt33 + 
+        J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
+        J12L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
+        dJ123L*PDstandardNth1gt33 + J23L*(J22L*PDstandardNth22gt33 + 
+        J32L*PDstandardNth23gt33) + dJ223L*PDstandardNth2gt33 + 
+        J33L*(J22L*PDstandardNth23gt33 + J32L*PDstandardNth33gt33) + 
+        dJ323L*PDstandardNth3gt33;
+    }
+    else
+    {
+      JacPDstandardNth1gt11 = PDstandardNth1gt11;
+      
+      JacPDstandardNth1gt12 = PDstandardNth1gt12;
+      
+      JacPDstandardNth1gt13 = PDstandardNth1gt13;
+      
+      JacPDstandardNth1gt22 = PDstandardNth1gt22;
+      
+      JacPDstandardNth1gt23 = PDstandardNth1gt23;
+      
+      JacPDstandardNth1gt33 = PDstandardNth1gt33;
+      
+      JacPDstandardNth1trK = PDstandardNth1trK;
+      
+      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
+      
+      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
+      
+      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
+      
+      JacPDstandardNth2gt11 = PDstandardNth2gt11;
+      
+      JacPDstandardNth2gt12 = PDstandardNth2gt12;
+      
+      JacPDstandardNth2gt13 = PDstandardNth2gt13;
+      
+      JacPDstandardNth2gt22 = PDstandardNth2gt22;
+      
+      JacPDstandardNth2gt23 = PDstandardNth2gt23;
+      
+      JacPDstandardNth2gt33 = PDstandardNth2gt33;
+      
+      JacPDstandardNth2trK = PDstandardNth2trK;
+      
+      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
+      
+      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
+      
+      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
+      
+      JacPDstandardNth3gt11 = PDstandardNth3gt11;
+      
+      JacPDstandardNth3gt12 = PDstandardNth3gt12;
+      
+      JacPDstandardNth3gt13 = PDstandardNth3gt13;
+      
+      JacPDstandardNth3gt22 = PDstandardNth3gt22;
+      
+      JacPDstandardNth3gt23 = PDstandardNth3gt23;
+      
+      JacPDstandardNth3gt33 = PDstandardNth3gt33;
+      
+      JacPDstandardNth3trK = PDstandardNth3trK;
+      
+      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
+      
+      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
+      
+      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
+      
+      JacPDstandardNth11gt11 = PDstandardNth11gt11;
+      
+      JacPDstandardNth11gt12 = PDstandardNth11gt12;
+      
+      JacPDstandardNth11gt13 = PDstandardNth11gt13;
+      
+      JacPDstandardNth11gt22 = PDstandardNth11gt22;
+      
+      JacPDstandardNth11gt23 = PDstandardNth11gt23;
+      
+      JacPDstandardNth11gt33 = PDstandardNth11gt33;
+      
+      JacPDstandardNth22gt11 = PDstandardNth22gt11;
+      
+      JacPDstandardNth22gt12 = PDstandardNth22gt12;
+      
+      JacPDstandardNth22gt13 = PDstandardNth22gt13;
+      
+      JacPDstandardNth22gt22 = PDstandardNth22gt22;
+      
+      JacPDstandardNth22gt23 = PDstandardNth22gt23;
+      
+      JacPDstandardNth22gt33 = PDstandardNth22gt33;
+      
+      JacPDstandardNth33gt11 = PDstandardNth33gt11;
+      
+      JacPDstandardNth33gt12 = PDstandardNth33gt12;
+      
+      JacPDstandardNth33gt13 = PDstandardNth33gt13;
+      
+      JacPDstandardNth33gt22 = PDstandardNth33gt22;
+      
+      JacPDstandardNth33gt23 = PDstandardNth33gt23;
+      
+      JacPDstandardNth33gt33 = PDstandardNth33gt33;
+      
+      JacPDstandardNth12gt11 = PDstandardNth12gt11;
+      
+      JacPDstandardNth12gt12 = PDstandardNth12gt12;
+      
+      JacPDstandardNth12gt13 = PDstandardNth12gt13;
+      
+      JacPDstandardNth12gt22 = PDstandardNth12gt22;
+      
+      JacPDstandardNth12gt23 = PDstandardNth12gt23;
+      
+      JacPDstandardNth12gt33 = PDstandardNth12gt33;
+      
+      JacPDstandardNth13gt11 = PDstandardNth13gt11;
+      
+      JacPDstandardNth13gt12 = PDstandardNth13gt12;
+      
+      JacPDstandardNth13gt13 = PDstandardNth13gt13;
+      
+      JacPDstandardNth13gt22 = PDstandardNth13gt22;
+      
+      JacPDstandardNth13gt23 = PDstandardNth13gt23;
+      
+      JacPDstandardNth13gt33 = PDstandardNth13gt33;
+      
+      JacPDstandardNth21gt11 = PDstandardNth12gt11;
+      
+      JacPDstandardNth21gt12 = PDstandardNth12gt12;
+      
+      JacPDstandardNth21gt13 = PDstandardNth12gt13;
+      
+      JacPDstandardNth21gt22 = PDstandardNth12gt22;
+      
+      JacPDstandardNth21gt23 = PDstandardNth12gt23;
+      
+      JacPDstandardNth21gt33 = PDstandardNth12gt33;
+      
+      JacPDstandardNth23gt11 = PDstandardNth23gt11;
+      
+      JacPDstandardNth23gt12 = PDstandardNth23gt12;
+      
+      JacPDstandardNth23gt13 = PDstandardNth23gt13;
+      
+      JacPDstandardNth23gt22 = PDstandardNth23gt22;
+      
+      JacPDstandardNth23gt23 = PDstandardNth23gt23;
+      
+      JacPDstandardNth23gt33 = PDstandardNth23gt33;
+      
+      JacPDstandardNth31gt11 = PDstandardNth13gt11;
+      
+      JacPDstandardNth31gt12 = PDstandardNth13gt12;
+      
+      JacPDstandardNth31gt13 = PDstandardNth13gt13;
+      
+      JacPDstandardNth31gt22 = PDstandardNth13gt22;
+      
+      JacPDstandardNth31gt23 = PDstandardNth13gt23;
+      
+      JacPDstandardNth31gt33 = PDstandardNth13gt33;
+      
+      JacPDstandardNth32gt11 = PDstandardNth23gt11;
+      
+      JacPDstandardNth32gt12 = PDstandardNth23gt12;
+      
+      JacPDstandardNth32gt13 = PDstandardNth23gt13;
+      
+      JacPDstandardNth32gt22 = PDstandardNth23gt22;
+      
+      JacPDstandardNth32gt23 = PDstandardNth23gt23;
+      
+      JacPDstandardNth32gt33 = PDstandardNth23gt33;
+    }
+    
     CCTK_REAL detgt = 1;
     
     CCTK_REAL gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L));
@@ -240,143 +1062,143 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d
     
     CCTK_REAL gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L));
     
-    CCTK_REAL dgtu111 = -2*(gtu11*gtu21*PDstandardNth1gt12 + 
-      gtu11*gtu31*PDstandardNth1gt13 + gtu21*gtu31*PDstandardNth1gt23) - 
-      PDstandardNth1gt11*SQR(gtu11) - PDstandardNth1gt22*SQR(gtu21) - 
-      PDstandardNth1gt33*SQR(gtu31);
-    
-    CCTK_REAL dgtu211 = gtu21*(-(gtu11*PDstandardNth1gt11) - 
-      gtu31*PDstandardNth1gt13 - gtu22*PDstandardNth1gt22) + 
-      gtu32*(-(gtu11*PDstandardNth1gt13) - gtu21*PDstandardNth1gt23) + 
-      gtu31*(-(gtu22*PDstandardNth1gt23) - gtu32*PDstandardNth1gt33) - 
-      PDstandardNth1gt12*(gtu11*gtu22 + SQR(gtu21));
-    
-    CCTK_REAL dgtu311 = -((gtu21*gtu31 + gtu11*gtu32)*PDstandardNth1gt12) 
-      + gtu11*(-(gtu31*PDstandardNth1gt11) - gtu33*PDstandardNth1gt13) + 
-      gtu32*(-(gtu21*PDstandardNth1gt22) - gtu31*PDstandardNth1gt23) + 
-      gtu33*(-(gtu21*PDstandardNth1gt23) - gtu31*PDstandardNth1gt33) - 
-      PDstandardNth1gt13*SQR(gtu31);
-    
-    CCTK_REAL dgtu221 = -2*(gtu21*gtu22*PDstandardNth1gt12 + 
-      gtu21*gtu32*PDstandardNth1gt13 + gtu22*gtu32*PDstandardNth1gt23) - 
-      PDstandardNth1gt11*SQR(gtu21) - PDstandardNth1gt22*SQR(gtu22) - 
-      PDstandardNth1gt33*SQR(gtu32);
-    
-    CCTK_REAL dgtu321 = -((gtu22*gtu31 + gtu21*gtu32)*PDstandardNth1gt12) 
-      + gtu31*(-(gtu21*PDstandardNth1gt11) - gtu32*PDstandardNth1gt13) + 
-      gtu33*(-(gtu21*PDstandardNth1gt13) - gtu22*PDstandardNth1gt23) + 
-      gtu32*(-(gtu22*PDstandardNth1gt22) - gtu33*PDstandardNth1gt33) - 
-      PDstandardNth1gt23*SQR(gtu32);
+    CCTK_REAL dgtu111 = -2*(gtu11*(gtu21*JacPDstandardNth1gt12 + 
+      gtu31*JacPDstandardNth1gt13) + gtu21*gtu31*JacPDstandardNth1gt23) - 
+      JacPDstandardNth1gt11*SQR(gtu11) - JacPDstandardNth1gt22*SQR(gtu21) - 
+      JacPDstandardNth1gt33*SQR(gtu31);
+    
+    CCTK_REAL dgtu211 = -(gtu11*(gtu21*JacPDstandardNth1gt11 + 
+      gtu22*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt13)) - 
+      gtu21*(gtu31*JacPDstandardNth1gt13 + gtu22*JacPDstandardNth1gt22 + 
+      gtu32*JacPDstandardNth1gt23) - gtu31*(gtu22*JacPDstandardNth1gt23 + 
+      gtu32*JacPDstandardNth1gt33) - JacPDstandardNth1gt12*SQR(gtu21);
+    
+    CCTK_REAL dgtu311 = -(gtu11*(gtu31*JacPDstandardNth1gt11 + 
+      gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13)) - 
+      gtu21*(gtu31*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt22 + 
+      gtu33*JacPDstandardNth1gt23) - gtu31*(gtu31*JacPDstandardNth1gt13 + 
+      gtu32*JacPDstandardNth1gt23 + gtu33*JacPDstandardNth1gt33);
+    
+    CCTK_REAL dgtu221 = -2*(gtu21*(gtu22*JacPDstandardNth1gt12 + 
+      gtu32*JacPDstandardNth1gt13) + gtu22*gtu32*JacPDstandardNth1gt23) - 
+      JacPDstandardNth1gt11*SQR(gtu21) - JacPDstandardNth1gt22*SQR(gtu22) - 
+      JacPDstandardNth1gt33*SQR(gtu32);
+    
+    CCTK_REAL dgtu321 = -(gtu21*(gtu31*JacPDstandardNth1gt11 + 
+      gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13)) - 
+      gtu22*(gtu31*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt22 + 
+      gtu33*JacPDstandardNth1gt23) - gtu32*(gtu31*JacPDstandardNth1gt13 + 
+      gtu32*JacPDstandardNth1gt23 + gtu33*JacPDstandardNth1gt33);
     
-    CCTK_REAL dgtu331 = -2*(gtu31*gtu32*PDstandardNth1gt12 + 
-      gtu31*gtu33*PDstandardNth1gt13 + gtu32*gtu33*PDstandardNth1gt23) - 
-      PDstandardNth1gt11*SQR(gtu31) - PDstandardNth1gt22*SQR(gtu32) - 
-      PDstandardNth1gt33*SQR(gtu33);
+    CCTK_REAL dgtu331 = -2*(gtu31*(gtu32*JacPDstandardNth1gt12 + 
+      gtu33*JacPDstandardNth1gt13) + gtu32*gtu33*JacPDstandardNth1gt23) - 
+      JacPDstandardNth1gt11*SQR(gtu31) - JacPDstandardNth1gt22*SQR(gtu32) - 
+      JacPDstandardNth1gt33*SQR(gtu33);
     
-    CCTK_REAL dgtu112 = -2*(gtu11*gtu21*PDstandardNth2gt12 + 
-      gtu11*gtu31*PDstandardNth2gt13 + gtu21*gtu31*PDstandardNth2gt23) - 
-      PDstandardNth2gt11*SQR(gtu11) - PDstandardNth2gt22*SQR(gtu21) - 
-      PDstandardNth2gt33*SQR(gtu31);
+    CCTK_REAL dgtu112 = -2*(gtu11*(gtu21*JacPDstandardNth2gt12 + 
+      gtu31*JacPDstandardNth2gt13) + gtu21*gtu31*JacPDstandardNth2gt23) - 
+      JacPDstandardNth2gt11*SQR(gtu11) - JacPDstandardNth2gt22*SQR(gtu21) - 
+      JacPDstandardNth2gt33*SQR(gtu31);
     
-    CCTK_REAL dgtu212 = gtu21*(-(gtu11*PDstandardNth2gt11) - 
-      gtu31*PDstandardNth2gt13 - gtu22*PDstandardNth2gt22) + 
-      gtu32*(-(gtu11*PDstandardNth2gt13) - gtu21*PDstandardNth2gt23) + 
-      gtu31*(-(gtu22*PDstandardNth2gt23) - gtu32*PDstandardNth2gt33) - 
-      PDstandardNth2gt12*(gtu11*gtu22 + SQR(gtu21));
+    CCTK_REAL dgtu212 = -(gtu11*(gtu21*JacPDstandardNth2gt11 + 
+      gtu22*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt13)) - 
+      gtu21*(gtu31*JacPDstandardNth2gt13 + gtu22*JacPDstandardNth2gt22 + 
+      gtu32*JacPDstandardNth2gt23) - gtu31*(gtu22*JacPDstandardNth2gt23 + 
+      gtu32*JacPDstandardNth2gt33) - JacPDstandardNth2gt12*SQR(gtu21);
     
-    CCTK_REAL dgtu312 = -((gtu21*gtu31 + gtu11*gtu32)*PDstandardNth2gt12) 
-      + gtu11*(-(gtu31*PDstandardNth2gt11) - gtu33*PDstandardNth2gt13) + 
-      gtu32*(-(gtu21*PDstandardNth2gt22) - gtu31*PDstandardNth2gt23) + 
-      gtu33*(-(gtu21*PDstandardNth2gt23) - gtu31*PDstandardNth2gt33) - 
-      PDstandardNth2gt13*SQR(gtu31);
+    CCTK_REAL dgtu312 = -(gtu11*(gtu31*JacPDstandardNth2gt11 + 
+      gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13)) - 
+      gtu21*(gtu31*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt22 + 
+      gtu33*JacPDstandardNth2gt23) - gtu31*(gtu31*JacPDstandardNth2gt13 + 
+      gtu32*JacPDstandardNth2gt23 + gtu33*JacPDstandardNth2gt33);
     
-    CCTK_REAL dgtu222 = -2*(gtu21*gtu22*PDstandardNth2gt12 + 
-      gtu21*gtu32*PDstandardNth2gt13 + gtu22*gtu32*PDstandardNth2gt23) - 
-      PDstandardNth2gt11*SQR(gtu21) - PDstandardNth2gt22*SQR(gtu22) - 
-      PDstandardNth2gt33*SQR(gtu32);
+    CCTK_REAL dgtu222 = -2*(gtu21*(gtu22*JacPDstandardNth2gt12 + 
+      gtu32*JacPDstandardNth2gt13) + gtu22*gtu32*JacPDstandardNth2gt23) - 
+      JacPDstandardNth2gt11*SQR(gtu21) - JacPDstandardNth2gt22*SQR(gtu22) - 
+      JacPDstandardNth2gt33*SQR(gtu32);
     
-    CCTK_REAL dgtu322 = -((gtu22*gtu31 + gtu21*gtu32)*PDstandardNth2gt12) 
-      + gtu31*(-(gtu21*PDstandardNth2gt11) - gtu32*PDstandardNth2gt13) + 
-      gtu33*(-(gtu21*PDstandardNth2gt13) - gtu22*PDstandardNth2gt23) + 
-      gtu32*(-(gtu22*PDstandardNth2gt22) - gtu33*PDstandardNth2gt33) - 
-      PDstandardNth2gt23*SQR(gtu32);
+    CCTK_REAL dgtu322 = -(gtu21*(gtu31*JacPDstandardNth2gt11 + 
+      gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13)) - 
+      gtu22*(gtu31*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt22 + 
+      gtu33*JacPDstandardNth2gt23) - gtu32*(gtu31*JacPDstandardNth2gt13 + 
+      gtu32*JacPDstandardNth2gt23 + gtu33*JacPDstandardNth2gt33);
     
-    CCTK_REAL dgtu332 = -2*(gtu31*gtu32*PDstandardNth2gt12 + 
-      gtu31*gtu33*PDstandardNth2gt13 + gtu32*gtu33*PDstandardNth2gt23) - 
-      PDstandardNth2gt11*SQR(gtu31) - PDstandardNth2gt22*SQR(gtu32) - 
-      PDstandardNth2gt33*SQR(gtu33);
+    CCTK_REAL dgtu332 = -2*(gtu31*(gtu32*JacPDstandardNth2gt12 + 
+      gtu33*JacPDstandardNth2gt13) + gtu32*gtu33*JacPDstandardNth2gt23) - 
+      JacPDstandardNth2gt11*SQR(gtu31) - JacPDstandardNth2gt22*SQR(gtu32) - 
+      JacPDstandardNth2gt33*SQR(gtu33);
     
-    CCTK_REAL dgtu113 = -2*(gtu11*gtu21*PDstandardNth3gt12 + 
-      gtu11*gtu31*PDstandardNth3gt13 + gtu21*gtu31*PDstandardNth3gt23) - 
-      PDstandardNth3gt11*SQR(gtu11) - PDstandardNth3gt22*SQR(gtu21) - 
-      PDstandardNth3gt33*SQR(gtu31);
+    CCTK_REAL dgtu113 = -2*(gtu11*(gtu21*JacPDstandardNth3gt12 + 
+      gtu31*JacPDstandardNth3gt13) + gtu21*gtu31*JacPDstandardNth3gt23) - 
+      JacPDstandardNth3gt11*SQR(gtu11) - JacPDstandardNth3gt22*SQR(gtu21) - 
+      JacPDstandardNth3gt33*SQR(gtu31);
     
-    CCTK_REAL dgtu213 = gtu21*(-(gtu11*PDstandardNth3gt11) - 
-      gtu31*PDstandardNth3gt13 - gtu22*PDstandardNth3gt22) + 
-      gtu32*(-(gtu11*PDstandardNth3gt13) - gtu21*PDstandardNth3gt23) + 
-      gtu31*(-(gtu22*PDstandardNth3gt23) - gtu32*PDstandardNth3gt33) - 
-      PDstandardNth3gt12*(gtu11*gtu22 + SQR(gtu21));
+    CCTK_REAL dgtu213 = -(gtu11*(gtu21*JacPDstandardNth3gt11 + 
+      gtu22*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt13)) - 
+      gtu21*(gtu31*JacPDstandardNth3gt13 + gtu22*JacPDstandardNth3gt22 + 
+      gtu32*JacPDstandardNth3gt23) - gtu31*(gtu22*JacPDstandardNth3gt23 + 
+      gtu32*JacPDstandardNth3gt33) - JacPDstandardNth3gt12*SQR(gtu21);
     
-    CCTK_REAL dgtu313 = -((gtu21*gtu31 + gtu11*gtu32)*PDstandardNth3gt12) 
-      + gtu11*(-(gtu31*PDstandardNth3gt11) - gtu33*PDstandardNth3gt13) + 
-      gtu32*(-(gtu21*PDstandardNth3gt22) - gtu31*PDstandardNth3gt23) + 
-      gtu33*(-(gtu21*PDstandardNth3gt23) - gtu31*PDstandardNth3gt33) - 
-      PDstandardNth3gt13*SQR(gtu31);
+    CCTK_REAL dgtu313 = -(gtu11*(gtu31*JacPDstandardNth3gt11 + 
+      gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13)) - 
+      gtu21*(gtu31*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt22 + 
+      gtu33*JacPDstandardNth3gt23) - gtu31*(gtu31*JacPDstandardNth3gt13 + 
+      gtu32*JacPDstandardNth3gt23 + gtu33*JacPDstandardNth3gt33);
     
-    CCTK_REAL dgtu223 = -2*(gtu21*gtu22*PDstandardNth3gt12 + 
-      gtu21*gtu32*PDstandardNth3gt13 + gtu22*gtu32*PDstandardNth3gt23) - 
-      PDstandardNth3gt11*SQR(gtu21) - PDstandardNth3gt22*SQR(gtu22) - 
-      PDstandardNth3gt33*SQR(gtu32);
+    CCTK_REAL dgtu223 = -2*(gtu21*(gtu22*JacPDstandardNth3gt12 + 
+      gtu32*JacPDstandardNth3gt13) + gtu22*gtu32*JacPDstandardNth3gt23) - 
+      JacPDstandardNth3gt11*SQR(gtu21) - JacPDstandardNth3gt22*SQR(gtu22) - 
+      JacPDstandardNth3gt33*SQR(gtu32);
     
-    CCTK_REAL dgtu323 = -((gtu22*gtu31 + gtu21*gtu32)*PDstandardNth3gt12) 
-      + gtu31*(-(gtu21*PDstandardNth3gt11) - gtu32*PDstandardNth3gt13) + 
-      gtu33*(-(gtu21*PDstandardNth3gt13) - gtu22*PDstandardNth3gt23) + 
-      gtu32*(-(gtu22*PDstandardNth3gt22) - gtu33*PDstandardNth3gt33) - 
-      PDstandardNth3gt23*SQR(gtu32);
+    CCTK_REAL dgtu323 = -(gtu21*(gtu31*JacPDstandardNth3gt11 + 
+      gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13)) - 
+      gtu22*(gtu31*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt22 + 
+      gtu33*JacPDstandardNth3gt23) - gtu32*(gtu31*JacPDstandardNth3gt13 + 
+      gtu32*JacPDstandardNth3gt23 + gtu33*JacPDstandardNth3gt33);
     
-    CCTK_REAL dgtu333 = -2*(gtu31*gtu32*PDstandardNth3gt12 + 
-      gtu31*gtu33*PDstandardNth3gt13 + gtu32*gtu33*PDstandardNth3gt23) - 
-      PDstandardNth3gt11*SQR(gtu31) - PDstandardNth3gt22*SQR(gtu32) - 
-      PDstandardNth3gt33*SQR(gtu33);
+    CCTK_REAL dgtu333 = -2*(gtu31*(gtu32*JacPDstandardNth3gt12 + 
+      gtu33*JacPDstandardNth3gt13) + gtu32*gtu33*JacPDstandardNth3gt23) - 
+      JacPDstandardNth3gt11*SQR(gtu31) - JacPDstandardNth3gt22*SQR(gtu32) - 
+      JacPDstandardNth3gt33*SQR(gtu33);
     
-    CCTK_REAL Gtl111 = 0.5*PDstandardNth1gt11;
+    CCTK_REAL Gtl111 = 0.5*JacPDstandardNth1gt11;
     
-    CCTK_REAL Gtl112 = 0.5*PDstandardNth2gt11;
+    CCTK_REAL Gtl112 = 0.5*JacPDstandardNth2gt11;
     
-    CCTK_REAL Gtl113 = 0.5*PDstandardNth3gt11;
+    CCTK_REAL Gtl113 = 0.5*JacPDstandardNth3gt11;
     
-    CCTK_REAL Gtl122 = -0.5*PDstandardNth1gt22 + PDstandardNth2gt12;
+    CCTK_REAL Gtl122 = -0.5*JacPDstandardNth1gt22 + JacPDstandardNth2gt12;
     
-    CCTK_REAL Gtl123 = 0.5*(-PDstandardNth1gt23 + PDstandardNth2gt13 + 
-      PDstandardNth3gt12);
+    CCTK_REAL Gtl123 = 0.5*(-JacPDstandardNth1gt23 + JacPDstandardNth2gt13 
+      + JacPDstandardNth3gt12);
     
-    CCTK_REAL Gtl133 = -0.5*PDstandardNth1gt33 + PDstandardNth3gt13;
+    CCTK_REAL Gtl133 = -0.5*JacPDstandardNth1gt33 + JacPDstandardNth3gt13;
     
-    CCTK_REAL Gtl211 = PDstandardNth1gt12 - 0.5*PDstandardNth2gt11;
+    CCTK_REAL Gtl211 = JacPDstandardNth1gt12 - 0.5*JacPDstandardNth2gt11;
     
-    CCTK_REAL Gtl212 = 0.5*PDstandardNth1gt22;
+    CCTK_REAL Gtl212 = 0.5*JacPDstandardNth1gt22;
     
-    CCTK_REAL Gtl213 = 0.5*(PDstandardNth1gt23 - PDstandardNth2gt13 + 
-      PDstandardNth3gt12);
+    CCTK_REAL Gtl213 = 0.5*(JacPDstandardNth1gt23 - JacPDstandardNth2gt13 
+      + JacPDstandardNth3gt12);
     
-    CCTK_REAL Gtl222 = 0.5*PDstandardNth2gt22;
+    CCTK_REAL Gtl222 = 0.5*JacPDstandardNth2gt22;
     
-    CCTK_REAL Gtl223 = 0.5*PDstandardNth3gt22;
+    CCTK_REAL Gtl223 = 0.5*JacPDstandardNth3gt22;
     
-    CCTK_REAL Gtl233 = -0.5*PDstandardNth2gt33 + PDstandardNth3gt23;
+    CCTK_REAL Gtl233 = -0.5*JacPDstandardNth2gt33 + JacPDstandardNth3gt23;
     
-    CCTK_REAL Gtl311 = PDstandardNth1gt13 - 0.5*PDstandardNth3gt11;
+    CCTK_REAL Gtl311 = JacPDstandardNth1gt13 - 0.5*JacPDstandardNth3gt11;
     
-    CCTK_REAL Gtl312 = 0.5*(PDstandardNth1gt23 + PDstandardNth2gt13 - 
-      PDstandardNth3gt12);
+    CCTK_REAL Gtl312 = 0.5*(JacPDstandardNth1gt23 + JacPDstandardNth2gt13 
+      - JacPDstandardNth3gt12);
     
-    CCTK_REAL Gtl313 = 0.5*PDstandardNth1gt33;
+    CCTK_REAL Gtl313 = 0.5*JacPDstandardNth1gt33;
     
-    CCTK_REAL Gtl322 = PDstandardNth2gt23 - 0.5*PDstandardNth3gt22;
+    CCTK_REAL Gtl322 = JacPDstandardNth2gt23 - 0.5*JacPDstandardNth3gt22;
     
-    CCTK_REAL Gtl323 = 0.5*PDstandardNth2gt33;
+    CCTK_REAL Gtl323 = 0.5*JacPDstandardNth2gt33;
     
-    CCTK_REAL Gtl333 = 0.5*PDstandardNth3gt33;
+    CCTK_REAL Gtl333 = 0.5*JacPDstandardNth3gt33;
     
     CCTK_REAL Gtlu111 = Gtl111*gtu11 + Gtl112*gtu21 + Gtl113*gtu31;
     
@@ -480,80 +1302,89 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d
     CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + 
       Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + 
       Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - 
-      gtu11*PDstandardNth11gt11 - 2*gtu21*PDstandardNth12gt11 - 
-      2*gtu31*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + 
+      gtu11*JacPDstandardNth11gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + 
       Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + 
-      gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + 
-      2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - 
-      2*gtu32*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 
-      + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3);
+      gt11L*JacPDstandardNth1Xt1) + 2*gt12L*JacPDstandardNth1Xt2 + 
+      2*gt13L*JacPDstandardNth1Xt3 + gtu21*(-JacPDstandardNth12gt11 - 
+      JacPDstandardNth21gt11) - gtu22*JacPDstandardNth22gt11 + 
+      gtu31*(-JacPDstandardNth13gt11 - JacPDstandardNth31gt11) + 
+      gtu32*(-JacPDstandardNth23gt11 - JacPDstandardNth32gt11) - 
+      gtu33*JacPDstandardNth33gt11 + 2*Gtl111*Xtn1 + 2*Gtl112*Xtn2 + 
+      2*Gtl113*Xtn3);
     
     CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + 
-      Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + 
-      Gt111*Gtlu121 + Gt212*Gtlu121 + Gt112*Gtlu122 + Gt222*Gtlu122 + 
-      Gt113*Gtlu123 + Gt223*Gtlu123 + Gt312*Gtlu131 + Gt322*Gtlu132 + 
-      Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*Gtlu212 + Gt113*Gtlu213 + 
-      Gt311*Gtlu231 + Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + 
-      Gt312*Gtlu322 + Gt313*Gtlu323) - 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 + Gtl112*Xtn1 + Gtl211*Xtn1 + Gtl122*Xtn2 + 
-      Gtl212*Xtn2 + Gtl123*Xtn3 + Gtl213*Xtn3);
-    
-    CCTK_REAL Rt13 = 0.5*(2*(Gt113*Gtlu111 + Gt123*Gtlu112 + Gt133*Gtlu113 
-      + Gt213*Gtlu121 + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + 
-      Gt313*Gtlu131 + Gt112*Gtlu132 + Gt323*Gtlu132 + Gt113*Gtlu133 + 
-      Gt333*Gtlu133 + Gt211*Gtlu231 + Gt212*Gtlu232 + Gt213*Gtlu233 + 
-      Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*Gtlu313 + Gt211*Gtlu321 + 
-      Gt212*Gtlu322 + Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + 
-      Gt313*Gtlu333) - 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 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + 
-      Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3);
+      Gt213*Gtlu223) + 2*(Gt122*Gtlu112 + Gt123*Gtlu113 + Gt111*Gtlu121 + 
+      Gt212*Gtlu121 + Gt222*Gtlu122 + Gt113*Gtlu123 + Gt223*Gtlu123 + 
+      Gt312*Gtlu131 + Gt322*Gtlu132 + Gt323*Gtlu133 + Gt111*Gtlu211 + 
+      Gt112*(Gtlu111 + Gtlu122 + Gtlu212) + Gt113*Gtlu213 + Gt311*Gtlu231 + 
+      Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + Gt312*Gtlu322 + 
+      Gt313*Gtlu323) - gtu11*JacPDstandardNth11gt12 + 
+      gt12L*JacPDstandardNth1Xt1 + gt22L*JacPDstandardNth1Xt2 + 
+      gt23L*JacPDstandardNth1Xt3 + gtu21*(-JacPDstandardNth12gt12 - 
+      JacPDstandardNth21gt12) - gtu22*JacPDstandardNth22gt12 + 
+      gt11L*JacPDstandardNth2Xt1 + gt12L*JacPDstandardNth2Xt2 + 
+      gt13L*JacPDstandardNth2Xt3 + gtu31*(-JacPDstandardNth13gt12 - 
+      JacPDstandardNth31gt12) + gtu32*(-JacPDstandardNth23gt12 - 
+      JacPDstandardNth32gt12) - gtu33*JacPDstandardNth33gt12 + Gtl112*Xtn1 + 
+      Gtl211*Xtn1 + Gtl122*Xtn2 + Gtl212*Xtn2 + Gtl123*Xtn3 + Gtl213*Xtn3);
+    
+    CCTK_REAL Rt13 = 0.5*(2*(Gt123*Gtlu112 + Gt133*Gtlu113 + Gt213*Gtlu121 
+      + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + Gt313*Gtlu131 + 
+      Gt112*Gtlu132 + Gt323*Gtlu132 + Gt333*Gtlu133 + Gt211*Gtlu231 + 
+      Gt212*Gtlu232 + Gt213*Gtlu233 + Gt111*Gtlu311 + Gt112*Gtlu312 + 
+      Gt113*(Gtlu111 + Gtlu133 + Gtlu313) + Gt211*Gtlu321 + Gt212*Gtlu322 + 
+      Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + Gt313*Gtlu333) - 
+      gtu11*JacPDstandardNth11gt13 + gt13L*JacPDstandardNth1Xt1 + 
+      gt23L*JacPDstandardNth1Xt2 + gt33L*JacPDstandardNth1Xt3 + 
+      gtu21*(-JacPDstandardNth12gt13 - JacPDstandardNth21gt13) - 
+      gtu22*JacPDstandardNth22gt13 + gtu31*(-JacPDstandardNth13gt13 - 
+      JacPDstandardNth31gt13) + gtu32*(-JacPDstandardNth23gt13 - 
+      JacPDstandardNth32gt13) - gtu33*JacPDstandardNth33gt13 + 
+      gt11L*JacPDstandardNth3Xt1 + gt12L*JacPDstandardNth3Xt2 + 
+      gt13L*JacPDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 
+      + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3);
     
     CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + 
-      Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + 
-      Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - 
-      gtu11*PDstandardNth11gt22 - 2*gtu21*PDstandardNth12gt22 - 
-      2*gtu31*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - 
-      2*gtu32*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + 
-      Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + 
-      gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + 
-      2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 
-      + 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3);
-    
-    CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 
-      + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + 
-      Gt223*Gtlu222 + Gt233*Gtlu223 + Gt212*Gtlu231 + Gt313*Gtlu231 + 
-      Gt222*Gtlu232 + Gt323*Gtlu232 + Gt223*Gtlu233 + Gt333*Gtlu233 + 
-      Gt112*Gtlu311 + Gt122*Gtlu312 + Gt123*Gtlu313 + Gt212*Gtlu321 + 
+      Gt223*Gtlu223) + 4*(Gt123*Gtlu213 + Gt312*Gtlu231 + Gt322*Gtlu232 + 
+      Gt323*Gtlu233) - gtu11*JacPDstandardNth11gt22 + 
+      gtu21*(-JacPDstandardNth12gt22 - JacPDstandardNth21gt22) - 
+      gtu22*JacPDstandardNth22gt22 + 2*(Gt123*Gtlu123 + Gt112*(Gtlu121 + 
+      2*Gtlu211) + Gt122*(Gtlu122 + 2*Gtlu212) + Gt312*Gtlu321 + 
+      Gt322*Gtlu322 + Gt323*Gtlu323 + gt12L*JacPDstandardNth2Xt1) + 
+      2*gt22L*JacPDstandardNth2Xt2 + 2*gt23L*JacPDstandardNth2Xt3 + 
+      gtu31*(-JacPDstandardNth13gt22 - JacPDstandardNth31gt22) + 
+      gtu32*(-JacPDstandardNth23gt22 - JacPDstandardNth32gt22) - 
+      gtu33*JacPDstandardNth33gt22 + 2*Gtl212*Xtn1 + 2*Gtl222*Xtn2 + 
+      2*Gtl223*Xtn3);
+    
+    CCTK_REAL Rt23 = 0.5*(2*(Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 
+      + Gt133*Gtlu213 + Gt213*Gtlu221 + Gt223*Gtlu222 + Gt233*Gtlu223 + 
+      Gt212*Gtlu231 + Gt313*Gtlu231 + Gt222*Gtlu232 + Gt323*Gtlu232 + 
+      Gt223*Gtlu233 + Gt333*Gtlu233 + Gt112*(Gtlu131 + Gtlu311) + 
+      Gt122*(Gtlu132 + Gtlu312) + Gt123*Gtlu313 + Gt212*Gtlu321 + 
       Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + Gt322*Gtlu332 + 
-      Gt323*Gtlu333) - 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 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + 
-      Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3);
-    
-    CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 
-      + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + 
-      Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - 
-      2*gtu21*PDstandardNth12gt33 - 2*gtu31*PDstandardNth13gt33 - 
-      gtu22*PDstandardNth22gt33 - 2*gtu32*PDstandardNth23gt33 - 
-      gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + 
-      Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + 
-      gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + 
-      2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + 
-      2*Gtl333*Xtn3);
+      Gt323*Gtlu333) - gtu11*JacPDstandardNth11gt23 + 
+      gtu21*(-JacPDstandardNth12gt23 - JacPDstandardNth21gt23) - 
+      gtu22*JacPDstandardNth22gt23 + gt13L*JacPDstandardNth2Xt1 + 
+      gt23L*JacPDstandardNth2Xt2 + gt33L*JacPDstandardNth2Xt3 + 
+      gtu31*(-JacPDstandardNth13gt23 - JacPDstandardNth31gt23) + 
+      gtu32*(-JacPDstandardNth23gt23 - JacPDstandardNth32gt23) - 
+      gtu33*JacPDstandardNth33gt23 + gt12L*JacPDstandardNth3Xt1 + 
+      gt22L*JacPDstandardNth3Xt2 + gt23L*JacPDstandardNth3Xt3 + 
+      Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + 
+      Gtl323*Xtn3);
+    
+    CCTK_REAL Rt33 = 0.5*(4*(Gt133*Gtlu313 + Gt213*Gtlu321 + Gt223*Gtlu322 
+      + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) - 
+      gtu11*JacPDstandardNth11gt33 + gtu21*(-JacPDstandardNth12gt33 - 
+      JacPDstandardNth21gt33) - gtu22*JacPDstandardNth22gt33 + 
+      gtu31*(-JacPDstandardNth13gt33 - JacPDstandardNth31gt33) + 
+      gtu32*(-JacPDstandardNth23gt33 - JacPDstandardNth32gt33) - 
+      gtu33*JacPDstandardNth33gt33 + 2*(Gt133*Gtlu133 + Gt213*Gtlu231 + 
+      Gt223*Gtlu232 + Gt233*Gtlu233 + Gt113*(Gtlu131 + 2*Gtlu311) + 
+      Gt123*(Gtlu132 + 2*Gtlu312) + gt13L*JacPDstandardNth3Xt1) + 
+      2*gt23L*JacPDstandardNth3Xt2 + 2*gt33L*JacPDstandardNth3Xt3 + 
+      2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + 2*Gtl333*Xtn3);
     
     CCTK_REAL trRt = gtu11*Rt11 + gtu22*Rt22 + 2*(gtu21*Rt12 + gtu31*Rt13 
       + gtu32*Rt23) + gtu33*Rt33;
@@ -619,31 +1450,31 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d
       SQR(Atm22) + SQR(Atm33)));
     
     CCTK_REAL Jadm1L = 
-      0.0208333333333333333333333333333*(-4*zL*PDstandardNth2trK + 
-      4*yL*PDstandardNth3trK + 3*(At11L*(zL*dgtu112 - yL*dgtu113) + 
-      At22L*(zL*dgtu222 - yL*dgtu223) + 2*(Atm23 + 
-      zL*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)) - 2*(Atm32 
-      + yL*(At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)) + 
-      At33L*(zL*dgtu332 - yL*dgtu333) + Pi*(-16*zL*S2 + 
-      16*yL*S3)))*INV(Pi)*pow(ephi,6);
+      0.0208333333333333333333333333333*(At11L*(3*zL*dgtu112 - 
+      3*yL*dgtu113) + At22L*(3*zL*dgtu222 - 3*yL*dgtu223) + 6*(Atm23 
+      + zL*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)) - 
+      6*(Atm32 + yL*(At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)) 
+      + At33L*(3*zL*dgtu332 - 3*yL*dgtu333) + 
+      zL*(-4*JacPDstandardNth2trK - 48*Pi*S2) + 
+      yL*(4*JacPDstandardNth3trK + 48*Pi*S3))*INV(Pi)*pow(ephi,6);
     
     CCTK_REAL Jadm2L = 
-      0.0208333333333333333333333333333*(4*zL*PDstandardNth1trK - 
-      4*xL*PDstandardNth3trK + 3*(At11L*(-(zL*dgtu111) + xL*dgtu113) 
-      + At22L*(-(zL*dgtu221) + xL*dgtu223) - 2*(Atm13 + 
-      zL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) + 2*(Atm31 
-      + xL*(At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)) + 
-      At33L*(-(zL*dgtu331) + xL*dgtu333) + Pi*(16*zL*S1 - 
-      16*xL*S3)))*INV(Pi)*pow(ephi,6);
+      0.0208333333333333333333333333333*(At11L*(-3*zL*dgtu111 + 
+      3*xL*dgtu113) + At22L*(-3*zL*dgtu221 + 3*xL*dgtu223) - 6*(Atm13 
+      + zL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) + 
+      6*(Atm31 + xL*(At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)) 
+      + At33L*(-3*zL*dgtu331 + 3*xL*dgtu333) + 
+      zL*(4*JacPDstandardNth1trK + 48*Pi*S1) + 
+      xL*(-4*JacPDstandardNth3trK - 48*Pi*S3))*INV(Pi)*pow(ephi,6);
     
     CCTK_REAL Jadm3L = 
-      0.0208333333333333333333333333333*(-4*yL*PDstandardNth1trK + 
-      4*xL*PDstandardNth2trK + 3*(At11L*(yL*dgtu111 - xL*dgtu112) + 
-      At22L*(yL*dgtu221 - xL*dgtu222) + 2*(Atm12 + 
-      yL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) - 2*(Atm21 
-      + xL*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)) + 
-      At33L*(yL*dgtu331 - xL*dgtu332) + Pi*(-16*yL*S1 + 
-      16*xL*S2)))*INV(Pi)*pow(ephi,6);
+      0.0208333333333333333333333333333*(At11L*(3*yL*dgtu111 - 
+      3*xL*dgtu112) + At22L*(3*yL*dgtu221 - 3*xL*dgtu222) + 6*(Atm12 
+      + yL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) - 
+      6*(Atm21 + xL*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)) 
+      + At33L*(3*yL*dgtu331 - 3*xL*dgtu332) + 
+      yL*(-4*JacPDstandardNth1trK - 48*Pi*S1) + 
+      xL*(4*JacPDstandardNth2trK + 48*Pi*S2))*INV(Pi)*pow(ephi,6);
     
     /* Copy local copies back to grid functions */
     Jadm1[index] = Jadm1L;
diff --git a/ML_ADMQuantities_MP/configuration.ccl b/ML_ADMQuantities_MP/configuration.ccl
deleted file mode 100644
index 0a66ec2..0000000
--- a/ML_ADMQuantities_MP/configuration.ccl
+++ /dev/null
@@ -1,6 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-OPTIONAL LoopControl
-{
-}
diff --git a/ML_ADMQuantities_MP/interface.ccl b/ML_ADMQuantities_MP/interface.ccl
deleted file mode 100644
index 9dbda15..0000000
--- a/ML_ADMQuantities_MP/interface.ccl
+++ /dev/null
@@ -1,42 +0,0 @@
-# File produced by Kranc
-
-implements: ML_ADMQuantities_MP
-
-inherits:   ADMBase ML_BSSN_MP TmunuBase Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL ML_Jadm type=GF timelevels=3 tags='tensortypealias="D" tensorweight=0'
-{
-  Jadm1,
-  Jadm2,
-  Jadm3
-} "ML_Jadm"
-
-public:
-CCTK_REAL ML_Madm type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  Madm
-} "ML_Madm"
diff --git a/ML_ADMQuantities_MP/param.ccl b/ML_ADMQuantities_MP/param.ccl
deleted file mode 100644
index 47f8215..0000000
--- a/ML_ADMQuantities_MP/param.ccl
+++ /dev/null
@@ -1,69 +0,0 @@
-# File produced by Kranc
-
-
-shares: GenericFD
-
-USES CCTK_STRING jacobian_group
-USES CCTK_STRING jacobian_derivative_group
-USES CCTK_INT jacobian_identity_map
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT conformalMethod "Treatment of conformal factor"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_ADMQuantities_MP_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT ML_ADMQuantities_MP_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT ML_ADMQuantities_MP_calc_every "ML_ADMQuantities_MP_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_ADMQuantities_MP_calc_offset "ML_ADMQuantities_MP_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
diff --git a/ML_ADMQuantities_MP/schedule.ccl b/ML_ADMQuantities_MP/schedule.ccl
deleted file mode 100644
index 6f7e000..0000000
--- a/ML_ADMQuantities_MP/schedule.ccl
+++ /dev/null
@@ -1,110 +0,0 @@
-# File produced by Kranc
-
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Jadm[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Jadm[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Jadm[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Madm[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Madm[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Madm[3]
-}
-
-schedule ML_ADMQuantities_MP_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_ADMQuantities_MP_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-schedule group ML_ADMQuantities_MP_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_ADMQuantities_MP"
-
-schedule ML_ADMQuantities_MP in ML_ADMQuantities_MP_group
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_Gamma
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_log_confac
-  READS:    ML_BSSN::ML_metric
-  READS:    ML_BSSN::ML_shift
-  READS:    ML_BSSN::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_ADMQuantities_MP::ML_Jadm
-  WRITES:   ML_ADMQuantities_MP::ML_Madm
-} "ML_ADMQuantities_MP"
-
-schedule ML_ADMQuantities_MP_SelectBCs in ML_ADMQuantities_MP_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_Jadm
-  SYNC: ML_Madm
-} "ML_ADMQuantities_MP_SelectBCs"
-
-schedule group ApplyBCs as ML_ADMQuantities_MP_ApplyBCs in ML_ADMQuantities_MP_bc_group after ML_ADMQuantities_MP_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_ADMQuantities_MP"
-
-schedule group ML_ADMQuantities_MP_bc_group in ML_ADMQuantities_MP_group after ML_ADMQuantities_MP
-{
-  # no language specified
-} "ML_ADMQuantities_MP"
-
-schedule group ML_ADMQuantities_MP_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_ADMQuantities_MP"
-
-schedule ML_ADMQuantities_MP_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-} "select boundary conditions"
-
-schedule ML_ADMQuantities_MP_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_ADMQuantities_MP_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_ADMQuantities_MP_ApplyBCs in MoL_PostStep after ML_ADMQuantities_MP_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_ADMQuantities_MP/src/Boundaries.cc b/ML_ADMQuantities_MP/src/Boundaries.cc
deleted file mode 100644
index 0e315fb..0000000
--- a/ML_ADMQuantities_MP/src/Boundaries.cc
+++ /dev/null
@@ -1,41 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_ADMQuantities_MP_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_ADMQuantities_MP_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-*/
-
diff --git a/ML_ADMQuantities_MP/src/Differencing.h b/ML_ADMQuantities_MP/src/Differencing.h
deleted file mode 100644
index ba75ffa..0000000
--- a/ML_ADMQuantities_MP/src/Differencing.h
+++ /dev/null
@@ -1,216 +0,0 @@
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth1(u) ((-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx)
-#else
-#  define PDstandardNth1(u) (PDstandardNth1_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth2(u) ((-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy)
-#else
-#  define PDstandardNth2(u) (PDstandardNth2_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth3(u) ((-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz)
-#else
-#  define PDstandardNth3(u) (PDstandardNth3_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth11(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2)
-#else
-#  define PDstandardNth11(u) (PDstandardNth11_impl(u,pm1o12dx2,cdj,cdk))
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth22(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2)
-#else
-#  define PDstandardNth22(u) (PDstandardNth22_impl(u,pm1o12dy2,cdj,cdk))
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth33(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2)
-#else
-#  define PDstandardNth33(u) (PDstandardNth33_impl(u,pm1o12dz2,cdj,cdk))
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth12(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy)
-#else
-#  define PDstandardNth12(u) (PDstandardNth12_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth13(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz)
-#else
-#  define PDstandardNth13(u) (PDstandardNth13_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth21(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy)
-#else
-#  define PDstandardNth21(u) (PDstandardNth21_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth23(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz)
-#else
-#  define PDstandardNth23(u) (PDstandardNth23_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth31(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz)
-#else
-#  define PDstandardNth31(u) (PDstandardNth31_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth32(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz)
-#else
-#  define PDstandardNth32(u) (PDstandardNth32_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNth1(u) ((-10*KRANC_GFOFFSET3D(u,0,0,0) - 6*KRANC_GFOFFSET3D(u,2*dir1,0,0) + KRANC_GFOFFSET3D(u,3*dir1,0,0) - 3*KRANC_GFOFFSET3D(u,-dir1,0,0) + 18*KRANC_GFOFFSET3D(u,dir1,0,0))*p1o12dx*dir1)
-#else
-#  define PDupwindNth1(u) (PDupwindNth1_impl(u,p1o12dx,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDupwindNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDupwindNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-10*KRANC_GFOFFSET3D(u,0,0,0) - 6*KRANC_GFOFFSET3D(u,2*dir1,0,0) + KRANC_GFOFFSET3D(u,3*dir1,0,0) - 3*KRANC_GFOFFSET3D(u,-dir1,0,0) + 18*KRANC_GFOFFSET3D(u,dir1,0,0))*p1o12dx*dir1;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNth2(u) ((-10*KRANC_GFOFFSET3D(u,0,0,0) - 6*KRANC_GFOFFSET3D(u,0,2*dir2,0) + KRANC_GFOFFSET3D(u,0,3*dir2,0) - 3*KRANC_GFOFFSET3D(u,0,-dir2,0) + 18*KRANC_GFOFFSET3D(u,0,dir2,0))*p1o12dy*dir2)
-#else
-#  define PDupwindNth2(u) (PDupwindNth2_impl(u,p1o12dy,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDupwindNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDupwindNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-10*KRANC_GFOFFSET3D(u,0,0,0) - 6*KRANC_GFOFFSET3D(u,0,2*dir2,0) + KRANC_GFOFFSET3D(u,0,3*dir2,0) - 3*KRANC_GFOFFSET3D(u,0,-dir2,0) + 18*KRANC_GFOFFSET3D(u,0,dir2,0))*p1o12dy*dir2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNth3(u) ((-10*KRANC_GFOFFSET3D(u,0,0,0) - 6*KRANC_GFOFFSET3D(u,0,0,2*dir3) + KRANC_GFOFFSET3D(u,0,0,3*dir3) - 3*KRANC_GFOFFSET3D(u,0,0,-dir3) + 18*KRANC_GFOFFSET3D(u,0,0,dir3))*p1o12dz*dir3)
-#else
-#  define PDupwindNth3(u) (PDupwindNth3_impl(u,p1o12dz,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDupwindNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDupwindNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-10*KRANC_GFOFFSET3D(u,0,0,0) - 6*KRANC_GFOFFSET3D(u,0,0,2*dir3) + KRANC_GFOFFSET3D(u,0,0,3*dir3) - 3*KRANC_GFOFFSET3D(u,0,0,-dir3) + 18*KRANC_GFOFFSET3D(u,0,0,dir3))*p1o12dz*dir3;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided1(u) ((-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,dir1,0,0))*p1odx*dir1)
-#else
-#  define PDonesided1(u) (PDonesided1_impl(u,p1odx,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,dir1,0,0))*p1odx*dir1;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided2(u) ((-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,dir2,0))*p1ody*dir2)
-#else
-#  define PDonesided2(u) (PDonesided2_impl(u,p1ody,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,dir2,0))*p1ody*dir2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided3(u) ((-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,dir3))*p1odz*dir3)
-#else
-#  define PDonesided3(u) (PDonesided3_impl(u,p1odz,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,dir3))*p1odz*dir3;
-}
-#endif
-
diff --git a/ML_ADMQuantities_MP/src/ML_ADMQuantities_MP.cc b/ML_ADMQuantities_MP/src/ML_ADMQuantities_MP.cc
deleted file mode 100644
index fd37c79..0000000
--- a/ML_ADMQuantities_MP/src/ML_ADMQuantities_MP.cc
+++ /dev/null
@@ -1,1526 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-extern "C" void ML_ADMQuantities_MP_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMQuantities_MP::ML_Jadm","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_ADMQuantities_MP::ML_Jadm.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMQuantities_MP::ML_Madm","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_ADMQuantities_MP::ML_Madm.");
-  return;
-}
-
-static void ML_ADMQuantities_MP_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx);
-  CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy);
-  CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz);
-  CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy);
-  CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz);
-  CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz);
-  CCTK_REAL const p1odx = INV(dx);
-  CCTK_REAL const p1ody = INV(dy);
-  CCTK_REAL const p1odz = INV(dz);
-  CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx));
-  CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy));
-  CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(ML_ADMQuantities_MP,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL alphaL = alpha[index];
-    CCTK_REAL At11L = At11[index];
-    CCTK_REAL At12L = At12[index];
-    CCTK_REAL At13L = At13[index];
-    CCTK_REAL At22L = At22[index];
-    CCTK_REAL At23L = At23[index];
-    CCTK_REAL At33L = At33[index];
-    CCTK_REAL beta1L = beta1[index];
-    CCTK_REAL beta2L = beta2[index];
-    CCTK_REAL beta3L = beta3[index];
-    CCTK_REAL gt11L = gt11[index];
-    CCTK_REAL gt12L = gt12[index];
-    CCTK_REAL gt13L = gt13[index];
-    CCTK_REAL gt22L = gt22[index];
-    CCTK_REAL gt23L = gt23[index];
-    CCTK_REAL gt33L = gt33[index];
-    CCTK_REAL phiL = phi[index];
-    CCTK_REAL trKL = trK[index];
-    CCTK_REAL xL = x[index];
-    CCTK_REAL Xt1L = Xt1[index];
-    CCTK_REAL Xt2L = Xt2[index];
-    CCTK_REAL Xt3L = Xt3[index];
-    CCTK_REAL yL = y[index];
-    CCTK_REAL zL = z[index];
-    
-    CCTK_REAL eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = eTtt[index];
-      eTtxL = eTtx[index];
-      eTtyL = eTty[index];
-      eTtzL = eTtz[index];
-      eTxxL = eTxx[index];
-      eTxyL = eTxy[index];
-      eTxzL = eTxz[index];
-      eTyyL = eTyy[index];
-      eTyzL = eTyz[index];
-      eTzzL = eTzz[index];
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = dJ111[index];
-      dJ112L = dJ112[index];
-      dJ113L = dJ113[index];
-      dJ122L = dJ122[index];
-      dJ123L = dJ123[index];
-      dJ133L = dJ133[index];
-      dJ211L = dJ211[index];
-      dJ212L = dJ212[index];
-      dJ213L = dJ213[index];
-      dJ222L = dJ222[index];
-      dJ223L = dJ223[index];
-      dJ233L = dJ233[index];
-      dJ311L = dJ311[index];
-      dJ312L = dJ312[index];
-      dJ313L = dJ313[index];
-      dJ322L = dJ322[index];
-      dJ323L = dJ323[index];
-      dJ333L = dJ333[index];
-      J11L = J11[index];
-      J12L = J12[index];
-      J13L = J13[index];
-      J21L = J21[index];
-      J22L = J22[index];
-      J23L = J23[index];
-      J31L = J31[index];
-      J32L = J32[index];
-      J33L = J33[index];
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL const PDstandardNth1gt11 = PDstandardNth1(&gt11[index]);
-    CCTK_REAL const PDstandardNth2gt11 = PDstandardNth2(&gt11[index]);
-    CCTK_REAL const PDstandardNth3gt11 = PDstandardNth3(&gt11[index]);
-    CCTK_REAL const PDstandardNth11gt11 = PDstandardNth11(&gt11[index]);
-    CCTK_REAL const PDstandardNth22gt11 = PDstandardNth22(&gt11[index]);
-    CCTK_REAL const PDstandardNth33gt11 = PDstandardNth33(&gt11[index]);
-    CCTK_REAL const PDstandardNth12gt11 = PDstandardNth12(&gt11[index]);
-    CCTK_REAL const PDstandardNth13gt11 = PDstandardNth13(&gt11[index]);
-    CCTK_REAL const PDstandardNth23gt11 = PDstandardNth23(&gt11[index]);
-    CCTK_REAL const PDstandardNth1gt12 = PDstandardNth1(&gt12[index]);
-    CCTK_REAL const PDstandardNth2gt12 = PDstandardNth2(&gt12[index]);
-    CCTK_REAL const PDstandardNth3gt12 = PDstandardNth3(&gt12[index]);
-    CCTK_REAL const PDstandardNth11gt12 = PDstandardNth11(&gt12[index]);
-    CCTK_REAL const PDstandardNth22gt12 = PDstandardNth22(&gt12[index]);
-    CCTK_REAL const PDstandardNth33gt12 = PDstandardNth33(&gt12[index]);
-    CCTK_REAL const PDstandardNth12gt12 = PDstandardNth12(&gt12[index]);
-    CCTK_REAL const PDstandardNth13gt12 = PDstandardNth13(&gt12[index]);
-    CCTK_REAL const PDstandardNth23gt12 = PDstandardNth23(&gt12[index]);
-    CCTK_REAL const PDstandardNth1gt13 = PDstandardNth1(&gt13[index]);
-    CCTK_REAL const PDstandardNth2gt13 = PDstandardNth2(&gt13[index]);
-    CCTK_REAL const PDstandardNth3gt13 = PDstandardNth3(&gt13[index]);
-    CCTK_REAL const PDstandardNth11gt13 = PDstandardNth11(&gt13[index]);
-    CCTK_REAL const PDstandardNth22gt13 = PDstandardNth22(&gt13[index]);
-    CCTK_REAL const PDstandardNth33gt13 = PDstandardNth33(&gt13[index]);
-    CCTK_REAL const PDstandardNth12gt13 = PDstandardNth12(&gt13[index]);
-    CCTK_REAL const PDstandardNth13gt13 = PDstandardNth13(&gt13[index]);
-    CCTK_REAL const PDstandardNth23gt13 = PDstandardNth23(&gt13[index]);
-    CCTK_REAL const PDstandardNth1gt22 = PDstandardNth1(&gt22[index]);
-    CCTK_REAL const PDstandardNth2gt22 = PDstandardNth2(&gt22[index]);
-    CCTK_REAL const PDstandardNth3gt22 = PDstandardNth3(&gt22[index]);
-    CCTK_REAL const PDstandardNth11gt22 = PDstandardNth11(&gt22[index]);
-    CCTK_REAL const PDstandardNth22gt22 = PDstandardNth22(&gt22[index]);
-    CCTK_REAL const PDstandardNth33gt22 = PDstandardNth33(&gt22[index]);
-    CCTK_REAL const PDstandardNth12gt22 = PDstandardNth12(&gt22[index]);
-    CCTK_REAL const PDstandardNth13gt22 = PDstandardNth13(&gt22[index]);
-    CCTK_REAL const PDstandardNth23gt22 = PDstandardNth23(&gt22[index]);
-    CCTK_REAL const PDstandardNth1gt23 = PDstandardNth1(&gt23[index]);
-    CCTK_REAL const PDstandardNth2gt23 = PDstandardNth2(&gt23[index]);
-    CCTK_REAL const PDstandardNth3gt23 = PDstandardNth3(&gt23[index]);
-    CCTK_REAL const PDstandardNth11gt23 = PDstandardNth11(&gt23[index]);
-    CCTK_REAL const PDstandardNth22gt23 = PDstandardNth22(&gt23[index]);
-    CCTK_REAL const PDstandardNth33gt23 = PDstandardNth33(&gt23[index]);
-    CCTK_REAL const PDstandardNth12gt23 = PDstandardNth12(&gt23[index]);
-    CCTK_REAL const PDstandardNth13gt23 = PDstandardNth13(&gt23[index]);
-    CCTK_REAL const PDstandardNth23gt23 = PDstandardNth23(&gt23[index]);
-    CCTK_REAL const PDstandardNth1gt33 = PDstandardNth1(&gt33[index]);
-    CCTK_REAL const PDstandardNth2gt33 = PDstandardNth2(&gt33[index]);
-    CCTK_REAL const PDstandardNth3gt33 = PDstandardNth3(&gt33[index]);
-    CCTK_REAL const PDstandardNth11gt33 = PDstandardNth11(&gt33[index]);
-    CCTK_REAL const PDstandardNth22gt33 = PDstandardNth22(&gt33[index]);
-    CCTK_REAL const PDstandardNth33gt33 = PDstandardNth33(&gt33[index]);
-    CCTK_REAL const PDstandardNth12gt33 = PDstandardNth12(&gt33[index]);
-    CCTK_REAL const PDstandardNth13gt33 = PDstandardNth13(&gt33[index]);
-    CCTK_REAL const PDstandardNth23gt33 = PDstandardNth23(&gt33[index]);
-    CCTK_REAL const PDstandardNth1trK = PDstandardNth1(&trK[index]);
-    CCTK_REAL const PDstandardNth2trK = PDstandardNth2(&trK[index]);
-    CCTK_REAL const PDstandardNth3trK = PDstandardNth3(&trK[index]);
-    CCTK_REAL const PDstandardNth1Xt1 = PDstandardNth1(&Xt1[index]);
-    CCTK_REAL const PDstandardNth2Xt1 = PDstandardNth2(&Xt1[index]);
-    CCTK_REAL const PDstandardNth3Xt1 = PDstandardNth3(&Xt1[index]);
-    CCTK_REAL const PDstandardNth1Xt2 = PDstandardNth1(&Xt2[index]);
-    CCTK_REAL const PDstandardNth2Xt2 = PDstandardNth2(&Xt2[index]);
-    CCTK_REAL const PDstandardNth3Xt2 = PDstandardNth3(&Xt2[index]);
-    CCTK_REAL const PDstandardNth1Xt3 = PDstandardNth1(&Xt3[index]);
-    CCTK_REAL const PDstandardNth2Xt3 = PDstandardNth2(&Xt3[index]);
-    CCTK_REAL const PDstandardNth3Xt3 = PDstandardNth3(&Xt3[index]);
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL JacPDstandardNth11gt11;
-    CCTK_REAL JacPDstandardNth11gt12;
-    CCTK_REAL JacPDstandardNth11gt13;
-    CCTK_REAL JacPDstandardNth11gt22;
-    CCTK_REAL JacPDstandardNth11gt23;
-    CCTK_REAL JacPDstandardNth11gt33;
-    CCTK_REAL JacPDstandardNth12gt11;
-    CCTK_REAL JacPDstandardNth12gt12;
-    CCTK_REAL JacPDstandardNth12gt13;
-    CCTK_REAL JacPDstandardNth12gt22;
-    CCTK_REAL JacPDstandardNth12gt23;
-    CCTK_REAL JacPDstandardNth12gt33;
-    CCTK_REAL JacPDstandardNth13gt11;
-    CCTK_REAL JacPDstandardNth13gt12;
-    CCTK_REAL JacPDstandardNth13gt13;
-    CCTK_REAL JacPDstandardNth13gt22;
-    CCTK_REAL JacPDstandardNth13gt23;
-    CCTK_REAL JacPDstandardNth13gt33;
-    CCTK_REAL JacPDstandardNth1gt11;
-    CCTK_REAL JacPDstandardNth1gt12;
-    CCTK_REAL JacPDstandardNth1gt13;
-    CCTK_REAL JacPDstandardNth1gt22;
-    CCTK_REAL JacPDstandardNth1gt23;
-    CCTK_REAL JacPDstandardNth1gt33;
-    CCTK_REAL JacPDstandardNth1trK;
-    CCTK_REAL JacPDstandardNth1Xt1;
-    CCTK_REAL JacPDstandardNth1Xt2;
-    CCTK_REAL JacPDstandardNth1Xt3;
-    CCTK_REAL JacPDstandardNth21gt11;
-    CCTK_REAL JacPDstandardNth21gt12;
-    CCTK_REAL JacPDstandardNth21gt13;
-    CCTK_REAL JacPDstandardNth21gt22;
-    CCTK_REAL JacPDstandardNth21gt23;
-    CCTK_REAL JacPDstandardNth21gt33;
-    CCTK_REAL JacPDstandardNth22gt11;
-    CCTK_REAL JacPDstandardNth22gt12;
-    CCTK_REAL JacPDstandardNth22gt13;
-    CCTK_REAL JacPDstandardNth22gt22;
-    CCTK_REAL JacPDstandardNth22gt23;
-    CCTK_REAL JacPDstandardNth22gt33;
-    CCTK_REAL JacPDstandardNth23gt11;
-    CCTK_REAL JacPDstandardNth23gt12;
-    CCTK_REAL JacPDstandardNth23gt13;
-    CCTK_REAL JacPDstandardNth23gt22;
-    CCTK_REAL JacPDstandardNth23gt23;
-    CCTK_REAL JacPDstandardNth23gt33;
-    CCTK_REAL JacPDstandardNth2gt11;
-    CCTK_REAL JacPDstandardNth2gt12;
-    CCTK_REAL JacPDstandardNth2gt13;
-    CCTK_REAL JacPDstandardNth2gt22;
-    CCTK_REAL JacPDstandardNth2gt23;
-    CCTK_REAL JacPDstandardNth2gt33;
-    CCTK_REAL JacPDstandardNth2trK;
-    CCTK_REAL JacPDstandardNth2Xt1;
-    CCTK_REAL JacPDstandardNth2Xt2;
-    CCTK_REAL JacPDstandardNth2Xt3;
-    CCTK_REAL JacPDstandardNth31gt11;
-    CCTK_REAL JacPDstandardNth31gt12;
-    CCTK_REAL JacPDstandardNth31gt13;
-    CCTK_REAL JacPDstandardNth31gt22;
-    CCTK_REAL JacPDstandardNth31gt23;
-    CCTK_REAL JacPDstandardNth31gt33;
-    CCTK_REAL JacPDstandardNth32gt11;
-    CCTK_REAL JacPDstandardNth32gt12;
-    CCTK_REAL JacPDstandardNth32gt13;
-    CCTK_REAL JacPDstandardNth32gt22;
-    CCTK_REAL JacPDstandardNth32gt23;
-    CCTK_REAL JacPDstandardNth32gt33;
-    CCTK_REAL JacPDstandardNth33gt11;
-    CCTK_REAL JacPDstandardNth33gt12;
-    CCTK_REAL JacPDstandardNth33gt13;
-    CCTK_REAL JacPDstandardNth33gt22;
-    CCTK_REAL JacPDstandardNth33gt23;
-    CCTK_REAL JacPDstandardNth33gt33;
-    CCTK_REAL JacPDstandardNth3gt11;
-    CCTK_REAL JacPDstandardNth3gt12;
-    CCTK_REAL JacPDstandardNth3gt13;
-    CCTK_REAL JacPDstandardNth3gt22;
-    CCTK_REAL JacPDstandardNth3gt23;
-    CCTK_REAL JacPDstandardNth3gt33;
-    CCTK_REAL JacPDstandardNth3trK;
-    CCTK_REAL JacPDstandardNth3Xt1;
-    CCTK_REAL JacPDstandardNth3Xt2;
-    CCTK_REAL JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = J11L*PDstandardNth1gt11 + 
-        J21L*PDstandardNth2gt11 + J31L*PDstandardNth3gt11;
-      
-      JacPDstandardNth1gt12 = J11L*PDstandardNth1gt12 + 
-        J21L*PDstandardNth2gt12 + J31L*PDstandardNth3gt12;
-      
-      JacPDstandardNth1gt13 = J11L*PDstandardNth1gt13 + 
-        J21L*PDstandardNth2gt13 + J31L*PDstandardNth3gt13;
-      
-      JacPDstandardNth1gt22 = J11L*PDstandardNth1gt22 + 
-        J21L*PDstandardNth2gt22 + J31L*PDstandardNth3gt22;
-      
-      JacPDstandardNth1gt23 = J11L*PDstandardNth1gt23 + 
-        J21L*PDstandardNth2gt23 + J31L*PDstandardNth3gt23;
-      
-      JacPDstandardNth1gt33 = J11L*PDstandardNth1gt33 + 
-        J21L*PDstandardNth2gt33 + J31L*PDstandardNth3gt33;
-      
-      JacPDstandardNth1trK = J11L*PDstandardNth1trK + 
-        J21L*PDstandardNth2trK + J31L*PDstandardNth3trK;
-      
-      JacPDstandardNth1Xt1 = J11L*PDstandardNth1Xt1 + 
-        J21L*PDstandardNth2Xt1 + J31L*PDstandardNth3Xt1;
-      
-      JacPDstandardNth1Xt2 = J11L*PDstandardNth1Xt2 + 
-        J21L*PDstandardNth2Xt2 + J31L*PDstandardNth3Xt2;
-      
-      JacPDstandardNth1Xt3 = J11L*PDstandardNth1Xt3 + 
-        J21L*PDstandardNth2Xt3 + J31L*PDstandardNth3Xt3;
-      
-      JacPDstandardNth2gt11 = J12L*PDstandardNth1gt11 + 
-        J22L*PDstandardNth2gt11 + J32L*PDstandardNth3gt11;
-      
-      JacPDstandardNth2gt12 = J12L*PDstandardNth1gt12 + 
-        J22L*PDstandardNth2gt12 + J32L*PDstandardNth3gt12;
-      
-      JacPDstandardNth2gt13 = J12L*PDstandardNth1gt13 + 
-        J22L*PDstandardNth2gt13 + J32L*PDstandardNth3gt13;
-      
-      JacPDstandardNth2gt22 = J12L*PDstandardNth1gt22 + 
-        J22L*PDstandardNth2gt22 + J32L*PDstandardNth3gt22;
-      
-      JacPDstandardNth2gt23 = J12L*PDstandardNth1gt23 + 
-        J22L*PDstandardNth2gt23 + J32L*PDstandardNth3gt23;
-      
-      JacPDstandardNth2gt33 = J12L*PDstandardNth1gt33 + 
-        J22L*PDstandardNth2gt33 + J32L*PDstandardNth3gt33;
-      
-      JacPDstandardNth2trK = J12L*PDstandardNth1trK + 
-        J22L*PDstandardNth2trK + J32L*PDstandardNth3trK;
-      
-      JacPDstandardNth2Xt1 = J12L*PDstandardNth1Xt1 + 
-        J22L*PDstandardNth2Xt1 + J32L*PDstandardNth3Xt1;
-      
-      JacPDstandardNth2Xt2 = J12L*PDstandardNth1Xt2 + 
-        J22L*PDstandardNth2Xt2 + J32L*PDstandardNth3Xt2;
-      
-      JacPDstandardNth2Xt3 = J12L*PDstandardNth1Xt3 + 
-        J22L*PDstandardNth2Xt3 + J32L*PDstandardNth3Xt3;
-      
-      JacPDstandardNth3gt11 = J13L*PDstandardNth1gt11 + 
-        J23L*PDstandardNth2gt11 + J33L*PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = J13L*PDstandardNth1gt12 + 
-        J23L*PDstandardNth2gt12 + J33L*PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = J13L*PDstandardNth1gt13 + 
-        J23L*PDstandardNth2gt13 + J33L*PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = J13L*PDstandardNth1gt22 + 
-        J23L*PDstandardNth2gt22 + J33L*PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = J13L*PDstandardNth1gt23 + 
-        J23L*PDstandardNth2gt23 + J33L*PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = J13L*PDstandardNth1gt33 + 
-        J23L*PDstandardNth2gt33 + J33L*PDstandardNth3gt33;
-      
-      JacPDstandardNth3trK = J13L*PDstandardNth1trK + 
-        J23L*PDstandardNth2trK + J33L*PDstandardNth3trK;
-      
-      JacPDstandardNth3Xt1 = J13L*PDstandardNth1Xt1 + 
-        J23L*PDstandardNth2Xt1 + J33L*PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = J13L*PDstandardNth1Xt2 + 
-        J23L*PDstandardNth2Xt2 + J33L*PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = J13L*PDstandardNth1Xt3 + 
-        J23L*PDstandardNth2Xt3 + J33L*PDstandardNth3Xt3;
-      
-      JacPDstandardNth11gt11 = dJ111L*PDstandardNth1gt11 + 
-        2*(J11L*(J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
-        J21L*J31L*PDstandardNth23gt11) + dJ211L*PDstandardNth2gt11 + 
-        dJ311L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J11L) + 
-        PDstandardNth22gt11*SQR(J21L) + PDstandardNth33gt11*SQR(J31L);
-      
-      JacPDstandardNth11gt12 = dJ111L*PDstandardNth1gt12 + 
-        2*(J11L*(J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
-        J21L*J31L*PDstandardNth23gt12) + dJ211L*PDstandardNth2gt12 + 
-        dJ311L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J11L) + 
-        PDstandardNth22gt12*SQR(J21L) + PDstandardNth33gt12*SQR(J31L);
-      
-      JacPDstandardNth11gt13 = dJ111L*PDstandardNth1gt13 + 
-        2*(J11L*(J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
-        J21L*J31L*PDstandardNth23gt13) + dJ211L*PDstandardNth2gt13 + 
-        dJ311L*PDstandardNth3gt13 + PDstandardNth11gt13*SQR(J11L) + 
-        PDstandardNth22gt13*SQR(J21L) + PDstandardNth33gt13*SQR(J31L);
-      
-      JacPDstandardNth11gt22 = dJ111L*PDstandardNth1gt22 + 
-        2*(J11L*(J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
-        J21L*J31L*PDstandardNth23gt22) + dJ211L*PDstandardNth2gt22 + 
-        dJ311L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J11L) + 
-        PDstandardNth22gt22*SQR(J21L) + PDstandardNth33gt22*SQR(J31L);
-      
-      JacPDstandardNth11gt23 = dJ111L*PDstandardNth1gt23 + 
-        2*(J11L*(J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
-        J21L*J31L*PDstandardNth23gt23) + dJ211L*PDstandardNth2gt23 + 
-        dJ311L*PDstandardNth3gt23 + PDstandardNth11gt23*SQR(J11L) + 
-        PDstandardNth22gt23*SQR(J21L) + PDstandardNth33gt23*SQR(J31L);
-      
-      JacPDstandardNth11gt33 = dJ111L*PDstandardNth1gt33 + 
-        2*(J11L*(J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
-        J21L*J31L*PDstandardNth23gt33) + dJ211L*PDstandardNth2gt33 + 
-        dJ311L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J11L) + 
-        PDstandardNth22gt33*SQR(J21L) + PDstandardNth33gt33*SQR(J31L);
-      
-      JacPDstandardNth22gt11 = dJ122L*PDstandardNth1gt11 + 
-        2*(J12L*(J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
-        J22L*J32L*PDstandardNth23gt11) + dJ222L*PDstandardNth2gt11 + 
-        dJ322L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J12L) + 
-        PDstandardNth22gt11*SQR(J22L) + PDstandardNth33gt11*SQR(J32L);
-      
-      JacPDstandardNth22gt12 = dJ122L*PDstandardNth1gt12 + 
-        2*(J12L*(J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
-        J22L*J32L*PDstandardNth23gt12) + dJ222L*PDstandardNth2gt12 + 
-        dJ322L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J12L) + 
-        PDstandardNth22gt12*SQR(J22L) + PDstandardNth33gt12*SQR(J32L);
-      
-      JacPDstandardNth22gt13 = dJ122L*PDstandardNth1gt13 + 
-        2*(J12L*(J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
-        J22L*J32L*PDstandardNth23gt13) + dJ222L*PDstandardNth2gt13 + 
-        dJ322L*PDstandardNth3gt13 + PDstandardNth11gt13*SQR(J12L) + 
-        PDstandardNth22gt13*SQR(J22L) + PDstandardNth33gt13*SQR(J32L);
-      
-      JacPDstandardNth22gt22 = dJ122L*PDstandardNth1gt22 + 
-        2*(J12L*(J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
-        J22L*J32L*PDstandardNth23gt22) + dJ222L*PDstandardNth2gt22 + 
-        dJ322L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J12L) + 
-        PDstandardNth22gt22*SQR(J22L) + PDstandardNth33gt22*SQR(J32L);
-      
-      JacPDstandardNth22gt23 = dJ122L*PDstandardNth1gt23 + 
-        2*(J12L*(J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
-        J22L*J32L*PDstandardNth23gt23) + dJ222L*PDstandardNth2gt23 + 
-        dJ322L*PDstandardNth3gt23 + PDstandardNth11gt23*SQR(J12L) + 
-        PDstandardNth22gt23*SQR(J22L) + PDstandardNth33gt23*SQR(J32L);
-      
-      JacPDstandardNth22gt33 = dJ122L*PDstandardNth1gt33 + 
-        2*(J12L*(J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
-        J22L*J32L*PDstandardNth23gt33) + dJ222L*PDstandardNth2gt33 + 
-        dJ322L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J12L) + 
-        PDstandardNth22gt33*SQR(J22L) + PDstandardNth33gt33*SQR(J32L);
-      
-      JacPDstandardNth33gt11 = dJ133L*PDstandardNth1gt11 + 
-        2*(J13L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
-        J23L*J33L*PDstandardNth23gt11) + dJ233L*PDstandardNth2gt11 + 
-        dJ333L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J13L) + 
-        PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L);
-      
-      JacPDstandardNth33gt12 = dJ133L*PDstandardNth1gt12 + 
-        2*(J13L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
-        J23L*J33L*PDstandardNth23gt12) + dJ233L*PDstandardNth2gt12 + 
-        dJ333L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J13L) + 
-        PDstandardNth22gt12*SQR(J23L) + PDstandardNth33gt12*SQR(J33L);
-      
-      JacPDstandardNth33gt13 = dJ133L*PDstandardNth1gt13 + 
-        2*(J13L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
-        J23L*J33L*PDstandardNth23gt13) + dJ233L*PDstandardNth2gt13 + 
-        dJ333L*PDstandardNth3gt13 + PDstandardNth11gt13*SQR(J13L) + 
-        PDstandardNth22gt13*SQR(J23L) + PDstandardNth33gt13*SQR(J33L);
-      
-      JacPDstandardNth33gt22 = dJ133L*PDstandardNth1gt22 + 
-        2*(J13L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
-        J23L*J33L*PDstandardNth23gt22) + dJ233L*PDstandardNth2gt22 + 
-        dJ333L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J13L) + 
-        PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L);
-      
-      JacPDstandardNth33gt23 = dJ133L*PDstandardNth1gt23 + 
-        2*(J13L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
-        J23L*J33L*PDstandardNth23gt23) + dJ233L*PDstandardNth2gt23 + 
-        dJ333L*PDstandardNth3gt23 + PDstandardNth11gt23*SQR(J13L) + 
-        PDstandardNth22gt23*SQR(J23L) + PDstandardNth33gt23*SQR(J33L);
-      
-      JacPDstandardNth33gt33 = dJ133L*PDstandardNth1gt33 + 
-        2*(J13L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
-        J23L*J33L*PDstandardNth23gt33) + dJ233L*PDstandardNth2gt33 + 
-        dJ333L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J13L) + 
-        PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L);
-      
-      JacPDstandardNth12gt11 = J12L*(J11L*PDstandardNth11gt11 + 
-        J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
-        J11L*(J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
-        dJ112L*PDstandardNth1gt11 + J22L*(J21L*PDstandardNth22gt11 + 
-        J31L*PDstandardNth23gt11) + dJ212L*PDstandardNth2gt11 + 
-        J32L*(J21L*PDstandardNth23gt11 + J31L*PDstandardNth33gt11) + 
-        dJ312L*PDstandardNth3gt11;
-      
-      JacPDstandardNth12gt12 = J12L*(J11L*PDstandardNth11gt12 + 
-        J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
-        J11L*(J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
-        dJ112L*PDstandardNth1gt12 + J22L*(J21L*PDstandardNth22gt12 + 
-        J31L*PDstandardNth23gt12) + dJ212L*PDstandardNth2gt12 + 
-        J32L*(J21L*PDstandardNth23gt12 + J31L*PDstandardNth33gt12) + 
-        dJ312L*PDstandardNth3gt12;
-      
-      JacPDstandardNth12gt13 = J12L*(J11L*PDstandardNth11gt13 + 
-        J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
-        J11L*(J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
-        dJ112L*PDstandardNth1gt13 + J22L*(J21L*PDstandardNth22gt13 + 
-        J31L*PDstandardNth23gt13) + dJ212L*PDstandardNth2gt13 + 
-        J32L*(J21L*PDstandardNth23gt13 + J31L*PDstandardNth33gt13) + 
-        dJ312L*PDstandardNth3gt13;
-      
-      JacPDstandardNth12gt22 = J12L*(J11L*PDstandardNth11gt22 + 
-        J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
-        J11L*(J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
-        dJ112L*PDstandardNth1gt22 + J22L*(J21L*PDstandardNth22gt22 + 
-        J31L*PDstandardNth23gt22) + dJ212L*PDstandardNth2gt22 + 
-        J32L*(J21L*PDstandardNth23gt22 + J31L*PDstandardNth33gt22) + 
-        dJ312L*PDstandardNth3gt22;
-      
-      JacPDstandardNth12gt23 = J12L*(J11L*PDstandardNth11gt23 + 
-        J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
-        J11L*(J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
-        dJ112L*PDstandardNth1gt23 + J22L*(J21L*PDstandardNth22gt23 + 
-        J31L*PDstandardNth23gt23) + dJ212L*PDstandardNth2gt23 + 
-        J32L*(J21L*PDstandardNth23gt23 + J31L*PDstandardNth33gt23) + 
-        dJ312L*PDstandardNth3gt23;
-      
-      JacPDstandardNth12gt33 = J12L*(J11L*PDstandardNth11gt33 + 
-        J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
-        J11L*(J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
-        dJ112L*PDstandardNth1gt33 + J22L*(J21L*PDstandardNth22gt33 + 
-        J31L*PDstandardNth23gt33) + dJ212L*PDstandardNth2gt33 + 
-        J32L*(J21L*PDstandardNth23gt33 + J31L*PDstandardNth33gt33) + 
-        dJ312L*PDstandardNth3gt33;
-      
-      JacPDstandardNth13gt11 = J13L*(J11L*PDstandardNth11gt11 + 
-        J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
-        J11L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
-        dJ113L*PDstandardNth1gt11 + J23L*(J21L*PDstandardNth22gt11 + 
-        J31L*PDstandardNth23gt11) + dJ213L*PDstandardNth2gt11 + 
-        J33L*(J21L*PDstandardNth23gt11 + J31L*PDstandardNth33gt11) + 
-        dJ313L*PDstandardNth3gt11;
-      
-      JacPDstandardNth13gt12 = J13L*(J11L*PDstandardNth11gt12 + 
-        J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
-        J11L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
-        dJ113L*PDstandardNth1gt12 + J23L*(J21L*PDstandardNth22gt12 + 
-        J31L*PDstandardNth23gt12) + dJ213L*PDstandardNth2gt12 + 
-        J33L*(J21L*PDstandardNth23gt12 + J31L*PDstandardNth33gt12) + 
-        dJ313L*PDstandardNth3gt12;
-      
-      JacPDstandardNth13gt13 = J13L*(J11L*PDstandardNth11gt13 + 
-        J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
-        J11L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
-        dJ113L*PDstandardNth1gt13 + J23L*(J21L*PDstandardNth22gt13 + 
-        J31L*PDstandardNth23gt13) + dJ213L*PDstandardNth2gt13 + 
-        J33L*(J21L*PDstandardNth23gt13 + J31L*PDstandardNth33gt13) + 
-        dJ313L*PDstandardNth3gt13;
-      
-      JacPDstandardNth13gt22 = J13L*(J11L*PDstandardNth11gt22 + 
-        J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
-        J11L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
-        dJ113L*PDstandardNth1gt22 + J23L*(J21L*PDstandardNth22gt22 + 
-        J31L*PDstandardNth23gt22) + dJ213L*PDstandardNth2gt22 + 
-        J33L*(J21L*PDstandardNth23gt22 + J31L*PDstandardNth33gt22) + 
-        dJ313L*PDstandardNth3gt22;
-      
-      JacPDstandardNth13gt23 = J13L*(J11L*PDstandardNth11gt23 + 
-        J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
-        J11L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
-        dJ113L*PDstandardNth1gt23 + J23L*(J21L*PDstandardNth22gt23 + 
-        J31L*PDstandardNth23gt23) + dJ213L*PDstandardNth2gt23 + 
-        J33L*(J21L*PDstandardNth23gt23 + J31L*PDstandardNth33gt23) + 
-        dJ313L*PDstandardNth3gt23;
-      
-      JacPDstandardNth13gt33 = J13L*(J11L*PDstandardNth11gt33 + 
-        J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
-        J11L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
-        dJ113L*PDstandardNth1gt33 + J23L*(J21L*PDstandardNth22gt33 + 
-        J31L*PDstandardNth23gt33) + dJ213L*PDstandardNth2gt33 + 
-        J33L*(J21L*PDstandardNth23gt33 + J31L*PDstandardNth33gt33) + 
-        dJ313L*PDstandardNth3gt33;
-      
-      JacPDstandardNth21gt11 = J12L*(J11L*PDstandardNth11gt11 + 
-        J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
-        J11L*(J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
-        dJ112L*PDstandardNth1gt11 + J22L*(J21L*PDstandardNth22gt11 + 
-        J31L*PDstandardNth23gt11) + dJ212L*PDstandardNth2gt11 + 
-        J32L*(J21L*PDstandardNth23gt11 + J31L*PDstandardNth33gt11) + 
-        dJ312L*PDstandardNth3gt11;
-      
-      JacPDstandardNth21gt12 = J12L*(J11L*PDstandardNth11gt12 + 
-        J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
-        J11L*(J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
-        dJ112L*PDstandardNth1gt12 + J22L*(J21L*PDstandardNth22gt12 + 
-        J31L*PDstandardNth23gt12) + dJ212L*PDstandardNth2gt12 + 
-        J32L*(J21L*PDstandardNth23gt12 + J31L*PDstandardNth33gt12) + 
-        dJ312L*PDstandardNth3gt12;
-      
-      JacPDstandardNth21gt13 = J12L*(J11L*PDstandardNth11gt13 + 
-        J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
-        J11L*(J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
-        dJ112L*PDstandardNth1gt13 + J22L*(J21L*PDstandardNth22gt13 + 
-        J31L*PDstandardNth23gt13) + dJ212L*PDstandardNth2gt13 + 
-        J32L*(J21L*PDstandardNth23gt13 + J31L*PDstandardNth33gt13) + 
-        dJ312L*PDstandardNth3gt13;
-      
-      JacPDstandardNth21gt22 = J12L*(J11L*PDstandardNth11gt22 + 
-        J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
-        J11L*(J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
-        dJ112L*PDstandardNth1gt22 + J22L*(J21L*PDstandardNth22gt22 + 
-        J31L*PDstandardNth23gt22) + dJ212L*PDstandardNth2gt22 + 
-        J32L*(J21L*PDstandardNth23gt22 + J31L*PDstandardNth33gt22) + 
-        dJ312L*PDstandardNth3gt22;
-      
-      JacPDstandardNth21gt23 = J12L*(J11L*PDstandardNth11gt23 + 
-        J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
-        J11L*(J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
-        dJ112L*PDstandardNth1gt23 + J22L*(J21L*PDstandardNth22gt23 + 
-        J31L*PDstandardNth23gt23) + dJ212L*PDstandardNth2gt23 + 
-        J32L*(J21L*PDstandardNth23gt23 + J31L*PDstandardNth33gt23) + 
-        dJ312L*PDstandardNth3gt23;
-      
-      JacPDstandardNth21gt33 = J12L*(J11L*PDstandardNth11gt33 + 
-        J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
-        J11L*(J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
-        dJ112L*PDstandardNth1gt33 + J22L*(J21L*PDstandardNth22gt33 + 
-        J31L*PDstandardNth23gt33) + dJ212L*PDstandardNth2gt33 + 
-        J32L*(J21L*PDstandardNth23gt33 + J31L*PDstandardNth33gt33) + 
-        dJ312L*PDstandardNth3gt33;
-      
-      JacPDstandardNth23gt11 = J13L*(J12L*PDstandardNth11gt11 + 
-        J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
-        J12L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
-        dJ123L*PDstandardNth1gt11 + J23L*(J22L*PDstandardNth22gt11 + 
-        J32L*PDstandardNth23gt11) + dJ223L*PDstandardNth2gt11 + 
-        J33L*(J22L*PDstandardNth23gt11 + J32L*PDstandardNth33gt11) + 
-        dJ323L*PDstandardNth3gt11;
-      
-      JacPDstandardNth23gt12 = J13L*(J12L*PDstandardNth11gt12 + 
-        J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
-        J12L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
-        dJ123L*PDstandardNth1gt12 + J23L*(J22L*PDstandardNth22gt12 + 
-        J32L*PDstandardNth23gt12) + dJ223L*PDstandardNth2gt12 + 
-        J33L*(J22L*PDstandardNth23gt12 + J32L*PDstandardNth33gt12) + 
-        dJ323L*PDstandardNth3gt12;
-      
-      JacPDstandardNth23gt13 = J13L*(J12L*PDstandardNth11gt13 + 
-        J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
-        J12L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
-        dJ123L*PDstandardNth1gt13 + J23L*(J22L*PDstandardNth22gt13 + 
-        J32L*PDstandardNth23gt13) + dJ223L*PDstandardNth2gt13 + 
-        J33L*(J22L*PDstandardNth23gt13 + J32L*PDstandardNth33gt13) + 
-        dJ323L*PDstandardNth3gt13;
-      
-      JacPDstandardNth23gt22 = J13L*(J12L*PDstandardNth11gt22 + 
-        J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
-        J12L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
-        dJ123L*PDstandardNth1gt22 + J23L*(J22L*PDstandardNth22gt22 + 
-        J32L*PDstandardNth23gt22) + dJ223L*PDstandardNth2gt22 + 
-        J33L*(J22L*PDstandardNth23gt22 + J32L*PDstandardNth33gt22) + 
-        dJ323L*PDstandardNth3gt22;
-      
-      JacPDstandardNth23gt23 = J13L*(J12L*PDstandardNth11gt23 + 
-        J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
-        J12L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
-        dJ123L*PDstandardNth1gt23 + J23L*(J22L*PDstandardNth22gt23 + 
-        J32L*PDstandardNth23gt23) + dJ223L*PDstandardNth2gt23 + 
-        J33L*(J22L*PDstandardNth23gt23 + J32L*PDstandardNth33gt23) + 
-        dJ323L*PDstandardNth3gt23;
-      
-      JacPDstandardNth23gt33 = J13L*(J12L*PDstandardNth11gt33 + 
-        J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
-        J12L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
-        dJ123L*PDstandardNth1gt33 + J23L*(J22L*PDstandardNth22gt33 + 
-        J32L*PDstandardNth23gt33) + dJ223L*PDstandardNth2gt33 + 
-        J33L*(J22L*PDstandardNth23gt33 + J32L*PDstandardNth33gt33) + 
-        dJ323L*PDstandardNth3gt33;
-      
-      JacPDstandardNth31gt11 = J13L*(J11L*PDstandardNth11gt11 + 
-        J21L*PDstandardNth12gt11 + J31L*PDstandardNth13gt11) + 
-        J11L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
-        dJ113L*PDstandardNth1gt11 + J23L*(J21L*PDstandardNth22gt11 + 
-        J31L*PDstandardNth23gt11) + dJ213L*PDstandardNth2gt11 + 
-        J33L*(J21L*PDstandardNth23gt11 + J31L*PDstandardNth33gt11) + 
-        dJ313L*PDstandardNth3gt11;
-      
-      JacPDstandardNth31gt12 = J13L*(J11L*PDstandardNth11gt12 + 
-        J21L*PDstandardNth12gt12 + J31L*PDstandardNth13gt12) + 
-        J11L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
-        dJ113L*PDstandardNth1gt12 + J23L*(J21L*PDstandardNth22gt12 + 
-        J31L*PDstandardNth23gt12) + dJ213L*PDstandardNth2gt12 + 
-        J33L*(J21L*PDstandardNth23gt12 + J31L*PDstandardNth33gt12) + 
-        dJ313L*PDstandardNth3gt12;
-      
-      JacPDstandardNth31gt13 = J13L*(J11L*PDstandardNth11gt13 + 
-        J21L*PDstandardNth12gt13 + J31L*PDstandardNth13gt13) + 
-        J11L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
-        dJ113L*PDstandardNth1gt13 + J23L*(J21L*PDstandardNth22gt13 + 
-        J31L*PDstandardNth23gt13) + dJ213L*PDstandardNth2gt13 + 
-        J33L*(J21L*PDstandardNth23gt13 + J31L*PDstandardNth33gt13) + 
-        dJ313L*PDstandardNth3gt13;
-      
-      JacPDstandardNth31gt22 = J13L*(J11L*PDstandardNth11gt22 + 
-        J21L*PDstandardNth12gt22 + J31L*PDstandardNth13gt22) + 
-        J11L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
-        dJ113L*PDstandardNth1gt22 + J23L*(J21L*PDstandardNth22gt22 + 
-        J31L*PDstandardNth23gt22) + dJ213L*PDstandardNth2gt22 + 
-        J33L*(J21L*PDstandardNth23gt22 + J31L*PDstandardNth33gt22) + 
-        dJ313L*PDstandardNth3gt22;
-      
-      JacPDstandardNth31gt23 = J13L*(J11L*PDstandardNth11gt23 + 
-        J21L*PDstandardNth12gt23 + J31L*PDstandardNth13gt23) + 
-        J11L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
-        dJ113L*PDstandardNth1gt23 + J23L*(J21L*PDstandardNth22gt23 + 
-        J31L*PDstandardNth23gt23) + dJ213L*PDstandardNth2gt23 + 
-        J33L*(J21L*PDstandardNth23gt23 + J31L*PDstandardNth33gt23) + 
-        dJ313L*PDstandardNth3gt23;
-      
-      JacPDstandardNth31gt33 = J13L*(J11L*PDstandardNth11gt33 + 
-        J21L*PDstandardNth12gt33 + J31L*PDstandardNth13gt33) + 
-        J11L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
-        dJ113L*PDstandardNth1gt33 + J23L*(J21L*PDstandardNth22gt33 + 
-        J31L*PDstandardNth23gt33) + dJ213L*PDstandardNth2gt33 + 
-        J33L*(J21L*PDstandardNth23gt33 + J31L*PDstandardNth33gt33) + 
-        dJ313L*PDstandardNth3gt33;
-      
-      JacPDstandardNth32gt11 = J13L*(J12L*PDstandardNth11gt11 + 
-        J22L*PDstandardNth12gt11 + J32L*PDstandardNth13gt11) + 
-        J12L*(J23L*PDstandardNth12gt11 + J33L*PDstandardNth13gt11) + 
-        dJ123L*PDstandardNth1gt11 + J23L*(J22L*PDstandardNth22gt11 + 
-        J32L*PDstandardNth23gt11) + dJ223L*PDstandardNth2gt11 + 
-        J33L*(J22L*PDstandardNth23gt11 + J32L*PDstandardNth33gt11) + 
-        dJ323L*PDstandardNth3gt11;
-      
-      JacPDstandardNth32gt12 = J13L*(J12L*PDstandardNth11gt12 + 
-        J22L*PDstandardNth12gt12 + J32L*PDstandardNth13gt12) + 
-        J12L*(J23L*PDstandardNth12gt12 + J33L*PDstandardNth13gt12) + 
-        dJ123L*PDstandardNth1gt12 + J23L*(J22L*PDstandardNth22gt12 + 
-        J32L*PDstandardNth23gt12) + dJ223L*PDstandardNth2gt12 + 
-        J33L*(J22L*PDstandardNth23gt12 + J32L*PDstandardNth33gt12) + 
-        dJ323L*PDstandardNth3gt12;
-      
-      JacPDstandardNth32gt13 = J13L*(J12L*PDstandardNth11gt13 + 
-        J22L*PDstandardNth12gt13 + J32L*PDstandardNth13gt13) + 
-        J12L*(J23L*PDstandardNth12gt13 + J33L*PDstandardNth13gt13) + 
-        dJ123L*PDstandardNth1gt13 + J23L*(J22L*PDstandardNth22gt13 + 
-        J32L*PDstandardNth23gt13) + dJ223L*PDstandardNth2gt13 + 
-        J33L*(J22L*PDstandardNth23gt13 + J32L*PDstandardNth33gt13) + 
-        dJ323L*PDstandardNth3gt13;
-      
-      JacPDstandardNth32gt22 = J13L*(J12L*PDstandardNth11gt22 + 
-        J22L*PDstandardNth12gt22 + J32L*PDstandardNth13gt22) + 
-        J12L*(J23L*PDstandardNth12gt22 + J33L*PDstandardNth13gt22) + 
-        dJ123L*PDstandardNth1gt22 + J23L*(J22L*PDstandardNth22gt22 + 
-        J32L*PDstandardNth23gt22) + dJ223L*PDstandardNth2gt22 + 
-        J33L*(J22L*PDstandardNth23gt22 + J32L*PDstandardNth33gt22) + 
-        dJ323L*PDstandardNth3gt22;
-      
-      JacPDstandardNth32gt23 = J13L*(J12L*PDstandardNth11gt23 + 
-        J22L*PDstandardNth12gt23 + J32L*PDstandardNth13gt23) + 
-        J12L*(J23L*PDstandardNth12gt23 + J33L*PDstandardNth13gt23) + 
-        dJ123L*PDstandardNth1gt23 + J23L*(J22L*PDstandardNth22gt23 + 
-        J32L*PDstandardNth23gt23) + dJ223L*PDstandardNth2gt23 + 
-        J33L*(J22L*PDstandardNth23gt23 + J32L*PDstandardNth33gt23) + 
-        dJ323L*PDstandardNth3gt23;
-      
-      JacPDstandardNth32gt33 = J13L*(J12L*PDstandardNth11gt33 + 
-        J22L*PDstandardNth12gt33 + J32L*PDstandardNth13gt33) + 
-        J12L*(J23L*PDstandardNth12gt33 + J33L*PDstandardNth13gt33) + 
-        dJ123L*PDstandardNth1gt33 + J23L*(J22L*PDstandardNth22gt33 + 
-        J32L*PDstandardNth23gt33) + dJ223L*PDstandardNth2gt33 + 
-        J33L*(J22L*PDstandardNth23gt33 + J32L*PDstandardNth33gt33) + 
-        dJ323L*PDstandardNth3gt33;
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL detgt = 1;
-    
-    CCTK_REAL gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L));
-    
-    CCTK_REAL gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt);
-    
-    CCTK_REAL gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt);
-    
-    CCTK_REAL gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L));
-    
-    CCTK_REAL gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt);
-    
-    CCTK_REAL gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L));
-    
-    CCTK_REAL dgtu111 = -2*(gtu11*(gtu21*JacPDstandardNth1gt12 + 
-      gtu31*JacPDstandardNth1gt13) + gtu21*gtu31*JacPDstandardNth1gt23) - 
-      JacPDstandardNth1gt11*SQR(gtu11) - JacPDstandardNth1gt22*SQR(gtu21) - 
-      JacPDstandardNth1gt33*SQR(gtu31);
-    
-    CCTK_REAL dgtu211 = -(gtu11*(gtu21*JacPDstandardNth1gt11 + 
-      gtu22*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt13)) - 
-      gtu21*(gtu31*JacPDstandardNth1gt13 + gtu22*JacPDstandardNth1gt22 + 
-      gtu32*JacPDstandardNth1gt23) - gtu31*(gtu22*JacPDstandardNth1gt23 + 
-      gtu32*JacPDstandardNth1gt33) - JacPDstandardNth1gt12*SQR(gtu21);
-    
-    CCTK_REAL dgtu311 = -(gtu11*(gtu31*JacPDstandardNth1gt11 + 
-      gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13)) - 
-      gtu21*(gtu31*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt22 + 
-      gtu33*JacPDstandardNth1gt23) - gtu31*(gtu31*JacPDstandardNth1gt13 + 
-      gtu32*JacPDstandardNth1gt23 + gtu33*JacPDstandardNth1gt33);
-    
-    CCTK_REAL dgtu221 = -2*(gtu21*(gtu22*JacPDstandardNth1gt12 + 
-      gtu32*JacPDstandardNth1gt13) + gtu22*gtu32*JacPDstandardNth1gt23) - 
-      JacPDstandardNth1gt11*SQR(gtu21) - JacPDstandardNth1gt22*SQR(gtu22) - 
-      JacPDstandardNth1gt33*SQR(gtu32);
-    
-    CCTK_REAL dgtu321 = -(gtu21*(gtu31*JacPDstandardNth1gt11 + 
-      gtu32*JacPDstandardNth1gt12 + gtu33*JacPDstandardNth1gt13)) - 
-      gtu22*(gtu31*JacPDstandardNth1gt12 + gtu32*JacPDstandardNth1gt22 + 
-      gtu33*JacPDstandardNth1gt23) - gtu32*(gtu31*JacPDstandardNth1gt13 + 
-      gtu32*JacPDstandardNth1gt23 + gtu33*JacPDstandardNth1gt33);
-    
-    CCTK_REAL dgtu331 = -2*(gtu31*(gtu32*JacPDstandardNth1gt12 + 
-      gtu33*JacPDstandardNth1gt13) + gtu32*gtu33*JacPDstandardNth1gt23) - 
-      JacPDstandardNth1gt11*SQR(gtu31) - JacPDstandardNth1gt22*SQR(gtu32) - 
-      JacPDstandardNth1gt33*SQR(gtu33);
-    
-    CCTK_REAL dgtu112 = -2*(gtu11*(gtu21*JacPDstandardNth2gt12 + 
-      gtu31*JacPDstandardNth2gt13) + gtu21*gtu31*JacPDstandardNth2gt23) - 
-      JacPDstandardNth2gt11*SQR(gtu11) - JacPDstandardNth2gt22*SQR(gtu21) - 
-      JacPDstandardNth2gt33*SQR(gtu31);
-    
-    CCTK_REAL dgtu212 = -(gtu11*(gtu21*JacPDstandardNth2gt11 + 
-      gtu22*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt13)) - 
-      gtu21*(gtu31*JacPDstandardNth2gt13 + gtu22*JacPDstandardNth2gt22 + 
-      gtu32*JacPDstandardNth2gt23) - gtu31*(gtu22*JacPDstandardNth2gt23 + 
-      gtu32*JacPDstandardNth2gt33) - JacPDstandardNth2gt12*SQR(gtu21);
-    
-    CCTK_REAL dgtu312 = -(gtu11*(gtu31*JacPDstandardNth2gt11 + 
-      gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13)) - 
-      gtu21*(gtu31*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt22 + 
-      gtu33*JacPDstandardNth2gt23) - gtu31*(gtu31*JacPDstandardNth2gt13 + 
-      gtu32*JacPDstandardNth2gt23 + gtu33*JacPDstandardNth2gt33);
-    
-    CCTK_REAL dgtu222 = -2*(gtu21*(gtu22*JacPDstandardNth2gt12 + 
-      gtu32*JacPDstandardNth2gt13) + gtu22*gtu32*JacPDstandardNth2gt23) - 
-      JacPDstandardNth2gt11*SQR(gtu21) - JacPDstandardNth2gt22*SQR(gtu22) - 
-      JacPDstandardNth2gt33*SQR(gtu32);
-    
-    CCTK_REAL dgtu322 = -(gtu21*(gtu31*JacPDstandardNth2gt11 + 
-      gtu32*JacPDstandardNth2gt12 + gtu33*JacPDstandardNth2gt13)) - 
-      gtu22*(gtu31*JacPDstandardNth2gt12 + gtu32*JacPDstandardNth2gt22 + 
-      gtu33*JacPDstandardNth2gt23) - gtu32*(gtu31*JacPDstandardNth2gt13 + 
-      gtu32*JacPDstandardNth2gt23 + gtu33*JacPDstandardNth2gt33);
-    
-    CCTK_REAL dgtu332 = -2*(gtu31*(gtu32*JacPDstandardNth2gt12 + 
-      gtu33*JacPDstandardNth2gt13) + gtu32*gtu33*JacPDstandardNth2gt23) - 
-      JacPDstandardNth2gt11*SQR(gtu31) - JacPDstandardNth2gt22*SQR(gtu32) - 
-      JacPDstandardNth2gt33*SQR(gtu33);
-    
-    CCTK_REAL dgtu113 = -2*(gtu11*(gtu21*JacPDstandardNth3gt12 + 
-      gtu31*JacPDstandardNth3gt13) + gtu21*gtu31*JacPDstandardNth3gt23) - 
-      JacPDstandardNth3gt11*SQR(gtu11) - JacPDstandardNth3gt22*SQR(gtu21) - 
-      JacPDstandardNth3gt33*SQR(gtu31);
-    
-    CCTK_REAL dgtu213 = -(gtu11*(gtu21*JacPDstandardNth3gt11 + 
-      gtu22*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt13)) - 
-      gtu21*(gtu31*JacPDstandardNth3gt13 + gtu22*JacPDstandardNth3gt22 + 
-      gtu32*JacPDstandardNth3gt23) - gtu31*(gtu22*JacPDstandardNth3gt23 + 
-      gtu32*JacPDstandardNth3gt33) - JacPDstandardNth3gt12*SQR(gtu21);
-    
-    CCTK_REAL dgtu313 = -(gtu11*(gtu31*JacPDstandardNth3gt11 + 
-      gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13)) - 
-      gtu21*(gtu31*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt22 + 
-      gtu33*JacPDstandardNth3gt23) - gtu31*(gtu31*JacPDstandardNth3gt13 + 
-      gtu32*JacPDstandardNth3gt23 + gtu33*JacPDstandardNth3gt33);
-    
-    CCTK_REAL dgtu223 = -2*(gtu21*(gtu22*JacPDstandardNth3gt12 + 
-      gtu32*JacPDstandardNth3gt13) + gtu22*gtu32*JacPDstandardNth3gt23) - 
-      JacPDstandardNth3gt11*SQR(gtu21) - JacPDstandardNth3gt22*SQR(gtu22) - 
-      JacPDstandardNth3gt33*SQR(gtu32);
-    
-    CCTK_REAL dgtu323 = -(gtu21*(gtu31*JacPDstandardNth3gt11 + 
-      gtu32*JacPDstandardNth3gt12 + gtu33*JacPDstandardNth3gt13)) - 
-      gtu22*(gtu31*JacPDstandardNth3gt12 + gtu32*JacPDstandardNth3gt22 + 
-      gtu33*JacPDstandardNth3gt23) - gtu32*(gtu31*JacPDstandardNth3gt13 + 
-      gtu32*JacPDstandardNth3gt23 + gtu33*JacPDstandardNth3gt33);
-    
-    CCTK_REAL dgtu333 = -2*(gtu31*(gtu32*JacPDstandardNth3gt12 + 
-      gtu33*JacPDstandardNth3gt13) + gtu32*gtu33*JacPDstandardNth3gt23) - 
-      JacPDstandardNth3gt11*SQR(gtu31) - JacPDstandardNth3gt22*SQR(gtu32) - 
-      JacPDstandardNth3gt33*SQR(gtu33);
-    
-    CCTK_REAL Gtl111 = 0.5*JacPDstandardNth1gt11;
-    
-    CCTK_REAL Gtl112 = 0.5*JacPDstandardNth2gt11;
-    
-    CCTK_REAL Gtl113 = 0.5*JacPDstandardNth3gt11;
-    
-    CCTK_REAL Gtl122 = -0.5*JacPDstandardNth1gt22 + JacPDstandardNth2gt12;
-    
-    CCTK_REAL Gtl123 = 0.5*(-JacPDstandardNth1gt23 + JacPDstandardNth2gt13 
-      + JacPDstandardNth3gt12);
-    
-    CCTK_REAL Gtl133 = -0.5*JacPDstandardNth1gt33 + JacPDstandardNth3gt13;
-    
-    CCTK_REAL Gtl211 = JacPDstandardNth1gt12 - 0.5*JacPDstandardNth2gt11;
-    
-    CCTK_REAL Gtl212 = 0.5*JacPDstandardNth1gt22;
-    
-    CCTK_REAL Gtl213 = 0.5*(JacPDstandardNth1gt23 - JacPDstandardNth2gt13 
-      + JacPDstandardNth3gt12);
-    
-    CCTK_REAL Gtl222 = 0.5*JacPDstandardNth2gt22;
-    
-    CCTK_REAL Gtl223 = 0.5*JacPDstandardNth3gt22;
-    
-    CCTK_REAL Gtl233 = -0.5*JacPDstandardNth2gt33 + JacPDstandardNth3gt23;
-    
-    CCTK_REAL Gtl311 = JacPDstandardNth1gt13 - 0.5*JacPDstandardNth3gt11;
-    
-    CCTK_REAL Gtl312 = 0.5*(JacPDstandardNth1gt23 + JacPDstandardNth2gt13 
-      - JacPDstandardNth3gt12);
-    
-    CCTK_REAL Gtl313 = 0.5*JacPDstandardNth1gt33;
-    
-    CCTK_REAL Gtl322 = JacPDstandardNth2gt23 - 0.5*JacPDstandardNth3gt22;
-    
-    CCTK_REAL Gtl323 = 0.5*JacPDstandardNth2gt33;
-    
-    CCTK_REAL Gtl333 = 0.5*JacPDstandardNth3gt33;
-    
-    CCTK_REAL Gtlu111 = Gtl111*gtu11 + Gtl112*gtu21 + Gtl113*gtu31;
-    
-    CCTK_REAL Gtlu112 = Gtl111*gtu21 + Gtl112*gtu22 + Gtl113*gtu32;
-    
-    CCTK_REAL Gtlu113 = Gtl111*gtu31 + Gtl112*gtu32 + Gtl113*gtu33;
-    
-    CCTK_REAL Gtlu121 = Gtl112*gtu11 + Gtl122*gtu21 + Gtl123*gtu31;
-    
-    CCTK_REAL Gtlu122 = Gtl112*gtu21 + Gtl122*gtu22 + Gtl123*gtu32;
-    
-    CCTK_REAL Gtlu123 = Gtl112*gtu31 + Gtl122*gtu32 + Gtl123*gtu33;
-    
-    CCTK_REAL Gtlu131 = Gtl113*gtu11 + Gtl123*gtu21 + Gtl133*gtu31;
-    
-    CCTK_REAL Gtlu132 = Gtl113*gtu21 + Gtl123*gtu22 + Gtl133*gtu32;
-    
-    CCTK_REAL Gtlu133 = Gtl113*gtu31 + Gtl123*gtu32 + Gtl133*gtu33;
-    
-    CCTK_REAL Gtlu211 = Gtl211*gtu11 + Gtl212*gtu21 + Gtl213*gtu31;
-    
-    CCTK_REAL Gtlu212 = Gtl211*gtu21 + Gtl212*gtu22 + Gtl213*gtu32;
-    
-    CCTK_REAL Gtlu213 = Gtl211*gtu31 + Gtl212*gtu32 + Gtl213*gtu33;
-    
-    CCTK_REAL Gtlu221 = Gtl212*gtu11 + Gtl222*gtu21 + Gtl223*gtu31;
-    
-    CCTK_REAL Gtlu222 = Gtl212*gtu21 + Gtl222*gtu22 + Gtl223*gtu32;
-    
-    CCTK_REAL Gtlu223 = Gtl212*gtu31 + Gtl222*gtu32 + Gtl223*gtu33;
-    
-    CCTK_REAL Gtlu231 = Gtl213*gtu11 + Gtl223*gtu21 + Gtl233*gtu31;
-    
-    CCTK_REAL Gtlu232 = Gtl213*gtu21 + Gtl223*gtu22 + Gtl233*gtu32;
-    
-    CCTK_REAL Gtlu233 = Gtl213*gtu31 + Gtl223*gtu32 + Gtl233*gtu33;
-    
-    CCTK_REAL Gtlu311 = Gtl311*gtu11 + Gtl312*gtu21 + Gtl313*gtu31;
-    
-    CCTK_REAL Gtlu312 = Gtl311*gtu21 + Gtl312*gtu22 + Gtl313*gtu32;
-    
-    CCTK_REAL Gtlu313 = Gtl311*gtu31 + Gtl312*gtu32 + Gtl313*gtu33;
-    
-    CCTK_REAL Gtlu321 = Gtl312*gtu11 + Gtl322*gtu21 + Gtl323*gtu31;
-    
-    CCTK_REAL Gtlu322 = Gtl312*gtu21 + Gtl322*gtu22 + Gtl323*gtu32;
-    
-    CCTK_REAL Gtlu323 = Gtl312*gtu31 + Gtl322*gtu32 + Gtl323*gtu33;
-    
-    CCTK_REAL Gtlu331 = Gtl313*gtu11 + Gtl323*gtu21 + Gtl333*gtu31;
-    
-    CCTK_REAL Gtlu332 = Gtl313*gtu21 + Gtl323*gtu22 + Gtl333*gtu32;
-    
-    CCTK_REAL Gtlu333 = Gtl313*gtu31 + Gtl323*gtu32 + Gtl333*gtu33;
-    
-    CCTK_REAL Gt111 = Gtl111*gtu11 + Gtl211*gtu21 + Gtl311*gtu31;
-    
-    CCTK_REAL Gt211 = Gtl111*gtu21 + Gtl211*gtu22 + Gtl311*gtu32;
-    
-    CCTK_REAL Gt311 = Gtl111*gtu31 + Gtl211*gtu32 + Gtl311*gtu33;
-    
-    CCTK_REAL Gt112 = Gtl112*gtu11 + Gtl212*gtu21 + Gtl312*gtu31;
-    
-    CCTK_REAL Gt212 = Gtl112*gtu21 + Gtl212*gtu22 + Gtl312*gtu32;
-    
-    CCTK_REAL Gt312 = Gtl112*gtu31 + Gtl212*gtu32 + Gtl312*gtu33;
-    
-    CCTK_REAL Gt113 = Gtl113*gtu11 + Gtl213*gtu21 + Gtl313*gtu31;
-    
-    CCTK_REAL Gt213 = Gtl113*gtu21 + Gtl213*gtu22 + Gtl313*gtu32;
-    
-    CCTK_REAL Gt313 = Gtl113*gtu31 + Gtl213*gtu32 + Gtl313*gtu33;
-    
-    CCTK_REAL Gt122 = Gtl122*gtu11 + Gtl222*gtu21 + Gtl322*gtu31;
-    
-    CCTK_REAL Gt222 = Gtl122*gtu21 + Gtl222*gtu22 + Gtl322*gtu32;
-    
-    CCTK_REAL Gt322 = Gtl122*gtu31 + Gtl222*gtu32 + Gtl322*gtu33;
-    
-    CCTK_REAL Gt123 = Gtl123*gtu11 + Gtl223*gtu21 + Gtl323*gtu31;
-    
-    CCTK_REAL Gt223 = Gtl123*gtu21 + Gtl223*gtu22 + Gtl323*gtu32;
-    
-    CCTK_REAL Gt323 = Gtl123*gtu31 + Gtl223*gtu32 + Gtl323*gtu33;
-    
-    CCTK_REAL Gt133 = Gtl133*gtu11 + Gtl233*gtu21 + Gtl333*gtu31;
-    
-    CCTK_REAL Gt233 = Gtl133*gtu21 + Gtl233*gtu22 + Gtl333*gtu32;
-    
-    CCTK_REAL Gt333 = Gtl133*gtu31 + Gtl233*gtu32 + Gtl333*gtu33;
-    
-    CCTK_REAL Xtn1 = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + 
-      Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33;
-    
-    CCTK_REAL Xtn2 = Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + 
-      Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33;
-    
-    CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + 
-      Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33;
-    
-    CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + 
-      Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + 
-      Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - 
-      gtu11*JacPDstandardNth11gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + 
-      Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + 
-      gt11L*JacPDstandardNth1Xt1) + 2*gt12L*JacPDstandardNth1Xt2 + 
-      2*gt13L*JacPDstandardNth1Xt3 + gtu21*(-JacPDstandardNth12gt11 - 
-      JacPDstandardNth21gt11) - gtu22*JacPDstandardNth22gt11 + 
-      gtu31*(-JacPDstandardNth13gt11 - JacPDstandardNth31gt11) + 
-      gtu32*(-JacPDstandardNth23gt11 - JacPDstandardNth32gt11) - 
-      gtu33*JacPDstandardNth33gt11 + 2*Gtl111*Xtn1 + 2*Gtl112*Xtn2 + 
-      2*Gtl113*Xtn3);
-    
-    CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + 
-      Gt213*Gtlu223) + 2*(Gt122*Gtlu112 + Gt123*Gtlu113 + Gt111*Gtlu121 + 
-      Gt212*Gtlu121 + Gt222*Gtlu122 + Gt113*Gtlu123 + Gt223*Gtlu123 + 
-      Gt312*Gtlu131 + Gt322*Gtlu132 + Gt323*Gtlu133 + Gt111*Gtlu211 + 
-      Gt112*(Gtlu111 + Gtlu122 + Gtlu212) + Gt113*Gtlu213 + Gt311*Gtlu231 + 
-      Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + Gt312*Gtlu322 + 
-      Gt313*Gtlu323) - gtu11*JacPDstandardNth11gt12 + 
-      gt12L*JacPDstandardNth1Xt1 + gt22L*JacPDstandardNth1Xt2 + 
-      gt23L*JacPDstandardNth1Xt3 + gtu21*(-JacPDstandardNth12gt12 - 
-      JacPDstandardNth21gt12) - gtu22*JacPDstandardNth22gt12 + 
-      gt11L*JacPDstandardNth2Xt1 + gt12L*JacPDstandardNth2Xt2 + 
-      gt13L*JacPDstandardNth2Xt3 + gtu31*(-JacPDstandardNth13gt12 - 
-      JacPDstandardNth31gt12) + gtu32*(-JacPDstandardNth23gt12 - 
-      JacPDstandardNth32gt12) - gtu33*JacPDstandardNth33gt12 + Gtl112*Xtn1 + 
-      Gtl211*Xtn1 + Gtl122*Xtn2 + Gtl212*Xtn2 + Gtl123*Xtn3 + Gtl213*Xtn3);
-    
-    CCTK_REAL Rt13 = 0.5*(2*(Gt123*Gtlu112 + Gt133*Gtlu113 + Gt213*Gtlu121 
-      + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + Gt313*Gtlu131 + 
-      Gt112*Gtlu132 + Gt323*Gtlu132 + Gt333*Gtlu133 + Gt211*Gtlu231 + 
-      Gt212*Gtlu232 + Gt213*Gtlu233 + Gt111*Gtlu311 + Gt112*Gtlu312 + 
-      Gt113*(Gtlu111 + Gtlu133 + Gtlu313) + Gt211*Gtlu321 + Gt212*Gtlu322 + 
-      Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + Gt313*Gtlu333) - 
-      gtu11*JacPDstandardNth11gt13 + gt13L*JacPDstandardNth1Xt1 + 
-      gt23L*JacPDstandardNth1Xt2 + gt33L*JacPDstandardNth1Xt3 + 
-      gtu21*(-JacPDstandardNth12gt13 - JacPDstandardNth21gt13) - 
-      gtu22*JacPDstandardNth22gt13 + gtu31*(-JacPDstandardNth13gt13 - 
-      JacPDstandardNth31gt13) + gtu32*(-JacPDstandardNth23gt13 - 
-      JacPDstandardNth32gt13) - gtu33*JacPDstandardNth33gt13 + 
-      gt11L*JacPDstandardNth3Xt1 + gt12L*JacPDstandardNth3Xt2 + 
-      gt13L*JacPDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 
-      + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3);
-    
-    CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + 
-      Gt223*Gtlu223) + 4*(Gt123*Gtlu213 + Gt312*Gtlu231 + Gt322*Gtlu232 + 
-      Gt323*Gtlu233) - gtu11*JacPDstandardNth11gt22 + 
-      gtu21*(-JacPDstandardNth12gt22 - JacPDstandardNth21gt22) - 
-      gtu22*JacPDstandardNth22gt22 + 2*(Gt123*Gtlu123 + Gt112*(Gtlu121 + 
-      2*Gtlu211) + Gt122*(Gtlu122 + 2*Gtlu212) + Gt312*Gtlu321 + 
-      Gt322*Gtlu322 + Gt323*Gtlu323 + gt12L*JacPDstandardNth2Xt1) + 
-      2*gt22L*JacPDstandardNth2Xt2 + 2*gt23L*JacPDstandardNth2Xt3 + 
-      gtu31*(-JacPDstandardNth13gt22 - JacPDstandardNth31gt22) + 
-      gtu32*(-JacPDstandardNth23gt22 - JacPDstandardNth32gt22) - 
-      gtu33*JacPDstandardNth33gt22 + 2*Gtl212*Xtn1 + 2*Gtl222*Xtn2 + 
-      2*Gtl223*Xtn3);
-    
-    CCTK_REAL Rt23 = 0.5*(2*(Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 
-      + Gt133*Gtlu213 + Gt213*Gtlu221 + Gt223*Gtlu222 + Gt233*Gtlu223 + 
-      Gt212*Gtlu231 + Gt313*Gtlu231 + Gt222*Gtlu232 + Gt323*Gtlu232 + 
-      Gt223*Gtlu233 + Gt333*Gtlu233 + Gt112*(Gtlu131 + Gtlu311) + 
-      Gt122*(Gtlu132 + Gtlu312) + Gt123*Gtlu313 + Gt212*Gtlu321 + 
-      Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + Gt322*Gtlu332 + 
-      Gt323*Gtlu333) - gtu11*JacPDstandardNth11gt23 + 
-      gtu21*(-JacPDstandardNth12gt23 - JacPDstandardNth21gt23) - 
-      gtu22*JacPDstandardNth22gt23 + gt13L*JacPDstandardNth2Xt1 + 
-      gt23L*JacPDstandardNth2Xt2 + gt33L*JacPDstandardNth2Xt3 + 
-      gtu31*(-JacPDstandardNth13gt23 - JacPDstandardNth31gt23) + 
-      gtu32*(-JacPDstandardNth23gt23 - JacPDstandardNth32gt23) - 
-      gtu33*JacPDstandardNth33gt23 + gt12L*JacPDstandardNth3Xt1 + 
-      gt22L*JacPDstandardNth3Xt2 + gt23L*JacPDstandardNth3Xt3 + 
-      Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + 
-      Gtl323*Xtn3);
-    
-    CCTK_REAL Rt33 = 0.5*(4*(Gt133*Gtlu313 + Gt213*Gtlu321 + Gt223*Gtlu322 
-      + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) - 
-      gtu11*JacPDstandardNth11gt33 + gtu21*(-JacPDstandardNth12gt33 - 
-      JacPDstandardNth21gt33) - gtu22*JacPDstandardNth22gt33 + 
-      gtu31*(-JacPDstandardNth13gt33 - JacPDstandardNth31gt33) + 
-      gtu32*(-JacPDstandardNth23gt33 - JacPDstandardNth32gt33) - 
-      gtu33*JacPDstandardNth33gt33 + 2*(Gt133*Gtlu133 + Gt213*Gtlu231 + 
-      Gt223*Gtlu232 + Gt233*Gtlu233 + Gt113*(Gtlu131 + 2*Gtlu311) + 
-      Gt123*(Gtlu132 + 2*Gtlu312) + gt13L*JacPDstandardNth3Xt1) + 
-      2*gt23L*JacPDstandardNth3Xt2 + 2*gt33L*JacPDstandardNth3Xt3 + 
-      2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + 2*Gtl333*Xtn3);
-    
-    CCTK_REAL trRt = gtu11*Rt11 + gtu22*Rt22 + 2*(gtu21*Rt12 + gtu31*Rt13 
-      + gtu32*Rt23) + gtu33*Rt33;
-    
-    CCTK_REAL ephi = 
-      IfThen(conformalMethod,INV(sqrt(phiL)),exp(phiL));
-    
-    CCTK_REAL Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31;
-    
-    CCTK_REAL Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32;
-    
-    CCTK_REAL Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33;
-    
-    CCTK_REAL Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31;
-    
-    CCTK_REAL Atm22 = At12L*gtu21 + At22L*gtu22 + At23L*gtu32;
-    
-    CCTK_REAL Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33;
-    
-    CCTK_REAL Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31;
-    
-    CCTK_REAL Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32;
-    
-    CCTK_REAL Atm33 = At13L*gtu31 + At23L*gtu32 + At33L*gtu33;
-    
-    CCTK_REAL rho = INV(SQR(alphaL))*(eTttL - 2*(beta2L*eTtyL + 
-      beta3L*eTtzL) + 2*(beta1L*(-eTtxL + beta2L*eTxyL + 
-      beta3L*eTxzL) + beta2L*beta3L*eTyzL) + eTxxL*SQR(beta1L) 
-      + eTyyL*SQR(beta2L) + eTzzL*SQR(beta3L));
-    
-    CCTK_REAL S1 = (-eTtxL + beta1L*eTxxL + beta2L*eTxyL + 
-      beta3L*eTxzL)*INV(alphaL);
-    
-    CCTK_REAL S2 = (-eTtyL + beta1L*eTxyL + beta2L*eTyyL + 
-      beta3L*eTyzL)*INV(alphaL);
-    
-    CCTK_REAL S3 = (-eTtzL + beta1L*eTxzL + beta2L*eTyzL + 
-      beta3L*eTzzL)*INV(alphaL);
-    
-    CCTK_REAL MadmL = -0.0625*INV(Pi)*((Gt111*Gtlu111 + Gt112*Gtlu112 + 
-      Gt113*Gtlu113 + Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + 
-      Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133)*gtu11 + (Gt122*Gtlu112 + 
-      Gt123*Gtlu113 + Gt222*Gtlu122 + Gt223*Gtlu123 + Gt322*Gtlu132 + 
-      Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*(Gtlu111 + Gtlu212) + 
-      Gt113*Gtlu213 + Gt211*Gtlu221 + Gt212*(Gtlu121 + Gtlu222) + 
-      Gt213*Gtlu223 + Gt311*Gtlu231 + Gt312*(Gtlu131 + Gtlu232) + 
-      Gt313*Gtlu233)*gtu21 + (Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + 
-      Gt212*Gtlu221 + Gt222*Gtlu222 + Gt223*Gtlu223 + Gt312*Gtlu231 + 
-      Gt322*Gtlu232 + Gt323*Gtlu233)*gtu22 + (Gt123*Gtlu112 + Gt133*Gtlu113 + 
-      Gt223*Gtlu122 + Gt233*Gtlu123 + Gt323*Gtlu132 + Gt333*Gtlu133 + 
-      Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*(Gtlu111 + Gtlu313) + 
-      Gt211*Gtlu321 + Gt212*Gtlu322 + Gt213*(Gtlu121 + Gtlu323) + 
-      Gt311*Gtlu331 + Gt312*Gtlu332 + Gt313*(Gtlu131 + Gtlu333))*gtu31 + 
-      (Gt113*Gtlu211 + Gt133*Gtlu213 + Gt213*Gtlu221 + Gt233*Gtlu223 + 
-      Gt313*Gtlu231 + Gt333*Gtlu233 + Gt112*Gtlu311 + Gt122*Gtlu312 + 
-      Gt123*(Gtlu212 + Gtlu313) + Gt212*Gtlu321 + Gt222*Gtlu322 + 
-      Gt223*(Gtlu222 + Gtlu323) + Gt312*Gtlu331 + Gt322*Gtlu332 + 
-      Gt323*(Gtlu232 + Gtlu333))*gtu32 + (Gt113*Gtlu311 + Gt123*Gtlu312 + 
-      Gt133*Gtlu313 + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323 + 
-      Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333)*gtu33 + (-1 + ephi)*trRt 
-      - pow(ephi,5)*(2*(Atm12*Atm21 + Atm13*Atm31 + Atm23*Atm32) + 16*Pi*rho 
-      - 0.666666666666666666666666666667*SQR(trKL) + SQR(Atm11) + 
-      SQR(Atm22) + SQR(Atm33)));
-    
-    CCTK_REAL Jadm1L = 
-      0.0208333333333333333333333333333*(At11L*(3*zL*dgtu112 - 
-      3*yL*dgtu113) + At22L*(3*zL*dgtu222 - 3*yL*dgtu223) + 6*(Atm23 
-      + zL*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)) - 
-      6*(Atm32 + yL*(At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)) 
-      + At33L*(3*zL*dgtu332 - 3*yL*dgtu333) + 
-      zL*(-4*JacPDstandardNth2trK - 48*Pi*S2) + 
-      yL*(4*JacPDstandardNth3trK + 48*Pi*S3))*INV(Pi)*pow(ephi,6);
-    
-    CCTK_REAL Jadm2L = 
-      0.0208333333333333333333333333333*(At11L*(-3*zL*dgtu111 + 
-      3*xL*dgtu113) + At22L*(-3*zL*dgtu221 + 3*xL*dgtu223) - 6*(Atm13 
-      + zL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) + 
-      6*(Atm31 + xL*(At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)) 
-      + At33L*(-3*zL*dgtu331 + 3*xL*dgtu333) + 
-      zL*(4*JacPDstandardNth1trK + 48*Pi*S1) + 
-      xL*(-4*JacPDstandardNth3trK - 48*Pi*S3))*INV(Pi)*pow(ephi,6);
-    
-    CCTK_REAL Jadm3L = 
-      0.0208333333333333333333333333333*(At11L*(3*yL*dgtu111 - 
-      3*xL*dgtu112) + At22L*(3*yL*dgtu221 - 3*xL*dgtu222) + 6*(Atm12 
-      + yL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) - 
-      6*(Atm21 + xL*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)) 
-      + At33L*(3*yL*dgtu331 - 3*xL*dgtu332) + 
-      yL*(-4*JacPDstandardNth1trK - 48*Pi*S1) + 
-      xL*(4*JacPDstandardNth2trK + 48*Pi*S2))*INV(Pi)*pow(ephi,6);
-    
-    /* Copy local copies back to grid functions */
-    Jadm1[index] = Jadm1L;
-    Jadm2[index] = Jadm2L;
-    Jadm3[index] = Jadm3L;
-    Madm[index] = MadmL;
-  }
-  CCTK_ENDLOOP3(ML_ADMQuantities_MP);
-}
-
-extern "C" void ML_ADMQuantities_MP(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_ADMQuantities_MP_Body");
-  }
-  
-  if (cctk_iteration % ML_ADMQuantities_MP_calc_every != ML_ADMQuantities_MP_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN::ML_curv",
-    "ML_BSSN::ML_Gamma",
-    "ML_BSSN::ML_lapse",
-    "ML_BSSN::ML_log_confac",
-    "ML_BSSN::ML_metric",
-    "ML_BSSN::ML_shift",
-    "ML_BSSN::ML_trace_curv",
-    "ML_ADMQuantities_MP::ML_Jadm",
-    "ML_ADMQuantities_MP::ML_Madm"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_ADMQuantities_MP", 11, groups);
-  
-  GenericFD_EnsureStencilFits(cctkGH, "ML_ADMQuantities_MP", 2, 2, 2);
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_ADMQuantities_MP_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_ADMQuantities_MP_Body");
-  }
-}
diff --git a/ML_ADMQuantities_MP/src/RegisterMoL.cc b/ML_ADMQuantities_MP/src/RegisterMoL.cc
deleted file mode 100644
index b6ae448..0000000
--- a/ML_ADMQuantities_MP/src/RegisterMoL.cc
+++ /dev/null
@@ -1,18 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_ADMQuantities_MP_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_ADMQuantities_MP/src/RegisterSymmetries.cc b/ML_ADMQuantities_MP/src/RegisterSymmetries.cc
deleted file mode 100644
index 6837434..0000000
--- a/ML_ADMQuantities_MP/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,39 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_ADMQuantities_MP_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMQuantities_MP::Jadm1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMQuantities_MP::Jadm2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMQuantities_MP::Jadm3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMQuantities_MP::Madm");
-  
-}
diff --git a/ML_ADMQuantities_MP/src/Startup.cc b/ML_ADMQuantities_MP/src/Startup.cc
deleted file mode 100644
index 71dec85..0000000
--- a/ML_ADMQuantities_MP/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_ADMQuantities_MP_Startup(void)
-{
-  const char * banner = "ML_ADMQuantities_MP";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_ADMQuantities_MP/src/make.code.defn b/ML_ADMQuantities_MP/src/make.code.defn
deleted file mode 100644
index 4ac9711..0000000
--- a/ML_ADMQuantities_MP/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc ML_ADMQuantities_MP.cc Boundaries.cc 
diff --git a/ML_ADMQuantities_O2/configuration.ccl b/ML_ADMQuantities_O2/configuration.ccl
deleted file mode 100644
index 0a66ec2..0000000
--- a/ML_ADMQuantities_O2/configuration.ccl
+++ /dev/null
@@ -1,6 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-OPTIONAL LoopControl
-{
-}
diff --git a/ML_ADMQuantities_O2/interface.ccl b/ML_ADMQuantities_O2/interface.ccl
deleted file mode 100644
index 3573f15..0000000
--- a/ML_ADMQuantities_O2/interface.ccl
+++ /dev/null
@@ -1,42 +0,0 @@
-# File produced by Kranc
-
-implements: ML_ADMQuantities_O2
-
-inherits:   ADMBase ML_BSSN_O2 TmunuBase Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL ML_Jadm type=GF timelevels=3 tags='tensortypealias="D" tensorweight=0'
-{
-  Jadm1,
-  Jadm2,
-  Jadm3
-} "ML_Jadm"
-
-public:
-CCTK_REAL ML_Madm type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  Madm
-} "ML_Madm"
diff --git a/ML_ADMQuantities_O2/param.ccl b/ML_ADMQuantities_O2/param.ccl
deleted file mode 100644
index 84adaea..0000000
--- a/ML_ADMQuantities_O2/param.ccl
+++ /dev/null
@@ -1,66 +0,0 @@
-# File produced by Kranc
-
-
-shares: GenericFD
-
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT conformalMethod "Treatment of conformal factor"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_ADMQuantities_O2_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT ML_ADMQuantities_O2_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT ML_ADMQuantities_O2_calc_every "ML_ADMQuantities_O2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_ADMQuantities_O2_calc_offset "ML_ADMQuantities_O2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
diff --git a/ML_ADMQuantities_O2/schedule.ccl b/ML_ADMQuantities_O2/schedule.ccl
deleted file mode 100644
index 0c73b79..0000000
--- a/ML_ADMQuantities_O2/schedule.ccl
+++ /dev/null
@@ -1,110 +0,0 @@
-# File produced by Kranc
-
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Jadm[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Jadm[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Jadm[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Madm[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Madm[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Madm[3]
-}
-
-schedule ML_ADMQuantities_O2_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_ADMQuantities_O2_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-schedule group ML_ADMQuantities_O2_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_ADMQuantities_O2"
-
-schedule ML_ADMQuantities_O2 in ML_ADMQuantities_O2_group
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_Gamma
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_log_confac
-  READS:    ML_BSSN::ML_metric
-  READS:    ML_BSSN::ML_shift
-  READS:    ML_BSSN::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_ADMQuantities_O2::ML_Jadm
-  WRITES:   ML_ADMQuantities_O2::ML_Madm
-} "ML_ADMQuantities_O2"
-
-schedule ML_ADMQuantities_O2_SelectBCs in ML_ADMQuantities_O2_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_Jadm
-  SYNC: ML_Madm
-} "ML_ADMQuantities_O2_SelectBCs"
-
-schedule group ApplyBCs as ML_ADMQuantities_O2_ApplyBCs in ML_ADMQuantities_O2_bc_group after ML_ADMQuantities_O2_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_ADMQuantities_O2"
-
-schedule group ML_ADMQuantities_O2_bc_group in ML_ADMQuantities_O2_group after ML_ADMQuantities_O2
-{
-  # no language specified
-} "ML_ADMQuantities_O2"
-
-schedule group ML_ADMQuantities_O2_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_ADMQuantities_O2"
-
-schedule ML_ADMQuantities_O2_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-} "select boundary conditions"
-
-schedule ML_ADMQuantities_O2_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_ADMQuantities_O2_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_ADMQuantities_O2_ApplyBCs in MoL_PostStep after ML_ADMQuantities_O2_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_ADMQuantities_O2/src/Boundaries.cc b/ML_ADMQuantities_O2/src/Boundaries.cc
deleted file mode 100644
index ad69ba6..0000000
--- a/ML_ADMQuantities_O2/src/Boundaries.cc
+++ /dev/null
@@ -1,41 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_ADMQuantities_O2_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_ADMQuantities_O2_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-*/
-
diff --git a/ML_ADMQuantities_O2/src/Differencing.h b/ML_ADMQuantities_O2/src/Differencing.h
deleted file mode 100644
index b5f4be2..0000000
--- a/ML_ADMQuantities_O2/src/Differencing.h
+++ /dev/null
@@ -1,216 +0,0 @@
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth1(u) ((-KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1o2dx)
-#else
-#  define PDstandardNth1(u) (PDstandardNth1_impl(u,p1o2dx,cdj,cdk))
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1o2dx;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth2(u) ((-KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1o2dy)
-#else
-#  define PDstandardNth2(u) (PDstandardNth2_impl(u,p1o2dy,cdj,cdk))
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1o2dy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth3(u) ((-KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1o2dz)
-#else
-#  define PDstandardNth3(u) (PDstandardNth3_impl(u,p1o2dz,cdj,cdk))
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1o2dz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth11(u) ((-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1odx2)
-#else
-#  define PDstandardNth11(u) (PDstandardNth11_impl(u,p1odx2,cdj,cdk))
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1odx2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth22(u) ((-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1ody2)
-#else
-#  define PDstandardNth22(u) (PDstandardNth22_impl(u,p1ody2,cdj,cdk))
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1ody2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth33(u) ((-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1odz2)
-#else
-#  define PDstandardNth33(u) (PDstandardNth33_impl(u,p1odz2,cdj,cdk))
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1odz2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth12(u) ((KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy)
-#else
-#  define PDstandardNth12(u) (PDstandardNth12_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth13(u) ((KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz)
-#else
-#  define PDstandardNth13(u) (PDstandardNth13_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth21(u) ((KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy)
-#else
-#  define PDstandardNth21(u) (PDstandardNth21_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth23(u) ((KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz)
-#else
-#  define PDstandardNth23(u) (PDstandardNth23_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth31(u) ((KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz)
-#else
-#  define PDstandardNth31(u) (PDstandardNth31_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth32(u) ((KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz)
-#else
-#  define PDstandardNth32(u) (PDstandardNth32_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNth1(u) ((3*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,2*dir1,0,0) - 4*KRANC_GFOFFSET3D(u,dir1,0,0))*pm1o2dx*dir1)
-#else
-#  define PDupwindNth1(u) (PDupwindNth1_impl(u,pm1o2dx,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDupwindNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDupwindNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (3*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,2*dir1,0,0) - 4*KRANC_GFOFFSET3D(u,dir1,0,0))*pm1o2dx*dir1;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNth2(u) ((3*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,2*dir2,0) - 4*KRANC_GFOFFSET3D(u,0,dir2,0))*pm1o2dy*dir2)
-#else
-#  define PDupwindNth2(u) (PDupwindNth2_impl(u,pm1o2dy,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDupwindNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDupwindNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (3*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,2*dir2,0) - 4*KRANC_GFOFFSET3D(u,0,dir2,0))*pm1o2dy*dir2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNth3(u) ((3*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,2*dir3) - 4*KRANC_GFOFFSET3D(u,0,0,dir3))*pm1o2dz*dir3)
-#else
-#  define PDupwindNth3(u) (PDupwindNth3_impl(u,pm1o2dz,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDupwindNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDupwindNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (3*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,2*dir3) - 4*KRANC_GFOFFSET3D(u,0,0,dir3))*pm1o2dz*dir3;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided1(u) ((-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,dir1,0,0))*p1odx*dir1)
-#else
-#  define PDonesided1(u) (PDonesided1_impl(u,p1odx,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,dir1,0,0))*p1odx*dir1;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided2(u) ((-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,dir2,0))*p1ody*dir2)
-#else
-#  define PDonesided2(u) (PDonesided2_impl(u,p1ody,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,dir2,0))*p1ody*dir2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided3(u) ((-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,dir3))*p1odz*dir3)
-#else
-#  define PDonesided3(u) (PDonesided3_impl(u,p1odz,cdj,cdk,dir1,dir2,dir3))
-static CCTK_REAL PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk, ptrdiff_t const dir1, ptrdiff_t const dir2, ptrdiff_t const dir3)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,dir3))*p1odz*dir3;
-}
-#endif
-
diff --git a/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.cc b/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.cc
deleted file mode 100644
index 84f71dd..0000000
--- a/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.cc
+++ /dev/null
@@ -1,698 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-extern "C" void ML_ADMQuantities_O2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMQuantities_O2::ML_Jadm","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_ADMQuantities_O2::ML_Jadm.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_ADMQuantities_O2::ML_Madm","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_ADMQuantities_O2::ML_Madm.");
-  return;
-}
-
-static void ML_ADMQuantities_O2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o2dx = 0.5*INV(dx);
-  CCTK_REAL const p1o2dy = 0.5*INV(dy);
-  CCTK_REAL const p1o2dz = 0.5*INV(dz);
-  CCTK_REAL const p1o4dxdy = 0.25*INV(dx*dy);
-  CCTK_REAL const p1o4dxdz = 0.25*INV(dx*dz);
-  CCTK_REAL const p1o4dydz = 0.25*INV(dy*dz);
-  CCTK_REAL const p1odx = INV(dx);
-  CCTK_REAL const p1odx2 = INV(SQR(dx));
-  CCTK_REAL const p1ody = INV(dy);
-  CCTK_REAL const p1ody2 = INV(SQR(dy));
-  CCTK_REAL const p1odz = INV(dz);
-  CCTK_REAL const p1odz2 = INV(SQR(dz));
-  CCTK_REAL const pm1o2dx = -0.5*INV(dx);
-  CCTK_REAL const pm1o2dy = -0.5*INV(dy);
-  CCTK_REAL const pm1o2dz = -0.5*INV(dz);
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(ML_ADMQuantities_O2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL alphaL = alpha[index];
-    CCTK_REAL At11L = At11[index];
-    CCTK_REAL At12L = At12[index];
-    CCTK_REAL At13L = At13[index];
-    CCTK_REAL At22L = At22[index];
-    CCTK_REAL At23L = At23[index];
-    CCTK_REAL At33L = At33[index];
-    CCTK_REAL beta1L = beta1[index];
-    CCTK_REAL beta2L = beta2[index];
-    CCTK_REAL beta3L = beta3[index];
-    CCTK_REAL gt11L = gt11[index];
-    CCTK_REAL gt12L = gt12[index];
-    CCTK_REAL gt13L = gt13[index];
-    CCTK_REAL gt22L = gt22[index];
-    CCTK_REAL gt23L = gt23[index];
-    CCTK_REAL gt33L = gt33[index];
-    CCTK_REAL phiL = phi[index];
-    CCTK_REAL trKL = trK[index];
-    CCTK_REAL xL = x[index];
-    CCTK_REAL Xt1L = Xt1[index];
-    CCTK_REAL Xt2L = Xt2[index];
-    CCTK_REAL Xt3L = Xt3[index];
-    CCTK_REAL yL = y[index];
-    CCTK_REAL zL = z[index];
-    
-    CCTK_REAL eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = eTtt[index];
-      eTtxL = eTtx[index];
-      eTtyL = eTty[index];
-      eTtzL = eTtz[index];
-      eTxxL = eTxx[index];
-      eTxyL = eTxy[index];
-      eTxzL = eTxz[index];
-      eTyyL = eTyy[index];
-      eTyzL = eTyz[index];
-      eTzzL = eTzz[index];
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL const PDstandardNth1gt11 = PDstandardNth1(&gt11[index]);
-    CCTK_REAL const PDstandardNth2gt11 = PDstandardNth2(&gt11[index]);
-    CCTK_REAL const PDstandardNth3gt11 = PDstandardNth3(&gt11[index]);
-    CCTK_REAL const PDstandardNth11gt11 = PDstandardNth11(&gt11[index]);
-    CCTK_REAL const PDstandardNth22gt11 = PDstandardNth22(&gt11[index]);
-    CCTK_REAL const PDstandardNth33gt11 = PDstandardNth33(&gt11[index]);
-    CCTK_REAL const PDstandardNth12gt11 = PDstandardNth12(&gt11[index]);
-    CCTK_REAL const PDstandardNth13gt11 = PDstandardNth13(&gt11[index]);
-    CCTK_REAL const PDstandardNth23gt11 = PDstandardNth23(&gt11[index]);
-    CCTK_REAL const PDstandardNth1gt12 = PDstandardNth1(&gt12[index]);
-    CCTK_REAL const PDstandardNth2gt12 = PDstandardNth2(&gt12[index]);
-    CCTK_REAL const PDstandardNth3gt12 = PDstandardNth3(&gt12[index]);
-    CCTK_REAL const PDstandardNth11gt12 = PDstandardNth11(&gt12[index]);
-    CCTK_REAL const PDstandardNth22gt12 = PDstandardNth22(&gt12[index]);
-    CCTK_REAL const PDstandardNth33gt12 = PDstandardNth33(&gt12[index]);
-    CCTK_REAL const PDstandardNth12gt12 = PDstandardNth12(&gt12[index]);
-    CCTK_REAL const PDstandardNth13gt12 = PDstandardNth13(&gt12[index]);
-    CCTK_REAL const PDstandardNth23gt12 = PDstandardNth23(&gt12[index]);
-    CCTK_REAL const PDstandardNth1gt13 = PDstandardNth1(&gt13[index]);
-    CCTK_REAL const PDstandardNth2gt13 = PDstandardNth2(&gt13[index]);
-    CCTK_REAL const PDstandardNth3gt13 = PDstandardNth3(&gt13[index]);
-    CCTK_REAL const PDstandardNth11gt13 = PDstandardNth11(&gt13[index]);
-    CCTK_REAL const PDstandardNth22gt13 = PDstandardNth22(&gt13[index]);
-    CCTK_REAL const PDstandardNth33gt13 = PDstandardNth33(&gt13[index]);
-    CCTK_REAL const PDstandardNth12gt13 = PDstandardNth12(&gt13[index]);
-    CCTK_REAL const PDstandardNth13gt13 = PDstandardNth13(&gt13[index]);
-    CCTK_REAL const PDstandardNth23gt13 = PDstandardNth23(&gt13[index]);
-    CCTK_REAL const PDstandardNth1gt22 = PDstandardNth1(&gt22[index]);
-    CCTK_REAL const PDstandardNth2gt22 = PDstandardNth2(&gt22[index]);
-    CCTK_REAL const PDstandardNth3gt22 = PDstandardNth3(&gt22[index]);
-    CCTK_REAL const PDstandardNth11gt22 = PDstandardNth11(&gt22[index]);
-    CCTK_REAL const PDstandardNth22gt22 = PDstandardNth22(&gt22[index]);
-    CCTK_REAL const PDstandardNth33gt22 = PDstandardNth33(&gt22[index]);
-    CCTK_REAL const PDstandardNth12gt22 = PDstandardNth12(&gt22[index]);
-    CCTK_REAL const PDstandardNth13gt22 = PDstandardNth13(&gt22[index]);
-    CCTK_REAL const PDstandardNth23gt22 = PDstandardNth23(&gt22[index]);
-    CCTK_REAL const PDstandardNth1gt23 = PDstandardNth1(&gt23[index]);
-    CCTK_REAL const PDstandardNth2gt23 = PDstandardNth2(&gt23[index]);
-    CCTK_REAL const PDstandardNth3gt23 = PDstandardNth3(&gt23[index]);
-    CCTK_REAL const PDstandardNth11gt23 = PDstandardNth11(&gt23[index]);
-    CCTK_REAL const PDstandardNth22gt23 = PDstandardNth22(&gt23[index]);
-    CCTK_REAL const PDstandardNth33gt23 = PDstandardNth33(&gt23[index]);
-    CCTK_REAL const PDstandardNth12gt23 = PDstandardNth12(&gt23[index]);
-    CCTK_REAL const PDstandardNth13gt23 = PDstandardNth13(&gt23[index]);
-    CCTK_REAL const PDstandardNth23gt23 = PDstandardNth23(&gt23[index]);
-    CCTK_REAL const PDstandardNth1gt33 = PDstandardNth1(&gt33[index]);
-    CCTK_REAL const PDstandardNth2gt33 = PDstandardNth2(&gt33[index]);
-    CCTK_REAL const PDstandardNth3gt33 = PDstandardNth3(&gt33[index]);
-    CCTK_REAL const PDstandardNth11gt33 = PDstandardNth11(&gt33[index]);
-    CCTK_REAL const PDstandardNth22gt33 = PDstandardNth22(&gt33[index]);
-    CCTK_REAL const PDstandardNth33gt33 = PDstandardNth33(&gt33[index]);
-    CCTK_REAL const PDstandardNth12gt33 = PDstandardNth12(&gt33[index]);
-    CCTK_REAL const PDstandardNth13gt33 = PDstandardNth13(&gt33[index]);
-    CCTK_REAL const PDstandardNth23gt33 = PDstandardNth23(&gt33[index]);
-    CCTK_REAL const PDstandardNth1trK = PDstandardNth1(&trK[index]);
-    CCTK_REAL const PDstandardNth2trK = PDstandardNth2(&trK[index]);
-    CCTK_REAL const PDstandardNth3trK = PDstandardNth3(&trK[index]);
-    CCTK_REAL const PDstandardNth1Xt1 = PDstandardNth1(&Xt1[index]);
-    CCTK_REAL const PDstandardNth2Xt1 = PDstandardNth2(&Xt1[index]);
-    CCTK_REAL const PDstandardNth3Xt1 = PDstandardNth3(&Xt1[index]);
-    CCTK_REAL const PDstandardNth1Xt2 = PDstandardNth1(&Xt2[index]);
-    CCTK_REAL const PDstandardNth2Xt2 = PDstandardNth2(&Xt2[index]);
-    CCTK_REAL const PDstandardNth3Xt2 = PDstandardNth3(&Xt2[index]);
-    CCTK_REAL const PDstandardNth1Xt3 = PDstandardNth1(&Xt3[index]);
-    CCTK_REAL const PDstandardNth2Xt3 = PDstandardNth2(&Xt3[index]);
-    CCTK_REAL const PDstandardNth3Xt3 = PDstandardNth3(&Xt3[index]);
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL detgt = 1;
-    
-    CCTK_REAL gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L));
-    
-    CCTK_REAL gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt);
-    
-    CCTK_REAL gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt);
-    
-    CCTK_REAL gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L));
-    
-    CCTK_REAL gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt);
-    
-    CCTK_REAL gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L));
-    
-    CCTK_REAL dgtu111 = -2*(gtu11*gtu21*PDstandardNth1gt12 + 
-      gtu11*gtu31*PDstandardNth1gt13 + gtu21*gtu31*PDstandardNth1gt23) - 
-      PDstandardNth1gt11*SQR(gtu11) - PDstandardNth1gt22*SQR(gtu21) - 
-      PDstandardNth1gt33*SQR(gtu31);
-    
-    CCTK_REAL dgtu211 = gtu21*(-(gtu11*PDstandardNth1gt11) - 
-      gtu31*PDstandardNth1gt13 - gtu22*PDstandardNth1gt22) + 
-      gtu32*(-(gtu11*PDstandardNth1gt13) - gtu21*PDstandardNth1gt23) + 
-      gtu31*(-(gtu22*PDstandardNth1gt23) - gtu32*PDstandardNth1gt33) - 
-      PDstandardNth1gt12*(gtu11*gtu22 + SQR(gtu21));
-    
-    CCTK_REAL dgtu311 = -((gtu21*gtu31 + gtu11*gtu32)*PDstandardNth1gt12) 
-      + gtu11*(-(gtu31*PDstandardNth1gt11) - gtu33*PDstandardNth1gt13) + 
-      gtu32*(-(gtu21*PDstandardNth1gt22) - gtu31*PDstandardNth1gt23) + 
-      gtu33*(-(gtu21*PDstandardNth1gt23) - gtu31*PDstandardNth1gt33) - 
-      PDstandardNth1gt13*SQR(gtu31);
-    
-    CCTK_REAL dgtu221 = -2*(gtu21*gtu22*PDstandardNth1gt12 + 
-      gtu21*gtu32*PDstandardNth1gt13 + gtu22*gtu32*PDstandardNth1gt23) - 
-      PDstandardNth1gt11*SQR(gtu21) - PDstandardNth1gt22*SQR(gtu22) - 
-      PDstandardNth1gt33*SQR(gtu32);
-    
-    CCTK_REAL dgtu321 = -((gtu22*gtu31 + gtu21*gtu32)*PDstandardNth1gt12) 
-      + gtu31*(-(gtu21*PDstandardNth1gt11) - gtu32*PDstandardNth1gt13) + 
-      gtu33*(-(gtu21*PDstandardNth1gt13) - gtu22*PDstandardNth1gt23) + 
-      gtu32*(-(gtu22*PDstandardNth1gt22) - gtu33*PDstandardNth1gt33) - 
-      PDstandardNth1gt23*SQR(gtu32);
-    
-    CCTK_REAL dgtu331 = -2*(gtu31*gtu32*PDstandardNth1gt12 + 
-      gtu31*gtu33*PDstandardNth1gt13 + gtu32*gtu33*PDstandardNth1gt23) - 
-      PDstandardNth1gt11*SQR(gtu31) - PDstandardNth1gt22*SQR(gtu32) - 
-      PDstandardNth1gt33*SQR(gtu33);
-    
-    CCTK_REAL dgtu112 = -2*(gtu11*gtu21*PDstandardNth2gt12 + 
-      gtu11*gtu31*PDstandardNth2gt13 + gtu21*gtu31*PDstandardNth2gt23) - 
-      PDstandardNth2gt11*SQR(gtu11) - PDstandardNth2gt22*SQR(gtu21) - 
-      PDstandardNth2gt33*SQR(gtu31);
-    
-    CCTK_REAL dgtu212 = gtu21*(-(gtu11*PDstandardNth2gt11) - 
-      gtu31*PDstandardNth2gt13 - gtu22*PDstandardNth2gt22) + 
-      gtu32*(-(gtu11*PDstandardNth2gt13) - gtu21*PDstandardNth2gt23) + 
-      gtu31*(-(gtu22*PDstandardNth2gt23) - gtu32*PDstandardNth2gt33) - 
-      PDstandardNth2gt12*(gtu11*gtu22 + SQR(gtu21));
-    
-    CCTK_REAL dgtu312 = -((gtu21*gtu31 + gtu11*gtu32)*PDstandardNth2gt12) 
-      + gtu11*(-(gtu31*PDstandardNth2gt11) - gtu33*PDstandardNth2gt13) + 
-      gtu32*(-(gtu21*PDstandardNth2gt22) - gtu31*PDstandardNth2gt23) + 
-      gtu33*(-(gtu21*PDstandardNth2gt23) - gtu31*PDstandardNth2gt33) - 
-      PDstandardNth2gt13*SQR(gtu31);
-    
-    CCTK_REAL dgtu222 = -2*(gtu21*gtu22*PDstandardNth2gt12 + 
-      gtu21*gtu32*PDstandardNth2gt13 + gtu22*gtu32*PDstandardNth2gt23) - 
-      PDstandardNth2gt11*SQR(gtu21) - PDstandardNth2gt22*SQR(gtu22) - 
-      PDstandardNth2gt33*SQR(gtu32);
-    
-    CCTK_REAL dgtu322 = -((gtu22*gtu31 + gtu21*gtu32)*PDstandardNth2gt12) 
-      + gtu31*(-(gtu21*PDstandardNth2gt11) - gtu32*PDstandardNth2gt13) + 
-      gtu33*(-(gtu21*PDstandardNth2gt13) - gtu22*PDstandardNth2gt23) + 
-      gtu32*(-(gtu22*PDstandardNth2gt22) - gtu33*PDstandardNth2gt33) - 
-      PDstandardNth2gt23*SQR(gtu32);
-    
-    CCTK_REAL dgtu332 = -2*(gtu31*gtu32*PDstandardNth2gt12 + 
-      gtu31*gtu33*PDstandardNth2gt13 + gtu32*gtu33*PDstandardNth2gt23) - 
-      PDstandardNth2gt11*SQR(gtu31) - PDstandardNth2gt22*SQR(gtu32) - 
-      PDstandardNth2gt33*SQR(gtu33);
-    
-    CCTK_REAL dgtu113 = -2*(gtu11*gtu21*PDstandardNth3gt12 + 
-      gtu11*gtu31*PDstandardNth3gt13 + gtu21*gtu31*PDstandardNth3gt23) - 
-      PDstandardNth3gt11*SQR(gtu11) - PDstandardNth3gt22*SQR(gtu21) - 
-      PDstandardNth3gt33*SQR(gtu31);
-    
-    CCTK_REAL dgtu213 = gtu21*(-(gtu11*PDstandardNth3gt11) - 
-      gtu31*PDstandardNth3gt13 - gtu22*PDstandardNth3gt22) + 
-      gtu32*(-(gtu11*PDstandardNth3gt13) - gtu21*PDstandardNth3gt23) + 
-      gtu31*(-(gtu22*PDstandardNth3gt23) - gtu32*PDstandardNth3gt33) - 
-      PDstandardNth3gt12*(gtu11*gtu22 + SQR(gtu21));
-    
-    CCTK_REAL dgtu313 = -((gtu21*gtu31 + gtu11*gtu32)*PDstandardNth3gt12) 
-      + gtu11*(-(gtu31*PDstandardNth3gt11) - gtu33*PDstandardNth3gt13) + 
-      gtu32*(-(gtu21*PDstandardNth3gt22) - gtu31*PDstandardNth3gt23) + 
-      gtu33*(-(gtu21*PDstandardNth3gt23) - gtu31*PDstandardNth3gt33) - 
-      PDstandardNth3gt13*SQR(gtu31);
-    
-    CCTK_REAL dgtu223 = -2*(gtu21*gtu22*PDstandardNth3gt12 + 
-      gtu21*gtu32*PDstandardNth3gt13 + gtu22*gtu32*PDstandardNth3gt23) - 
-      PDstandardNth3gt11*SQR(gtu21) - PDstandardNth3gt22*SQR(gtu22) - 
-      PDstandardNth3gt33*SQR(gtu32);
-    
-    CCTK_REAL dgtu323 = -((gtu22*gtu31 + gtu21*gtu32)*PDstandardNth3gt12) 
-      + gtu31*(-(gtu21*PDstandardNth3gt11) - gtu32*PDstandardNth3gt13) + 
-      gtu33*(-(gtu21*PDstandardNth3gt13) - gtu22*PDstandardNth3gt23) + 
-      gtu32*(-(gtu22*PDstandardNth3gt22) - gtu33*PDstandardNth3gt33) - 
-      PDstandardNth3gt23*SQR(gtu32);
-    
-    CCTK_REAL dgtu333 = -2*(gtu31*gtu32*PDstandardNth3gt12 + 
-      gtu31*gtu33*PDstandardNth3gt13 + gtu32*gtu33*PDstandardNth3gt23) - 
-      PDstandardNth3gt11*SQR(gtu31) - PDstandardNth3gt22*SQR(gtu32) - 
-      PDstandardNth3gt33*SQR(gtu33);
-    
-    CCTK_REAL Gtl111 = 0.5*PDstandardNth1gt11;
-    
-    CCTK_REAL Gtl112 = 0.5*PDstandardNth2gt11;
-    
-    CCTK_REAL Gtl113 = 0.5*PDstandardNth3gt11;
-    
-    CCTK_REAL Gtl122 = -0.5*PDstandardNth1gt22 + PDstandardNth2gt12;
-    
-    CCTK_REAL Gtl123 = 0.5*(-PDstandardNth1gt23 + PDstandardNth2gt13 + 
-      PDstandardNth3gt12);
-    
-    CCTK_REAL Gtl133 = -0.5*PDstandardNth1gt33 + PDstandardNth3gt13;
-    
-    CCTK_REAL Gtl211 = PDstandardNth1gt12 - 0.5*PDstandardNth2gt11;
-    
-    CCTK_REAL Gtl212 = 0.5*PDstandardNth1gt22;
-    
-    CCTK_REAL Gtl213 = 0.5*(PDstandardNth1gt23 - PDstandardNth2gt13 + 
-      PDstandardNth3gt12);
-    
-    CCTK_REAL Gtl222 = 0.5*PDstandardNth2gt22;
-    
-    CCTK_REAL Gtl223 = 0.5*PDstandardNth3gt22;
-    
-    CCTK_REAL Gtl233 = -0.5*PDstandardNth2gt33 + PDstandardNth3gt23;
-    
-    CCTK_REAL Gtl311 = PDstandardNth1gt13 - 0.5*PDstandardNth3gt11;
-    
-    CCTK_REAL Gtl312 = 0.5*(PDstandardNth1gt23 + PDstandardNth2gt13 - 
-      PDstandardNth3gt12);
-    
-    CCTK_REAL Gtl313 = 0.5*PDstandardNth1gt33;
-    
-    CCTK_REAL Gtl322 = PDstandardNth2gt23 - 0.5*PDstandardNth3gt22;
-    
-    CCTK_REAL Gtl323 = 0.5*PDstandardNth2gt33;
-    
-    CCTK_REAL Gtl333 = 0.5*PDstandardNth3gt33;
-    
-    CCTK_REAL Gtlu111 = Gtl111*gtu11 + Gtl112*gtu21 + Gtl113*gtu31;
-    
-    CCTK_REAL Gtlu112 = Gtl111*gtu21 + Gtl112*gtu22 + Gtl113*gtu32;
-    
-    CCTK_REAL Gtlu113 = Gtl111*gtu31 + Gtl112*gtu32 + Gtl113*gtu33;
-    
-    CCTK_REAL Gtlu121 = Gtl112*gtu11 + Gtl122*gtu21 + Gtl123*gtu31;
-    
-    CCTK_REAL Gtlu122 = Gtl112*gtu21 + Gtl122*gtu22 + Gtl123*gtu32;
-    
-    CCTK_REAL Gtlu123 = Gtl112*gtu31 + Gtl122*gtu32 + Gtl123*gtu33;
-    
-    CCTK_REAL Gtlu131 = Gtl113*gtu11 + Gtl123*gtu21 + Gtl133*gtu31;
-    
-    CCTK_REAL Gtlu132 = Gtl113*gtu21 + Gtl123*gtu22 + Gtl133*gtu32;
-    
-    CCTK_REAL Gtlu133 = Gtl113*gtu31 + Gtl123*gtu32 + Gtl133*gtu33;
-    
-    CCTK_REAL Gtlu211 = Gtl211*gtu11 + Gtl212*gtu21 + Gtl213*gtu31;
-    
-    CCTK_REAL Gtlu212 = Gtl211*gtu21 + Gtl212*gtu22 + Gtl213*gtu32;
-    
-    CCTK_REAL Gtlu213 = Gtl211*gtu31 + Gtl212*gtu32 + Gtl213*gtu33;
-    
-    CCTK_REAL Gtlu221 = Gtl212*gtu11 + Gtl222*gtu21 + Gtl223*gtu31;
-    
-    CCTK_REAL Gtlu222 = Gtl212*gtu21 + Gtl222*gtu22 + Gtl223*gtu32;
-    
-    CCTK_REAL Gtlu223 = Gtl212*gtu31 + Gtl222*gtu32 + Gtl223*gtu33;
-    
-    CCTK_REAL Gtlu231 = Gtl213*gtu11 + Gtl223*gtu21 + Gtl233*gtu31;
-    
-    CCTK_REAL Gtlu232 = Gtl213*gtu21 + Gtl223*gtu22 + Gtl233*gtu32;
-    
-    CCTK_REAL Gtlu233 = Gtl213*gtu31 + Gtl223*gtu32 + Gtl233*gtu33;
-    
-    CCTK_REAL Gtlu311 = Gtl311*gtu11 + Gtl312*gtu21 + Gtl313*gtu31;
-    
-    CCTK_REAL Gtlu312 = Gtl311*gtu21 + Gtl312*gtu22 + Gtl313*gtu32;
-    
-    CCTK_REAL Gtlu313 = Gtl311*gtu31 + Gtl312*gtu32 + Gtl313*gtu33;
-    
-    CCTK_REAL Gtlu321 = Gtl312*gtu11 + Gtl322*gtu21 + Gtl323*gtu31;
-    
-    CCTK_REAL Gtlu322 = Gtl312*gtu21 + Gtl322*gtu22 + Gtl323*gtu32;
-    
-    CCTK_REAL Gtlu323 = Gtl312*gtu31 + Gtl322*gtu32 + Gtl323*gtu33;
-    
-    CCTK_REAL Gtlu331 = Gtl313*gtu11 + Gtl323*gtu21 + Gtl333*gtu31;
-    
-    CCTK_REAL Gtlu332 = Gtl313*gtu21 + Gtl323*gtu22 + Gtl333*gtu32;
-    
-    CCTK_REAL Gtlu333 = Gtl313*gtu31 + Gtl323*gtu32 + Gtl333*gtu33;
-    
-    CCTK_REAL Gt111 = Gtl111*gtu11 + Gtl211*gtu21 + Gtl311*gtu31;
-    
-    CCTK_REAL Gt211 = Gtl111*gtu21 + Gtl211*gtu22 + Gtl311*gtu32;
-    
-    CCTK_REAL Gt311 = Gtl111*gtu31 + Gtl211*gtu32 + Gtl311*gtu33;
-    
-    CCTK_REAL Gt112 = Gtl112*gtu11 + Gtl212*gtu21 + Gtl312*gtu31;
-    
-    CCTK_REAL Gt212 = Gtl112*gtu21 + Gtl212*gtu22 + Gtl312*gtu32;
-    
-    CCTK_REAL Gt312 = Gtl112*gtu31 + Gtl212*gtu32 + Gtl312*gtu33;
-    
-    CCTK_REAL Gt113 = Gtl113*gtu11 + Gtl213*gtu21 + Gtl313*gtu31;
-    
-    CCTK_REAL Gt213 = Gtl113*gtu21 + Gtl213*gtu22 + Gtl313*gtu32;
-    
-    CCTK_REAL Gt313 = Gtl113*gtu31 + Gtl213*gtu32 + Gtl313*gtu33;
-    
-    CCTK_REAL Gt122 = Gtl122*gtu11 + Gtl222*gtu21 + Gtl322*gtu31;
-    
-    CCTK_REAL Gt222 = Gtl122*gtu21 + Gtl222*gtu22 + Gtl322*gtu32;
-    
-    CCTK_REAL Gt322 = Gtl122*gtu31 + Gtl222*gtu32 + Gtl322*gtu33;
-    
-    CCTK_REAL Gt123 = Gtl123*gtu11 + Gtl223*gtu21 + Gtl323*gtu31;
-    
-    CCTK_REAL Gt223 = Gtl123*gtu21 + Gtl223*gtu22 + Gtl323*gtu32;
-    
-    CCTK_REAL Gt323 = Gtl123*gtu31 + Gtl223*gtu32 + Gtl323*gtu33;
-    
-    CCTK_REAL Gt133 = Gtl133*gtu11 + Gtl233*gtu21 + Gtl333*gtu31;
-    
-    CCTK_REAL Gt233 = Gtl133*gtu21 + Gtl233*gtu22 + Gtl333*gtu32;
-    
-    CCTK_REAL Gt333 = Gtl133*gtu31 + Gtl233*gtu32 + Gtl333*gtu33;
-    
-    CCTK_REAL Xtn1 = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + 
-      Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33;
-    
-    CCTK_REAL Xtn2 = Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + 
-      Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33;
-    
-    CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + 
-      Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33;
-    
-    CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + 
-      Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + 
-      Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - 
-      gtu11*PDstandardNth11gt11 - 2*gtu21*PDstandardNth12gt11 - 
-      2*gtu31*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + 
-      Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + 
-      gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + 
-      2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - 
-      2*gtu32*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 
-      + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3);
-    
-    CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + 
-      Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + 
-      Gt111*Gtlu121 + Gt212*Gtlu121 + Gt112*Gtlu122 + Gt222*Gtlu122 + 
-      Gt113*Gtlu123 + Gt223*Gtlu123 + Gt312*Gtlu131 + Gt322*Gtlu132 + 
-      Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*Gtlu212 + Gt113*Gtlu213 + 
-      Gt311*Gtlu231 + Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + 
-      Gt312*Gtlu322 + Gt313*Gtlu323) - 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 + Gtl112*Xtn1 + Gtl211*Xtn1 + Gtl122*Xtn2 + 
-      Gtl212*Xtn2 + Gtl123*Xtn3 + Gtl213*Xtn3);
-    
-    CCTK_REAL Rt13 = 0.5*(2*(Gt113*Gtlu111 + Gt123*Gtlu112 + Gt133*Gtlu113 
-      + Gt213*Gtlu121 + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + 
-      Gt313*Gtlu131 + Gt112*Gtlu132 + Gt323*Gtlu132 + Gt113*Gtlu133 + 
-      Gt333*Gtlu133 + Gt211*Gtlu231 + Gt212*Gtlu232 + Gt213*Gtlu233 + 
-      Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*Gtlu313 + Gt211*Gtlu321 + 
-      Gt212*Gtlu322 + Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + 
-      Gt313*Gtlu333) - 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 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + 
-      Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3);
-    
-    CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + 
-      Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + 
-      Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - 
-      gtu11*PDstandardNth11gt22 - 2*gtu21*PDstandardNth12gt22 - 
-      2*gtu31*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - 
-      2*gtu32*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + 
-      Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + 
-      gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + 
-      2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 
-      + 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3);
-    
-    CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 
-      + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + 
-      Gt223*Gtlu222 + Gt233*Gtlu223 + Gt212*Gtlu231 + Gt313*Gtlu231 + 
-      Gt222*Gtlu232 + Gt323*Gtlu232 + Gt223*Gtlu233 + Gt333*Gtlu233 + 
-      Gt112*Gtlu311 + Gt122*Gtlu312 + Gt123*Gtlu313 + Gt212*Gtlu321 + 
-      Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + Gt322*Gtlu332 + 
-      Gt323*Gtlu333) - 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 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + 
-      Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3);
-    
-    CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 
-      + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + 
-      Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - 
-      2*gtu21*PDstandardNth12gt33 - 2*gtu31*PDstandardNth13gt33 - 
-      gtu22*PDstandardNth22gt33 - 2*gtu32*PDstandardNth23gt33 - 
-      gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + 
-      Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + 
-      gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + 
-      2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + 
-      2*Gtl333*Xtn3);
-    
-    CCTK_REAL trRt = gtu11*Rt11 + gtu22*Rt22 + 2*(gtu21*Rt12 + gtu31*Rt13 
-      + gtu32*Rt23) + gtu33*Rt33;
-    
-    CCTK_REAL ephi = 
-      IfThen(conformalMethod,INV(sqrt(phiL)),exp(phiL));
-    
-    CCTK_REAL Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31;
-    
-    CCTK_REAL Atm21 = At11L*gtu21 + At12L*gtu22 + At13L*gtu32;
-    
-    CCTK_REAL Atm31 = At11L*gtu31 + At12L*gtu32 + At13L*gtu33;
-    
-    CCTK_REAL Atm12 = At12L*gtu11 + At22L*gtu21 + At23L*gtu31;
-    
-    CCTK_REAL Atm22 = At12L*gtu21 + At22L*gtu22 + At23L*gtu32;
-    
-    CCTK_REAL Atm32 = At12L*gtu31 + At22L*gtu32 + At23L*gtu33;
-    
-    CCTK_REAL Atm13 = At13L*gtu11 + At23L*gtu21 + At33L*gtu31;
-    
-    CCTK_REAL Atm23 = At13L*gtu21 + At23L*gtu22 + At33L*gtu32;
-    
-    CCTK_REAL Atm33 = At13L*gtu31 + At23L*gtu32 + At33L*gtu33;
-    
-    CCTK_REAL rho = INV(SQR(alphaL))*(eTttL - 2*(beta2L*eTtyL + 
-      beta3L*eTtzL) + 2*(beta1L*(-eTtxL + beta2L*eTxyL + 
-      beta3L*eTxzL) + beta2L*beta3L*eTyzL) + eTxxL*SQR(beta1L) 
-      + eTyyL*SQR(beta2L) + eTzzL*SQR(beta3L));
-    
-    CCTK_REAL S1 = (-eTtxL + beta1L*eTxxL + beta2L*eTxyL + 
-      beta3L*eTxzL)*INV(alphaL);
-    
-    CCTK_REAL S2 = (-eTtyL + beta1L*eTxyL + beta2L*eTyyL + 
-      beta3L*eTyzL)*INV(alphaL);
-    
-    CCTK_REAL S3 = (-eTtzL + beta1L*eTxzL + beta2L*eTyzL + 
-      beta3L*eTzzL)*INV(alphaL);
-    
-    CCTK_REAL MadmL = -0.0625*INV(Pi)*((Gt111*Gtlu111 + Gt112*Gtlu112 + 
-      Gt113*Gtlu113 + Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + 
-      Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133)*gtu11 + (Gt122*Gtlu112 + 
-      Gt123*Gtlu113 + Gt222*Gtlu122 + Gt223*Gtlu123 + Gt322*Gtlu132 + 
-      Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*(Gtlu111 + Gtlu212) + 
-      Gt113*Gtlu213 + Gt211*Gtlu221 + Gt212*(Gtlu121 + Gtlu222) + 
-      Gt213*Gtlu223 + Gt311*Gtlu231 + Gt312*(Gtlu131 + Gtlu232) + 
-      Gt313*Gtlu233)*gtu21 + (Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + 
-      Gt212*Gtlu221 + Gt222*Gtlu222 + Gt223*Gtlu223 + Gt312*Gtlu231 + 
-      Gt322*Gtlu232 + Gt323*Gtlu233)*gtu22 + (Gt123*Gtlu112 + Gt133*Gtlu113 + 
-      Gt223*Gtlu122 + Gt233*Gtlu123 + Gt323*Gtlu132 + Gt333*Gtlu133 + 
-      Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*(Gtlu111 + Gtlu313) + 
-      Gt211*Gtlu321 + Gt212*Gtlu322 + Gt213*(Gtlu121 + Gtlu323) + 
-      Gt311*Gtlu331 + Gt312*Gtlu332 + Gt313*(Gtlu131 + Gtlu333))*gtu31 + 
-      (Gt113*Gtlu211 + Gt133*Gtlu213 + Gt213*Gtlu221 + Gt233*Gtlu223 + 
-      Gt313*Gtlu231 + Gt333*Gtlu233 + Gt112*Gtlu311 + Gt122*Gtlu312 + 
-      Gt123*(Gtlu212 + Gtlu313) + Gt212*Gtlu321 + Gt222*Gtlu322 + 
-      Gt223*(Gtlu222 + Gtlu323) + Gt312*Gtlu331 + Gt322*Gtlu332 + 
-      Gt323*(Gtlu232 + Gtlu333))*gtu32 + (Gt113*Gtlu311 + Gt123*Gtlu312 + 
-      Gt133*Gtlu313 + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323 + 
-      Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333)*gtu33 + (-1 + ephi)*trRt 
-      - pow(ephi,5)*(2*(Atm12*Atm21 + Atm13*Atm31 + Atm23*Atm32) + 16*Pi*rho 
-      - 0.666666666666666666666666666667*SQR(trKL) + SQR(Atm11) + 
-      SQR(Atm22) + SQR(Atm33)));
-    
-    CCTK_REAL Jadm1L = 
-      0.0208333333333333333333333333333*(-4*zL*PDstandardNth2trK + 
-      4*yL*PDstandardNth3trK + 3*(At11L*(zL*dgtu112 - yL*dgtu113) + 
-      At22L*(zL*dgtu222 - yL*dgtu223) + 2*(Atm23 + 
-      zL*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)) - 2*(Atm32 
-      + yL*(At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)) + 
-      At33L*(zL*dgtu332 - yL*dgtu333) + Pi*(-16*zL*S2 + 
-      16*yL*S3)))*INV(Pi)*pow(ephi,6);
-    
-    CCTK_REAL Jadm2L = 
-      0.0208333333333333333333333333333*(4*zL*PDstandardNth1trK - 
-      4*xL*PDstandardNth3trK + 3*(At11L*(-(zL*dgtu111) + xL*dgtu113) 
-      + At22L*(-(zL*dgtu221) + xL*dgtu223) - 2*(Atm13 + 
-      zL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) + 2*(Atm31 
-      + xL*(At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)) + 
-      At33L*(-(zL*dgtu331) + xL*dgtu333) + Pi*(16*zL*S1 - 
-      16*xL*S3)))*INV(Pi)*pow(ephi,6);
-    
-    CCTK_REAL Jadm3L = 
-      0.0208333333333333333333333333333*(-4*yL*PDstandardNth1trK + 
-      4*xL*PDstandardNth2trK + 3*(At11L*(yL*dgtu111 - xL*dgtu112) + 
-      At22L*(yL*dgtu221 - xL*dgtu222) + 2*(Atm12 + 
-      yL*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)) - 2*(Atm21 
-      + xL*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)) + 
-      At33L*(yL*dgtu331 - xL*dgtu332) + Pi*(-16*yL*S1 + 
-      16*xL*S2)))*INV(Pi)*pow(ephi,6);
-    
-    /* Copy local copies back to grid functions */
-    Jadm1[index] = Jadm1L;
-    Jadm2[index] = Jadm2L;
-    Jadm3[index] = Jadm3L;
-    Madm[index] = MadmL;
-  }
-  CCTK_ENDLOOP3(ML_ADMQuantities_O2);
-}
-
-extern "C" void ML_ADMQuantities_O2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_ADMQuantities_O2_Body");
-  }
-  
-  if (cctk_iteration % ML_ADMQuantities_O2_calc_every != ML_ADMQuantities_O2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN::ML_curv",
-    "ML_BSSN::ML_Gamma",
-    "ML_BSSN::ML_lapse",
-    "ML_BSSN::ML_log_confac",
-    "ML_BSSN::ML_metric",
-    "ML_BSSN::ML_shift",
-    "ML_BSSN::ML_trace_curv",
-    "ML_ADMQuantities_O2::ML_Jadm",
-    "ML_ADMQuantities_O2::ML_Madm"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_ADMQuantities_O2", 11, groups);
-  
-  GenericFD_EnsureStencilFits(cctkGH, "ML_ADMQuantities_O2", 1, 1, 1);
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_ADMQuantities_O2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_ADMQuantities_O2_Body");
-  }
-}
diff --git a/ML_ADMQuantities_O2/src/RegisterMoL.cc b/ML_ADMQuantities_O2/src/RegisterMoL.cc
deleted file mode 100644
index 16276a7..0000000
--- a/ML_ADMQuantities_O2/src/RegisterMoL.cc
+++ /dev/null
@@ -1,18 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_ADMQuantities_O2_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_ADMQuantities_O2/src/RegisterSymmetries.cc b/ML_ADMQuantities_O2/src/RegisterSymmetries.cc
deleted file mode 100644
index 6464166..0000000
--- a/ML_ADMQuantities_O2/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,39 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_ADMQuantities_O2_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMQuantities_O2::Jadm1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMQuantities_O2::Jadm2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMQuantities_O2::Jadm3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_ADMQuantities_O2::Madm");
-  
-}
diff --git a/ML_ADMQuantities_O2/src/Startup.cc b/ML_ADMQuantities_O2/src/Startup.cc
deleted file mode 100644
index 781d8f1..0000000
--- a/ML_ADMQuantities_O2/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_ADMQuantities_O2_Startup(void)
-{
-  const char * banner = "ML_ADMQuantities_O2";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_ADMQuantities_O2/src/make.code.defn b/ML_ADMQuantities_O2/src/make.code.defn
deleted file mode 100644
index f708d22..0000000
--- a/ML_ADMQuantities_O2/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc ML_ADMQuantities_O2.cc Boundaries.cc 
diff --git a/ML_BSSN/schedule.ccl b/ML_BSSN/schedule.ccl
index 3e657c9..9819cbc 100644
--- a/ML_BSSN/schedule.ccl
+++ b/ML_BSSN/schedule.ccl
@@ -278,15 +278,31 @@ if (CCTK_EQUALS(my_initial_data, "Minkowski"))
   schedule ML_BSSN_Minkowski IN ADMBase_InitialData
   {
     LANG: C
-    WRITES:   ML_BSSN::ML_curv
-    WRITES:   ML_BSSN::ML_dtlapse
-    WRITES:   ML_BSSN::ML_dtshift
-    WRITES:   ML_BSSN::ML_Gamma
-    WRITES:   ML_BSSN::ML_lapse
-    WRITES:   ML_BSSN::ML_log_confac
-    WRITES:   ML_BSSN::ML_metric
-    WRITES:   ML_BSSN::ML_shift
-    WRITES:   ML_BSSN::ML_trace_curv
+    WRITES:   ML_BSSN::A
+    WRITES:   ML_BSSN::alpha
+    WRITES:   ML_BSSN::At11
+    WRITES:   ML_BSSN::At12
+    WRITES:   ML_BSSN::At13
+    WRITES:   ML_BSSN::At22
+    WRITES:   ML_BSSN::At23
+    WRITES:   ML_BSSN::At33
+    WRITES:   ML_BSSN::B1
+    WRITES:   ML_BSSN::B2
+    WRITES:   ML_BSSN::B3
+    WRITES:   ML_BSSN::beta1
+    WRITES:   ML_BSSN::beta2
+    WRITES:   ML_BSSN::beta3
+    WRITES:   ML_BSSN::gt11
+    WRITES:   ML_BSSN::gt12
+    WRITES:   ML_BSSN::gt13
+    WRITES:   ML_BSSN::gt22
+    WRITES:   ML_BSSN::gt23
+    WRITES:   ML_BSSN::gt33
+    WRITES:   ML_BSSN::phi
+    WRITES:   ML_BSSN::trK
+    WRITES:   ML_BSSN::Xt1
+    WRITES:   ML_BSSN::Xt2
+    WRITES:   ML_BSSN::Xt3
   } "ML_BSSN_Minkowski"
 }
 
@@ -296,18 +312,42 @@ if (CCTK_EQUALS(my_initial_data, "ADMBase"))
   schedule ML_BSSN_convertFromADMBase AT initial AFTER ADMBase_PostInitial
   {
     LANG: C
-    READS:    ADMBase::curv
-    READS:    ADMBase::lapse
-    READS:    ADMBase::metric
-    READS:    ADMBase::shift
-    READS:    ML_BSSN::ML_log_confac
-    READS:    ML_BSSN::ML_trace_curv
-    WRITES:   ML_BSSN::ML_curv
-    WRITES:   ML_BSSN::ML_lapse
-    WRITES:   ML_BSSN::ML_log_confac
-    WRITES:   ML_BSSN::ML_metric
-    WRITES:   ML_BSSN::ML_shift
-    WRITES:   ML_BSSN::ML_trace_curv
+    READS:    ADMBase::alp
+    READS:    ADMBase::betax
+    READS:    ADMBase::betay
+    READS:    ADMBase::betaz
+    READS:    ADMBase::gxx
+    READS:    ADMBase::gxy
+    READS:    ADMBase::gxz
+    READS:    ADMBase::gyy
+    READS:    ADMBase::gyz
+    READS:    ADMBase::gzz
+    READS:    ADMBase::kxx
+    READS:    ADMBase::kxy
+    READS:    ADMBase::kxz
+    READS:    ADMBase::kyy
+    READS:    ADMBase::kyz
+    READS:    ADMBase::kzz
+    READS:    ML_BSSN::phi
+    READS:    ML_BSSN::trK
+    WRITES:   ML_BSSN::alpha
+    WRITES:   ML_BSSN::At11
+    WRITES:   ML_BSSN::At12
+    WRITES:   ML_BSSN::At13
+    WRITES:   ML_BSSN::At22
+    WRITES:   ML_BSSN::At23
+    WRITES:   ML_BSSN::At33
+    WRITES:   ML_BSSN::beta1
+    WRITES:   ML_BSSN::beta2
+    WRITES:   ML_BSSN::beta3
+    WRITES:   ML_BSSN::gt11
+    WRITES:   ML_BSSN::gt12
+    WRITES:   ML_BSSN::gt13
+    WRITES:   ML_BSSN::gt22
+    WRITES:   ML_BSSN::gt23
+    WRITES:   ML_BSSN::gt33
+    WRITES:   ML_BSSN::phi
+    WRITES:   ML_BSSN::trK
   } "ML_BSSN_convertFromADMBase"
 }
 
@@ -317,9 +357,13 @@ if (CCTK_EQUALS(my_initial_data, "ADMBase"))
   schedule ML_BSSN_InitGamma AT initial BEFORE ML_BSSN_convertFromADMBaseGamma
   {
     LANG: C
-    WRITES:   ML_BSSN::ML_dtlapse
-    WRITES:   ML_BSSN::ML_dtshift
-    WRITES:   ML_BSSN::ML_Gamma
+    WRITES:   ML_BSSN::A
+    WRITES:   ML_BSSN::B1
+    WRITES:   ML_BSSN::B2
+    WRITES:   ML_BSSN::B3
+    WRITES:   ML_BSSN::Xt1
+    WRITES:   ML_BSSN::Xt2
+    WRITES:   ML_BSSN::Xt3
   } "ML_BSSN_InitGamma"
 }
 
@@ -332,62 +376,132 @@ if (CCTK_EQUALS(my_initial_data, "ADMBase"))
     SYNC: ML_dtlapse
     SYNC: ML_dtshift
     SYNC: ML_Gamma
-    READS:    ADMBase::dtlapse
-    READS:    ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN::ML_lapse
-    READS:    ML_BSSN::ML_metric
-    READS:    ML_BSSN::ML_shift
-    WRITES:   ML_BSSN::ML_dtlapse
-    WRITES:   ML_BSSN::ML_dtshift
-    WRITES:   ML_BSSN::ML_Gamma
+    READS:    ML_BSSN::alpha
+    READS:    ML_BSSN::beta1
+    READS:    ML_BSSN::beta2
+    READS:    ML_BSSN::beta3
+    READS:    ADMBase::dtalp
+    READS:    ADMBase::dtbetax
+    READS:    ADMBase::dtbetay
+    READS:    ADMBase::dtbetaz
+    READS:    ML_BSSN::gt11
+    READS:    ML_BSSN::gt12
+    READS:    ML_BSSN::gt13
+    READS:    ML_BSSN::gt22
+    READS:    ML_BSSN::gt23
+    READS:    ML_BSSN::gt33
+    READS:    grid::r
+    WRITES:   ML_BSSN::A
+    WRITES:   ML_BSSN::B1
+    WRITES:   ML_BSSN::B2
+    WRITES:   ML_BSSN::B3
+    WRITES:   ML_BSSN::Xt1
+    WRITES:   ML_BSSN::Xt2
+    WRITES:   ML_BSSN::Xt3
   } "ML_BSSN_convertFromADMBaseGamma"
 }
 
 schedule ML_BSSN_RHS1 IN ML_BSSN_evolCalcGroup
 {
   LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_dtlapse
-  READS:    ML_BSSN::ML_dtshift
-  READS:    ML_BSSN::ML_Gamma
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_log_confac
-  READS:    ML_BSSN::ML_metric
-  READS:    ML_BSSN::ML_shift
-  READS:    ML_BSSN::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN::ML_dtlapserhs
-  WRITES:   ML_BSSN::ML_dtshiftrhs
-  WRITES:   ML_BSSN::ML_Gammarhs
-  WRITES:   ML_BSSN::ML_lapserhs
-  WRITES:   ML_BSSN::ML_log_confacrhs
-  WRITES:   ML_BSSN::ML_metricrhs
-  WRITES:   ML_BSSN::ML_shiftrhs
-  WRITES:   ML_BSSN::ML_trace_curvrhs
+  READS:    ML_BSSN::A
+  READS:    ML_BSSN::alpha
+  READS:    ML_BSSN::At11
+  READS:    ML_BSSN::At12
+  READS:    ML_BSSN::At13
+  READS:    ML_BSSN::At22
+  READS:    ML_BSSN::At23
+  READS:    ML_BSSN::At33
+  READS:    ML_BSSN::B1
+  READS:    ML_BSSN::B2
+  READS:    ML_BSSN::B3
+  READS:    ML_BSSN::beta1
+  READS:    ML_BSSN::beta2
+  READS:    ML_BSSN::beta3
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ML_BSSN::gt11
+  READS:    ML_BSSN::gt12
+  READS:    ML_BSSN::gt13
+  READS:    ML_BSSN::gt22
+  READS:    ML_BSSN::gt23
+  READS:    ML_BSSN::gt33
+  READS:    ML_BSSN::phi
+  READS:    grid::r
+  READS:    ML_BSSN::trK
+  READS:    ML_BSSN::Xt1
+  READS:    ML_BSSN::Xt2
+  READS:    ML_BSSN::Xt3
+  WRITES:   ML_BSSN::alpharhs
+  WRITES:   ML_BSSN::Arhs
+  WRITES:   ML_BSSN::B1rhs
+  WRITES:   ML_BSSN::B2rhs
+  WRITES:   ML_BSSN::B3rhs
+  WRITES:   ML_BSSN::beta1rhs
+  WRITES:   ML_BSSN::beta2rhs
+  WRITES:   ML_BSSN::beta3rhs
+  WRITES:   ML_BSSN::gt11rhs
+  WRITES:   ML_BSSN::gt12rhs
+  WRITES:   ML_BSSN::gt13rhs
+  WRITES:   ML_BSSN::gt22rhs
+  WRITES:   ML_BSSN::gt23rhs
+  WRITES:   ML_BSSN::gt33rhs
+  WRITES:   ML_BSSN::phirhs
+  WRITES:   ML_BSSN::trKrhs
+  WRITES:   ML_BSSN::Xt1rhs
+  WRITES:   ML_BSSN::Xt2rhs
+  WRITES:   ML_BSSN::Xt3rhs
 } "ML_BSSN_RHS1"
 
 schedule ML_BSSN_RHS2 IN ML_BSSN_evolCalcGroup
 {
   LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_Gamma
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_log_confac
-  READS:    ML_BSSN::ML_metric
-  READS:    ML_BSSN::ML_shift
-  READS:    ML_BSSN::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN::ML_curvrhs
+  READS:    ML_BSSN::alpha
+  READS:    ML_BSSN::At11
+  READS:    ML_BSSN::At12
+  READS:    ML_BSSN::At13
+  READS:    ML_BSSN::At22
+  READS:    ML_BSSN::At23
+  READS:    ML_BSSN::At33
+  READS:    ML_BSSN::beta1
+  READS:    ML_BSSN::beta2
+  READS:    ML_BSSN::beta3
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ML_BSSN::gt11
+  READS:    ML_BSSN::gt12
+  READS:    ML_BSSN::gt13
+  READS:    ML_BSSN::gt22
+  READS:    ML_BSSN::gt23
+  READS:    ML_BSSN::gt33
+  READS:    ML_BSSN::phi
+  READS:    grid::r
+  READS:    ML_BSSN::trK
+  READS:    ML_BSSN::Xt1
+  READS:    ML_BSSN::Xt2
+  READS:    ML_BSSN::Xt3
+  WRITES:   ML_BSSN::At11rhs
+  WRITES:   ML_BSSN::At12rhs
+  WRITES:   ML_BSSN::At13rhs
+  WRITES:   ML_BSSN::At22rhs
+  WRITES:   ML_BSSN::At23rhs
+  WRITES:   ML_BSSN::At33rhs
 } "ML_BSSN_RHS2"
 
 
@@ -396,80 +510,192 @@ if (CCTK_EQUALS(apply_dissipation, "always"))
   schedule ML_BSSN_Dissipation IN ML_BSSN_evolCalcGroup AFTER (ML_BSSN_RHS1 ML_BSSN_RHS2)
   {
     LANG: C
-    READS:    ML_BSSN::ML_curv
-    READS:    ML_BSSN::ML_curvrhs
-    READS:    ML_BSSN::ML_dtlapse
-    READS:    ML_BSSN::ML_dtlapserhs
-    READS:    ML_BSSN::ML_dtshift
-    READS:    ML_BSSN::ML_dtshiftrhs
-    READS:    ML_BSSN::ML_Gamma
-    READS:    ML_BSSN::ML_Gammarhs
-    READS:    ML_BSSN::ML_lapse
-    READS:    ML_BSSN::ML_lapserhs
-    READS:    ML_BSSN::ML_log_confac
-    READS:    ML_BSSN::ML_log_confacrhs
-    READS:    ML_BSSN::ML_metric
-    READS:    ML_BSSN::ML_metricrhs
-    READS:    ML_BSSN::ML_shift
-    READS:    ML_BSSN::ML_shiftrhs
-    READS:    ML_BSSN::ML_trace_curv
-    READS:    ML_BSSN::ML_trace_curvrhs
-    WRITES:   ML_BSSN::ML_curvrhs
-    WRITES:   ML_BSSN::ML_dtlapserhs
-    WRITES:   ML_BSSN::ML_dtshiftrhs
-    WRITES:   ML_BSSN::ML_Gammarhs
-    WRITES:   ML_BSSN::ML_lapserhs
-    WRITES:   ML_BSSN::ML_log_confacrhs
-    WRITES:   ML_BSSN::ML_metricrhs
-    WRITES:   ML_BSSN::ML_shiftrhs
-    WRITES:   ML_BSSN::ML_trace_curvrhs
+    READS:    ML_BSSN::A
+    READS:    ML_BSSN::alpha
+    READS:    ML_BSSN::alpharhs
+    READS:    ML_BSSN::Arhs
+    READS:    ML_BSSN::At11
+    READS:    ML_BSSN::At11rhs
+    READS:    ML_BSSN::At12
+    READS:    ML_BSSN::At12rhs
+    READS:    ML_BSSN::At13
+    READS:    ML_BSSN::At13rhs
+    READS:    ML_BSSN::At22
+    READS:    ML_BSSN::At22rhs
+    READS:    ML_BSSN::At23
+    READS:    ML_BSSN::At23rhs
+    READS:    ML_BSSN::At33
+    READS:    ML_BSSN::At33rhs
+    READS:    ML_BSSN::B1
+    READS:    ML_BSSN::B1rhs
+    READS:    ML_BSSN::B2
+    READS:    ML_BSSN::B2rhs
+    READS:    ML_BSSN::B3
+    READS:    ML_BSSN::B3rhs
+    READS:    ML_BSSN::beta1
+    READS:    ML_BSSN::beta1rhs
+    READS:    ML_BSSN::beta2
+    READS:    ML_BSSN::beta2rhs
+    READS:    ML_BSSN::beta3
+    READS:    ML_BSSN::beta3rhs
+    READS:    ML_BSSN::gt11
+    READS:    ML_BSSN::gt11rhs
+    READS:    ML_BSSN::gt12
+    READS:    ML_BSSN::gt12rhs
+    READS:    ML_BSSN::gt13
+    READS:    ML_BSSN::gt13rhs
+    READS:    ML_BSSN::gt22
+    READS:    ML_BSSN::gt22rhs
+    READS:    ML_BSSN::gt23
+    READS:    ML_BSSN::gt23rhs
+    READS:    ML_BSSN::gt33
+    READS:    ML_BSSN::gt33rhs
+    READS:    ML_BSSN::phi
+    READS:    ML_BSSN::phirhs
+    READS:    ML_BSSN::trK
+    READS:    ML_BSSN::trKrhs
+    READS:    ML_BSSN::Xt1
+    READS:    ML_BSSN::Xt1rhs
+    READS:    ML_BSSN::Xt2
+    READS:    ML_BSSN::Xt2rhs
+    READS:    ML_BSSN::Xt3
+    READS:    ML_BSSN::Xt3rhs
+    WRITES:   ML_BSSN::alpharhs
+    WRITES:   ML_BSSN::Arhs
+    WRITES:   ML_BSSN::At11rhs
+    WRITES:   ML_BSSN::At12rhs
+    WRITES:   ML_BSSN::At13rhs
+    WRITES:   ML_BSSN::At22rhs
+    WRITES:   ML_BSSN::At23rhs
+    WRITES:   ML_BSSN::At33rhs
+    WRITES:   ML_BSSN::B1rhs
+    WRITES:   ML_BSSN::B2rhs
+    WRITES:   ML_BSSN::B3rhs
+    WRITES:   ML_BSSN::beta1rhs
+    WRITES:   ML_BSSN::beta2rhs
+    WRITES:   ML_BSSN::beta3rhs
+    WRITES:   ML_BSSN::gt11rhs
+    WRITES:   ML_BSSN::gt12rhs
+    WRITES:   ML_BSSN::gt13rhs
+    WRITES:   ML_BSSN::gt22rhs
+    WRITES:   ML_BSSN::gt23rhs
+    WRITES:   ML_BSSN::gt33rhs
+    WRITES:   ML_BSSN::phirhs
+    WRITES:   ML_BSSN::trKrhs
+    WRITES:   ML_BSSN::Xt1rhs
+    WRITES:   ML_BSSN::Xt2rhs
+    WRITES:   ML_BSSN::Xt3rhs
   } "ML_BSSN_Dissipation"
 }
 
 schedule ML_BSSN_Advect IN ML_BSSN_evolCalcGroup AFTER (ML_BSSN_RHS1 ML_BSSN_RHS2)
 {
   LANG: C
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_curvrhs
-  READS:    ML_BSSN::ML_dtlapse
-  READS:    ML_BSSN::ML_dtlapserhs
-  READS:    ML_BSSN::ML_dtshift
-  READS:    ML_BSSN::ML_dtshiftrhs
-  READS:    ML_BSSN::ML_Gamma
-  READS:    ML_BSSN::ML_Gammarhs
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_lapserhs
-  READS:    ML_BSSN::ML_log_confac
-  READS:    ML_BSSN::ML_log_confacrhs
-  READS:    ML_BSSN::ML_metric
-  READS:    ML_BSSN::ML_metricrhs
-  READS:    ML_BSSN::ML_shift
-  READS:    ML_BSSN::ML_shiftrhs
-  READS:    ML_BSSN::ML_trace_curv
-  READS:    ML_BSSN::ML_trace_curvrhs
-  WRITES:   ML_BSSN::ML_curvrhs
-  WRITES:   ML_BSSN::ML_dtlapserhs
-  WRITES:   ML_BSSN::ML_dtshiftrhs
-  WRITES:   ML_BSSN::ML_Gammarhs
-  WRITES:   ML_BSSN::ML_lapserhs
-  WRITES:   ML_BSSN::ML_log_confacrhs
-  WRITES:   ML_BSSN::ML_metricrhs
-  WRITES:   ML_BSSN::ML_shiftrhs
-  WRITES:   ML_BSSN::ML_trace_curvrhs
+  READS:    ML_BSSN::A
+  READS:    ML_BSSN::alpha
+  READS:    ML_BSSN::alpharhs
+  READS:    ML_BSSN::Arhs
+  READS:    ML_BSSN::At11
+  READS:    ML_BSSN::At11rhs
+  READS:    ML_BSSN::At12
+  READS:    ML_BSSN::At12rhs
+  READS:    ML_BSSN::At13
+  READS:    ML_BSSN::At13rhs
+  READS:    ML_BSSN::At22
+  READS:    ML_BSSN::At22rhs
+  READS:    ML_BSSN::At23
+  READS:    ML_BSSN::At23rhs
+  READS:    ML_BSSN::At33
+  READS:    ML_BSSN::At33rhs
+  READS:    ML_BSSN::B1
+  READS:    ML_BSSN::B1rhs
+  READS:    ML_BSSN::B2
+  READS:    ML_BSSN::B2rhs
+  READS:    ML_BSSN::B3
+  READS:    ML_BSSN::B3rhs
+  READS:    ML_BSSN::beta1
+  READS:    ML_BSSN::beta1rhs
+  READS:    ML_BSSN::beta2
+  READS:    ML_BSSN::beta2rhs
+  READS:    ML_BSSN::beta3
+  READS:    ML_BSSN::beta3rhs
+  READS:    ML_BSSN::gt11
+  READS:    ML_BSSN::gt11rhs
+  READS:    ML_BSSN::gt12
+  READS:    ML_BSSN::gt12rhs
+  READS:    ML_BSSN::gt13
+  READS:    ML_BSSN::gt13rhs
+  READS:    ML_BSSN::gt22
+  READS:    ML_BSSN::gt22rhs
+  READS:    ML_BSSN::gt23
+  READS:    ML_BSSN::gt23rhs
+  READS:    ML_BSSN::gt33
+  READS:    ML_BSSN::gt33rhs
+  READS:    ML_BSSN::phi
+  READS:    ML_BSSN::phirhs
+  READS:    ML_BSSN::trK
+  READS:    ML_BSSN::trKrhs
+  READS:    ML_BSSN::Xt1
+  READS:    ML_BSSN::Xt1rhs
+  READS:    ML_BSSN::Xt2
+  READS:    ML_BSSN::Xt2rhs
+  READS:    ML_BSSN::Xt3
+  READS:    ML_BSSN::Xt3rhs
+  WRITES:   ML_BSSN::alpharhs
+  WRITES:   ML_BSSN::Arhs
+  WRITES:   ML_BSSN::At11rhs
+  WRITES:   ML_BSSN::At12rhs
+  WRITES:   ML_BSSN::At13rhs
+  WRITES:   ML_BSSN::At22rhs
+  WRITES:   ML_BSSN::At23rhs
+  WRITES:   ML_BSSN::At33rhs
+  WRITES:   ML_BSSN::B1rhs
+  WRITES:   ML_BSSN::B2rhs
+  WRITES:   ML_BSSN::B3rhs
+  WRITES:   ML_BSSN::beta1rhs
+  WRITES:   ML_BSSN::beta2rhs
+  WRITES:   ML_BSSN::beta3rhs
+  WRITES:   ML_BSSN::gt11rhs
+  WRITES:   ML_BSSN::gt12rhs
+  WRITES:   ML_BSSN::gt13rhs
+  WRITES:   ML_BSSN::gt22rhs
+  WRITES:   ML_BSSN::gt23rhs
+  WRITES:   ML_BSSN::gt33rhs
+  WRITES:   ML_BSSN::phirhs
+  WRITES:   ML_BSSN::trKrhs
+  WRITES:   ML_BSSN::Xt1rhs
+  WRITES:   ML_BSSN::Xt2rhs
+  WRITES:   ML_BSSN::Xt3rhs
 } "ML_BSSN_Advect"
 
 schedule ML_BSSN_InitRHS AT analysis BEFORE ML_BSSN_evolCalcGroup
 {
   LANG: C
-  WRITES:   ML_BSSN::ML_curvrhs
-  WRITES:   ML_BSSN::ML_dtlapserhs
-  WRITES:   ML_BSSN::ML_dtshiftrhs
-  WRITES:   ML_BSSN::ML_Gammarhs
-  WRITES:   ML_BSSN::ML_lapserhs
-  WRITES:   ML_BSSN::ML_log_confacrhs
-  WRITES:   ML_BSSN::ML_metricrhs
-  WRITES:   ML_BSSN::ML_shiftrhs
-  WRITES:   ML_BSSN::ML_trace_curvrhs
+  WRITES:   ML_BSSN::alpharhs
+  WRITES:   ML_BSSN::Arhs
+  WRITES:   ML_BSSN::At11rhs
+  WRITES:   ML_BSSN::At12rhs
+  WRITES:   ML_BSSN::At13rhs
+  WRITES:   ML_BSSN::At22rhs
+  WRITES:   ML_BSSN::At23rhs
+  WRITES:   ML_BSSN::At33rhs
+  WRITES:   ML_BSSN::B1rhs
+  WRITES:   ML_BSSN::B2rhs
+  WRITES:   ML_BSSN::B3rhs
+  WRITES:   ML_BSSN::beta1rhs
+  WRITES:   ML_BSSN::beta2rhs
+  WRITES:   ML_BSSN::beta3rhs
+  WRITES:   ML_BSSN::gt11rhs
+  WRITES:   ML_BSSN::gt12rhs
+  WRITES:   ML_BSSN::gt13rhs
+  WRITES:   ML_BSSN::gt22rhs
+  WRITES:   ML_BSSN::gt23rhs
+  WRITES:   ML_BSSN::gt33rhs
+  WRITES:   ML_BSSN::phirhs
+  WRITES:   ML_BSSN::trKrhs
+  WRITES:   ML_BSSN::Xt1rhs
+  WRITES:   ML_BSSN::Xt2rhs
+  WRITES:   ML_BSSN::Xt3rhs
 } "ML_BSSN_InitRHS"
 
 
@@ -478,26 +704,57 @@ if (CCTK_EQUALS(my_rhs_boundary_condition, "static"))
   schedule ML_BSSN_RHSStaticBoundary IN MoL_CalcRHS
   {
     LANG: C
-    WRITES:   ML_BSSN::ML_curvrhs
-    WRITES:   ML_BSSN::ML_dtlapserhs
-    WRITES:   ML_BSSN::ML_dtshiftrhs
-    WRITES:   ML_BSSN::ML_Gammarhs
-    WRITES:   ML_BSSN::ML_lapserhs
-    WRITES:   ML_BSSN::ML_log_confacrhs
-    WRITES:   ML_BSSN::ML_metricrhs
-    WRITES:   ML_BSSN::ML_shiftrhs
-    WRITES:   ML_BSSN::ML_trace_curvrhs
+    WRITES:   ML_BSSN::alpharhs
+    WRITES:   ML_BSSN::Arhs
+    WRITES:   ML_BSSN::At11rhs
+    WRITES:   ML_BSSN::At12rhs
+    WRITES:   ML_BSSN::At13rhs
+    WRITES:   ML_BSSN::At22rhs
+    WRITES:   ML_BSSN::At23rhs
+    WRITES:   ML_BSSN::At33rhs
+    WRITES:   ML_BSSN::B1rhs
+    WRITES:   ML_BSSN::B2rhs
+    WRITES:   ML_BSSN::B3rhs
+    WRITES:   ML_BSSN::beta1rhs
+    WRITES:   ML_BSSN::beta2rhs
+    WRITES:   ML_BSSN::beta3rhs
+    WRITES:   ML_BSSN::gt11rhs
+    WRITES:   ML_BSSN::gt12rhs
+    WRITES:   ML_BSSN::gt13rhs
+    WRITES:   ML_BSSN::gt22rhs
+    WRITES:   ML_BSSN::gt23rhs
+    WRITES:   ML_BSSN::gt33rhs
+    WRITES:   ML_BSSN::phirhs
+    WRITES:   ML_BSSN::trKrhs
+    WRITES:   ML_BSSN::Xt1rhs
+    WRITES:   ML_BSSN::Xt2rhs
+    WRITES:   ML_BSSN::Xt3rhs
   } "ML_BSSN_RHSStaticBoundary"
 }
 
 schedule ML_BSSN_enforce IN MoL_PostStepModify
 {
   LANG: C
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_metric
-  WRITES:   ML_BSSN::ML_curv
-  WRITES:   ML_BSSN::ML_lapse
+  READS:    ML_BSSN::alpha
+  READS:    ML_BSSN::At11
+  READS:    ML_BSSN::At12
+  READS:    ML_BSSN::At13
+  READS:    ML_BSSN::At22
+  READS:    ML_BSSN::At23
+  READS:    ML_BSSN::At33
+  READS:    ML_BSSN::gt11
+  READS:    ML_BSSN::gt12
+  READS:    ML_BSSN::gt13
+  READS:    ML_BSSN::gt22
+  READS:    ML_BSSN::gt23
+  READS:    ML_BSSN::gt33
+  WRITES:   ML_BSSN::alpha
+  WRITES:   ML_BSSN::At11
+  WRITES:   ML_BSSN::At12
+  WRITES:   ML_BSSN::At13
+  WRITES:   ML_BSSN::At22
+  WRITES:   ML_BSSN::At23
+  WRITES:   ML_BSSN::At33
 } "ML_BSSN_enforce"
 
 
@@ -506,32 +763,77 @@ if (CCTK_EQUALS(my_boundary_condition, "Minkowski"))
   schedule ML_BSSN_boundary IN MoL_PostStep
   {
     LANG: C
-    WRITES:   ML_BSSN::ML_curv
-    WRITES:   ML_BSSN::ML_dtlapse
-    WRITES:   ML_BSSN::ML_dtshift
-    WRITES:   ML_BSSN::ML_Gamma
-    WRITES:   ML_BSSN::ML_lapse
-    WRITES:   ML_BSSN::ML_log_confac
-    WRITES:   ML_BSSN::ML_metric
-    WRITES:   ML_BSSN::ML_shift
-    WRITES:   ML_BSSN::ML_trace_curv
+    WRITES:   ML_BSSN::A
+    WRITES:   ML_BSSN::alpha
+    WRITES:   ML_BSSN::At11
+    WRITES:   ML_BSSN::At12
+    WRITES:   ML_BSSN::At13
+    WRITES:   ML_BSSN::At22
+    WRITES:   ML_BSSN::At23
+    WRITES:   ML_BSSN::At33
+    WRITES:   ML_BSSN::B1
+    WRITES:   ML_BSSN::B2
+    WRITES:   ML_BSSN::B3
+    WRITES:   ML_BSSN::beta1
+    WRITES:   ML_BSSN::beta2
+    WRITES:   ML_BSSN::beta3
+    WRITES:   ML_BSSN::gt11
+    WRITES:   ML_BSSN::gt12
+    WRITES:   ML_BSSN::gt13
+    WRITES:   ML_BSSN::gt22
+    WRITES:   ML_BSSN::gt23
+    WRITES:   ML_BSSN::gt33
+    WRITES:   ML_BSSN::phi
+    WRITES:   ML_BSSN::trK
+    WRITES:   ML_BSSN::Xt1
+    WRITES:   ML_BSSN::Xt2
+    WRITES:   ML_BSSN::Xt3
   } "ML_BSSN_boundary"
 }
 
 schedule ML_BSSN_convertToADMBase IN ML_BSSN_convertToADMBaseGroup
 {
   LANG: C
-  READS:    ADMBase::metric
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_log_confac
-  READS:    ML_BSSN::ML_metric
-  READS:    ML_BSSN::ML_shift
-  READS:    ML_BSSN::ML_trace_curv
-  WRITES:   ADMBase::curv
-  WRITES:   ADMBase::lapse
-  WRITES:   ADMBase::metric
-  WRITES:   ADMBase::shift
+  READS:    ML_BSSN::alpha
+  READS:    ML_BSSN::At11
+  READS:    ML_BSSN::At12
+  READS:    ML_BSSN::At13
+  READS:    ML_BSSN::At22
+  READS:    ML_BSSN::At23
+  READS:    ML_BSSN::At33
+  READS:    ML_BSSN::beta1
+  READS:    ML_BSSN::beta2
+  READS:    ML_BSSN::beta3
+  READS:    ML_BSSN::gt11
+  READS:    ML_BSSN::gt12
+  READS:    ML_BSSN::gt13
+  READS:    ML_BSSN::gt22
+  READS:    ML_BSSN::gt23
+  READS:    ML_BSSN::gt33
+  READS:    ADMBase::gxx
+  READS:    ADMBase::gxy
+  READS:    ADMBase::gxz
+  READS:    ADMBase::gyy
+  READS:    ADMBase::gyz
+  READS:    ADMBase::gzz
+  READS:    ML_BSSN::phi
+  READS:    ML_BSSN::trK
+  WRITES:   ADMBase::alp
+  WRITES:   ADMBase::betax
+  WRITES:   ADMBase::betay
+  WRITES:   ADMBase::betaz
+  WRITES:   ADMBase::gxx
+  WRITES:   ADMBase::gxy
+  WRITES:   ADMBase::gxz
+  WRITES:   ADMBase::gyy
+  WRITES:   ADMBase::gyz
+  WRITES:   ADMBase::gzz
+  WRITES:   ADMBase::kxx
+  WRITES:   ADMBase::kxy
+  WRITES:   ADMBase::kxz
+  WRITES:   ADMBase::kyy
+  WRITES:   ADMBase::kyz
+  WRITES:   ADMBase::kzz
 } "ML_BSSN_convertToADMBase"
 
 
@@ -542,18 +844,30 @@ if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
     LANG: C
     SYNC: ADMBase::dtlapse
     SYNC: ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN::ML_dtlapse
-    READS:    ML_BSSN::ML_dtshift
-    READS:    ML_BSSN::ML_Gamma
-    READS:    ML_BSSN::ML_lapse
-    READS:    ML_BSSN::ML_log_confac
-    READS:    ML_BSSN::ML_metric
-    READS:    ML_BSSN::ML_shift
-    READS:    ML_BSSN::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
+    READS:    ML_BSSN::A
+    READS:    ML_BSSN::alpha
+    READS:    ML_BSSN::B1
+    READS:    ML_BSSN::B2
+    READS:    ML_BSSN::B3
+    READS:    ML_BSSN::beta1
+    READS:    ML_BSSN::beta2
+    READS:    ML_BSSN::beta3
+    READS:    ML_BSSN::gt11
+    READS:    ML_BSSN::gt12
+    READS:    ML_BSSN::gt13
+    READS:    ML_BSSN::gt22
+    READS:    ML_BSSN::gt23
+    READS:    ML_BSSN::gt33
+    READS:    ML_BSSN::phi
+    READS:    grid::r
+    READS:    ML_BSSN::trK
+    READS:    ML_BSSN::Xt1
+    READS:    ML_BSSN::Xt2
+    READS:    ML_BSSN::Xt3
+    WRITES:   ADMBase::dtalp
+    WRITES:   ADMBase::dtbetax
+    WRITES:   ADMBase::dtbetay
+    WRITES:   ADMBase::dtbetaz
   } "ML_BSSN_convertToADMBaseDtLapseShift"
 }
 
@@ -563,17 +877,29 @@ if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
   schedule ML_BSSN_convertToADMBaseDtLapseShiftBoundary IN ML_BSSN_convertToADMBaseGroup
   {
     LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN::ML_dtlapse
-    READS:    ML_BSSN::ML_dtshift
-    READS:    ML_BSSN::ML_Gamma
-    READS:    ML_BSSN::ML_lapse
-    READS:    ML_BSSN::ML_metric
-    READS:    ML_BSSN::ML_shift
-    READS:    ML_BSSN::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
+    READS:    ML_BSSN::A
+    READS:    ML_BSSN::alpha
+    READS:    ML_BSSN::B1
+    READS:    ML_BSSN::B2
+    READS:    ML_BSSN::B3
+    READS:    ML_BSSN::beta1
+    READS:    ML_BSSN::beta2
+    READS:    ML_BSSN::beta3
+    READS:    ML_BSSN::gt11
+    READS:    ML_BSSN::gt12
+    READS:    ML_BSSN::gt13
+    READS:    ML_BSSN::gt22
+    READS:    ML_BSSN::gt23
+    READS:    ML_BSSN::gt33
+    READS:    grid::r
+    READS:    ML_BSSN::trK
+    READS:    ML_BSSN::Xt1
+    READS:    ML_BSSN::Xt2
+    READS:    ML_BSSN::Xt3
+    WRITES:   ADMBase::dtalp
+    WRITES:   ADMBase::dtbetax
+    WRITES:   ADMBase::dtbetay
+    WRITES:   ADMBase::dtbetaz
   } "ML_BSSN_convertToADMBaseDtLapseShiftBoundary"
 }
 
@@ -583,17 +909,29 @@ if (CCTK_EQUALS(dt_lapse_shift_method, "noLapseShiftAdvection"))
   schedule ML_BSSN_convertToADMBaseFakeDtLapseShift IN ML_BSSN_convertToADMBaseGroup
   {
     LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN::ML_dtlapse
-    READS:    ML_BSSN::ML_dtshift
-    READS:    ML_BSSN::ML_Gamma
-    READS:    ML_BSSN::ML_lapse
-    READS:    ML_BSSN::ML_metric
-    READS:    ML_BSSN::ML_shift
-    READS:    ML_BSSN::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
+    READS:    ML_BSSN::A
+    READS:    ML_BSSN::alpha
+    READS:    ML_BSSN::B1
+    READS:    ML_BSSN::B2
+    READS:    ML_BSSN::B3
+    READS:    ML_BSSN::beta1
+    READS:    ML_BSSN::beta2
+    READS:    ML_BSSN::beta3
+    READS:    ML_BSSN::gt11
+    READS:    ML_BSSN::gt12
+    READS:    ML_BSSN::gt13
+    READS:    ML_BSSN::gt22
+    READS:    ML_BSSN::gt23
+    READS:    ML_BSSN::gt33
+    READS:    grid::r
+    READS:    ML_BSSN::trK
+    READS:    ML_BSSN::Xt1
+    READS:    ML_BSSN::Xt2
+    READS:    ML_BSSN::Xt3
+    WRITES:   ADMBase::dtalp
+    WRITES:   ADMBase::dtbetax
+    WRITES:   ADMBase::dtbetay
+    WRITES:   ADMBase::dtbetaz
   } "ML_BSSN_convertToADMBaseFakeDtLapseShift"
 }
 
@@ -605,17 +943,38 @@ schedule group ML_BSSN_constraints1_group in MoL_PseudoEvolution after MoL_PostS
 schedule ML_BSSN_constraints1 in ML_BSSN_constraints1_group
 {
   LANG: C
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_Gamma
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_log_confac
-  READS:    ML_BSSN::ML_metric
-  READS:    ML_BSSN::ML_shift
-  READS:    ML_BSSN::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN::ML_Ham
+  READS:    ML_BSSN::alpha
+  READS:    ML_BSSN::At11
+  READS:    ML_BSSN::At12
+  READS:    ML_BSSN::At13
+  READS:    ML_BSSN::At22
+  READS:    ML_BSSN::At23
+  READS:    ML_BSSN::At33
+  READS:    ML_BSSN::beta1
+  READS:    ML_BSSN::beta2
+  READS:    ML_BSSN::beta3
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ML_BSSN::gt11
+  READS:    ML_BSSN::gt12
+  READS:    ML_BSSN::gt13
+  READS:    ML_BSSN::gt22
+  READS:    ML_BSSN::gt23
+  READS:    ML_BSSN::gt33
+  READS:    ML_BSSN::phi
+  READS:    ML_BSSN::trK
+  READS:    ML_BSSN::Xt1
+  READS:    ML_BSSN::Xt2
+  READS:    ML_BSSN::Xt3
+  WRITES:   ML_BSSN::H
 } "ML_BSSN_constraints1"
 
 schedule ML_BSSN_constraints1_SelectBCs in ML_BSSN_constraints1_bc_group
@@ -648,20 +1007,45 @@ schedule group ML_BSSN_constraints2_group in MoL_PseudoEvolution after MoL_PostS
 schedule ML_BSSN_constraints2 in ML_BSSN_constraints2_group
 {
   LANG: C
-  READS:    ML_BSSN::ML_curv
-  READS:    ML_BSSN::ML_Gamma
-  READS:    ML_BSSN::ML_lapse
-  READS:    ML_BSSN::ML_log_confac
-  READS:    ML_BSSN::ML_metric
-  READS:    ML_BSSN::ML_shift
-  READS:    ML_BSSN::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN::ML_cons_detg
-  WRITES:   ML_BSSN::ML_cons_Gamma
-  WRITES:   ML_BSSN::ML_cons_traceA
-  WRITES:   ML_BSSN::ML_mom
+  READS:    ML_BSSN::alpha
+  READS:    ML_BSSN::At11
+  READS:    ML_BSSN::At12
+  READS:    ML_BSSN::At13
+  READS:    ML_BSSN::At22
+  READS:    ML_BSSN::At23
+  READS:    ML_BSSN::At33
+  READS:    ML_BSSN::beta1
+  READS:    ML_BSSN::beta2
+  READS:    ML_BSSN::beta3
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ML_BSSN::gt11
+  READS:    ML_BSSN::gt12
+  READS:    ML_BSSN::gt13
+  READS:    ML_BSSN::gt22
+  READS:    ML_BSSN::gt23
+  READS:    ML_BSSN::gt33
+  READS:    ML_BSSN::phi
+  READS:    ML_BSSN::trK
+  READS:    ML_BSSN::Xt1
+  READS:    ML_BSSN::Xt2
+  READS:    ML_BSSN::Xt3
+  WRITES:   ML_BSSN::cA
+  WRITES:   ML_BSSN::cS
+  WRITES:   ML_BSSN::cXt1
+  WRITES:   ML_BSSN::cXt2
+  WRITES:   ML_BSSN::cXt3
+  WRITES:   ML_BSSN::M1
+  WRITES:   ML_BSSN::M2
+  WRITES:   ML_BSSN::M3
 } "ML_BSSN_constraints2"
 
 schedule ML_BSSN_constraints2_SelectBCs in ML_BSSN_constraints2_bc_group
diff --git a/ML_BSSN_MP/configuration.ccl b/ML_BSSN_MP/configuration.ccl
deleted file mode 100644
index bdbc1bd..0000000
--- a/ML_BSSN_MP/configuration.ccl
+++ /dev/null
@@ -1,5 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-REQUIRES LoopControl
-REQUIRES Vectors
diff --git a/ML_BSSN_MP/interface.ccl b/ML_BSSN_MP/interface.ccl
deleted file mode 100644
index d6f77d4..0000000
--- a/ML_BSSN_MP/interface.ccl
+++ /dev/null
@@ -1,203 +0,0 @@
-# File produced by Kranc
-
-implements: ML_BSSN_MP
-
-inherits:   ADMBase TmunuBase Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-USES INCLUDE: vectors.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL ML_cons_detg type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=2'
-{
-  cS
-} "ML_cons_detg"
-
-public:
-CCTK_REAL ML_cons_Gamma type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  cXt1,
-  cXt2,
-  cXt3
-} "ML_cons_Gamma"
-
-public:
-CCTK_REAL ML_cons_traceA type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  cA
-} "ML_cons_traceA"
-
-public:
-CCTK_REAL ML_Ham type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  H
-} "ML_Ham"
-
-public:
-CCTK_REAL ML_mom type=GF timelevels=1 tags='tensortypealias="D" tensorweight=0'
-{
-  M1,
-  M2,
-  M3
-} "ML_mom"
-
-public:
-CCTK_REAL ML_curv type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11,
-  At12,
-  At13,
-  At22,
-  At23,
-  At33
-} "ML_curv"
-
-public:
-CCTK_REAL ML_dtlapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  A
-} "ML_dtlapse"
-
-public:
-CCTK_REAL ML_dtshift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1,
-  B2,
-  B3
-} "ML_dtshift"
-
-public:
-CCTK_REAL ML_Gamma type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1,
-  Xt2,
-  Xt3
-} "ML_Gamma"
-
-public:
-CCTK_REAL ML_lapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpha
-} "ML_lapse"
-
-public:
-CCTK_REAL ML_log_confac type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phi
-} "ML_log_confac"
-
-public:
-CCTK_REAL ML_metric type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11,
-  gt12,
-  gt13,
-  gt22,
-  gt23,
-  gt33
-} "ML_metric"
-
-public:
-CCTK_REAL ML_shift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1,
-  beta2,
-  beta3
-} "ML_shift"
-
-public:
-CCTK_REAL ML_trace_curv type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trK
-} "ML_trace_curv"
-
-public:
-CCTK_REAL ML_curvrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11rhs,
-  At12rhs,
-  At13rhs,
-  At22rhs,
-  At23rhs,
-  At33rhs
-} "ML_curvrhs"
-
-public:
-CCTK_REAL ML_dtlapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  Arhs
-} "ML_dtlapserhs"
-
-public:
-CCTK_REAL ML_dtshiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1rhs,
-  B2rhs,
-  B3rhs
-} "ML_dtshiftrhs"
-
-public:
-CCTK_REAL ML_Gammarhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1rhs,
-  Xt2rhs,
-  Xt3rhs
-} "ML_Gammarhs"
-
-public:
-CCTK_REAL ML_lapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpharhs
-} "ML_lapserhs"
-
-public:
-CCTK_REAL ML_log_confacrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phirhs
-} "ML_log_confacrhs"
-
-public:
-CCTK_REAL ML_metricrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11rhs,
-  gt12rhs,
-  gt13rhs,
-  gt22rhs,
-  gt23rhs,
-  gt33rhs
-} "ML_metricrhs"
-
-public:
-CCTK_REAL ML_shiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1rhs,
-  beta2rhs,
-  beta3rhs
-} "ML_shiftrhs"
-
-public:
-CCTK_REAL ML_trace_curvrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trKrhs
-} "ML_trace_curvrhs"
diff --git a/ML_BSSN_MP/param.ccl b/ML_BSSN_MP/param.ccl
deleted file mode 100644
index 7b3a3d0..0000000
--- a/ML_BSSN_MP/param.ccl
+++ /dev/null
@@ -1,1480 +0,0 @@
-# File produced by Kranc
-
-
-shares: ADMBase
-
-
-EXTENDS CCTK_KEYWORD evolution_method "evolution_method"
-{
-  ML_BSSN_MP :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD lapse_evolution_method "lapse_evolution_method"
-{
-  ML_BSSN_MP :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD shift_evolution_method "shift_evolution_method"
-{
-  ML_BSSN_MP :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtlapse_evolution_method "dtlapse_evolution_method"
-{
-  ML_BSSN_MP :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtshift_evolution_method "dtshift_evolution_method"
-{
-  ML_BSSN_MP :: ""
-} 
-
-
-
-shares: GenericFD
-
-USES CCTK_STRING jacobian_group
-USES CCTK_STRING jacobian_derivative_group
-USES CCTK_INT jacobian_identity_map
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseACoeff "Whether to evolve A in time"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL harmonicF "d/dt alpha = - f alpha^n K   (harmonic=1, 1+log=2)"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL AlphaDriver "AlphaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL ShiftBCoeff "Whether to evolve B^i in time"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftGammaCoeff "ShiftGammaCoeff"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL BetaDriver "BetaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseAdvectionCoeff "Factor in front of the lapse advection terms in 1+log"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftAdvectionCoeff "Factor in front of the shift advection terms in gamma driver"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL MinimumLapse "Minimum value of the lapse function"
-{
-  "*:*" :: ""
-} -1
-
-restricted:
-CCTK_REAL SpatialBetaDriverRadius "Radius at which the BetaDriver starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL SpatialShiftGammaCoeffRadius "Radius at which the ShiftGammaCoefficient starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL EpsDiss "Dissipation strength"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_INT harmonicN "d/dt alpha = - f alpha^n K  (harmonic=2, 1+log=1)"
-{
-  *:* :: ""
-} 2
-
-restricted:
-CCTK_INT ShiftAlphaPower "ShiftAlphaPower"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT conformalMethod "Treatment of conformal factor"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT fdOrder "fdOrder"
-{
-  *:* :: ""
-} 4
-
-restricted:
-CCTK_INT harmonicShift "Whether to use the harmonic shift"
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD my_initial_data "my_initial_data"
-{
-  "ADMBase" :: "ADMBase"
-  "Minkowski" :: "Minkowski"
-} "ADMBase"
-
-restricted:
-KEYWORD my_initial_boundary_condition "my_initial_boundary_condition"
-{
-  "none" :: "none"
-} "none"
-
-restricted:
-KEYWORD my_rhs_boundary_condition "my_rhs_boundary_condition"
-{
-  "none" :: "none"
-  "static" :: "static"
-  "radiative" :: "radiative"
-} "none"
-
-private:
-KEYWORD my_boundary_condition "my_boundary_condition"
-{
-  "none" :: "none"
-  "Minkowski" :: "Minkowski"
-} "none"
-
-restricted:
-KEYWORD calculate_ADMBase_variables_at "calculate_ADMBase_variables_at"
-{
-  "MoL_PostStep" :: "MoL_PostStep"
-  "CCTK_EVOL" :: "CCTK_EVOL"
-  "CCTK_ANALYSIS" :: "CCTK_ANALYSIS"
-} "MoL_PostStep"
-
-restricted:
-KEYWORD UseSpatialBetaDriver "UseSpatialBetaDriver"
-{
-  "no" :: "no"
-  "yes" :: "yes"
-} "no"
-
-private:
-KEYWORD dt_lapse_shift_method "Treatment of ADMBase dtlapse and dtshift"
-{
-  "correct" :: "correct"
-  "noLapseShiftAdvection" :: "noLapseShiftAdvection"
-} "correct"
-
-private:
-KEYWORD apply_dissipation "Whether to apply dissipation to the RHSs"
-{
-  "always" :: "always"
-  "never" :: "never"
-} "always"
-
-restricted:
-CCTK_INT ML_BSSN_MP_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  25:25 :: "Number of evolved variables used by this thorn"
-} 25
-
-restricted:
-CCTK_INT ML_BSSN_MP_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_Minkowski_calc_every "ML_BSSN_MP_Minkowski_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertFromADMBase_calc_every "ML_BSSN_MP_convertFromADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_InitGamma_calc_every "ML_BSSN_MP_InitGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertFromADMBaseGamma_calc_every "ML_BSSN_MP_convertFromADMBaseGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_RHS1_calc_every "ML_BSSN_MP_RHS1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_RHS2_calc_every "ML_BSSN_MP_RHS2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_Dissipation_calc_every "ML_BSSN_MP_Dissipation_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_Advect_calc_every "ML_BSSN_MP_Advect_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_InitRHS_calc_every "ML_BSSN_MP_InitRHS_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_RHSStaticBoundary_calc_every "ML_BSSN_MP_RHSStaticBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_enforce_calc_every "ML_BSSN_MP_enforce_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_boundary_calc_every "ML_BSSN_MP_boundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertToADMBase_calc_every "ML_BSSN_MP_convertToADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertToADMBaseDtLapseShift_calc_every "ML_BSSN_MP_convertToADMBaseDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_calc_every "ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_calc_every "ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_constraints1_calc_every "ML_BSSN_MP_constraints1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_constraints2_calc_every "ML_BSSN_MP_constraints2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_Minkowski_calc_offset "ML_BSSN_MP_Minkowski_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertFromADMBase_calc_offset "ML_BSSN_MP_convertFromADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_InitGamma_calc_offset "ML_BSSN_MP_InitGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertFromADMBaseGamma_calc_offset "ML_BSSN_MP_convertFromADMBaseGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_RHS1_calc_offset "ML_BSSN_MP_RHS1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_RHS2_calc_offset "ML_BSSN_MP_RHS2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_Dissipation_calc_offset "ML_BSSN_MP_Dissipation_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_Advect_calc_offset "ML_BSSN_MP_Advect_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_InitRHS_calc_offset "ML_BSSN_MP_InitRHS_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_RHSStaticBoundary_calc_offset "ML_BSSN_MP_RHSStaticBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_enforce_calc_offset "ML_BSSN_MP_enforce_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_boundary_calc_offset "ML_BSSN_MP_boundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertToADMBase_calc_offset "ML_BSSN_MP_convertToADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertToADMBaseDtLapseShift_calc_offset "ML_BSSN_MP_convertToADMBaseDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_calc_offset "ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_calc_offset "ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_constraints1_calc_offset "ML_BSSN_MP_constraints1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_constraints2_calc_offset "ML_BSSN_MP_constraints2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD At11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD A_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD alpha_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD phi_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD trK_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD ML_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtlapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtshift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_Gamma_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_lapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_log_confac_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_metric_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_shift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_trace_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-CCTK_REAL At11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL A_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL alpha_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL phi_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL trK_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtlapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtshift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_Gamma_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_lapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_log_confac_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_metric_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_shift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_trace_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
diff --git a/ML_BSSN_MP/schedule.ccl b/ML_BSSN_MP/schedule.ccl
deleted file mode 100644
index 76a405a..0000000
--- a/ML_BSSN_MP/schedule.ccl
+++ /dev/null
@@ -1,722 +0,0 @@
-# File produced by Kranc
-
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_detg[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_Gamma[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_traceA[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_Ham[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_mom[1]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_curv[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtlapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtlapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtlapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtshift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtshift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtshift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Gamma[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Gamma[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Gamma[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_lapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_lapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_lapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_log_confac[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_log_confac[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_log_confac[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_metric[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_metric[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_metric[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_shift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_shift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_shift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_trace_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_trace_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_trace_curv[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_curvrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtlapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtlapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtlapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtshiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtshiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtshiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_Gammarhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_Gammarhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_Gammarhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_lapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_lapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_lapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_log_confacrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_log_confacrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_log_confacrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_metricrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_metricrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_metricrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_shiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_shiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_shiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_trace_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_trace_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_trace_curvrhs[3]
-}
-
-schedule ML_BSSN_MP_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_BSSN_MP_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-
-if (CCTK_EQUALS(my_initial_data, "Minkowski"))
-{
-  schedule ML_BSSN_MP_Minkowski IN ADMBase_InitialData
-  {
-    LANG: C
-    WRITES:   ML_BSSN_MP::ML_curv
-    WRITES:   ML_BSSN_MP::ML_dtlapse
-    WRITES:   ML_BSSN_MP::ML_dtshift
-    WRITES:   ML_BSSN_MP::ML_Gamma
-    WRITES:   ML_BSSN_MP::ML_lapse
-    WRITES:   ML_BSSN_MP::ML_log_confac
-    WRITES:   ML_BSSN_MP::ML_metric
-    WRITES:   ML_BSSN_MP::ML_shift
-    WRITES:   ML_BSSN_MP::ML_trace_curv
-  } "ML_BSSN_MP_Minkowski"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_MP_convertFromADMBase AT initial AFTER ADMBase_PostInitial
-  {
-    LANG: C
-    READS:    ADMBase::curv
-    READS:    ADMBase::lapse
-    READS:    ADMBase::metric
-    READS:    ADMBase::shift
-    READS:    ML_BSSN_MP::ML_log_confac
-    READS:    ML_BSSN_MP::ML_trace_curv
-    WRITES:   ML_BSSN_MP::ML_curv
-    WRITES:   ML_BSSN_MP::ML_lapse
-    WRITES:   ML_BSSN_MP::ML_log_confac
-    WRITES:   ML_BSSN_MP::ML_metric
-    WRITES:   ML_BSSN_MP::ML_shift
-    WRITES:   ML_BSSN_MP::ML_trace_curv
-  } "ML_BSSN_MP_convertFromADMBase"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_MP_InitGamma AT initial BEFORE ML_BSSN_MP_convertFromADMBaseGamma
-  {
-    LANG: C
-    WRITES:   ML_BSSN_MP::ML_dtlapse
-    WRITES:   ML_BSSN_MP::ML_dtshift
-    WRITES:   ML_BSSN_MP::ML_Gamma
-  } "ML_BSSN_MP_InitGamma"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_MP_convertFromADMBaseGamma AT initial AFTER ML_BSSN_MP_convertFromADMBase
-  {
-    LANG: C
-    SYNC: ML_dtlapse
-    SYNC: ML_dtshift
-    SYNC: ML_Gamma
-    READS:    ADMBase::dtlapse
-    READS:    ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_MP::ML_lapse
-    READS:    ML_BSSN_MP::ML_metric
-    READS:    ML_BSSN_MP::ML_shift
-    WRITES:   ML_BSSN_MP::ML_dtlapse
-    WRITES:   ML_BSSN_MP::ML_dtshift
-    WRITES:   ML_BSSN_MP::ML_Gamma
-  } "ML_BSSN_MP_convertFromADMBaseGamma"
-}
-
-schedule ML_BSSN_MP_RHS1 IN ML_BSSN_MP_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_MP::ML_curv
-  READS:    ML_BSSN_MP::ML_dtlapse
-  READS:    ML_BSSN_MP::ML_dtshift
-  READS:    ML_BSSN_MP::ML_Gamma
-  READS:    ML_BSSN_MP::ML_lapse
-  READS:    ML_BSSN_MP::ML_log_confac
-  READS:    ML_BSSN_MP::ML_metric
-  READS:    ML_BSSN_MP::ML_shift
-  READS:    ML_BSSN_MP::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_MP::ML_dtlapserhs
-  WRITES:   ML_BSSN_MP::ML_dtshiftrhs
-  WRITES:   ML_BSSN_MP::ML_Gammarhs
-  WRITES:   ML_BSSN_MP::ML_lapserhs
-  WRITES:   ML_BSSN_MP::ML_log_confacrhs
-  WRITES:   ML_BSSN_MP::ML_metricrhs
-  WRITES:   ML_BSSN_MP::ML_shiftrhs
-  WRITES:   ML_BSSN_MP::ML_trace_curvrhs
-} "ML_BSSN_MP_RHS1"
-
-schedule ML_BSSN_MP_RHS2 IN ML_BSSN_MP_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_MP::ML_curv
-  READS:    ML_BSSN_MP::ML_Gamma
-  READS:    ML_BSSN_MP::ML_lapse
-  READS:    ML_BSSN_MP::ML_log_confac
-  READS:    ML_BSSN_MP::ML_metric
-  READS:    ML_BSSN_MP::ML_shift
-  READS:    ML_BSSN_MP::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_MP::ML_curvrhs
-} "ML_BSSN_MP_RHS2"
-
-
-if (CCTK_EQUALS(apply_dissipation, "always"))
-{
-  schedule ML_BSSN_MP_Dissipation IN ML_BSSN_MP_evolCalcGroup AFTER (ML_BSSN_MP_RHS1 ML_BSSN_MP_RHS2)
-  {
-    LANG: C
-    READS:    ML_BSSN_MP::ML_curv
-    READS:    ML_BSSN_MP::ML_curvrhs
-    READS:    ML_BSSN_MP::ML_dtlapse
-    READS:    ML_BSSN_MP::ML_dtlapserhs
-    READS:    ML_BSSN_MP::ML_dtshift
-    READS:    ML_BSSN_MP::ML_dtshiftrhs
-    READS:    ML_BSSN_MP::ML_Gamma
-    READS:    ML_BSSN_MP::ML_Gammarhs
-    READS:    ML_BSSN_MP::ML_lapse
-    READS:    ML_BSSN_MP::ML_lapserhs
-    READS:    ML_BSSN_MP::ML_log_confac
-    READS:    ML_BSSN_MP::ML_log_confacrhs
-    READS:    ML_BSSN_MP::ML_metric
-    READS:    ML_BSSN_MP::ML_metricrhs
-    READS:    ML_BSSN_MP::ML_shift
-    READS:    ML_BSSN_MP::ML_shiftrhs
-    READS:    ML_BSSN_MP::ML_trace_curv
-    READS:    ML_BSSN_MP::ML_trace_curvrhs
-    WRITES:   ML_BSSN_MP::ML_curvrhs
-    WRITES:   ML_BSSN_MP::ML_dtlapserhs
-    WRITES:   ML_BSSN_MP::ML_dtshiftrhs
-    WRITES:   ML_BSSN_MP::ML_Gammarhs
-    WRITES:   ML_BSSN_MP::ML_lapserhs
-    WRITES:   ML_BSSN_MP::ML_log_confacrhs
-    WRITES:   ML_BSSN_MP::ML_metricrhs
-    WRITES:   ML_BSSN_MP::ML_shiftrhs
-    WRITES:   ML_BSSN_MP::ML_trace_curvrhs
-  } "ML_BSSN_MP_Dissipation"
-}
-
-schedule ML_BSSN_MP_Advect IN ML_BSSN_MP_evolCalcGroup AFTER (ML_BSSN_MP_RHS1 ML_BSSN_MP_RHS2)
-{
-  LANG: C
-  READS:    ML_BSSN_MP::ML_curv
-  READS:    ML_BSSN_MP::ML_curvrhs
-  READS:    ML_BSSN_MP::ML_dtlapse
-  READS:    ML_BSSN_MP::ML_dtlapserhs
-  READS:    ML_BSSN_MP::ML_dtshift
-  READS:    ML_BSSN_MP::ML_dtshiftrhs
-  READS:    ML_BSSN_MP::ML_Gamma
-  READS:    ML_BSSN_MP::ML_Gammarhs
-  READS:    ML_BSSN_MP::ML_lapse
-  READS:    ML_BSSN_MP::ML_lapserhs
-  READS:    ML_BSSN_MP::ML_log_confac
-  READS:    ML_BSSN_MP::ML_log_confacrhs
-  READS:    ML_BSSN_MP::ML_metric
-  READS:    ML_BSSN_MP::ML_metricrhs
-  READS:    ML_BSSN_MP::ML_shift
-  READS:    ML_BSSN_MP::ML_shiftrhs
-  READS:    ML_BSSN_MP::ML_trace_curv
-  READS:    ML_BSSN_MP::ML_trace_curvrhs
-  WRITES:   ML_BSSN_MP::ML_curvrhs
-  WRITES:   ML_BSSN_MP::ML_dtlapserhs
-  WRITES:   ML_BSSN_MP::ML_dtshiftrhs
-  WRITES:   ML_BSSN_MP::ML_Gammarhs
-  WRITES:   ML_BSSN_MP::ML_lapserhs
-  WRITES:   ML_BSSN_MP::ML_log_confacrhs
-  WRITES:   ML_BSSN_MP::ML_metricrhs
-  WRITES:   ML_BSSN_MP::ML_shiftrhs
-  WRITES:   ML_BSSN_MP::ML_trace_curvrhs
-} "ML_BSSN_MP_Advect"
-
-schedule ML_BSSN_MP_InitRHS AT analysis BEFORE ML_BSSN_MP_evolCalcGroup
-{
-  LANG: C
-  WRITES:   ML_BSSN_MP::ML_curvrhs
-  WRITES:   ML_BSSN_MP::ML_dtlapserhs
-  WRITES:   ML_BSSN_MP::ML_dtshiftrhs
-  WRITES:   ML_BSSN_MP::ML_Gammarhs
-  WRITES:   ML_BSSN_MP::ML_lapserhs
-  WRITES:   ML_BSSN_MP::ML_log_confacrhs
-  WRITES:   ML_BSSN_MP::ML_metricrhs
-  WRITES:   ML_BSSN_MP::ML_shiftrhs
-  WRITES:   ML_BSSN_MP::ML_trace_curvrhs
-} "ML_BSSN_MP_InitRHS"
-
-
-if (CCTK_EQUALS(my_rhs_boundary_condition, "static"))
-{
-  schedule ML_BSSN_MP_RHSStaticBoundary IN MoL_CalcRHS
-  {
-    LANG: C
-    WRITES:   ML_BSSN_MP::ML_curvrhs
-    WRITES:   ML_BSSN_MP::ML_dtlapserhs
-    WRITES:   ML_BSSN_MP::ML_dtshiftrhs
-    WRITES:   ML_BSSN_MP::ML_Gammarhs
-    WRITES:   ML_BSSN_MP::ML_lapserhs
-    WRITES:   ML_BSSN_MP::ML_log_confacrhs
-    WRITES:   ML_BSSN_MP::ML_metricrhs
-    WRITES:   ML_BSSN_MP::ML_shiftrhs
-    WRITES:   ML_BSSN_MP::ML_trace_curvrhs
-  } "ML_BSSN_MP_RHSStaticBoundary"
-}
-
-schedule ML_BSSN_MP_enforce IN MoL_PostStepModify
-{
-  LANG: C
-  READS:    ML_BSSN_MP::ML_curv
-  READS:    ML_BSSN_MP::ML_lapse
-  READS:    ML_BSSN_MP::ML_metric
-  WRITES:   ML_BSSN_MP::ML_curv
-  WRITES:   ML_BSSN_MP::ML_lapse
-} "ML_BSSN_MP_enforce"
-
-
-if (CCTK_EQUALS(my_boundary_condition, "Minkowski"))
-{
-  schedule ML_BSSN_MP_boundary IN MoL_PostStep
-  {
-    LANG: C
-    WRITES:   ML_BSSN_MP::ML_curv
-    WRITES:   ML_BSSN_MP::ML_dtlapse
-    WRITES:   ML_BSSN_MP::ML_dtshift
-    WRITES:   ML_BSSN_MP::ML_Gamma
-    WRITES:   ML_BSSN_MP::ML_lapse
-    WRITES:   ML_BSSN_MP::ML_log_confac
-    WRITES:   ML_BSSN_MP::ML_metric
-    WRITES:   ML_BSSN_MP::ML_shift
-    WRITES:   ML_BSSN_MP::ML_trace_curv
-  } "ML_BSSN_MP_boundary"
-}
-
-schedule ML_BSSN_MP_convertToADMBase IN ML_BSSN_MP_convertToADMBaseGroup
-{
-  LANG: C
-  READS:    ADMBase::metric
-  READS:    ML_BSSN_MP::ML_curv
-  READS:    ML_BSSN_MP::ML_lapse
-  READS:    ML_BSSN_MP::ML_log_confac
-  READS:    ML_BSSN_MP::ML_metric
-  READS:    ML_BSSN_MP::ML_shift
-  READS:    ML_BSSN_MP::ML_trace_curv
-  WRITES:   ADMBase::curv
-  WRITES:   ADMBase::lapse
-  WRITES:   ADMBase::metric
-  WRITES:   ADMBase::shift
-} "ML_BSSN_MP_convertToADMBase"
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_MP_convertToADMBaseDtLapseShift IN ML_BSSN_MP_convertToADMBaseGroup
-  {
-    LANG: C
-    SYNC: ADMBase::dtlapse
-    SYNC: ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_MP::ML_dtlapse
-    READS:    ML_BSSN_MP::ML_dtshift
-    READS:    ML_BSSN_MP::ML_Gamma
-    READS:    ML_BSSN_MP::ML_lapse
-    READS:    ML_BSSN_MP::ML_log_confac
-    READS:    ML_BSSN_MP::ML_metric
-    READS:    ML_BSSN_MP::ML_shift
-    READS:    ML_BSSN_MP::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_MP_convertToADMBaseDtLapseShift"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary IN ML_BSSN_MP_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_MP::ML_dtlapse
-    READS:    ML_BSSN_MP::ML_dtshift
-    READS:    ML_BSSN_MP::ML_Gamma
-    READS:    ML_BSSN_MP::ML_lapse
-    READS:    ML_BSSN_MP::ML_metric
-    READS:    ML_BSSN_MP::ML_shift
-    READS:    ML_BSSN_MP::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "noLapseShiftAdvection"))
-{
-  schedule ML_BSSN_MP_convertToADMBaseFakeDtLapseShift IN ML_BSSN_MP_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_MP::ML_dtlapse
-    READS:    ML_BSSN_MP::ML_dtshift
-    READS:    ML_BSSN_MP::ML_Gamma
-    READS:    ML_BSSN_MP::ML_lapse
-    READS:    ML_BSSN_MP::ML_metric
-    READS:    ML_BSSN_MP::ML_shift
-    READS:    ML_BSSN_MP::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_MP_convertToADMBaseFakeDtLapseShift"
-}
-
-schedule group ML_BSSN_MP_constraints1_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_MP_constraints1"
-
-schedule ML_BSSN_MP_constraints1 in ML_BSSN_MP_constraints1_group
-{
-  LANG: C
-  READS:    ML_BSSN_MP::ML_curv
-  READS:    ML_BSSN_MP::ML_Gamma
-  READS:    ML_BSSN_MP::ML_lapse
-  READS:    ML_BSSN_MP::ML_log_confac
-  READS:    ML_BSSN_MP::ML_metric
-  READS:    ML_BSSN_MP::ML_shift
-  READS:    ML_BSSN_MP::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_MP::ML_Ham
-} "ML_BSSN_MP_constraints1"
-
-schedule ML_BSSN_MP_constraints1_SelectBCs in ML_BSSN_MP_constraints1_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_Ham
-} "ML_BSSN_MP_constraints1_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_MP_constraints1_ApplyBCs in ML_BSSN_MP_constraints1_bc_group after ML_BSSN_MP_constraints1_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_MP_constraints1"
-
-schedule group ML_BSSN_MP_constraints1_bc_group in ML_BSSN_MP_constraints1_group after ML_BSSN_MP_constraints1
-{
-  # no language specified
-} "ML_BSSN_MP_constraints1"
-
-schedule group ML_BSSN_MP_constraints1_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_MP_constraints1"
-
-schedule group ML_BSSN_MP_constraints2_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_MP_constraints2"
-
-schedule ML_BSSN_MP_constraints2 in ML_BSSN_MP_constraints2_group
-{
-  LANG: C
-  READS:    ML_BSSN_MP::ML_curv
-  READS:    ML_BSSN_MP::ML_Gamma
-  READS:    ML_BSSN_MP::ML_lapse
-  READS:    ML_BSSN_MP::ML_log_confac
-  READS:    ML_BSSN_MP::ML_metric
-  READS:    ML_BSSN_MP::ML_shift
-  READS:    ML_BSSN_MP::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_MP::ML_cons_detg
-  WRITES:   ML_BSSN_MP::ML_cons_Gamma
-  WRITES:   ML_BSSN_MP::ML_cons_traceA
-  WRITES:   ML_BSSN_MP::ML_mom
-} "ML_BSSN_MP_constraints2"
-
-schedule ML_BSSN_MP_constraints2_SelectBCs in ML_BSSN_MP_constraints2_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_cons_detg
-  SYNC: ML_cons_Gamma
-  SYNC: ML_cons_traceA
-  SYNC: ML_mom
-} "ML_BSSN_MP_constraints2_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_MP_constraints2_ApplyBCs in ML_BSSN_MP_constraints2_bc_group after ML_BSSN_MP_constraints2_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_MP_constraints2"
-
-schedule group ML_BSSN_MP_constraints2_bc_group in ML_BSSN_MP_constraints2_group after ML_BSSN_MP_constraints2
-{
-  # no language specified
-} "ML_BSSN_MP_constraints2"
-
-schedule group ML_BSSN_MP_constraints2_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_MP_constraints2"
-
-schedule ML_BSSN_MP_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_curv
-  SYNC: ML_dtlapse
-  SYNC: ML_dtshift
-  SYNC: ML_Gamma
-  SYNC: ML_lapse
-  SYNC: ML_log_confac
-  SYNC: ML_metric
-  SYNC: ML_shift
-  SYNC: ML_trace_curv
-} "select boundary conditions"
-
-schedule ML_BSSN_MP_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_BSSN_MP_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_BSSN_MP_ApplyBCs in MoL_PostStep after ML_BSSN_MP_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_BSSN_MP/src/Boundaries.cc b/ML_BSSN_MP/src/Boundaries.cc
deleted file mode 100644
index 5328301..0000000
--- a/ML_BSSN_MP/src/Boundaries.cc
+++ /dev/null
@@ -1,1809 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_BSSN_MP_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_BSSN_MP_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  if (CCTK_EQUALS(ML_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "static") ||
-      CCTK_EQUALS(ML_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::ML_curv", ML_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_curv_bound BC for ML_BSSN_MP::ML_curv!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "static") ||
-      CCTK_EQUALS(ML_dtlapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::ML_dtlapse", ML_dtlapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtlapse_bound BC for ML_BSSN_MP::ML_dtlapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "static") ||
-      CCTK_EQUALS(ML_dtshift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::ML_dtshift", ML_dtshift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtshift_bound BC for ML_BSSN_MP::ML_dtshift!");
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "none"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "static") ||
-      CCTK_EQUALS(ML_Gamma_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::ML_Gamma", ML_Gamma_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_Gamma_bound BC for ML_BSSN_MP::ML_Gamma!");
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "static") ||
-      CCTK_EQUALS(ML_lapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::ML_lapse", ML_lapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_lapse_bound BC for ML_BSSN_MP::ML_lapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "none"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "static") ||
-      CCTK_EQUALS(ML_log_confac_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::ML_log_confac", ML_log_confac_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_log_confac_bound BC for ML_BSSN_MP::ML_log_confac!");
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "none"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "static") ||
-      CCTK_EQUALS(ML_metric_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::ML_metric", ML_metric_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_metric_bound BC for ML_BSSN_MP::ML_metric!");
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "static") ||
-      CCTK_EQUALS(ML_shift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::ML_shift", ML_shift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_shift_bound BC for ML_BSSN_MP::ML_shift!");
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "static") ||
-      CCTK_EQUALS(ML_trace_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::ML_trace_curv", ML_trace_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_trace_curv_bound BC for ML_BSSN_MP::ML_trace_curv!");
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "none"  ) ||
-      CCTK_EQUALS(At11_bound, "static") ||
-      CCTK_EQUALS(At11_bound, "flat"  ) ||
-      CCTK_EQUALS(At11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::At11", At11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At11_bound BC for ML_BSSN_MP::At11!");
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "none"  ) ||
-      CCTK_EQUALS(At12_bound, "static") ||
-      CCTK_EQUALS(At12_bound, "flat"  ) ||
-      CCTK_EQUALS(At12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::At12", At12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At12_bound BC for ML_BSSN_MP::At12!");
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "none"  ) ||
-      CCTK_EQUALS(At13_bound, "static") ||
-      CCTK_EQUALS(At13_bound, "flat"  ) ||
-      CCTK_EQUALS(At13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::At13", At13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At13_bound BC for ML_BSSN_MP::At13!");
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "none"  ) ||
-      CCTK_EQUALS(At22_bound, "static") ||
-      CCTK_EQUALS(At22_bound, "flat"  ) ||
-      CCTK_EQUALS(At22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::At22", At22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At22_bound BC for ML_BSSN_MP::At22!");
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "none"  ) ||
-      CCTK_EQUALS(At23_bound, "static") ||
-      CCTK_EQUALS(At23_bound, "flat"  ) ||
-      CCTK_EQUALS(At23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::At23", At23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At23_bound BC for ML_BSSN_MP::At23!");
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "none"  ) ||
-      CCTK_EQUALS(At33_bound, "static") ||
-      CCTK_EQUALS(At33_bound, "flat"  ) ||
-      CCTK_EQUALS(At33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::At33", At33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At33_bound BC for ML_BSSN_MP::At33!");
-  }
-  
-  if (CCTK_EQUALS(A_bound, "none"  ) ||
-      CCTK_EQUALS(A_bound, "static") ||
-      CCTK_EQUALS(A_bound, "flat"  ) ||
-      CCTK_EQUALS(A_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::A", A_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register A_bound BC for ML_BSSN_MP::A!");
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "none"  ) ||
-      CCTK_EQUALS(B1_bound, "static") ||
-      CCTK_EQUALS(B1_bound, "flat"  ) ||
-      CCTK_EQUALS(B1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::B1", B1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B1_bound BC for ML_BSSN_MP::B1!");
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "none"  ) ||
-      CCTK_EQUALS(B2_bound, "static") ||
-      CCTK_EQUALS(B2_bound, "flat"  ) ||
-      CCTK_EQUALS(B2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::B2", B2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B2_bound BC for ML_BSSN_MP::B2!");
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "none"  ) ||
-      CCTK_EQUALS(B3_bound, "static") ||
-      CCTK_EQUALS(B3_bound, "flat"  ) ||
-      CCTK_EQUALS(B3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::B3", B3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B3_bound BC for ML_BSSN_MP::B3!");
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "none"  ) ||
-      CCTK_EQUALS(Xt1_bound, "static") ||
-      CCTK_EQUALS(Xt1_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::Xt1", Xt1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt1_bound BC for ML_BSSN_MP::Xt1!");
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "none"  ) ||
-      CCTK_EQUALS(Xt2_bound, "static") ||
-      CCTK_EQUALS(Xt2_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::Xt2", Xt2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt2_bound BC for ML_BSSN_MP::Xt2!");
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "none"  ) ||
-      CCTK_EQUALS(Xt3_bound, "static") ||
-      CCTK_EQUALS(Xt3_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::Xt3", Xt3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt3_bound BC for ML_BSSN_MP::Xt3!");
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "none"  ) ||
-      CCTK_EQUALS(alpha_bound, "static") ||
-      CCTK_EQUALS(alpha_bound, "flat"  ) ||
-      CCTK_EQUALS(alpha_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::alpha", alpha_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register alpha_bound BC for ML_BSSN_MP::alpha!");
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "none"  ) ||
-      CCTK_EQUALS(phi_bound, "static") ||
-      CCTK_EQUALS(phi_bound, "flat"  ) ||
-      CCTK_EQUALS(phi_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::phi", phi_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register phi_bound BC for ML_BSSN_MP::phi!");
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "none"  ) ||
-      CCTK_EQUALS(gt11_bound, "static") ||
-      CCTK_EQUALS(gt11_bound, "flat"  ) ||
-      CCTK_EQUALS(gt11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::gt11", gt11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt11_bound BC for ML_BSSN_MP::gt11!");
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "none"  ) ||
-      CCTK_EQUALS(gt12_bound, "static") ||
-      CCTK_EQUALS(gt12_bound, "flat"  ) ||
-      CCTK_EQUALS(gt12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::gt12", gt12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt12_bound BC for ML_BSSN_MP::gt12!");
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "none"  ) ||
-      CCTK_EQUALS(gt13_bound, "static") ||
-      CCTK_EQUALS(gt13_bound, "flat"  ) ||
-      CCTK_EQUALS(gt13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::gt13", gt13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt13_bound BC for ML_BSSN_MP::gt13!");
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "none"  ) ||
-      CCTK_EQUALS(gt22_bound, "static") ||
-      CCTK_EQUALS(gt22_bound, "flat"  ) ||
-      CCTK_EQUALS(gt22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::gt22", gt22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt22_bound BC for ML_BSSN_MP::gt22!");
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "none"  ) ||
-      CCTK_EQUALS(gt23_bound, "static") ||
-      CCTK_EQUALS(gt23_bound, "flat"  ) ||
-      CCTK_EQUALS(gt23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::gt23", gt23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt23_bound BC for ML_BSSN_MP::gt23!");
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "none"  ) ||
-      CCTK_EQUALS(gt33_bound, "static") ||
-      CCTK_EQUALS(gt33_bound, "flat"  ) ||
-      CCTK_EQUALS(gt33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::gt33", gt33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt33_bound BC for ML_BSSN_MP::gt33!");
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "none"  ) ||
-      CCTK_EQUALS(beta1_bound, "static") ||
-      CCTK_EQUALS(beta1_bound, "flat"  ) ||
-      CCTK_EQUALS(beta1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::beta1", beta1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta1_bound BC for ML_BSSN_MP::beta1!");
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "none"  ) ||
-      CCTK_EQUALS(beta2_bound, "static") ||
-      CCTK_EQUALS(beta2_bound, "flat"  ) ||
-      CCTK_EQUALS(beta2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::beta2", beta2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta2_bound BC for ML_BSSN_MP::beta2!");
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "none"  ) ||
-      CCTK_EQUALS(beta3_bound, "static") ||
-      CCTK_EQUALS(beta3_bound, "flat"  ) ||
-      CCTK_EQUALS(beta3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::beta3", beta3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta3_bound BC for ML_BSSN_MP::beta3!");
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "none"  ) ||
-      CCTK_EQUALS(trK_bound, "static") ||
-      CCTK_EQUALS(trK_bound, "flat"  ) ||
-      CCTK_EQUALS(trK_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP::trK", trK_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register trK_bound BC for ML_BSSN_MP::trK!");
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound , ML_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_MP::ML_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound , ML_dtlapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_MP::ML_dtlapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound , ML_dtshift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_MP::ML_dtshift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound , ML_Gamma_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_MP::ML_Gamma", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound , ML_lapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_MP::ML_lapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound , ML_log_confac_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_MP::ML_log_confac", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound , ML_metric_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_MP::ML_metric", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound , ML_shift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_MP::ML_shift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound , ML_trace_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_MP::ML_trace_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound , At11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_MP::At11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound , At12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_MP::At12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound , At13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_MP::At13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound , At22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_MP::At22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound , At23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_MP::At23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound , At33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_MP::At33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound , A_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_MP::A", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound , B1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_MP::B1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound , B2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_MP::B2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound , B3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_MP::B3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound , Xt1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_MP::Xt1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound , Xt2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_MP::Xt2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound , Xt3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_MP::Xt3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound , alpha_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_MP::alpha", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound , phi_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_MP::phi", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound , gt11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_MP::gt11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound , gt12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_MP::gt12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound , gt13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_MP::gt13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound , gt22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_MP::gt22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound , gt23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_MP::gt23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound , gt33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_MP::gt33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound , beta1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_MP::beta1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound , beta2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_MP::beta2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound , beta3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_MP::beta3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound , trK_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_MP::trK", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP::trK!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_MP::ML_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_MP::ML_dtlapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_MP::ML_dtshift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_MP::ML_Gamma", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_MP::ML_lapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_MP::ML_log_confac", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_MP::ML_metric", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_MP::ML_shift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_MP::ML_trace_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_MP::At11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_MP::At12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_MP::At13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_MP::At22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_MP::At23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_MP::At33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_MP::A", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_MP::B1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_MP::B2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_MP::B3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_MP::Xt1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_MP::Xt2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_MP::Xt3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_MP::alpha", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_MP::phi", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_MP::gt11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_MP::gt12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_MP::gt13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_MP::gt22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_MP::gt23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_MP::gt33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_MP::beta1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_MP::beta2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_MP::beta3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_MP::trK", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP::trK!");
-  
-  }
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-#$bound$#ML_BSSN_MP::ML_curv_bound       = "skip"
-#$bound$#ML_BSSN_MP::ML_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::ML_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::ML_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::ML_dtlapse_bound       = "skip"
-#$bound$#ML_BSSN_MP::ML_dtlapse_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::ML_dtlapse_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::ML_dtlapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::ML_dtshift_bound       = "skip"
-#$bound$#ML_BSSN_MP::ML_dtshift_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::ML_dtshift_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::ML_dtshift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::ML_Gamma_bound       = "skip"
-#$bound$#ML_BSSN_MP::ML_Gamma_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::ML_Gamma_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::ML_Gamma_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::ML_lapse_bound       = "skip"
-#$bound$#ML_BSSN_MP::ML_lapse_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::ML_lapse_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::ML_lapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::ML_log_confac_bound       = "skip"
-#$bound$#ML_BSSN_MP::ML_log_confac_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::ML_log_confac_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::ML_log_confac_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::ML_metric_bound       = "skip"
-#$bound$#ML_BSSN_MP::ML_metric_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::ML_metric_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::ML_metric_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::ML_shift_bound       = "skip"
-#$bound$#ML_BSSN_MP::ML_shift_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::ML_shift_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::ML_shift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::ML_trace_curv_bound       = "skip"
-#$bound$#ML_BSSN_MP::ML_trace_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::ML_trace_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::ML_trace_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::At11_bound       = "skip"
-#$bound$#ML_BSSN_MP::At11_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::At11_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::At11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::At12_bound       = "skip"
-#$bound$#ML_BSSN_MP::At12_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::At12_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::At12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::At13_bound       = "skip"
-#$bound$#ML_BSSN_MP::At13_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::At13_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::At13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::At22_bound       = "skip"
-#$bound$#ML_BSSN_MP::At22_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::At22_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::At22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::At23_bound       = "skip"
-#$bound$#ML_BSSN_MP::At23_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::At23_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::At23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::At33_bound       = "skip"
-#$bound$#ML_BSSN_MP::At33_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::At33_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::At33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::A_bound       = "skip"
-#$bound$#ML_BSSN_MP::A_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::A_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::A_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::B1_bound       = "skip"
-#$bound$#ML_BSSN_MP::B1_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::B1_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::B1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::B2_bound       = "skip"
-#$bound$#ML_BSSN_MP::B2_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::B2_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::B2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::B3_bound       = "skip"
-#$bound$#ML_BSSN_MP::B3_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::B3_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::B3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::Xt1_bound       = "skip"
-#$bound$#ML_BSSN_MP::Xt1_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::Xt1_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::Xt1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::Xt2_bound       = "skip"
-#$bound$#ML_BSSN_MP::Xt2_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::Xt2_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::Xt2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::Xt3_bound       = "skip"
-#$bound$#ML_BSSN_MP::Xt3_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::Xt3_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::Xt3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::alpha_bound       = "skip"
-#$bound$#ML_BSSN_MP::alpha_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::alpha_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::alpha_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::phi_bound       = "skip"
-#$bound$#ML_BSSN_MP::phi_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::phi_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::phi_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::gt11_bound       = "skip"
-#$bound$#ML_BSSN_MP::gt11_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::gt11_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::gt11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::gt12_bound       = "skip"
-#$bound$#ML_BSSN_MP::gt12_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::gt12_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::gt12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::gt13_bound       = "skip"
-#$bound$#ML_BSSN_MP::gt13_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::gt13_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::gt13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::gt22_bound       = "skip"
-#$bound$#ML_BSSN_MP::gt22_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::gt22_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::gt22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::gt23_bound       = "skip"
-#$bound$#ML_BSSN_MP::gt23_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::gt23_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::gt23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::gt33_bound       = "skip"
-#$bound$#ML_BSSN_MP::gt33_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::gt33_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::gt33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::beta1_bound       = "skip"
-#$bound$#ML_BSSN_MP::beta1_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::beta1_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::beta1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::beta2_bound       = "skip"
-#$bound$#ML_BSSN_MP::beta2_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::beta2_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::beta2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::beta3_bound       = "skip"
-#$bound$#ML_BSSN_MP::beta3_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::beta3_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::beta3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP::trK_bound       = "skip"
-#$bound$#ML_BSSN_MP::trK_bound_speed = 1.0
-#$bound$#ML_BSSN_MP::trK_bound_limit = 0.0
-#$bound$#ML_BSSN_MP::trK_bound_scalar = 0.0
-
-*/
-
diff --git a/ML_BSSN_MP/src/Differencing.h b/ML_BSSN_MP/src/Differencing.h
deleted file mode 100644
index 96a0554..0000000
--- a/ML_BSSN_MP/src/Differencing.h
+++ /dev/null
@@ -1,1146 +0,0 @@
-#include <assert.h>
-#include "vectors.h"
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder21(u) (kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0))))
-#else
-#  define PDstandardNthfdOrder21(u) (PDstandardNthfdOrder21_impl(u,p1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder22(u) (kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0))))
-#else
-#  define PDstandardNthfdOrder22(u) (PDstandardNthfdOrder22_impl(u,p1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder23(u) (kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1))))
-#else
-#  define PDstandardNthfdOrder23(u) (PDstandardNthfdOrder23_impl(u,p1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder41(u) (kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDstandardNthfdOrder41(u) (PDstandardNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder42(u) (kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDstandardNthfdOrder42(u) (PDstandardNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder43(u) (kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDstandardNthfdOrder43(u) (PDstandardNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder61(u) (kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDstandardNthfdOrder61(u) (PDstandardNthfdOrder61_impl(u,p1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder62(u) (kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDstandardNthfdOrder62(u) (PDstandardNthfdOrder62_impl(u,p1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder63(u) (kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDstandardNthfdOrder63(u) (PDstandardNthfdOrder63_impl(u,p1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder81(u) (kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder81(u) (PDstandardNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder82(u) (kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder82(u) (PDstandardNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder83(u) (kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder83(u) (PDstandardNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder211(u) (kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0)))))
-#else
-#  define PDstandardNthfdOrder211(u) (PDstandardNthfdOrder211_impl(u,p1odx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder222(u) (kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0)))))
-#else
-#  define PDstandardNthfdOrder222(u) (PDstandardNthfdOrder222_impl(u,p1ody2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder233(u) (kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1)))))
-#else
-#  define PDstandardNthfdOrder233(u) (PDstandardNthfdOrder233_impl(u,p1odz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder411(u) (kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder411(u) (PDstandardNthfdOrder411_impl(u,pm1o12dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder422(u) (kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder422(u) (PDstandardNthfdOrder422_impl(u,pm1o12dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder433(u) (kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder433(u) (PDstandardNthfdOrder433_impl(u,pm1o12dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder611(u) (kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder611(u) (PDstandardNthfdOrder611_impl(u,p1o180dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder622(u) (kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder622(u) (PDstandardNthfdOrder622_impl(u,p1o180dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder633(u) (kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder633(u) (PDstandardNthfdOrder633_impl(u,p1o180dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder811(u) (kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder811(u) (PDstandardNthfdOrder811_impl(u,p1o5040dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder822(u) (kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder822(u) (PDstandardNthfdOrder822_impl(u,p1o5040dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder833(u) (kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder833(u) (PDstandardNthfdOrder833_impl(u,p1o5040dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder212(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder212(u) (PDstandardNthfdOrder212_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder213(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder213(u) (PDstandardNthfdOrder213_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder221(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder221(u) (PDstandardNthfdOrder221_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder223(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder223(u) (PDstandardNthfdOrder223_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder231(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder231(u) (PDstandardNthfdOrder231_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder232(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder232(u) (PDstandardNthfdOrder232_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder412(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder412(u) (PDstandardNthfdOrder412_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder413(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder413(u) (PDstandardNthfdOrder413_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder421(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder421(u) (PDstandardNthfdOrder421_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder423(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder423(u) (PDstandardNthfdOrder423_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder431(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder431(u) (PDstandardNthfdOrder431_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder432(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder432(u) (PDstandardNthfdOrder432_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder612(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder612(u) (PDstandardNthfdOrder612_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder613(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder613(u) (PDstandardNthfdOrder613_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder621(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder621(u) (PDstandardNthfdOrder621_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder623(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder623(u) (PDstandardNthfdOrder623_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder631(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder631(u) (PDstandardNthfdOrder631_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder632(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder632(u) (PDstandardNthfdOrder632_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder812(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder812(u) (PDstandardNthfdOrder812_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder813(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder813(u) (PDstandardNthfdOrder813_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder821(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder821(u) (PDstandardNthfdOrder821_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder823(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder823(u) (PDstandardNthfdOrder823_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder831(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder831(u) (PDstandardNthfdOrder831_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder832(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder832(u) (PDstandardNthfdOrder832_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder21(u) (kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder21(u) (PDdissipationNthfdOrder21_impl(u,p1o16dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder22(u) (kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder22(u) (PDdissipationNthfdOrder22_impl(u,p1o16dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder23(u) (kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder23(u) (PDdissipationNthfdOrder23_impl(u,p1o16dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder41(u) (kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder41(u) (PDdissipationNthfdOrder41_impl(u,p1o64dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder42(u) (kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder42(u) (PDdissipationNthfdOrder42_impl(u,p1o64dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder43(u) (kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder43(u) (PDdissipationNthfdOrder43_impl(u,p1o64dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder61(u) (kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder61(u) (PDdissipationNthfdOrder61_impl(u,p1o256dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder62(u) (kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder62(u) (PDdissipationNthfdOrder62_impl(u,p1o256dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder63(u) (kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder63(u) (PDdissipationNthfdOrder63_impl(u,p1o256dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder81(u) (kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder81(u) (PDdissipationNthfdOrder81_impl(u,p1o1024dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder82(u) (kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder82(u) (PDdissipationNthfdOrder82_impl(u,p1o1024dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder83(u) (kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder83(u) (PDdissipationNthfdOrder83_impl(u,p1o1024dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder21(u) (kmul(pm1o2dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder21(u) (PDupwindNthfdOrder21_impl(u,pm1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder41(u) (kmul(p1o12dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder41(u) (PDupwindNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder61(u) (kmul(pm1o60dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder61(u) (PDupwindNthfdOrder61_impl(u,pm1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder81(u) (kmul(p1o840dx,kmul(dir1,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,-3,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder81(u) (PDupwindNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder21(u) (kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDupwindNthAntifdOrder21(u) (PDupwindNthAntifdOrder21_impl(u,p1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDupwindNthAntifdOrder41(u) (PDupwindNthAntifdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder61(u) (kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0))))))))
-#else
-#  define PDupwindNthAntifdOrder61(u) (PDupwindNthAntifdOrder61_impl(u,p1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder81(u) (kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder81(u) (PDupwindNthAntifdOrder81_impl(u,p1o1680dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder21(u) (kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder21(u) (PDupwindNthSymmfdOrder21_impl(u,pm1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder41(u) (PDupwindNthSymmfdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder61(u) (kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder61(u) (PDupwindNthSymmfdOrder61_impl(u,pm1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder81(u) (kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder81(u) (PDupwindNthSymmfdOrder81_impl(u,p1o560dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided1(u) (kmul(p1odx,kmul(dir1,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided1(u) (PDonesided1_impl(u,p1odx,cdj,cdk))
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder22(u) (kmul(pm1o2dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder22(u) (PDupwindNthfdOrder22_impl(u,pm1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder42(u) (kmul(p1o12dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder42(u) (PDupwindNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder62(u) (kmul(pm1o60dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder62(u) (PDupwindNthfdOrder62_impl(u,pm1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder82(u) (kmul(p1o840dy,kmul(dir2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,-3,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder82(u) (PDupwindNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder22(u) (kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDupwindNthAntifdOrder22(u) (PDupwindNthAntifdOrder22_impl(u,p1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDupwindNthAntifdOrder42(u) (PDupwindNthAntifdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder62(u) (kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0))))))))
-#else
-#  define PDupwindNthAntifdOrder62(u) (PDupwindNthAntifdOrder62_impl(u,p1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder82(u) (kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder82(u) (PDupwindNthAntifdOrder82_impl(u,p1o1680dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder22(u) (kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder22(u) (PDupwindNthSymmfdOrder22_impl(u,pm1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder42(u) (PDupwindNthSymmfdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder62(u) (kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder62(u) (PDupwindNthSymmfdOrder62_impl(u,pm1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder82(u) (kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder82(u) (PDupwindNthSymmfdOrder82_impl(u,p1o560dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided2(u) (kmul(p1ody,kmul(dir2,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided2(u) (PDonesided2_impl(u,p1ody,cdj,cdk))
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder23(u) (kmul(pm1o2dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder23(u) (PDupwindNthfdOrder23_impl(u,pm1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder43(u) (kmul(p1o12dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder43(u) (PDupwindNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder63(u) (kmul(pm1o60dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder63(u) (PDupwindNthfdOrder63_impl(u,pm1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder83(u) (kmul(p1o840dz,kmul(dir3,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,0,-3),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder83(u) (PDupwindNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder23(u) (kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDupwindNthAntifdOrder23(u) (PDupwindNthAntifdOrder23_impl(u,p1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDupwindNthAntifdOrder43(u) (PDupwindNthAntifdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder63(u) (kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4))))))))
-#else
-#  define PDupwindNthAntifdOrder63(u) (PDupwindNthAntifdOrder63_impl(u,p1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder83(u) (kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder83(u) (PDupwindNthAntifdOrder83_impl(u,p1o1680dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder23(u) (kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder23(u) (PDupwindNthSymmfdOrder23_impl(u,pm1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder43(u) (PDupwindNthSymmfdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder63(u) (kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder63(u) (PDupwindNthSymmfdOrder63_impl(u,pm1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder83(u) (kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder83(u) (PDupwindNthSymmfdOrder83_impl(u,p1o560dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided3(u) (kmul(p1odz,kmul(dir3,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided3(u) (PDonesided3_impl(u,p1odz,cdj,cdk))
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_Advect.cc b/ML_BSSN_MP/src/ML_BSSN_MP_Advect.cc
deleted file mode 100644
index bb81808..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_Advect.cc
+++ /dev/null
@@ -1,2155 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_Advect_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_Advect_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_Advect,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNthAnti1A;
-    CCTK_REAL_VEC PDupwindNthSymm1A;
-    CCTK_REAL_VEC PDupwindNthAnti2A;
-    CCTK_REAL_VEC PDupwindNthSymm2A;
-    CCTK_REAL_VEC PDupwindNthAnti3A;
-    CCTK_REAL_VEC PDupwindNthSymm3A;
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1At11;
-    CCTK_REAL_VEC PDupwindNthSymm1At11;
-    CCTK_REAL_VEC PDupwindNthAnti2At11;
-    CCTK_REAL_VEC PDupwindNthSymm2At11;
-    CCTK_REAL_VEC PDupwindNthAnti3At11;
-    CCTK_REAL_VEC PDupwindNthSymm3At11;
-    CCTK_REAL_VEC PDupwindNthAnti1At12;
-    CCTK_REAL_VEC PDupwindNthSymm1At12;
-    CCTK_REAL_VEC PDupwindNthAnti2At12;
-    CCTK_REAL_VEC PDupwindNthSymm2At12;
-    CCTK_REAL_VEC PDupwindNthAnti3At12;
-    CCTK_REAL_VEC PDupwindNthSymm3At12;
-    CCTK_REAL_VEC PDupwindNthAnti1At13;
-    CCTK_REAL_VEC PDupwindNthSymm1At13;
-    CCTK_REAL_VEC PDupwindNthAnti2At13;
-    CCTK_REAL_VEC PDupwindNthSymm2At13;
-    CCTK_REAL_VEC PDupwindNthAnti3At13;
-    CCTK_REAL_VEC PDupwindNthSymm3At13;
-    CCTK_REAL_VEC PDupwindNthAnti1At22;
-    CCTK_REAL_VEC PDupwindNthSymm1At22;
-    CCTK_REAL_VEC PDupwindNthAnti2At22;
-    CCTK_REAL_VEC PDupwindNthSymm2At22;
-    CCTK_REAL_VEC PDupwindNthAnti3At22;
-    CCTK_REAL_VEC PDupwindNthSymm3At22;
-    CCTK_REAL_VEC PDupwindNthAnti1At23;
-    CCTK_REAL_VEC PDupwindNthSymm1At23;
-    CCTK_REAL_VEC PDupwindNthAnti2At23;
-    CCTK_REAL_VEC PDupwindNthSymm2At23;
-    CCTK_REAL_VEC PDupwindNthAnti3At23;
-    CCTK_REAL_VEC PDupwindNthSymm3At23;
-    CCTK_REAL_VEC PDupwindNthAnti1At33;
-    CCTK_REAL_VEC PDupwindNthSymm1At33;
-    CCTK_REAL_VEC PDupwindNthAnti2At33;
-    CCTK_REAL_VEC PDupwindNthSymm2At33;
-    CCTK_REAL_VEC PDupwindNthAnti3At33;
-    CCTK_REAL_VEC PDupwindNthSymm3At33;
-    CCTK_REAL_VEC PDupwindNthAnti1B1;
-    CCTK_REAL_VEC PDupwindNthSymm1B1;
-    CCTK_REAL_VEC PDupwindNthAnti2B1;
-    CCTK_REAL_VEC PDupwindNthSymm2B1;
-    CCTK_REAL_VEC PDupwindNthAnti3B1;
-    CCTK_REAL_VEC PDupwindNthSymm3B1;
-    CCTK_REAL_VEC PDupwindNthAnti1B2;
-    CCTK_REAL_VEC PDupwindNthSymm1B2;
-    CCTK_REAL_VEC PDupwindNthAnti2B2;
-    CCTK_REAL_VEC PDupwindNthSymm2B2;
-    CCTK_REAL_VEC PDupwindNthAnti3B2;
-    CCTK_REAL_VEC PDupwindNthSymm3B2;
-    CCTK_REAL_VEC PDupwindNthAnti1B3;
-    CCTK_REAL_VEC PDupwindNthSymm1B3;
-    CCTK_REAL_VEC PDupwindNthAnti2B3;
-    CCTK_REAL_VEC PDupwindNthSymm2B3;
-    CCTK_REAL_VEC PDupwindNthAnti3B3;
-    CCTK_REAL_VEC PDupwindNthSymm3B3;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDupwindNthAnti1gt11;
-    CCTK_REAL_VEC PDupwindNthSymm1gt11;
-    CCTK_REAL_VEC PDupwindNthAnti2gt11;
-    CCTK_REAL_VEC PDupwindNthSymm2gt11;
-    CCTK_REAL_VEC PDupwindNthAnti3gt11;
-    CCTK_REAL_VEC PDupwindNthSymm3gt11;
-    CCTK_REAL_VEC PDupwindNthAnti1gt12;
-    CCTK_REAL_VEC PDupwindNthSymm1gt12;
-    CCTK_REAL_VEC PDupwindNthAnti2gt12;
-    CCTK_REAL_VEC PDupwindNthSymm2gt12;
-    CCTK_REAL_VEC PDupwindNthAnti3gt12;
-    CCTK_REAL_VEC PDupwindNthSymm3gt12;
-    CCTK_REAL_VEC PDupwindNthAnti1gt13;
-    CCTK_REAL_VEC PDupwindNthSymm1gt13;
-    CCTK_REAL_VEC PDupwindNthAnti2gt13;
-    CCTK_REAL_VEC PDupwindNthSymm2gt13;
-    CCTK_REAL_VEC PDupwindNthAnti3gt13;
-    CCTK_REAL_VEC PDupwindNthSymm3gt13;
-    CCTK_REAL_VEC PDupwindNthAnti1gt22;
-    CCTK_REAL_VEC PDupwindNthSymm1gt22;
-    CCTK_REAL_VEC PDupwindNthAnti2gt22;
-    CCTK_REAL_VEC PDupwindNthSymm2gt22;
-    CCTK_REAL_VEC PDupwindNthAnti3gt22;
-    CCTK_REAL_VEC PDupwindNthSymm3gt22;
-    CCTK_REAL_VEC PDupwindNthAnti1gt23;
-    CCTK_REAL_VEC PDupwindNthSymm1gt23;
-    CCTK_REAL_VEC PDupwindNthAnti2gt23;
-    CCTK_REAL_VEC PDupwindNthSymm2gt23;
-    CCTK_REAL_VEC PDupwindNthAnti3gt23;
-    CCTK_REAL_VEC PDupwindNthSymm3gt23;
-    CCTK_REAL_VEC PDupwindNthAnti1gt33;
-    CCTK_REAL_VEC PDupwindNthSymm1gt33;
-    CCTK_REAL_VEC PDupwindNthAnti2gt33;
-    CCTK_REAL_VEC PDupwindNthSymm2gt33;
-    CCTK_REAL_VEC PDupwindNthAnti3gt33;
-    CCTK_REAL_VEC PDupwindNthSymm3gt33;
-    CCTK_REAL_VEC PDupwindNthAnti1phi;
-    CCTK_REAL_VEC PDupwindNthSymm1phi;
-    CCTK_REAL_VEC PDupwindNthAnti2phi;
-    CCTK_REAL_VEC PDupwindNthSymm2phi;
-    CCTK_REAL_VEC PDupwindNthAnti3phi;
-    CCTK_REAL_VEC PDupwindNthSymm3phi;
-    CCTK_REAL_VEC PDupwindNthAnti1trK;
-    CCTK_REAL_VEC PDupwindNthSymm1trK;
-    CCTK_REAL_VEC PDupwindNthAnti2trK;
-    CCTK_REAL_VEC PDupwindNthSymm2trK;
-    CCTK_REAL_VEC PDupwindNthAnti3trK;
-    CCTK_REAL_VEC PDupwindNthSymm3trK;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt3;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt3;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder21(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder21(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder22(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder22(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder23(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder23(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder21(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder21(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder22(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder22(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder23(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder23(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder21(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder21(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder22(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder22(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder23(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder23(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder21(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder21(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder22(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder22(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder23(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder23(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder21(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder21(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder22(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder22(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder23(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder23(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder21(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder21(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder22(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder22(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder23(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder23(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder21(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder21(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder22(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder22(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder23(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder23(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder21(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder21(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder22(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder22(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder23(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder23(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder21(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder21(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder22(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder22(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder23(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder23(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder21(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder21(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder22(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder22(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder23(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder23(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder21(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder21(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder22(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder22(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder23(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder23(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder21(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder21(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder22(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder22(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder23(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder23(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder21(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder21(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder22(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder22(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder23(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder23(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder21(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder21(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder22(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder22(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder23(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder23(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder21(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder21(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder22(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder22(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder23(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder23(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder21(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder21(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder22(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder22(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder23(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder23(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder21(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder21(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder22(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder22(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder23(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder23(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder21(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder21(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder22(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder22(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder23(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder23(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder21(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder21(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder22(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder22(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder23(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder23(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder21(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder21(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder22(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder22(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder23(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder23(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder21(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder21(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder22(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder22(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder23(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder41(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder41(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder42(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder42(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder43(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder43(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder41(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder41(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder42(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder42(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder43(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder43(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder41(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder41(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder42(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder42(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder43(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder43(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder41(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder41(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder42(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder42(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder43(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder43(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder41(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder41(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder42(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder42(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder43(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder43(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder41(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder41(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder42(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder42(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder43(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder43(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder41(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder41(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder42(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder42(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder43(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder43(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder41(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder41(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder42(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder42(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder43(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder43(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder41(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder41(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder42(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder42(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder43(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder43(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder41(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder41(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder42(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder42(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder43(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder43(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder41(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder41(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder42(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder42(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder43(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder43(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder41(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder41(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder42(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder42(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder43(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder43(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder41(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder41(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder42(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder42(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder43(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder43(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder41(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder41(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder42(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder42(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder43(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder43(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder41(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder41(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder42(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder42(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder43(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder43(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder41(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder41(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder42(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder42(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder43(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder43(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder41(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder41(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder42(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder42(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder43(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder43(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder41(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder41(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder42(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder42(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder43(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder43(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder41(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder41(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder42(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder42(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder43(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder43(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder41(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder41(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder42(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder42(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder43(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder43(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder41(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder41(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder42(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder42(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder43(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder61(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder61(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder62(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder62(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder63(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder63(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder61(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder61(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder62(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder62(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder63(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder63(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder61(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder61(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder62(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder62(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder63(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder63(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder61(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder61(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder62(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder62(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder63(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder63(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder61(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder61(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder62(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder62(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder63(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder63(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder61(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder61(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder62(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder62(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder63(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder63(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder61(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder61(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder62(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder62(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder63(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder63(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder61(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder61(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder62(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder62(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder63(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder63(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder61(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder61(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder62(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder62(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder63(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder63(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder61(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder61(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder62(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder62(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder63(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder63(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder61(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder61(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder62(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder62(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder63(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder63(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder61(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder61(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder62(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder62(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder63(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder63(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder61(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder61(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder62(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder62(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder63(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder63(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder61(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder61(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder62(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder62(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder63(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder63(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder61(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder61(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder62(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder62(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder63(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder63(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder61(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder61(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder62(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder62(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder63(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder63(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder61(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder61(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder62(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder62(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder63(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder63(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder61(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder61(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder62(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder62(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder63(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder63(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder61(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder61(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder62(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder62(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder63(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder63(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder61(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder61(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder62(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder62(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder63(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder63(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder61(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder61(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder62(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder62(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder63(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder81(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder81(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder82(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder82(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder83(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder83(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder81(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder81(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder82(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder82(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder83(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder83(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder81(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder81(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder82(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder82(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder83(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder83(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder81(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder81(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder82(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder82(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder83(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder83(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder81(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder81(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder82(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder82(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder83(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder83(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder81(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder81(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder82(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder82(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder83(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder83(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder81(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder81(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder82(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder82(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder83(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder83(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder81(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder81(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder82(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder82(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder83(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder83(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder81(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder81(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder82(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder82(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder83(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder83(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder81(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder81(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder82(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder82(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder83(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder83(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder81(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder81(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder82(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder82(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder83(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder83(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder81(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder81(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder82(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder82(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder83(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder83(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder81(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder81(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder82(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder82(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder83(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder83(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder81(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder81(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder82(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder82(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder83(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder83(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder81(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder81(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder82(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder82(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder83(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder83(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder81(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder81(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder82(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder82(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder83(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder83(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder81(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder81(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder82(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder82(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder83(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder83(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder81(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder81(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder82(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder82(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder83(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder83(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder81(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder81(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder82(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder82(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder83(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder83(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder81(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder81(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder82(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder82(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder83(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder83(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder81(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder81(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder82(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder82(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder83(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDupwindNthAnti1A;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti1trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2A;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti2phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti2trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3A;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti3phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti3trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1A;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm1phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm1trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2A;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm2phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm2trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3A;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm3phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm3trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDupwindNthAnti1A = 
-        kmadd(J11L,PDupwindNthAnti1A,kmadd(J21L,PDupwindNthAnti2A,kmul(J31L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1At11 = 
-        kmadd(J11L,PDupwindNthAnti1At11,kmadd(J21L,PDupwindNthAnti2At11,kmul(J31L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti1At12 = 
-        kmadd(J11L,PDupwindNthAnti1At12,kmadd(J21L,PDupwindNthAnti2At12,kmul(J31L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti1At13 = 
-        kmadd(J11L,PDupwindNthAnti1At13,kmadd(J21L,PDupwindNthAnti2At13,kmul(J31L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti1At22 = 
-        kmadd(J11L,PDupwindNthAnti1At22,kmadd(J21L,PDupwindNthAnti2At22,kmul(J31L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti1At23 = 
-        kmadd(J11L,PDupwindNthAnti1At23,kmadd(J21L,PDupwindNthAnti2At23,kmul(J31L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti1At33 = 
-        kmadd(J11L,PDupwindNthAnti1At33,kmadd(J21L,PDupwindNthAnti2At33,kmul(J31L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti1B1 = 
-        kmadd(J11L,PDupwindNthAnti1B1,kmadd(J21L,PDupwindNthAnti2B1,kmul(J31L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti1B2 = 
-        kmadd(J11L,PDupwindNthAnti1B2,kmadd(J21L,PDupwindNthAnti2B2,kmul(J31L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti1B3 = 
-        kmadd(J11L,PDupwindNthAnti1B3,kmadd(J21L,PDupwindNthAnti2B3,kmul(J31L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti1gt11 = 
-        kmadd(J11L,PDupwindNthAnti1gt11,kmadd(J21L,PDupwindNthAnti2gt11,kmul(J31L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti1gt12 = 
-        kmadd(J11L,PDupwindNthAnti1gt12,kmadd(J21L,PDupwindNthAnti2gt12,kmul(J31L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti1gt13 = 
-        kmadd(J11L,PDupwindNthAnti1gt13,kmadd(J21L,PDupwindNthAnti2gt13,kmul(J31L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti1gt22 = 
-        kmadd(J11L,PDupwindNthAnti1gt22,kmadd(J21L,PDupwindNthAnti2gt22,kmul(J31L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti1gt23 = 
-        kmadd(J11L,PDupwindNthAnti1gt23,kmadd(J21L,PDupwindNthAnti2gt23,kmul(J31L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti1gt33 = 
-        kmadd(J11L,PDupwindNthAnti1gt33,kmadd(J21L,PDupwindNthAnti2gt33,kmul(J31L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti1phi = 
-        kmadd(J11L,PDupwindNthAnti1phi,kmadd(J21L,PDupwindNthAnti2phi,kmul(J31L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti1trK = 
-        kmadd(J11L,PDupwindNthAnti1trK,kmadd(J21L,PDupwindNthAnti2trK,kmul(J31L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti1Xt1 = 
-        kmadd(J11L,PDupwindNthAnti1Xt1,kmadd(J21L,PDupwindNthAnti2Xt1,kmul(J31L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti1Xt2 = 
-        kmadd(J11L,PDupwindNthAnti1Xt2,kmadd(J21L,PDupwindNthAnti2Xt2,kmul(J31L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti1Xt3 = 
-        kmadd(J11L,PDupwindNthAnti1Xt3,kmadd(J21L,PDupwindNthAnti2Xt3,kmul(J31L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm1A = 
-        kmadd(J11L,PDupwindNthSymm1A,kmadd(J21L,PDupwindNthSymm2A,kmul(J31L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1At11 = 
-        kmadd(J11L,PDupwindNthSymm1At11,kmadd(J21L,PDupwindNthSymm2At11,kmul(J31L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm1At12 = 
-        kmadd(J11L,PDupwindNthSymm1At12,kmadd(J21L,PDupwindNthSymm2At12,kmul(J31L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm1At13 = 
-        kmadd(J11L,PDupwindNthSymm1At13,kmadd(J21L,PDupwindNthSymm2At13,kmul(J31L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm1At22 = 
-        kmadd(J11L,PDupwindNthSymm1At22,kmadd(J21L,PDupwindNthSymm2At22,kmul(J31L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm1At23 = 
-        kmadd(J11L,PDupwindNthSymm1At23,kmadd(J21L,PDupwindNthSymm2At23,kmul(J31L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm1At33 = 
-        kmadd(J11L,PDupwindNthSymm1At33,kmadd(J21L,PDupwindNthSymm2At33,kmul(J31L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm1B1 = 
-        kmadd(J11L,PDupwindNthSymm1B1,kmadd(J21L,PDupwindNthSymm2B1,kmul(J31L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm1B2 = 
-        kmadd(J11L,PDupwindNthSymm1B2,kmadd(J21L,PDupwindNthSymm2B2,kmul(J31L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm1B3 = 
-        kmadd(J11L,PDupwindNthSymm1B3,kmadd(J21L,PDupwindNthSymm2B3,kmul(J31L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm1gt11 = 
-        kmadd(J11L,PDupwindNthSymm1gt11,kmadd(J21L,PDupwindNthSymm2gt11,kmul(J31L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm1gt12 = 
-        kmadd(J11L,PDupwindNthSymm1gt12,kmadd(J21L,PDupwindNthSymm2gt12,kmul(J31L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm1gt13 = 
-        kmadd(J11L,PDupwindNthSymm1gt13,kmadd(J21L,PDupwindNthSymm2gt13,kmul(J31L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm1gt22 = 
-        kmadd(J11L,PDupwindNthSymm1gt22,kmadd(J21L,PDupwindNthSymm2gt22,kmul(J31L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm1gt23 = 
-        kmadd(J11L,PDupwindNthSymm1gt23,kmadd(J21L,PDupwindNthSymm2gt23,kmul(J31L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm1gt33 = 
-        kmadd(J11L,PDupwindNthSymm1gt33,kmadd(J21L,PDupwindNthSymm2gt33,kmul(J31L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm1phi = 
-        kmadd(J11L,PDupwindNthSymm1phi,kmadd(J21L,PDupwindNthSymm2phi,kmul(J31L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm1trK = 
-        kmadd(J11L,PDupwindNthSymm1trK,kmadd(J21L,PDupwindNthSymm2trK,kmul(J31L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm1Xt1 = 
-        kmadd(J11L,PDupwindNthSymm1Xt1,kmadd(J21L,PDupwindNthSymm2Xt1,kmul(J31L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm1Xt2 = 
-        kmadd(J11L,PDupwindNthSymm1Xt2,kmadd(J21L,PDupwindNthSymm2Xt2,kmul(J31L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm1Xt3 = 
-        kmadd(J11L,PDupwindNthSymm1Xt3,kmadd(J21L,PDupwindNthSymm2Xt3,kmul(J31L,PDupwindNthSymm3Xt3)));
-      
-      JacPDupwindNthAnti2A = 
-        kmadd(J12L,PDupwindNthAnti1A,kmadd(J22L,PDupwindNthAnti2A,kmul(J32L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2At11 = 
-        kmadd(J12L,PDupwindNthAnti1At11,kmadd(J22L,PDupwindNthAnti2At11,kmul(J32L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti2At12 = 
-        kmadd(J12L,PDupwindNthAnti1At12,kmadd(J22L,PDupwindNthAnti2At12,kmul(J32L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti2At13 = 
-        kmadd(J12L,PDupwindNthAnti1At13,kmadd(J22L,PDupwindNthAnti2At13,kmul(J32L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti2At22 = 
-        kmadd(J12L,PDupwindNthAnti1At22,kmadd(J22L,PDupwindNthAnti2At22,kmul(J32L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti2At23 = 
-        kmadd(J12L,PDupwindNthAnti1At23,kmadd(J22L,PDupwindNthAnti2At23,kmul(J32L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti2At33 = 
-        kmadd(J12L,PDupwindNthAnti1At33,kmadd(J22L,PDupwindNthAnti2At33,kmul(J32L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti2B1 = 
-        kmadd(J12L,PDupwindNthAnti1B1,kmadd(J22L,PDupwindNthAnti2B1,kmul(J32L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti2B2 = 
-        kmadd(J12L,PDupwindNthAnti1B2,kmadd(J22L,PDupwindNthAnti2B2,kmul(J32L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti2B3 = 
-        kmadd(J12L,PDupwindNthAnti1B3,kmadd(J22L,PDupwindNthAnti2B3,kmul(J32L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti2gt11 = 
-        kmadd(J12L,PDupwindNthAnti1gt11,kmadd(J22L,PDupwindNthAnti2gt11,kmul(J32L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti2gt12 = 
-        kmadd(J12L,PDupwindNthAnti1gt12,kmadd(J22L,PDupwindNthAnti2gt12,kmul(J32L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti2gt13 = 
-        kmadd(J12L,PDupwindNthAnti1gt13,kmadd(J22L,PDupwindNthAnti2gt13,kmul(J32L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti2gt22 = 
-        kmadd(J12L,PDupwindNthAnti1gt22,kmadd(J22L,PDupwindNthAnti2gt22,kmul(J32L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti2gt23 = 
-        kmadd(J12L,PDupwindNthAnti1gt23,kmadd(J22L,PDupwindNthAnti2gt23,kmul(J32L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti2gt33 = 
-        kmadd(J12L,PDupwindNthAnti1gt33,kmadd(J22L,PDupwindNthAnti2gt33,kmul(J32L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti2phi = 
-        kmadd(J12L,PDupwindNthAnti1phi,kmadd(J22L,PDupwindNthAnti2phi,kmul(J32L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti2trK = 
-        kmadd(J12L,PDupwindNthAnti1trK,kmadd(J22L,PDupwindNthAnti2trK,kmul(J32L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti2Xt1 = 
-        kmadd(J12L,PDupwindNthAnti1Xt1,kmadd(J22L,PDupwindNthAnti2Xt1,kmul(J32L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti2Xt2 = 
-        kmadd(J12L,PDupwindNthAnti1Xt2,kmadd(J22L,PDupwindNthAnti2Xt2,kmul(J32L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti2Xt3 = 
-        kmadd(J12L,PDupwindNthAnti1Xt3,kmadd(J22L,PDupwindNthAnti2Xt3,kmul(J32L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm2A = 
-        kmadd(J12L,PDupwindNthSymm1A,kmadd(J22L,PDupwindNthSymm2A,kmul(J32L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2At11 = 
-        kmadd(J12L,PDupwindNthSymm1At11,kmadd(J22L,PDupwindNthSymm2At11,kmul(J32L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm2At12 = 
-        kmadd(J12L,PDupwindNthSymm1At12,kmadd(J22L,PDupwindNthSymm2At12,kmul(J32L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm2At13 = 
-        kmadd(J12L,PDupwindNthSymm1At13,kmadd(J22L,PDupwindNthSymm2At13,kmul(J32L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm2At22 = 
-        kmadd(J12L,PDupwindNthSymm1At22,kmadd(J22L,PDupwindNthSymm2At22,kmul(J32L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm2At23 = 
-        kmadd(J12L,PDupwindNthSymm1At23,kmadd(J22L,PDupwindNthSymm2At23,kmul(J32L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm2At33 = 
-        kmadd(J12L,PDupwindNthSymm1At33,kmadd(J22L,PDupwindNthSymm2At33,kmul(J32L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm2B1 = 
-        kmadd(J12L,PDupwindNthSymm1B1,kmadd(J22L,PDupwindNthSymm2B1,kmul(J32L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm2B2 = 
-        kmadd(J12L,PDupwindNthSymm1B2,kmadd(J22L,PDupwindNthSymm2B2,kmul(J32L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm2B3 = 
-        kmadd(J12L,PDupwindNthSymm1B3,kmadd(J22L,PDupwindNthSymm2B3,kmul(J32L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm2gt11 = 
-        kmadd(J12L,PDupwindNthSymm1gt11,kmadd(J22L,PDupwindNthSymm2gt11,kmul(J32L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm2gt12 = 
-        kmadd(J12L,PDupwindNthSymm1gt12,kmadd(J22L,PDupwindNthSymm2gt12,kmul(J32L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm2gt13 = 
-        kmadd(J12L,PDupwindNthSymm1gt13,kmadd(J22L,PDupwindNthSymm2gt13,kmul(J32L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm2gt22 = 
-        kmadd(J12L,PDupwindNthSymm1gt22,kmadd(J22L,PDupwindNthSymm2gt22,kmul(J32L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm2gt23 = 
-        kmadd(J12L,PDupwindNthSymm1gt23,kmadd(J22L,PDupwindNthSymm2gt23,kmul(J32L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm2gt33 = 
-        kmadd(J12L,PDupwindNthSymm1gt33,kmadd(J22L,PDupwindNthSymm2gt33,kmul(J32L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm2phi = 
-        kmadd(J12L,PDupwindNthSymm1phi,kmadd(J22L,PDupwindNthSymm2phi,kmul(J32L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm2trK = 
-        kmadd(J12L,PDupwindNthSymm1trK,kmadd(J22L,PDupwindNthSymm2trK,kmul(J32L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm2Xt1 = 
-        kmadd(J12L,PDupwindNthSymm1Xt1,kmadd(J22L,PDupwindNthSymm2Xt1,kmul(J32L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm2Xt2 = 
-        kmadd(J12L,PDupwindNthSymm1Xt2,kmadd(J22L,PDupwindNthSymm2Xt2,kmul(J32L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm2Xt3 = 
-        kmadd(J12L,PDupwindNthSymm1Xt3,kmadd(J22L,PDupwindNthSymm2Xt3,kmul(J32L,PDupwindNthSymm3Xt3)));
-      
-      JacPDupwindNthAnti3A = 
-        kmadd(J13L,PDupwindNthAnti1A,kmadd(J23L,PDupwindNthAnti2A,kmul(J33L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3At11 = 
-        kmadd(J13L,PDupwindNthAnti1At11,kmadd(J23L,PDupwindNthAnti2At11,kmul(J33L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti3At12 = 
-        kmadd(J13L,PDupwindNthAnti1At12,kmadd(J23L,PDupwindNthAnti2At12,kmul(J33L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti3At13 = 
-        kmadd(J13L,PDupwindNthAnti1At13,kmadd(J23L,PDupwindNthAnti2At13,kmul(J33L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti3At22 = 
-        kmadd(J13L,PDupwindNthAnti1At22,kmadd(J23L,PDupwindNthAnti2At22,kmul(J33L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti3At23 = 
-        kmadd(J13L,PDupwindNthAnti1At23,kmadd(J23L,PDupwindNthAnti2At23,kmul(J33L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti3At33 = 
-        kmadd(J13L,PDupwindNthAnti1At33,kmadd(J23L,PDupwindNthAnti2At33,kmul(J33L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti3B1 = 
-        kmadd(J13L,PDupwindNthAnti1B1,kmadd(J23L,PDupwindNthAnti2B1,kmul(J33L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti3B2 = 
-        kmadd(J13L,PDupwindNthAnti1B2,kmadd(J23L,PDupwindNthAnti2B2,kmul(J33L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti3B3 = 
-        kmadd(J13L,PDupwindNthAnti1B3,kmadd(J23L,PDupwindNthAnti2B3,kmul(J33L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti3gt11 = 
-        kmadd(J13L,PDupwindNthAnti1gt11,kmadd(J23L,PDupwindNthAnti2gt11,kmul(J33L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti3gt12 = 
-        kmadd(J13L,PDupwindNthAnti1gt12,kmadd(J23L,PDupwindNthAnti2gt12,kmul(J33L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti3gt13 = 
-        kmadd(J13L,PDupwindNthAnti1gt13,kmadd(J23L,PDupwindNthAnti2gt13,kmul(J33L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti3gt22 = 
-        kmadd(J13L,PDupwindNthAnti1gt22,kmadd(J23L,PDupwindNthAnti2gt22,kmul(J33L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti3gt23 = 
-        kmadd(J13L,PDupwindNthAnti1gt23,kmadd(J23L,PDupwindNthAnti2gt23,kmul(J33L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti3gt33 = 
-        kmadd(J13L,PDupwindNthAnti1gt33,kmadd(J23L,PDupwindNthAnti2gt33,kmul(J33L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti3phi = 
-        kmadd(J13L,PDupwindNthAnti1phi,kmadd(J23L,PDupwindNthAnti2phi,kmul(J33L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti3trK = 
-        kmadd(J13L,PDupwindNthAnti1trK,kmadd(J23L,PDupwindNthAnti2trK,kmul(J33L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti3Xt1 = 
-        kmadd(J13L,PDupwindNthAnti1Xt1,kmadd(J23L,PDupwindNthAnti2Xt1,kmul(J33L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti3Xt2 = 
-        kmadd(J13L,PDupwindNthAnti1Xt2,kmadd(J23L,PDupwindNthAnti2Xt2,kmul(J33L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti3Xt3 = 
-        kmadd(J13L,PDupwindNthAnti1Xt3,kmadd(J23L,PDupwindNthAnti2Xt3,kmul(J33L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm3A = 
-        kmadd(J13L,PDupwindNthSymm1A,kmadd(J23L,PDupwindNthSymm2A,kmul(J33L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3At11 = 
-        kmadd(J13L,PDupwindNthSymm1At11,kmadd(J23L,PDupwindNthSymm2At11,kmul(J33L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm3At12 = 
-        kmadd(J13L,PDupwindNthSymm1At12,kmadd(J23L,PDupwindNthSymm2At12,kmul(J33L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm3At13 = 
-        kmadd(J13L,PDupwindNthSymm1At13,kmadd(J23L,PDupwindNthSymm2At13,kmul(J33L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm3At22 = 
-        kmadd(J13L,PDupwindNthSymm1At22,kmadd(J23L,PDupwindNthSymm2At22,kmul(J33L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm3At23 = 
-        kmadd(J13L,PDupwindNthSymm1At23,kmadd(J23L,PDupwindNthSymm2At23,kmul(J33L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm3At33 = 
-        kmadd(J13L,PDupwindNthSymm1At33,kmadd(J23L,PDupwindNthSymm2At33,kmul(J33L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm3B1 = 
-        kmadd(J13L,PDupwindNthSymm1B1,kmadd(J23L,PDupwindNthSymm2B1,kmul(J33L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm3B2 = 
-        kmadd(J13L,PDupwindNthSymm1B2,kmadd(J23L,PDupwindNthSymm2B2,kmul(J33L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm3B3 = 
-        kmadd(J13L,PDupwindNthSymm1B3,kmadd(J23L,PDupwindNthSymm2B3,kmul(J33L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm3gt11 = 
-        kmadd(J13L,PDupwindNthSymm1gt11,kmadd(J23L,PDupwindNthSymm2gt11,kmul(J33L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm3gt12 = 
-        kmadd(J13L,PDupwindNthSymm1gt12,kmadd(J23L,PDupwindNthSymm2gt12,kmul(J33L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm3gt13 = 
-        kmadd(J13L,PDupwindNthSymm1gt13,kmadd(J23L,PDupwindNthSymm2gt13,kmul(J33L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm3gt22 = 
-        kmadd(J13L,PDupwindNthSymm1gt22,kmadd(J23L,PDupwindNthSymm2gt22,kmul(J33L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm3gt23 = 
-        kmadd(J13L,PDupwindNthSymm1gt23,kmadd(J23L,PDupwindNthSymm2gt23,kmul(J33L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm3gt33 = 
-        kmadd(J13L,PDupwindNthSymm1gt33,kmadd(J23L,PDupwindNthSymm2gt33,kmul(J33L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm3phi = 
-        kmadd(J13L,PDupwindNthSymm1phi,kmadd(J23L,PDupwindNthSymm2phi,kmul(J33L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm3trK = 
-        kmadd(J13L,PDupwindNthSymm1trK,kmadd(J23L,PDupwindNthSymm2trK,kmul(J33L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm3Xt1 = 
-        kmadd(J13L,PDupwindNthSymm1Xt1,kmadd(J23L,PDupwindNthSymm2Xt1,kmul(J33L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm3Xt2 = 
-        kmadd(J13L,PDupwindNthSymm1Xt2,kmadd(J23L,PDupwindNthSymm2Xt2,kmul(J33L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm3Xt3 = 
-        kmadd(J13L,PDupwindNthSymm1Xt3,kmadd(J23L,PDupwindNthSymm2Xt3,kmul(J33L,PDupwindNthSymm3Xt3)));
-    }
-    else
-    {
-      JacPDupwindNthAnti1A = PDupwindNthAnti1A;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1At11 = PDupwindNthAnti1At11;
-      
-      JacPDupwindNthAnti1At12 = PDupwindNthAnti1At12;
-      
-      JacPDupwindNthAnti1At13 = PDupwindNthAnti1At13;
-      
-      JacPDupwindNthAnti1At22 = PDupwindNthAnti1At22;
-      
-      JacPDupwindNthAnti1At23 = PDupwindNthAnti1At23;
-      
-      JacPDupwindNthAnti1At33 = PDupwindNthAnti1At33;
-      
-      JacPDupwindNthAnti1B1 = PDupwindNthAnti1B1;
-      
-      JacPDupwindNthAnti1B2 = PDupwindNthAnti1B2;
-      
-      JacPDupwindNthAnti1B3 = PDupwindNthAnti1B3;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthAnti1gt11 = PDupwindNthAnti1gt11;
-      
-      JacPDupwindNthAnti1gt12 = PDupwindNthAnti1gt12;
-      
-      JacPDupwindNthAnti1gt13 = PDupwindNthAnti1gt13;
-      
-      JacPDupwindNthAnti1gt22 = PDupwindNthAnti1gt22;
-      
-      JacPDupwindNthAnti1gt23 = PDupwindNthAnti1gt23;
-      
-      JacPDupwindNthAnti1gt33 = PDupwindNthAnti1gt33;
-      
-      JacPDupwindNthAnti1phi = PDupwindNthAnti1phi;
-      
-      JacPDupwindNthAnti1trK = PDupwindNthAnti1trK;
-      
-      JacPDupwindNthAnti1Xt1 = PDupwindNthAnti1Xt1;
-      
-      JacPDupwindNthAnti1Xt2 = PDupwindNthAnti1Xt2;
-      
-      JacPDupwindNthAnti1Xt3 = PDupwindNthAnti1Xt3;
-      
-      JacPDupwindNthSymm1A = PDupwindNthSymm1A;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1At11 = PDupwindNthSymm1At11;
-      
-      JacPDupwindNthSymm1At12 = PDupwindNthSymm1At12;
-      
-      JacPDupwindNthSymm1At13 = PDupwindNthSymm1At13;
-      
-      JacPDupwindNthSymm1At22 = PDupwindNthSymm1At22;
-      
-      JacPDupwindNthSymm1At23 = PDupwindNthSymm1At23;
-      
-      JacPDupwindNthSymm1At33 = PDupwindNthSymm1At33;
-      
-      JacPDupwindNthSymm1B1 = PDupwindNthSymm1B1;
-      
-      JacPDupwindNthSymm1B2 = PDupwindNthSymm1B2;
-      
-      JacPDupwindNthSymm1B3 = PDupwindNthSymm1B3;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthSymm1gt11 = PDupwindNthSymm1gt11;
-      
-      JacPDupwindNthSymm1gt12 = PDupwindNthSymm1gt12;
-      
-      JacPDupwindNthSymm1gt13 = PDupwindNthSymm1gt13;
-      
-      JacPDupwindNthSymm1gt22 = PDupwindNthSymm1gt22;
-      
-      JacPDupwindNthSymm1gt23 = PDupwindNthSymm1gt23;
-      
-      JacPDupwindNthSymm1gt33 = PDupwindNthSymm1gt33;
-      
-      JacPDupwindNthSymm1phi = PDupwindNthSymm1phi;
-      
-      JacPDupwindNthSymm1trK = PDupwindNthSymm1trK;
-      
-      JacPDupwindNthSymm1Xt1 = PDupwindNthSymm1Xt1;
-      
-      JacPDupwindNthSymm1Xt2 = PDupwindNthSymm1Xt2;
-      
-      JacPDupwindNthSymm1Xt3 = PDupwindNthSymm1Xt3;
-      
-      JacPDupwindNthAnti2A = PDupwindNthAnti2A;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2At11 = PDupwindNthAnti2At11;
-      
-      JacPDupwindNthAnti2At12 = PDupwindNthAnti2At12;
-      
-      JacPDupwindNthAnti2At13 = PDupwindNthAnti2At13;
-      
-      JacPDupwindNthAnti2At22 = PDupwindNthAnti2At22;
-      
-      JacPDupwindNthAnti2At23 = PDupwindNthAnti2At23;
-      
-      JacPDupwindNthAnti2At33 = PDupwindNthAnti2At33;
-      
-      JacPDupwindNthAnti2B1 = PDupwindNthAnti2B1;
-      
-      JacPDupwindNthAnti2B2 = PDupwindNthAnti2B2;
-      
-      JacPDupwindNthAnti2B3 = PDupwindNthAnti2B3;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthAnti2gt11 = PDupwindNthAnti2gt11;
-      
-      JacPDupwindNthAnti2gt12 = PDupwindNthAnti2gt12;
-      
-      JacPDupwindNthAnti2gt13 = PDupwindNthAnti2gt13;
-      
-      JacPDupwindNthAnti2gt22 = PDupwindNthAnti2gt22;
-      
-      JacPDupwindNthAnti2gt23 = PDupwindNthAnti2gt23;
-      
-      JacPDupwindNthAnti2gt33 = PDupwindNthAnti2gt33;
-      
-      JacPDupwindNthAnti2phi = PDupwindNthAnti2phi;
-      
-      JacPDupwindNthAnti2trK = PDupwindNthAnti2trK;
-      
-      JacPDupwindNthAnti2Xt1 = PDupwindNthAnti2Xt1;
-      
-      JacPDupwindNthAnti2Xt2 = PDupwindNthAnti2Xt2;
-      
-      JacPDupwindNthAnti2Xt3 = PDupwindNthAnti2Xt3;
-      
-      JacPDupwindNthSymm2A = PDupwindNthSymm2A;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2At11 = PDupwindNthSymm2At11;
-      
-      JacPDupwindNthSymm2At12 = PDupwindNthSymm2At12;
-      
-      JacPDupwindNthSymm2At13 = PDupwindNthSymm2At13;
-      
-      JacPDupwindNthSymm2At22 = PDupwindNthSymm2At22;
-      
-      JacPDupwindNthSymm2At23 = PDupwindNthSymm2At23;
-      
-      JacPDupwindNthSymm2At33 = PDupwindNthSymm2At33;
-      
-      JacPDupwindNthSymm2B1 = PDupwindNthSymm2B1;
-      
-      JacPDupwindNthSymm2B2 = PDupwindNthSymm2B2;
-      
-      JacPDupwindNthSymm2B3 = PDupwindNthSymm2B3;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthSymm2gt11 = PDupwindNthSymm2gt11;
-      
-      JacPDupwindNthSymm2gt12 = PDupwindNthSymm2gt12;
-      
-      JacPDupwindNthSymm2gt13 = PDupwindNthSymm2gt13;
-      
-      JacPDupwindNthSymm2gt22 = PDupwindNthSymm2gt22;
-      
-      JacPDupwindNthSymm2gt23 = PDupwindNthSymm2gt23;
-      
-      JacPDupwindNthSymm2gt33 = PDupwindNthSymm2gt33;
-      
-      JacPDupwindNthSymm2phi = PDupwindNthSymm2phi;
-      
-      JacPDupwindNthSymm2trK = PDupwindNthSymm2trK;
-      
-      JacPDupwindNthSymm2Xt1 = PDupwindNthSymm2Xt1;
-      
-      JacPDupwindNthSymm2Xt2 = PDupwindNthSymm2Xt2;
-      
-      JacPDupwindNthSymm2Xt3 = PDupwindNthSymm2Xt3;
-      
-      JacPDupwindNthAnti3A = PDupwindNthAnti3A;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3At11 = PDupwindNthAnti3At11;
-      
-      JacPDupwindNthAnti3At12 = PDupwindNthAnti3At12;
-      
-      JacPDupwindNthAnti3At13 = PDupwindNthAnti3At13;
-      
-      JacPDupwindNthAnti3At22 = PDupwindNthAnti3At22;
-      
-      JacPDupwindNthAnti3At23 = PDupwindNthAnti3At23;
-      
-      JacPDupwindNthAnti3At33 = PDupwindNthAnti3At33;
-      
-      JacPDupwindNthAnti3B1 = PDupwindNthAnti3B1;
-      
-      JacPDupwindNthAnti3B2 = PDupwindNthAnti3B2;
-      
-      JacPDupwindNthAnti3B3 = PDupwindNthAnti3B3;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthAnti3gt11 = PDupwindNthAnti3gt11;
-      
-      JacPDupwindNthAnti3gt12 = PDupwindNthAnti3gt12;
-      
-      JacPDupwindNthAnti3gt13 = PDupwindNthAnti3gt13;
-      
-      JacPDupwindNthAnti3gt22 = PDupwindNthAnti3gt22;
-      
-      JacPDupwindNthAnti3gt23 = PDupwindNthAnti3gt23;
-      
-      JacPDupwindNthAnti3gt33 = PDupwindNthAnti3gt33;
-      
-      JacPDupwindNthAnti3phi = PDupwindNthAnti3phi;
-      
-      JacPDupwindNthAnti3trK = PDupwindNthAnti3trK;
-      
-      JacPDupwindNthAnti3Xt1 = PDupwindNthAnti3Xt1;
-      
-      JacPDupwindNthAnti3Xt2 = PDupwindNthAnti3Xt2;
-      
-      JacPDupwindNthAnti3Xt3 = PDupwindNthAnti3Xt3;
-      
-      JacPDupwindNthSymm3A = PDupwindNthSymm3A;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3At11 = PDupwindNthSymm3At11;
-      
-      JacPDupwindNthSymm3At12 = PDupwindNthSymm3At12;
-      
-      JacPDupwindNthSymm3At13 = PDupwindNthSymm3At13;
-      
-      JacPDupwindNthSymm3At22 = PDupwindNthSymm3At22;
-      
-      JacPDupwindNthSymm3At23 = PDupwindNthSymm3At23;
-      
-      JacPDupwindNthSymm3At33 = PDupwindNthSymm3At33;
-      
-      JacPDupwindNthSymm3B1 = PDupwindNthSymm3B1;
-      
-      JacPDupwindNthSymm3B2 = PDupwindNthSymm3B2;
-      
-      JacPDupwindNthSymm3B3 = PDupwindNthSymm3B3;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-      
-      JacPDupwindNthSymm3gt11 = PDupwindNthSymm3gt11;
-      
-      JacPDupwindNthSymm3gt12 = PDupwindNthSymm3gt12;
-      
-      JacPDupwindNthSymm3gt13 = PDupwindNthSymm3gt13;
-      
-      JacPDupwindNthSymm3gt22 = PDupwindNthSymm3gt22;
-      
-      JacPDupwindNthSymm3gt23 = PDupwindNthSymm3gt23;
-      
-      JacPDupwindNthSymm3gt33 = PDupwindNthSymm3gt33;
-      
-      JacPDupwindNthSymm3phi = PDupwindNthSymm3phi;
-      
-      JacPDupwindNthSymm3trK = PDupwindNthSymm3trK;
-      
-      JacPDupwindNthSymm3Xt1 = PDupwindNthSymm3Xt1;
-      
-      JacPDupwindNthSymm3Xt2 = PDupwindNthSymm3Xt2;
-      
-      JacPDupwindNthSymm3Xt3 = PDupwindNthSymm3Xt3;
-    }
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(beta1L,JacPDupwindNthAnti1phi,kmadd(beta2L,JacPDupwindNthAnti2phi,kmadd(beta3L,JacPDupwindNthAnti3phi,kmadd(JacPDupwindNthSymm1phi,kfabs(beta1L),kmadd(JacPDupwindNthSymm2phi,kfabs(beta2L),kmul(JacPDupwindNthSymm3phi,kfabs(beta3L))))))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt11,kmadd(beta2L,JacPDupwindNthAnti2gt11,kmadd(beta3L,JacPDupwindNthAnti3gt11,kmadd(JacPDupwindNthSymm1gt11,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt11,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt11,kfabs(beta3L))))))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt12,kmadd(beta2L,JacPDupwindNthAnti2gt12,kmadd(beta3L,JacPDupwindNthAnti3gt12,kmadd(JacPDupwindNthSymm1gt12,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt12,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt12,kfabs(beta3L))))))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt13,kmadd(beta2L,JacPDupwindNthAnti2gt13,kmadd(beta3L,JacPDupwindNthAnti3gt13,kmadd(JacPDupwindNthSymm1gt13,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt13,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt13,kfabs(beta3L))))))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt22,kmadd(beta2L,JacPDupwindNthAnti2gt22,kmadd(beta3L,JacPDupwindNthAnti3gt22,kmadd(JacPDupwindNthSymm1gt22,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt22,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt22,kfabs(beta3L))))))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt23,kmadd(beta2L,JacPDupwindNthAnti2gt23,kmadd(beta3L,JacPDupwindNthAnti3gt23,kmadd(JacPDupwindNthSymm1gt23,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt23,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt23,kfabs(beta3L))))))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt33,kmadd(beta2L,JacPDupwindNthAnti2gt33,kmadd(beta3L,JacPDupwindNthAnti3gt33,kmadd(JacPDupwindNthSymm1gt33,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt33,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt33,kfabs(beta3L))))))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt1,kmadd(beta2L,JacPDupwindNthAnti2Xt1,kmadd(beta3L,JacPDupwindNthAnti3Xt1,kmadd(JacPDupwindNthSymm1Xt1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt1,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt1,kfabs(beta3L))))))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt2,kmadd(beta2L,JacPDupwindNthAnti2Xt2,kmadd(beta3L,JacPDupwindNthAnti3Xt2,kmadd(JacPDupwindNthSymm1Xt2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt2,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt2,kfabs(beta3L))))))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt3,kmadd(beta2L,JacPDupwindNthAnti2Xt3,kmadd(beta3L,JacPDupwindNthAnti3Xt3,kmadd(JacPDupwindNthSymm1Xt3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt3,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt3,kfabs(beta3L))))))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(beta1L,JacPDupwindNthAnti1trK,kmadd(beta2L,JacPDupwindNthAnti2trK,kmadd(beta3L,JacPDupwindNthAnti3trK,kmadd(JacPDupwindNthSymm1trK,kfabs(beta1L),kmadd(JacPDupwindNthSymm2trK,kfabs(beta2L),kmul(JacPDupwindNthSymm3trK,kfabs(beta3L))))))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(beta1L,JacPDupwindNthAnti1At11,kmadd(beta2L,JacPDupwindNthAnti2At11,kmadd(beta3L,JacPDupwindNthAnti3At11,kmadd(JacPDupwindNthSymm1At11,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At11,kfabs(beta2L),kmul(JacPDupwindNthSymm3At11,kfabs(beta3L))))))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(beta1L,JacPDupwindNthAnti1At12,kmadd(beta2L,JacPDupwindNthAnti2At12,kmadd(beta3L,JacPDupwindNthAnti3At12,kmadd(JacPDupwindNthSymm1At12,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At12,kfabs(beta2L),kmul(JacPDupwindNthSymm3At12,kfabs(beta3L))))))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(beta1L,JacPDupwindNthAnti1At13,kmadd(beta2L,JacPDupwindNthAnti2At13,kmadd(beta3L,JacPDupwindNthAnti3At13,kmadd(JacPDupwindNthSymm1At13,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At13,kfabs(beta2L),kmul(JacPDupwindNthSymm3At13,kfabs(beta3L))))))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(beta1L,JacPDupwindNthAnti1At22,kmadd(beta2L,JacPDupwindNthAnti2At22,kmadd(beta3L,JacPDupwindNthAnti3At22,kmadd(JacPDupwindNthSymm1At22,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At22,kfabs(beta2L),kmul(JacPDupwindNthSymm3At22,kfabs(beta3L))))))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(beta1L,JacPDupwindNthAnti1At23,kmadd(beta2L,JacPDupwindNthAnti2At23,kmadd(beta3L,JacPDupwindNthAnti3At23,kmadd(JacPDupwindNthSymm1At23,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At23,kfabs(beta2L),kmul(JacPDupwindNthSymm3At23,kfabs(beta3L))))))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(beta1L,JacPDupwindNthAnti1At33,kmadd(beta2L,JacPDupwindNthAnti2At33,kmadd(beta3L,JacPDupwindNthAnti3At33,kmadd(JacPDupwindNthSymm1At33,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At33,kfabs(beta2L),kmul(JacPDupwindNthSymm3At33,kfabs(beta3L))))))));
-    
-    alpharhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),alpharhsL);
-    
-    ArhsL = 
-      kmadd(ToReal(LapseACoeff),kmsub(kmadd(beta1L,JacPDupwindNthAnti1A,kmadd(beta2L,JacPDupwindNthAnti2A,kmadd(beta3L,JacPDupwindNthAnti3A,kmadd(JacPDupwindNthSymm1A,kfabs(beta1L),kmadd(JacPDupwindNthSymm2A,kfabs(beta2L),kmul(JacPDupwindNthSymm3A,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1trK,kmadd(beta2L,JacPDupwindNthAnti2trK,kmadd(beta3L,JacPDupwindNthAnti3trK,kmadd(JacPDupwindNthSymm1trK,kfabs(beta1L),kmadd(JacPDupwindNthSymm2trK,kfabs(beta2L),kmul(JacPDupwindNthSymm3trK,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(LapseAdvectionCoeff)))),ArhsL);
-    
-    beta1rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta1rhsL);
-    
-    beta2rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta2rhsL);
-    
-    beta3rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta3rhsL);
-    
-    B1rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B1,kmadd(beta2L,JacPDupwindNthAnti2B1,kmadd(beta3L,JacPDupwindNthAnti3B1,kmadd(JacPDupwindNthSymm1B1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B1,kfabs(beta2L),kmul(JacPDupwindNthSymm3B1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt1,kmadd(beta2L,JacPDupwindNthAnti2Xt1,kmadd(beta3L,JacPDupwindNthAnti3Xt1,kmadd(JacPDupwindNthSymm1Xt1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt1,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt1,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B1rhsL);
-    
-    B2rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B2,kmadd(beta2L,JacPDupwindNthAnti2B2,kmadd(beta3L,JacPDupwindNthAnti3B2,kmadd(JacPDupwindNthSymm1B2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B2,kfabs(beta2L),kmul(JacPDupwindNthSymm3B2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt2,kmadd(beta2L,JacPDupwindNthAnti2Xt2,kmadd(beta3L,JacPDupwindNthAnti3Xt2,kmadd(JacPDupwindNthSymm1Xt2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt2,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt2,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B2rhsL);
-    
-    B3rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B3,kmadd(beta2L,JacPDupwindNthAnti2B3,kmadd(beta3L,JacPDupwindNthAnti3B3,kmadd(JacPDupwindNthSymm1B3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B3,kfabs(beta2L),kmul(JacPDupwindNthSymm3B3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt3,kmadd(beta2L,JacPDupwindNthAnti2Xt3,kmadd(beta3L,JacPDupwindNthAnti3Xt3,kmadd(JacPDupwindNthSymm1Xt3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt3,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt3,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B3rhsL);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_Advect);
-}
-
-extern "C" void ML_BSSN_MP_Advect(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_Advect_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_Advect_calc_every != ML_BSSN_MP_Advect_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_curvrhs",
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtlapserhs",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_dtshiftrhs",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_Gammarhs",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_lapserhs",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_log_confacrhs",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_metricrhs",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_shiftrhs",
-    "ML_BSSN_MP::ML_trace_curv",
-    "ML_BSSN_MP::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_Advect", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_Advect", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_Advect", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_Advect", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_Advect", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_Advect_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_Advect_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_Dissipation.cc b/ML_BSSN_MP/src/ML_BSSN_MP_Dissipation.cc
deleted file mode 100644
index 9e85cf5..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_Dissipation.cc
+++ /dev/null
@@ -1,1330 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_Dissipation_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_Dissipation_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_Dissipation,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDdissipationNth1A;
-    CCTK_REAL_VEC PDdissipationNth2A;
-    CCTK_REAL_VEC PDdissipationNth3A;
-    CCTK_REAL_VEC PDdissipationNth1alpha;
-    CCTK_REAL_VEC PDdissipationNth2alpha;
-    CCTK_REAL_VEC PDdissipationNth3alpha;
-    CCTK_REAL_VEC PDdissipationNth1At11;
-    CCTK_REAL_VEC PDdissipationNth2At11;
-    CCTK_REAL_VEC PDdissipationNth3At11;
-    CCTK_REAL_VEC PDdissipationNth1At12;
-    CCTK_REAL_VEC PDdissipationNth2At12;
-    CCTK_REAL_VEC PDdissipationNth3At12;
-    CCTK_REAL_VEC PDdissipationNth1At13;
-    CCTK_REAL_VEC PDdissipationNth2At13;
-    CCTK_REAL_VEC PDdissipationNth3At13;
-    CCTK_REAL_VEC PDdissipationNth1At22;
-    CCTK_REAL_VEC PDdissipationNth2At22;
-    CCTK_REAL_VEC PDdissipationNth3At22;
-    CCTK_REAL_VEC PDdissipationNth1At23;
-    CCTK_REAL_VEC PDdissipationNth2At23;
-    CCTK_REAL_VEC PDdissipationNth3At23;
-    CCTK_REAL_VEC PDdissipationNth1At33;
-    CCTK_REAL_VEC PDdissipationNth2At33;
-    CCTK_REAL_VEC PDdissipationNth3At33;
-    CCTK_REAL_VEC PDdissipationNth1B1;
-    CCTK_REAL_VEC PDdissipationNth2B1;
-    CCTK_REAL_VEC PDdissipationNth3B1;
-    CCTK_REAL_VEC PDdissipationNth1B2;
-    CCTK_REAL_VEC PDdissipationNth2B2;
-    CCTK_REAL_VEC PDdissipationNth3B2;
-    CCTK_REAL_VEC PDdissipationNth1B3;
-    CCTK_REAL_VEC PDdissipationNth2B3;
-    CCTK_REAL_VEC PDdissipationNth3B3;
-    CCTK_REAL_VEC PDdissipationNth1beta1;
-    CCTK_REAL_VEC PDdissipationNth2beta1;
-    CCTK_REAL_VEC PDdissipationNth3beta1;
-    CCTK_REAL_VEC PDdissipationNth1beta2;
-    CCTK_REAL_VEC PDdissipationNth2beta2;
-    CCTK_REAL_VEC PDdissipationNth3beta2;
-    CCTK_REAL_VEC PDdissipationNth1beta3;
-    CCTK_REAL_VEC PDdissipationNth2beta3;
-    CCTK_REAL_VEC PDdissipationNth3beta3;
-    CCTK_REAL_VEC PDdissipationNth1gt11;
-    CCTK_REAL_VEC PDdissipationNth2gt11;
-    CCTK_REAL_VEC PDdissipationNth3gt11;
-    CCTK_REAL_VEC PDdissipationNth1gt12;
-    CCTK_REAL_VEC PDdissipationNth2gt12;
-    CCTK_REAL_VEC PDdissipationNth3gt12;
-    CCTK_REAL_VEC PDdissipationNth1gt13;
-    CCTK_REAL_VEC PDdissipationNth2gt13;
-    CCTK_REAL_VEC PDdissipationNth3gt13;
-    CCTK_REAL_VEC PDdissipationNth1gt22;
-    CCTK_REAL_VEC PDdissipationNth2gt22;
-    CCTK_REAL_VEC PDdissipationNth3gt22;
-    CCTK_REAL_VEC PDdissipationNth1gt23;
-    CCTK_REAL_VEC PDdissipationNth2gt23;
-    CCTK_REAL_VEC PDdissipationNth3gt23;
-    CCTK_REAL_VEC PDdissipationNth1gt33;
-    CCTK_REAL_VEC PDdissipationNth2gt33;
-    CCTK_REAL_VEC PDdissipationNth3gt33;
-    CCTK_REAL_VEC PDdissipationNth1phi;
-    CCTK_REAL_VEC PDdissipationNth2phi;
-    CCTK_REAL_VEC PDdissipationNth3phi;
-    CCTK_REAL_VEC PDdissipationNth1trK;
-    CCTK_REAL_VEC PDdissipationNth2trK;
-    CCTK_REAL_VEC PDdissipationNth3trK;
-    CCTK_REAL_VEC PDdissipationNth1Xt1;
-    CCTK_REAL_VEC PDdissipationNth2Xt1;
-    CCTK_REAL_VEC PDdissipationNth3Xt1;
-    CCTK_REAL_VEC PDdissipationNth1Xt2;
-    CCTK_REAL_VEC PDdissipationNth2Xt2;
-    CCTK_REAL_VEC PDdissipationNth3Xt2;
-    CCTK_REAL_VEC PDdissipationNth1Xt3;
-    CCTK_REAL_VEC PDdissipationNth2Xt3;
-    CCTK_REAL_VEC PDdissipationNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDdissipationNth1A = PDdissipationNthfdOrder21(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder22(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder23(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder21(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder22(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder23(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder21(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder22(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder23(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder21(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder22(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder23(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder21(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder22(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder23(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder21(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder22(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder23(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder21(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder22(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder23(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder21(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder22(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder23(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder21(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder22(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder23(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder21(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder22(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder23(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder21(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder22(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder23(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder21(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder22(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder23(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder21(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder22(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder23(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder21(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder22(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder23(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder21(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder22(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder23(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder21(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder22(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder23(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder21(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder22(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder23(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder21(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder22(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder23(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder21(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder22(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder23(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder21(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder22(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder23(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder21(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder22(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder23(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder21(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder22(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder23(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder21(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder22(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder23(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder21(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder22(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder23(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder21(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder22(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDdissipationNth1A = PDdissipationNthfdOrder41(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder42(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder43(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder41(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder42(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder43(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder41(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder42(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder43(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder41(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder42(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder43(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder41(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder42(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder43(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder41(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder42(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder43(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder41(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder42(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder43(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder41(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder42(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder43(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder41(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder42(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder43(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder41(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder42(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder43(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder41(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder42(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder43(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder41(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder42(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder43(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder41(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder42(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder43(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder41(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder42(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder43(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder41(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder42(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder43(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder41(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder42(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder43(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder41(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder42(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder43(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder41(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder42(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder43(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder41(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder42(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder43(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder41(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder42(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder43(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder41(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder42(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder43(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder41(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder42(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder43(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder41(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder42(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder43(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder41(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder42(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder43(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder41(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder42(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDdissipationNth1A = PDdissipationNthfdOrder61(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder62(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder63(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder61(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder62(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder63(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder61(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder62(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder63(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder61(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder62(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder63(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder61(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder62(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder63(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder61(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder62(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder63(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder61(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder62(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder63(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder61(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder62(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder63(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder61(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder62(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder63(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder61(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder62(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder63(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder61(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder62(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder63(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder61(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder62(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder63(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder61(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder62(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder63(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder61(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder62(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder63(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder61(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder62(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder63(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder61(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder62(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder63(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder61(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder62(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder63(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder61(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder62(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder63(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder61(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder62(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder63(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder61(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder62(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder63(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder61(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder62(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder63(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder61(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder62(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder63(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder61(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder62(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder63(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder61(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder62(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder63(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder61(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder62(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDdissipationNth1A = PDdissipationNthfdOrder81(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder82(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder83(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder81(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder82(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder83(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder81(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder82(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder83(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder81(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder82(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder83(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder81(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder82(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder83(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder81(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder82(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder83(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder81(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder82(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder83(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder81(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder82(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder83(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder81(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder82(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder83(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder81(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder82(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder83(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder81(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder82(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder83(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder81(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder82(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder83(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder81(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder82(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder83(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder81(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder82(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder83(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder81(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder82(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder83(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder81(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder82(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder83(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder81(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder82(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder83(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder81(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder82(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder83(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder81(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder82(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder83(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder81(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder82(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder83(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder81(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder82(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder83(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder81(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder82(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder83(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder81(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder82(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder83(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder81(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder82(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder83(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder81(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder82(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDdissipationNth1A;
-    CCTK_REAL_VEC JacPDdissipationNth1alpha;
-    CCTK_REAL_VEC JacPDdissipationNth1At11;
-    CCTK_REAL_VEC JacPDdissipationNth1At12;
-    CCTK_REAL_VEC JacPDdissipationNth1At13;
-    CCTK_REAL_VEC JacPDdissipationNth1At22;
-    CCTK_REAL_VEC JacPDdissipationNth1At23;
-    CCTK_REAL_VEC JacPDdissipationNth1At33;
-    CCTK_REAL_VEC JacPDdissipationNth1B1;
-    CCTK_REAL_VEC JacPDdissipationNth1B2;
-    CCTK_REAL_VEC JacPDdissipationNth1B3;
-    CCTK_REAL_VEC JacPDdissipationNth1beta1;
-    CCTK_REAL_VEC JacPDdissipationNth1beta2;
-    CCTK_REAL_VEC JacPDdissipationNth1beta3;
-    CCTK_REAL_VEC JacPDdissipationNth1gt11;
-    CCTK_REAL_VEC JacPDdissipationNth1gt12;
-    CCTK_REAL_VEC JacPDdissipationNth1gt13;
-    CCTK_REAL_VEC JacPDdissipationNth1gt22;
-    CCTK_REAL_VEC JacPDdissipationNth1gt23;
-    CCTK_REAL_VEC JacPDdissipationNth1gt33;
-    CCTK_REAL_VEC JacPDdissipationNth1phi;
-    CCTK_REAL_VEC JacPDdissipationNth1trK;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth2A;
-    CCTK_REAL_VEC JacPDdissipationNth2alpha;
-    CCTK_REAL_VEC JacPDdissipationNth2At11;
-    CCTK_REAL_VEC JacPDdissipationNth2At12;
-    CCTK_REAL_VEC JacPDdissipationNth2At13;
-    CCTK_REAL_VEC JacPDdissipationNth2At22;
-    CCTK_REAL_VEC JacPDdissipationNth2At23;
-    CCTK_REAL_VEC JacPDdissipationNth2At33;
-    CCTK_REAL_VEC JacPDdissipationNth2B1;
-    CCTK_REAL_VEC JacPDdissipationNth2B2;
-    CCTK_REAL_VEC JacPDdissipationNth2B3;
-    CCTK_REAL_VEC JacPDdissipationNth2beta1;
-    CCTK_REAL_VEC JacPDdissipationNth2beta2;
-    CCTK_REAL_VEC JacPDdissipationNth2beta3;
-    CCTK_REAL_VEC JacPDdissipationNth2gt11;
-    CCTK_REAL_VEC JacPDdissipationNth2gt12;
-    CCTK_REAL_VEC JacPDdissipationNth2gt13;
-    CCTK_REAL_VEC JacPDdissipationNth2gt22;
-    CCTK_REAL_VEC JacPDdissipationNth2gt23;
-    CCTK_REAL_VEC JacPDdissipationNth2gt33;
-    CCTK_REAL_VEC JacPDdissipationNth2phi;
-    CCTK_REAL_VEC JacPDdissipationNth2trK;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth3A;
-    CCTK_REAL_VEC JacPDdissipationNth3alpha;
-    CCTK_REAL_VEC JacPDdissipationNth3At11;
-    CCTK_REAL_VEC JacPDdissipationNth3At12;
-    CCTK_REAL_VEC JacPDdissipationNth3At13;
-    CCTK_REAL_VEC JacPDdissipationNth3At22;
-    CCTK_REAL_VEC JacPDdissipationNth3At23;
-    CCTK_REAL_VEC JacPDdissipationNth3At33;
-    CCTK_REAL_VEC JacPDdissipationNth3B1;
-    CCTK_REAL_VEC JacPDdissipationNth3B2;
-    CCTK_REAL_VEC JacPDdissipationNth3B3;
-    CCTK_REAL_VEC JacPDdissipationNth3beta1;
-    CCTK_REAL_VEC JacPDdissipationNth3beta2;
-    CCTK_REAL_VEC JacPDdissipationNth3beta3;
-    CCTK_REAL_VEC JacPDdissipationNth3gt11;
-    CCTK_REAL_VEC JacPDdissipationNth3gt12;
-    CCTK_REAL_VEC JacPDdissipationNth3gt13;
-    CCTK_REAL_VEC JacPDdissipationNth3gt22;
-    CCTK_REAL_VEC JacPDdissipationNth3gt23;
-    CCTK_REAL_VEC JacPDdissipationNth3gt33;
-    CCTK_REAL_VEC JacPDdissipationNth3phi;
-    CCTK_REAL_VEC JacPDdissipationNth3trK;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDdissipationNth1A = 
-        kmadd(J11L,PDdissipationNth1A,kmadd(J21L,PDdissipationNth2A,kmul(J31L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth1alpha = 
-        kmadd(J11L,PDdissipationNth1alpha,kmadd(J21L,PDdissipationNth2alpha,kmul(J31L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth1At11 = 
-        kmadd(J11L,PDdissipationNth1At11,kmadd(J21L,PDdissipationNth2At11,kmul(J31L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth1At12 = 
-        kmadd(J11L,PDdissipationNth1At12,kmadd(J21L,PDdissipationNth2At12,kmul(J31L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth1At13 = 
-        kmadd(J11L,PDdissipationNth1At13,kmadd(J21L,PDdissipationNth2At13,kmul(J31L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth1At22 = 
-        kmadd(J11L,PDdissipationNth1At22,kmadd(J21L,PDdissipationNth2At22,kmul(J31L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth1At23 = 
-        kmadd(J11L,PDdissipationNth1At23,kmadd(J21L,PDdissipationNth2At23,kmul(J31L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth1At33 = 
-        kmadd(J11L,PDdissipationNth1At33,kmadd(J21L,PDdissipationNth2At33,kmul(J31L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth1B1 = 
-        kmadd(J11L,PDdissipationNth1B1,kmadd(J21L,PDdissipationNth2B1,kmul(J31L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth1B2 = 
-        kmadd(J11L,PDdissipationNth1B2,kmadd(J21L,PDdissipationNth2B2,kmul(J31L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth1B3 = 
-        kmadd(J11L,PDdissipationNth1B3,kmadd(J21L,PDdissipationNth2B3,kmul(J31L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth1beta1 = 
-        kmadd(J11L,PDdissipationNth1beta1,kmadd(J21L,PDdissipationNth2beta1,kmul(J31L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth1beta2 = 
-        kmadd(J11L,PDdissipationNth1beta2,kmadd(J21L,PDdissipationNth2beta2,kmul(J31L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth1beta3 = 
-        kmadd(J11L,PDdissipationNth1beta3,kmadd(J21L,PDdissipationNth2beta3,kmul(J31L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth1gt11 = 
-        kmadd(J11L,PDdissipationNth1gt11,kmadd(J21L,PDdissipationNth2gt11,kmul(J31L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth1gt12 = 
-        kmadd(J11L,PDdissipationNth1gt12,kmadd(J21L,PDdissipationNth2gt12,kmul(J31L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth1gt13 = 
-        kmadd(J11L,PDdissipationNth1gt13,kmadd(J21L,PDdissipationNth2gt13,kmul(J31L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth1gt22 = 
-        kmadd(J11L,PDdissipationNth1gt22,kmadd(J21L,PDdissipationNth2gt22,kmul(J31L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth1gt23 = 
-        kmadd(J11L,PDdissipationNth1gt23,kmadd(J21L,PDdissipationNth2gt23,kmul(J31L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth1gt33 = 
-        kmadd(J11L,PDdissipationNth1gt33,kmadd(J21L,PDdissipationNth2gt33,kmul(J31L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth1phi = 
-        kmadd(J11L,PDdissipationNth1phi,kmadd(J21L,PDdissipationNth2phi,kmul(J31L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth1trK = 
-        kmadd(J11L,PDdissipationNth1trK,kmadd(J21L,PDdissipationNth2trK,kmul(J31L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth1Xt1 = 
-        kmadd(J11L,PDdissipationNth1Xt1,kmadd(J21L,PDdissipationNth2Xt1,kmul(J31L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth1Xt2 = 
-        kmadd(J11L,PDdissipationNth1Xt2,kmadd(J21L,PDdissipationNth2Xt2,kmul(J31L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth1Xt3 = 
-        kmadd(J11L,PDdissipationNth1Xt3,kmadd(J21L,PDdissipationNth2Xt3,kmul(J31L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth2A = 
-        kmadd(J12L,PDdissipationNth1A,kmadd(J22L,PDdissipationNth2A,kmul(J32L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth2alpha = 
-        kmadd(J12L,PDdissipationNth1alpha,kmadd(J22L,PDdissipationNth2alpha,kmul(J32L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth2At11 = 
-        kmadd(J12L,PDdissipationNth1At11,kmadd(J22L,PDdissipationNth2At11,kmul(J32L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth2At12 = 
-        kmadd(J12L,PDdissipationNth1At12,kmadd(J22L,PDdissipationNth2At12,kmul(J32L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth2At13 = 
-        kmadd(J12L,PDdissipationNth1At13,kmadd(J22L,PDdissipationNth2At13,kmul(J32L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth2At22 = 
-        kmadd(J12L,PDdissipationNth1At22,kmadd(J22L,PDdissipationNth2At22,kmul(J32L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth2At23 = 
-        kmadd(J12L,PDdissipationNth1At23,kmadd(J22L,PDdissipationNth2At23,kmul(J32L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth2At33 = 
-        kmadd(J12L,PDdissipationNth1At33,kmadd(J22L,PDdissipationNth2At33,kmul(J32L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth2B1 = 
-        kmadd(J12L,PDdissipationNth1B1,kmadd(J22L,PDdissipationNth2B1,kmul(J32L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth2B2 = 
-        kmadd(J12L,PDdissipationNth1B2,kmadd(J22L,PDdissipationNth2B2,kmul(J32L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth2B3 = 
-        kmadd(J12L,PDdissipationNth1B3,kmadd(J22L,PDdissipationNth2B3,kmul(J32L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth2beta1 = 
-        kmadd(J12L,PDdissipationNth1beta1,kmadd(J22L,PDdissipationNth2beta1,kmul(J32L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth2beta2 = 
-        kmadd(J12L,PDdissipationNth1beta2,kmadd(J22L,PDdissipationNth2beta2,kmul(J32L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth2beta3 = 
-        kmadd(J12L,PDdissipationNth1beta3,kmadd(J22L,PDdissipationNth2beta3,kmul(J32L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth2gt11 = 
-        kmadd(J12L,PDdissipationNth1gt11,kmadd(J22L,PDdissipationNth2gt11,kmul(J32L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth2gt12 = 
-        kmadd(J12L,PDdissipationNth1gt12,kmadd(J22L,PDdissipationNth2gt12,kmul(J32L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth2gt13 = 
-        kmadd(J12L,PDdissipationNth1gt13,kmadd(J22L,PDdissipationNth2gt13,kmul(J32L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth2gt22 = 
-        kmadd(J12L,PDdissipationNth1gt22,kmadd(J22L,PDdissipationNth2gt22,kmul(J32L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth2gt23 = 
-        kmadd(J12L,PDdissipationNth1gt23,kmadd(J22L,PDdissipationNth2gt23,kmul(J32L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth2gt33 = 
-        kmadd(J12L,PDdissipationNth1gt33,kmadd(J22L,PDdissipationNth2gt33,kmul(J32L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth2phi = 
-        kmadd(J12L,PDdissipationNth1phi,kmadd(J22L,PDdissipationNth2phi,kmul(J32L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth2trK = 
-        kmadd(J12L,PDdissipationNth1trK,kmadd(J22L,PDdissipationNth2trK,kmul(J32L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth2Xt1 = 
-        kmadd(J12L,PDdissipationNth1Xt1,kmadd(J22L,PDdissipationNth2Xt1,kmul(J32L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth2Xt2 = 
-        kmadd(J12L,PDdissipationNth1Xt2,kmadd(J22L,PDdissipationNth2Xt2,kmul(J32L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth2Xt3 = 
-        kmadd(J12L,PDdissipationNth1Xt3,kmadd(J22L,PDdissipationNth2Xt3,kmul(J32L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth3A = 
-        kmadd(J13L,PDdissipationNth1A,kmadd(J23L,PDdissipationNth2A,kmul(J33L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth3alpha = 
-        kmadd(J13L,PDdissipationNth1alpha,kmadd(J23L,PDdissipationNth2alpha,kmul(J33L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth3At11 = 
-        kmadd(J13L,PDdissipationNth1At11,kmadd(J23L,PDdissipationNth2At11,kmul(J33L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth3At12 = 
-        kmadd(J13L,PDdissipationNth1At12,kmadd(J23L,PDdissipationNth2At12,kmul(J33L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth3At13 = 
-        kmadd(J13L,PDdissipationNth1At13,kmadd(J23L,PDdissipationNth2At13,kmul(J33L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth3At22 = 
-        kmadd(J13L,PDdissipationNth1At22,kmadd(J23L,PDdissipationNth2At22,kmul(J33L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth3At23 = 
-        kmadd(J13L,PDdissipationNth1At23,kmadd(J23L,PDdissipationNth2At23,kmul(J33L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth3At33 = 
-        kmadd(J13L,PDdissipationNth1At33,kmadd(J23L,PDdissipationNth2At33,kmul(J33L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth3B1 = 
-        kmadd(J13L,PDdissipationNth1B1,kmadd(J23L,PDdissipationNth2B1,kmul(J33L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth3B2 = 
-        kmadd(J13L,PDdissipationNth1B2,kmadd(J23L,PDdissipationNth2B2,kmul(J33L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth3B3 = 
-        kmadd(J13L,PDdissipationNth1B3,kmadd(J23L,PDdissipationNth2B3,kmul(J33L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth3beta1 = 
-        kmadd(J13L,PDdissipationNth1beta1,kmadd(J23L,PDdissipationNth2beta1,kmul(J33L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth3beta2 = 
-        kmadd(J13L,PDdissipationNth1beta2,kmadd(J23L,PDdissipationNth2beta2,kmul(J33L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth3beta3 = 
-        kmadd(J13L,PDdissipationNth1beta3,kmadd(J23L,PDdissipationNth2beta3,kmul(J33L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth3gt11 = 
-        kmadd(J13L,PDdissipationNth1gt11,kmadd(J23L,PDdissipationNth2gt11,kmul(J33L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth3gt12 = 
-        kmadd(J13L,PDdissipationNth1gt12,kmadd(J23L,PDdissipationNth2gt12,kmul(J33L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth3gt13 = 
-        kmadd(J13L,PDdissipationNth1gt13,kmadd(J23L,PDdissipationNth2gt13,kmul(J33L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth3gt22 = 
-        kmadd(J13L,PDdissipationNth1gt22,kmadd(J23L,PDdissipationNth2gt22,kmul(J33L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth3gt23 = 
-        kmadd(J13L,PDdissipationNth1gt23,kmadd(J23L,PDdissipationNth2gt23,kmul(J33L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth3gt33 = 
-        kmadd(J13L,PDdissipationNth1gt33,kmadd(J23L,PDdissipationNth2gt33,kmul(J33L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth3phi = 
-        kmadd(J13L,PDdissipationNth1phi,kmadd(J23L,PDdissipationNth2phi,kmul(J33L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth3trK = 
-        kmadd(J13L,PDdissipationNth1trK,kmadd(J23L,PDdissipationNth2trK,kmul(J33L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth3Xt1 = 
-        kmadd(J13L,PDdissipationNth1Xt1,kmadd(J23L,PDdissipationNth2Xt1,kmul(J33L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth3Xt2 = 
-        kmadd(J13L,PDdissipationNth1Xt2,kmadd(J23L,PDdissipationNth2Xt2,kmul(J33L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth3Xt3 = 
-        kmadd(J13L,PDdissipationNth1Xt3,kmadd(J23L,PDdissipationNth2Xt3,kmul(J33L,PDdissipationNth3Xt3)));
-    }
-    else
-    {
-      JacPDdissipationNth1A = PDdissipationNth1A;
-      
-      JacPDdissipationNth1alpha = PDdissipationNth1alpha;
-      
-      JacPDdissipationNth1At11 = PDdissipationNth1At11;
-      
-      JacPDdissipationNth1At12 = PDdissipationNth1At12;
-      
-      JacPDdissipationNth1At13 = PDdissipationNth1At13;
-      
-      JacPDdissipationNth1At22 = PDdissipationNth1At22;
-      
-      JacPDdissipationNth1At23 = PDdissipationNth1At23;
-      
-      JacPDdissipationNth1At33 = PDdissipationNth1At33;
-      
-      JacPDdissipationNth1B1 = PDdissipationNth1B1;
-      
-      JacPDdissipationNth1B2 = PDdissipationNth1B2;
-      
-      JacPDdissipationNth1B3 = PDdissipationNth1B3;
-      
-      JacPDdissipationNth1beta1 = PDdissipationNth1beta1;
-      
-      JacPDdissipationNth1beta2 = PDdissipationNth1beta2;
-      
-      JacPDdissipationNth1beta3 = PDdissipationNth1beta3;
-      
-      JacPDdissipationNth1gt11 = PDdissipationNth1gt11;
-      
-      JacPDdissipationNth1gt12 = PDdissipationNth1gt12;
-      
-      JacPDdissipationNth1gt13 = PDdissipationNth1gt13;
-      
-      JacPDdissipationNth1gt22 = PDdissipationNth1gt22;
-      
-      JacPDdissipationNth1gt23 = PDdissipationNth1gt23;
-      
-      JacPDdissipationNth1gt33 = PDdissipationNth1gt33;
-      
-      JacPDdissipationNth1phi = PDdissipationNth1phi;
-      
-      JacPDdissipationNth1trK = PDdissipationNth1trK;
-      
-      JacPDdissipationNth1Xt1 = PDdissipationNth1Xt1;
-      
-      JacPDdissipationNth1Xt2 = PDdissipationNth1Xt2;
-      
-      JacPDdissipationNth1Xt3 = PDdissipationNth1Xt3;
-      
-      JacPDdissipationNth2A = PDdissipationNth2A;
-      
-      JacPDdissipationNth2alpha = PDdissipationNth2alpha;
-      
-      JacPDdissipationNth2At11 = PDdissipationNth2At11;
-      
-      JacPDdissipationNth2At12 = PDdissipationNth2At12;
-      
-      JacPDdissipationNth2At13 = PDdissipationNth2At13;
-      
-      JacPDdissipationNth2At22 = PDdissipationNth2At22;
-      
-      JacPDdissipationNth2At23 = PDdissipationNth2At23;
-      
-      JacPDdissipationNth2At33 = PDdissipationNth2At33;
-      
-      JacPDdissipationNth2B1 = PDdissipationNth2B1;
-      
-      JacPDdissipationNth2B2 = PDdissipationNth2B2;
-      
-      JacPDdissipationNth2B3 = PDdissipationNth2B3;
-      
-      JacPDdissipationNth2beta1 = PDdissipationNth2beta1;
-      
-      JacPDdissipationNth2beta2 = PDdissipationNth2beta2;
-      
-      JacPDdissipationNth2beta3 = PDdissipationNth2beta3;
-      
-      JacPDdissipationNth2gt11 = PDdissipationNth2gt11;
-      
-      JacPDdissipationNth2gt12 = PDdissipationNth2gt12;
-      
-      JacPDdissipationNth2gt13 = PDdissipationNth2gt13;
-      
-      JacPDdissipationNth2gt22 = PDdissipationNth2gt22;
-      
-      JacPDdissipationNth2gt23 = PDdissipationNth2gt23;
-      
-      JacPDdissipationNth2gt33 = PDdissipationNth2gt33;
-      
-      JacPDdissipationNth2phi = PDdissipationNth2phi;
-      
-      JacPDdissipationNth2trK = PDdissipationNth2trK;
-      
-      JacPDdissipationNth2Xt1 = PDdissipationNth2Xt1;
-      
-      JacPDdissipationNth2Xt2 = PDdissipationNth2Xt2;
-      
-      JacPDdissipationNth2Xt3 = PDdissipationNth2Xt3;
-      
-      JacPDdissipationNth3A = PDdissipationNth3A;
-      
-      JacPDdissipationNth3alpha = PDdissipationNth3alpha;
-      
-      JacPDdissipationNth3At11 = PDdissipationNth3At11;
-      
-      JacPDdissipationNth3At12 = PDdissipationNth3At12;
-      
-      JacPDdissipationNth3At13 = PDdissipationNth3At13;
-      
-      JacPDdissipationNth3At22 = PDdissipationNth3At22;
-      
-      JacPDdissipationNth3At23 = PDdissipationNth3At23;
-      
-      JacPDdissipationNth3At33 = PDdissipationNth3At33;
-      
-      JacPDdissipationNth3B1 = PDdissipationNth3B1;
-      
-      JacPDdissipationNth3B2 = PDdissipationNth3B2;
-      
-      JacPDdissipationNth3B3 = PDdissipationNth3B3;
-      
-      JacPDdissipationNth3beta1 = PDdissipationNth3beta1;
-      
-      JacPDdissipationNth3beta2 = PDdissipationNth3beta2;
-      
-      JacPDdissipationNth3beta3 = PDdissipationNth3beta3;
-      
-      JacPDdissipationNth3gt11 = PDdissipationNth3gt11;
-      
-      JacPDdissipationNth3gt12 = PDdissipationNth3gt12;
-      
-      JacPDdissipationNth3gt13 = PDdissipationNth3gt13;
-      
-      JacPDdissipationNth3gt22 = PDdissipationNth3gt22;
-      
-      JacPDdissipationNth3gt23 = PDdissipationNth3gt23;
-      
-      JacPDdissipationNth3gt33 = PDdissipationNth3gt33;
-      
-      JacPDdissipationNth3phi = PDdissipationNth3phi;
-      
-      JacPDdissipationNth3trK = PDdissipationNth3trK;
-      
-      JacPDdissipationNth3Xt1 = PDdissipationNth3Xt1;
-      
-      JacPDdissipationNth3Xt2 = PDdissipationNth3Xt2;
-      
-      JacPDdissipationNth3Xt3 = PDdissipationNth3Xt3;
-    }
-    
-    CCTK_REAL_VEC epsdiss1 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss2 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss3 = ToReal(EpsDiss);
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(epsdiss1,JacPDdissipationNth1phi,kmadd(epsdiss2,JacPDdissipationNth2phi,kmul(epsdiss3,JacPDdissipationNth3phi))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt11,kmadd(epsdiss2,JacPDdissipationNth2gt11,kmul(epsdiss3,JacPDdissipationNth3gt11))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt12,kmadd(epsdiss2,JacPDdissipationNth2gt12,kmul(epsdiss3,JacPDdissipationNth3gt12))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt13,kmadd(epsdiss2,JacPDdissipationNth2gt13,kmul(epsdiss3,JacPDdissipationNth3gt13))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt22,kmadd(epsdiss2,JacPDdissipationNth2gt22,kmul(epsdiss3,JacPDdissipationNth3gt22))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt23,kmadd(epsdiss2,JacPDdissipationNth2gt23,kmul(epsdiss3,JacPDdissipationNth3gt23))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt33,kmadd(epsdiss2,JacPDdissipationNth2gt33,kmul(epsdiss3,JacPDdissipationNth3gt33))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt1,kmadd(epsdiss2,JacPDdissipationNth2Xt1,kmul(epsdiss3,JacPDdissipationNth3Xt1))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt2,kmadd(epsdiss2,JacPDdissipationNth2Xt2,kmul(epsdiss3,JacPDdissipationNth3Xt2))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt3,kmadd(epsdiss2,JacPDdissipationNth2Xt3,kmul(epsdiss3,JacPDdissipationNth3Xt3))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(epsdiss1,JacPDdissipationNth1trK,kmadd(epsdiss2,JacPDdissipationNth2trK,kmul(epsdiss3,JacPDdissipationNth3trK))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(epsdiss1,JacPDdissipationNth1At11,kmadd(epsdiss2,JacPDdissipationNth2At11,kmul(epsdiss3,JacPDdissipationNth3At11))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(epsdiss1,JacPDdissipationNth1At12,kmadd(epsdiss2,JacPDdissipationNth2At12,kmul(epsdiss3,JacPDdissipationNth3At12))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(epsdiss1,JacPDdissipationNth1At13,kmadd(epsdiss2,JacPDdissipationNth2At13,kmul(epsdiss3,JacPDdissipationNth3At13))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(epsdiss1,JacPDdissipationNth1At22,kmadd(epsdiss2,JacPDdissipationNth2At22,kmul(epsdiss3,JacPDdissipationNth3At22))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(epsdiss1,JacPDdissipationNth1At23,kmadd(epsdiss2,JacPDdissipationNth2At23,kmul(epsdiss3,JacPDdissipationNth3At23))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(epsdiss1,JacPDdissipationNth1At33,kmadd(epsdiss2,JacPDdissipationNth2At33,kmul(epsdiss3,JacPDdissipationNth3At33))));
-    
-    alpharhsL = 
-      kadd(alpharhsL,kmadd(epsdiss1,JacPDdissipationNth1alpha,kmadd(epsdiss2,JacPDdissipationNth2alpha,kmul(epsdiss3,JacPDdissipationNth3alpha))));
-    
-    ArhsL = 
-      kadd(ArhsL,kmadd(epsdiss1,JacPDdissipationNth1A,kmadd(epsdiss2,JacPDdissipationNth2A,kmul(epsdiss3,JacPDdissipationNth3A))));
-    
-    beta1rhsL = 
-      kadd(beta1rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta1,kmadd(epsdiss2,JacPDdissipationNth2beta1,kmul(epsdiss3,JacPDdissipationNth3beta1))));
-    
-    beta2rhsL = 
-      kadd(beta2rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta2,kmadd(epsdiss2,JacPDdissipationNth2beta2,kmul(epsdiss3,JacPDdissipationNth3beta2))));
-    
-    beta3rhsL = 
-      kadd(beta3rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta3,kmadd(epsdiss2,JacPDdissipationNth2beta3,kmul(epsdiss3,JacPDdissipationNth3beta3))));
-    
-    B1rhsL = 
-      kadd(B1rhsL,kmadd(epsdiss1,JacPDdissipationNth1B1,kmadd(epsdiss2,JacPDdissipationNth2B1,kmul(epsdiss3,JacPDdissipationNth3B1))));
-    
-    B2rhsL = 
-      kadd(B2rhsL,kmadd(epsdiss1,JacPDdissipationNth1B2,kmadd(epsdiss2,JacPDdissipationNth2B2,kmul(epsdiss3,JacPDdissipationNth3B2))));
-    
-    B3rhsL = 
-      kadd(B3rhsL,kmadd(epsdiss1,JacPDdissipationNth1B3,kmadd(epsdiss2,JacPDdissipationNth2B3,kmul(epsdiss3,JacPDdissipationNth3B3))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_Dissipation);
-}
-
-extern "C" void ML_BSSN_MP_Dissipation(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_Dissipation_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_Dissipation_calc_every != ML_BSSN_MP_Dissipation_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_curvrhs",
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtlapserhs",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_dtshiftrhs",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_Gammarhs",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_lapserhs",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_log_confacrhs",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_metricrhs",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_shiftrhs",
-    "ML_BSSN_MP::ML_trace_curv",
-    "ML_BSSN_MP::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_Dissipation", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_Dissipation", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_Dissipation", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_Dissipation", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_Dissipation", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_Dissipation_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_Dissipation_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_InitGamma.cc b/ML_BSSN_MP/src/ML_BSSN_MP_InitGamma.cc
deleted file mode 100644
index f2ac982..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_InitGamma.cc
+++ /dev/null
@@ -1,295 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_InitGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_InitGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_InitGamma);
-}
-
-extern "C" void ML_BSSN_MP_InitGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_InitGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_InitGamma_calc_every != ML_BSSN_MP_InitGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_Gamma"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_InitGamma", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_InitGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_InitGamma_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_InitRHS.cc b/ML_BSSN_MP/src/ML_BSSN_MP_InitRHS.cc
deleted file mode 100644
index 8f86b3a..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_InitRHS.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_InitRHS_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_InitRHS,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_InitRHS);
-}
-
-extern "C" void ML_BSSN_MP_InitRHS(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_InitRHS_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_InitRHS_calc_every != ML_BSSN_MP_InitRHS_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_curvrhs",
-    "ML_BSSN_MP::ML_dtlapserhs",
-    "ML_BSSN_MP::ML_dtshiftrhs",
-    "ML_BSSN_MP::ML_Gammarhs",
-    "ML_BSSN_MP::ML_lapserhs",
-    "ML_BSSN_MP::ML_log_confacrhs",
-    "ML_BSSN_MP::ML_metricrhs",
-    "ML_BSSN_MP::ML_shiftrhs",
-    "ML_BSSN_MP::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_InitRHS", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_InitRHS_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_InitRHS_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.cc b/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.cc
deleted file mode 100644
index 07d77e6..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_Minkowski_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_Minkowski,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_Minkowski);
-}
-
-extern "C" void ML_BSSN_MP_Minkowski(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_Minkowski_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_Minkowski_calc_every != ML_BSSN_MP_Minkowski_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_Minkowski", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_Minkowski_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_Minkowski_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.cc b/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.cc
deleted file mode 100644
index c162fc2..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.cc
+++ /dev/null
@@ -1,1467 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_RHS1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_RHS1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth11beta1;
-    CCTK_REAL_VEC PDstandardNth22beta1;
-    CCTK_REAL_VEC PDstandardNth33beta1;
-    CCTK_REAL_VEC PDstandardNth12beta1;
-    CCTK_REAL_VEC PDstandardNth13beta1;
-    CCTK_REAL_VEC PDstandardNth23beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth11beta2;
-    CCTK_REAL_VEC PDstandardNth22beta2;
-    CCTK_REAL_VEC PDstandardNth33beta2;
-    CCTK_REAL_VEC PDstandardNth12beta2;
-    CCTK_REAL_VEC PDstandardNth13beta2;
-    CCTK_REAL_VEC PDstandardNth23beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth11beta3;
-    CCTK_REAL_VEC PDstandardNth22beta3;
-    CCTK_REAL_VEC PDstandardNth33beta3;
-    CCTK_REAL_VEC PDstandardNth12beta3;
-    CCTK_REAL_VEC PDstandardNth13beta3;
-    CCTK_REAL_VEC PDstandardNth23beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder211(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder222(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder233(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder212(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder213(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder223(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder211(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder222(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder233(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder212(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder213(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder223(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder211(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder222(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder233(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder212(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder213(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder223(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder411(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder422(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder433(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder412(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder413(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder423(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder411(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder422(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder433(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder412(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder413(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder423(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder411(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder422(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder433(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder412(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder413(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder423(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder611(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder622(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder633(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder612(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder613(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder623(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder611(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder622(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder633(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder612(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder613(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder623(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder611(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder622(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder633(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder612(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder613(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder623(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder811(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder822(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder833(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder812(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder813(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder823(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder811(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder822(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder833(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder812(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder813(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder823(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder811(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder822(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder833(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder812(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder813(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder823(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11beta1;
-    CCTK_REAL_VEC JacPDstandardNth11beta2;
-    CCTK_REAL_VEC JacPDstandardNth11beta3;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12beta1;
-    CCTK_REAL_VEC JacPDstandardNth12beta2;
-    CCTK_REAL_VEC JacPDstandardNth12beta3;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13beta1;
-    CCTK_REAL_VEC JacPDstandardNth13beta2;
-    CCTK_REAL_VEC JacPDstandardNth13beta3;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth21alpha;
-    CCTK_REAL_VEC JacPDstandardNth21beta1;
-    CCTK_REAL_VEC JacPDstandardNth21beta2;
-    CCTK_REAL_VEC JacPDstandardNth21beta3;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22beta1;
-    CCTK_REAL_VEC JacPDstandardNth22beta2;
-    CCTK_REAL_VEC JacPDstandardNth22beta3;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23beta1;
-    CCTK_REAL_VEC JacPDstandardNth23beta2;
-    CCTK_REAL_VEC JacPDstandardNth23beta3;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth31alpha;
-    CCTK_REAL_VEC JacPDstandardNth31beta1;
-    CCTK_REAL_VEC JacPDstandardNth31beta2;
-    CCTK_REAL_VEC JacPDstandardNth31beta3;
-    CCTK_REAL_VEC JacPDstandardNth32alpha;
-    CCTK_REAL_VEC JacPDstandardNth32beta1;
-    CCTK_REAL_VEC JacPDstandardNth32beta2;
-    CCTK_REAL_VEC JacPDstandardNth32beta3;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33beta1;
-    CCTK_REAL_VEC JacPDstandardNth33beta2;
-    CCTK_REAL_VEC JacPDstandardNth33beta3;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta1 = 
-        kmadd(dJ111L,PDstandardNth1beta1,kmadd(dJ211L,PDstandardNth2beta1,kmadd(dJ311L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J11L),kmadd(PDstandardNth22beta1,SQR(J21L),kmadd(PDstandardNth33beta1,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1)),kmul(J21L,kmul(J31L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta2 = 
-        kmadd(dJ111L,PDstandardNth1beta2,kmadd(dJ211L,PDstandardNth2beta2,kmadd(dJ311L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J11L),kmadd(PDstandardNth22beta2,SQR(J21L),kmadd(PDstandardNth33beta2,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2)),kmul(J21L,kmul(J31L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta3 = 
-        kmadd(dJ111L,PDstandardNth1beta3,kmadd(dJ211L,PDstandardNth2beta3,kmadd(dJ311L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J11L),kmadd(PDstandardNth22beta3,SQR(J21L),kmadd(PDstandardNth33beta3,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3)),kmul(J21L,kmul(J31L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta1 = 
-        kmadd(dJ122L,PDstandardNth1beta1,kmadd(dJ222L,PDstandardNth2beta1,kmadd(dJ322L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J12L),kmadd(PDstandardNth22beta1,SQR(J22L),kmadd(PDstandardNth33beta1,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmul(J22L,kmul(J32L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta2 = 
-        kmadd(dJ122L,PDstandardNth1beta2,kmadd(dJ222L,PDstandardNth2beta2,kmadd(dJ322L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J12L),kmadd(PDstandardNth22beta2,SQR(J22L),kmadd(PDstandardNth33beta2,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmul(J22L,kmul(J32L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta3 = 
-        kmadd(dJ122L,PDstandardNth1beta3,kmadd(dJ222L,PDstandardNth2beta3,kmadd(dJ322L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J12L),kmadd(PDstandardNth22beta3,SQR(J22L),kmadd(PDstandardNth33beta3,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmul(J22L,kmul(J32L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta1 = 
-        kmadd(dJ133L,PDstandardNth1beta1,kmadd(dJ233L,PDstandardNth2beta1,kmadd(dJ333L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J13L),kmadd(PDstandardNth22beta1,SQR(J23L),kmadd(PDstandardNth33beta1,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmul(J23L,kmul(J33L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta2 = 
-        kmadd(dJ133L,PDstandardNth1beta2,kmadd(dJ233L,PDstandardNth2beta2,kmadd(dJ333L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J13L),kmadd(PDstandardNth22beta2,SQR(J23L),kmadd(PDstandardNth33beta2,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmul(J23L,kmul(J33L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta3 = 
-        kmadd(dJ133L,PDstandardNth1beta3,kmadd(dJ233L,PDstandardNth2beta3,kmadd(dJ333L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J13L),kmadd(PDstandardNth22beta3,SQR(J23L),kmadd(PDstandardNth33beta3,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmul(J23L,kmul(J33L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth12beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth12beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth13beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth13beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth21alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth21beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth21beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth21beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth23beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth23beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth31alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth31beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth31beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth31beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth32alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth32beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth32beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth32beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11beta1 = PDstandardNth11beta1;
-      
-      JacPDstandardNth11beta2 = PDstandardNth11beta2;
-      
-      JacPDstandardNth11beta3 = PDstandardNth11beta3;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22beta1 = PDstandardNth22beta1;
-      
-      JacPDstandardNth22beta2 = PDstandardNth22beta2;
-      
-      JacPDstandardNth22beta3 = PDstandardNth22beta3;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33beta1 = PDstandardNth33beta1;
-      
-      JacPDstandardNth33beta2 = PDstandardNth33beta2;
-      
-      JacPDstandardNth33beta3 = PDstandardNth33beta3;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth12beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth12beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth13beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth13beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth21alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth21beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth21beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth21beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth23beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth23beta3 = PDstandardNth23beta3;
-      
-      JacPDstandardNth31alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth31beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth31beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth31beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth32alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth32beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth32beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth32beta3 = PDstandardNth23beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC Atu11 = 
-      kmadd(Atm11,gtu11,kmadd(Atm12,gtu12,kmul(Atm13,gtu13)));
-    
-    CCTK_REAL_VEC Atu12 = 
-      kmadd(Atm11,gtu12,kmadd(Atm12,gtu22,kmul(Atm13,gtu23)));
-    
-    CCTK_REAL_VEC Atu13 = 
-      kmadd(Atm11,gtu13,kmadd(Atm12,gtu23,kmul(Atm13,gtu33)));
-    
-    CCTK_REAL_VEC Atu22 = 
-      kmadd(Atm21,gtu12,kmadd(Atm22,gtu22,kmul(Atm23,gtu23)));
-    
-    CCTK_REAL_VEC Atu23 = 
-      kmadd(Atm21,gtu13,kmadd(Atm22,gtu23,kmul(Atm23,gtu33)));
-    
-    CCTK_REAL_VEC Atu33 = 
-      kmadd(Atm31,gtu13,kmadd(Atm32,gtu23,kmul(Atm33,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC phirhsL = kneg(kmul(IfThen(conformalMethod == 
-      1,kmul(phiL,ToReal(0.333333333333333333333333333333)),ToReal(-0.166666666666666666666666666667)),kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,knmsub(alphaL,trKL,JacPDstandardNth3beta3)))));
-    
-    CCTK_REAL_VEC gt11rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth1beta2,kmul(gt13L,JacPDstandardNth1beta3)),ToReal(-3),kmadd(gt11L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At11L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt12rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At12L,ToReal(-6)),kmadd(gt12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(kmadd(gt22L,JacPDstandardNth1beta2,kmadd(gt23L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth2beta1,kmul(gt13L,JacPDstandardNth2beta3)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt13rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At13L,ToReal(-6)),kmadd(gt13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt23L,JacPDstandardNth1beta2,kmadd(gt33L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth3beta1,kmul(gt12L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt22rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth2beta1,kmul(gt23L,JacPDstandardNth2beta3)),ToReal(-3),kmadd(gt22L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At22L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt23rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At23L,ToReal(-6)),kmadd(gt23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt13L,JacPDstandardNth2beta1,kmadd(gt33L,JacPDstandardNth2beta3,kmadd(gt12L,JacPDstandardNth3beta1,kmul(gt22L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt33rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt13L,JacPDstandardNth3beta1,kmul(gt23L,JacPDstandardNth3beta2)),ToReal(-3),kmadd(gt33L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(alphaL,kmul(At33L,ToReal(3))))));
-    
-    CCTK_REAL_VEC dotXt1 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu11,JacPDstandardNth1alpha,kmadd(Atu12,JacPDstandardNth2alpha,kmul(Atu13,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth2beta1,Xtn2,kmul(JacPDstandardNth3beta1,Xtn3)),ToReal(-3),kmadd(Xtn1,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth1beta1),kmadd(kmadd(gtu12,JacPDstandardNth12beta1,kmadd(gtu13,JacPDstandardNth13beta1,kmadd(gtu22,JacPDstandardNth22beta1,kmadd(gtu23,kadd(JacPDstandardNth23beta1,JacPDstandardNth32beta1),kmul(gtu33,JacPDstandardNth33beta1))))),ToReal(3),kmadd(gtu11,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth11beta1,ToReal(4),JacPDstandardNth13beta3)),kmadd(gtu12,kadd(JacPDstandardNth22beta2,kmadd(JacPDstandardNth21beta1,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu13,kadd(JacPDstandardNth32beta2,kmadd(JacPDstandardNth31beta1,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth2beta2,Xtn1,kmul(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1trK,kmadd(gtu12,JacPDstandardNth2trK,kmul(gtu13,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu23,Gt123,kmul(Atu12,kmadd(cdphi2,ToReal(3),Gt112))),ToReal(6),kmadd(ToReal(3),kmadd(Atu22,Gt122,kmadd(Atu33,Gt133,kmul(Atu11,kmadd(cdphi1,ToReal(6),Gt111)))),kmadd(Atu13,kmadd(Gt113,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu11,S1,kmadd(gtu12,S2,kmul(gtu13,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt2 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu12,JacPDstandardNth1alpha,kmadd(Atu22,JacPDstandardNth2alpha,kmul(Atu23,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta2,Xtn1,kmul(JacPDstandardNth3beta2,Xtn3)),ToReal(-3),kmadd(Xtn2,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth2beta2),kmadd(kmadd(gtu11,JacPDstandardNth11beta2,kmadd(gtu23,JacPDstandardNth23beta2,kmadd(gtu13,kadd(JacPDstandardNth13beta2,JacPDstandardNth31beta2),kmul(gtu33,JacPDstandardNth33beta2)))),ToReal(3),kmadd(gtu12,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth13beta3,kmadd(JacPDstandardNth21beta2,ToReal(3),kmul(JacPDstandardNth12beta2,ToReal(4))))),kmadd(gtu22,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth22beta2,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu23,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth32beta2,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn2,kmul(alphaL,kmadd(kmadd(gtu12,JacPDstandardNth1trK,kmadd(gtu22,JacPDstandardNth2trK,kmul(gtu23,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu13,Gt213,kmul(Atu12,kmadd(cdphi1,ToReal(3),Gt212))),ToReal(6),kmadd(ToReal(3),kmadd(Atu11,Gt211,kmadd(Atu33,Gt233,kmul(Atu22,kmadd(cdphi2,ToReal(6),Gt222)))),kmadd(Atu23,kmadd(Gt223,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu12,S1,kmadd(gtu22,S2,kmul(gtu23,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt3 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu13,JacPDstandardNth1alpha,kmadd(Atu23,JacPDstandardNth2alpha,kmul(Atu33,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta3,Xtn1,kmul(JacPDstandardNth2beta3,Xtn2)),ToReal(-3),kmadd(Xtn3,kmsub(JacPDstandardNth2beta2,ToReal(2),JacPDstandardNth3beta3),kmadd(kmadd(gtu11,JacPDstandardNth11beta3,kmadd(gtu12,kadd(JacPDstandardNth12beta3,JacPDstandardNth21beta3),kmadd(gtu22,JacPDstandardNth22beta3,kmul(gtu23,JacPDstandardNth32beta3)))),ToReal(3),kmadd(gtu13,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth31beta3,ToReal(3),kmul(JacPDstandardNth13beta3,ToReal(4))))),kmadd(gtu23,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth23beta3,ToReal(4),JacPDstandardNth22beta2)),kmadd(gtu33,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth33beta3,ToReal(4),JacPDstandardNth32beta2)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn3,kmul(alphaL,kmadd(kmadd(gtu13,JacPDstandardNth1trK,kmadd(gtu23,JacPDstandardNth2trK,kmul(gtu33,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu11,Gt311,kmul(Atu22,Gt322)),ToReal(3),kmadd(kmadd(Atu12,Gt312,kmadd(Atu13,kmadd(cdphi1,ToReal(3),Gt313),kmul(Atu23,kmadd(cdphi2,ToReal(3),Gt323)))),ToReal(6),kmadd(Atu33,kmadd(Gt333,ToReal(3),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu13,S1,kmadd(gtu23,S2,kmul(gtu33,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC Xt1rhsL = dotXt1;
-    
-    CCTK_REAL_VEC Xt2rhsL = dotXt2;
-    
-    CCTK_REAL_VEC Xt3rhsL = dotXt3;
-    
-    CCTK_REAL_VEC dottrK = 
-      kmsub(alphaL,kadd(SQR(Atm11),kadd(SQR(Atm22),kadd(SQR(Atm33),kmadd(SQR(trKL),ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(2),kmul(kadd(rho,trS),kmul(ToReal(4),ToReal(Pi)))))))),kmul(em4phi,knmsub(JacPDstandardNth1alpha,Xtn1,knmsub(JacPDstandardNth2alpha,Xtn2,knmsub(JacPDstandardNth3alpha,Xtn3,kmadd(gtu11,kmadd(cdphi1,kmul(JacPDstandardNth1alpha,ToReal(2)),JacPDstandardNth11alpha),kmadd(gtu12,kadd(JacPDstandardNth12alpha,kadd(JacPDstandardNth21alpha,kmadd(cdphi2,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth2alpha,ToReal(2)))))),kmadd(gtu22,kmadd(cdphi2,kmul(JacPDstandardNth2alpha,ToReal(2)),JacPDstandardNth22alpha),kmadd(gtu13,kadd(JacPDstandardNth13alpha,kadd(JacPDstandardNth31alpha,kmadd(cdphi3,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmadd(gtu23,kadd(JacPDstandardNth23alpha,kadd(JacPDstandardNth32alpha,kmadd(cdphi3,kmul(JacPDstandardNth2alpha,ToReal(2)),kmul(cdphi2,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmul(gtu33,kmadd(cdphi3,kmul(JacPDstandardNth3alpha,ToReal(2)),JacPDstandardNth33alpha))))))))))));
-    
-    CCTK_REAL_VEC trKrhsL = dottrK;
-    
-    CCTK_REAL_VEC alpharhsL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmadd(kadd(alphaL,ToReal(-1)),ToReal(AlphaDriver),trKL),ksub(ToReal(1),ToReal(LapseACoeff)))))));
-    
-    CCTK_REAL_VEC ArhsL = 
-      kmul(knmsub(AL,ToReal(AlphaDriver),dottrK),ToReal(LapseACoeff));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC beta1rhsL;
-    CCTK_REAL_VEC beta2rhsL;
-    CCTK_REAL_VEC beta3rhsL;
-    
-    if (harmonicShift)
-    {
-      beta1rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4)))))))))))))))));
-      
-      beta2rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4))))))))))))))))));
-      
-      beta3rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4))))))))))))))))));
-    }
-    else
-    {
-      beta1rhsL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta2rhsL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta3rhsL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    CCTK_REAL_VEC B1rhsL = 
-      kmul(knmsub(B1L,kmul(eta,ToReal(BetaDriver)),dotXt1),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B2rhsL = 
-      kmul(knmsub(B2L,kmul(eta,ToReal(BetaDriver)),dotXt2),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B3rhsL = 
-      kmul(knmsub(B3L,kmul(eta,ToReal(BetaDriver)),dotXt3),ToReal(ShiftBCoeff));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_RHS1);
-}
-
-extern "C" void ML_BSSN_MP_RHS1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_RHS1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_RHS1_calc_every != ML_BSSN_MP_RHS1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtlapserhs",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_dtshiftrhs",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_Gammarhs",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_lapserhs",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_log_confacrhs",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_metricrhs",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_shiftrhs",
-    "ML_BSSN_MP::ML_trace_curv",
-    "ML_BSSN_MP::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_RHS1", 19, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_RHS1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_RHS1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_RHS1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_RHS1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_RHS1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_RHS1_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.cc b/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.cc
deleted file mode 100644
index a7b4d27..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.cc
+++ /dev/null
@@ -1,1869 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_RHS2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_RHS2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC g11 = kmul(gt11L,e4phi);
-    
-    CCTK_REAL_VEC g12 = kmul(gt12L,e4phi);
-    
-    CCTK_REAL_VEC g13 = kmul(gt13L,e4phi);
-    
-    CCTK_REAL_VEC g22 = kmul(gt22L,e4phi);
-    
-    CCTK_REAL_VEC g23 = kmul(gt23L,e4phi);
-    
-    CCTK_REAL_VEC g33 = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC Ats11 = 
-      kmadd(Gt211,JacPDstandardNth2alpha,kmadd(Gt311,JacPDstandardNth3alpha,kmadd(alphaL,R11,kmsub(JacPDstandardNth1alpha,kmadd(cdphi1,ToReal(4),Gt111),JacPDstandardNth11alpha))));
-    
-    CCTK_REAL_VEC Ats12 = 
-      kmadd(Gt312,JacPDstandardNth3alpha,kmadd(alphaL,R12,ksub(kmadd(JacPDstandardNth2alpha,kmadd(cdphi1,ToReal(2),Gt212),kmul(JacPDstandardNth1alpha,kmadd(cdphi2,ToReal(2),Gt112))),JacPDstandardNth12alpha)));
-    
-    CCTK_REAL_VEC Ats13 = 
-      kmadd(Gt213,JacPDstandardNth2alpha,kmadd(alphaL,R13,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi1,ToReal(2),Gt313),kmul(JacPDstandardNth1alpha,kmadd(cdphi3,ToReal(2),Gt113))),JacPDstandardNth13alpha)));
-    
-    CCTK_REAL_VEC Ats22 = 
-      kmadd(Gt122,JacPDstandardNth1alpha,kmadd(Gt322,JacPDstandardNth3alpha,kmadd(alphaL,R22,kmsub(JacPDstandardNth2alpha,kmadd(cdphi2,ToReal(4),Gt222),JacPDstandardNth22alpha))));
-    
-    CCTK_REAL_VEC Ats23 = 
-      kmadd(Gt123,JacPDstandardNth1alpha,kmadd(alphaL,R23,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi2,ToReal(2),Gt323),kmul(JacPDstandardNth2alpha,kmadd(cdphi3,ToReal(2),Gt223))),JacPDstandardNth23alpha)));
-    
-    CCTK_REAL_VEC Ats33 = 
-      kmadd(Gt133,JacPDstandardNth1alpha,kmadd(Gt233,JacPDstandardNth2alpha,kmadd(alphaL,R33,kmsub(JacPDstandardNth3alpha,kmadd(cdphi3,ToReal(4),Gt333),JacPDstandardNth33alpha))));
-    
-    CCTK_REAL_VEC trAts = 
-      kmadd(Ats11,gu11,kmadd(Ats22,gu22,kmadd(Ats33,gu33,kmul(kmadd(Ats12,gu12,kmadd(Ats13,gu13,kmul(Ats23,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats11,ToReal(3),kmul(g11,trAts)),kmadd(At11L,kmadd(kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth1beta1,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth1beta2,kmul(At13L,JacPDstandardNth1beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm21,kmul(At13L,Atm31)),ToReal(6),kmadd(At11L,kmadd(trKL,ToReal(-3),kmul(Atm11,ToReal(6))),kmul(em4phi,kmul(kmadd(g11,kmul(trS,ToReal(-8)),kmul(eTxxL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At12rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmsub(kmadd(Ats12,em4phi,kmadd(At22L,JacPDstandardNth1beta2,kmadd(At23L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth2beta1,kmul(At13L,JacPDstandardNth2beta3))))),ToReal(3),kmul(em4phi,kmul(g12,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm12,kmul(At13L,Atm32)),ToReal(-2),kmadd(At12L,kmadd(Atm22,ToReal(-2),trKL),kmul(em4phi,kmadd(g12,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxyL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At13rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats13,em4phi,kmadd(At23L,JacPDstandardNth1beta2,kmadd(At33L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth3beta1,kmul(At12L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g13,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm13,kmul(At12L,Atm23)),ToReal(-2),kmadd(At13L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g13,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At22rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats22,ToReal(3),kmul(g22,trAts)),kmadd(At22L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth2beta2,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth2beta1,kmul(At23L,JacPDstandardNth2beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm12,kmul(At23L,Atm32)),ToReal(6),kmadd(At22L,kmadd(trKL,ToReal(-3),kmul(Atm22,ToReal(6))),kmul(em4phi,kmul(kmadd(g22,kmul(trS,ToReal(-8)),kmul(eTyyL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At23rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats23,em4phi,kmadd(At13L,JacPDstandardNth2beta1,kmadd(At33L,JacPDstandardNth2beta3,kmadd(At12L,JacPDstandardNth3beta1,kmul(At22L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g23,trAts)))),kmul(alphaL,kmadd(kmadd(At12L,Atm13,kmul(At22L,Atm23)),ToReal(-2),kmadd(At23L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g23,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTyzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At33rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats33,ToReal(3),kmul(g33,trAts)),kmadd(At33L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),ToReal(-2),kmul(JacPDstandardNth3beta3,ToReal(4))),kmsub(kmadd(At13L,JacPDstandardNth3beta1,kmul(At23L,JacPDstandardNth3beta2)),ToReal(6),kmul(alphaL,kmadd(kmadd(At13L,Atm13,kmul(At23L,Atm23)),ToReal(6),kmadd(At33L,kmadd(trKL,ToReal(-3),kmul(Atm33,ToReal(6))),kmul(em4phi,kmul(kmadd(g33,kmul(trS,ToReal(-8)),kmul(eTzzL,ToReal(24))),ToReal(Pi))))))))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_RHS2);
-}
-
-extern "C" void ML_BSSN_MP_RHS2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_RHS2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_RHS2_calc_every != ML_BSSN_MP_RHS2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_curvrhs",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_RHS2", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_RHS2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_RHS2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_RHS2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_RHS2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_RHS2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_RHS2_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHSStaticBoundary.cc b/ML_BSSN_MP/src/ML_BSSN_MP_RHSStaticBoundary.cc
deleted file mode 100644
index 2d72cf2..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_RHSStaticBoundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_RHSStaticBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_RHSStaticBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_RHSStaticBoundary);
-}
-
-extern "C" void ML_BSSN_MP_RHSStaticBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_RHSStaticBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_RHSStaticBoundary_calc_every != ML_BSSN_MP_RHSStaticBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_curvrhs",
-    "ML_BSSN_MP::ML_dtlapserhs",
-    "ML_BSSN_MP::ML_dtshiftrhs",
-    "ML_BSSN_MP::ML_Gammarhs",
-    "ML_BSSN_MP::ML_lapserhs",
-    "ML_BSSN_MP::ML_log_confacrhs",
-    "ML_BSSN_MP::ML_metricrhs",
-    "ML_BSSN_MP::ML_shiftrhs",
-    "ML_BSSN_MP::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_RHSStaticBoundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundary(cctkGH, ML_BSSN_MP_RHSStaticBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_RHSStaticBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_boundary.cc b/ML_BSSN_MP/src/ML_BSSN_MP_boundary.cc
deleted file mode 100644
index 4083b54..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_boundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_boundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_curv.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_lapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_lapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_log_confac","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_log_confac.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_metric","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_metric.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_shift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_shift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_trace_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_trace_curv.");
-  return;
-}
-
-static void ML_BSSN_MP_boundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_boundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_boundary);
-}
-
-extern "C" void ML_BSSN_MP_boundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_boundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_boundary_calc_every != ML_BSSN_MP_boundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_boundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_MP_boundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_boundary_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_constraints1.cc b/ML_BSSN_MP/src/ML_BSSN_MP_constraints1.cc
deleted file mode 100644
index af52b0d..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_constraints1.cc
+++ /dev/null
@@ -1,1623 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_constraints1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_Ham","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_Ham.");
-  return;
-}
-
-static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_constraints1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trR = 
-      kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmul(kmadd(gu12,R12,kmadd(gu13,R13,kmul(gu23,R23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC HL = 
-      kadd(trR,kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(-2),ksub(ksub(ksub(kmadd(SQR(trKL),ToReal(0.666666666666666666666666666667),kmul(rho,kmul(ToReal(-16),ToReal(Pi)))),SQR(Atm33)),SQR(Atm22)),SQR(Atm11))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(H[index],HL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_constraints1);
-}
-
-extern "C" void ML_BSSN_MP_constraints1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_constraints1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_constraints1_calc_every != ML_BSSN_MP_constraints1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_Ham",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_constraints1", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_constraints1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_constraints1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_constraints1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_constraints1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_constraints1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_constraints1_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_constraints2.cc b/ML_BSSN_MP/src/ML_BSSN_MP_constraints2.cc
deleted file mode 100644
index 0b6239b..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_constraints2.cc
+++ /dev/null
@@ -1,1004 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_constraints2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_cons_detg","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_cons_detg.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_cons_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_cons_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_cons_traceA","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_cons_traceA.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_mom","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_mom.");
-  return;
-}
-
-static void ML_BSSN_MP_constraints2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_constraints2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1At11;
-    CCTK_REAL_VEC PDstandardNth2At11;
-    CCTK_REAL_VEC PDstandardNth3At11;
-    CCTK_REAL_VEC PDstandardNth1At12;
-    CCTK_REAL_VEC PDstandardNth2At12;
-    CCTK_REAL_VEC PDstandardNth3At12;
-    CCTK_REAL_VEC PDstandardNth1At13;
-    CCTK_REAL_VEC PDstandardNth2At13;
-    CCTK_REAL_VEC PDstandardNth3At13;
-    CCTK_REAL_VEC PDstandardNth1At22;
-    CCTK_REAL_VEC PDstandardNth2At22;
-    CCTK_REAL_VEC PDstandardNth3At22;
-    CCTK_REAL_VEC PDstandardNth1At23;
-    CCTK_REAL_VEC PDstandardNth2At23;
-    CCTK_REAL_VEC PDstandardNth3At23;
-    CCTK_REAL_VEC PDstandardNth1At33;
-    CCTK_REAL_VEC PDstandardNth2At33;
-    CCTK_REAL_VEC PDstandardNth3At33;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1At11 = PDstandardNthfdOrder21(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder22(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder23(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder21(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder22(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder23(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder21(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder22(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder23(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder21(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder22(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder23(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder21(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder22(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder23(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder21(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder22(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder23(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1At11 = PDstandardNthfdOrder41(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder42(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder43(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder41(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder42(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder43(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder41(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder42(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder43(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder41(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder42(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder43(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder41(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder42(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder43(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder41(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder42(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder43(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1At11 = PDstandardNthfdOrder61(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder62(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder63(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder61(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder62(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder63(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder61(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder62(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder63(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder61(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder62(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder63(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder61(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder62(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder63(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder61(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder62(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder63(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1At11 = PDstandardNthfdOrder81(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder82(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder83(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder81(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder82(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder83(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder81(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder82(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder83(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder81(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder82(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder83(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder81(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder82(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder83(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder81(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder82(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder83(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth1At11;
-    CCTK_REAL_VEC JacPDstandardNth1At12;
-    CCTK_REAL_VEC JacPDstandardNth1At13;
-    CCTK_REAL_VEC JacPDstandardNth1At22;
-    CCTK_REAL_VEC JacPDstandardNth1At23;
-    CCTK_REAL_VEC JacPDstandardNth1At33;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth2At11;
-    CCTK_REAL_VEC JacPDstandardNth2At12;
-    CCTK_REAL_VEC JacPDstandardNth2At13;
-    CCTK_REAL_VEC JacPDstandardNth2At22;
-    CCTK_REAL_VEC JacPDstandardNth2At23;
-    CCTK_REAL_VEC JacPDstandardNth2At33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth3At11;
-    CCTK_REAL_VEC JacPDstandardNth3At12;
-    CCTK_REAL_VEC JacPDstandardNth3At13;
-    CCTK_REAL_VEC JacPDstandardNth3At22;
-    CCTK_REAL_VEC JacPDstandardNth3At23;
-    CCTK_REAL_VEC JacPDstandardNth3At33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1At11 = 
-        kmadd(J11L,PDstandardNth1At11,kmadd(J21L,PDstandardNth2At11,kmul(J31L,PDstandardNth3At11)));
-      
-      JacPDstandardNth1At12 = 
-        kmadd(J11L,PDstandardNth1At12,kmadd(J21L,PDstandardNth2At12,kmul(J31L,PDstandardNth3At12)));
-      
-      JacPDstandardNth1At13 = 
-        kmadd(J11L,PDstandardNth1At13,kmadd(J21L,PDstandardNth2At13,kmul(J31L,PDstandardNth3At13)));
-      
-      JacPDstandardNth1At22 = 
-        kmadd(J11L,PDstandardNth1At22,kmadd(J21L,PDstandardNth2At22,kmul(J31L,PDstandardNth3At22)));
-      
-      JacPDstandardNth1At23 = 
-        kmadd(J11L,PDstandardNth1At23,kmadd(J21L,PDstandardNth2At23,kmul(J31L,PDstandardNth3At23)));
-      
-      JacPDstandardNth1At33 = 
-        kmadd(J11L,PDstandardNth1At33,kmadd(J21L,PDstandardNth2At33,kmul(J31L,PDstandardNth3At33)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2At11 = 
-        kmadd(J12L,PDstandardNth1At11,kmadd(J22L,PDstandardNth2At11,kmul(J32L,PDstandardNth3At11)));
-      
-      JacPDstandardNth2At12 = 
-        kmadd(J12L,PDstandardNth1At12,kmadd(J22L,PDstandardNth2At12,kmul(J32L,PDstandardNth3At12)));
-      
-      JacPDstandardNth2At13 = 
-        kmadd(J12L,PDstandardNth1At13,kmadd(J22L,PDstandardNth2At13,kmul(J32L,PDstandardNth3At13)));
-      
-      JacPDstandardNth2At22 = 
-        kmadd(J12L,PDstandardNth1At22,kmadd(J22L,PDstandardNth2At22,kmul(J32L,PDstandardNth3At22)));
-      
-      JacPDstandardNth2At23 = 
-        kmadd(J12L,PDstandardNth1At23,kmadd(J22L,PDstandardNth2At23,kmul(J32L,PDstandardNth3At23)));
-      
-      JacPDstandardNth2At33 = 
-        kmadd(J12L,PDstandardNth1At33,kmadd(J22L,PDstandardNth2At33,kmul(J32L,PDstandardNth3At33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3At11 = 
-        kmadd(J13L,PDstandardNth1At11,kmadd(J23L,PDstandardNth2At11,kmul(J33L,PDstandardNth3At11)));
-      
-      JacPDstandardNth3At12 = 
-        kmadd(J13L,PDstandardNth1At12,kmadd(J23L,PDstandardNth2At12,kmul(J33L,PDstandardNth3At12)));
-      
-      JacPDstandardNth3At13 = 
-        kmadd(J13L,PDstandardNth1At13,kmadd(J23L,PDstandardNth2At13,kmul(J33L,PDstandardNth3At13)));
-      
-      JacPDstandardNth3At22 = 
-        kmadd(J13L,PDstandardNth1At22,kmadd(J23L,PDstandardNth2At22,kmul(J33L,PDstandardNth3At22)));
-      
-      JacPDstandardNth3At23 = 
-        kmadd(J13L,PDstandardNth1At23,kmadd(J23L,PDstandardNth2At23,kmul(J33L,PDstandardNth3At23)));
-      
-      JacPDstandardNth3At33 = 
-        kmadd(J13L,PDstandardNth1At33,kmadd(J23L,PDstandardNth2At33,kmul(J33L,PDstandardNth3At33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-    }
-    else
-    {
-      JacPDstandardNth1At11 = PDstandardNth1At11;
-      
-      JacPDstandardNth1At12 = PDstandardNth1At12;
-      
-      JacPDstandardNth1At13 = PDstandardNth1At13;
-      
-      JacPDstandardNth1At22 = PDstandardNth1At22;
-      
-      JacPDstandardNth1At23 = PDstandardNth1At23;
-      
-      JacPDstandardNth1At33 = PDstandardNth1At33;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2At11 = PDstandardNth2At11;
-      
-      JacPDstandardNth2At12 = PDstandardNth2At12;
-      
-      JacPDstandardNth2At13 = PDstandardNth2At13;
-      
-      JacPDstandardNth2At22 = PDstandardNth2At22;
-      
-      JacPDstandardNth2At23 = PDstandardNth2At23;
-      
-      JacPDstandardNth2At33 = PDstandardNth2At33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3At11 = PDstandardNth3At11;
-      
-      JacPDstandardNth3At12 = PDstandardNth3At12;
-      
-      JacPDstandardNth3At13 = PDstandardNth3At13;
-      
-      JacPDstandardNth3At22 = PDstandardNth3At22;
-      
-      JacPDstandardNth3At23 = PDstandardNth3At23;
-      
-      JacPDstandardNth3At33 = PDstandardNth3At33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC M1L = 
-      kmadd(gtu11,JacPDstandardNth1At11,kmadd(gtu12,JacPDstandardNth2At11,kmadd(gtu22,JacPDstandardNth2At12,kmadd(gtu23,JacPDstandardNth2At13,kmadd(gtu13,JacPDstandardNth3At11,kmadd(gtu23,JacPDstandardNth3At12,kmadd(gtu33,JacPDstandardNth3At13,kmadd(gtu12,kadd(JacPDstandardNth1At12,kmsub(At13L,kmul(Gt312,ToReal(-3)),kmul(At22L,Gt211))),kmadd(gtu13,kadd(JacPDstandardNth1At13,kmsub(At13L,kmul(Gt313,ToReal(-3)),kmul(At23L,Gt211))),knmsub(gtu22,kmadd(At23L,Gt312,kmul(At22L,Gt212)),kmadd(Gt311,kmsub(At13L,kmul(gtu11,ToReal(-2)),kmadd(At33L,gtu13,kmul(At23L,gtu12))),kmadd(At13L,kmsub(Gt323,kmul(gtu23,ToReal(-2)),kmul(Gt113,gtu33)),kmadd(JacPDstandardNth1trK,ToReal(-0.666666666666666666666666666667),knmsub(At12L,kmadd(Gt111,gtu12,kmadd(Gt112,gtu22,kmadd(Gt222,gtu22,kmadd(Gt113,gtu23,kmadd(Gt233,gtu33,kmadd(cdphi1,kmul(gtu12,ToReal(-6)),kmadd(cdphi2,kmul(gtu22,ToReal(-6)),kmadd(cdphi3,kmul(gtu23,ToReal(-6)),kmadd(Gt211,kmul(gtu11,ToReal(2)),kmadd(Gt223,kmul(gtu23,ToReal(2)),kmadd(Gt212,kmul(gtu12,ToReal(3)),kmul(Gt213,kmul(gtu13,ToReal(3)))))))))))))),kmadd(gtu23,knmsub(At22L,Gt213,knmsub(At33L,Gt312,kmsub(At13L,kmul(cdphi2,ToReal(6)),kmul(At23L,kadd(Gt313,Gt212))))),kmadd(gtu33,knmsub(At23L,Gt213,kmsub(At13L,kmul(cdphi3,ToReal(6)),kmul(At33L,Gt313))),kmadd(At11L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt111,kmul(gtu11,ToReal(-2)),kmadd(Gt123,kmul(gtu23,ToReal(-2)),knmsub(Gt122,gtu22,knmsub(Gt133,gtu33,kmadd(cdphi1,kmul(gtu11,ToReal(6)),kmadd(cdphi2,kmul(gtu12,ToReal(6)),kmul(cdphi3,kmul(gtu13,ToReal(6))))))))))),kmadd(At13L,knmsub(Gt322,gtu22,knmsub(Gt112,gtu23,kmsub(gtu13,kmsub(cdphi1,ToReal(6),Gt111),kmul(Gt333,gtu33)))),kmul(S1,kmul(ToReal(-8),ToReal(Pi)))))))))))))))))))));
-    
-    CCTK_REAL_VEC M2L = 
-      kmadd(gtu11,JacPDstandardNth1At12,kmadd(gtu12,JacPDstandardNth1At22,kmadd(gtu13,JacPDstandardNth1At23,kmadd(gtu12,JacPDstandardNth2At12,kmadd(gtu22,JacPDstandardNth2At22,kmadd(gtu23,JacPDstandardNth2At23,kmadd(gtu13,JacPDstandardNth3At12,kmadd(gtu23,JacPDstandardNth3At22,kmadd(gtu33,JacPDstandardNth3At23,kmadd(At22L,kmul(Gt222,kmul(gtu22,ToReal(-2))),knmsub(At11L,kmadd(Gt112,gtu11,kmadd(Gt122,gtu12,kmul(Gt123,gtu13))),knmsub(gtu11,kmadd(At22L,Gt211,kmadd(At13L,Gt312,kmul(At23L,Gt311))),kmadd(Gt212,kmsub(At22L,kmul(gtu12,ToReal(-3)),kmul(At23L,gtu13)),kmadd(Gt312,kmsub(At23L,kmul(gtu12,ToReal(-3)),kmul(At33L,gtu13)),kmadd(Gt322,kmsub(At23L,kmul(gtu22,ToReal(-2)),kmul(At33L,gtu23)),kmadd(Gt223,kmsub(At22L,kmul(gtu23,ToReal(-3)),kmul(At23L,gtu33)),kmadd(Gt323,kmsub(At23L,kmul(gtu23,ToReal(-3)),kmul(At33L,gtu33)),kmadd(At22L,kmsub(Gt213,kmul(gtu13,ToReal(-2)),kmul(Gt233,gtu33)),kmadd(At23L,kmsub(Gt313,kmul(gtu13,ToReal(-2)),kmadd(Gt333,gtu33,kmul(Gt222,gtu23))),kmadd(JacPDstandardNth2trK,ToReal(-0.666666666666666666666666666667),kmadd(At22L,kmul(cdphi2,kmul(gtu22,ToReal(6))),kmadd(At22L,kmul(cdphi3,kmul(gtu23,ToReal(6))),kmadd(gtu12,kmsub(At22L,kmul(cdphi1,ToReal(6)),kmul(At13L,Gt322)),kmadd(gtu13,kmsub(At23L,kmul(cdphi1,ToReal(6)),kmul(At13L,kadd(Gt323,Gt112))),kmadd(gtu23,kmsub(At23L,kmul(cdphi2,ToReal(6)),kmul(At13L,Gt122)),kmadd(gtu33,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At13L,Gt123)),kmadd(At12L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-2)),kmadd(Gt122,kmul(gtu22,ToReal(-2)),knmsub(Gt133,gtu33,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt212),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt222),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt223))))))))),kmul(S2,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC M3L = 
-      kmadd(gtu11,JacPDstandardNth1At13,kmadd(gtu12,JacPDstandardNth1At23,kmadd(gtu13,JacPDstandardNth1At33,kmadd(gtu12,JacPDstandardNth2At13,kmadd(gtu22,JacPDstandardNth2At23,kmadd(gtu23,JacPDstandardNth2At33,kmadd(gtu13,JacPDstandardNth3At13,kmadd(gtu23,JacPDstandardNth3At23,kmadd(gtu33,JacPDstandardNth3At33,kmadd(At33L,kmul(Gt313,kmul(gtu13,ToReal(-3))),kmadd(At23L,kmul(Gt223,kmul(gtu23,ToReal(-3))),kmadd(At33L,kmul(Gt323,kmul(gtu23,ToReal(-3))),kmadd(At23L,kmul(Gt233,kmul(gtu33,ToReal(-2))),kmadd(At33L,kmul(Gt333,kmul(gtu33,ToReal(-2))),knmsub(At11L,kmadd(Gt113,gtu11,kmadd(Gt123,gtu12,kmul(Gt133,gtu13))),kmadd(gtu12,kmsub(At23L,kmul(Gt212,ToReal(-2)),kmul(At12L,Gt223)),knmsub(gtu11,kmadd(At23L,Gt211,kmadd(At33L,Gt311,kmul(At12L,Gt213))),kmadd(At33L,kmsub(Gt312,kmul(gtu12,ToReal(-2)),kmul(Gt322,gtu22)),kmadd(At23L,kmsub(Gt213,kmul(gtu13,ToReal(-3)),kmadd(Gt333,gtu23,kmul(Gt222,gtu22))),kmadd(JacPDstandardNth3trK,ToReal(-0.666666666666666666666666666667),kmadd(At33L,kmul(cdphi3,kmul(gtu33,ToReal(6))),kmadd(gtu13,kmsub(At33L,kmul(cdphi1,ToReal(6)),kmul(At12L,Gt233)),kmadd(gtu23,kmsub(At33L,kmul(cdphi2,ToReal(6)),kmul(At12L,Gt133)),kmadd(gtu23,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At22L,Gt233)),kmadd(gtu12,knmsub(At12L,Gt113,kmsub(At23L,kmsub(cdphi1,ToReal(6),Gt313),kmul(At22L,Gt213))),kmadd(gtu22,knmsub(At12L,Gt123,kmsub(At23L,kmsub(cdphi2,ToReal(6),Gt323),kmul(At22L,Gt223))),kmadd(At13L,kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt112,kmul(gtu12,ToReal(-2)),kmadd(Gt133,kmul(gtu33,ToReal(-2)),knmsub(Gt122,gtu22,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt313),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt323),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt333))))))))),kmul(S3,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC cSL = klog(detgt);
-    
-    CCTK_REAL_VEC cXt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmsub(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2),Xt1L))));
-    
-    CCTK_REAL_VEC cXt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmsub(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2),Xt2L))));
-    
-    CCTK_REAL_VEC cXt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmsub(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2),Xt3L))));
-    
-    CCTK_REAL_VEC cAL = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(cA[index],cAL);
-    vec_store_nta_partial(cS[index],cSL);
-    vec_store_nta_partial(cXt1[index],cXt1L);
-    vec_store_nta_partial(cXt2[index],cXt2L);
-    vec_store_nta_partial(cXt3[index],cXt3L);
-    vec_store_nta_partial(M1[index],M1L);
-    vec_store_nta_partial(M2[index],M2L);
-    vec_store_nta_partial(M3[index],M3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_constraints2);
-}
-
-extern "C" void ML_BSSN_MP_constraints2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_constraints2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_constraints2_calc_every != ML_BSSN_MP_constraints2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_cons_detg",
-    "ML_BSSN_MP::ML_cons_Gamma",
-    "ML_BSSN_MP::ML_cons_traceA",
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_mom",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_constraints2", 11, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_constraints2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_constraints2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_constraints2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_constraints2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_constraints2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_constraints2_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBase.cc b/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBase.cc
deleted file mode 100644
index 2e4ac13..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBase.cc
+++ /dev/null
@@ -1,400 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_convertFromADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_convertFromADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alpL = vec_load(alp[index]);
-    CCTK_REAL_VEC betaxL = vec_load(betax[index]);
-    CCTK_REAL_VEC betayL = vec_load(betay[index]);
-    CCTK_REAL_VEC betazL = vec_load(betaz[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC kxxL = vec_load(kxx[index]);
-    CCTK_REAL_VEC kxyL = vec_load(kxy[index]);
-    CCTK_REAL_VEC kxzL = vec_load(kxz[index]);
-    CCTK_REAL_VEC kyyL = vec_load(kyy[index]);
-    CCTK_REAL_VEC kyzL = vec_load(kyz[index]);
-    CCTK_REAL_VEC kzzL = vec_load(kzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC g11 = gxxL;
-    
-    CCTK_REAL_VEC g12 = gxyL;
-    
-    CCTK_REAL_VEC g13 = gxzL;
-    
-    CCTK_REAL_VEC g22 = gyyL;
-    
-    CCTK_REAL_VEC g23 = gyzL;
-    
-    CCTK_REAL_VEC g33 = gzzL;
-    
-    CCTK_REAL_VEC detg = 
-      knmsub(g22,SQR(g13),knmsub(g11,SQR(g23),kmadd(g33,kmsub(g11,g22,SQR(g12)),kmul(g12,kmul(g13,kmul(g23,ToReal(2)))))));
-    
-    CCTK_REAL_VEC gu11 = kmul(INV(detg),kmsub(g22,g33,SQR(g23)));
-    
-    CCTK_REAL_VEC gu12 = kmul(INV(detg),kmsub(g13,g23,kmul(g12,g33)));
-    
-    CCTK_REAL_VEC gu13 = kmul(INV(detg),kmsub(g12,g23,kmul(g13,g22)));
-    
-    CCTK_REAL_VEC gu22 = kmul(INV(detg),kmsub(g11,g33,SQR(g13)));
-    
-    CCTK_REAL_VEC gu23 = kmul(INV(detg),kmsub(g12,g13,kmul(g11,g23)));
-    
-    CCTK_REAL_VEC gu33 = kmul(INV(detg),kmsub(g11,g22,SQR(g12)));
-    
-    CCTK_REAL_VEC em4phi;
-    
-    if (conformalMethod == 1)
-    {
-      phiL = kpow(detg,-0.166666666666666666666666666667);
-      
-      em4phi = SQR(phiL);
-    }
-    else
-    {
-      phiL = kmul(klog(detg),ToReal(0.0833333333333333333333333333333));
-      
-      em4phi = kexp(kmul(phiL,ToReal(-4)));
-    }
-    
-    CCTK_REAL_VEC gt11L = kmul(em4phi,g11);
-    
-    CCTK_REAL_VEC gt12L = kmul(em4phi,g12);
-    
-    CCTK_REAL_VEC gt13L = kmul(em4phi,g13);
-    
-    CCTK_REAL_VEC gt22L = kmul(em4phi,g22);
-    
-    CCTK_REAL_VEC gt23L = kmul(em4phi,g23);
-    
-    CCTK_REAL_VEC gt33L = kmul(em4phi,g33);
-    
-    trKL = 
-      kmadd(kxxL,gu11,kmadd(kyyL,gu22,kmadd(kzzL,gu33,kmul(kmadd(kxyL,gu12,kmadd(kxzL,gu13,kmul(kyzL,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11L = 
-      kmul(em4phi,kmadd(trKL,kmul(g11,ToReal(-0.333333333333333333333333333333)),kxxL));
-    
-    CCTK_REAL_VEC At12L = 
-      kmul(em4phi,kmadd(trKL,kmul(g12,ToReal(-0.333333333333333333333333333333)),kxyL));
-    
-    CCTK_REAL_VEC At13L = 
-      kmul(em4phi,kmadd(trKL,kmul(g13,ToReal(-0.333333333333333333333333333333)),kxzL));
-    
-    CCTK_REAL_VEC At22L = 
-      kmul(em4phi,kmadd(trKL,kmul(g22,ToReal(-0.333333333333333333333333333333)),kyyL));
-    
-    CCTK_REAL_VEC At23L = 
-      kmul(em4phi,kmadd(trKL,kmul(g23,ToReal(-0.333333333333333333333333333333)),kyzL));
-    
-    CCTK_REAL_VEC At33L = 
-      kmul(em4phi,kmadd(trKL,kmul(g33,ToReal(-0.333333333333333333333333333333)),kzzL));
-    
-    CCTK_REAL_VEC alphaL = alpL;
-    
-    CCTK_REAL_VEC beta1L = betaxL;
-    
-    CCTK_REAL_VEC beta2L = betayL;
-    
-    CCTK_REAL_VEC beta3L = betazL;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_convertFromADMBase);
-}
-
-extern "C" void ML_BSSN_MP_convertFromADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_convertFromADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_convertFromADMBase_calc_every != ML_BSSN_MP_convertFromADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_convertFromADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_convertFromADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_convertFromADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.cc b/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.cc
deleted file mode 100644
index 30273ee..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.cc
+++ /dev/null
@@ -1,926 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_convertFromADMBaseGamma_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP::ML_Gamma.");
-  return;
-}
-
-static void ML_BSSN_MP_convertFromADMBaseGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_convertFromADMBaseGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC dtalpL = vec_load(dtalp[index]);
-    CCTK_REAL_VEC dtbetaxL = vec_load(dtbetax[index]);
-    CCTK_REAL_VEC dtbetayL = vec_load(dtbetay[index]);
-    CCTK_REAL_VEC dtbetazL = vec_load(dtbetaz[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        break;
-      
-      case 4:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        break;
-      
-      case 6:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        break;
-      
-      case 8:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmul(ToReal(0.5),kmadd(gtu11,JacPDstandardNth1gt11,knmsub(gtu12,JacPDstandardNth2gt11,kmsub(kmadd(gtu12,JacPDstandardNth1gt12,kmul(gtu13,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu13,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth1gt11,knmsub(gtu22,JacPDstandardNth2gt11,kmsub(kmadd(gtu22,JacPDstandardNth1gt12,kmul(gtu23,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu23,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth1gt11,knmsub(gtu23,JacPDstandardNth2gt11,kmsub(kmadd(gtu23,JacPDstandardNth1gt12,kmul(gtu33,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu33,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmul(kmadd(gtu12,JacPDstandardNth1gt22,kmadd(gtu11,JacPDstandardNth2gt11,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmul(kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu12,JacPDstandardNth2gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt22,kmadd(gtu13,JacPDstandardNth2gt11,kmul(gtu33,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmul(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu11,JacPDstandardNth3gt11,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt33,kmadd(gtu12,JacPDstandardNth3gt11,kmul(gtu22,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmul(kmadd(gtu33,JacPDstandardNth1gt33,kmadd(gtu13,JacPDstandardNth3gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth2gt22,kmadd(gtu11,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu13,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmul(ToReal(0.5),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu12,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu23,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth2gt22,kmadd(gtu13,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu33,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmul(kmadd(gtu13,JacPDstandardNth2gt33,kmadd(gtu12,JacPDstandardNth3gt22,kmul(gtu11,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmul(kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu22,JacPDstandardNth3gt22,kmul(gtu12,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmul(kmadd(gtu33,JacPDstandardNth2gt33,kmadd(gtu23,JacPDstandardNth3gt22,kmul(gtu13,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth3gt33,kmadd(gtu11,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu12,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth3gt33,kmadd(gtu12,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu22,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmul(ToReal(0.5),kmadd(gtu33,JacPDstandardNth3gt33,kmadd(gtu13,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Xt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC AL = IfThen(LapseACoeff != 
-      0,kneg(kmul(INV(ToReal(harmonicF)),kmul(kpow(alphaL,-harmonicN),knmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),dtalpL)))),ToReal(0));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC B1L;
-    CCTK_REAL_VEC B2L;
-    CCTK_REAL_VEC B3L;
-    
-    if (ShiftBCoeff*ShiftGammaCoeff != 0)
-    {
-      B1L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetaxL));
-      
-      B2L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetayL));
-      
-      B3L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetazL));
-    }
-    else
-    {
-      B1L = ToReal(0);
-      
-      B2L = ToReal(0);
-      
-      B3L = ToReal(0);
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_convertFromADMBaseGamma);
-}
-
-extern "C" void ML_BSSN_MP_convertFromADMBaseGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_convertFromADMBaseGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_convertFromADMBaseGamma_calc_every != ML_BSSN_MP_convertFromADMBaseGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_shift"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_convertFromADMBaseGamma", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_convertFromADMBaseGamma", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_convertFromADMBaseGamma", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_convertFromADMBaseGamma", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_convertFromADMBaseGamma", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_convertFromADMBaseGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_convertFromADMBaseGamma_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.cc b/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.cc
deleted file mode 100644
index 1d4b546..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.cc
+++ /dev/null
@@ -1,362 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_convertToADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_convertToADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    gxxL = kmul(gt11L,e4phi);
-    
-    gxyL = kmul(gt12L,e4phi);
-    
-    gxzL = kmul(gt13L,e4phi);
-    
-    gyyL = kmul(gt22L,e4phi);
-    
-    gyzL = kmul(gt23L,e4phi);
-    
-    gzzL = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC kxxL = 
-      kmadd(At11L,e4phi,kmul(gxxL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxyL = 
-      kmadd(At12L,e4phi,kmul(gxyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxzL = 
-      kmadd(At13L,e4phi,kmul(gxzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyyL = 
-      kmadd(At22L,e4phi,kmul(gyyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyzL = 
-      kmadd(At23L,e4phi,kmul(gyzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kzzL = 
-      kmadd(At33L,e4phi,kmul(gzzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC alpL = alphaL;
-    
-    CCTK_REAL_VEC betaxL = beta1L;
-    
-    CCTK_REAL_VEC betayL = beta2L;
-    
-    CCTK_REAL_VEC betazL = beta3L;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alp[index],alpL);
-    vec_store_nta_partial(betax[index],betaxL);
-    vec_store_nta_partial(betay[index],betayL);
-    vec_store_nta_partial(betaz[index],betazL);
-    vec_store_nta_partial(gxx[index],gxxL);
-    vec_store_nta_partial(gxy[index],gxyL);
-    vec_store_nta_partial(gxz[index],gxzL);
-    vec_store_nta_partial(gyy[index],gyyL);
-    vec_store_nta_partial(gyz[index],gyzL);
-    vec_store_nta_partial(gzz[index],gzzL);
-    vec_store_nta_partial(kxx[index],kxxL);
-    vec_store_nta_partial(kxy[index],kxyL);
-    vec_store_nta_partial(kxz[index],kxzL);
-    vec_store_nta_partial(kyy[index],kyyL);
-    vec_store_nta_partial(kyz[index],kyzL);
-    vec_store_nta_partial(kzz[index],kzzL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_convertToADMBase);
-}
-
-extern "C" void ML_BSSN_MP_convertToADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_convertToADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_convertToADMBase_calc_every != ML_BSSN_MP_convertToADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_convertToADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_convertToADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_convertToADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBaseDtLapseShift.cc b/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBaseDtLapseShift.cc
deleted file mode 100644
index 74d185d..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBaseDtLapseShift.cc
+++ /dev/null
@@ -1,918 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_convertToADMBaseDtLapseShift_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_MP_convertToADMBaseDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_convertToADMBaseDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4))))))))))))))))),kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetayL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetazL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_convertToADMBaseDtLapseShift);
-}
-
-extern "C" void ML_BSSN_MP_convertToADMBaseDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_convertToADMBaseDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_convertToADMBaseDtLapseShift_calc_every != ML_BSSN_MP_convertToADMBaseDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_log_confac",
-    "ML_BSSN_MP::ML_metric",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_convertToADMBaseDtLapseShift", 12, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_convertToADMBaseDtLapseShift", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_convertToADMBaseDtLapseShift", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_convertToADMBaseDtLapseShift", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_convertToADMBaseDtLapseShift", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_convertToADMBaseDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_convertToADMBaseDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary.cc b/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary.cc
deleted file mode 100644
index 5f6ec46..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary.cc
+++ /dev/null
@@ -1,346 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary);
-}
-
-extern "C" void ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_calc_every != ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBaseFakeDtLapseShift.cc b/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBaseFakeDtLapseShift.cc
deleted file mode 100644
index ff7cd82..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBaseFakeDtLapseShift.cc
+++ /dev/null
@@ -1,331 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_convertToADMBaseFakeDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_convertToADMBaseFakeDtLapseShift);
-}
-
-extern "C" void ML_BSSN_MP_convertToADMBaseFakeDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_calc_every != ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP::ML_dtlapse",
-    "ML_BSSN_MP::ML_dtshift",
-    "ML_BSSN_MP::ML_Gamma",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_shift",
-    "ML_BSSN_MP::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_convertToADMBaseFakeDtLapseShift", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_convertToADMBaseFakeDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_enforce.cc b/ML_BSSN_MP/src/ML_BSSN_MP_enforce.cc
deleted file mode 100644
index 5c06425..0000000
--- a/ML_BSSN_MP/src/ML_BSSN_MP_enforce.cc
+++ /dev/null
@@ -1,337 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_enforce_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_enforce,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC trAt = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    At11L = 
-      kmadd(gt11L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At11L);
-    
-    At12L = 
-      kmadd(gt12L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At12L);
-    
-    At13L = 
-      kmadd(gt13L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At13L);
-    
-    At22L = 
-      kmadd(gt22L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At22L);
-    
-    At23L = 
-      kmadd(gt23L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At23L);
-    
-    At33L = 
-      kmadd(gt33L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At33L);
-    
-    alphaL = kfmax(alphaL,ToReal(MinimumLapse));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_enforce);
-}
-
-extern "C" void ML_BSSN_MP_enforce(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_enforce_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_enforce_calc_every != ML_BSSN_MP_enforce_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP::ML_curv",
-    "ML_BSSN_MP::ML_lapse",
-    "ML_BSSN_MP::ML_metric"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_enforce", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_enforce_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_enforce_Body");
-  }
-}
diff --git a/ML_BSSN_MP/src/RegisterMoL.cc b/ML_BSSN_MP/src/RegisterMoL.cc
deleted file mode 100644
index 984d576..0000000
--- a/ML_BSSN_MP/src/RegisterMoL.cc
+++ /dev/null
@@ -1,43 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_BSSN_MP_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::At11"),  CCTK_VarIndex("ML_BSSN_MP::At11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::At12"),  CCTK_VarIndex("ML_BSSN_MP::At12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::At13"),  CCTK_VarIndex("ML_BSSN_MP::At13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::At22"),  CCTK_VarIndex("ML_BSSN_MP::At22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::At23"),  CCTK_VarIndex("ML_BSSN_MP::At23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::At33"),  CCTK_VarIndex("ML_BSSN_MP::At33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::A"),  CCTK_VarIndex("ML_BSSN_MP::Arhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::B1"),  CCTK_VarIndex("ML_BSSN_MP::B1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::B2"),  CCTK_VarIndex("ML_BSSN_MP::B2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::B3"),  CCTK_VarIndex("ML_BSSN_MP::B3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::Xt1"),  CCTK_VarIndex("ML_BSSN_MP::Xt1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::Xt2"),  CCTK_VarIndex("ML_BSSN_MP::Xt2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::Xt3"),  CCTK_VarIndex("ML_BSSN_MP::Xt3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::alpha"),  CCTK_VarIndex("ML_BSSN_MP::alpharhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::phi"),  CCTK_VarIndex("ML_BSSN_MP::phirhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::gt11"),  CCTK_VarIndex("ML_BSSN_MP::gt11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::gt12"),  CCTK_VarIndex("ML_BSSN_MP::gt12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::gt13"),  CCTK_VarIndex("ML_BSSN_MP::gt13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::gt22"),  CCTK_VarIndex("ML_BSSN_MP::gt22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::gt23"),  CCTK_VarIndex("ML_BSSN_MP::gt23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::gt33"),  CCTK_VarIndex("ML_BSSN_MP::gt33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::beta1"),  CCTK_VarIndex("ML_BSSN_MP::beta1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::beta2"),  CCTK_VarIndex("ML_BSSN_MP::beta2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::beta3"),  CCTK_VarIndex("ML_BSSN_MP::beta3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP::trK"),  CCTK_VarIndex("ML_BSSN_MP::trKrhs"));
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_BSSN_MP/src/RegisterSymmetries.cc b/ML_BSSN_MP/src/RegisterSymmetries.cc
deleted file mode 100644
index 4f9ee29..0000000
--- a/ML_BSSN_MP/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,189 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_BSSN_MP_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::At11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::At12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::At13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::At22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::At23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::At33");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::A");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::B1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::B2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::B3");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::Xt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::Xt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::Xt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::alpha");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::phi");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::gt11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::gt12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::gt13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::gt22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::gt23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::gt33");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::beta1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::beta2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::beta3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::trK");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::cS");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::cXt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::cXt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::cXt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::cA");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::H");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::M1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::M2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP::M3");
-  
-}
diff --git a/ML_BSSN_MP/src/Startup.cc b/ML_BSSN_MP/src/Startup.cc
deleted file mode 100644
index 3e145e3..0000000
--- a/ML_BSSN_MP/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_BSSN_MP_Startup(void)
-{
-  const char * banner = "ML_BSSN_MP";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_BSSN_MP/src/make.code.defn b/ML_BSSN_MP/src/make.code.defn
deleted file mode 100644
index 4cde6e2..0000000
--- a/ML_BSSN_MP/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc ML_BSSN_MP_Minkowski.cc ML_BSSN_MP_convertFromADMBase.cc ML_BSSN_MP_InitGamma.cc ML_BSSN_MP_convertFromADMBaseGamma.cc ML_BSSN_MP_RHS1.cc ML_BSSN_MP_RHS2.cc ML_BSSN_MP_Dissipation.cc ML_BSSN_MP_Advect.cc ML_BSSN_MP_InitRHS.cc ML_BSSN_MP_RHSStaticBoundary.cc ML_BSSN_MP_enforce.cc ML_BSSN_MP_boundary.cc ML_BSSN_MP_convertToADMBase.cc ML_BSSN_MP_convertToADMBaseDtLapseShift.cc ML_BSSN_MP_convertToADMBaseDtLapseShiftBoundary.cc ML_BSSN_MP_convertToADMBaseFakeDtLapseShift.cc ML_BSSN_MP_constraints1.cc ML_BSSN_MP_constraints2.cc Boundaries.cc 
diff --git a/ML_BSSN_MP_Helper/configuration.ccl b/ML_BSSN_MP_Helper/configuration.ccl
deleted file mode 100644
index edaa5b7..0000000
--- a/ML_BSSN_MP_Helper/configuration.ccl
+++ /dev/null
@@ -1 +0,0 @@
-REQUIRES THORNS: CartGrid3D CoordGauge
diff --git a/ML_BSSN_MP_Helper/interface.ccl b/ML_BSSN_MP_Helper/interface.ccl
deleted file mode 100644
index e97ede1..0000000
--- a/ML_BSSN_MP_Helper/interface.ccl
+++ /dev/null
@@ -1,38 +0,0 @@
-IMPLEMENTS: ML_BSSN_MP_Helper
-
-INHERITS: ADMBase CoordGauge ML_BSSN_MP
-
-USES INCLUDE: Slicing.h
-USES INCLUDE: Symmetry.h
-
-
-
-CCTK_INT FUNCTION MoLRegisterConstrainedGroup \
-    (CCTK_INT IN ConstrainedIndex)
-USES FUNCTION MoLRegisterConstrainedGroup
-
-CCTK_INT FUNCTION                         \
-    Boundary_SelectGroupForBC             \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-          CCTK_INT IN faces,              \
-          CCTK_INT IN boundary_width,     \
-          CCTK_INT IN table_handle,       \
-          CCTK_STRING IN group_name,      \
-          CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION                         \
-    ExtrapolateGammas                     \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY INOUT var)
-USES FUNCTION ExtrapolateGammas
-
-CCTK_INT FUNCTION                         \
-    NewRad_Apply                          \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY IN var,          \
-         CCTK_REAL ARRAY INOUT rhs,       \
-         CCTK_REAL IN var0,               \
-         CCTK_REAL IN v0,                 \
-         CCTK_INT IN radpower)
-USES FUNCTION NewRad_Apply
diff --git a/ML_BSSN_MP_Helper/param.ccl b/ML_BSSN_MP_Helper/param.ccl
deleted file mode 100644
index b7ab293..0000000
--- a/ML_BSSN_MP_Helper/param.ccl
+++ /dev/null
@@ -1,39 +0,0 @@
-SHARES: Boundary
-
-USES CCTK_INT radpower
-
-SHARES: MethodofLines
-
-USES CCTK_INT MoL_Num_Constrained_Vars
-
-SHARES: ADMBase
-
-USES KEYWORD evolution_method
-
-SHARES: GenericFD
-
-USES CCTK_INT boundary_width
-
-SHARES: ML_BSSN_MP
-
-USES CCTK_INT timelevels
-USES CCTK_INT rhs_timelevels
-USES KEYWORD calculate_ADMBase_variables_at
-
-USES CCTK_REAL harmonicF
-
-EXTENDS KEYWORD my_initial_boundary_condition
-{
-  "extrapolate-gammas" :: "extrapolate-gammas"
-}
-EXTENDS KEYWORD my_rhs_boundary_condition
-{
-  "NewRad" :: "NewRad"
-}
-
-PRIVATE:
-
-CCTK_INT ML_BSSN_MP_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars
-{
-  20:20 :: "Number of constrained variables used by this thorn"
-} 20
diff --git a/ML_BSSN_MP_Helper/schedule.ccl b/ML_BSSN_MP_Helper/schedule.ccl
deleted file mode 100644
index 14dbea9..0000000
--- a/ML_BSSN_MP_Helper/schedule.ccl
+++ /dev/null
@@ -1,161 +0,0 @@
-if (CCTK_EQUALS (evolution_method, "ML_BSSN_MP")) {
-  
-  if (timelevels == 1) {
-    STORAGE: ADMBase::metric[1]
-    STORAGE: ADMBase::curv[1]
-    STORAGE: ADMBase::lapse[1]
-    STORAGE: ADMBase::shift[1]
-    STORAGE: ADMBase::dtlapse[1]
-    STORAGE: ADMBase::dtshift[1]
-  } else if (timelevels == 2) {
-    STORAGE: ADMBase::metric[2]
-    STORAGE: ADMBase::curv[2]
-    STORAGE: ADMBase::lapse[2]
-    STORAGE: ADMBase::shift[2]
-    STORAGE: ADMBase::dtlapse[2]
-    STORAGE: ADMBase::dtshift[2]
-  } else if (timelevels == 3) {
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  } else if (timelevels == 4) {
-    #STORAGE: ADMBase::metric[4]
-    #STORAGE: ADMBase::curv[4]
-    #STORAGE: ADMBase::lapse[4]
-    #STORAGE: ADMBase::shift[4]
-    #STORAGE: ADMBase::dtlapse[4]
-    #STORAGE: ADMBase::dtshift[4]
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  }
-  
-  SCHEDULE ML_BSSN_MP_RegisterSlicing AT startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register slicing"
-  
-  SCHEDULE ML_BSSN_MP_SetGroupTags AT startup BEFORE Driver_Startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Set checkpointing and prolongation group tags"
-  
-  SCHEDULE ML_BSSN_MP_RegisterConstrained IN MoL_Register
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register ADMBase variables as constrained"
-  
-  
-  
-  # Why would any of these two be necessary?
-  #SCHEDULE GROUP ML_BSSN_MP_evolCalcGroup AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Calculate BSSN RHS"
-  #SCHEDULE GROUP MoL_CalcRHS AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Evaluate RHS"
-  
-  SCHEDULE GROUP ML_BSSN_MP_evolCalcGroup IN MoL_CalcRHS
-  {
-  } "Calculate BSSN RHS"
-  
-  SCHEDULE GROUP ML_BSSN_MP_evolCalcGroup AT analysis
-  {
-    TRIGGERS: ML_BSSN_MP::ML_log_confacrhs
-    TRIGGERS: ML_BSSN_MP::ML_metricrhs
-    TRIGGERS: ML_BSSN_MP::ML_Gammarhs
-    TRIGGERS: ML_BSSN_MP::ML_trace_curvrhs
-    TRIGGERS: ML_BSSN_MP::ML_curvrhs
-    TRIGGERS: ML_BSSN_MP::ML_lapserhs
-    TRIGGERS: ML_BSSN_MP::ML_dtlapserhs
-    TRIGGERS: ML_BSSN_MP::ML_shiftrhs
-    TRIGGERS: ML_BSSN_MP::ML_dtshiftrhs
-  } "Calculate BSSN RHS"
-  
-  
-  
-  if (CCTK_EQUALS (my_initial_boundary_condition, "extrapolate-gammas"))
-  {
-    SCHEDULE ML_BSSN_MP_ExtrapolateGammas AT initial AFTER ML_BSSN_MP_convertFromADMBaseGamma
-    {
-      LANG: C
-      # We don't need to synchronise here because extrapolation is now filling
-      # ghost zones
-      #SYNC: ML_Gamma
-      #SYNC: ML_dtlapse
-      #SYNC: ML_dtshift
-    } "Extrapolate Gammas and time derivatives of lapse and shift"
-  }
-  
-  if (CCTK_EQUALS (my_rhs_boundary_condition, "NewRad"))
-  {
-    SCHEDULE ML_BSSN_MP_NewRad IN ML_BSSN_MP_evolCalcGroup AFTER ML_BSSN_MP_RHS
-    {
-      LANG: C
-      #SYNC: ML_curvrhs
-      #SYNC: ML_dtlapserhs
-      #SYNC: ML_dtshiftrhs
-      #SYNC: ML_Gammarhs
-      #SYNC: ML_lapserhs
-      #SYNC: ML_log_confacrhs
-      #SYNC: ML_metricrhs
-      #SYNC: ML_shiftrhs
-      #SYNC: ML_trace_curvrhs
-    } "Apply NewRad boundary conditions to RHS"
-  }
-  
-  
-  
-  SCHEDULE GROUP ML_BSSN_MP_convertToADMBaseGroup IN ML_BSSN_MP_convertToADMBaseGroupWrapper
-  {
-    #SYNC: ADMBase::metric
-    #SYNC: ADMBase::curv
-    #SYNC: ADMBase::lapse
-    #SYNC: ADMBase::shift
-    #SYNC: ADMBase::dtlapse
-    #SYNC: ADMBase::dtshift
-  } "Calculate ADM variables"
-  
-  if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep"))
-  {
-    SCHEDULE GROUP ML_BSSN_MP_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_MP_ApplyBCs ML_BSSN_MP_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_EVOL"))
-  {
-    SCHEDULE GROUP ML_BSSN_MP_convertToADMBaseGroupWrapper IN MoL_PseudoEvolution BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_ANALYSIS"))
-  {
-    SCHEDULE GROUP ML_BSSN_MP_convertToADMBaseGroupWrapper AT post_recover_variables
-    {
-    } "Calculate ADM variables"
-    
-    SCHEDULE GROUP ML_BSSN_MP_convertToADMBaseGroupWrapper AT analysis BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-
-  SCHEDULE ML_BSSN_MP_SelectBCsADMBase IN ML_BSSN_MP_convertToADMBaseGroupWrapper AFTER ML_BSSN_MP_convertToADMBaseGroup
-  {
-    LANG: C
-    OPTIONS: level
-  } "Select boundary conditions for ADMBase variables"
-  
-  SCHEDULE GROUP ApplyBCs AS ML_BSSN_MP_ApplyBCsADMBase IN ML_BSSN_MP_convertToADMBaseGroupWrapper AFTER ML_BSSN_MP_SelectBCsADMBase
-  {
-  } "Apply boundary conditions to ADMBase variables"
-  
-}
diff --git a/ML_BSSN_MP_Helper/src/ExtrapolateGammas.c b/ML_BSSN_MP_Helper/src/ExtrapolateGammas.c
deleted file mode 100644
index 9e3dcd4..0000000
--- a/ML_BSSN_MP_Helper/src/ExtrapolateGammas.c
+++ /dev/null
@@ -1,29 +0,0 @@
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-extrap (cGH const * restrict cctkGH,
-        CCTK_REAL * restrict var);
-
-void
-ML_BSSN_MP_ExtrapolateGammas (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  extrap (cctkGH, Xt1);
-  extrap (cctkGH, Xt2);
-  extrap (cctkGH, Xt3);
-  
-  extrap (cctkGH, A);
-  
-  extrap (cctkGH, B1);
-  extrap (cctkGH, B2);
-  extrap (cctkGH, B3);
-}
-
-static void
-extrap (cGH const * restrict const cctkGH,
-        CCTK_REAL * restrict const var)
-{
-  ExtrapolateGammas (cctkGH, var);
-}
diff --git a/ML_BSSN_MP_Helper/src/NewRad.c b/ML_BSSN_MP_Helper/src/NewRad.c
deleted file mode 100644
index 5a607d3..0000000
--- a/ML_BSSN_MP_Helper/src/NewRad.c
+++ /dev/null
@@ -1,67 +0,0 @@
-#include <math.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-newrad (cGH const * restrict cctkGH,
-        CCTK_REAL const * restrict var,
-        CCTK_REAL * restrict rhs,
-        CCTK_REAL var0,
-        CCTK_REAL v0);
-
-void
-ML_BSSN_MP_NewRad (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_REAL const v0 = sqrt (harmonicF);
-  
-  newrad (cctkGH, phi  , phirhs  , 0.0, v0 );
-  
-  newrad (cctkGH, gt11 , gt11rhs , 1.0, 1.0);
-  newrad (cctkGH, gt12 , gt12rhs , 0.0, 1.0);
-  newrad (cctkGH, gt13 , gt13rhs , 0.0, 1.0);
-  newrad (cctkGH, gt22 , gt22rhs , 1.0, 1.0);
-  newrad (cctkGH, gt23 , gt23rhs , 0.0, 1.0);
-  newrad (cctkGH, gt33 , gt33rhs , 1.0, 1.0);
-  
-  newrad (cctkGH, Xt1  , Xt1rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt2  , Xt2rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt3  , Xt3rhs  , 0.0, 1.0);
-  
-  newrad (cctkGH, trK  , trKrhs  , 0.0, v0 );
-  
-  newrad (cctkGH, At11 , At11rhs , 0.0, 1.0);
-  newrad (cctkGH, At12 , At12rhs , 0.0, 1.0);
-  newrad (cctkGH, At13 , At13rhs , 0.0, 1.0);
-  newrad (cctkGH, At22 , At22rhs , 0.0, 1.0);
-  newrad (cctkGH, At23 , At23rhs , 0.0, 1.0);
-  newrad (cctkGH, At33 , At33rhs , 0.0, 1.0);
-  
-  newrad (cctkGH, alpha, alpharhs, 1.0, v0 );
-  
-  newrad (cctkGH, A    , Arhs    , 0.0, v0 );
-  
-  newrad (cctkGH, beta1, beta1rhs, 0.0, 1.0);
-  newrad (cctkGH, beta2, beta2rhs, 0.0, 1.0);
-  newrad (cctkGH, beta3, beta3rhs, 0.0, 1.0);
-  
-  newrad (cctkGH, B1   , B1rhs   , 0.0, 1.0);
-  newrad (cctkGH, B2   , B2rhs   , 0.0, 1.0);
-  newrad (cctkGH, B3   , B3rhs   , 0.0, 1.0);
-}
-
-static void
-newrad (cGH const * restrict const cctkGH,
-        CCTK_REAL const * restrict const var,
-        CCTK_REAL * restrict const rhs,
-        CCTK_REAL const var0,
-        CCTK_REAL const v0)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  NewRad_Apply (cctkGH, var, rhs, var0, v0, radpower);
-}
diff --git a/ML_BSSN_MP_Helper/src/RegisterConstrained.c b/ML_BSSN_MP_Helper/src/RegisterConstrained.c
deleted file mode 100644
index 36948f2..0000000
--- a/ML_BSSN_MP_Helper/src/RegisterConstrained.c
+++ /dev/null
@@ -1,32 +0,0 @@
-#include <assert.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-register_constrained (char const * restrict const gn);
-
-void
-ML_BSSN_MP_RegisterConstrained (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  register_constrained ("ADMBase::metric");
-  register_constrained ("ADMBase::curv");
-  register_constrained ("ADMBase::lapse");
-  register_constrained ("ADMBase::shift");
-  register_constrained ("ADMBase::dtlapse");
-  register_constrained ("ADMBase::dtshift");
-}
-
-static void
-register_constrained (char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  int const ierr = MoLRegisterConstrainedGroup (gi);
-  assert (! ierr);
-}
diff --git a/ML_BSSN_MP_Helper/src/RegisterSlicing.c b/ML_BSSN_MP_Helper/src/RegisterSlicing.c
deleted file mode 100644
index f7b8276..0000000
--- a/ML_BSSN_MP_Helper/src/RegisterSlicing.c
+++ /dev/null
@@ -1,9 +0,0 @@
-#include <cctk.h>
-#include <Slicing.h>
-
-int
-ML_BSSN_MP_RegisterSlicing (void)
-{
-  Einstein_RegisterSlicing ("ML_BSSN_MP");
-  return 0;
-}
diff --git a/ML_BSSN_MP_Helper/src/SelectBCsADMBase.c b/ML_BSSN_MP_Helper/src/SelectBCsADMBase.c
deleted file mode 100644
index f714891..0000000
--- a/ML_BSSN_MP_Helper/src/SelectBCsADMBase.c
+++ /dev/null
@@ -1,31 +0,0 @@
-#include <assert.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-select_bcs (cGH const * restrict cctkGH, char const * restrict gn);
-
-void
-ML_BSSN_MP_SelectBCsADMBase (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  select_bcs (cctkGH, "ADMBase::metric");
-  select_bcs (cctkGH, "ADMBase::curv");
-  select_bcs (cctkGH, "ADMBase::lapse");
-  select_bcs (cctkGH, "ADMBase::shift");
-  select_bcs (cctkGH, "ADMBase::dtlapse");
-  select_bcs (cctkGH, "ADMBase::dtshift");
-}
-
-static void
-select_bcs (cGH const * restrict const cctkGH, char const * restrict const gn)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const ierr = Boundary_SelectGroupForBC
-    (cctkGH, CCTK_ALL_FACES, boundary_width, -1, gn, "none");
-  assert (! ierr);
-}
diff --git a/ML_BSSN_MP_Helper/src/SetGroupTags.c b/ML_BSSN_MP_Helper/src/SetGroupTags.c
deleted file mode 100644
index 08731e4..0000000
--- a/ML_BSSN_MP_Helper/src/SetGroupTags.c
+++ /dev/null
@@ -1,76 +0,0 @@
-#include <cctk.h>
-#include <cctk_Parameters.h>
-#include <util_Table.h>
-
-#include <assert.h>
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn);
-
-int
-ML_BSSN_MP_SetGroupTags (void)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const checkpoint = timelevels > 1;
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::metric");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::curv");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::lapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::shift");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtlapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtshift");
-  
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP::ML_cons_detg");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP::ML_cons_Gamma");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP::ML_cons_traceA");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP::ML_Ham");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP::ML_mom");
-  
-  int const rhs_checkpoint = rhs_timelevels > 1;
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP::ML_log_confacrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP::ML_metricrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP::ML_Gammarhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP::ML_trace_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP::ML_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP::ML_lapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP::ML_dtlapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP::ML_shiftrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP::ML_dtshiftrhs");
-  
-  return 0;
-}
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  assert (gi >= 0);
-  
-  int const table = CCTK_GroupTagsTableI (gi);
-  assert (table >= 0);
-  
-  if (! checkpoint) {
-    int const ierr = Util_TableSetString (table, "no", "Checkpoint");
-    assert (! ierr);
-  }
-  
-  if (! persistent) {
-    int const ierr = Util_TableSetString (table, "no", "Persistent");
-    assert (! ierr);
-  }
-  
-  if (! prolongate) {
-    int const iret = Util_TableDeleteKey (table, "ProlongationParameter");
-    assert (iret == 0 || iret == UTIL_ERROR_TABLE_NO_SUCH_KEY);
-    int const ierr = Util_TableSetString (table, "none", "Prolongation");
-    assert (! ierr);
-  }
-}
diff --git a/ML_BSSN_MP_Helper/src/make.code.defn b/ML_BSSN_MP_Helper/src/make.code.defn
deleted file mode 100644
index a3ac433..0000000
--- a/ML_BSSN_MP_Helper/src/make.code.defn
+++ /dev/null
@@ -1,2 +0,0 @@
-# -*-Makefile-*-
-SRCS = ExtrapolateGammas.c NewRad.c RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c SetGroupTags.c
diff --git a/ML_BSSN_MP_O8/configuration.ccl b/ML_BSSN_MP_O8/configuration.ccl
deleted file mode 100644
index bdbc1bd..0000000
--- a/ML_BSSN_MP_O8/configuration.ccl
+++ /dev/null
@@ -1,5 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-REQUIRES LoopControl
-REQUIRES Vectors
diff --git a/ML_BSSN_MP_O8/interface.ccl b/ML_BSSN_MP_O8/interface.ccl
deleted file mode 100644
index f7d56ff..0000000
--- a/ML_BSSN_MP_O8/interface.ccl
+++ /dev/null
@@ -1,203 +0,0 @@
-# File produced by Kranc
-
-implements: ML_BSSN_MP_O8
-
-inherits:   ADMBase TmunuBase Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-USES INCLUDE: vectors.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL ML_cons_detg type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=2'
-{
-  cS
-} "ML_cons_detg"
-
-public:
-CCTK_REAL ML_cons_Gamma type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  cXt1,
-  cXt2,
-  cXt3
-} "ML_cons_Gamma"
-
-public:
-CCTK_REAL ML_cons_traceA type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  cA
-} "ML_cons_traceA"
-
-public:
-CCTK_REAL ML_Ham type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  H
-} "ML_Ham"
-
-public:
-CCTK_REAL ML_mom type=GF timelevels=1 tags='tensortypealias="D" tensorweight=0'
-{
-  M1,
-  M2,
-  M3
-} "ML_mom"
-
-public:
-CCTK_REAL ML_curv type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11,
-  At12,
-  At13,
-  At22,
-  At23,
-  At33
-} "ML_curv"
-
-public:
-CCTK_REAL ML_dtlapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  A
-} "ML_dtlapse"
-
-public:
-CCTK_REAL ML_dtshift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1,
-  B2,
-  B3
-} "ML_dtshift"
-
-public:
-CCTK_REAL ML_Gamma type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1,
-  Xt2,
-  Xt3
-} "ML_Gamma"
-
-public:
-CCTK_REAL ML_lapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpha
-} "ML_lapse"
-
-public:
-CCTK_REAL ML_log_confac type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phi
-} "ML_log_confac"
-
-public:
-CCTK_REAL ML_metric type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11,
-  gt12,
-  gt13,
-  gt22,
-  gt23,
-  gt33
-} "ML_metric"
-
-public:
-CCTK_REAL ML_shift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1,
-  beta2,
-  beta3
-} "ML_shift"
-
-public:
-CCTK_REAL ML_trace_curv type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trK
-} "ML_trace_curv"
-
-public:
-CCTK_REAL ML_curvrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11rhs,
-  At12rhs,
-  At13rhs,
-  At22rhs,
-  At23rhs,
-  At33rhs
-} "ML_curvrhs"
-
-public:
-CCTK_REAL ML_dtlapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  Arhs
-} "ML_dtlapserhs"
-
-public:
-CCTK_REAL ML_dtshiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1rhs,
-  B2rhs,
-  B3rhs
-} "ML_dtshiftrhs"
-
-public:
-CCTK_REAL ML_Gammarhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1rhs,
-  Xt2rhs,
-  Xt3rhs
-} "ML_Gammarhs"
-
-public:
-CCTK_REAL ML_lapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpharhs
-} "ML_lapserhs"
-
-public:
-CCTK_REAL ML_log_confacrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phirhs
-} "ML_log_confacrhs"
-
-public:
-CCTK_REAL ML_metricrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11rhs,
-  gt12rhs,
-  gt13rhs,
-  gt22rhs,
-  gt23rhs,
-  gt33rhs
-} "ML_metricrhs"
-
-public:
-CCTK_REAL ML_shiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1rhs,
-  beta2rhs,
-  beta3rhs
-} "ML_shiftrhs"
-
-public:
-CCTK_REAL ML_trace_curvrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trKrhs
-} "ML_trace_curvrhs"
diff --git a/ML_BSSN_MP_O8/param.ccl b/ML_BSSN_MP_O8/param.ccl
deleted file mode 100644
index 6fc3795..0000000
--- a/ML_BSSN_MP_O8/param.ccl
+++ /dev/null
@@ -1,1480 +0,0 @@
-# File produced by Kranc
-
-
-shares: ADMBase
-
-
-EXTENDS CCTK_KEYWORD evolution_method "evolution_method"
-{
-  ML_BSSN_MP_O8 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD lapse_evolution_method "lapse_evolution_method"
-{
-  ML_BSSN_MP_O8 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD shift_evolution_method "shift_evolution_method"
-{
-  ML_BSSN_MP_O8 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtlapse_evolution_method "dtlapse_evolution_method"
-{
-  ML_BSSN_MP_O8 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtshift_evolution_method "dtshift_evolution_method"
-{
-  ML_BSSN_MP_O8 :: ""
-} 
-
-
-
-shares: GenericFD
-
-USES CCTK_STRING jacobian_group
-USES CCTK_STRING jacobian_derivative_group
-USES CCTK_INT jacobian_identity_map
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseACoeff "Whether to evolve A in time"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL harmonicF "d/dt alpha = - f alpha^n K   (harmonic=1, 1+log=2)"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL AlphaDriver "AlphaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL ShiftBCoeff "Whether to evolve B^i in time"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftGammaCoeff "ShiftGammaCoeff"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL BetaDriver "BetaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseAdvectionCoeff "Factor in front of the lapse advection terms in 1+log"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftAdvectionCoeff "Factor in front of the shift advection terms in gamma driver"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL MinimumLapse "Minimum value of the lapse function"
-{
-  "*:*" :: ""
-} -1
-
-restricted:
-CCTK_REAL SpatialBetaDriverRadius "Radius at which the BetaDriver starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL SpatialShiftGammaCoeffRadius "Radius at which the ShiftGammaCoefficient starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL EpsDiss "Dissipation strength"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_INT harmonicN "d/dt alpha = - f alpha^n K  (harmonic=2, 1+log=1)"
-{
-  *:* :: ""
-} 2
-
-restricted:
-CCTK_INT ShiftAlphaPower "ShiftAlphaPower"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT conformalMethod "Treatment of conformal factor"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT fdOrder "fdOrder"
-{
-  *:* :: ""
-} 8
-
-restricted:
-CCTK_INT harmonicShift "Whether to use the harmonic shift"
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD my_initial_data "my_initial_data"
-{
-  "ADMBase" :: "ADMBase"
-  "Minkowski" :: "Minkowski"
-} "ADMBase"
-
-restricted:
-KEYWORD my_initial_boundary_condition "my_initial_boundary_condition"
-{
-  "none" :: "none"
-} "none"
-
-restricted:
-KEYWORD my_rhs_boundary_condition "my_rhs_boundary_condition"
-{
-  "none" :: "none"
-  "static" :: "static"
-  "radiative" :: "radiative"
-} "none"
-
-private:
-KEYWORD my_boundary_condition "my_boundary_condition"
-{
-  "none" :: "none"
-  "Minkowski" :: "Minkowski"
-} "none"
-
-restricted:
-KEYWORD calculate_ADMBase_variables_at "calculate_ADMBase_variables_at"
-{
-  "MoL_PostStep" :: "MoL_PostStep"
-  "CCTK_EVOL" :: "CCTK_EVOL"
-  "CCTK_ANALYSIS" :: "CCTK_ANALYSIS"
-} "MoL_PostStep"
-
-restricted:
-KEYWORD UseSpatialBetaDriver "UseSpatialBetaDriver"
-{
-  "no" :: "no"
-  "yes" :: "yes"
-} "no"
-
-private:
-KEYWORD dt_lapse_shift_method "Treatment of ADMBase dtlapse and dtshift"
-{
-  "correct" :: "correct"
-  "noLapseShiftAdvection" :: "noLapseShiftAdvection"
-} "correct"
-
-private:
-KEYWORD apply_dissipation "Whether to apply dissipation to the RHSs"
-{
-  "always" :: "always"
-  "never" :: "never"
-} "always"
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  25:25 :: "Number of evolved variables used by this thorn"
-} 25
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_Minkowski_calc_every "ML_BSSN_MP_O8_Minkowski_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertFromADMBase_calc_every "ML_BSSN_MP_O8_convertFromADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_InitGamma_calc_every "ML_BSSN_MP_O8_InitGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertFromADMBaseGamma_calc_every "ML_BSSN_MP_O8_convertFromADMBaseGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_RHS1_calc_every "ML_BSSN_MP_O8_RHS1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_RHS2_calc_every "ML_BSSN_MP_O8_RHS2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_Dissipation_calc_every "ML_BSSN_MP_O8_Dissipation_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_Advect_calc_every "ML_BSSN_MP_O8_Advect_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_InitRHS_calc_every "ML_BSSN_MP_O8_InitRHS_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_RHSStaticBoundary_calc_every "ML_BSSN_MP_O8_RHSStaticBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_enforce_calc_every "ML_BSSN_MP_O8_enforce_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_boundary_calc_every "ML_BSSN_MP_O8_boundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertToADMBase_calc_every "ML_BSSN_MP_O8_convertToADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_calc_every "ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_calc_every "ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_calc_every "ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_constraints1_calc_every "ML_BSSN_MP_O8_constraints1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_constraints2_calc_every "ML_BSSN_MP_O8_constraints2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_Minkowski_calc_offset "ML_BSSN_MP_O8_Minkowski_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertFromADMBase_calc_offset "ML_BSSN_MP_O8_convertFromADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_InitGamma_calc_offset "ML_BSSN_MP_O8_InitGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertFromADMBaseGamma_calc_offset "ML_BSSN_MP_O8_convertFromADMBaseGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_RHS1_calc_offset "ML_BSSN_MP_O8_RHS1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_RHS2_calc_offset "ML_BSSN_MP_O8_RHS2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_Dissipation_calc_offset "ML_BSSN_MP_O8_Dissipation_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_Advect_calc_offset "ML_BSSN_MP_O8_Advect_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_InitRHS_calc_offset "ML_BSSN_MP_O8_InitRHS_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_RHSStaticBoundary_calc_offset "ML_BSSN_MP_O8_RHSStaticBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_enforce_calc_offset "ML_BSSN_MP_O8_enforce_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_boundary_calc_offset "ML_BSSN_MP_O8_boundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertToADMBase_calc_offset "ML_BSSN_MP_O8_convertToADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_calc_offset "ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_calc_offset "ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_calc_offset "ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_constraints1_calc_offset "ML_BSSN_MP_O8_constraints1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_MP_O8_constraints2_calc_offset "ML_BSSN_MP_O8_constraints2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD At11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD A_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD alpha_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD phi_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD trK_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD ML_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtlapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtshift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_Gamma_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_lapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_log_confac_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_metric_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_shift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_trace_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-CCTK_REAL At11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL A_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL alpha_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL phi_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL trK_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtlapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtshift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_Gamma_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_lapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_log_confac_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_metric_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_shift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_trace_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
diff --git a/ML_BSSN_MP_O8/schedule.ccl b/ML_BSSN_MP_O8/schedule.ccl
deleted file mode 100644
index 61acdbe..0000000
--- a/ML_BSSN_MP_O8/schedule.ccl
+++ /dev/null
@@ -1,722 +0,0 @@
-# File produced by Kranc
-
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_detg[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_Gamma[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_traceA[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_Ham[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_mom[1]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_curv[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtlapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtlapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtlapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtshift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtshift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtshift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Gamma[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Gamma[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Gamma[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_lapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_lapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_lapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_log_confac[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_log_confac[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_log_confac[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_metric[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_metric[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_metric[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_shift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_shift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_shift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_trace_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_trace_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_trace_curv[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_curvrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtlapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtlapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtlapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtshiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtshiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtshiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_Gammarhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_Gammarhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_Gammarhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_lapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_lapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_lapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_log_confacrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_log_confacrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_log_confacrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_metricrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_metricrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_metricrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_shiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_shiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_shiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_trace_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_trace_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_trace_curvrhs[3]
-}
-
-schedule ML_BSSN_MP_O8_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_BSSN_MP_O8_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-
-if (CCTK_EQUALS(my_initial_data, "Minkowski"))
-{
-  schedule ML_BSSN_MP_O8_Minkowski IN ADMBase_InitialData
-  {
-    LANG: C
-    WRITES:   ML_BSSN_MP_O8::ML_curv
-    WRITES:   ML_BSSN_MP_O8::ML_dtlapse
-    WRITES:   ML_BSSN_MP_O8::ML_dtshift
-    WRITES:   ML_BSSN_MP_O8::ML_Gamma
-    WRITES:   ML_BSSN_MP_O8::ML_lapse
-    WRITES:   ML_BSSN_MP_O8::ML_log_confac
-    WRITES:   ML_BSSN_MP_O8::ML_metric
-    WRITES:   ML_BSSN_MP_O8::ML_shift
-    WRITES:   ML_BSSN_MP_O8::ML_trace_curv
-  } "ML_BSSN_MP_O8_Minkowski"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_MP_O8_convertFromADMBase AT initial AFTER ADMBase_PostInitial
-  {
-    LANG: C
-    READS:    ADMBase::curv
-    READS:    ADMBase::lapse
-    READS:    ADMBase::metric
-    READS:    ADMBase::shift
-    READS:    ML_BSSN_MP_O8::ML_log_confac
-    READS:    ML_BSSN_MP_O8::ML_trace_curv
-    WRITES:   ML_BSSN_MP_O8::ML_curv
-    WRITES:   ML_BSSN_MP_O8::ML_lapse
-    WRITES:   ML_BSSN_MP_O8::ML_log_confac
-    WRITES:   ML_BSSN_MP_O8::ML_metric
-    WRITES:   ML_BSSN_MP_O8::ML_shift
-    WRITES:   ML_BSSN_MP_O8::ML_trace_curv
-  } "ML_BSSN_MP_O8_convertFromADMBase"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_MP_O8_InitGamma AT initial BEFORE ML_BSSN_MP_O8_convertFromADMBaseGamma
-  {
-    LANG: C
-    WRITES:   ML_BSSN_MP_O8::ML_dtlapse
-    WRITES:   ML_BSSN_MP_O8::ML_dtshift
-    WRITES:   ML_BSSN_MP_O8::ML_Gamma
-  } "ML_BSSN_MP_O8_InitGamma"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_MP_O8_convertFromADMBaseGamma AT initial AFTER ML_BSSN_MP_O8_convertFromADMBase
-  {
-    LANG: C
-    SYNC: ML_dtlapse
-    SYNC: ML_dtshift
-    SYNC: ML_Gamma
-    READS:    ADMBase::dtlapse
-    READS:    ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_MP_O8::ML_lapse
-    READS:    ML_BSSN_MP_O8::ML_metric
-    READS:    ML_BSSN_MP_O8::ML_shift
-    WRITES:   ML_BSSN_MP_O8::ML_dtlapse
-    WRITES:   ML_BSSN_MP_O8::ML_dtshift
-    WRITES:   ML_BSSN_MP_O8::ML_Gamma
-  } "ML_BSSN_MP_O8_convertFromADMBaseGamma"
-}
-
-schedule ML_BSSN_MP_O8_RHS1 IN ML_BSSN_MP_O8_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_MP_O8::ML_curv
-  READS:    ML_BSSN_MP_O8::ML_dtlapse
-  READS:    ML_BSSN_MP_O8::ML_dtshift
-  READS:    ML_BSSN_MP_O8::ML_Gamma
-  READS:    ML_BSSN_MP_O8::ML_lapse
-  READS:    ML_BSSN_MP_O8::ML_log_confac
-  READS:    ML_BSSN_MP_O8::ML_metric
-  READS:    ML_BSSN_MP_O8::ML_shift
-  READS:    ML_BSSN_MP_O8::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_MP_O8::ML_dtlapserhs
-  WRITES:   ML_BSSN_MP_O8::ML_dtshiftrhs
-  WRITES:   ML_BSSN_MP_O8::ML_Gammarhs
-  WRITES:   ML_BSSN_MP_O8::ML_lapserhs
-  WRITES:   ML_BSSN_MP_O8::ML_log_confacrhs
-  WRITES:   ML_BSSN_MP_O8::ML_metricrhs
-  WRITES:   ML_BSSN_MP_O8::ML_shiftrhs
-  WRITES:   ML_BSSN_MP_O8::ML_trace_curvrhs
-} "ML_BSSN_MP_O8_RHS1"
-
-schedule ML_BSSN_MP_O8_RHS2 IN ML_BSSN_MP_O8_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_MP_O8::ML_curv
-  READS:    ML_BSSN_MP_O8::ML_Gamma
-  READS:    ML_BSSN_MP_O8::ML_lapse
-  READS:    ML_BSSN_MP_O8::ML_log_confac
-  READS:    ML_BSSN_MP_O8::ML_metric
-  READS:    ML_BSSN_MP_O8::ML_shift
-  READS:    ML_BSSN_MP_O8::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_MP_O8::ML_curvrhs
-} "ML_BSSN_MP_O8_RHS2"
-
-
-if (CCTK_EQUALS(apply_dissipation, "always"))
-{
-  schedule ML_BSSN_MP_O8_Dissipation IN ML_BSSN_MP_O8_evolCalcGroup AFTER (ML_BSSN_MP_O8_RHS1 ML_BSSN_MP_O8_RHS2)
-  {
-    LANG: C
-    READS:    ML_BSSN_MP_O8::ML_curv
-    READS:    ML_BSSN_MP_O8::ML_curvrhs
-    READS:    ML_BSSN_MP_O8::ML_dtlapse
-    READS:    ML_BSSN_MP_O8::ML_dtlapserhs
-    READS:    ML_BSSN_MP_O8::ML_dtshift
-    READS:    ML_BSSN_MP_O8::ML_dtshiftrhs
-    READS:    ML_BSSN_MP_O8::ML_Gamma
-    READS:    ML_BSSN_MP_O8::ML_Gammarhs
-    READS:    ML_BSSN_MP_O8::ML_lapse
-    READS:    ML_BSSN_MP_O8::ML_lapserhs
-    READS:    ML_BSSN_MP_O8::ML_log_confac
-    READS:    ML_BSSN_MP_O8::ML_log_confacrhs
-    READS:    ML_BSSN_MP_O8::ML_metric
-    READS:    ML_BSSN_MP_O8::ML_metricrhs
-    READS:    ML_BSSN_MP_O8::ML_shift
-    READS:    ML_BSSN_MP_O8::ML_shiftrhs
-    READS:    ML_BSSN_MP_O8::ML_trace_curv
-    READS:    ML_BSSN_MP_O8::ML_trace_curvrhs
-    WRITES:   ML_BSSN_MP_O8::ML_curvrhs
-    WRITES:   ML_BSSN_MP_O8::ML_dtlapserhs
-    WRITES:   ML_BSSN_MP_O8::ML_dtshiftrhs
-    WRITES:   ML_BSSN_MP_O8::ML_Gammarhs
-    WRITES:   ML_BSSN_MP_O8::ML_lapserhs
-    WRITES:   ML_BSSN_MP_O8::ML_log_confacrhs
-    WRITES:   ML_BSSN_MP_O8::ML_metricrhs
-    WRITES:   ML_BSSN_MP_O8::ML_shiftrhs
-    WRITES:   ML_BSSN_MP_O8::ML_trace_curvrhs
-  } "ML_BSSN_MP_O8_Dissipation"
-}
-
-schedule ML_BSSN_MP_O8_Advect IN ML_BSSN_MP_O8_evolCalcGroup AFTER (ML_BSSN_MP_O8_RHS1 ML_BSSN_MP_O8_RHS2)
-{
-  LANG: C
-  READS:    ML_BSSN_MP_O8::ML_curv
-  READS:    ML_BSSN_MP_O8::ML_curvrhs
-  READS:    ML_BSSN_MP_O8::ML_dtlapse
-  READS:    ML_BSSN_MP_O8::ML_dtlapserhs
-  READS:    ML_BSSN_MP_O8::ML_dtshift
-  READS:    ML_BSSN_MP_O8::ML_dtshiftrhs
-  READS:    ML_BSSN_MP_O8::ML_Gamma
-  READS:    ML_BSSN_MP_O8::ML_Gammarhs
-  READS:    ML_BSSN_MP_O8::ML_lapse
-  READS:    ML_BSSN_MP_O8::ML_lapserhs
-  READS:    ML_BSSN_MP_O8::ML_log_confac
-  READS:    ML_BSSN_MP_O8::ML_log_confacrhs
-  READS:    ML_BSSN_MP_O8::ML_metric
-  READS:    ML_BSSN_MP_O8::ML_metricrhs
-  READS:    ML_BSSN_MP_O8::ML_shift
-  READS:    ML_BSSN_MP_O8::ML_shiftrhs
-  READS:    ML_BSSN_MP_O8::ML_trace_curv
-  READS:    ML_BSSN_MP_O8::ML_trace_curvrhs
-  WRITES:   ML_BSSN_MP_O8::ML_curvrhs
-  WRITES:   ML_BSSN_MP_O8::ML_dtlapserhs
-  WRITES:   ML_BSSN_MP_O8::ML_dtshiftrhs
-  WRITES:   ML_BSSN_MP_O8::ML_Gammarhs
-  WRITES:   ML_BSSN_MP_O8::ML_lapserhs
-  WRITES:   ML_BSSN_MP_O8::ML_log_confacrhs
-  WRITES:   ML_BSSN_MP_O8::ML_metricrhs
-  WRITES:   ML_BSSN_MP_O8::ML_shiftrhs
-  WRITES:   ML_BSSN_MP_O8::ML_trace_curvrhs
-} "ML_BSSN_MP_O8_Advect"
-
-schedule ML_BSSN_MP_O8_InitRHS AT analysis BEFORE ML_BSSN_MP_O8_evolCalcGroup
-{
-  LANG: C
-  WRITES:   ML_BSSN_MP_O8::ML_curvrhs
-  WRITES:   ML_BSSN_MP_O8::ML_dtlapserhs
-  WRITES:   ML_BSSN_MP_O8::ML_dtshiftrhs
-  WRITES:   ML_BSSN_MP_O8::ML_Gammarhs
-  WRITES:   ML_BSSN_MP_O8::ML_lapserhs
-  WRITES:   ML_BSSN_MP_O8::ML_log_confacrhs
-  WRITES:   ML_BSSN_MP_O8::ML_metricrhs
-  WRITES:   ML_BSSN_MP_O8::ML_shiftrhs
-  WRITES:   ML_BSSN_MP_O8::ML_trace_curvrhs
-} "ML_BSSN_MP_O8_InitRHS"
-
-
-if (CCTK_EQUALS(my_rhs_boundary_condition, "static"))
-{
-  schedule ML_BSSN_MP_O8_RHSStaticBoundary IN MoL_CalcRHS
-  {
-    LANG: C
-    WRITES:   ML_BSSN_MP_O8::ML_curvrhs
-    WRITES:   ML_BSSN_MP_O8::ML_dtlapserhs
-    WRITES:   ML_BSSN_MP_O8::ML_dtshiftrhs
-    WRITES:   ML_BSSN_MP_O8::ML_Gammarhs
-    WRITES:   ML_BSSN_MP_O8::ML_lapserhs
-    WRITES:   ML_BSSN_MP_O8::ML_log_confacrhs
-    WRITES:   ML_BSSN_MP_O8::ML_metricrhs
-    WRITES:   ML_BSSN_MP_O8::ML_shiftrhs
-    WRITES:   ML_BSSN_MP_O8::ML_trace_curvrhs
-  } "ML_BSSN_MP_O8_RHSStaticBoundary"
-}
-
-schedule ML_BSSN_MP_O8_enforce IN MoL_PostStepModify
-{
-  LANG: C
-  READS:    ML_BSSN_MP_O8::ML_curv
-  READS:    ML_BSSN_MP_O8::ML_lapse
-  READS:    ML_BSSN_MP_O8::ML_metric
-  WRITES:   ML_BSSN_MP_O8::ML_curv
-  WRITES:   ML_BSSN_MP_O8::ML_lapse
-} "ML_BSSN_MP_O8_enforce"
-
-
-if (CCTK_EQUALS(my_boundary_condition, "Minkowski"))
-{
-  schedule ML_BSSN_MP_O8_boundary IN MoL_PostStep
-  {
-    LANG: C
-    WRITES:   ML_BSSN_MP_O8::ML_curv
-    WRITES:   ML_BSSN_MP_O8::ML_dtlapse
-    WRITES:   ML_BSSN_MP_O8::ML_dtshift
-    WRITES:   ML_BSSN_MP_O8::ML_Gamma
-    WRITES:   ML_BSSN_MP_O8::ML_lapse
-    WRITES:   ML_BSSN_MP_O8::ML_log_confac
-    WRITES:   ML_BSSN_MP_O8::ML_metric
-    WRITES:   ML_BSSN_MP_O8::ML_shift
-    WRITES:   ML_BSSN_MP_O8::ML_trace_curv
-  } "ML_BSSN_MP_O8_boundary"
-}
-
-schedule ML_BSSN_MP_O8_convertToADMBase IN ML_BSSN_MP_O8_convertToADMBaseGroup
-{
-  LANG: C
-  READS:    ADMBase::metric
-  READS:    ML_BSSN_MP_O8::ML_curv
-  READS:    ML_BSSN_MP_O8::ML_lapse
-  READS:    ML_BSSN_MP_O8::ML_log_confac
-  READS:    ML_BSSN_MP_O8::ML_metric
-  READS:    ML_BSSN_MP_O8::ML_shift
-  READS:    ML_BSSN_MP_O8::ML_trace_curv
-  WRITES:   ADMBase::curv
-  WRITES:   ADMBase::lapse
-  WRITES:   ADMBase::metric
-  WRITES:   ADMBase::shift
-} "ML_BSSN_MP_O8_convertToADMBase"
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_MP_O8_convertToADMBaseDtLapseShift IN ML_BSSN_MP_O8_convertToADMBaseGroup
-  {
-    LANG: C
-    SYNC: ADMBase::dtlapse
-    SYNC: ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_MP_O8::ML_dtlapse
-    READS:    ML_BSSN_MP_O8::ML_dtshift
-    READS:    ML_BSSN_MP_O8::ML_Gamma
-    READS:    ML_BSSN_MP_O8::ML_lapse
-    READS:    ML_BSSN_MP_O8::ML_log_confac
-    READS:    ML_BSSN_MP_O8::ML_metric
-    READS:    ML_BSSN_MP_O8::ML_shift
-    READS:    ML_BSSN_MP_O8::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_MP_O8_convertToADMBaseDtLapseShift"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary IN ML_BSSN_MP_O8_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_MP_O8::ML_dtlapse
-    READS:    ML_BSSN_MP_O8::ML_dtshift
-    READS:    ML_BSSN_MP_O8::ML_Gamma
-    READS:    ML_BSSN_MP_O8::ML_lapse
-    READS:    ML_BSSN_MP_O8::ML_metric
-    READS:    ML_BSSN_MP_O8::ML_shift
-    READS:    ML_BSSN_MP_O8::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "noLapseShiftAdvection"))
-{
-  schedule ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift IN ML_BSSN_MP_O8_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_MP_O8::ML_dtlapse
-    READS:    ML_BSSN_MP_O8::ML_dtshift
-    READS:    ML_BSSN_MP_O8::ML_Gamma
-    READS:    ML_BSSN_MP_O8::ML_lapse
-    READS:    ML_BSSN_MP_O8::ML_metric
-    READS:    ML_BSSN_MP_O8::ML_shift
-    READS:    ML_BSSN_MP_O8::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift"
-}
-
-schedule group ML_BSSN_MP_O8_constraints1_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_MP_O8_constraints1"
-
-schedule ML_BSSN_MP_O8_constraints1 in ML_BSSN_MP_O8_constraints1_group
-{
-  LANG: C
-  READS:    ML_BSSN_MP_O8::ML_curv
-  READS:    ML_BSSN_MP_O8::ML_Gamma
-  READS:    ML_BSSN_MP_O8::ML_lapse
-  READS:    ML_BSSN_MP_O8::ML_log_confac
-  READS:    ML_BSSN_MP_O8::ML_metric
-  READS:    ML_BSSN_MP_O8::ML_shift
-  READS:    ML_BSSN_MP_O8::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_MP_O8::ML_Ham
-} "ML_BSSN_MP_O8_constraints1"
-
-schedule ML_BSSN_MP_O8_constraints1_SelectBCs in ML_BSSN_MP_O8_constraints1_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_Ham
-} "ML_BSSN_MP_O8_constraints1_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_MP_O8_constraints1_ApplyBCs in ML_BSSN_MP_O8_constraints1_bc_group after ML_BSSN_MP_O8_constraints1_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_MP_O8_constraints1"
-
-schedule group ML_BSSN_MP_O8_constraints1_bc_group in ML_BSSN_MP_O8_constraints1_group after ML_BSSN_MP_O8_constraints1
-{
-  # no language specified
-} "ML_BSSN_MP_O8_constraints1"
-
-schedule group ML_BSSN_MP_O8_constraints1_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_MP_O8_constraints1"
-
-schedule group ML_BSSN_MP_O8_constraints2_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_MP_O8_constraints2"
-
-schedule ML_BSSN_MP_O8_constraints2 in ML_BSSN_MP_O8_constraints2_group
-{
-  LANG: C
-  READS:    ML_BSSN_MP_O8::ML_curv
-  READS:    ML_BSSN_MP_O8::ML_Gamma
-  READS:    ML_BSSN_MP_O8::ML_lapse
-  READS:    ML_BSSN_MP_O8::ML_log_confac
-  READS:    ML_BSSN_MP_O8::ML_metric
-  READS:    ML_BSSN_MP_O8::ML_shift
-  READS:    ML_BSSN_MP_O8::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_MP_O8::ML_cons_detg
-  WRITES:   ML_BSSN_MP_O8::ML_cons_Gamma
-  WRITES:   ML_BSSN_MP_O8::ML_cons_traceA
-  WRITES:   ML_BSSN_MP_O8::ML_mom
-} "ML_BSSN_MP_O8_constraints2"
-
-schedule ML_BSSN_MP_O8_constraints2_SelectBCs in ML_BSSN_MP_O8_constraints2_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_cons_detg
-  SYNC: ML_cons_Gamma
-  SYNC: ML_cons_traceA
-  SYNC: ML_mom
-} "ML_BSSN_MP_O8_constraints2_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_MP_O8_constraints2_ApplyBCs in ML_BSSN_MP_O8_constraints2_bc_group after ML_BSSN_MP_O8_constraints2_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_MP_O8_constraints2"
-
-schedule group ML_BSSN_MP_O8_constraints2_bc_group in ML_BSSN_MP_O8_constraints2_group after ML_BSSN_MP_O8_constraints2
-{
-  # no language specified
-} "ML_BSSN_MP_O8_constraints2"
-
-schedule group ML_BSSN_MP_O8_constraints2_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_MP_O8_constraints2"
-
-schedule ML_BSSN_MP_O8_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_curv
-  SYNC: ML_dtlapse
-  SYNC: ML_dtshift
-  SYNC: ML_Gamma
-  SYNC: ML_lapse
-  SYNC: ML_log_confac
-  SYNC: ML_metric
-  SYNC: ML_shift
-  SYNC: ML_trace_curv
-} "select boundary conditions"
-
-schedule ML_BSSN_MP_O8_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_BSSN_MP_O8_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_BSSN_MP_O8_ApplyBCs in MoL_PostStep after ML_BSSN_MP_O8_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_BSSN_MP_O8/src/Boundaries.cc b/ML_BSSN_MP_O8/src/Boundaries.cc
deleted file mode 100644
index 34dc391..0000000
--- a/ML_BSSN_MP_O8/src/Boundaries.cc
+++ /dev/null
@@ -1,1809 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_BSSN_MP_O8_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_BSSN_MP_O8_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  if (CCTK_EQUALS(ML_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "static") ||
-      CCTK_EQUALS(ML_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::ML_curv", ML_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_curv_bound BC for ML_BSSN_MP_O8::ML_curv!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "static") ||
-      CCTK_EQUALS(ML_dtlapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::ML_dtlapse", ML_dtlapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtlapse_bound BC for ML_BSSN_MP_O8::ML_dtlapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "static") ||
-      CCTK_EQUALS(ML_dtshift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::ML_dtshift", ML_dtshift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtshift_bound BC for ML_BSSN_MP_O8::ML_dtshift!");
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "none"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "static") ||
-      CCTK_EQUALS(ML_Gamma_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::ML_Gamma", ML_Gamma_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_Gamma_bound BC for ML_BSSN_MP_O8::ML_Gamma!");
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "static") ||
-      CCTK_EQUALS(ML_lapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::ML_lapse", ML_lapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_lapse_bound BC for ML_BSSN_MP_O8::ML_lapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "none"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "static") ||
-      CCTK_EQUALS(ML_log_confac_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::ML_log_confac", ML_log_confac_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_log_confac_bound BC for ML_BSSN_MP_O8::ML_log_confac!");
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "none"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "static") ||
-      CCTK_EQUALS(ML_metric_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::ML_metric", ML_metric_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_metric_bound BC for ML_BSSN_MP_O8::ML_metric!");
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "static") ||
-      CCTK_EQUALS(ML_shift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::ML_shift", ML_shift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_shift_bound BC for ML_BSSN_MP_O8::ML_shift!");
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "static") ||
-      CCTK_EQUALS(ML_trace_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::ML_trace_curv", ML_trace_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_trace_curv_bound BC for ML_BSSN_MP_O8::ML_trace_curv!");
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "none"  ) ||
-      CCTK_EQUALS(At11_bound, "static") ||
-      CCTK_EQUALS(At11_bound, "flat"  ) ||
-      CCTK_EQUALS(At11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::At11", At11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At11_bound BC for ML_BSSN_MP_O8::At11!");
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "none"  ) ||
-      CCTK_EQUALS(At12_bound, "static") ||
-      CCTK_EQUALS(At12_bound, "flat"  ) ||
-      CCTK_EQUALS(At12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::At12", At12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At12_bound BC for ML_BSSN_MP_O8::At12!");
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "none"  ) ||
-      CCTK_EQUALS(At13_bound, "static") ||
-      CCTK_EQUALS(At13_bound, "flat"  ) ||
-      CCTK_EQUALS(At13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::At13", At13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At13_bound BC for ML_BSSN_MP_O8::At13!");
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "none"  ) ||
-      CCTK_EQUALS(At22_bound, "static") ||
-      CCTK_EQUALS(At22_bound, "flat"  ) ||
-      CCTK_EQUALS(At22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::At22", At22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At22_bound BC for ML_BSSN_MP_O8::At22!");
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "none"  ) ||
-      CCTK_EQUALS(At23_bound, "static") ||
-      CCTK_EQUALS(At23_bound, "flat"  ) ||
-      CCTK_EQUALS(At23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::At23", At23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At23_bound BC for ML_BSSN_MP_O8::At23!");
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "none"  ) ||
-      CCTK_EQUALS(At33_bound, "static") ||
-      CCTK_EQUALS(At33_bound, "flat"  ) ||
-      CCTK_EQUALS(At33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::At33", At33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At33_bound BC for ML_BSSN_MP_O8::At33!");
-  }
-  
-  if (CCTK_EQUALS(A_bound, "none"  ) ||
-      CCTK_EQUALS(A_bound, "static") ||
-      CCTK_EQUALS(A_bound, "flat"  ) ||
-      CCTK_EQUALS(A_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::A", A_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register A_bound BC for ML_BSSN_MP_O8::A!");
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "none"  ) ||
-      CCTK_EQUALS(B1_bound, "static") ||
-      CCTK_EQUALS(B1_bound, "flat"  ) ||
-      CCTK_EQUALS(B1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::B1", B1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B1_bound BC for ML_BSSN_MP_O8::B1!");
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "none"  ) ||
-      CCTK_EQUALS(B2_bound, "static") ||
-      CCTK_EQUALS(B2_bound, "flat"  ) ||
-      CCTK_EQUALS(B2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::B2", B2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B2_bound BC for ML_BSSN_MP_O8::B2!");
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "none"  ) ||
-      CCTK_EQUALS(B3_bound, "static") ||
-      CCTK_EQUALS(B3_bound, "flat"  ) ||
-      CCTK_EQUALS(B3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::B3", B3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B3_bound BC for ML_BSSN_MP_O8::B3!");
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "none"  ) ||
-      CCTK_EQUALS(Xt1_bound, "static") ||
-      CCTK_EQUALS(Xt1_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::Xt1", Xt1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt1_bound BC for ML_BSSN_MP_O8::Xt1!");
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "none"  ) ||
-      CCTK_EQUALS(Xt2_bound, "static") ||
-      CCTK_EQUALS(Xt2_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::Xt2", Xt2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt2_bound BC for ML_BSSN_MP_O8::Xt2!");
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "none"  ) ||
-      CCTK_EQUALS(Xt3_bound, "static") ||
-      CCTK_EQUALS(Xt3_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::Xt3", Xt3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt3_bound BC for ML_BSSN_MP_O8::Xt3!");
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "none"  ) ||
-      CCTK_EQUALS(alpha_bound, "static") ||
-      CCTK_EQUALS(alpha_bound, "flat"  ) ||
-      CCTK_EQUALS(alpha_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::alpha", alpha_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register alpha_bound BC for ML_BSSN_MP_O8::alpha!");
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "none"  ) ||
-      CCTK_EQUALS(phi_bound, "static") ||
-      CCTK_EQUALS(phi_bound, "flat"  ) ||
-      CCTK_EQUALS(phi_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::phi", phi_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register phi_bound BC for ML_BSSN_MP_O8::phi!");
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "none"  ) ||
-      CCTK_EQUALS(gt11_bound, "static") ||
-      CCTK_EQUALS(gt11_bound, "flat"  ) ||
-      CCTK_EQUALS(gt11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::gt11", gt11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt11_bound BC for ML_BSSN_MP_O8::gt11!");
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "none"  ) ||
-      CCTK_EQUALS(gt12_bound, "static") ||
-      CCTK_EQUALS(gt12_bound, "flat"  ) ||
-      CCTK_EQUALS(gt12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::gt12", gt12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt12_bound BC for ML_BSSN_MP_O8::gt12!");
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "none"  ) ||
-      CCTK_EQUALS(gt13_bound, "static") ||
-      CCTK_EQUALS(gt13_bound, "flat"  ) ||
-      CCTK_EQUALS(gt13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::gt13", gt13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt13_bound BC for ML_BSSN_MP_O8::gt13!");
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "none"  ) ||
-      CCTK_EQUALS(gt22_bound, "static") ||
-      CCTK_EQUALS(gt22_bound, "flat"  ) ||
-      CCTK_EQUALS(gt22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::gt22", gt22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt22_bound BC for ML_BSSN_MP_O8::gt22!");
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "none"  ) ||
-      CCTK_EQUALS(gt23_bound, "static") ||
-      CCTK_EQUALS(gt23_bound, "flat"  ) ||
-      CCTK_EQUALS(gt23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::gt23", gt23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt23_bound BC for ML_BSSN_MP_O8::gt23!");
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "none"  ) ||
-      CCTK_EQUALS(gt33_bound, "static") ||
-      CCTK_EQUALS(gt33_bound, "flat"  ) ||
-      CCTK_EQUALS(gt33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::gt33", gt33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt33_bound BC for ML_BSSN_MP_O8::gt33!");
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "none"  ) ||
-      CCTK_EQUALS(beta1_bound, "static") ||
-      CCTK_EQUALS(beta1_bound, "flat"  ) ||
-      CCTK_EQUALS(beta1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::beta1", beta1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta1_bound BC for ML_BSSN_MP_O8::beta1!");
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "none"  ) ||
-      CCTK_EQUALS(beta2_bound, "static") ||
-      CCTK_EQUALS(beta2_bound, "flat"  ) ||
-      CCTK_EQUALS(beta2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::beta2", beta2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta2_bound BC for ML_BSSN_MP_O8::beta2!");
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "none"  ) ||
-      CCTK_EQUALS(beta3_bound, "static") ||
-      CCTK_EQUALS(beta3_bound, "flat"  ) ||
-      CCTK_EQUALS(beta3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::beta3", beta3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta3_bound BC for ML_BSSN_MP_O8::beta3!");
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "none"  ) ||
-      CCTK_EQUALS(trK_bound, "static") ||
-      CCTK_EQUALS(trK_bound, "flat"  ) ||
-      CCTK_EQUALS(trK_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_MP_O8::trK", trK_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register trK_bound BC for ML_BSSN_MP_O8::trK!");
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound , ML_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_MP_O8::ML_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound , ML_dtlapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_MP_O8::ML_dtlapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound , ML_dtshift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_MP_O8::ML_dtshift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound , ML_Gamma_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_MP_O8::ML_Gamma", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound , ML_lapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_MP_O8::ML_lapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound , ML_log_confac_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_MP_O8::ML_log_confac", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound , ML_metric_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_MP_O8::ML_metric", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound , ML_shift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_MP_O8::ML_shift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound , ML_trace_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_MP_O8::ML_trace_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound , At11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_MP_O8::At11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound , At12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_MP_O8::At12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound , At13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_MP_O8::At13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound , At22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_MP_O8::At22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound , At23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_MP_O8::At23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound , At33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_MP_O8::At33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound , A_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_MP_O8::A", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound , B1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_MP_O8::B1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound , B2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_MP_O8::B2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound , B3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_MP_O8::B3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound , Xt1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_MP_O8::Xt1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound , Xt2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_MP_O8::Xt2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound , Xt3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_MP_O8::Xt3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound , alpha_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_MP_O8::alpha", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound , phi_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_MP_O8::phi", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound , gt11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_MP_O8::gt11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound , gt12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_MP_O8::gt12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound , gt13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_MP_O8::gt13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound , gt22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_MP_O8::gt22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound , gt23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_MP_O8::gt23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound , gt33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_MP_O8::gt33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound , beta1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_MP_O8::beta1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound , beta2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_MP_O8::beta2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound , beta3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_MP_O8::beta3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound , trK_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_MP_O8::trK", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_MP_O8::trK!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_MP_O8::ML_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP_O8::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_MP_O8::ML_dtlapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP_O8::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_MP_O8::ML_dtshift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP_O8::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_MP_O8::ML_Gamma", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP_O8::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_MP_O8::ML_lapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP_O8::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_MP_O8::ML_log_confac", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP_O8::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_MP_O8::ML_metric", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP_O8::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_MP_O8::ML_shift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP_O8::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_MP_O8::ML_trace_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_MP_O8::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_MP_O8::At11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_MP_O8::At12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_MP_O8::At13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_MP_O8::At22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_MP_O8::At23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_MP_O8::At33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_MP_O8::A", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_MP_O8::B1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_MP_O8::B2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_MP_O8::B3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_MP_O8::Xt1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_MP_O8::Xt2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_MP_O8::Xt3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_MP_O8::alpha", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_MP_O8::phi", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_MP_O8::gt11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_MP_O8::gt12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_MP_O8::gt13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_MP_O8::gt22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_MP_O8::gt23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_MP_O8::gt33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_MP_O8::beta1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_MP_O8::beta2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_MP_O8::beta3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_MP_O8::trK", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_MP_O8::trK!");
-  
-  }
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-#$bound$#ML_BSSN_MP_O8::ML_curv_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::ML_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::ML_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::ML_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::ML_dtlapse_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::ML_dtlapse_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::ML_dtlapse_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::ML_dtlapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::ML_dtshift_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::ML_dtshift_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::ML_dtshift_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::ML_dtshift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::ML_Gamma_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::ML_Gamma_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::ML_Gamma_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::ML_Gamma_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::ML_lapse_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::ML_lapse_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::ML_lapse_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::ML_lapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::ML_log_confac_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::ML_log_confac_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::ML_log_confac_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::ML_log_confac_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::ML_metric_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::ML_metric_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::ML_metric_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::ML_metric_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::ML_shift_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::ML_shift_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::ML_shift_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::ML_shift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::ML_trace_curv_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::ML_trace_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::ML_trace_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::ML_trace_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::At11_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::At11_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::At11_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::At11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::At12_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::At12_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::At12_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::At12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::At13_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::At13_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::At13_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::At13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::At22_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::At22_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::At22_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::At22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::At23_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::At23_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::At23_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::At23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::At33_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::At33_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::At33_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::At33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::A_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::A_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::A_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::A_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::B1_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::B1_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::B1_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::B1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::B2_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::B2_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::B2_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::B2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::B3_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::B3_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::B3_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::B3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::Xt1_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::Xt1_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::Xt1_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::Xt1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::Xt2_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::Xt2_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::Xt2_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::Xt2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::Xt3_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::Xt3_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::Xt3_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::Xt3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::alpha_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::alpha_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::alpha_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::alpha_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::phi_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::phi_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::phi_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::phi_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::gt11_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::gt11_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::gt11_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::gt11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::gt12_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::gt12_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::gt12_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::gt12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::gt13_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::gt13_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::gt13_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::gt13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::gt22_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::gt22_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::gt22_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::gt22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::gt23_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::gt23_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::gt23_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::gt23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::gt33_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::gt33_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::gt33_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::gt33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::beta1_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::beta1_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::beta1_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::beta1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::beta2_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::beta2_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::beta2_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::beta2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::beta3_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::beta3_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::beta3_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::beta3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_MP_O8::trK_bound       = "skip"
-#$bound$#ML_BSSN_MP_O8::trK_bound_speed = 1.0
-#$bound$#ML_BSSN_MP_O8::trK_bound_limit = 0.0
-#$bound$#ML_BSSN_MP_O8::trK_bound_scalar = 0.0
-
-*/
-
diff --git a/ML_BSSN_MP_O8/src/Differencing.h b/ML_BSSN_MP_O8/src/Differencing.h
deleted file mode 100644
index 96a0554..0000000
--- a/ML_BSSN_MP_O8/src/Differencing.h
+++ /dev/null
@@ -1,1146 +0,0 @@
-#include <assert.h>
-#include "vectors.h"
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder21(u) (kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0))))
-#else
-#  define PDstandardNthfdOrder21(u) (PDstandardNthfdOrder21_impl(u,p1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder22(u) (kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0))))
-#else
-#  define PDstandardNthfdOrder22(u) (PDstandardNthfdOrder22_impl(u,p1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder23(u) (kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1))))
-#else
-#  define PDstandardNthfdOrder23(u) (PDstandardNthfdOrder23_impl(u,p1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder41(u) (kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDstandardNthfdOrder41(u) (PDstandardNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder42(u) (kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDstandardNthfdOrder42(u) (PDstandardNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder43(u) (kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDstandardNthfdOrder43(u) (PDstandardNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder61(u) (kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDstandardNthfdOrder61(u) (PDstandardNthfdOrder61_impl(u,p1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder62(u) (kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDstandardNthfdOrder62(u) (PDstandardNthfdOrder62_impl(u,p1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder63(u) (kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDstandardNthfdOrder63(u) (PDstandardNthfdOrder63_impl(u,p1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder81(u) (kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder81(u) (PDstandardNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder82(u) (kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder82(u) (PDstandardNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder83(u) (kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder83(u) (PDstandardNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder211(u) (kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0)))))
-#else
-#  define PDstandardNthfdOrder211(u) (PDstandardNthfdOrder211_impl(u,p1odx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder222(u) (kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0)))))
-#else
-#  define PDstandardNthfdOrder222(u) (PDstandardNthfdOrder222_impl(u,p1ody2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder233(u) (kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1)))))
-#else
-#  define PDstandardNthfdOrder233(u) (PDstandardNthfdOrder233_impl(u,p1odz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder411(u) (kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder411(u) (PDstandardNthfdOrder411_impl(u,pm1o12dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder422(u) (kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder422(u) (PDstandardNthfdOrder422_impl(u,pm1o12dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder433(u) (kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder433(u) (PDstandardNthfdOrder433_impl(u,pm1o12dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder611(u) (kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder611(u) (PDstandardNthfdOrder611_impl(u,p1o180dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder622(u) (kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder622(u) (PDstandardNthfdOrder622_impl(u,p1o180dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder633(u) (kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder633(u) (PDstandardNthfdOrder633_impl(u,p1o180dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder811(u) (kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder811(u) (PDstandardNthfdOrder811_impl(u,p1o5040dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder822(u) (kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder822(u) (PDstandardNthfdOrder822_impl(u,p1o5040dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder833(u) (kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder833(u) (PDstandardNthfdOrder833_impl(u,p1o5040dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder212(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder212(u) (PDstandardNthfdOrder212_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder213(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder213(u) (PDstandardNthfdOrder213_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder221(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder221(u) (PDstandardNthfdOrder221_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder223(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder223(u) (PDstandardNthfdOrder223_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder231(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder231(u) (PDstandardNthfdOrder231_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder232(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder232(u) (PDstandardNthfdOrder232_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder412(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder412(u) (PDstandardNthfdOrder412_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder413(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder413(u) (PDstandardNthfdOrder413_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder421(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder421(u) (PDstandardNthfdOrder421_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder423(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder423(u) (PDstandardNthfdOrder423_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder431(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder431(u) (PDstandardNthfdOrder431_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder432(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder432(u) (PDstandardNthfdOrder432_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder612(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder612(u) (PDstandardNthfdOrder612_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder613(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder613(u) (PDstandardNthfdOrder613_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder621(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder621(u) (PDstandardNthfdOrder621_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder623(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder623(u) (PDstandardNthfdOrder623_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder631(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder631(u) (PDstandardNthfdOrder631_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder632(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder632(u) (PDstandardNthfdOrder632_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder812(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder812(u) (PDstandardNthfdOrder812_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder813(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder813(u) (PDstandardNthfdOrder813_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder821(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder821(u) (PDstandardNthfdOrder821_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder823(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder823(u) (PDstandardNthfdOrder823_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder831(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder831(u) (PDstandardNthfdOrder831_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder832(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder832(u) (PDstandardNthfdOrder832_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder21(u) (kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder21(u) (PDdissipationNthfdOrder21_impl(u,p1o16dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder22(u) (kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder22(u) (PDdissipationNthfdOrder22_impl(u,p1o16dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder23(u) (kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder23(u) (PDdissipationNthfdOrder23_impl(u,p1o16dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder41(u) (kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder41(u) (PDdissipationNthfdOrder41_impl(u,p1o64dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder42(u) (kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder42(u) (PDdissipationNthfdOrder42_impl(u,p1o64dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder43(u) (kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder43(u) (PDdissipationNthfdOrder43_impl(u,p1o64dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder61(u) (kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder61(u) (PDdissipationNthfdOrder61_impl(u,p1o256dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder62(u) (kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder62(u) (PDdissipationNthfdOrder62_impl(u,p1o256dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder63(u) (kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder63(u) (PDdissipationNthfdOrder63_impl(u,p1o256dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder81(u) (kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder81(u) (PDdissipationNthfdOrder81_impl(u,p1o1024dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder82(u) (kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder82(u) (PDdissipationNthfdOrder82_impl(u,p1o1024dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder83(u) (kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder83(u) (PDdissipationNthfdOrder83_impl(u,p1o1024dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder21(u) (kmul(pm1o2dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder21(u) (PDupwindNthfdOrder21_impl(u,pm1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder41(u) (kmul(p1o12dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder41(u) (PDupwindNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder61(u) (kmul(pm1o60dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder61(u) (PDupwindNthfdOrder61_impl(u,pm1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder81(u) (kmul(p1o840dx,kmul(dir1,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,-3,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder81(u) (PDupwindNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder21(u) (kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDupwindNthAntifdOrder21(u) (PDupwindNthAntifdOrder21_impl(u,p1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDupwindNthAntifdOrder41(u) (PDupwindNthAntifdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder61(u) (kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0))))))))
-#else
-#  define PDupwindNthAntifdOrder61(u) (PDupwindNthAntifdOrder61_impl(u,p1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder81(u) (kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder81(u) (PDupwindNthAntifdOrder81_impl(u,p1o1680dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder21(u) (kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder21(u) (PDupwindNthSymmfdOrder21_impl(u,pm1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder41(u) (PDupwindNthSymmfdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder61(u) (kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder61(u) (PDupwindNthSymmfdOrder61_impl(u,pm1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder81(u) (kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder81(u) (PDupwindNthSymmfdOrder81_impl(u,p1o560dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided1(u) (kmul(p1odx,kmul(dir1,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided1(u) (PDonesided1_impl(u,p1odx,cdj,cdk))
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder22(u) (kmul(pm1o2dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder22(u) (PDupwindNthfdOrder22_impl(u,pm1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder42(u) (kmul(p1o12dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder42(u) (PDupwindNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder62(u) (kmul(pm1o60dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder62(u) (PDupwindNthfdOrder62_impl(u,pm1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder82(u) (kmul(p1o840dy,kmul(dir2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,-3,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder82(u) (PDupwindNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder22(u) (kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDupwindNthAntifdOrder22(u) (PDupwindNthAntifdOrder22_impl(u,p1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDupwindNthAntifdOrder42(u) (PDupwindNthAntifdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder62(u) (kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0))))))))
-#else
-#  define PDupwindNthAntifdOrder62(u) (PDupwindNthAntifdOrder62_impl(u,p1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder82(u) (kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder82(u) (PDupwindNthAntifdOrder82_impl(u,p1o1680dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder22(u) (kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder22(u) (PDupwindNthSymmfdOrder22_impl(u,pm1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder42(u) (PDupwindNthSymmfdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder62(u) (kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder62(u) (PDupwindNthSymmfdOrder62_impl(u,pm1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder82(u) (kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder82(u) (PDupwindNthSymmfdOrder82_impl(u,p1o560dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided2(u) (kmul(p1ody,kmul(dir2,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided2(u) (PDonesided2_impl(u,p1ody,cdj,cdk))
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder23(u) (kmul(pm1o2dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder23(u) (PDupwindNthfdOrder23_impl(u,pm1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder43(u) (kmul(p1o12dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder43(u) (PDupwindNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder63(u) (kmul(pm1o60dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder63(u) (PDupwindNthfdOrder63_impl(u,pm1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder83(u) (kmul(p1o840dz,kmul(dir3,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,0,-3),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder83(u) (PDupwindNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder23(u) (kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDupwindNthAntifdOrder23(u) (PDupwindNthAntifdOrder23_impl(u,p1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDupwindNthAntifdOrder43(u) (PDupwindNthAntifdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder63(u) (kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4))))))))
-#else
-#  define PDupwindNthAntifdOrder63(u) (PDupwindNthAntifdOrder63_impl(u,p1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder83(u) (kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder83(u) (PDupwindNthAntifdOrder83_impl(u,p1o1680dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder23(u) (kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder23(u) (PDupwindNthSymmfdOrder23_impl(u,pm1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder43(u) (PDupwindNthSymmfdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder63(u) (kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder63(u) (PDupwindNthSymmfdOrder63_impl(u,pm1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder83(u) (kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder83(u) (PDupwindNthSymmfdOrder83_impl(u,p1o560dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided3(u) (kmul(p1odz,kmul(dir3,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided3(u) (PDonesided3_impl(u,p1odz,cdj,cdk))
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Advect.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Advect.cc
deleted file mode 100644
index 68b8762..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Advect.cc
+++ /dev/null
@@ -1,2155 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_Advect_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_Advect_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_Advect,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNthAnti1A;
-    CCTK_REAL_VEC PDupwindNthSymm1A;
-    CCTK_REAL_VEC PDupwindNthAnti2A;
-    CCTK_REAL_VEC PDupwindNthSymm2A;
-    CCTK_REAL_VEC PDupwindNthAnti3A;
-    CCTK_REAL_VEC PDupwindNthSymm3A;
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1At11;
-    CCTK_REAL_VEC PDupwindNthSymm1At11;
-    CCTK_REAL_VEC PDupwindNthAnti2At11;
-    CCTK_REAL_VEC PDupwindNthSymm2At11;
-    CCTK_REAL_VEC PDupwindNthAnti3At11;
-    CCTK_REAL_VEC PDupwindNthSymm3At11;
-    CCTK_REAL_VEC PDupwindNthAnti1At12;
-    CCTK_REAL_VEC PDupwindNthSymm1At12;
-    CCTK_REAL_VEC PDupwindNthAnti2At12;
-    CCTK_REAL_VEC PDupwindNthSymm2At12;
-    CCTK_REAL_VEC PDupwindNthAnti3At12;
-    CCTK_REAL_VEC PDupwindNthSymm3At12;
-    CCTK_REAL_VEC PDupwindNthAnti1At13;
-    CCTK_REAL_VEC PDupwindNthSymm1At13;
-    CCTK_REAL_VEC PDupwindNthAnti2At13;
-    CCTK_REAL_VEC PDupwindNthSymm2At13;
-    CCTK_REAL_VEC PDupwindNthAnti3At13;
-    CCTK_REAL_VEC PDupwindNthSymm3At13;
-    CCTK_REAL_VEC PDupwindNthAnti1At22;
-    CCTK_REAL_VEC PDupwindNthSymm1At22;
-    CCTK_REAL_VEC PDupwindNthAnti2At22;
-    CCTK_REAL_VEC PDupwindNthSymm2At22;
-    CCTK_REAL_VEC PDupwindNthAnti3At22;
-    CCTK_REAL_VEC PDupwindNthSymm3At22;
-    CCTK_REAL_VEC PDupwindNthAnti1At23;
-    CCTK_REAL_VEC PDupwindNthSymm1At23;
-    CCTK_REAL_VEC PDupwindNthAnti2At23;
-    CCTK_REAL_VEC PDupwindNthSymm2At23;
-    CCTK_REAL_VEC PDupwindNthAnti3At23;
-    CCTK_REAL_VEC PDupwindNthSymm3At23;
-    CCTK_REAL_VEC PDupwindNthAnti1At33;
-    CCTK_REAL_VEC PDupwindNthSymm1At33;
-    CCTK_REAL_VEC PDupwindNthAnti2At33;
-    CCTK_REAL_VEC PDupwindNthSymm2At33;
-    CCTK_REAL_VEC PDupwindNthAnti3At33;
-    CCTK_REAL_VEC PDupwindNthSymm3At33;
-    CCTK_REAL_VEC PDupwindNthAnti1B1;
-    CCTK_REAL_VEC PDupwindNthSymm1B1;
-    CCTK_REAL_VEC PDupwindNthAnti2B1;
-    CCTK_REAL_VEC PDupwindNthSymm2B1;
-    CCTK_REAL_VEC PDupwindNthAnti3B1;
-    CCTK_REAL_VEC PDupwindNthSymm3B1;
-    CCTK_REAL_VEC PDupwindNthAnti1B2;
-    CCTK_REAL_VEC PDupwindNthSymm1B2;
-    CCTK_REAL_VEC PDupwindNthAnti2B2;
-    CCTK_REAL_VEC PDupwindNthSymm2B2;
-    CCTK_REAL_VEC PDupwindNthAnti3B2;
-    CCTK_REAL_VEC PDupwindNthSymm3B2;
-    CCTK_REAL_VEC PDupwindNthAnti1B3;
-    CCTK_REAL_VEC PDupwindNthSymm1B3;
-    CCTK_REAL_VEC PDupwindNthAnti2B3;
-    CCTK_REAL_VEC PDupwindNthSymm2B3;
-    CCTK_REAL_VEC PDupwindNthAnti3B3;
-    CCTK_REAL_VEC PDupwindNthSymm3B3;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDupwindNthAnti1gt11;
-    CCTK_REAL_VEC PDupwindNthSymm1gt11;
-    CCTK_REAL_VEC PDupwindNthAnti2gt11;
-    CCTK_REAL_VEC PDupwindNthSymm2gt11;
-    CCTK_REAL_VEC PDupwindNthAnti3gt11;
-    CCTK_REAL_VEC PDupwindNthSymm3gt11;
-    CCTK_REAL_VEC PDupwindNthAnti1gt12;
-    CCTK_REAL_VEC PDupwindNthSymm1gt12;
-    CCTK_REAL_VEC PDupwindNthAnti2gt12;
-    CCTK_REAL_VEC PDupwindNthSymm2gt12;
-    CCTK_REAL_VEC PDupwindNthAnti3gt12;
-    CCTK_REAL_VEC PDupwindNthSymm3gt12;
-    CCTK_REAL_VEC PDupwindNthAnti1gt13;
-    CCTK_REAL_VEC PDupwindNthSymm1gt13;
-    CCTK_REAL_VEC PDupwindNthAnti2gt13;
-    CCTK_REAL_VEC PDupwindNthSymm2gt13;
-    CCTK_REAL_VEC PDupwindNthAnti3gt13;
-    CCTK_REAL_VEC PDupwindNthSymm3gt13;
-    CCTK_REAL_VEC PDupwindNthAnti1gt22;
-    CCTK_REAL_VEC PDupwindNthSymm1gt22;
-    CCTK_REAL_VEC PDupwindNthAnti2gt22;
-    CCTK_REAL_VEC PDupwindNthSymm2gt22;
-    CCTK_REAL_VEC PDupwindNthAnti3gt22;
-    CCTK_REAL_VEC PDupwindNthSymm3gt22;
-    CCTK_REAL_VEC PDupwindNthAnti1gt23;
-    CCTK_REAL_VEC PDupwindNthSymm1gt23;
-    CCTK_REAL_VEC PDupwindNthAnti2gt23;
-    CCTK_REAL_VEC PDupwindNthSymm2gt23;
-    CCTK_REAL_VEC PDupwindNthAnti3gt23;
-    CCTK_REAL_VEC PDupwindNthSymm3gt23;
-    CCTK_REAL_VEC PDupwindNthAnti1gt33;
-    CCTK_REAL_VEC PDupwindNthSymm1gt33;
-    CCTK_REAL_VEC PDupwindNthAnti2gt33;
-    CCTK_REAL_VEC PDupwindNthSymm2gt33;
-    CCTK_REAL_VEC PDupwindNthAnti3gt33;
-    CCTK_REAL_VEC PDupwindNthSymm3gt33;
-    CCTK_REAL_VEC PDupwindNthAnti1phi;
-    CCTK_REAL_VEC PDupwindNthSymm1phi;
-    CCTK_REAL_VEC PDupwindNthAnti2phi;
-    CCTK_REAL_VEC PDupwindNthSymm2phi;
-    CCTK_REAL_VEC PDupwindNthAnti3phi;
-    CCTK_REAL_VEC PDupwindNthSymm3phi;
-    CCTK_REAL_VEC PDupwindNthAnti1trK;
-    CCTK_REAL_VEC PDupwindNthSymm1trK;
-    CCTK_REAL_VEC PDupwindNthAnti2trK;
-    CCTK_REAL_VEC PDupwindNthSymm2trK;
-    CCTK_REAL_VEC PDupwindNthAnti3trK;
-    CCTK_REAL_VEC PDupwindNthSymm3trK;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt3;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt3;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder21(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder21(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder22(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder22(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder23(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder23(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder21(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder21(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder22(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder22(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder23(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder23(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder21(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder21(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder22(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder22(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder23(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder23(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder21(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder21(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder22(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder22(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder23(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder23(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder21(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder21(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder22(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder22(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder23(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder23(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder21(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder21(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder22(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder22(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder23(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder23(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder21(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder21(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder22(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder22(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder23(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder23(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder21(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder21(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder22(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder22(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder23(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder23(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder21(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder21(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder22(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder22(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder23(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder23(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder21(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder21(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder22(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder22(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder23(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder23(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder21(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder21(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder22(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder22(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder23(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder23(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder21(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder21(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder22(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder22(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder23(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder23(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder21(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder21(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder22(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder22(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder23(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder23(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder21(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder21(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder22(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder22(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder23(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder23(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder21(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder21(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder22(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder22(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder23(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder23(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder21(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder21(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder22(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder22(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder23(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder23(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder21(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder21(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder22(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder22(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder23(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder23(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder21(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder21(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder22(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder22(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder23(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder23(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder21(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder21(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder22(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder22(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder23(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder23(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder21(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder21(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder22(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder22(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder23(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder23(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder21(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder21(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder22(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder22(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder23(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder41(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder41(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder42(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder42(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder43(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder43(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder41(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder41(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder42(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder42(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder43(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder43(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder41(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder41(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder42(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder42(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder43(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder43(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder41(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder41(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder42(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder42(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder43(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder43(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder41(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder41(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder42(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder42(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder43(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder43(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder41(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder41(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder42(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder42(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder43(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder43(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder41(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder41(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder42(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder42(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder43(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder43(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder41(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder41(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder42(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder42(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder43(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder43(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder41(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder41(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder42(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder42(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder43(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder43(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder41(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder41(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder42(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder42(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder43(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder43(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder41(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder41(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder42(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder42(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder43(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder43(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder41(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder41(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder42(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder42(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder43(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder43(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder41(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder41(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder42(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder42(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder43(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder43(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder41(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder41(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder42(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder42(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder43(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder43(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder41(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder41(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder42(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder42(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder43(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder43(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder41(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder41(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder42(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder42(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder43(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder43(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder41(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder41(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder42(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder42(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder43(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder43(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder41(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder41(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder42(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder42(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder43(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder43(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder41(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder41(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder42(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder42(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder43(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder43(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder41(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder41(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder42(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder42(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder43(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder43(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder41(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder41(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder42(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder42(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder43(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder61(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder61(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder62(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder62(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder63(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder63(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder61(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder61(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder62(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder62(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder63(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder63(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder61(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder61(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder62(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder62(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder63(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder63(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder61(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder61(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder62(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder62(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder63(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder63(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder61(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder61(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder62(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder62(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder63(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder63(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder61(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder61(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder62(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder62(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder63(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder63(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder61(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder61(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder62(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder62(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder63(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder63(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder61(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder61(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder62(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder62(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder63(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder63(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder61(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder61(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder62(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder62(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder63(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder63(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder61(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder61(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder62(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder62(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder63(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder63(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder61(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder61(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder62(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder62(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder63(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder63(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder61(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder61(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder62(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder62(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder63(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder63(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder61(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder61(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder62(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder62(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder63(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder63(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder61(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder61(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder62(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder62(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder63(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder63(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder61(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder61(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder62(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder62(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder63(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder63(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder61(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder61(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder62(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder62(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder63(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder63(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder61(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder61(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder62(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder62(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder63(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder63(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder61(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder61(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder62(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder62(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder63(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder63(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder61(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder61(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder62(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder62(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder63(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder63(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder61(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder61(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder62(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder62(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder63(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder63(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder61(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder61(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder62(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder62(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder63(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder81(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder81(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder82(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder82(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder83(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder83(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder81(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder81(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder82(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder82(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder83(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder83(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder81(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder81(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder82(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder82(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder83(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder83(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder81(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder81(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder82(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder82(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder83(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder83(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder81(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder81(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder82(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder82(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder83(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder83(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder81(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder81(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder82(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder82(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder83(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder83(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder81(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder81(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder82(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder82(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder83(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder83(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder81(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder81(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder82(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder82(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder83(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder83(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder81(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder81(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder82(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder82(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder83(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder83(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder81(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder81(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder82(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder82(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder83(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder83(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder81(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder81(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder82(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder82(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder83(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder83(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder81(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder81(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder82(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder82(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder83(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder83(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder81(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder81(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder82(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder82(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder83(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder83(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder81(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder81(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder82(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder82(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder83(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder83(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder81(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder81(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder82(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder82(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder83(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder83(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder81(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder81(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder82(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder82(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder83(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder83(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder81(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder81(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder82(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder82(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder83(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder83(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder81(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder81(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder82(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder82(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder83(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder83(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder81(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder81(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder82(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder82(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder83(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder83(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder81(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder81(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder82(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder82(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder83(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder83(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder81(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder81(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder82(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder82(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder83(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDupwindNthAnti1A;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti1trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2A;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti2phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti2trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3A;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti3phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti3trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1A;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm1phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm1trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2A;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm2phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm2trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3A;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm3phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm3trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDupwindNthAnti1A = 
-        kmadd(J11L,PDupwindNthAnti1A,kmadd(J21L,PDupwindNthAnti2A,kmul(J31L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1At11 = 
-        kmadd(J11L,PDupwindNthAnti1At11,kmadd(J21L,PDupwindNthAnti2At11,kmul(J31L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti1At12 = 
-        kmadd(J11L,PDupwindNthAnti1At12,kmadd(J21L,PDupwindNthAnti2At12,kmul(J31L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti1At13 = 
-        kmadd(J11L,PDupwindNthAnti1At13,kmadd(J21L,PDupwindNthAnti2At13,kmul(J31L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti1At22 = 
-        kmadd(J11L,PDupwindNthAnti1At22,kmadd(J21L,PDupwindNthAnti2At22,kmul(J31L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti1At23 = 
-        kmadd(J11L,PDupwindNthAnti1At23,kmadd(J21L,PDupwindNthAnti2At23,kmul(J31L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti1At33 = 
-        kmadd(J11L,PDupwindNthAnti1At33,kmadd(J21L,PDupwindNthAnti2At33,kmul(J31L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti1B1 = 
-        kmadd(J11L,PDupwindNthAnti1B1,kmadd(J21L,PDupwindNthAnti2B1,kmul(J31L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti1B2 = 
-        kmadd(J11L,PDupwindNthAnti1B2,kmadd(J21L,PDupwindNthAnti2B2,kmul(J31L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti1B3 = 
-        kmadd(J11L,PDupwindNthAnti1B3,kmadd(J21L,PDupwindNthAnti2B3,kmul(J31L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti1gt11 = 
-        kmadd(J11L,PDupwindNthAnti1gt11,kmadd(J21L,PDupwindNthAnti2gt11,kmul(J31L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti1gt12 = 
-        kmadd(J11L,PDupwindNthAnti1gt12,kmadd(J21L,PDupwindNthAnti2gt12,kmul(J31L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti1gt13 = 
-        kmadd(J11L,PDupwindNthAnti1gt13,kmadd(J21L,PDupwindNthAnti2gt13,kmul(J31L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti1gt22 = 
-        kmadd(J11L,PDupwindNthAnti1gt22,kmadd(J21L,PDupwindNthAnti2gt22,kmul(J31L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti1gt23 = 
-        kmadd(J11L,PDupwindNthAnti1gt23,kmadd(J21L,PDupwindNthAnti2gt23,kmul(J31L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti1gt33 = 
-        kmadd(J11L,PDupwindNthAnti1gt33,kmadd(J21L,PDupwindNthAnti2gt33,kmul(J31L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti1phi = 
-        kmadd(J11L,PDupwindNthAnti1phi,kmadd(J21L,PDupwindNthAnti2phi,kmul(J31L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti1trK = 
-        kmadd(J11L,PDupwindNthAnti1trK,kmadd(J21L,PDupwindNthAnti2trK,kmul(J31L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti1Xt1 = 
-        kmadd(J11L,PDupwindNthAnti1Xt1,kmadd(J21L,PDupwindNthAnti2Xt1,kmul(J31L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti1Xt2 = 
-        kmadd(J11L,PDupwindNthAnti1Xt2,kmadd(J21L,PDupwindNthAnti2Xt2,kmul(J31L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti1Xt3 = 
-        kmadd(J11L,PDupwindNthAnti1Xt3,kmadd(J21L,PDupwindNthAnti2Xt3,kmul(J31L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm1A = 
-        kmadd(J11L,PDupwindNthSymm1A,kmadd(J21L,PDupwindNthSymm2A,kmul(J31L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1At11 = 
-        kmadd(J11L,PDupwindNthSymm1At11,kmadd(J21L,PDupwindNthSymm2At11,kmul(J31L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm1At12 = 
-        kmadd(J11L,PDupwindNthSymm1At12,kmadd(J21L,PDupwindNthSymm2At12,kmul(J31L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm1At13 = 
-        kmadd(J11L,PDupwindNthSymm1At13,kmadd(J21L,PDupwindNthSymm2At13,kmul(J31L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm1At22 = 
-        kmadd(J11L,PDupwindNthSymm1At22,kmadd(J21L,PDupwindNthSymm2At22,kmul(J31L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm1At23 = 
-        kmadd(J11L,PDupwindNthSymm1At23,kmadd(J21L,PDupwindNthSymm2At23,kmul(J31L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm1At33 = 
-        kmadd(J11L,PDupwindNthSymm1At33,kmadd(J21L,PDupwindNthSymm2At33,kmul(J31L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm1B1 = 
-        kmadd(J11L,PDupwindNthSymm1B1,kmadd(J21L,PDupwindNthSymm2B1,kmul(J31L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm1B2 = 
-        kmadd(J11L,PDupwindNthSymm1B2,kmadd(J21L,PDupwindNthSymm2B2,kmul(J31L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm1B3 = 
-        kmadd(J11L,PDupwindNthSymm1B3,kmadd(J21L,PDupwindNthSymm2B3,kmul(J31L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm1gt11 = 
-        kmadd(J11L,PDupwindNthSymm1gt11,kmadd(J21L,PDupwindNthSymm2gt11,kmul(J31L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm1gt12 = 
-        kmadd(J11L,PDupwindNthSymm1gt12,kmadd(J21L,PDupwindNthSymm2gt12,kmul(J31L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm1gt13 = 
-        kmadd(J11L,PDupwindNthSymm1gt13,kmadd(J21L,PDupwindNthSymm2gt13,kmul(J31L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm1gt22 = 
-        kmadd(J11L,PDupwindNthSymm1gt22,kmadd(J21L,PDupwindNthSymm2gt22,kmul(J31L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm1gt23 = 
-        kmadd(J11L,PDupwindNthSymm1gt23,kmadd(J21L,PDupwindNthSymm2gt23,kmul(J31L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm1gt33 = 
-        kmadd(J11L,PDupwindNthSymm1gt33,kmadd(J21L,PDupwindNthSymm2gt33,kmul(J31L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm1phi = 
-        kmadd(J11L,PDupwindNthSymm1phi,kmadd(J21L,PDupwindNthSymm2phi,kmul(J31L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm1trK = 
-        kmadd(J11L,PDupwindNthSymm1trK,kmadd(J21L,PDupwindNthSymm2trK,kmul(J31L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm1Xt1 = 
-        kmadd(J11L,PDupwindNthSymm1Xt1,kmadd(J21L,PDupwindNthSymm2Xt1,kmul(J31L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm1Xt2 = 
-        kmadd(J11L,PDupwindNthSymm1Xt2,kmadd(J21L,PDupwindNthSymm2Xt2,kmul(J31L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm1Xt3 = 
-        kmadd(J11L,PDupwindNthSymm1Xt3,kmadd(J21L,PDupwindNthSymm2Xt3,kmul(J31L,PDupwindNthSymm3Xt3)));
-      
-      JacPDupwindNthAnti2A = 
-        kmadd(J12L,PDupwindNthAnti1A,kmadd(J22L,PDupwindNthAnti2A,kmul(J32L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2At11 = 
-        kmadd(J12L,PDupwindNthAnti1At11,kmadd(J22L,PDupwindNthAnti2At11,kmul(J32L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti2At12 = 
-        kmadd(J12L,PDupwindNthAnti1At12,kmadd(J22L,PDupwindNthAnti2At12,kmul(J32L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti2At13 = 
-        kmadd(J12L,PDupwindNthAnti1At13,kmadd(J22L,PDupwindNthAnti2At13,kmul(J32L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti2At22 = 
-        kmadd(J12L,PDupwindNthAnti1At22,kmadd(J22L,PDupwindNthAnti2At22,kmul(J32L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti2At23 = 
-        kmadd(J12L,PDupwindNthAnti1At23,kmadd(J22L,PDupwindNthAnti2At23,kmul(J32L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti2At33 = 
-        kmadd(J12L,PDupwindNthAnti1At33,kmadd(J22L,PDupwindNthAnti2At33,kmul(J32L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti2B1 = 
-        kmadd(J12L,PDupwindNthAnti1B1,kmadd(J22L,PDupwindNthAnti2B1,kmul(J32L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti2B2 = 
-        kmadd(J12L,PDupwindNthAnti1B2,kmadd(J22L,PDupwindNthAnti2B2,kmul(J32L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti2B3 = 
-        kmadd(J12L,PDupwindNthAnti1B3,kmadd(J22L,PDupwindNthAnti2B3,kmul(J32L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti2gt11 = 
-        kmadd(J12L,PDupwindNthAnti1gt11,kmadd(J22L,PDupwindNthAnti2gt11,kmul(J32L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti2gt12 = 
-        kmadd(J12L,PDupwindNthAnti1gt12,kmadd(J22L,PDupwindNthAnti2gt12,kmul(J32L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti2gt13 = 
-        kmadd(J12L,PDupwindNthAnti1gt13,kmadd(J22L,PDupwindNthAnti2gt13,kmul(J32L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti2gt22 = 
-        kmadd(J12L,PDupwindNthAnti1gt22,kmadd(J22L,PDupwindNthAnti2gt22,kmul(J32L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti2gt23 = 
-        kmadd(J12L,PDupwindNthAnti1gt23,kmadd(J22L,PDupwindNthAnti2gt23,kmul(J32L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti2gt33 = 
-        kmadd(J12L,PDupwindNthAnti1gt33,kmadd(J22L,PDupwindNthAnti2gt33,kmul(J32L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti2phi = 
-        kmadd(J12L,PDupwindNthAnti1phi,kmadd(J22L,PDupwindNthAnti2phi,kmul(J32L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti2trK = 
-        kmadd(J12L,PDupwindNthAnti1trK,kmadd(J22L,PDupwindNthAnti2trK,kmul(J32L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti2Xt1 = 
-        kmadd(J12L,PDupwindNthAnti1Xt1,kmadd(J22L,PDupwindNthAnti2Xt1,kmul(J32L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti2Xt2 = 
-        kmadd(J12L,PDupwindNthAnti1Xt2,kmadd(J22L,PDupwindNthAnti2Xt2,kmul(J32L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti2Xt3 = 
-        kmadd(J12L,PDupwindNthAnti1Xt3,kmadd(J22L,PDupwindNthAnti2Xt3,kmul(J32L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm2A = 
-        kmadd(J12L,PDupwindNthSymm1A,kmadd(J22L,PDupwindNthSymm2A,kmul(J32L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2At11 = 
-        kmadd(J12L,PDupwindNthSymm1At11,kmadd(J22L,PDupwindNthSymm2At11,kmul(J32L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm2At12 = 
-        kmadd(J12L,PDupwindNthSymm1At12,kmadd(J22L,PDupwindNthSymm2At12,kmul(J32L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm2At13 = 
-        kmadd(J12L,PDupwindNthSymm1At13,kmadd(J22L,PDupwindNthSymm2At13,kmul(J32L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm2At22 = 
-        kmadd(J12L,PDupwindNthSymm1At22,kmadd(J22L,PDupwindNthSymm2At22,kmul(J32L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm2At23 = 
-        kmadd(J12L,PDupwindNthSymm1At23,kmadd(J22L,PDupwindNthSymm2At23,kmul(J32L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm2At33 = 
-        kmadd(J12L,PDupwindNthSymm1At33,kmadd(J22L,PDupwindNthSymm2At33,kmul(J32L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm2B1 = 
-        kmadd(J12L,PDupwindNthSymm1B1,kmadd(J22L,PDupwindNthSymm2B1,kmul(J32L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm2B2 = 
-        kmadd(J12L,PDupwindNthSymm1B2,kmadd(J22L,PDupwindNthSymm2B2,kmul(J32L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm2B3 = 
-        kmadd(J12L,PDupwindNthSymm1B3,kmadd(J22L,PDupwindNthSymm2B3,kmul(J32L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm2gt11 = 
-        kmadd(J12L,PDupwindNthSymm1gt11,kmadd(J22L,PDupwindNthSymm2gt11,kmul(J32L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm2gt12 = 
-        kmadd(J12L,PDupwindNthSymm1gt12,kmadd(J22L,PDupwindNthSymm2gt12,kmul(J32L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm2gt13 = 
-        kmadd(J12L,PDupwindNthSymm1gt13,kmadd(J22L,PDupwindNthSymm2gt13,kmul(J32L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm2gt22 = 
-        kmadd(J12L,PDupwindNthSymm1gt22,kmadd(J22L,PDupwindNthSymm2gt22,kmul(J32L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm2gt23 = 
-        kmadd(J12L,PDupwindNthSymm1gt23,kmadd(J22L,PDupwindNthSymm2gt23,kmul(J32L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm2gt33 = 
-        kmadd(J12L,PDupwindNthSymm1gt33,kmadd(J22L,PDupwindNthSymm2gt33,kmul(J32L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm2phi = 
-        kmadd(J12L,PDupwindNthSymm1phi,kmadd(J22L,PDupwindNthSymm2phi,kmul(J32L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm2trK = 
-        kmadd(J12L,PDupwindNthSymm1trK,kmadd(J22L,PDupwindNthSymm2trK,kmul(J32L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm2Xt1 = 
-        kmadd(J12L,PDupwindNthSymm1Xt1,kmadd(J22L,PDupwindNthSymm2Xt1,kmul(J32L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm2Xt2 = 
-        kmadd(J12L,PDupwindNthSymm1Xt2,kmadd(J22L,PDupwindNthSymm2Xt2,kmul(J32L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm2Xt3 = 
-        kmadd(J12L,PDupwindNthSymm1Xt3,kmadd(J22L,PDupwindNthSymm2Xt3,kmul(J32L,PDupwindNthSymm3Xt3)));
-      
-      JacPDupwindNthAnti3A = 
-        kmadd(J13L,PDupwindNthAnti1A,kmadd(J23L,PDupwindNthAnti2A,kmul(J33L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3At11 = 
-        kmadd(J13L,PDupwindNthAnti1At11,kmadd(J23L,PDupwindNthAnti2At11,kmul(J33L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti3At12 = 
-        kmadd(J13L,PDupwindNthAnti1At12,kmadd(J23L,PDupwindNthAnti2At12,kmul(J33L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti3At13 = 
-        kmadd(J13L,PDupwindNthAnti1At13,kmadd(J23L,PDupwindNthAnti2At13,kmul(J33L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti3At22 = 
-        kmadd(J13L,PDupwindNthAnti1At22,kmadd(J23L,PDupwindNthAnti2At22,kmul(J33L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti3At23 = 
-        kmadd(J13L,PDupwindNthAnti1At23,kmadd(J23L,PDupwindNthAnti2At23,kmul(J33L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti3At33 = 
-        kmadd(J13L,PDupwindNthAnti1At33,kmadd(J23L,PDupwindNthAnti2At33,kmul(J33L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti3B1 = 
-        kmadd(J13L,PDupwindNthAnti1B1,kmadd(J23L,PDupwindNthAnti2B1,kmul(J33L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti3B2 = 
-        kmadd(J13L,PDupwindNthAnti1B2,kmadd(J23L,PDupwindNthAnti2B2,kmul(J33L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti3B3 = 
-        kmadd(J13L,PDupwindNthAnti1B3,kmadd(J23L,PDupwindNthAnti2B3,kmul(J33L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti3gt11 = 
-        kmadd(J13L,PDupwindNthAnti1gt11,kmadd(J23L,PDupwindNthAnti2gt11,kmul(J33L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti3gt12 = 
-        kmadd(J13L,PDupwindNthAnti1gt12,kmadd(J23L,PDupwindNthAnti2gt12,kmul(J33L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti3gt13 = 
-        kmadd(J13L,PDupwindNthAnti1gt13,kmadd(J23L,PDupwindNthAnti2gt13,kmul(J33L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti3gt22 = 
-        kmadd(J13L,PDupwindNthAnti1gt22,kmadd(J23L,PDupwindNthAnti2gt22,kmul(J33L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti3gt23 = 
-        kmadd(J13L,PDupwindNthAnti1gt23,kmadd(J23L,PDupwindNthAnti2gt23,kmul(J33L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti3gt33 = 
-        kmadd(J13L,PDupwindNthAnti1gt33,kmadd(J23L,PDupwindNthAnti2gt33,kmul(J33L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti3phi = 
-        kmadd(J13L,PDupwindNthAnti1phi,kmadd(J23L,PDupwindNthAnti2phi,kmul(J33L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti3trK = 
-        kmadd(J13L,PDupwindNthAnti1trK,kmadd(J23L,PDupwindNthAnti2trK,kmul(J33L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti3Xt1 = 
-        kmadd(J13L,PDupwindNthAnti1Xt1,kmadd(J23L,PDupwindNthAnti2Xt1,kmul(J33L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti3Xt2 = 
-        kmadd(J13L,PDupwindNthAnti1Xt2,kmadd(J23L,PDupwindNthAnti2Xt2,kmul(J33L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti3Xt3 = 
-        kmadd(J13L,PDupwindNthAnti1Xt3,kmadd(J23L,PDupwindNthAnti2Xt3,kmul(J33L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm3A = 
-        kmadd(J13L,PDupwindNthSymm1A,kmadd(J23L,PDupwindNthSymm2A,kmul(J33L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3At11 = 
-        kmadd(J13L,PDupwindNthSymm1At11,kmadd(J23L,PDupwindNthSymm2At11,kmul(J33L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm3At12 = 
-        kmadd(J13L,PDupwindNthSymm1At12,kmadd(J23L,PDupwindNthSymm2At12,kmul(J33L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm3At13 = 
-        kmadd(J13L,PDupwindNthSymm1At13,kmadd(J23L,PDupwindNthSymm2At13,kmul(J33L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm3At22 = 
-        kmadd(J13L,PDupwindNthSymm1At22,kmadd(J23L,PDupwindNthSymm2At22,kmul(J33L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm3At23 = 
-        kmadd(J13L,PDupwindNthSymm1At23,kmadd(J23L,PDupwindNthSymm2At23,kmul(J33L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm3At33 = 
-        kmadd(J13L,PDupwindNthSymm1At33,kmadd(J23L,PDupwindNthSymm2At33,kmul(J33L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm3B1 = 
-        kmadd(J13L,PDupwindNthSymm1B1,kmadd(J23L,PDupwindNthSymm2B1,kmul(J33L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm3B2 = 
-        kmadd(J13L,PDupwindNthSymm1B2,kmadd(J23L,PDupwindNthSymm2B2,kmul(J33L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm3B3 = 
-        kmadd(J13L,PDupwindNthSymm1B3,kmadd(J23L,PDupwindNthSymm2B3,kmul(J33L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm3gt11 = 
-        kmadd(J13L,PDupwindNthSymm1gt11,kmadd(J23L,PDupwindNthSymm2gt11,kmul(J33L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm3gt12 = 
-        kmadd(J13L,PDupwindNthSymm1gt12,kmadd(J23L,PDupwindNthSymm2gt12,kmul(J33L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm3gt13 = 
-        kmadd(J13L,PDupwindNthSymm1gt13,kmadd(J23L,PDupwindNthSymm2gt13,kmul(J33L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm3gt22 = 
-        kmadd(J13L,PDupwindNthSymm1gt22,kmadd(J23L,PDupwindNthSymm2gt22,kmul(J33L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm3gt23 = 
-        kmadd(J13L,PDupwindNthSymm1gt23,kmadd(J23L,PDupwindNthSymm2gt23,kmul(J33L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm3gt33 = 
-        kmadd(J13L,PDupwindNthSymm1gt33,kmadd(J23L,PDupwindNthSymm2gt33,kmul(J33L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm3phi = 
-        kmadd(J13L,PDupwindNthSymm1phi,kmadd(J23L,PDupwindNthSymm2phi,kmul(J33L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm3trK = 
-        kmadd(J13L,PDupwindNthSymm1trK,kmadd(J23L,PDupwindNthSymm2trK,kmul(J33L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm3Xt1 = 
-        kmadd(J13L,PDupwindNthSymm1Xt1,kmadd(J23L,PDupwindNthSymm2Xt1,kmul(J33L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm3Xt2 = 
-        kmadd(J13L,PDupwindNthSymm1Xt2,kmadd(J23L,PDupwindNthSymm2Xt2,kmul(J33L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm3Xt3 = 
-        kmadd(J13L,PDupwindNthSymm1Xt3,kmadd(J23L,PDupwindNthSymm2Xt3,kmul(J33L,PDupwindNthSymm3Xt3)));
-    }
-    else
-    {
-      JacPDupwindNthAnti1A = PDupwindNthAnti1A;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1At11 = PDupwindNthAnti1At11;
-      
-      JacPDupwindNthAnti1At12 = PDupwindNthAnti1At12;
-      
-      JacPDupwindNthAnti1At13 = PDupwindNthAnti1At13;
-      
-      JacPDupwindNthAnti1At22 = PDupwindNthAnti1At22;
-      
-      JacPDupwindNthAnti1At23 = PDupwindNthAnti1At23;
-      
-      JacPDupwindNthAnti1At33 = PDupwindNthAnti1At33;
-      
-      JacPDupwindNthAnti1B1 = PDupwindNthAnti1B1;
-      
-      JacPDupwindNthAnti1B2 = PDupwindNthAnti1B2;
-      
-      JacPDupwindNthAnti1B3 = PDupwindNthAnti1B3;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthAnti1gt11 = PDupwindNthAnti1gt11;
-      
-      JacPDupwindNthAnti1gt12 = PDupwindNthAnti1gt12;
-      
-      JacPDupwindNthAnti1gt13 = PDupwindNthAnti1gt13;
-      
-      JacPDupwindNthAnti1gt22 = PDupwindNthAnti1gt22;
-      
-      JacPDupwindNthAnti1gt23 = PDupwindNthAnti1gt23;
-      
-      JacPDupwindNthAnti1gt33 = PDupwindNthAnti1gt33;
-      
-      JacPDupwindNthAnti1phi = PDupwindNthAnti1phi;
-      
-      JacPDupwindNthAnti1trK = PDupwindNthAnti1trK;
-      
-      JacPDupwindNthAnti1Xt1 = PDupwindNthAnti1Xt1;
-      
-      JacPDupwindNthAnti1Xt2 = PDupwindNthAnti1Xt2;
-      
-      JacPDupwindNthAnti1Xt3 = PDupwindNthAnti1Xt3;
-      
-      JacPDupwindNthSymm1A = PDupwindNthSymm1A;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1At11 = PDupwindNthSymm1At11;
-      
-      JacPDupwindNthSymm1At12 = PDupwindNthSymm1At12;
-      
-      JacPDupwindNthSymm1At13 = PDupwindNthSymm1At13;
-      
-      JacPDupwindNthSymm1At22 = PDupwindNthSymm1At22;
-      
-      JacPDupwindNthSymm1At23 = PDupwindNthSymm1At23;
-      
-      JacPDupwindNthSymm1At33 = PDupwindNthSymm1At33;
-      
-      JacPDupwindNthSymm1B1 = PDupwindNthSymm1B1;
-      
-      JacPDupwindNthSymm1B2 = PDupwindNthSymm1B2;
-      
-      JacPDupwindNthSymm1B3 = PDupwindNthSymm1B3;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthSymm1gt11 = PDupwindNthSymm1gt11;
-      
-      JacPDupwindNthSymm1gt12 = PDupwindNthSymm1gt12;
-      
-      JacPDupwindNthSymm1gt13 = PDupwindNthSymm1gt13;
-      
-      JacPDupwindNthSymm1gt22 = PDupwindNthSymm1gt22;
-      
-      JacPDupwindNthSymm1gt23 = PDupwindNthSymm1gt23;
-      
-      JacPDupwindNthSymm1gt33 = PDupwindNthSymm1gt33;
-      
-      JacPDupwindNthSymm1phi = PDupwindNthSymm1phi;
-      
-      JacPDupwindNthSymm1trK = PDupwindNthSymm1trK;
-      
-      JacPDupwindNthSymm1Xt1 = PDupwindNthSymm1Xt1;
-      
-      JacPDupwindNthSymm1Xt2 = PDupwindNthSymm1Xt2;
-      
-      JacPDupwindNthSymm1Xt3 = PDupwindNthSymm1Xt3;
-      
-      JacPDupwindNthAnti2A = PDupwindNthAnti2A;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2At11 = PDupwindNthAnti2At11;
-      
-      JacPDupwindNthAnti2At12 = PDupwindNthAnti2At12;
-      
-      JacPDupwindNthAnti2At13 = PDupwindNthAnti2At13;
-      
-      JacPDupwindNthAnti2At22 = PDupwindNthAnti2At22;
-      
-      JacPDupwindNthAnti2At23 = PDupwindNthAnti2At23;
-      
-      JacPDupwindNthAnti2At33 = PDupwindNthAnti2At33;
-      
-      JacPDupwindNthAnti2B1 = PDupwindNthAnti2B1;
-      
-      JacPDupwindNthAnti2B2 = PDupwindNthAnti2B2;
-      
-      JacPDupwindNthAnti2B3 = PDupwindNthAnti2B3;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthAnti2gt11 = PDupwindNthAnti2gt11;
-      
-      JacPDupwindNthAnti2gt12 = PDupwindNthAnti2gt12;
-      
-      JacPDupwindNthAnti2gt13 = PDupwindNthAnti2gt13;
-      
-      JacPDupwindNthAnti2gt22 = PDupwindNthAnti2gt22;
-      
-      JacPDupwindNthAnti2gt23 = PDupwindNthAnti2gt23;
-      
-      JacPDupwindNthAnti2gt33 = PDupwindNthAnti2gt33;
-      
-      JacPDupwindNthAnti2phi = PDupwindNthAnti2phi;
-      
-      JacPDupwindNthAnti2trK = PDupwindNthAnti2trK;
-      
-      JacPDupwindNthAnti2Xt1 = PDupwindNthAnti2Xt1;
-      
-      JacPDupwindNthAnti2Xt2 = PDupwindNthAnti2Xt2;
-      
-      JacPDupwindNthAnti2Xt3 = PDupwindNthAnti2Xt3;
-      
-      JacPDupwindNthSymm2A = PDupwindNthSymm2A;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2At11 = PDupwindNthSymm2At11;
-      
-      JacPDupwindNthSymm2At12 = PDupwindNthSymm2At12;
-      
-      JacPDupwindNthSymm2At13 = PDupwindNthSymm2At13;
-      
-      JacPDupwindNthSymm2At22 = PDupwindNthSymm2At22;
-      
-      JacPDupwindNthSymm2At23 = PDupwindNthSymm2At23;
-      
-      JacPDupwindNthSymm2At33 = PDupwindNthSymm2At33;
-      
-      JacPDupwindNthSymm2B1 = PDupwindNthSymm2B1;
-      
-      JacPDupwindNthSymm2B2 = PDupwindNthSymm2B2;
-      
-      JacPDupwindNthSymm2B3 = PDupwindNthSymm2B3;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthSymm2gt11 = PDupwindNthSymm2gt11;
-      
-      JacPDupwindNthSymm2gt12 = PDupwindNthSymm2gt12;
-      
-      JacPDupwindNthSymm2gt13 = PDupwindNthSymm2gt13;
-      
-      JacPDupwindNthSymm2gt22 = PDupwindNthSymm2gt22;
-      
-      JacPDupwindNthSymm2gt23 = PDupwindNthSymm2gt23;
-      
-      JacPDupwindNthSymm2gt33 = PDupwindNthSymm2gt33;
-      
-      JacPDupwindNthSymm2phi = PDupwindNthSymm2phi;
-      
-      JacPDupwindNthSymm2trK = PDupwindNthSymm2trK;
-      
-      JacPDupwindNthSymm2Xt1 = PDupwindNthSymm2Xt1;
-      
-      JacPDupwindNthSymm2Xt2 = PDupwindNthSymm2Xt2;
-      
-      JacPDupwindNthSymm2Xt3 = PDupwindNthSymm2Xt3;
-      
-      JacPDupwindNthAnti3A = PDupwindNthAnti3A;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3At11 = PDupwindNthAnti3At11;
-      
-      JacPDupwindNthAnti3At12 = PDupwindNthAnti3At12;
-      
-      JacPDupwindNthAnti3At13 = PDupwindNthAnti3At13;
-      
-      JacPDupwindNthAnti3At22 = PDupwindNthAnti3At22;
-      
-      JacPDupwindNthAnti3At23 = PDupwindNthAnti3At23;
-      
-      JacPDupwindNthAnti3At33 = PDupwindNthAnti3At33;
-      
-      JacPDupwindNthAnti3B1 = PDupwindNthAnti3B1;
-      
-      JacPDupwindNthAnti3B2 = PDupwindNthAnti3B2;
-      
-      JacPDupwindNthAnti3B3 = PDupwindNthAnti3B3;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthAnti3gt11 = PDupwindNthAnti3gt11;
-      
-      JacPDupwindNthAnti3gt12 = PDupwindNthAnti3gt12;
-      
-      JacPDupwindNthAnti3gt13 = PDupwindNthAnti3gt13;
-      
-      JacPDupwindNthAnti3gt22 = PDupwindNthAnti3gt22;
-      
-      JacPDupwindNthAnti3gt23 = PDupwindNthAnti3gt23;
-      
-      JacPDupwindNthAnti3gt33 = PDupwindNthAnti3gt33;
-      
-      JacPDupwindNthAnti3phi = PDupwindNthAnti3phi;
-      
-      JacPDupwindNthAnti3trK = PDupwindNthAnti3trK;
-      
-      JacPDupwindNthAnti3Xt1 = PDupwindNthAnti3Xt1;
-      
-      JacPDupwindNthAnti3Xt2 = PDupwindNthAnti3Xt2;
-      
-      JacPDupwindNthAnti3Xt3 = PDupwindNthAnti3Xt3;
-      
-      JacPDupwindNthSymm3A = PDupwindNthSymm3A;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3At11 = PDupwindNthSymm3At11;
-      
-      JacPDupwindNthSymm3At12 = PDupwindNthSymm3At12;
-      
-      JacPDupwindNthSymm3At13 = PDupwindNthSymm3At13;
-      
-      JacPDupwindNthSymm3At22 = PDupwindNthSymm3At22;
-      
-      JacPDupwindNthSymm3At23 = PDupwindNthSymm3At23;
-      
-      JacPDupwindNthSymm3At33 = PDupwindNthSymm3At33;
-      
-      JacPDupwindNthSymm3B1 = PDupwindNthSymm3B1;
-      
-      JacPDupwindNthSymm3B2 = PDupwindNthSymm3B2;
-      
-      JacPDupwindNthSymm3B3 = PDupwindNthSymm3B3;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-      
-      JacPDupwindNthSymm3gt11 = PDupwindNthSymm3gt11;
-      
-      JacPDupwindNthSymm3gt12 = PDupwindNthSymm3gt12;
-      
-      JacPDupwindNthSymm3gt13 = PDupwindNthSymm3gt13;
-      
-      JacPDupwindNthSymm3gt22 = PDupwindNthSymm3gt22;
-      
-      JacPDupwindNthSymm3gt23 = PDupwindNthSymm3gt23;
-      
-      JacPDupwindNthSymm3gt33 = PDupwindNthSymm3gt33;
-      
-      JacPDupwindNthSymm3phi = PDupwindNthSymm3phi;
-      
-      JacPDupwindNthSymm3trK = PDupwindNthSymm3trK;
-      
-      JacPDupwindNthSymm3Xt1 = PDupwindNthSymm3Xt1;
-      
-      JacPDupwindNthSymm3Xt2 = PDupwindNthSymm3Xt2;
-      
-      JacPDupwindNthSymm3Xt3 = PDupwindNthSymm3Xt3;
-    }
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(beta1L,JacPDupwindNthAnti1phi,kmadd(beta2L,JacPDupwindNthAnti2phi,kmadd(beta3L,JacPDupwindNthAnti3phi,kmadd(JacPDupwindNthSymm1phi,kfabs(beta1L),kmadd(JacPDupwindNthSymm2phi,kfabs(beta2L),kmul(JacPDupwindNthSymm3phi,kfabs(beta3L))))))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt11,kmadd(beta2L,JacPDupwindNthAnti2gt11,kmadd(beta3L,JacPDupwindNthAnti3gt11,kmadd(JacPDupwindNthSymm1gt11,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt11,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt11,kfabs(beta3L))))))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt12,kmadd(beta2L,JacPDupwindNthAnti2gt12,kmadd(beta3L,JacPDupwindNthAnti3gt12,kmadd(JacPDupwindNthSymm1gt12,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt12,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt12,kfabs(beta3L))))))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt13,kmadd(beta2L,JacPDupwindNthAnti2gt13,kmadd(beta3L,JacPDupwindNthAnti3gt13,kmadd(JacPDupwindNthSymm1gt13,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt13,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt13,kfabs(beta3L))))))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt22,kmadd(beta2L,JacPDupwindNthAnti2gt22,kmadd(beta3L,JacPDupwindNthAnti3gt22,kmadd(JacPDupwindNthSymm1gt22,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt22,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt22,kfabs(beta3L))))))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt23,kmadd(beta2L,JacPDupwindNthAnti2gt23,kmadd(beta3L,JacPDupwindNthAnti3gt23,kmadd(JacPDupwindNthSymm1gt23,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt23,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt23,kfabs(beta3L))))))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt33,kmadd(beta2L,JacPDupwindNthAnti2gt33,kmadd(beta3L,JacPDupwindNthAnti3gt33,kmadd(JacPDupwindNthSymm1gt33,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt33,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt33,kfabs(beta3L))))))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt1,kmadd(beta2L,JacPDupwindNthAnti2Xt1,kmadd(beta3L,JacPDupwindNthAnti3Xt1,kmadd(JacPDupwindNthSymm1Xt1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt1,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt1,kfabs(beta3L))))))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt2,kmadd(beta2L,JacPDupwindNthAnti2Xt2,kmadd(beta3L,JacPDupwindNthAnti3Xt2,kmadd(JacPDupwindNthSymm1Xt2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt2,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt2,kfabs(beta3L))))))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt3,kmadd(beta2L,JacPDupwindNthAnti2Xt3,kmadd(beta3L,JacPDupwindNthAnti3Xt3,kmadd(JacPDupwindNthSymm1Xt3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt3,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt3,kfabs(beta3L))))))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(beta1L,JacPDupwindNthAnti1trK,kmadd(beta2L,JacPDupwindNthAnti2trK,kmadd(beta3L,JacPDupwindNthAnti3trK,kmadd(JacPDupwindNthSymm1trK,kfabs(beta1L),kmadd(JacPDupwindNthSymm2trK,kfabs(beta2L),kmul(JacPDupwindNthSymm3trK,kfabs(beta3L))))))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(beta1L,JacPDupwindNthAnti1At11,kmadd(beta2L,JacPDupwindNthAnti2At11,kmadd(beta3L,JacPDupwindNthAnti3At11,kmadd(JacPDupwindNthSymm1At11,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At11,kfabs(beta2L),kmul(JacPDupwindNthSymm3At11,kfabs(beta3L))))))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(beta1L,JacPDupwindNthAnti1At12,kmadd(beta2L,JacPDupwindNthAnti2At12,kmadd(beta3L,JacPDupwindNthAnti3At12,kmadd(JacPDupwindNthSymm1At12,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At12,kfabs(beta2L),kmul(JacPDupwindNthSymm3At12,kfabs(beta3L))))))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(beta1L,JacPDupwindNthAnti1At13,kmadd(beta2L,JacPDupwindNthAnti2At13,kmadd(beta3L,JacPDupwindNthAnti3At13,kmadd(JacPDupwindNthSymm1At13,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At13,kfabs(beta2L),kmul(JacPDupwindNthSymm3At13,kfabs(beta3L))))))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(beta1L,JacPDupwindNthAnti1At22,kmadd(beta2L,JacPDupwindNthAnti2At22,kmadd(beta3L,JacPDupwindNthAnti3At22,kmadd(JacPDupwindNthSymm1At22,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At22,kfabs(beta2L),kmul(JacPDupwindNthSymm3At22,kfabs(beta3L))))))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(beta1L,JacPDupwindNthAnti1At23,kmadd(beta2L,JacPDupwindNthAnti2At23,kmadd(beta3L,JacPDupwindNthAnti3At23,kmadd(JacPDupwindNthSymm1At23,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At23,kfabs(beta2L),kmul(JacPDupwindNthSymm3At23,kfabs(beta3L))))))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(beta1L,JacPDupwindNthAnti1At33,kmadd(beta2L,JacPDupwindNthAnti2At33,kmadd(beta3L,JacPDupwindNthAnti3At33,kmadd(JacPDupwindNthSymm1At33,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At33,kfabs(beta2L),kmul(JacPDupwindNthSymm3At33,kfabs(beta3L))))))));
-    
-    alpharhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),alpharhsL);
-    
-    ArhsL = 
-      kmadd(ToReal(LapseACoeff),kmsub(kmadd(beta1L,JacPDupwindNthAnti1A,kmadd(beta2L,JacPDupwindNthAnti2A,kmadd(beta3L,JacPDupwindNthAnti3A,kmadd(JacPDupwindNthSymm1A,kfabs(beta1L),kmadd(JacPDupwindNthSymm2A,kfabs(beta2L),kmul(JacPDupwindNthSymm3A,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1trK,kmadd(beta2L,JacPDupwindNthAnti2trK,kmadd(beta3L,JacPDupwindNthAnti3trK,kmadd(JacPDupwindNthSymm1trK,kfabs(beta1L),kmadd(JacPDupwindNthSymm2trK,kfabs(beta2L),kmul(JacPDupwindNthSymm3trK,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(LapseAdvectionCoeff)))),ArhsL);
-    
-    beta1rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta1rhsL);
-    
-    beta2rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta2rhsL);
-    
-    beta3rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta3rhsL);
-    
-    B1rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B1,kmadd(beta2L,JacPDupwindNthAnti2B1,kmadd(beta3L,JacPDupwindNthAnti3B1,kmadd(JacPDupwindNthSymm1B1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B1,kfabs(beta2L),kmul(JacPDupwindNthSymm3B1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt1,kmadd(beta2L,JacPDupwindNthAnti2Xt1,kmadd(beta3L,JacPDupwindNthAnti3Xt1,kmadd(JacPDupwindNthSymm1Xt1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt1,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt1,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B1rhsL);
-    
-    B2rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B2,kmadd(beta2L,JacPDupwindNthAnti2B2,kmadd(beta3L,JacPDupwindNthAnti3B2,kmadd(JacPDupwindNthSymm1B2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B2,kfabs(beta2L),kmul(JacPDupwindNthSymm3B2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt2,kmadd(beta2L,JacPDupwindNthAnti2Xt2,kmadd(beta3L,JacPDupwindNthAnti3Xt2,kmadd(JacPDupwindNthSymm1Xt2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt2,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt2,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B2rhsL);
-    
-    B3rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B3,kmadd(beta2L,JacPDupwindNthAnti2B3,kmadd(beta3L,JacPDupwindNthAnti3B3,kmadd(JacPDupwindNthSymm1B3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B3,kfabs(beta2L),kmul(JacPDupwindNthSymm3B3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt3,kmadd(beta2L,JacPDupwindNthAnti2Xt3,kmadd(beta3L,JacPDupwindNthAnti3Xt3,kmadd(JacPDupwindNthSymm1Xt3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt3,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt3,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B3rhsL);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_Advect);
-}
-
-extern "C" void ML_BSSN_MP_O8_Advect(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_Advect_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_Advect_calc_every != ML_BSSN_MP_O8_Advect_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_curvrhs",
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtlapserhs",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_dtshiftrhs",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_Gammarhs",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_lapserhs",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_log_confacrhs",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_metricrhs",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_shiftrhs",
-    "ML_BSSN_MP_O8::ML_trace_curv",
-    "ML_BSSN_MP_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_Advect", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_Advect", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_Advect", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_Advect", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_Advect", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_O8_Advect_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_Advect_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Dissipation.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Dissipation.cc
deleted file mode 100644
index e881266..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Dissipation.cc
+++ /dev/null
@@ -1,1330 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_Dissipation_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_Dissipation_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_Dissipation,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDdissipationNth1A;
-    CCTK_REAL_VEC PDdissipationNth2A;
-    CCTK_REAL_VEC PDdissipationNth3A;
-    CCTK_REAL_VEC PDdissipationNth1alpha;
-    CCTK_REAL_VEC PDdissipationNth2alpha;
-    CCTK_REAL_VEC PDdissipationNth3alpha;
-    CCTK_REAL_VEC PDdissipationNth1At11;
-    CCTK_REAL_VEC PDdissipationNth2At11;
-    CCTK_REAL_VEC PDdissipationNth3At11;
-    CCTK_REAL_VEC PDdissipationNth1At12;
-    CCTK_REAL_VEC PDdissipationNth2At12;
-    CCTK_REAL_VEC PDdissipationNth3At12;
-    CCTK_REAL_VEC PDdissipationNth1At13;
-    CCTK_REAL_VEC PDdissipationNth2At13;
-    CCTK_REAL_VEC PDdissipationNth3At13;
-    CCTK_REAL_VEC PDdissipationNth1At22;
-    CCTK_REAL_VEC PDdissipationNth2At22;
-    CCTK_REAL_VEC PDdissipationNth3At22;
-    CCTK_REAL_VEC PDdissipationNth1At23;
-    CCTK_REAL_VEC PDdissipationNth2At23;
-    CCTK_REAL_VEC PDdissipationNth3At23;
-    CCTK_REAL_VEC PDdissipationNth1At33;
-    CCTK_REAL_VEC PDdissipationNth2At33;
-    CCTK_REAL_VEC PDdissipationNth3At33;
-    CCTK_REAL_VEC PDdissipationNth1B1;
-    CCTK_REAL_VEC PDdissipationNth2B1;
-    CCTK_REAL_VEC PDdissipationNth3B1;
-    CCTK_REAL_VEC PDdissipationNth1B2;
-    CCTK_REAL_VEC PDdissipationNth2B2;
-    CCTK_REAL_VEC PDdissipationNth3B2;
-    CCTK_REAL_VEC PDdissipationNth1B3;
-    CCTK_REAL_VEC PDdissipationNth2B3;
-    CCTK_REAL_VEC PDdissipationNth3B3;
-    CCTK_REAL_VEC PDdissipationNth1beta1;
-    CCTK_REAL_VEC PDdissipationNth2beta1;
-    CCTK_REAL_VEC PDdissipationNth3beta1;
-    CCTK_REAL_VEC PDdissipationNth1beta2;
-    CCTK_REAL_VEC PDdissipationNth2beta2;
-    CCTK_REAL_VEC PDdissipationNth3beta2;
-    CCTK_REAL_VEC PDdissipationNth1beta3;
-    CCTK_REAL_VEC PDdissipationNth2beta3;
-    CCTK_REAL_VEC PDdissipationNth3beta3;
-    CCTK_REAL_VEC PDdissipationNth1gt11;
-    CCTK_REAL_VEC PDdissipationNth2gt11;
-    CCTK_REAL_VEC PDdissipationNth3gt11;
-    CCTK_REAL_VEC PDdissipationNth1gt12;
-    CCTK_REAL_VEC PDdissipationNth2gt12;
-    CCTK_REAL_VEC PDdissipationNth3gt12;
-    CCTK_REAL_VEC PDdissipationNth1gt13;
-    CCTK_REAL_VEC PDdissipationNth2gt13;
-    CCTK_REAL_VEC PDdissipationNth3gt13;
-    CCTK_REAL_VEC PDdissipationNth1gt22;
-    CCTK_REAL_VEC PDdissipationNth2gt22;
-    CCTK_REAL_VEC PDdissipationNth3gt22;
-    CCTK_REAL_VEC PDdissipationNth1gt23;
-    CCTK_REAL_VEC PDdissipationNth2gt23;
-    CCTK_REAL_VEC PDdissipationNth3gt23;
-    CCTK_REAL_VEC PDdissipationNth1gt33;
-    CCTK_REAL_VEC PDdissipationNth2gt33;
-    CCTK_REAL_VEC PDdissipationNth3gt33;
-    CCTK_REAL_VEC PDdissipationNth1phi;
-    CCTK_REAL_VEC PDdissipationNth2phi;
-    CCTK_REAL_VEC PDdissipationNth3phi;
-    CCTK_REAL_VEC PDdissipationNth1trK;
-    CCTK_REAL_VEC PDdissipationNth2trK;
-    CCTK_REAL_VEC PDdissipationNth3trK;
-    CCTK_REAL_VEC PDdissipationNth1Xt1;
-    CCTK_REAL_VEC PDdissipationNth2Xt1;
-    CCTK_REAL_VEC PDdissipationNth3Xt1;
-    CCTK_REAL_VEC PDdissipationNth1Xt2;
-    CCTK_REAL_VEC PDdissipationNth2Xt2;
-    CCTK_REAL_VEC PDdissipationNth3Xt2;
-    CCTK_REAL_VEC PDdissipationNth1Xt3;
-    CCTK_REAL_VEC PDdissipationNth2Xt3;
-    CCTK_REAL_VEC PDdissipationNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDdissipationNth1A = PDdissipationNthfdOrder21(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder22(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder23(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder21(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder22(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder23(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder21(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder22(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder23(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder21(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder22(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder23(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder21(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder22(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder23(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder21(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder22(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder23(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder21(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder22(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder23(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder21(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder22(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder23(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder21(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder22(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder23(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder21(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder22(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder23(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder21(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder22(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder23(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder21(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder22(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder23(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder21(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder22(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder23(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder21(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder22(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder23(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder21(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder22(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder23(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder21(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder22(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder23(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder21(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder22(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder23(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder21(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder22(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder23(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder21(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder22(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder23(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder21(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder22(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder23(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder21(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder22(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder23(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder21(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder22(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder23(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder21(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder22(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder23(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder21(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder22(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder23(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder21(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder22(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDdissipationNth1A = PDdissipationNthfdOrder41(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder42(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder43(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder41(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder42(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder43(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder41(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder42(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder43(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder41(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder42(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder43(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder41(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder42(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder43(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder41(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder42(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder43(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder41(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder42(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder43(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder41(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder42(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder43(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder41(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder42(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder43(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder41(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder42(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder43(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder41(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder42(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder43(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder41(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder42(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder43(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder41(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder42(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder43(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder41(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder42(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder43(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder41(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder42(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder43(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder41(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder42(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder43(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder41(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder42(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder43(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder41(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder42(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder43(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder41(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder42(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder43(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder41(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder42(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder43(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder41(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder42(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder43(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder41(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder42(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder43(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder41(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder42(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder43(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder41(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder42(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder43(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder41(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder42(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDdissipationNth1A = PDdissipationNthfdOrder61(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder62(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder63(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder61(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder62(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder63(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder61(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder62(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder63(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder61(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder62(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder63(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder61(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder62(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder63(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder61(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder62(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder63(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder61(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder62(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder63(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder61(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder62(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder63(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder61(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder62(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder63(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder61(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder62(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder63(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder61(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder62(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder63(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder61(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder62(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder63(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder61(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder62(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder63(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder61(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder62(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder63(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder61(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder62(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder63(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder61(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder62(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder63(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder61(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder62(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder63(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder61(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder62(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder63(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder61(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder62(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder63(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder61(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder62(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder63(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder61(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder62(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder63(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder61(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder62(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder63(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder61(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder62(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder63(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder61(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder62(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder63(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder61(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder62(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDdissipationNth1A = PDdissipationNthfdOrder81(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder82(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder83(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder81(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder82(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder83(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder81(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder82(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder83(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder81(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder82(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder83(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder81(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder82(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder83(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder81(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder82(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder83(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder81(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder82(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder83(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder81(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder82(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder83(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder81(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder82(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder83(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder81(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder82(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder83(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder81(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder82(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder83(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder81(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder82(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder83(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder81(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder82(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder83(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder81(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder82(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder83(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder81(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder82(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder83(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder81(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder82(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder83(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder81(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder82(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder83(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder81(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder82(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder83(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder81(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder82(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder83(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder81(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder82(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder83(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder81(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder82(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder83(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder81(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder82(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder83(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder81(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder82(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder83(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder81(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder82(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder83(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder81(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder82(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDdissipationNth1A;
-    CCTK_REAL_VEC JacPDdissipationNth1alpha;
-    CCTK_REAL_VEC JacPDdissipationNth1At11;
-    CCTK_REAL_VEC JacPDdissipationNth1At12;
-    CCTK_REAL_VEC JacPDdissipationNth1At13;
-    CCTK_REAL_VEC JacPDdissipationNth1At22;
-    CCTK_REAL_VEC JacPDdissipationNth1At23;
-    CCTK_REAL_VEC JacPDdissipationNth1At33;
-    CCTK_REAL_VEC JacPDdissipationNth1B1;
-    CCTK_REAL_VEC JacPDdissipationNth1B2;
-    CCTK_REAL_VEC JacPDdissipationNth1B3;
-    CCTK_REAL_VEC JacPDdissipationNth1beta1;
-    CCTK_REAL_VEC JacPDdissipationNth1beta2;
-    CCTK_REAL_VEC JacPDdissipationNth1beta3;
-    CCTK_REAL_VEC JacPDdissipationNth1gt11;
-    CCTK_REAL_VEC JacPDdissipationNth1gt12;
-    CCTK_REAL_VEC JacPDdissipationNth1gt13;
-    CCTK_REAL_VEC JacPDdissipationNth1gt22;
-    CCTK_REAL_VEC JacPDdissipationNth1gt23;
-    CCTK_REAL_VEC JacPDdissipationNth1gt33;
-    CCTK_REAL_VEC JacPDdissipationNth1phi;
-    CCTK_REAL_VEC JacPDdissipationNth1trK;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth2A;
-    CCTK_REAL_VEC JacPDdissipationNth2alpha;
-    CCTK_REAL_VEC JacPDdissipationNth2At11;
-    CCTK_REAL_VEC JacPDdissipationNth2At12;
-    CCTK_REAL_VEC JacPDdissipationNth2At13;
-    CCTK_REAL_VEC JacPDdissipationNth2At22;
-    CCTK_REAL_VEC JacPDdissipationNth2At23;
-    CCTK_REAL_VEC JacPDdissipationNth2At33;
-    CCTK_REAL_VEC JacPDdissipationNth2B1;
-    CCTK_REAL_VEC JacPDdissipationNth2B2;
-    CCTK_REAL_VEC JacPDdissipationNth2B3;
-    CCTK_REAL_VEC JacPDdissipationNth2beta1;
-    CCTK_REAL_VEC JacPDdissipationNth2beta2;
-    CCTK_REAL_VEC JacPDdissipationNth2beta3;
-    CCTK_REAL_VEC JacPDdissipationNth2gt11;
-    CCTK_REAL_VEC JacPDdissipationNth2gt12;
-    CCTK_REAL_VEC JacPDdissipationNth2gt13;
-    CCTK_REAL_VEC JacPDdissipationNth2gt22;
-    CCTK_REAL_VEC JacPDdissipationNth2gt23;
-    CCTK_REAL_VEC JacPDdissipationNth2gt33;
-    CCTK_REAL_VEC JacPDdissipationNth2phi;
-    CCTK_REAL_VEC JacPDdissipationNth2trK;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth3A;
-    CCTK_REAL_VEC JacPDdissipationNth3alpha;
-    CCTK_REAL_VEC JacPDdissipationNth3At11;
-    CCTK_REAL_VEC JacPDdissipationNth3At12;
-    CCTK_REAL_VEC JacPDdissipationNth3At13;
-    CCTK_REAL_VEC JacPDdissipationNth3At22;
-    CCTK_REAL_VEC JacPDdissipationNth3At23;
-    CCTK_REAL_VEC JacPDdissipationNth3At33;
-    CCTK_REAL_VEC JacPDdissipationNth3B1;
-    CCTK_REAL_VEC JacPDdissipationNth3B2;
-    CCTK_REAL_VEC JacPDdissipationNth3B3;
-    CCTK_REAL_VEC JacPDdissipationNth3beta1;
-    CCTK_REAL_VEC JacPDdissipationNth3beta2;
-    CCTK_REAL_VEC JacPDdissipationNth3beta3;
-    CCTK_REAL_VEC JacPDdissipationNth3gt11;
-    CCTK_REAL_VEC JacPDdissipationNth3gt12;
-    CCTK_REAL_VEC JacPDdissipationNth3gt13;
-    CCTK_REAL_VEC JacPDdissipationNth3gt22;
-    CCTK_REAL_VEC JacPDdissipationNth3gt23;
-    CCTK_REAL_VEC JacPDdissipationNth3gt33;
-    CCTK_REAL_VEC JacPDdissipationNth3phi;
-    CCTK_REAL_VEC JacPDdissipationNth3trK;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDdissipationNth1A = 
-        kmadd(J11L,PDdissipationNth1A,kmadd(J21L,PDdissipationNth2A,kmul(J31L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth1alpha = 
-        kmadd(J11L,PDdissipationNth1alpha,kmadd(J21L,PDdissipationNth2alpha,kmul(J31L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth1At11 = 
-        kmadd(J11L,PDdissipationNth1At11,kmadd(J21L,PDdissipationNth2At11,kmul(J31L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth1At12 = 
-        kmadd(J11L,PDdissipationNth1At12,kmadd(J21L,PDdissipationNth2At12,kmul(J31L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth1At13 = 
-        kmadd(J11L,PDdissipationNth1At13,kmadd(J21L,PDdissipationNth2At13,kmul(J31L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth1At22 = 
-        kmadd(J11L,PDdissipationNth1At22,kmadd(J21L,PDdissipationNth2At22,kmul(J31L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth1At23 = 
-        kmadd(J11L,PDdissipationNth1At23,kmadd(J21L,PDdissipationNth2At23,kmul(J31L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth1At33 = 
-        kmadd(J11L,PDdissipationNth1At33,kmadd(J21L,PDdissipationNth2At33,kmul(J31L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth1B1 = 
-        kmadd(J11L,PDdissipationNth1B1,kmadd(J21L,PDdissipationNth2B1,kmul(J31L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth1B2 = 
-        kmadd(J11L,PDdissipationNth1B2,kmadd(J21L,PDdissipationNth2B2,kmul(J31L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth1B3 = 
-        kmadd(J11L,PDdissipationNth1B3,kmadd(J21L,PDdissipationNth2B3,kmul(J31L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth1beta1 = 
-        kmadd(J11L,PDdissipationNth1beta1,kmadd(J21L,PDdissipationNth2beta1,kmul(J31L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth1beta2 = 
-        kmadd(J11L,PDdissipationNth1beta2,kmadd(J21L,PDdissipationNth2beta2,kmul(J31L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth1beta3 = 
-        kmadd(J11L,PDdissipationNth1beta3,kmadd(J21L,PDdissipationNth2beta3,kmul(J31L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth1gt11 = 
-        kmadd(J11L,PDdissipationNth1gt11,kmadd(J21L,PDdissipationNth2gt11,kmul(J31L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth1gt12 = 
-        kmadd(J11L,PDdissipationNth1gt12,kmadd(J21L,PDdissipationNth2gt12,kmul(J31L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth1gt13 = 
-        kmadd(J11L,PDdissipationNth1gt13,kmadd(J21L,PDdissipationNth2gt13,kmul(J31L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth1gt22 = 
-        kmadd(J11L,PDdissipationNth1gt22,kmadd(J21L,PDdissipationNth2gt22,kmul(J31L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth1gt23 = 
-        kmadd(J11L,PDdissipationNth1gt23,kmadd(J21L,PDdissipationNth2gt23,kmul(J31L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth1gt33 = 
-        kmadd(J11L,PDdissipationNth1gt33,kmadd(J21L,PDdissipationNth2gt33,kmul(J31L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth1phi = 
-        kmadd(J11L,PDdissipationNth1phi,kmadd(J21L,PDdissipationNth2phi,kmul(J31L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth1trK = 
-        kmadd(J11L,PDdissipationNth1trK,kmadd(J21L,PDdissipationNth2trK,kmul(J31L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth1Xt1 = 
-        kmadd(J11L,PDdissipationNth1Xt1,kmadd(J21L,PDdissipationNth2Xt1,kmul(J31L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth1Xt2 = 
-        kmadd(J11L,PDdissipationNth1Xt2,kmadd(J21L,PDdissipationNth2Xt2,kmul(J31L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth1Xt3 = 
-        kmadd(J11L,PDdissipationNth1Xt3,kmadd(J21L,PDdissipationNth2Xt3,kmul(J31L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth2A = 
-        kmadd(J12L,PDdissipationNth1A,kmadd(J22L,PDdissipationNth2A,kmul(J32L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth2alpha = 
-        kmadd(J12L,PDdissipationNth1alpha,kmadd(J22L,PDdissipationNth2alpha,kmul(J32L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth2At11 = 
-        kmadd(J12L,PDdissipationNth1At11,kmadd(J22L,PDdissipationNth2At11,kmul(J32L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth2At12 = 
-        kmadd(J12L,PDdissipationNth1At12,kmadd(J22L,PDdissipationNth2At12,kmul(J32L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth2At13 = 
-        kmadd(J12L,PDdissipationNth1At13,kmadd(J22L,PDdissipationNth2At13,kmul(J32L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth2At22 = 
-        kmadd(J12L,PDdissipationNth1At22,kmadd(J22L,PDdissipationNth2At22,kmul(J32L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth2At23 = 
-        kmadd(J12L,PDdissipationNth1At23,kmadd(J22L,PDdissipationNth2At23,kmul(J32L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth2At33 = 
-        kmadd(J12L,PDdissipationNth1At33,kmadd(J22L,PDdissipationNth2At33,kmul(J32L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth2B1 = 
-        kmadd(J12L,PDdissipationNth1B1,kmadd(J22L,PDdissipationNth2B1,kmul(J32L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth2B2 = 
-        kmadd(J12L,PDdissipationNth1B2,kmadd(J22L,PDdissipationNth2B2,kmul(J32L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth2B3 = 
-        kmadd(J12L,PDdissipationNth1B3,kmadd(J22L,PDdissipationNth2B3,kmul(J32L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth2beta1 = 
-        kmadd(J12L,PDdissipationNth1beta1,kmadd(J22L,PDdissipationNth2beta1,kmul(J32L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth2beta2 = 
-        kmadd(J12L,PDdissipationNth1beta2,kmadd(J22L,PDdissipationNth2beta2,kmul(J32L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth2beta3 = 
-        kmadd(J12L,PDdissipationNth1beta3,kmadd(J22L,PDdissipationNth2beta3,kmul(J32L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth2gt11 = 
-        kmadd(J12L,PDdissipationNth1gt11,kmadd(J22L,PDdissipationNth2gt11,kmul(J32L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth2gt12 = 
-        kmadd(J12L,PDdissipationNth1gt12,kmadd(J22L,PDdissipationNth2gt12,kmul(J32L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth2gt13 = 
-        kmadd(J12L,PDdissipationNth1gt13,kmadd(J22L,PDdissipationNth2gt13,kmul(J32L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth2gt22 = 
-        kmadd(J12L,PDdissipationNth1gt22,kmadd(J22L,PDdissipationNth2gt22,kmul(J32L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth2gt23 = 
-        kmadd(J12L,PDdissipationNth1gt23,kmadd(J22L,PDdissipationNth2gt23,kmul(J32L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth2gt33 = 
-        kmadd(J12L,PDdissipationNth1gt33,kmadd(J22L,PDdissipationNth2gt33,kmul(J32L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth2phi = 
-        kmadd(J12L,PDdissipationNth1phi,kmadd(J22L,PDdissipationNth2phi,kmul(J32L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth2trK = 
-        kmadd(J12L,PDdissipationNth1trK,kmadd(J22L,PDdissipationNth2trK,kmul(J32L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth2Xt1 = 
-        kmadd(J12L,PDdissipationNth1Xt1,kmadd(J22L,PDdissipationNth2Xt1,kmul(J32L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth2Xt2 = 
-        kmadd(J12L,PDdissipationNth1Xt2,kmadd(J22L,PDdissipationNth2Xt2,kmul(J32L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth2Xt3 = 
-        kmadd(J12L,PDdissipationNth1Xt3,kmadd(J22L,PDdissipationNth2Xt3,kmul(J32L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth3A = 
-        kmadd(J13L,PDdissipationNth1A,kmadd(J23L,PDdissipationNth2A,kmul(J33L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth3alpha = 
-        kmadd(J13L,PDdissipationNth1alpha,kmadd(J23L,PDdissipationNth2alpha,kmul(J33L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth3At11 = 
-        kmadd(J13L,PDdissipationNth1At11,kmadd(J23L,PDdissipationNth2At11,kmul(J33L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth3At12 = 
-        kmadd(J13L,PDdissipationNth1At12,kmadd(J23L,PDdissipationNth2At12,kmul(J33L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth3At13 = 
-        kmadd(J13L,PDdissipationNth1At13,kmadd(J23L,PDdissipationNth2At13,kmul(J33L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth3At22 = 
-        kmadd(J13L,PDdissipationNth1At22,kmadd(J23L,PDdissipationNth2At22,kmul(J33L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth3At23 = 
-        kmadd(J13L,PDdissipationNth1At23,kmadd(J23L,PDdissipationNth2At23,kmul(J33L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth3At33 = 
-        kmadd(J13L,PDdissipationNth1At33,kmadd(J23L,PDdissipationNth2At33,kmul(J33L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth3B1 = 
-        kmadd(J13L,PDdissipationNth1B1,kmadd(J23L,PDdissipationNth2B1,kmul(J33L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth3B2 = 
-        kmadd(J13L,PDdissipationNth1B2,kmadd(J23L,PDdissipationNth2B2,kmul(J33L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth3B3 = 
-        kmadd(J13L,PDdissipationNth1B3,kmadd(J23L,PDdissipationNth2B3,kmul(J33L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth3beta1 = 
-        kmadd(J13L,PDdissipationNth1beta1,kmadd(J23L,PDdissipationNth2beta1,kmul(J33L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth3beta2 = 
-        kmadd(J13L,PDdissipationNth1beta2,kmadd(J23L,PDdissipationNth2beta2,kmul(J33L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth3beta3 = 
-        kmadd(J13L,PDdissipationNth1beta3,kmadd(J23L,PDdissipationNth2beta3,kmul(J33L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth3gt11 = 
-        kmadd(J13L,PDdissipationNth1gt11,kmadd(J23L,PDdissipationNth2gt11,kmul(J33L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth3gt12 = 
-        kmadd(J13L,PDdissipationNth1gt12,kmadd(J23L,PDdissipationNth2gt12,kmul(J33L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth3gt13 = 
-        kmadd(J13L,PDdissipationNth1gt13,kmadd(J23L,PDdissipationNth2gt13,kmul(J33L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth3gt22 = 
-        kmadd(J13L,PDdissipationNth1gt22,kmadd(J23L,PDdissipationNth2gt22,kmul(J33L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth3gt23 = 
-        kmadd(J13L,PDdissipationNth1gt23,kmadd(J23L,PDdissipationNth2gt23,kmul(J33L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth3gt33 = 
-        kmadd(J13L,PDdissipationNth1gt33,kmadd(J23L,PDdissipationNth2gt33,kmul(J33L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth3phi = 
-        kmadd(J13L,PDdissipationNth1phi,kmadd(J23L,PDdissipationNth2phi,kmul(J33L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth3trK = 
-        kmadd(J13L,PDdissipationNth1trK,kmadd(J23L,PDdissipationNth2trK,kmul(J33L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth3Xt1 = 
-        kmadd(J13L,PDdissipationNth1Xt1,kmadd(J23L,PDdissipationNth2Xt1,kmul(J33L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth3Xt2 = 
-        kmadd(J13L,PDdissipationNth1Xt2,kmadd(J23L,PDdissipationNth2Xt2,kmul(J33L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth3Xt3 = 
-        kmadd(J13L,PDdissipationNth1Xt3,kmadd(J23L,PDdissipationNth2Xt3,kmul(J33L,PDdissipationNth3Xt3)));
-    }
-    else
-    {
-      JacPDdissipationNth1A = PDdissipationNth1A;
-      
-      JacPDdissipationNth1alpha = PDdissipationNth1alpha;
-      
-      JacPDdissipationNth1At11 = PDdissipationNth1At11;
-      
-      JacPDdissipationNth1At12 = PDdissipationNth1At12;
-      
-      JacPDdissipationNth1At13 = PDdissipationNth1At13;
-      
-      JacPDdissipationNth1At22 = PDdissipationNth1At22;
-      
-      JacPDdissipationNth1At23 = PDdissipationNth1At23;
-      
-      JacPDdissipationNth1At33 = PDdissipationNth1At33;
-      
-      JacPDdissipationNth1B1 = PDdissipationNth1B1;
-      
-      JacPDdissipationNth1B2 = PDdissipationNth1B2;
-      
-      JacPDdissipationNth1B3 = PDdissipationNth1B3;
-      
-      JacPDdissipationNth1beta1 = PDdissipationNth1beta1;
-      
-      JacPDdissipationNth1beta2 = PDdissipationNth1beta2;
-      
-      JacPDdissipationNth1beta3 = PDdissipationNth1beta3;
-      
-      JacPDdissipationNth1gt11 = PDdissipationNth1gt11;
-      
-      JacPDdissipationNth1gt12 = PDdissipationNth1gt12;
-      
-      JacPDdissipationNth1gt13 = PDdissipationNth1gt13;
-      
-      JacPDdissipationNth1gt22 = PDdissipationNth1gt22;
-      
-      JacPDdissipationNth1gt23 = PDdissipationNth1gt23;
-      
-      JacPDdissipationNth1gt33 = PDdissipationNth1gt33;
-      
-      JacPDdissipationNth1phi = PDdissipationNth1phi;
-      
-      JacPDdissipationNth1trK = PDdissipationNth1trK;
-      
-      JacPDdissipationNth1Xt1 = PDdissipationNth1Xt1;
-      
-      JacPDdissipationNth1Xt2 = PDdissipationNth1Xt2;
-      
-      JacPDdissipationNth1Xt3 = PDdissipationNth1Xt3;
-      
-      JacPDdissipationNth2A = PDdissipationNth2A;
-      
-      JacPDdissipationNth2alpha = PDdissipationNth2alpha;
-      
-      JacPDdissipationNth2At11 = PDdissipationNth2At11;
-      
-      JacPDdissipationNth2At12 = PDdissipationNth2At12;
-      
-      JacPDdissipationNth2At13 = PDdissipationNth2At13;
-      
-      JacPDdissipationNth2At22 = PDdissipationNth2At22;
-      
-      JacPDdissipationNth2At23 = PDdissipationNth2At23;
-      
-      JacPDdissipationNth2At33 = PDdissipationNth2At33;
-      
-      JacPDdissipationNth2B1 = PDdissipationNth2B1;
-      
-      JacPDdissipationNth2B2 = PDdissipationNth2B2;
-      
-      JacPDdissipationNth2B3 = PDdissipationNth2B3;
-      
-      JacPDdissipationNth2beta1 = PDdissipationNth2beta1;
-      
-      JacPDdissipationNth2beta2 = PDdissipationNth2beta2;
-      
-      JacPDdissipationNth2beta3 = PDdissipationNth2beta3;
-      
-      JacPDdissipationNth2gt11 = PDdissipationNth2gt11;
-      
-      JacPDdissipationNth2gt12 = PDdissipationNth2gt12;
-      
-      JacPDdissipationNth2gt13 = PDdissipationNth2gt13;
-      
-      JacPDdissipationNth2gt22 = PDdissipationNth2gt22;
-      
-      JacPDdissipationNth2gt23 = PDdissipationNth2gt23;
-      
-      JacPDdissipationNth2gt33 = PDdissipationNth2gt33;
-      
-      JacPDdissipationNth2phi = PDdissipationNth2phi;
-      
-      JacPDdissipationNth2trK = PDdissipationNth2trK;
-      
-      JacPDdissipationNth2Xt1 = PDdissipationNth2Xt1;
-      
-      JacPDdissipationNth2Xt2 = PDdissipationNth2Xt2;
-      
-      JacPDdissipationNth2Xt3 = PDdissipationNth2Xt3;
-      
-      JacPDdissipationNth3A = PDdissipationNth3A;
-      
-      JacPDdissipationNth3alpha = PDdissipationNth3alpha;
-      
-      JacPDdissipationNth3At11 = PDdissipationNth3At11;
-      
-      JacPDdissipationNth3At12 = PDdissipationNth3At12;
-      
-      JacPDdissipationNth3At13 = PDdissipationNth3At13;
-      
-      JacPDdissipationNth3At22 = PDdissipationNth3At22;
-      
-      JacPDdissipationNth3At23 = PDdissipationNth3At23;
-      
-      JacPDdissipationNth3At33 = PDdissipationNth3At33;
-      
-      JacPDdissipationNth3B1 = PDdissipationNth3B1;
-      
-      JacPDdissipationNth3B2 = PDdissipationNth3B2;
-      
-      JacPDdissipationNth3B3 = PDdissipationNth3B3;
-      
-      JacPDdissipationNth3beta1 = PDdissipationNth3beta1;
-      
-      JacPDdissipationNth3beta2 = PDdissipationNth3beta2;
-      
-      JacPDdissipationNth3beta3 = PDdissipationNth3beta3;
-      
-      JacPDdissipationNth3gt11 = PDdissipationNth3gt11;
-      
-      JacPDdissipationNth3gt12 = PDdissipationNth3gt12;
-      
-      JacPDdissipationNth3gt13 = PDdissipationNth3gt13;
-      
-      JacPDdissipationNth3gt22 = PDdissipationNth3gt22;
-      
-      JacPDdissipationNth3gt23 = PDdissipationNth3gt23;
-      
-      JacPDdissipationNth3gt33 = PDdissipationNth3gt33;
-      
-      JacPDdissipationNth3phi = PDdissipationNth3phi;
-      
-      JacPDdissipationNth3trK = PDdissipationNth3trK;
-      
-      JacPDdissipationNth3Xt1 = PDdissipationNth3Xt1;
-      
-      JacPDdissipationNth3Xt2 = PDdissipationNth3Xt2;
-      
-      JacPDdissipationNth3Xt3 = PDdissipationNth3Xt3;
-    }
-    
-    CCTK_REAL_VEC epsdiss1 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss2 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss3 = ToReal(EpsDiss);
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(epsdiss1,JacPDdissipationNth1phi,kmadd(epsdiss2,JacPDdissipationNth2phi,kmul(epsdiss3,JacPDdissipationNth3phi))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt11,kmadd(epsdiss2,JacPDdissipationNth2gt11,kmul(epsdiss3,JacPDdissipationNth3gt11))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt12,kmadd(epsdiss2,JacPDdissipationNth2gt12,kmul(epsdiss3,JacPDdissipationNth3gt12))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt13,kmadd(epsdiss2,JacPDdissipationNth2gt13,kmul(epsdiss3,JacPDdissipationNth3gt13))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt22,kmadd(epsdiss2,JacPDdissipationNth2gt22,kmul(epsdiss3,JacPDdissipationNth3gt22))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt23,kmadd(epsdiss2,JacPDdissipationNth2gt23,kmul(epsdiss3,JacPDdissipationNth3gt23))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt33,kmadd(epsdiss2,JacPDdissipationNth2gt33,kmul(epsdiss3,JacPDdissipationNth3gt33))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt1,kmadd(epsdiss2,JacPDdissipationNth2Xt1,kmul(epsdiss3,JacPDdissipationNth3Xt1))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt2,kmadd(epsdiss2,JacPDdissipationNth2Xt2,kmul(epsdiss3,JacPDdissipationNth3Xt2))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt3,kmadd(epsdiss2,JacPDdissipationNth2Xt3,kmul(epsdiss3,JacPDdissipationNth3Xt3))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(epsdiss1,JacPDdissipationNth1trK,kmadd(epsdiss2,JacPDdissipationNth2trK,kmul(epsdiss3,JacPDdissipationNth3trK))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(epsdiss1,JacPDdissipationNth1At11,kmadd(epsdiss2,JacPDdissipationNth2At11,kmul(epsdiss3,JacPDdissipationNth3At11))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(epsdiss1,JacPDdissipationNth1At12,kmadd(epsdiss2,JacPDdissipationNth2At12,kmul(epsdiss3,JacPDdissipationNth3At12))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(epsdiss1,JacPDdissipationNth1At13,kmadd(epsdiss2,JacPDdissipationNth2At13,kmul(epsdiss3,JacPDdissipationNth3At13))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(epsdiss1,JacPDdissipationNth1At22,kmadd(epsdiss2,JacPDdissipationNth2At22,kmul(epsdiss3,JacPDdissipationNth3At22))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(epsdiss1,JacPDdissipationNth1At23,kmadd(epsdiss2,JacPDdissipationNth2At23,kmul(epsdiss3,JacPDdissipationNth3At23))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(epsdiss1,JacPDdissipationNth1At33,kmadd(epsdiss2,JacPDdissipationNth2At33,kmul(epsdiss3,JacPDdissipationNth3At33))));
-    
-    alpharhsL = 
-      kadd(alpharhsL,kmadd(epsdiss1,JacPDdissipationNth1alpha,kmadd(epsdiss2,JacPDdissipationNth2alpha,kmul(epsdiss3,JacPDdissipationNth3alpha))));
-    
-    ArhsL = 
-      kadd(ArhsL,kmadd(epsdiss1,JacPDdissipationNth1A,kmadd(epsdiss2,JacPDdissipationNth2A,kmul(epsdiss3,JacPDdissipationNth3A))));
-    
-    beta1rhsL = 
-      kadd(beta1rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta1,kmadd(epsdiss2,JacPDdissipationNth2beta1,kmul(epsdiss3,JacPDdissipationNth3beta1))));
-    
-    beta2rhsL = 
-      kadd(beta2rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta2,kmadd(epsdiss2,JacPDdissipationNth2beta2,kmul(epsdiss3,JacPDdissipationNth3beta2))));
-    
-    beta3rhsL = 
-      kadd(beta3rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta3,kmadd(epsdiss2,JacPDdissipationNth2beta3,kmul(epsdiss3,JacPDdissipationNth3beta3))));
-    
-    B1rhsL = 
-      kadd(B1rhsL,kmadd(epsdiss1,JacPDdissipationNth1B1,kmadd(epsdiss2,JacPDdissipationNth2B1,kmul(epsdiss3,JacPDdissipationNth3B1))));
-    
-    B2rhsL = 
-      kadd(B2rhsL,kmadd(epsdiss1,JacPDdissipationNth1B2,kmadd(epsdiss2,JacPDdissipationNth2B2,kmul(epsdiss3,JacPDdissipationNth3B2))));
-    
-    B3rhsL = 
-      kadd(B3rhsL,kmadd(epsdiss1,JacPDdissipationNth1B3,kmadd(epsdiss2,JacPDdissipationNth2B3,kmul(epsdiss3,JacPDdissipationNth3B3))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_Dissipation);
-}
-
-extern "C" void ML_BSSN_MP_O8_Dissipation(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_Dissipation_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_Dissipation_calc_every != ML_BSSN_MP_O8_Dissipation_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_curvrhs",
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtlapserhs",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_dtshiftrhs",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_Gammarhs",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_lapserhs",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_log_confacrhs",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_metricrhs",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_shiftrhs",
-    "ML_BSSN_MP_O8::ML_trace_curv",
-    "ML_BSSN_MP_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_Dissipation", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_Dissipation", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_Dissipation", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_Dissipation", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_Dissipation", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_O8_Dissipation_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_Dissipation_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_InitGamma.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_InitGamma.cc
deleted file mode 100644
index 541b40c..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_InitGamma.cc
+++ /dev/null
@@ -1,295 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_O8_InitGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_InitGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_InitGamma);
-}
-
-extern "C" void ML_BSSN_MP_O8_InitGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_InitGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_InitGamma_calc_every != ML_BSSN_MP_O8_InitGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_Gamma"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_InitGamma", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_O8_InitGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_InitGamma_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_InitRHS.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_InitRHS.cc
deleted file mode 100644
index 078f49b..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_InitRHS.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_O8_InitRHS_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_InitRHS,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_InitRHS);
-}
-
-extern "C" void ML_BSSN_MP_O8_InitRHS(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_InitRHS_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_InitRHS_calc_every != ML_BSSN_MP_O8_InitRHS_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_curvrhs",
-    "ML_BSSN_MP_O8::ML_dtlapserhs",
-    "ML_BSSN_MP_O8::ML_dtshiftrhs",
-    "ML_BSSN_MP_O8::ML_Gammarhs",
-    "ML_BSSN_MP_O8::ML_lapserhs",
-    "ML_BSSN_MP_O8::ML_log_confacrhs",
-    "ML_BSSN_MP_O8::ML_metricrhs",
-    "ML_BSSN_MP_O8::ML_shiftrhs",
-    "ML_BSSN_MP_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_InitRHS", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_O8_InitRHS_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_InitRHS_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Minkowski.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Minkowski.cc
deleted file mode 100644
index e69b6de..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Minkowski.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_O8_Minkowski_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_Minkowski,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_Minkowski);
-}
-
-extern "C" void ML_BSSN_MP_O8_Minkowski(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_Minkowski_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_Minkowski_calc_every != ML_BSSN_MP_O8_Minkowski_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_Minkowski", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_O8_Minkowski_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_Minkowski_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS1.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS1.cc
deleted file mode 100644
index 531eaeb..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS1.cc
+++ /dev/null
@@ -1,1467 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_RHS1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_RHS1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth11beta1;
-    CCTK_REAL_VEC PDstandardNth22beta1;
-    CCTK_REAL_VEC PDstandardNth33beta1;
-    CCTK_REAL_VEC PDstandardNth12beta1;
-    CCTK_REAL_VEC PDstandardNth13beta1;
-    CCTK_REAL_VEC PDstandardNth23beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth11beta2;
-    CCTK_REAL_VEC PDstandardNth22beta2;
-    CCTK_REAL_VEC PDstandardNth33beta2;
-    CCTK_REAL_VEC PDstandardNth12beta2;
-    CCTK_REAL_VEC PDstandardNth13beta2;
-    CCTK_REAL_VEC PDstandardNth23beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth11beta3;
-    CCTK_REAL_VEC PDstandardNth22beta3;
-    CCTK_REAL_VEC PDstandardNth33beta3;
-    CCTK_REAL_VEC PDstandardNth12beta3;
-    CCTK_REAL_VEC PDstandardNth13beta3;
-    CCTK_REAL_VEC PDstandardNth23beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder211(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder222(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder233(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder212(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder213(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder223(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder211(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder222(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder233(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder212(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder213(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder223(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder211(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder222(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder233(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder212(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder213(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder223(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder411(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder422(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder433(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder412(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder413(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder423(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder411(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder422(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder433(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder412(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder413(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder423(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder411(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder422(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder433(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder412(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder413(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder423(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder611(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder622(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder633(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder612(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder613(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder623(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder611(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder622(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder633(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder612(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder613(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder623(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder611(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder622(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder633(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder612(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder613(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder623(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder811(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder822(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder833(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder812(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder813(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder823(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder811(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder822(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder833(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder812(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder813(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder823(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder811(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder822(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder833(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder812(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder813(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder823(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11beta1;
-    CCTK_REAL_VEC JacPDstandardNth11beta2;
-    CCTK_REAL_VEC JacPDstandardNth11beta3;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12beta1;
-    CCTK_REAL_VEC JacPDstandardNth12beta2;
-    CCTK_REAL_VEC JacPDstandardNth12beta3;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13beta1;
-    CCTK_REAL_VEC JacPDstandardNth13beta2;
-    CCTK_REAL_VEC JacPDstandardNth13beta3;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth21alpha;
-    CCTK_REAL_VEC JacPDstandardNth21beta1;
-    CCTK_REAL_VEC JacPDstandardNth21beta2;
-    CCTK_REAL_VEC JacPDstandardNth21beta3;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22beta1;
-    CCTK_REAL_VEC JacPDstandardNth22beta2;
-    CCTK_REAL_VEC JacPDstandardNth22beta3;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23beta1;
-    CCTK_REAL_VEC JacPDstandardNth23beta2;
-    CCTK_REAL_VEC JacPDstandardNth23beta3;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth31alpha;
-    CCTK_REAL_VEC JacPDstandardNth31beta1;
-    CCTK_REAL_VEC JacPDstandardNth31beta2;
-    CCTK_REAL_VEC JacPDstandardNth31beta3;
-    CCTK_REAL_VEC JacPDstandardNth32alpha;
-    CCTK_REAL_VEC JacPDstandardNth32beta1;
-    CCTK_REAL_VEC JacPDstandardNth32beta2;
-    CCTK_REAL_VEC JacPDstandardNth32beta3;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33beta1;
-    CCTK_REAL_VEC JacPDstandardNth33beta2;
-    CCTK_REAL_VEC JacPDstandardNth33beta3;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta1 = 
-        kmadd(dJ111L,PDstandardNth1beta1,kmadd(dJ211L,PDstandardNth2beta1,kmadd(dJ311L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J11L),kmadd(PDstandardNth22beta1,SQR(J21L),kmadd(PDstandardNth33beta1,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1)),kmul(J21L,kmul(J31L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta2 = 
-        kmadd(dJ111L,PDstandardNth1beta2,kmadd(dJ211L,PDstandardNth2beta2,kmadd(dJ311L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J11L),kmadd(PDstandardNth22beta2,SQR(J21L),kmadd(PDstandardNth33beta2,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2)),kmul(J21L,kmul(J31L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta3 = 
-        kmadd(dJ111L,PDstandardNth1beta3,kmadd(dJ211L,PDstandardNth2beta3,kmadd(dJ311L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J11L),kmadd(PDstandardNth22beta3,SQR(J21L),kmadd(PDstandardNth33beta3,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3)),kmul(J21L,kmul(J31L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta1 = 
-        kmadd(dJ122L,PDstandardNth1beta1,kmadd(dJ222L,PDstandardNth2beta1,kmadd(dJ322L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J12L),kmadd(PDstandardNth22beta1,SQR(J22L),kmadd(PDstandardNth33beta1,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmul(J22L,kmul(J32L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta2 = 
-        kmadd(dJ122L,PDstandardNth1beta2,kmadd(dJ222L,PDstandardNth2beta2,kmadd(dJ322L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J12L),kmadd(PDstandardNth22beta2,SQR(J22L),kmadd(PDstandardNth33beta2,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmul(J22L,kmul(J32L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta3 = 
-        kmadd(dJ122L,PDstandardNth1beta3,kmadd(dJ222L,PDstandardNth2beta3,kmadd(dJ322L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J12L),kmadd(PDstandardNth22beta3,SQR(J22L),kmadd(PDstandardNth33beta3,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmul(J22L,kmul(J32L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta1 = 
-        kmadd(dJ133L,PDstandardNth1beta1,kmadd(dJ233L,PDstandardNth2beta1,kmadd(dJ333L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J13L),kmadd(PDstandardNth22beta1,SQR(J23L),kmadd(PDstandardNth33beta1,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmul(J23L,kmul(J33L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta2 = 
-        kmadd(dJ133L,PDstandardNth1beta2,kmadd(dJ233L,PDstandardNth2beta2,kmadd(dJ333L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J13L),kmadd(PDstandardNth22beta2,SQR(J23L),kmadd(PDstandardNth33beta2,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmul(J23L,kmul(J33L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta3 = 
-        kmadd(dJ133L,PDstandardNth1beta3,kmadd(dJ233L,PDstandardNth2beta3,kmadd(dJ333L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J13L),kmadd(PDstandardNth22beta3,SQR(J23L),kmadd(PDstandardNth33beta3,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmul(J23L,kmul(J33L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth12beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth12beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth13beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth13beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth21alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth21beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth21beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth21beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth23beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth23beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth31alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth31beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth31beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth31beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth32alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth32beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth32beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth32beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11beta1 = PDstandardNth11beta1;
-      
-      JacPDstandardNth11beta2 = PDstandardNth11beta2;
-      
-      JacPDstandardNth11beta3 = PDstandardNth11beta3;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22beta1 = PDstandardNth22beta1;
-      
-      JacPDstandardNth22beta2 = PDstandardNth22beta2;
-      
-      JacPDstandardNth22beta3 = PDstandardNth22beta3;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33beta1 = PDstandardNth33beta1;
-      
-      JacPDstandardNth33beta2 = PDstandardNth33beta2;
-      
-      JacPDstandardNth33beta3 = PDstandardNth33beta3;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth12beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth12beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth13beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth13beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth21alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth21beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth21beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth21beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth23beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth23beta3 = PDstandardNth23beta3;
-      
-      JacPDstandardNth31alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth31beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth31beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth31beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth32alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth32beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth32beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth32beta3 = PDstandardNth23beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC Atu11 = 
-      kmadd(Atm11,gtu11,kmadd(Atm12,gtu12,kmul(Atm13,gtu13)));
-    
-    CCTK_REAL_VEC Atu12 = 
-      kmadd(Atm11,gtu12,kmadd(Atm12,gtu22,kmul(Atm13,gtu23)));
-    
-    CCTK_REAL_VEC Atu13 = 
-      kmadd(Atm11,gtu13,kmadd(Atm12,gtu23,kmul(Atm13,gtu33)));
-    
-    CCTK_REAL_VEC Atu22 = 
-      kmadd(Atm21,gtu12,kmadd(Atm22,gtu22,kmul(Atm23,gtu23)));
-    
-    CCTK_REAL_VEC Atu23 = 
-      kmadd(Atm21,gtu13,kmadd(Atm22,gtu23,kmul(Atm23,gtu33)));
-    
-    CCTK_REAL_VEC Atu33 = 
-      kmadd(Atm31,gtu13,kmadd(Atm32,gtu23,kmul(Atm33,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC phirhsL = kneg(kmul(IfThen(conformalMethod == 
-      1,kmul(phiL,ToReal(0.333333333333333333333333333333)),ToReal(-0.166666666666666666666666666667)),kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,knmsub(alphaL,trKL,JacPDstandardNth3beta3)))));
-    
-    CCTK_REAL_VEC gt11rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth1beta2,kmul(gt13L,JacPDstandardNth1beta3)),ToReal(-3),kmadd(gt11L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At11L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt12rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At12L,ToReal(-6)),kmadd(gt12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(kmadd(gt22L,JacPDstandardNth1beta2,kmadd(gt23L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth2beta1,kmul(gt13L,JacPDstandardNth2beta3)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt13rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At13L,ToReal(-6)),kmadd(gt13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt23L,JacPDstandardNth1beta2,kmadd(gt33L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth3beta1,kmul(gt12L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt22rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth2beta1,kmul(gt23L,JacPDstandardNth2beta3)),ToReal(-3),kmadd(gt22L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At22L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt23rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At23L,ToReal(-6)),kmadd(gt23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt13L,JacPDstandardNth2beta1,kmadd(gt33L,JacPDstandardNth2beta3,kmadd(gt12L,JacPDstandardNth3beta1,kmul(gt22L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt33rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt13L,JacPDstandardNth3beta1,kmul(gt23L,JacPDstandardNth3beta2)),ToReal(-3),kmadd(gt33L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(alphaL,kmul(At33L,ToReal(3))))));
-    
-    CCTK_REAL_VEC dotXt1 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu11,JacPDstandardNth1alpha,kmadd(Atu12,JacPDstandardNth2alpha,kmul(Atu13,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth2beta1,Xtn2,kmul(JacPDstandardNth3beta1,Xtn3)),ToReal(-3),kmadd(Xtn1,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth1beta1),kmadd(kmadd(gtu12,JacPDstandardNth12beta1,kmadd(gtu13,JacPDstandardNth13beta1,kmadd(gtu22,JacPDstandardNth22beta1,kmadd(gtu23,kadd(JacPDstandardNth23beta1,JacPDstandardNth32beta1),kmul(gtu33,JacPDstandardNth33beta1))))),ToReal(3),kmadd(gtu11,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth11beta1,ToReal(4),JacPDstandardNth13beta3)),kmadd(gtu12,kadd(JacPDstandardNth22beta2,kmadd(JacPDstandardNth21beta1,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu13,kadd(JacPDstandardNth32beta2,kmadd(JacPDstandardNth31beta1,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth2beta2,Xtn1,kmul(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1trK,kmadd(gtu12,JacPDstandardNth2trK,kmul(gtu13,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu23,Gt123,kmul(Atu12,kmadd(cdphi2,ToReal(3),Gt112))),ToReal(6),kmadd(ToReal(3),kmadd(Atu22,Gt122,kmadd(Atu33,Gt133,kmul(Atu11,kmadd(cdphi1,ToReal(6),Gt111)))),kmadd(Atu13,kmadd(Gt113,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu11,S1,kmadd(gtu12,S2,kmul(gtu13,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt2 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu12,JacPDstandardNth1alpha,kmadd(Atu22,JacPDstandardNth2alpha,kmul(Atu23,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta2,Xtn1,kmul(JacPDstandardNth3beta2,Xtn3)),ToReal(-3),kmadd(Xtn2,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth2beta2),kmadd(kmadd(gtu11,JacPDstandardNth11beta2,kmadd(gtu23,JacPDstandardNth23beta2,kmadd(gtu13,kadd(JacPDstandardNth13beta2,JacPDstandardNth31beta2),kmul(gtu33,JacPDstandardNth33beta2)))),ToReal(3),kmadd(gtu12,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth13beta3,kmadd(JacPDstandardNth21beta2,ToReal(3),kmul(JacPDstandardNth12beta2,ToReal(4))))),kmadd(gtu22,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth22beta2,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu23,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth32beta2,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn2,kmul(alphaL,kmadd(kmadd(gtu12,JacPDstandardNth1trK,kmadd(gtu22,JacPDstandardNth2trK,kmul(gtu23,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu13,Gt213,kmul(Atu12,kmadd(cdphi1,ToReal(3),Gt212))),ToReal(6),kmadd(ToReal(3),kmadd(Atu11,Gt211,kmadd(Atu33,Gt233,kmul(Atu22,kmadd(cdphi2,ToReal(6),Gt222)))),kmadd(Atu23,kmadd(Gt223,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu12,S1,kmadd(gtu22,S2,kmul(gtu23,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt3 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu13,JacPDstandardNth1alpha,kmadd(Atu23,JacPDstandardNth2alpha,kmul(Atu33,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta3,Xtn1,kmul(JacPDstandardNth2beta3,Xtn2)),ToReal(-3),kmadd(Xtn3,kmsub(JacPDstandardNth2beta2,ToReal(2),JacPDstandardNth3beta3),kmadd(kmadd(gtu11,JacPDstandardNth11beta3,kmadd(gtu12,kadd(JacPDstandardNth12beta3,JacPDstandardNth21beta3),kmadd(gtu22,JacPDstandardNth22beta3,kmul(gtu23,JacPDstandardNth32beta3)))),ToReal(3),kmadd(gtu13,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth31beta3,ToReal(3),kmul(JacPDstandardNth13beta3,ToReal(4))))),kmadd(gtu23,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth23beta3,ToReal(4),JacPDstandardNth22beta2)),kmadd(gtu33,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth33beta3,ToReal(4),JacPDstandardNth32beta2)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn3,kmul(alphaL,kmadd(kmadd(gtu13,JacPDstandardNth1trK,kmadd(gtu23,JacPDstandardNth2trK,kmul(gtu33,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu11,Gt311,kmul(Atu22,Gt322)),ToReal(3),kmadd(kmadd(Atu12,Gt312,kmadd(Atu13,kmadd(cdphi1,ToReal(3),Gt313),kmul(Atu23,kmadd(cdphi2,ToReal(3),Gt323)))),ToReal(6),kmadd(Atu33,kmadd(Gt333,ToReal(3),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu13,S1,kmadd(gtu23,S2,kmul(gtu33,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC Xt1rhsL = dotXt1;
-    
-    CCTK_REAL_VEC Xt2rhsL = dotXt2;
-    
-    CCTK_REAL_VEC Xt3rhsL = dotXt3;
-    
-    CCTK_REAL_VEC dottrK = 
-      kmsub(alphaL,kadd(SQR(Atm11),kadd(SQR(Atm22),kadd(SQR(Atm33),kmadd(SQR(trKL),ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(2),kmul(kadd(rho,trS),kmul(ToReal(4),ToReal(Pi)))))))),kmul(em4phi,knmsub(JacPDstandardNth1alpha,Xtn1,knmsub(JacPDstandardNth2alpha,Xtn2,knmsub(JacPDstandardNth3alpha,Xtn3,kmadd(gtu11,kmadd(cdphi1,kmul(JacPDstandardNth1alpha,ToReal(2)),JacPDstandardNth11alpha),kmadd(gtu12,kadd(JacPDstandardNth12alpha,kadd(JacPDstandardNth21alpha,kmadd(cdphi2,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth2alpha,ToReal(2)))))),kmadd(gtu22,kmadd(cdphi2,kmul(JacPDstandardNth2alpha,ToReal(2)),JacPDstandardNth22alpha),kmadd(gtu13,kadd(JacPDstandardNth13alpha,kadd(JacPDstandardNth31alpha,kmadd(cdphi3,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmadd(gtu23,kadd(JacPDstandardNth23alpha,kadd(JacPDstandardNth32alpha,kmadd(cdphi3,kmul(JacPDstandardNth2alpha,ToReal(2)),kmul(cdphi2,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmul(gtu33,kmadd(cdphi3,kmul(JacPDstandardNth3alpha,ToReal(2)),JacPDstandardNth33alpha))))))))))));
-    
-    CCTK_REAL_VEC trKrhsL = dottrK;
-    
-    CCTK_REAL_VEC alpharhsL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmadd(kadd(alphaL,ToReal(-1)),ToReal(AlphaDriver),trKL),ksub(ToReal(1),ToReal(LapseACoeff)))))));
-    
-    CCTK_REAL_VEC ArhsL = 
-      kmul(knmsub(AL,ToReal(AlphaDriver),dottrK),ToReal(LapseACoeff));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC beta1rhsL;
-    CCTK_REAL_VEC beta2rhsL;
-    CCTK_REAL_VEC beta3rhsL;
-    
-    if (harmonicShift)
-    {
-      beta1rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4)))))))))))))))));
-      
-      beta2rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4))))))))))))))))));
-      
-      beta3rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4))))))))))))))))));
-    }
-    else
-    {
-      beta1rhsL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta2rhsL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta3rhsL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    CCTK_REAL_VEC B1rhsL = 
-      kmul(knmsub(B1L,kmul(eta,ToReal(BetaDriver)),dotXt1),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B2rhsL = 
-      kmul(knmsub(B2L,kmul(eta,ToReal(BetaDriver)),dotXt2),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B3rhsL = 
-      kmul(knmsub(B3L,kmul(eta,ToReal(BetaDriver)),dotXt3),ToReal(ShiftBCoeff));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_RHS1);
-}
-
-extern "C" void ML_BSSN_MP_O8_RHS1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_RHS1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_RHS1_calc_every != ML_BSSN_MP_O8_RHS1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtlapserhs",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_dtshiftrhs",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_Gammarhs",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_lapserhs",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_log_confacrhs",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_metricrhs",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_shiftrhs",
-    "ML_BSSN_MP_O8::ML_trace_curv",
-    "ML_BSSN_MP_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_RHS1", 19, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_RHS1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_RHS1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_RHS1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_RHS1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_O8_RHS1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_RHS1_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS2.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS2.cc
deleted file mode 100644
index 869e111..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS2.cc
+++ /dev/null
@@ -1,1869 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_RHS2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_RHS2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC g11 = kmul(gt11L,e4phi);
-    
-    CCTK_REAL_VEC g12 = kmul(gt12L,e4phi);
-    
-    CCTK_REAL_VEC g13 = kmul(gt13L,e4phi);
-    
-    CCTK_REAL_VEC g22 = kmul(gt22L,e4phi);
-    
-    CCTK_REAL_VEC g23 = kmul(gt23L,e4phi);
-    
-    CCTK_REAL_VEC g33 = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC Ats11 = 
-      kmadd(Gt211,JacPDstandardNth2alpha,kmadd(Gt311,JacPDstandardNth3alpha,kmadd(alphaL,R11,kmsub(JacPDstandardNth1alpha,kmadd(cdphi1,ToReal(4),Gt111),JacPDstandardNth11alpha))));
-    
-    CCTK_REAL_VEC Ats12 = 
-      kmadd(Gt312,JacPDstandardNth3alpha,kmadd(alphaL,R12,ksub(kmadd(JacPDstandardNth2alpha,kmadd(cdphi1,ToReal(2),Gt212),kmul(JacPDstandardNth1alpha,kmadd(cdphi2,ToReal(2),Gt112))),JacPDstandardNth12alpha)));
-    
-    CCTK_REAL_VEC Ats13 = 
-      kmadd(Gt213,JacPDstandardNth2alpha,kmadd(alphaL,R13,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi1,ToReal(2),Gt313),kmul(JacPDstandardNth1alpha,kmadd(cdphi3,ToReal(2),Gt113))),JacPDstandardNth13alpha)));
-    
-    CCTK_REAL_VEC Ats22 = 
-      kmadd(Gt122,JacPDstandardNth1alpha,kmadd(Gt322,JacPDstandardNth3alpha,kmadd(alphaL,R22,kmsub(JacPDstandardNth2alpha,kmadd(cdphi2,ToReal(4),Gt222),JacPDstandardNth22alpha))));
-    
-    CCTK_REAL_VEC Ats23 = 
-      kmadd(Gt123,JacPDstandardNth1alpha,kmadd(alphaL,R23,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi2,ToReal(2),Gt323),kmul(JacPDstandardNth2alpha,kmadd(cdphi3,ToReal(2),Gt223))),JacPDstandardNth23alpha)));
-    
-    CCTK_REAL_VEC Ats33 = 
-      kmadd(Gt133,JacPDstandardNth1alpha,kmadd(Gt233,JacPDstandardNth2alpha,kmadd(alphaL,R33,kmsub(JacPDstandardNth3alpha,kmadd(cdphi3,ToReal(4),Gt333),JacPDstandardNth33alpha))));
-    
-    CCTK_REAL_VEC trAts = 
-      kmadd(Ats11,gu11,kmadd(Ats22,gu22,kmadd(Ats33,gu33,kmul(kmadd(Ats12,gu12,kmadd(Ats13,gu13,kmul(Ats23,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats11,ToReal(3),kmul(g11,trAts)),kmadd(At11L,kmadd(kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth1beta1,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth1beta2,kmul(At13L,JacPDstandardNth1beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm21,kmul(At13L,Atm31)),ToReal(6),kmadd(At11L,kmadd(trKL,ToReal(-3),kmul(Atm11,ToReal(6))),kmul(em4phi,kmul(kmadd(g11,kmul(trS,ToReal(-8)),kmul(eTxxL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At12rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmsub(kmadd(Ats12,em4phi,kmadd(At22L,JacPDstandardNth1beta2,kmadd(At23L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth2beta1,kmul(At13L,JacPDstandardNth2beta3))))),ToReal(3),kmul(em4phi,kmul(g12,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm12,kmul(At13L,Atm32)),ToReal(-2),kmadd(At12L,kmadd(Atm22,ToReal(-2),trKL),kmul(em4phi,kmadd(g12,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxyL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At13rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats13,em4phi,kmadd(At23L,JacPDstandardNth1beta2,kmadd(At33L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth3beta1,kmul(At12L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g13,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm13,kmul(At12L,Atm23)),ToReal(-2),kmadd(At13L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g13,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At22rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats22,ToReal(3),kmul(g22,trAts)),kmadd(At22L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth2beta2,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth2beta1,kmul(At23L,JacPDstandardNth2beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm12,kmul(At23L,Atm32)),ToReal(6),kmadd(At22L,kmadd(trKL,ToReal(-3),kmul(Atm22,ToReal(6))),kmul(em4phi,kmul(kmadd(g22,kmul(trS,ToReal(-8)),kmul(eTyyL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At23rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats23,em4phi,kmadd(At13L,JacPDstandardNth2beta1,kmadd(At33L,JacPDstandardNth2beta3,kmadd(At12L,JacPDstandardNth3beta1,kmul(At22L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g23,trAts)))),kmul(alphaL,kmadd(kmadd(At12L,Atm13,kmul(At22L,Atm23)),ToReal(-2),kmadd(At23L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g23,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTyzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At33rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats33,ToReal(3),kmul(g33,trAts)),kmadd(At33L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),ToReal(-2),kmul(JacPDstandardNth3beta3,ToReal(4))),kmsub(kmadd(At13L,JacPDstandardNth3beta1,kmul(At23L,JacPDstandardNth3beta2)),ToReal(6),kmul(alphaL,kmadd(kmadd(At13L,Atm13,kmul(At23L,Atm23)),ToReal(6),kmadd(At33L,kmadd(trKL,ToReal(-3),kmul(Atm33,ToReal(6))),kmul(em4phi,kmul(kmadd(g33,kmul(trS,ToReal(-8)),kmul(eTzzL,ToReal(24))),ToReal(Pi))))))))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_RHS2);
-}
-
-extern "C" void ML_BSSN_MP_O8_RHS2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_RHS2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_RHS2_calc_every != ML_BSSN_MP_O8_RHS2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_curvrhs",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_RHS2", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_RHS2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_RHS2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_RHS2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_RHS2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_O8_RHS2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_RHS2_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHSStaticBoundary.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHSStaticBoundary.cc
deleted file mode 100644
index 56504f3..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHSStaticBoundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_RHSStaticBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_RHSStaticBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_RHSStaticBoundary);
-}
-
-extern "C" void ML_BSSN_MP_O8_RHSStaticBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_RHSStaticBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_RHSStaticBoundary_calc_every != ML_BSSN_MP_O8_RHSStaticBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_curvrhs",
-    "ML_BSSN_MP_O8::ML_dtlapserhs",
-    "ML_BSSN_MP_O8::ML_dtshiftrhs",
-    "ML_BSSN_MP_O8::ML_Gammarhs",
-    "ML_BSSN_MP_O8::ML_lapserhs",
-    "ML_BSSN_MP_O8::ML_log_confacrhs",
-    "ML_BSSN_MP_O8::ML_metricrhs",
-    "ML_BSSN_MP_O8::ML_shiftrhs",
-    "ML_BSSN_MP_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_RHSStaticBoundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundary(cctkGH, ML_BSSN_MP_O8_RHSStaticBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_RHSStaticBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_boundary.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_boundary.cc
deleted file mode 100644
index d0122f9..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_boundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_boundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_curv.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_lapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_lapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_log_confac","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_log_confac.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_metric","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_metric.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_shift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_shift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_trace_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_trace_curv.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_boundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_boundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_boundary);
-}
-
-extern "C" void ML_BSSN_MP_O8_boundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_boundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_boundary_calc_every != ML_BSSN_MP_O8_boundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_boundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_MP_O8_boundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_boundary_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints1.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints1.cc
deleted file mode 100644
index 6d42c2a..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints1.cc
+++ /dev/null
@@ -1,1623 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_constraints1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_Ham","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_Ham.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_constraints1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trR = 
-      kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmul(kmadd(gu12,R12,kmadd(gu13,R13,kmul(gu23,R23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC HL = 
-      kadd(trR,kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(-2),ksub(ksub(ksub(kmadd(SQR(trKL),ToReal(0.666666666666666666666666666667),kmul(rho,kmul(ToReal(-16),ToReal(Pi)))),SQR(Atm33)),SQR(Atm22)),SQR(Atm11))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(H[index],HL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_constraints1);
-}
-
-extern "C" void ML_BSSN_MP_O8_constraints1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_constraints1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_constraints1_calc_every != ML_BSSN_MP_O8_constraints1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_Ham",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_constraints1", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_constraints1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_constraints1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_constraints1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_constraints1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_O8_constraints1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_constraints1_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints2.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints2.cc
deleted file mode 100644
index 516aebf..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints2.cc
+++ /dev/null
@@ -1,1004 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_constraints2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_cons_detg","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_cons_detg.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_cons_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_cons_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_cons_traceA","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_cons_traceA.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_mom","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_mom.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_constraints2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_constraints2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1At11;
-    CCTK_REAL_VEC PDstandardNth2At11;
-    CCTK_REAL_VEC PDstandardNth3At11;
-    CCTK_REAL_VEC PDstandardNth1At12;
-    CCTK_REAL_VEC PDstandardNth2At12;
-    CCTK_REAL_VEC PDstandardNth3At12;
-    CCTK_REAL_VEC PDstandardNth1At13;
-    CCTK_REAL_VEC PDstandardNth2At13;
-    CCTK_REAL_VEC PDstandardNth3At13;
-    CCTK_REAL_VEC PDstandardNth1At22;
-    CCTK_REAL_VEC PDstandardNth2At22;
-    CCTK_REAL_VEC PDstandardNth3At22;
-    CCTK_REAL_VEC PDstandardNth1At23;
-    CCTK_REAL_VEC PDstandardNth2At23;
-    CCTK_REAL_VEC PDstandardNth3At23;
-    CCTK_REAL_VEC PDstandardNth1At33;
-    CCTK_REAL_VEC PDstandardNth2At33;
-    CCTK_REAL_VEC PDstandardNth3At33;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1At11 = PDstandardNthfdOrder21(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder22(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder23(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder21(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder22(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder23(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder21(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder22(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder23(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder21(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder22(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder23(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder21(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder22(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder23(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder21(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder22(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder23(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1At11 = PDstandardNthfdOrder41(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder42(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder43(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder41(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder42(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder43(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder41(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder42(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder43(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder41(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder42(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder43(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder41(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder42(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder43(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder41(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder42(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder43(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1At11 = PDstandardNthfdOrder61(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder62(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder63(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder61(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder62(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder63(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder61(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder62(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder63(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder61(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder62(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder63(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder61(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder62(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder63(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder61(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder62(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder63(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1At11 = PDstandardNthfdOrder81(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder82(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder83(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder81(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder82(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder83(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder81(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder82(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder83(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder81(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder82(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder83(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder81(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder82(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder83(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder81(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder82(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder83(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth1At11;
-    CCTK_REAL_VEC JacPDstandardNth1At12;
-    CCTK_REAL_VEC JacPDstandardNth1At13;
-    CCTK_REAL_VEC JacPDstandardNth1At22;
-    CCTK_REAL_VEC JacPDstandardNth1At23;
-    CCTK_REAL_VEC JacPDstandardNth1At33;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth2At11;
-    CCTK_REAL_VEC JacPDstandardNth2At12;
-    CCTK_REAL_VEC JacPDstandardNth2At13;
-    CCTK_REAL_VEC JacPDstandardNth2At22;
-    CCTK_REAL_VEC JacPDstandardNth2At23;
-    CCTK_REAL_VEC JacPDstandardNth2At33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth3At11;
-    CCTK_REAL_VEC JacPDstandardNth3At12;
-    CCTK_REAL_VEC JacPDstandardNth3At13;
-    CCTK_REAL_VEC JacPDstandardNth3At22;
-    CCTK_REAL_VEC JacPDstandardNth3At23;
-    CCTK_REAL_VEC JacPDstandardNth3At33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1At11 = 
-        kmadd(J11L,PDstandardNth1At11,kmadd(J21L,PDstandardNth2At11,kmul(J31L,PDstandardNth3At11)));
-      
-      JacPDstandardNth1At12 = 
-        kmadd(J11L,PDstandardNth1At12,kmadd(J21L,PDstandardNth2At12,kmul(J31L,PDstandardNth3At12)));
-      
-      JacPDstandardNth1At13 = 
-        kmadd(J11L,PDstandardNth1At13,kmadd(J21L,PDstandardNth2At13,kmul(J31L,PDstandardNth3At13)));
-      
-      JacPDstandardNth1At22 = 
-        kmadd(J11L,PDstandardNth1At22,kmadd(J21L,PDstandardNth2At22,kmul(J31L,PDstandardNth3At22)));
-      
-      JacPDstandardNth1At23 = 
-        kmadd(J11L,PDstandardNth1At23,kmadd(J21L,PDstandardNth2At23,kmul(J31L,PDstandardNth3At23)));
-      
-      JacPDstandardNth1At33 = 
-        kmadd(J11L,PDstandardNth1At33,kmadd(J21L,PDstandardNth2At33,kmul(J31L,PDstandardNth3At33)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2At11 = 
-        kmadd(J12L,PDstandardNth1At11,kmadd(J22L,PDstandardNth2At11,kmul(J32L,PDstandardNth3At11)));
-      
-      JacPDstandardNth2At12 = 
-        kmadd(J12L,PDstandardNth1At12,kmadd(J22L,PDstandardNth2At12,kmul(J32L,PDstandardNth3At12)));
-      
-      JacPDstandardNth2At13 = 
-        kmadd(J12L,PDstandardNth1At13,kmadd(J22L,PDstandardNth2At13,kmul(J32L,PDstandardNth3At13)));
-      
-      JacPDstandardNth2At22 = 
-        kmadd(J12L,PDstandardNth1At22,kmadd(J22L,PDstandardNth2At22,kmul(J32L,PDstandardNth3At22)));
-      
-      JacPDstandardNth2At23 = 
-        kmadd(J12L,PDstandardNth1At23,kmadd(J22L,PDstandardNth2At23,kmul(J32L,PDstandardNth3At23)));
-      
-      JacPDstandardNth2At33 = 
-        kmadd(J12L,PDstandardNth1At33,kmadd(J22L,PDstandardNth2At33,kmul(J32L,PDstandardNth3At33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3At11 = 
-        kmadd(J13L,PDstandardNth1At11,kmadd(J23L,PDstandardNth2At11,kmul(J33L,PDstandardNth3At11)));
-      
-      JacPDstandardNth3At12 = 
-        kmadd(J13L,PDstandardNth1At12,kmadd(J23L,PDstandardNth2At12,kmul(J33L,PDstandardNth3At12)));
-      
-      JacPDstandardNth3At13 = 
-        kmadd(J13L,PDstandardNth1At13,kmadd(J23L,PDstandardNth2At13,kmul(J33L,PDstandardNth3At13)));
-      
-      JacPDstandardNth3At22 = 
-        kmadd(J13L,PDstandardNth1At22,kmadd(J23L,PDstandardNth2At22,kmul(J33L,PDstandardNth3At22)));
-      
-      JacPDstandardNth3At23 = 
-        kmadd(J13L,PDstandardNth1At23,kmadd(J23L,PDstandardNth2At23,kmul(J33L,PDstandardNth3At23)));
-      
-      JacPDstandardNth3At33 = 
-        kmadd(J13L,PDstandardNth1At33,kmadd(J23L,PDstandardNth2At33,kmul(J33L,PDstandardNth3At33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-    }
-    else
-    {
-      JacPDstandardNth1At11 = PDstandardNth1At11;
-      
-      JacPDstandardNth1At12 = PDstandardNth1At12;
-      
-      JacPDstandardNth1At13 = PDstandardNth1At13;
-      
-      JacPDstandardNth1At22 = PDstandardNth1At22;
-      
-      JacPDstandardNth1At23 = PDstandardNth1At23;
-      
-      JacPDstandardNth1At33 = PDstandardNth1At33;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2At11 = PDstandardNth2At11;
-      
-      JacPDstandardNth2At12 = PDstandardNth2At12;
-      
-      JacPDstandardNth2At13 = PDstandardNth2At13;
-      
-      JacPDstandardNth2At22 = PDstandardNth2At22;
-      
-      JacPDstandardNth2At23 = PDstandardNth2At23;
-      
-      JacPDstandardNth2At33 = PDstandardNth2At33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3At11 = PDstandardNth3At11;
-      
-      JacPDstandardNth3At12 = PDstandardNth3At12;
-      
-      JacPDstandardNth3At13 = PDstandardNth3At13;
-      
-      JacPDstandardNth3At22 = PDstandardNth3At22;
-      
-      JacPDstandardNth3At23 = PDstandardNth3At23;
-      
-      JacPDstandardNth3At33 = PDstandardNth3At33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC M1L = 
-      kmadd(gtu11,JacPDstandardNth1At11,kmadd(gtu12,JacPDstandardNth2At11,kmadd(gtu22,JacPDstandardNth2At12,kmadd(gtu23,JacPDstandardNth2At13,kmadd(gtu13,JacPDstandardNth3At11,kmadd(gtu23,JacPDstandardNth3At12,kmadd(gtu33,JacPDstandardNth3At13,kmadd(gtu12,kadd(JacPDstandardNth1At12,kmsub(At13L,kmul(Gt312,ToReal(-3)),kmul(At22L,Gt211))),kmadd(gtu13,kadd(JacPDstandardNth1At13,kmsub(At13L,kmul(Gt313,ToReal(-3)),kmul(At23L,Gt211))),knmsub(gtu22,kmadd(At23L,Gt312,kmul(At22L,Gt212)),kmadd(Gt311,kmsub(At13L,kmul(gtu11,ToReal(-2)),kmadd(At33L,gtu13,kmul(At23L,gtu12))),kmadd(At13L,kmsub(Gt323,kmul(gtu23,ToReal(-2)),kmul(Gt113,gtu33)),kmadd(JacPDstandardNth1trK,ToReal(-0.666666666666666666666666666667),knmsub(At12L,kmadd(Gt111,gtu12,kmadd(Gt112,gtu22,kmadd(Gt222,gtu22,kmadd(Gt113,gtu23,kmadd(Gt233,gtu33,kmadd(cdphi1,kmul(gtu12,ToReal(-6)),kmadd(cdphi2,kmul(gtu22,ToReal(-6)),kmadd(cdphi3,kmul(gtu23,ToReal(-6)),kmadd(Gt211,kmul(gtu11,ToReal(2)),kmadd(Gt223,kmul(gtu23,ToReal(2)),kmadd(Gt212,kmul(gtu12,ToReal(3)),kmul(Gt213,kmul(gtu13,ToReal(3)))))))))))))),kmadd(gtu23,knmsub(At22L,Gt213,knmsub(At33L,Gt312,kmsub(At13L,kmul(cdphi2,ToReal(6)),kmul(At23L,kadd(Gt313,Gt212))))),kmadd(gtu33,knmsub(At23L,Gt213,kmsub(At13L,kmul(cdphi3,ToReal(6)),kmul(At33L,Gt313))),kmadd(At11L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt111,kmul(gtu11,ToReal(-2)),kmadd(Gt123,kmul(gtu23,ToReal(-2)),knmsub(Gt122,gtu22,knmsub(Gt133,gtu33,kmadd(cdphi1,kmul(gtu11,ToReal(6)),kmadd(cdphi2,kmul(gtu12,ToReal(6)),kmul(cdphi3,kmul(gtu13,ToReal(6))))))))))),kmadd(At13L,knmsub(Gt322,gtu22,knmsub(Gt112,gtu23,kmsub(gtu13,kmsub(cdphi1,ToReal(6),Gt111),kmul(Gt333,gtu33)))),kmul(S1,kmul(ToReal(-8),ToReal(Pi)))))))))))))))))))));
-    
-    CCTK_REAL_VEC M2L = 
-      kmadd(gtu11,JacPDstandardNth1At12,kmadd(gtu12,JacPDstandardNth1At22,kmadd(gtu13,JacPDstandardNth1At23,kmadd(gtu12,JacPDstandardNth2At12,kmadd(gtu22,JacPDstandardNth2At22,kmadd(gtu23,JacPDstandardNth2At23,kmadd(gtu13,JacPDstandardNth3At12,kmadd(gtu23,JacPDstandardNth3At22,kmadd(gtu33,JacPDstandardNth3At23,kmadd(At22L,kmul(Gt222,kmul(gtu22,ToReal(-2))),knmsub(At11L,kmadd(Gt112,gtu11,kmadd(Gt122,gtu12,kmul(Gt123,gtu13))),knmsub(gtu11,kmadd(At22L,Gt211,kmadd(At13L,Gt312,kmul(At23L,Gt311))),kmadd(Gt212,kmsub(At22L,kmul(gtu12,ToReal(-3)),kmul(At23L,gtu13)),kmadd(Gt312,kmsub(At23L,kmul(gtu12,ToReal(-3)),kmul(At33L,gtu13)),kmadd(Gt322,kmsub(At23L,kmul(gtu22,ToReal(-2)),kmul(At33L,gtu23)),kmadd(Gt223,kmsub(At22L,kmul(gtu23,ToReal(-3)),kmul(At23L,gtu33)),kmadd(Gt323,kmsub(At23L,kmul(gtu23,ToReal(-3)),kmul(At33L,gtu33)),kmadd(At22L,kmsub(Gt213,kmul(gtu13,ToReal(-2)),kmul(Gt233,gtu33)),kmadd(At23L,kmsub(Gt313,kmul(gtu13,ToReal(-2)),kmadd(Gt333,gtu33,kmul(Gt222,gtu23))),kmadd(JacPDstandardNth2trK,ToReal(-0.666666666666666666666666666667),kmadd(At22L,kmul(cdphi2,kmul(gtu22,ToReal(6))),kmadd(At22L,kmul(cdphi3,kmul(gtu23,ToReal(6))),kmadd(gtu12,kmsub(At22L,kmul(cdphi1,ToReal(6)),kmul(At13L,Gt322)),kmadd(gtu13,kmsub(At23L,kmul(cdphi1,ToReal(6)),kmul(At13L,kadd(Gt323,Gt112))),kmadd(gtu23,kmsub(At23L,kmul(cdphi2,ToReal(6)),kmul(At13L,Gt122)),kmadd(gtu33,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At13L,Gt123)),kmadd(At12L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-2)),kmadd(Gt122,kmul(gtu22,ToReal(-2)),knmsub(Gt133,gtu33,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt212),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt222),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt223))))))))),kmul(S2,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC M3L = 
-      kmadd(gtu11,JacPDstandardNth1At13,kmadd(gtu12,JacPDstandardNth1At23,kmadd(gtu13,JacPDstandardNth1At33,kmadd(gtu12,JacPDstandardNth2At13,kmadd(gtu22,JacPDstandardNth2At23,kmadd(gtu23,JacPDstandardNth2At33,kmadd(gtu13,JacPDstandardNth3At13,kmadd(gtu23,JacPDstandardNth3At23,kmadd(gtu33,JacPDstandardNth3At33,kmadd(At33L,kmul(Gt313,kmul(gtu13,ToReal(-3))),kmadd(At23L,kmul(Gt223,kmul(gtu23,ToReal(-3))),kmadd(At33L,kmul(Gt323,kmul(gtu23,ToReal(-3))),kmadd(At23L,kmul(Gt233,kmul(gtu33,ToReal(-2))),kmadd(At33L,kmul(Gt333,kmul(gtu33,ToReal(-2))),knmsub(At11L,kmadd(Gt113,gtu11,kmadd(Gt123,gtu12,kmul(Gt133,gtu13))),kmadd(gtu12,kmsub(At23L,kmul(Gt212,ToReal(-2)),kmul(At12L,Gt223)),knmsub(gtu11,kmadd(At23L,Gt211,kmadd(At33L,Gt311,kmul(At12L,Gt213))),kmadd(At33L,kmsub(Gt312,kmul(gtu12,ToReal(-2)),kmul(Gt322,gtu22)),kmadd(At23L,kmsub(Gt213,kmul(gtu13,ToReal(-3)),kmadd(Gt333,gtu23,kmul(Gt222,gtu22))),kmadd(JacPDstandardNth3trK,ToReal(-0.666666666666666666666666666667),kmadd(At33L,kmul(cdphi3,kmul(gtu33,ToReal(6))),kmadd(gtu13,kmsub(At33L,kmul(cdphi1,ToReal(6)),kmul(At12L,Gt233)),kmadd(gtu23,kmsub(At33L,kmul(cdphi2,ToReal(6)),kmul(At12L,Gt133)),kmadd(gtu23,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At22L,Gt233)),kmadd(gtu12,knmsub(At12L,Gt113,kmsub(At23L,kmsub(cdphi1,ToReal(6),Gt313),kmul(At22L,Gt213))),kmadd(gtu22,knmsub(At12L,Gt123,kmsub(At23L,kmsub(cdphi2,ToReal(6),Gt323),kmul(At22L,Gt223))),kmadd(At13L,kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt112,kmul(gtu12,ToReal(-2)),kmadd(Gt133,kmul(gtu33,ToReal(-2)),knmsub(Gt122,gtu22,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt313),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt323),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt333))))))))),kmul(S3,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC cSL = klog(detgt);
-    
-    CCTK_REAL_VEC cXt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmsub(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2),Xt1L))));
-    
-    CCTK_REAL_VEC cXt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmsub(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2),Xt2L))));
-    
-    CCTK_REAL_VEC cXt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmsub(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2),Xt3L))));
-    
-    CCTK_REAL_VEC cAL = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(cA[index],cAL);
-    vec_store_nta_partial(cS[index],cSL);
-    vec_store_nta_partial(cXt1[index],cXt1L);
-    vec_store_nta_partial(cXt2[index],cXt2L);
-    vec_store_nta_partial(cXt3[index],cXt3L);
-    vec_store_nta_partial(M1[index],M1L);
-    vec_store_nta_partial(M2[index],M2L);
-    vec_store_nta_partial(M3[index],M3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_constraints2);
-}
-
-extern "C" void ML_BSSN_MP_O8_constraints2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_constraints2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_constraints2_calc_every != ML_BSSN_MP_O8_constraints2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_cons_detg",
-    "ML_BSSN_MP_O8::ML_cons_Gamma",
-    "ML_BSSN_MP_O8::ML_cons_traceA",
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_mom",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_constraints2", 11, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_constraints2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_constraints2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_constraints2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_constraints2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_O8_constraints2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_constraints2_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBase.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBase.cc
deleted file mode 100644
index cfa713a..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBase.cc
+++ /dev/null
@@ -1,400 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_O8_convertFromADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_convertFromADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alpL = vec_load(alp[index]);
-    CCTK_REAL_VEC betaxL = vec_load(betax[index]);
-    CCTK_REAL_VEC betayL = vec_load(betay[index]);
-    CCTK_REAL_VEC betazL = vec_load(betaz[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC kxxL = vec_load(kxx[index]);
-    CCTK_REAL_VEC kxyL = vec_load(kxy[index]);
-    CCTK_REAL_VEC kxzL = vec_load(kxz[index]);
-    CCTK_REAL_VEC kyyL = vec_load(kyy[index]);
-    CCTK_REAL_VEC kyzL = vec_load(kyz[index]);
-    CCTK_REAL_VEC kzzL = vec_load(kzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC g11 = gxxL;
-    
-    CCTK_REAL_VEC g12 = gxyL;
-    
-    CCTK_REAL_VEC g13 = gxzL;
-    
-    CCTK_REAL_VEC g22 = gyyL;
-    
-    CCTK_REAL_VEC g23 = gyzL;
-    
-    CCTK_REAL_VEC g33 = gzzL;
-    
-    CCTK_REAL_VEC detg = 
-      knmsub(g22,SQR(g13),knmsub(g11,SQR(g23),kmadd(g33,kmsub(g11,g22,SQR(g12)),kmul(g12,kmul(g13,kmul(g23,ToReal(2)))))));
-    
-    CCTK_REAL_VEC gu11 = kmul(INV(detg),kmsub(g22,g33,SQR(g23)));
-    
-    CCTK_REAL_VEC gu12 = kmul(INV(detg),kmsub(g13,g23,kmul(g12,g33)));
-    
-    CCTK_REAL_VEC gu13 = kmul(INV(detg),kmsub(g12,g23,kmul(g13,g22)));
-    
-    CCTK_REAL_VEC gu22 = kmul(INV(detg),kmsub(g11,g33,SQR(g13)));
-    
-    CCTK_REAL_VEC gu23 = kmul(INV(detg),kmsub(g12,g13,kmul(g11,g23)));
-    
-    CCTK_REAL_VEC gu33 = kmul(INV(detg),kmsub(g11,g22,SQR(g12)));
-    
-    CCTK_REAL_VEC em4phi;
-    
-    if (conformalMethod == 1)
-    {
-      phiL = kpow(detg,-0.166666666666666666666666666667);
-      
-      em4phi = SQR(phiL);
-    }
-    else
-    {
-      phiL = kmul(klog(detg),ToReal(0.0833333333333333333333333333333));
-      
-      em4phi = kexp(kmul(phiL,ToReal(-4)));
-    }
-    
-    CCTK_REAL_VEC gt11L = kmul(em4phi,g11);
-    
-    CCTK_REAL_VEC gt12L = kmul(em4phi,g12);
-    
-    CCTK_REAL_VEC gt13L = kmul(em4phi,g13);
-    
-    CCTK_REAL_VEC gt22L = kmul(em4phi,g22);
-    
-    CCTK_REAL_VEC gt23L = kmul(em4phi,g23);
-    
-    CCTK_REAL_VEC gt33L = kmul(em4phi,g33);
-    
-    trKL = 
-      kmadd(kxxL,gu11,kmadd(kyyL,gu22,kmadd(kzzL,gu33,kmul(kmadd(kxyL,gu12,kmadd(kxzL,gu13,kmul(kyzL,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11L = 
-      kmul(em4phi,kmadd(trKL,kmul(g11,ToReal(-0.333333333333333333333333333333)),kxxL));
-    
-    CCTK_REAL_VEC At12L = 
-      kmul(em4phi,kmadd(trKL,kmul(g12,ToReal(-0.333333333333333333333333333333)),kxyL));
-    
-    CCTK_REAL_VEC At13L = 
-      kmul(em4phi,kmadd(trKL,kmul(g13,ToReal(-0.333333333333333333333333333333)),kxzL));
-    
-    CCTK_REAL_VEC At22L = 
-      kmul(em4phi,kmadd(trKL,kmul(g22,ToReal(-0.333333333333333333333333333333)),kyyL));
-    
-    CCTK_REAL_VEC At23L = 
-      kmul(em4phi,kmadd(trKL,kmul(g23,ToReal(-0.333333333333333333333333333333)),kyzL));
-    
-    CCTK_REAL_VEC At33L = 
-      kmul(em4phi,kmadd(trKL,kmul(g33,ToReal(-0.333333333333333333333333333333)),kzzL));
-    
-    CCTK_REAL_VEC alphaL = alpL;
-    
-    CCTK_REAL_VEC beta1L = betaxL;
-    
-    CCTK_REAL_VEC beta2L = betayL;
-    
-    CCTK_REAL_VEC beta3L = betazL;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_convertFromADMBase);
-}
-
-extern "C" void ML_BSSN_MP_O8_convertFromADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_convertFromADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_convertFromADMBase_calc_every != ML_BSSN_MP_O8_convertFromADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_convertFromADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_O8_convertFromADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_convertFromADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc
deleted file mode 100644
index a5a0820..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc
+++ /dev/null
@@ -1,926 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_convertFromADMBaseGamma_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_Gamma.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_convertFromADMBaseGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_convertFromADMBaseGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC dtalpL = vec_load(dtalp[index]);
-    CCTK_REAL_VEC dtbetaxL = vec_load(dtbetax[index]);
-    CCTK_REAL_VEC dtbetayL = vec_load(dtbetay[index]);
-    CCTK_REAL_VEC dtbetazL = vec_load(dtbetaz[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        break;
-      
-      case 4:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        break;
-      
-      case 6:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        break;
-      
-      case 8:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmul(ToReal(0.5),kmadd(gtu11,JacPDstandardNth1gt11,knmsub(gtu12,JacPDstandardNth2gt11,kmsub(kmadd(gtu12,JacPDstandardNth1gt12,kmul(gtu13,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu13,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth1gt11,knmsub(gtu22,JacPDstandardNth2gt11,kmsub(kmadd(gtu22,JacPDstandardNth1gt12,kmul(gtu23,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu23,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth1gt11,knmsub(gtu23,JacPDstandardNth2gt11,kmsub(kmadd(gtu23,JacPDstandardNth1gt12,kmul(gtu33,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu33,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmul(kmadd(gtu12,JacPDstandardNth1gt22,kmadd(gtu11,JacPDstandardNth2gt11,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmul(kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu12,JacPDstandardNth2gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt22,kmadd(gtu13,JacPDstandardNth2gt11,kmul(gtu33,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmul(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu11,JacPDstandardNth3gt11,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt33,kmadd(gtu12,JacPDstandardNth3gt11,kmul(gtu22,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmul(kmadd(gtu33,JacPDstandardNth1gt33,kmadd(gtu13,JacPDstandardNth3gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth2gt22,kmadd(gtu11,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu13,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmul(ToReal(0.5),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu12,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu23,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth2gt22,kmadd(gtu13,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu33,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmul(kmadd(gtu13,JacPDstandardNth2gt33,kmadd(gtu12,JacPDstandardNth3gt22,kmul(gtu11,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmul(kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu22,JacPDstandardNth3gt22,kmul(gtu12,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmul(kmadd(gtu33,JacPDstandardNth2gt33,kmadd(gtu23,JacPDstandardNth3gt22,kmul(gtu13,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth3gt33,kmadd(gtu11,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu12,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth3gt33,kmadd(gtu12,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu22,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmul(ToReal(0.5),kmadd(gtu33,JacPDstandardNth3gt33,kmadd(gtu13,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Xt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC AL = IfThen(LapseACoeff != 
-      0,kneg(kmul(INV(ToReal(harmonicF)),kmul(kpow(alphaL,-harmonicN),knmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),dtalpL)))),ToReal(0));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC B1L;
-    CCTK_REAL_VEC B2L;
-    CCTK_REAL_VEC B3L;
-    
-    if (ShiftBCoeff*ShiftGammaCoeff != 0)
-    {
-      B1L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetaxL));
-      
-      B2L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetayL));
-      
-      B3L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetazL));
-    }
-    else
-    {
-      B1L = ToReal(0);
-      
-      B2L = ToReal(0);
-      
-      B3L = ToReal(0);
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_convertFromADMBaseGamma);
-}
-
-extern "C" void ML_BSSN_MP_O8_convertFromADMBaseGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_convertFromADMBaseGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_convertFromADMBaseGamma_calc_every != ML_BSSN_MP_O8_convertFromADMBaseGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_shift"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_convertFromADMBaseGamma", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_convertFromADMBaseGamma", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_convertFromADMBaseGamma", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_convertFromADMBaseGamma", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_convertFromADMBaseGamma", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_O8_convertFromADMBaseGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_convertFromADMBaseGamma_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBase.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBase.cc
deleted file mode 100644
index 7475347..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBase.cc
+++ /dev/null
@@ -1,362 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_O8_convertToADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_convertToADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    gxxL = kmul(gt11L,e4phi);
-    
-    gxyL = kmul(gt12L,e4phi);
-    
-    gxzL = kmul(gt13L,e4phi);
-    
-    gyyL = kmul(gt22L,e4phi);
-    
-    gyzL = kmul(gt23L,e4phi);
-    
-    gzzL = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC kxxL = 
-      kmadd(At11L,e4phi,kmul(gxxL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxyL = 
-      kmadd(At12L,e4phi,kmul(gxyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxzL = 
-      kmadd(At13L,e4phi,kmul(gxzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyyL = 
-      kmadd(At22L,e4phi,kmul(gyyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyzL = 
-      kmadd(At23L,e4phi,kmul(gyzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kzzL = 
-      kmadd(At33L,e4phi,kmul(gzzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC alpL = alphaL;
-    
-    CCTK_REAL_VEC betaxL = beta1L;
-    
-    CCTK_REAL_VEC betayL = beta2L;
-    
-    CCTK_REAL_VEC betazL = beta3L;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alp[index],alpL);
-    vec_store_nta_partial(betax[index],betaxL);
-    vec_store_nta_partial(betay[index],betayL);
-    vec_store_nta_partial(betaz[index],betazL);
-    vec_store_nta_partial(gxx[index],gxxL);
-    vec_store_nta_partial(gxy[index],gxyL);
-    vec_store_nta_partial(gxz[index],gxzL);
-    vec_store_nta_partial(gyy[index],gyyL);
-    vec_store_nta_partial(gyz[index],gyzL);
-    vec_store_nta_partial(gzz[index],gzzL);
-    vec_store_nta_partial(kxx[index],kxxL);
-    vec_store_nta_partial(kxy[index],kxyL);
-    vec_store_nta_partial(kxz[index],kxzL);
-    vec_store_nta_partial(kyy[index],kyyL);
-    vec_store_nta_partial(kyz[index],kyzL);
-    vec_store_nta_partial(kzz[index],kzzL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_convertToADMBase);
-}
-
-extern "C" void ML_BSSN_MP_O8_convertToADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_convertToADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_convertToADMBase_calc_every != ML_BSSN_MP_O8_convertToADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_convertToADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_O8_convertToADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_convertToADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBaseDtLapseShift.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBaseDtLapseShift.cc
deleted file mode 100644
index ceecbd6..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBaseDtLapseShift.cc
+++ /dev/null
@@ -1,918 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_convertToADMBaseDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4))))))))))))))))),kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetayL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetazL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_convertToADMBaseDtLapseShift);
-}
-
-extern "C" void ML_BSSN_MP_O8_convertToADMBaseDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_calc_every != ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_log_confac",
-    "ML_BSSN_MP_O8::ML_metric",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_convertToADMBaseDtLapseShift", 12, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_convertToADMBaseDtLapseShift", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_convertToADMBaseDtLapseShift", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_convertToADMBaseDtLapseShift", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_MP_O8_convertToADMBaseDtLapseShift", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_convertToADMBaseDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary.cc
deleted file mode 100644
index 2d6b9cf..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary.cc
+++ /dev/null
@@ -1,346 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary);
-}
-
-extern "C" void ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_calc_every != ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift.cc
deleted file mode 100644
index e299e55..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift.cc
+++ /dev/null
@@ -1,331 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift);
-}
-
-extern "C" void ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_calc_every != ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_MP_O8::ML_dtlapse",
-    "ML_BSSN_MP_O8::ML_dtshift",
-    "ML_BSSN_MP_O8::ML_Gamma",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_shift",
-    "ML_BSSN_MP_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_enforce.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_enforce.cc
deleted file mode 100644
index 03a2d5a..0000000
--- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_enforce.cc
+++ /dev/null
@@ -1,337 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_MP_O8_enforce_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_MP_O8_enforce,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC trAt = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    At11L = 
-      kmadd(gt11L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At11L);
-    
-    At12L = 
-      kmadd(gt12L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At12L);
-    
-    At13L = 
-      kmadd(gt13L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At13L);
-    
-    At22L = 
-      kmadd(gt22L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At22L);
-    
-    At23L = 
-      kmadd(gt23L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At23L);
-    
-    At33L = 
-      kmadd(gt33L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At33L);
-    
-    alphaL = kfmax(alphaL,ToReal(MinimumLapse));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_MP_O8_enforce);
-}
-
-extern "C" void ML_BSSN_MP_O8_enforce(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_enforce_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_MP_O8_enforce_calc_every != ML_BSSN_MP_O8_enforce_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_MP_O8::ML_curv",
-    "ML_BSSN_MP_O8::ML_lapse",
-    "ML_BSSN_MP_O8::ML_metric"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_enforce", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_MP_O8_enforce_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_MP_O8_enforce_Body");
-  }
-}
diff --git a/ML_BSSN_MP_O8/src/RegisterMoL.cc b/ML_BSSN_MP_O8/src/RegisterMoL.cc
deleted file mode 100644
index df47d57..0000000
--- a/ML_BSSN_MP_O8/src/RegisterMoL.cc
+++ /dev/null
@@ -1,43 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_BSSN_MP_O8_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::At11"),  CCTK_VarIndex("ML_BSSN_MP_O8::At11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::At12"),  CCTK_VarIndex("ML_BSSN_MP_O8::At12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::At13"),  CCTK_VarIndex("ML_BSSN_MP_O8::At13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::At22"),  CCTK_VarIndex("ML_BSSN_MP_O8::At22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::At23"),  CCTK_VarIndex("ML_BSSN_MP_O8::At23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::At33"),  CCTK_VarIndex("ML_BSSN_MP_O8::At33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::A"),  CCTK_VarIndex("ML_BSSN_MP_O8::Arhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::B1"),  CCTK_VarIndex("ML_BSSN_MP_O8::B1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::B2"),  CCTK_VarIndex("ML_BSSN_MP_O8::B2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::B3"),  CCTK_VarIndex("ML_BSSN_MP_O8::B3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::Xt1"),  CCTK_VarIndex("ML_BSSN_MP_O8::Xt1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::Xt2"),  CCTK_VarIndex("ML_BSSN_MP_O8::Xt2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::Xt3"),  CCTK_VarIndex("ML_BSSN_MP_O8::Xt3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::alpha"),  CCTK_VarIndex("ML_BSSN_MP_O8::alpharhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::phi"),  CCTK_VarIndex("ML_BSSN_MP_O8::phirhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::gt11"),  CCTK_VarIndex("ML_BSSN_MP_O8::gt11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::gt12"),  CCTK_VarIndex("ML_BSSN_MP_O8::gt12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::gt13"),  CCTK_VarIndex("ML_BSSN_MP_O8::gt13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::gt22"),  CCTK_VarIndex("ML_BSSN_MP_O8::gt22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::gt23"),  CCTK_VarIndex("ML_BSSN_MP_O8::gt23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::gt33"),  CCTK_VarIndex("ML_BSSN_MP_O8::gt33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::beta1"),  CCTK_VarIndex("ML_BSSN_MP_O8::beta1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::beta2"),  CCTK_VarIndex("ML_BSSN_MP_O8::beta2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::beta3"),  CCTK_VarIndex("ML_BSSN_MP_O8::beta3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_MP_O8::trK"),  CCTK_VarIndex("ML_BSSN_MP_O8::trKrhs"));
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_BSSN_MP_O8/src/RegisterSymmetries.cc b/ML_BSSN_MP_O8/src/RegisterSymmetries.cc
deleted file mode 100644
index 9fc5aa8..0000000
--- a/ML_BSSN_MP_O8/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,189 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_BSSN_MP_O8_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::At11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::At12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::At13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::At22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::At23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::At33");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::A");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::B1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::B2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::B3");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::Xt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::Xt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::Xt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::alpha");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::phi");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::gt11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::gt12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::gt13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::gt22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::gt23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::gt33");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::beta1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::beta2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::beta3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::trK");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::cS");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::cXt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::cXt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::cXt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::cA");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::H");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::M1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::M2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_MP_O8::M3");
-  
-}
diff --git a/ML_BSSN_MP_O8/src/Startup.cc b/ML_BSSN_MP_O8/src/Startup.cc
deleted file mode 100644
index 2e3fa38..0000000
--- a/ML_BSSN_MP_O8/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_BSSN_MP_O8_Startup(void)
-{
-  const char * banner = "ML_BSSN_MP_O8";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_BSSN_MP_O8/src/make.code.defn b/ML_BSSN_MP_O8/src/make.code.defn
deleted file mode 100644
index 7492ae5..0000000
--- a/ML_BSSN_MP_O8/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc ML_BSSN_MP_O8_Minkowski.cc ML_BSSN_MP_O8_convertFromADMBase.cc ML_BSSN_MP_O8_InitGamma.cc ML_BSSN_MP_O8_convertFromADMBaseGamma.cc ML_BSSN_MP_O8_RHS1.cc ML_BSSN_MP_O8_RHS2.cc ML_BSSN_MP_O8_Dissipation.cc ML_BSSN_MP_O8_Advect.cc ML_BSSN_MP_O8_InitRHS.cc ML_BSSN_MP_O8_RHSStaticBoundary.cc ML_BSSN_MP_O8_enforce.cc ML_BSSN_MP_O8_boundary.cc ML_BSSN_MP_O8_convertToADMBase.cc ML_BSSN_MP_O8_convertToADMBaseDtLapseShift.cc ML_BSSN_MP_O8_convertToADMBaseDtLapseShiftBoundary.cc ML_BSSN_MP_O8_convertToADMBaseFakeDtLapseShift.cc ML_BSSN_MP_O8_constraints1.cc ML_BSSN_MP_O8_constraints2.cc Boundaries.cc 
diff --git a/ML_BSSN_MP_O8_Helper/configuration.ccl b/ML_BSSN_MP_O8_Helper/configuration.ccl
deleted file mode 100644
index edaa5b7..0000000
--- a/ML_BSSN_MP_O8_Helper/configuration.ccl
+++ /dev/null
@@ -1 +0,0 @@
-REQUIRES THORNS: CartGrid3D CoordGauge
diff --git a/ML_BSSN_MP_O8_Helper/interface.ccl b/ML_BSSN_MP_O8_Helper/interface.ccl
deleted file mode 100644
index 0b6463f..0000000
--- a/ML_BSSN_MP_O8_Helper/interface.ccl
+++ /dev/null
@@ -1,38 +0,0 @@
-IMPLEMENTS: ML_BSSN_MP_O8_Helper
-
-INHERITS: ADMBase CoordGauge ML_BSSN_MP_O8
-
-USES INCLUDE: Slicing.h
-USES INCLUDE: Symmetry.h
-
-
-
-CCTK_INT FUNCTION MoLRegisterConstrainedGroup \
-    (CCTK_INT IN ConstrainedIndex)
-USES FUNCTION MoLRegisterConstrainedGroup
-
-CCTK_INT FUNCTION                         \
-    Boundary_SelectGroupForBC             \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-          CCTK_INT IN faces,              \
-          CCTK_INT IN boundary_width,     \
-          CCTK_INT IN table_handle,       \
-          CCTK_STRING IN group_name,      \
-          CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION                         \
-    ExtrapolateGammas                     \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY INOUT var)
-USES FUNCTION ExtrapolateGammas
-
-CCTK_INT FUNCTION                         \
-    NewRad_Apply                          \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY IN var,          \
-         CCTK_REAL ARRAY INOUT rhs,       \
-         CCTK_REAL IN var0,               \
-         CCTK_REAL IN v0,                 \
-         CCTK_INT IN radpower)
-USES FUNCTION NewRad_Apply
diff --git a/ML_BSSN_MP_O8_Helper/param.ccl b/ML_BSSN_MP_O8_Helper/param.ccl
deleted file mode 100644
index aa5de54..0000000
--- a/ML_BSSN_MP_O8_Helper/param.ccl
+++ /dev/null
@@ -1,39 +0,0 @@
-SHARES: Boundary
-
-USES CCTK_INT radpower
-
-SHARES: MethodofLines
-
-USES CCTK_INT MoL_Num_Constrained_Vars
-
-SHARES: ADMBase
-
-USES KEYWORD evolution_method
-
-SHARES: GenericFD
-
-USES CCTK_INT boundary_width
-
-SHARES: ML_BSSN_MP_O8
-
-USES CCTK_INT timelevels
-USES CCTK_INT rhs_timelevels
-USES KEYWORD calculate_ADMBase_variables_at
-
-USES CCTK_REAL harmonicF
-
-EXTENDS KEYWORD my_initial_boundary_condition
-{
-  "extrapolate-gammas" :: "extrapolate-gammas"
-}
-EXTENDS KEYWORD my_rhs_boundary_condition
-{
-  "NewRad" :: "NewRad"
-}
-
-PRIVATE:
-
-CCTK_INT ML_BSSN_MP_O8_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars
-{
-  20:20 :: "Number of constrained variables used by this thorn"
-} 20
diff --git a/ML_BSSN_MP_O8_Helper/schedule.ccl b/ML_BSSN_MP_O8_Helper/schedule.ccl
deleted file mode 100644
index 4d20be7..0000000
--- a/ML_BSSN_MP_O8_Helper/schedule.ccl
+++ /dev/null
@@ -1,161 +0,0 @@
-if (CCTK_EQUALS (evolution_method, "ML_BSSN_MP_O8")) {
-  
-  if (timelevels == 1) {
-    STORAGE: ADMBase::metric[1]
-    STORAGE: ADMBase::curv[1]
-    STORAGE: ADMBase::lapse[1]
-    STORAGE: ADMBase::shift[1]
-    STORAGE: ADMBase::dtlapse[1]
-    STORAGE: ADMBase::dtshift[1]
-  } else if (timelevels == 2) {
-    STORAGE: ADMBase::metric[2]
-    STORAGE: ADMBase::curv[2]
-    STORAGE: ADMBase::lapse[2]
-    STORAGE: ADMBase::shift[2]
-    STORAGE: ADMBase::dtlapse[2]
-    STORAGE: ADMBase::dtshift[2]
-  } else if (timelevels == 3) {
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  } else if (timelevels == 4) {
-    #STORAGE: ADMBase::metric[4]
-    #STORAGE: ADMBase::curv[4]
-    #STORAGE: ADMBase::lapse[4]
-    #STORAGE: ADMBase::shift[4]
-    #STORAGE: ADMBase::dtlapse[4]
-    #STORAGE: ADMBase::dtshift[4]
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  }
-  
-  SCHEDULE ML_BSSN_MP_O8_RegisterSlicing AT startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register slicing"
-  
-  SCHEDULE ML_BSSN_MP_O8_SetGroupTags AT startup BEFORE Driver_Startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Set checkpointing and prolongation group tags"
-  
-  SCHEDULE ML_BSSN_MP_O8_RegisterConstrained IN MoL_Register
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register ADMBase variables as constrained"
-  
-  
-  
-  # Why would any of these two be necessary?
-  #SCHEDULE GROUP ML_BSSN_MP_O8_evolCalcGroup AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Calculate BSSN RHS"
-  #SCHEDULE GROUP MoL_CalcRHS AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Evaluate RHS"
-  
-  SCHEDULE GROUP ML_BSSN_MP_O8_evolCalcGroup IN MoL_CalcRHS
-  {
-  } "Calculate BSSN RHS"
-  
-  SCHEDULE GROUP ML_BSSN_MP_O8_evolCalcGroup AT analysis
-  {
-    TRIGGERS: ML_BSSN_MP_O8::ML_log_confacrhs
-    TRIGGERS: ML_BSSN_MP_O8::ML_metricrhs
-    TRIGGERS: ML_BSSN_MP_O8::ML_Gammarhs
-    TRIGGERS: ML_BSSN_MP_O8::ML_trace_curvrhs
-    TRIGGERS: ML_BSSN_MP_O8::ML_curvrhs
-    TRIGGERS: ML_BSSN_MP_O8::ML_lapserhs
-    TRIGGERS: ML_BSSN_MP_O8::ML_dtlapserhs
-    TRIGGERS: ML_BSSN_MP_O8::ML_shiftrhs
-    TRIGGERS: ML_BSSN_MP_O8::ML_dtshiftrhs
-  } "Calculate BSSN RHS"
-  
-  
-  
-  if (CCTK_EQUALS (my_initial_boundary_condition, "extrapolate-gammas"))
-  {
-    SCHEDULE ML_BSSN_MP_O8_ExtrapolateGammas AT initial AFTER ML_BSSN_MP_O8_convertFromADMBaseGamma
-    {
-      LANG: C
-      # We don't need to synchronise here because extrapolation is now filling
-      # ghost zones
-      #SYNC: ML_Gamma
-      #SYNC: ML_dtlapse
-      #SYNC: ML_dtshift
-    } "Extrapolate Gammas and time derivatives of lapse and shift"
-  }
-  
-  if (CCTK_EQUALS (my_rhs_boundary_condition, "NewRad"))
-  {
-    SCHEDULE ML_BSSN_MP_O8_NewRad IN ML_BSSN_MP_O8_evolCalcGroup AFTER ML_BSSN_MP_O8_RHS
-    {
-      LANG: C
-      #SYNC: ML_curvrhs
-      #SYNC: ML_dtlapserhs
-      #SYNC: ML_dtshiftrhs
-      #SYNC: ML_Gammarhs
-      #SYNC: ML_lapserhs
-      #SYNC: ML_log_confacrhs
-      #SYNC: ML_metricrhs
-      #SYNC: ML_shiftrhs
-      #SYNC: ML_trace_curvrhs
-    } "Apply NewRad boundary conditions to RHS"
-  }
-  
-  
-  
-  SCHEDULE GROUP ML_BSSN_MP_O8_convertToADMBaseGroup IN ML_BSSN_MP_O8_convertToADMBaseGroupWrapper
-  {
-    #SYNC: ADMBase::metric
-    #SYNC: ADMBase::curv
-    #SYNC: ADMBase::lapse
-    #SYNC: ADMBase::shift
-    #SYNC: ADMBase::dtlapse
-    #SYNC: ADMBase::dtshift
-  } "Calculate ADM variables"
-  
-  if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep"))
-  {
-    SCHEDULE GROUP ML_BSSN_MP_O8_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_MP_O8_ApplyBCs ML_BSSN_MP_O8_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_EVOL"))
-  {
-    SCHEDULE GROUP ML_BSSN_MP_O8_convertToADMBaseGroupWrapper IN MoL_PseudoEvolution BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_ANALYSIS"))
-  {
-    SCHEDULE GROUP ML_BSSN_MP_O8_convertToADMBaseGroupWrapper AT post_recover_variables
-    {
-    } "Calculate ADM variables"
-    
-    SCHEDULE GROUP ML_BSSN_MP_O8_convertToADMBaseGroupWrapper AT analysis BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-
-  SCHEDULE ML_BSSN_MP_O8_SelectBCsADMBase IN ML_BSSN_MP_O8_convertToADMBaseGroupWrapper AFTER ML_BSSN_MP_O8_convertToADMBaseGroup
-  {
-    LANG: C
-    OPTIONS: level
-  } "Select boundary conditions for ADMBase variables"
-  
-  SCHEDULE GROUP ApplyBCs AS ML_BSSN_MP_O8_ApplyBCsADMBase IN ML_BSSN_MP_O8_convertToADMBaseGroupWrapper AFTER ML_BSSN_MP_O8_SelectBCsADMBase
-  {
-  } "Apply boundary conditions to ADMBase variables"
-  
-}
diff --git a/ML_BSSN_MP_O8_Helper/src/ExtrapolateGammas.c b/ML_BSSN_MP_O8_Helper/src/ExtrapolateGammas.c
deleted file mode 100644
index fa0a545..0000000
--- a/ML_BSSN_MP_O8_Helper/src/ExtrapolateGammas.c
+++ /dev/null
@@ -1,29 +0,0 @@
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-extrap (cGH const * restrict cctkGH,
-        CCTK_REAL * restrict var);
-
-void
-ML_BSSN_MP_O8_ExtrapolateGammas (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  extrap (cctkGH, Xt1);
-  extrap (cctkGH, Xt2);
-  extrap (cctkGH, Xt3);
-  
-  extrap (cctkGH, A);
-  
-  extrap (cctkGH, B1);
-  extrap (cctkGH, B2);
-  extrap (cctkGH, B3);
-}
-
-static void
-extrap (cGH const * restrict const cctkGH,
-        CCTK_REAL * restrict const var)
-{
-  ExtrapolateGammas (cctkGH, var);
-}
diff --git a/ML_BSSN_MP_O8_Helper/src/NewRad.c b/ML_BSSN_MP_O8_Helper/src/NewRad.c
deleted file mode 100644
index b612a41..0000000
--- a/ML_BSSN_MP_O8_Helper/src/NewRad.c
+++ /dev/null
@@ -1,67 +0,0 @@
-#include <math.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-newrad (cGH const * restrict cctkGH,
-        CCTK_REAL const * restrict var,
-        CCTK_REAL * restrict rhs,
-        CCTK_REAL var0,
-        CCTK_REAL v0);
-
-void
-ML_BSSN_MP_O8_NewRad (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_REAL const v0 = sqrt (harmonicF);
-  
-  newrad (cctkGH, phi  , phirhs  , 0.0, v0 );
-  
-  newrad (cctkGH, gt11 , gt11rhs , 1.0, 1.0);
-  newrad (cctkGH, gt12 , gt12rhs , 0.0, 1.0);
-  newrad (cctkGH, gt13 , gt13rhs , 0.0, 1.0);
-  newrad (cctkGH, gt22 , gt22rhs , 1.0, 1.0);
-  newrad (cctkGH, gt23 , gt23rhs , 0.0, 1.0);
-  newrad (cctkGH, gt33 , gt33rhs , 1.0, 1.0);
-  
-  newrad (cctkGH, Xt1  , Xt1rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt2  , Xt2rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt3  , Xt3rhs  , 0.0, 1.0);
-  
-  newrad (cctkGH, trK  , trKrhs  , 0.0, v0 );
-  
-  newrad (cctkGH, At11 , At11rhs , 0.0, 1.0);
-  newrad (cctkGH, At12 , At12rhs , 0.0, 1.0);
-  newrad (cctkGH, At13 , At13rhs , 0.0, 1.0);
-  newrad (cctkGH, At22 , At22rhs , 0.0, 1.0);
-  newrad (cctkGH, At23 , At23rhs , 0.0, 1.0);
-  newrad (cctkGH, At33 , At33rhs , 0.0, 1.0);
-  
-  newrad (cctkGH, alpha, alpharhs, 1.0, v0 );
-  
-  newrad (cctkGH, A    , Arhs    , 0.0, v0 );
-  
-  newrad (cctkGH, beta1, beta1rhs, 0.0, 1.0);
-  newrad (cctkGH, beta2, beta2rhs, 0.0, 1.0);
-  newrad (cctkGH, beta3, beta3rhs, 0.0, 1.0);
-  
-  newrad (cctkGH, B1   , B1rhs   , 0.0, 1.0);
-  newrad (cctkGH, B2   , B2rhs   , 0.0, 1.0);
-  newrad (cctkGH, B3   , B3rhs   , 0.0, 1.0);
-}
-
-static void
-newrad (cGH const * restrict const cctkGH,
-        CCTK_REAL const * restrict const var,
-        CCTK_REAL * restrict const rhs,
-        CCTK_REAL const var0,
-        CCTK_REAL const v0)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  NewRad_Apply (cctkGH, var, rhs, var0, v0, radpower);
-}
diff --git a/ML_BSSN_MP_O8_Helper/src/RegisterConstrained.c b/ML_BSSN_MP_O8_Helper/src/RegisterConstrained.c
deleted file mode 100644
index d3fadfe..0000000
--- a/ML_BSSN_MP_O8_Helper/src/RegisterConstrained.c
+++ /dev/null
@@ -1,32 +0,0 @@
-#include <assert.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-register_constrained (char const * restrict const gn);
-
-void
-ML_BSSN_MP_O8_RegisterConstrained (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  register_constrained ("ADMBase::metric");
-  register_constrained ("ADMBase::curv");
-  register_constrained ("ADMBase::lapse");
-  register_constrained ("ADMBase::shift");
-  register_constrained ("ADMBase::dtlapse");
-  register_constrained ("ADMBase::dtshift");
-}
-
-static void
-register_constrained (char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  int const ierr = MoLRegisterConstrainedGroup (gi);
-  assert (! ierr);
-}
diff --git a/ML_BSSN_MP_O8_Helper/src/RegisterSlicing.c b/ML_BSSN_MP_O8_Helper/src/RegisterSlicing.c
deleted file mode 100644
index 4824ea2..0000000
--- a/ML_BSSN_MP_O8_Helper/src/RegisterSlicing.c
+++ /dev/null
@@ -1,9 +0,0 @@
-#include <cctk.h>
-#include <Slicing.h>
-
-int
-ML_BSSN_MP_O8_RegisterSlicing (void)
-{
-  Einstein_RegisterSlicing ("ML_BSSN_MP_O8");
-  return 0;
-}
diff --git a/ML_BSSN_MP_O8_Helper/src/SelectBCsADMBase.c b/ML_BSSN_MP_O8_Helper/src/SelectBCsADMBase.c
deleted file mode 100644
index e258c98..0000000
--- a/ML_BSSN_MP_O8_Helper/src/SelectBCsADMBase.c
+++ /dev/null
@@ -1,31 +0,0 @@
-#include <assert.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-select_bcs (cGH const * restrict cctkGH, char const * restrict gn);
-
-void
-ML_BSSN_MP_O8_SelectBCsADMBase (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  select_bcs (cctkGH, "ADMBase::metric");
-  select_bcs (cctkGH, "ADMBase::curv");
-  select_bcs (cctkGH, "ADMBase::lapse");
-  select_bcs (cctkGH, "ADMBase::shift");
-  select_bcs (cctkGH, "ADMBase::dtlapse");
-  select_bcs (cctkGH, "ADMBase::dtshift");
-}
-
-static void
-select_bcs (cGH const * restrict const cctkGH, char const * restrict const gn)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const ierr = Boundary_SelectGroupForBC
-    (cctkGH, CCTK_ALL_FACES, boundary_width, -1, gn, "none");
-  assert (! ierr);
-}
diff --git a/ML_BSSN_MP_O8_Helper/src/SetGroupTags.c b/ML_BSSN_MP_O8_Helper/src/SetGroupTags.c
deleted file mode 100644
index aed51c6..0000000
--- a/ML_BSSN_MP_O8_Helper/src/SetGroupTags.c
+++ /dev/null
@@ -1,76 +0,0 @@
-#include <cctk.h>
-#include <cctk_Parameters.h>
-#include <util_Table.h>
-
-#include <assert.h>
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn);
-
-int
-ML_BSSN_MP_O8_SetGroupTags (void)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const checkpoint = timelevels > 1;
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::metric");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::curv");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::lapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::shift");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtlapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtshift");
-  
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP_O8::ML_cons_detg");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP_O8::ML_cons_Gamma");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP_O8::ML_cons_traceA");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP_O8::ML_Ham");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_MP_O8::ML_mom");
-  
-  int const rhs_checkpoint = rhs_timelevels > 1;
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP_O8::ML_log_confacrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP_O8::ML_metricrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP_O8::ML_Gammarhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP_O8::ML_trace_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP_O8::ML_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP_O8::ML_lapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP_O8::ML_dtlapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP_O8::ML_shiftrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_MP_O8::ML_dtshiftrhs");
-  
-  return 0;
-}
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  assert (gi >= 0);
-  
-  int const table = CCTK_GroupTagsTableI (gi);
-  assert (table >= 0);
-  
-  if (! checkpoint) {
-    int const ierr = Util_TableSetString (table, "no", "Checkpoint");
-    assert (! ierr);
-  }
-  
-  if (! persistent) {
-    int const ierr = Util_TableSetString (table, "no", "Persistent");
-    assert (! ierr);
-  }
-  
-  if (! prolongate) {
-    int const iret = Util_TableDeleteKey (table, "ProlongationParameter");
-    assert (iret == 0 || iret == UTIL_ERROR_TABLE_NO_SUCH_KEY);
-    int const ierr = Util_TableSetString (table, "none", "Prolongation");
-    assert (! ierr);
-  }
-}
diff --git a/ML_BSSN_MP_O8_Helper/src/make.code.defn b/ML_BSSN_MP_O8_Helper/src/make.code.defn
deleted file mode 100644
index a3ac433..0000000
--- a/ML_BSSN_MP_O8_Helper/src/make.code.defn
+++ /dev/null
@@ -1,2 +0,0 @@
-# -*-Makefile-*-
-SRCS = ExtrapolateGammas.c NewRad.c RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c SetGroupTags.c
diff --git a/ML_BSSN_O2/configuration.ccl b/ML_BSSN_O2/configuration.ccl
deleted file mode 100644
index bdbc1bd..0000000
--- a/ML_BSSN_O2/configuration.ccl
+++ /dev/null
@@ -1,5 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-REQUIRES LoopControl
-REQUIRES Vectors
diff --git a/ML_BSSN_O2/interface.ccl b/ML_BSSN_O2/interface.ccl
deleted file mode 100644
index 6b5a8f2..0000000
--- a/ML_BSSN_O2/interface.ccl
+++ /dev/null
@@ -1,203 +0,0 @@
-# File produced by Kranc
-
-implements: ML_BSSN_O2
-
-inherits:   ADMBase TmunuBase Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-USES INCLUDE: vectors.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL ML_cons_detg type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=2'
-{
-  cS
-} "ML_cons_detg"
-
-public:
-CCTK_REAL ML_cons_Gamma type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  cXt1,
-  cXt2,
-  cXt3
-} "ML_cons_Gamma"
-
-public:
-CCTK_REAL ML_cons_traceA type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  cA
-} "ML_cons_traceA"
-
-public:
-CCTK_REAL ML_Ham type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  H
-} "ML_Ham"
-
-public:
-CCTK_REAL ML_mom type=GF timelevels=1 tags='tensortypealias="D" tensorweight=0'
-{
-  M1,
-  M2,
-  M3
-} "ML_mom"
-
-public:
-CCTK_REAL ML_curv type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11,
-  At12,
-  At13,
-  At22,
-  At23,
-  At33
-} "ML_curv"
-
-public:
-CCTK_REAL ML_dtlapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  A
-} "ML_dtlapse"
-
-public:
-CCTK_REAL ML_dtshift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1,
-  B2,
-  B3
-} "ML_dtshift"
-
-public:
-CCTK_REAL ML_Gamma type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1,
-  Xt2,
-  Xt3
-} "ML_Gamma"
-
-public:
-CCTK_REAL ML_lapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpha
-} "ML_lapse"
-
-public:
-CCTK_REAL ML_log_confac type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phi
-} "ML_log_confac"
-
-public:
-CCTK_REAL ML_metric type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11,
-  gt12,
-  gt13,
-  gt22,
-  gt23,
-  gt33
-} "ML_metric"
-
-public:
-CCTK_REAL ML_shift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1,
-  beta2,
-  beta3
-} "ML_shift"
-
-public:
-CCTK_REAL ML_trace_curv type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trK
-} "ML_trace_curv"
-
-public:
-CCTK_REAL ML_curvrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11rhs,
-  At12rhs,
-  At13rhs,
-  At22rhs,
-  At23rhs,
-  At33rhs
-} "ML_curvrhs"
-
-public:
-CCTK_REAL ML_dtlapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  Arhs
-} "ML_dtlapserhs"
-
-public:
-CCTK_REAL ML_dtshiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1rhs,
-  B2rhs,
-  B3rhs
-} "ML_dtshiftrhs"
-
-public:
-CCTK_REAL ML_Gammarhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1rhs,
-  Xt2rhs,
-  Xt3rhs
-} "ML_Gammarhs"
-
-public:
-CCTK_REAL ML_lapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpharhs
-} "ML_lapserhs"
-
-public:
-CCTK_REAL ML_log_confacrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phirhs
-} "ML_log_confacrhs"
-
-public:
-CCTK_REAL ML_metricrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11rhs,
-  gt12rhs,
-  gt13rhs,
-  gt22rhs,
-  gt23rhs,
-  gt33rhs
-} "ML_metricrhs"
-
-public:
-CCTK_REAL ML_shiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1rhs,
-  beta2rhs,
-  beta3rhs
-} "ML_shiftrhs"
-
-public:
-CCTK_REAL ML_trace_curvrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trKrhs
-} "ML_trace_curvrhs"
diff --git a/ML_BSSN_O2/param.ccl b/ML_BSSN_O2/param.ccl
deleted file mode 100644
index 3fdf2b9..0000000
--- a/ML_BSSN_O2/param.ccl
+++ /dev/null
@@ -1,1480 +0,0 @@
-# File produced by Kranc
-
-
-shares: ADMBase
-
-
-EXTENDS CCTK_KEYWORD evolution_method "evolution_method"
-{
-  ML_BSSN_O2 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD lapse_evolution_method "lapse_evolution_method"
-{
-  ML_BSSN_O2 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD shift_evolution_method "shift_evolution_method"
-{
-  ML_BSSN_O2 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtlapse_evolution_method "dtlapse_evolution_method"
-{
-  ML_BSSN_O2 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtshift_evolution_method "dtshift_evolution_method"
-{
-  ML_BSSN_O2 :: ""
-} 
-
-
-
-shares: GenericFD
-
-USES CCTK_STRING jacobian_group
-USES CCTK_STRING jacobian_derivative_group
-USES CCTK_INT jacobian_identity_map
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseACoeff "Whether to evolve A in time"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL harmonicF "d/dt alpha = - f alpha^n K   (harmonic=1, 1+log=2)"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL AlphaDriver "AlphaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL ShiftBCoeff "Whether to evolve B^i in time"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftGammaCoeff "ShiftGammaCoeff"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL BetaDriver "BetaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseAdvectionCoeff "Factor in front of the lapse advection terms in 1+log"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftAdvectionCoeff "Factor in front of the shift advection terms in gamma driver"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL MinimumLapse "Minimum value of the lapse function"
-{
-  "*:*" :: ""
-} -1
-
-restricted:
-CCTK_REAL SpatialBetaDriverRadius "Radius at which the BetaDriver starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL SpatialShiftGammaCoeffRadius "Radius at which the ShiftGammaCoefficient starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL EpsDiss "Dissipation strength"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_INT harmonicN "d/dt alpha = - f alpha^n K  (harmonic=2, 1+log=1)"
-{
-  *:* :: ""
-} 2
-
-restricted:
-CCTK_INT ShiftAlphaPower "ShiftAlphaPower"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT conformalMethod "Treatment of conformal factor"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT fdOrder "fdOrder"
-{
-  *:* :: ""
-} 2
-
-restricted:
-CCTK_INT harmonicShift "Whether to use the harmonic shift"
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD my_initial_data "my_initial_data"
-{
-  "ADMBase" :: "ADMBase"
-  "Minkowski" :: "Minkowski"
-} "ADMBase"
-
-restricted:
-KEYWORD my_initial_boundary_condition "my_initial_boundary_condition"
-{
-  "none" :: "none"
-} "none"
-
-restricted:
-KEYWORD my_rhs_boundary_condition "my_rhs_boundary_condition"
-{
-  "none" :: "none"
-  "static" :: "static"
-  "radiative" :: "radiative"
-} "none"
-
-private:
-KEYWORD my_boundary_condition "my_boundary_condition"
-{
-  "none" :: "none"
-  "Minkowski" :: "Minkowski"
-} "none"
-
-restricted:
-KEYWORD calculate_ADMBase_variables_at "calculate_ADMBase_variables_at"
-{
-  "MoL_PostStep" :: "MoL_PostStep"
-  "CCTK_EVOL" :: "CCTK_EVOL"
-  "CCTK_ANALYSIS" :: "CCTK_ANALYSIS"
-} "MoL_PostStep"
-
-restricted:
-KEYWORD UseSpatialBetaDriver "UseSpatialBetaDriver"
-{
-  "no" :: "no"
-  "yes" :: "yes"
-} "no"
-
-private:
-KEYWORD dt_lapse_shift_method "Treatment of ADMBase dtlapse and dtshift"
-{
-  "correct" :: "correct"
-  "noLapseShiftAdvection" :: "noLapseShiftAdvection"
-} "correct"
-
-private:
-KEYWORD apply_dissipation "Whether to apply dissipation to the RHSs"
-{
-  "always" :: "always"
-  "never" :: "never"
-} "always"
-
-restricted:
-CCTK_INT ML_BSSN_O2_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  25:25 :: "Number of evolved variables used by this thorn"
-} 25
-
-restricted:
-CCTK_INT ML_BSSN_O2_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_Minkowski_calc_every "ML_BSSN_O2_Minkowski_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertFromADMBase_calc_every "ML_BSSN_O2_convertFromADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_InitGamma_calc_every "ML_BSSN_O2_InitGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertFromADMBaseGamma_calc_every "ML_BSSN_O2_convertFromADMBaseGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_RHS1_calc_every "ML_BSSN_O2_RHS1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_RHS2_calc_every "ML_BSSN_O2_RHS2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_Dissipation_calc_every "ML_BSSN_O2_Dissipation_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_Advect_calc_every "ML_BSSN_O2_Advect_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_InitRHS_calc_every "ML_BSSN_O2_InitRHS_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_RHSStaticBoundary_calc_every "ML_BSSN_O2_RHSStaticBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_enforce_calc_every "ML_BSSN_O2_enforce_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_boundary_calc_every "ML_BSSN_O2_boundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertToADMBase_calc_every "ML_BSSN_O2_convertToADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertToADMBaseDtLapseShift_calc_every "ML_BSSN_O2_convertToADMBaseDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_calc_every "ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_calc_every "ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_constraints1_calc_every "ML_BSSN_O2_constraints1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_constraints2_calc_every "ML_BSSN_O2_constraints2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O2_Minkowski_calc_offset "ML_BSSN_O2_Minkowski_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertFromADMBase_calc_offset "ML_BSSN_O2_convertFromADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_InitGamma_calc_offset "ML_BSSN_O2_InitGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertFromADMBaseGamma_calc_offset "ML_BSSN_O2_convertFromADMBaseGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_RHS1_calc_offset "ML_BSSN_O2_RHS1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_RHS2_calc_offset "ML_BSSN_O2_RHS2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_Dissipation_calc_offset "ML_BSSN_O2_Dissipation_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_Advect_calc_offset "ML_BSSN_O2_Advect_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_InitRHS_calc_offset "ML_BSSN_O2_InitRHS_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_RHSStaticBoundary_calc_offset "ML_BSSN_O2_RHSStaticBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_enforce_calc_offset "ML_BSSN_O2_enforce_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_boundary_calc_offset "ML_BSSN_O2_boundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertToADMBase_calc_offset "ML_BSSN_O2_convertToADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertToADMBaseDtLapseShift_calc_offset "ML_BSSN_O2_convertToADMBaseDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_calc_offset "ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_calc_offset "ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_constraints1_calc_offset "ML_BSSN_O2_constraints1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O2_constraints2_calc_offset "ML_BSSN_O2_constraints2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD At11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD A_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD alpha_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD phi_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD trK_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD ML_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtlapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtshift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_Gamma_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_lapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_log_confac_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_metric_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_shift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_trace_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-CCTK_REAL At11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL A_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL alpha_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL phi_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL trK_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtlapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtshift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_Gamma_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_lapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_log_confac_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_metric_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_shift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_trace_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
diff --git a/ML_BSSN_O2/schedule.ccl b/ML_BSSN_O2/schedule.ccl
deleted file mode 100644
index b607ca6..0000000
--- a/ML_BSSN_O2/schedule.ccl
+++ /dev/null
@@ -1,722 +0,0 @@
-# File produced by Kranc
-
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_detg[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_Gamma[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_traceA[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_Ham[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_mom[1]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_curv[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtlapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtlapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtlapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtshift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtshift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtshift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Gamma[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Gamma[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Gamma[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_lapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_lapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_lapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_log_confac[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_log_confac[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_log_confac[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_metric[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_metric[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_metric[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_shift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_shift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_shift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_trace_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_trace_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_trace_curv[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_curvrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtlapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtlapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtlapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtshiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtshiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtshiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_Gammarhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_Gammarhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_Gammarhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_lapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_lapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_lapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_log_confacrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_log_confacrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_log_confacrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_metricrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_metricrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_metricrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_shiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_shiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_shiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_trace_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_trace_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_trace_curvrhs[3]
-}
-
-schedule ML_BSSN_O2_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_BSSN_O2_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-
-if (CCTK_EQUALS(my_initial_data, "Minkowski"))
-{
-  schedule ML_BSSN_O2_Minkowski IN ADMBase_InitialData
-  {
-    LANG: C
-    WRITES:   ML_BSSN_O2::ML_curv
-    WRITES:   ML_BSSN_O2::ML_dtlapse
-    WRITES:   ML_BSSN_O2::ML_dtshift
-    WRITES:   ML_BSSN_O2::ML_Gamma
-    WRITES:   ML_BSSN_O2::ML_lapse
-    WRITES:   ML_BSSN_O2::ML_log_confac
-    WRITES:   ML_BSSN_O2::ML_metric
-    WRITES:   ML_BSSN_O2::ML_shift
-    WRITES:   ML_BSSN_O2::ML_trace_curv
-  } "ML_BSSN_O2_Minkowski"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_O2_convertFromADMBase AT initial AFTER ADMBase_PostInitial
-  {
-    LANG: C
-    READS:    ADMBase::curv
-    READS:    ADMBase::lapse
-    READS:    ADMBase::metric
-    READS:    ADMBase::shift
-    READS:    ML_BSSN_O2::ML_log_confac
-    READS:    ML_BSSN_O2::ML_trace_curv
-    WRITES:   ML_BSSN_O2::ML_curv
-    WRITES:   ML_BSSN_O2::ML_lapse
-    WRITES:   ML_BSSN_O2::ML_log_confac
-    WRITES:   ML_BSSN_O2::ML_metric
-    WRITES:   ML_BSSN_O2::ML_shift
-    WRITES:   ML_BSSN_O2::ML_trace_curv
-  } "ML_BSSN_O2_convertFromADMBase"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_O2_InitGamma AT initial BEFORE ML_BSSN_O2_convertFromADMBaseGamma
-  {
-    LANG: C
-    WRITES:   ML_BSSN_O2::ML_dtlapse
-    WRITES:   ML_BSSN_O2::ML_dtshift
-    WRITES:   ML_BSSN_O2::ML_Gamma
-  } "ML_BSSN_O2_InitGamma"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_O2_convertFromADMBaseGamma AT initial AFTER ML_BSSN_O2_convertFromADMBase
-  {
-    LANG: C
-    SYNC: ML_dtlapse
-    SYNC: ML_dtshift
-    SYNC: ML_Gamma
-    READS:    ADMBase::dtlapse
-    READS:    ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_O2::ML_lapse
-    READS:    ML_BSSN_O2::ML_metric
-    READS:    ML_BSSN_O2::ML_shift
-    WRITES:   ML_BSSN_O2::ML_dtlapse
-    WRITES:   ML_BSSN_O2::ML_dtshift
-    WRITES:   ML_BSSN_O2::ML_Gamma
-  } "ML_BSSN_O2_convertFromADMBaseGamma"
-}
-
-schedule ML_BSSN_O2_RHS1 IN ML_BSSN_O2_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_O2::ML_curv
-  READS:    ML_BSSN_O2::ML_dtlapse
-  READS:    ML_BSSN_O2::ML_dtshift
-  READS:    ML_BSSN_O2::ML_Gamma
-  READS:    ML_BSSN_O2::ML_lapse
-  READS:    ML_BSSN_O2::ML_log_confac
-  READS:    ML_BSSN_O2::ML_metric
-  READS:    ML_BSSN_O2::ML_shift
-  READS:    ML_BSSN_O2::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_O2::ML_dtlapserhs
-  WRITES:   ML_BSSN_O2::ML_dtshiftrhs
-  WRITES:   ML_BSSN_O2::ML_Gammarhs
-  WRITES:   ML_BSSN_O2::ML_lapserhs
-  WRITES:   ML_BSSN_O2::ML_log_confacrhs
-  WRITES:   ML_BSSN_O2::ML_metricrhs
-  WRITES:   ML_BSSN_O2::ML_shiftrhs
-  WRITES:   ML_BSSN_O2::ML_trace_curvrhs
-} "ML_BSSN_O2_RHS1"
-
-schedule ML_BSSN_O2_RHS2 IN ML_BSSN_O2_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_O2::ML_curv
-  READS:    ML_BSSN_O2::ML_Gamma
-  READS:    ML_BSSN_O2::ML_lapse
-  READS:    ML_BSSN_O2::ML_log_confac
-  READS:    ML_BSSN_O2::ML_metric
-  READS:    ML_BSSN_O2::ML_shift
-  READS:    ML_BSSN_O2::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_O2::ML_curvrhs
-} "ML_BSSN_O2_RHS2"
-
-
-if (CCTK_EQUALS(apply_dissipation, "always"))
-{
-  schedule ML_BSSN_O2_Dissipation IN ML_BSSN_O2_evolCalcGroup AFTER (ML_BSSN_O2_RHS1 ML_BSSN_O2_RHS2)
-  {
-    LANG: C
-    READS:    ML_BSSN_O2::ML_curv
-    READS:    ML_BSSN_O2::ML_curvrhs
-    READS:    ML_BSSN_O2::ML_dtlapse
-    READS:    ML_BSSN_O2::ML_dtlapserhs
-    READS:    ML_BSSN_O2::ML_dtshift
-    READS:    ML_BSSN_O2::ML_dtshiftrhs
-    READS:    ML_BSSN_O2::ML_Gamma
-    READS:    ML_BSSN_O2::ML_Gammarhs
-    READS:    ML_BSSN_O2::ML_lapse
-    READS:    ML_BSSN_O2::ML_lapserhs
-    READS:    ML_BSSN_O2::ML_log_confac
-    READS:    ML_BSSN_O2::ML_log_confacrhs
-    READS:    ML_BSSN_O2::ML_metric
-    READS:    ML_BSSN_O2::ML_metricrhs
-    READS:    ML_BSSN_O2::ML_shift
-    READS:    ML_BSSN_O2::ML_shiftrhs
-    READS:    ML_BSSN_O2::ML_trace_curv
-    READS:    ML_BSSN_O2::ML_trace_curvrhs
-    WRITES:   ML_BSSN_O2::ML_curvrhs
-    WRITES:   ML_BSSN_O2::ML_dtlapserhs
-    WRITES:   ML_BSSN_O2::ML_dtshiftrhs
-    WRITES:   ML_BSSN_O2::ML_Gammarhs
-    WRITES:   ML_BSSN_O2::ML_lapserhs
-    WRITES:   ML_BSSN_O2::ML_log_confacrhs
-    WRITES:   ML_BSSN_O2::ML_metricrhs
-    WRITES:   ML_BSSN_O2::ML_shiftrhs
-    WRITES:   ML_BSSN_O2::ML_trace_curvrhs
-  } "ML_BSSN_O2_Dissipation"
-}
-
-schedule ML_BSSN_O2_Advect IN ML_BSSN_O2_evolCalcGroup AFTER (ML_BSSN_O2_RHS1 ML_BSSN_O2_RHS2)
-{
-  LANG: C
-  READS:    ML_BSSN_O2::ML_curv
-  READS:    ML_BSSN_O2::ML_curvrhs
-  READS:    ML_BSSN_O2::ML_dtlapse
-  READS:    ML_BSSN_O2::ML_dtlapserhs
-  READS:    ML_BSSN_O2::ML_dtshift
-  READS:    ML_BSSN_O2::ML_dtshiftrhs
-  READS:    ML_BSSN_O2::ML_Gamma
-  READS:    ML_BSSN_O2::ML_Gammarhs
-  READS:    ML_BSSN_O2::ML_lapse
-  READS:    ML_BSSN_O2::ML_lapserhs
-  READS:    ML_BSSN_O2::ML_log_confac
-  READS:    ML_BSSN_O2::ML_log_confacrhs
-  READS:    ML_BSSN_O2::ML_metric
-  READS:    ML_BSSN_O2::ML_metricrhs
-  READS:    ML_BSSN_O2::ML_shift
-  READS:    ML_BSSN_O2::ML_shiftrhs
-  READS:    ML_BSSN_O2::ML_trace_curv
-  READS:    ML_BSSN_O2::ML_trace_curvrhs
-  WRITES:   ML_BSSN_O2::ML_curvrhs
-  WRITES:   ML_BSSN_O2::ML_dtlapserhs
-  WRITES:   ML_BSSN_O2::ML_dtshiftrhs
-  WRITES:   ML_BSSN_O2::ML_Gammarhs
-  WRITES:   ML_BSSN_O2::ML_lapserhs
-  WRITES:   ML_BSSN_O2::ML_log_confacrhs
-  WRITES:   ML_BSSN_O2::ML_metricrhs
-  WRITES:   ML_BSSN_O2::ML_shiftrhs
-  WRITES:   ML_BSSN_O2::ML_trace_curvrhs
-} "ML_BSSN_O2_Advect"
-
-schedule ML_BSSN_O2_InitRHS AT analysis BEFORE ML_BSSN_O2_evolCalcGroup
-{
-  LANG: C
-  WRITES:   ML_BSSN_O2::ML_curvrhs
-  WRITES:   ML_BSSN_O2::ML_dtlapserhs
-  WRITES:   ML_BSSN_O2::ML_dtshiftrhs
-  WRITES:   ML_BSSN_O2::ML_Gammarhs
-  WRITES:   ML_BSSN_O2::ML_lapserhs
-  WRITES:   ML_BSSN_O2::ML_log_confacrhs
-  WRITES:   ML_BSSN_O2::ML_metricrhs
-  WRITES:   ML_BSSN_O2::ML_shiftrhs
-  WRITES:   ML_BSSN_O2::ML_trace_curvrhs
-} "ML_BSSN_O2_InitRHS"
-
-
-if (CCTK_EQUALS(my_rhs_boundary_condition, "static"))
-{
-  schedule ML_BSSN_O2_RHSStaticBoundary IN MoL_CalcRHS
-  {
-    LANG: C
-    WRITES:   ML_BSSN_O2::ML_curvrhs
-    WRITES:   ML_BSSN_O2::ML_dtlapserhs
-    WRITES:   ML_BSSN_O2::ML_dtshiftrhs
-    WRITES:   ML_BSSN_O2::ML_Gammarhs
-    WRITES:   ML_BSSN_O2::ML_lapserhs
-    WRITES:   ML_BSSN_O2::ML_log_confacrhs
-    WRITES:   ML_BSSN_O2::ML_metricrhs
-    WRITES:   ML_BSSN_O2::ML_shiftrhs
-    WRITES:   ML_BSSN_O2::ML_trace_curvrhs
-  } "ML_BSSN_O2_RHSStaticBoundary"
-}
-
-schedule ML_BSSN_O2_enforce IN MoL_PostStepModify
-{
-  LANG: C
-  READS:    ML_BSSN_O2::ML_curv
-  READS:    ML_BSSN_O2::ML_lapse
-  READS:    ML_BSSN_O2::ML_metric
-  WRITES:   ML_BSSN_O2::ML_curv
-  WRITES:   ML_BSSN_O2::ML_lapse
-} "ML_BSSN_O2_enforce"
-
-
-if (CCTK_EQUALS(my_boundary_condition, "Minkowski"))
-{
-  schedule ML_BSSN_O2_boundary IN MoL_PostStep
-  {
-    LANG: C
-    WRITES:   ML_BSSN_O2::ML_curv
-    WRITES:   ML_BSSN_O2::ML_dtlapse
-    WRITES:   ML_BSSN_O2::ML_dtshift
-    WRITES:   ML_BSSN_O2::ML_Gamma
-    WRITES:   ML_BSSN_O2::ML_lapse
-    WRITES:   ML_BSSN_O2::ML_log_confac
-    WRITES:   ML_BSSN_O2::ML_metric
-    WRITES:   ML_BSSN_O2::ML_shift
-    WRITES:   ML_BSSN_O2::ML_trace_curv
-  } "ML_BSSN_O2_boundary"
-}
-
-schedule ML_BSSN_O2_convertToADMBase IN ML_BSSN_O2_convertToADMBaseGroup
-{
-  LANG: C
-  READS:    ADMBase::metric
-  READS:    ML_BSSN_O2::ML_curv
-  READS:    ML_BSSN_O2::ML_lapse
-  READS:    ML_BSSN_O2::ML_log_confac
-  READS:    ML_BSSN_O2::ML_metric
-  READS:    ML_BSSN_O2::ML_shift
-  READS:    ML_BSSN_O2::ML_trace_curv
-  WRITES:   ADMBase::curv
-  WRITES:   ADMBase::lapse
-  WRITES:   ADMBase::metric
-  WRITES:   ADMBase::shift
-} "ML_BSSN_O2_convertToADMBase"
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_O2_convertToADMBaseDtLapseShift IN ML_BSSN_O2_convertToADMBaseGroup
-  {
-    LANG: C
-    SYNC: ADMBase::dtlapse
-    SYNC: ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_O2::ML_dtlapse
-    READS:    ML_BSSN_O2::ML_dtshift
-    READS:    ML_BSSN_O2::ML_Gamma
-    READS:    ML_BSSN_O2::ML_lapse
-    READS:    ML_BSSN_O2::ML_log_confac
-    READS:    ML_BSSN_O2::ML_metric
-    READS:    ML_BSSN_O2::ML_shift
-    READS:    ML_BSSN_O2::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_O2_convertToADMBaseDtLapseShift"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary IN ML_BSSN_O2_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_O2::ML_dtlapse
-    READS:    ML_BSSN_O2::ML_dtshift
-    READS:    ML_BSSN_O2::ML_Gamma
-    READS:    ML_BSSN_O2::ML_lapse
-    READS:    ML_BSSN_O2::ML_metric
-    READS:    ML_BSSN_O2::ML_shift
-    READS:    ML_BSSN_O2::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "noLapseShiftAdvection"))
-{
-  schedule ML_BSSN_O2_convertToADMBaseFakeDtLapseShift IN ML_BSSN_O2_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_O2::ML_dtlapse
-    READS:    ML_BSSN_O2::ML_dtshift
-    READS:    ML_BSSN_O2::ML_Gamma
-    READS:    ML_BSSN_O2::ML_lapse
-    READS:    ML_BSSN_O2::ML_metric
-    READS:    ML_BSSN_O2::ML_shift
-    READS:    ML_BSSN_O2::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_O2_convertToADMBaseFakeDtLapseShift"
-}
-
-schedule group ML_BSSN_O2_constraints1_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_O2_constraints1"
-
-schedule ML_BSSN_O2_constraints1 in ML_BSSN_O2_constraints1_group
-{
-  LANG: C
-  READS:    ML_BSSN_O2::ML_curv
-  READS:    ML_BSSN_O2::ML_Gamma
-  READS:    ML_BSSN_O2::ML_lapse
-  READS:    ML_BSSN_O2::ML_log_confac
-  READS:    ML_BSSN_O2::ML_metric
-  READS:    ML_BSSN_O2::ML_shift
-  READS:    ML_BSSN_O2::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_O2::ML_Ham
-} "ML_BSSN_O2_constraints1"
-
-schedule ML_BSSN_O2_constraints1_SelectBCs in ML_BSSN_O2_constraints1_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_Ham
-} "ML_BSSN_O2_constraints1_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_O2_constraints1_ApplyBCs in ML_BSSN_O2_constraints1_bc_group after ML_BSSN_O2_constraints1_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_O2_constraints1"
-
-schedule group ML_BSSN_O2_constraints1_bc_group in ML_BSSN_O2_constraints1_group after ML_BSSN_O2_constraints1
-{
-  # no language specified
-} "ML_BSSN_O2_constraints1"
-
-schedule group ML_BSSN_O2_constraints1_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_O2_constraints1"
-
-schedule group ML_BSSN_O2_constraints2_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_O2_constraints2"
-
-schedule ML_BSSN_O2_constraints2 in ML_BSSN_O2_constraints2_group
-{
-  LANG: C
-  READS:    ML_BSSN_O2::ML_curv
-  READS:    ML_BSSN_O2::ML_Gamma
-  READS:    ML_BSSN_O2::ML_lapse
-  READS:    ML_BSSN_O2::ML_log_confac
-  READS:    ML_BSSN_O2::ML_metric
-  READS:    ML_BSSN_O2::ML_shift
-  READS:    ML_BSSN_O2::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_O2::ML_cons_detg
-  WRITES:   ML_BSSN_O2::ML_cons_Gamma
-  WRITES:   ML_BSSN_O2::ML_cons_traceA
-  WRITES:   ML_BSSN_O2::ML_mom
-} "ML_BSSN_O2_constraints2"
-
-schedule ML_BSSN_O2_constraints2_SelectBCs in ML_BSSN_O2_constraints2_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_cons_detg
-  SYNC: ML_cons_Gamma
-  SYNC: ML_cons_traceA
-  SYNC: ML_mom
-} "ML_BSSN_O2_constraints2_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_O2_constraints2_ApplyBCs in ML_BSSN_O2_constraints2_bc_group after ML_BSSN_O2_constraints2_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_O2_constraints2"
-
-schedule group ML_BSSN_O2_constraints2_bc_group in ML_BSSN_O2_constraints2_group after ML_BSSN_O2_constraints2
-{
-  # no language specified
-} "ML_BSSN_O2_constraints2"
-
-schedule group ML_BSSN_O2_constraints2_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_O2_constraints2"
-
-schedule ML_BSSN_O2_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_curv
-  SYNC: ML_dtlapse
-  SYNC: ML_dtshift
-  SYNC: ML_Gamma
-  SYNC: ML_lapse
-  SYNC: ML_log_confac
-  SYNC: ML_metric
-  SYNC: ML_shift
-  SYNC: ML_trace_curv
-} "select boundary conditions"
-
-schedule ML_BSSN_O2_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_BSSN_O2_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_BSSN_O2_ApplyBCs in MoL_PostStep after ML_BSSN_O2_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_BSSN_O2/src/Boundaries.cc b/ML_BSSN_O2/src/Boundaries.cc
deleted file mode 100644
index e711921..0000000
--- a/ML_BSSN_O2/src/Boundaries.cc
+++ /dev/null
@@ -1,1809 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_BSSN_O2_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_BSSN_O2_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  if (CCTK_EQUALS(ML_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "static") ||
-      CCTK_EQUALS(ML_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::ML_curv", ML_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_curv_bound BC for ML_BSSN_O2::ML_curv!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "static") ||
-      CCTK_EQUALS(ML_dtlapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::ML_dtlapse", ML_dtlapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtlapse_bound BC for ML_BSSN_O2::ML_dtlapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "static") ||
-      CCTK_EQUALS(ML_dtshift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::ML_dtshift", ML_dtshift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtshift_bound BC for ML_BSSN_O2::ML_dtshift!");
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "none"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "static") ||
-      CCTK_EQUALS(ML_Gamma_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::ML_Gamma", ML_Gamma_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_Gamma_bound BC for ML_BSSN_O2::ML_Gamma!");
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "static") ||
-      CCTK_EQUALS(ML_lapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::ML_lapse", ML_lapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_lapse_bound BC for ML_BSSN_O2::ML_lapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "none"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "static") ||
-      CCTK_EQUALS(ML_log_confac_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::ML_log_confac", ML_log_confac_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_log_confac_bound BC for ML_BSSN_O2::ML_log_confac!");
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "none"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "static") ||
-      CCTK_EQUALS(ML_metric_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::ML_metric", ML_metric_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_metric_bound BC for ML_BSSN_O2::ML_metric!");
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "static") ||
-      CCTK_EQUALS(ML_shift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::ML_shift", ML_shift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_shift_bound BC for ML_BSSN_O2::ML_shift!");
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "static") ||
-      CCTK_EQUALS(ML_trace_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::ML_trace_curv", ML_trace_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_trace_curv_bound BC for ML_BSSN_O2::ML_trace_curv!");
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "none"  ) ||
-      CCTK_EQUALS(At11_bound, "static") ||
-      CCTK_EQUALS(At11_bound, "flat"  ) ||
-      CCTK_EQUALS(At11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::At11", At11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At11_bound BC for ML_BSSN_O2::At11!");
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "none"  ) ||
-      CCTK_EQUALS(At12_bound, "static") ||
-      CCTK_EQUALS(At12_bound, "flat"  ) ||
-      CCTK_EQUALS(At12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::At12", At12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At12_bound BC for ML_BSSN_O2::At12!");
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "none"  ) ||
-      CCTK_EQUALS(At13_bound, "static") ||
-      CCTK_EQUALS(At13_bound, "flat"  ) ||
-      CCTK_EQUALS(At13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::At13", At13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At13_bound BC for ML_BSSN_O2::At13!");
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "none"  ) ||
-      CCTK_EQUALS(At22_bound, "static") ||
-      CCTK_EQUALS(At22_bound, "flat"  ) ||
-      CCTK_EQUALS(At22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::At22", At22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At22_bound BC for ML_BSSN_O2::At22!");
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "none"  ) ||
-      CCTK_EQUALS(At23_bound, "static") ||
-      CCTK_EQUALS(At23_bound, "flat"  ) ||
-      CCTK_EQUALS(At23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::At23", At23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At23_bound BC for ML_BSSN_O2::At23!");
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "none"  ) ||
-      CCTK_EQUALS(At33_bound, "static") ||
-      CCTK_EQUALS(At33_bound, "flat"  ) ||
-      CCTK_EQUALS(At33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::At33", At33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At33_bound BC for ML_BSSN_O2::At33!");
-  }
-  
-  if (CCTK_EQUALS(A_bound, "none"  ) ||
-      CCTK_EQUALS(A_bound, "static") ||
-      CCTK_EQUALS(A_bound, "flat"  ) ||
-      CCTK_EQUALS(A_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::A", A_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register A_bound BC for ML_BSSN_O2::A!");
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "none"  ) ||
-      CCTK_EQUALS(B1_bound, "static") ||
-      CCTK_EQUALS(B1_bound, "flat"  ) ||
-      CCTK_EQUALS(B1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::B1", B1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B1_bound BC for ML_BSSN_O2::B1!");
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "none"  ) ||
-      CCTK_EQUALS(B2_bound, "static") ||
-      CCTK_EQUALS(B2_bound, "flat"  ) ||
-      CCTK_EQUALS(B2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::B2", B2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B2_bound BC for ML_BSSN_O2::B2!");
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "none"  ) ||
-      CCTK_EQUALS(B3_bound, "static") ||
-      CCTK_EQUALS(B3_bound, "flat"  ) ||
-      CCTK_EQUALS(B3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::B3", B3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B3_bound BC for ML_BSSN_O2::B3!");
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "none"  ) ||
-      CCTK_EQUALS(Xt1_bound, "static") ||
-      CCTK_EQUALS(Xt1_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::Xt1", Xt1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt1_bound BC for ML_BSSN_O2::Xt1!");
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "none"  ) ||
-      CCTK_EQUALS(Xt2_bound, "static") ||
-      CCTK_EQUALS(Xt2_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::Xt2", Xt2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt2_bound BC for ML_BSSN_O2::Xt2!");
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "none"  ) ||
-      CCTK_EQUALS(Xt3_bound, "static") ||
-      CCTK_EQUALS(Xt3_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::Xt3", Xt3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt3_bound BC for ML_BSSN_O2::Xt3!");
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "none"  ) ||
-      CCTK_EQUALS(alpha_bound, "static") ||
-      CCTK_EQUALS(alpha_bound, "flat"  ) ||
-      CCTK_EQUALS(alpha_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::alpha", alpha_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register alpha_bound BC for ML_BSSN_O2::alpha!");
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "none"  ) ||
-      CCTK_EQUALS(phi_bound, "static") ||
-      CCTK_EQUALS(phi_bound, "flat"  ) ||
-      CCTK_EQUALS(phi_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::phi", phi_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register phi_bound BC for ML_BSSN_O2::phi!");
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "none"  ) ||
-      CCTK_EQUALS(gt11_bound, "static") ||
-      CCTK_EQUALS(gt11_bound, "flat"  ) ||
-      CCTK_EQUALS(gt11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::gt11", gt11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt11_bound BC for ML_BSSN_O2::gt11!");
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "none"  ) ||
-      CCTK_EQUALS(gt12_bound, "static") ||
-      CCTK_EQUALS(gt12_bound, "flat"  ) ||
-      CCTK_EQUALS(gt12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::gt12", gt12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt12_bound BC for ML_BSSN_O2::gt12!");
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "none"  ) ||
-      CCTK_EQUALS(gt13_bound, "static") ||
-      CCTK_EQUALS(gt13_bound, "flat"  ) ||
-      CCTK_EQUALS(gt13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::gt13", gt13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt13_bound BC for ML_BSSN_O2::gt13!");
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "none"  ) ||
-      CCTK_EQUALS(gt22_bound, "static") ||
-      CCTK_EQUALS(gt22_bound, "flat"  ) ||
-      CCTK_EQUALS(gt22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::gt22", gt22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt22_bound BC for ML_BSSN_O2::gt22!");
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "none"  ) ||
-      CCTK_EQUALS(gt23_bound, "static") ||
-      CCTK_EQUALS(gt23_bound, "flat"  ) ||
-      CCTK_EQUALS(gt23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::gt23", gt23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt23_bound BC for ML_BSSN_O2::gt23!");
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "none"  ) ||
-      CCTK_EQUALS(gt33_bound, "static") ||
-      CCTK_EQUALS(gt33_bound, "flat"  ) ||
-      CCTK_EQUALS(gt33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::gt33", gt33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt33_bound BC for ML_BSSN_O2::gt33!");
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "none"  ) ||
-      CCTK_EQUALS(beta1_bound, "static") ||
-      CCTK_EQUALS(beta1_bound, "flat"  ) ||
-      CCTK_EQUALS(beta1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::beta1", beta1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta1_bound BC for ML_BSSN_O2::beta1!");
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "none"  ) ||
-      CCTK_EQUALS(beta2_bound, "static") ||
-      CCTK_EQUALS(beta2_bound, "flat"  ) ||
-      CCTK_EQUALS(beta2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::beta2", beta2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta2_bound BC for ML_BSSN_O2::beta2!");
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "none"  ) ||
-      CCTK_EQUALS(beta3_bound, "static") ||
-      CCTK_EQUALS(beta3_bound, "flat"  ) ||
-      CCTK_EQUALS(beta3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::beta3", beta3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta3_bound BC for ML_BSSN_O2::beta3!");
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "none"  ) ||
-      CCTK_EQUALS(trK_bound, "static") ||
-      CCTK_EQUALS(trK_bound, "flat"  ) ||
-      CCTK_EQUALS(trK_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O2::trK", trK_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register trK_bound BC for ML_BSSN_O2::trK!");
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound , ML_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_O2::ML_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound , ML_dtlapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_O2::ML_dtlapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound , ML_dtshift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_O2::ML_dtshift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound , ML_Gamma_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_O2::ML_Gamma", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound , ML_lapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_O2::ML_lapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound , ML_log_confac_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_O2::ML_log_confac", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound , ML_metric_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_O2::ML_metric", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound , ML_shift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_O2::ML_shift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound , ML_trace_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_O2::ML_trace_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound , At11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_O2::At11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound , At12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_O2::At12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound , At13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_O2::At13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound , At22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_O2::At22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound , At23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_O2::At23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound , At33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_O2::At33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound , A_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_O2::A", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound , B1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_O2::B1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound , B2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_O2::B2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound , B3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_O2::B3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound , Xt1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_O2::Xt1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound , Xt2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_O2::Xt2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound , Xt3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_O2::Xt3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound , alpha_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_O2::alpha", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound , phi_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_O2::phi", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound , gt11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_O2::gt11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound , gt12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_O2::gt12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound , gt13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_O2::gt13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound , gt22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_O2::gt22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound , gt23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_O2::gt23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound , gt33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_O2::gt33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound , beta1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_O2::beta1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound , beta2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_O2::beta2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound , beta3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_O2::beta3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound , trK_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_O2::trK", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O2::trK!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_O2::ML_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O2::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_O2::ML_dtlapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O2::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_O2::ML_dtshift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O2::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_O2::ML_Gamma", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O2::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_O2::ML_lapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O2::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_O2::ML_log_confac", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O2::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_O2::ML_metric", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O2::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_O2::ML_shift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O2::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_O2::ML_trace_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O2::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_O2::At11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_O2::At12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_O2::At13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_O2::At22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_O2::At23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_O2::At33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_O2::A", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_O2::B1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_O2::B2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_O2::B3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_O2::Xt1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_O2::Xt2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_O2::Xt3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_O2::alpha", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_O2::phi", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_O2::gt11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_O2::gt12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_O2::gt13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_O2::gt22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_O2::gt23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_O2::gt33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_O2::beta1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_O2::beta2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_O2::beta3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_O2::trK", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O2::trK!");
-  
-  }
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-#$bound$#ML_BSSN_O2::ML_curv_bound       = "skip"
-#$bound$#ML_BSSN_O2::ML_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::ML_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::ML_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::ML_dtlapse_bound       = "skip"
-#$bound$#ML_BSSN_O2::ML_dtlapse_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::ML_dtlapse_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::ML_dtlapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::ML_dtshift_bound       = "skip"
-#$bound$#ML_BSSN_O2::ML_dtshift_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::ML_dtshift_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::ML_dtshift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::ML_Gamma_bound       = "skip"
-#$bound$#ML_BSSN_O2::ML_Gamma_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::ML_Gamma_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::ML_Gamma_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::ML_lapse_bound       = "skip"
-#$bound$#ML_BSSN_O2::ML_lapse_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::ML_lapse_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::ML_lapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::ML_log_confac_bound       = "skip"
-#$bound$#ML_BSSN_O2::ML_log_confac_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::ML_log_confac_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::ML_log_confac_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::ML_metric_bound       = "skip"
-#$bound$#ML_BSSN_O2::ML_metric_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::ML_metric_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::ML_metric_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::ML_shift_bound       = "skip"
-#$bound$#ML_BSSN_O2::ML_shift_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::ML_shift_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::ML_shift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::ML_trace_curv_bound       = "skip"
-#$bound$#ML_BSSN_O2::ML_trace_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::ML_trace_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::ML_trace_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::At11_bound       = "skip"
-#$bound$#ML_BSSN_O2::At11_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::At11_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::At11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::At12_bound       = "skip"
-#$bound$#ML_BSSN_O2::At12_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::At12_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::At12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::At13_bound       = "skip"
-#$bound$#ML_BSSN_O2::At13_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::At13_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::At13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::At22_bound       = "skip"
-#$bound$#ML_BSSN_O2::At22_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::At22_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::At22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::At23_bound       = "skip"
-#$bound$#ML_BSSN_O2::At23_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::At23_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::At23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::At33_bound       = "skip"
-#$bound$#ML_BSSN_O2::At33_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::At33_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::At33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::A_bound       = "skip"
-#$bound$#ML_BSSN_O2::A_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::A_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::A_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::B1_bound       = "skip"
-#$bound$#ML_BSSN_O2::B1_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::B1_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::B1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::B2_bound       = "skip"
-#$bound$#ML_BSSN_O2::B2_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::B2_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::B2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::B3_bound       = "skip"
-#$bound$#ML_BSSN_O2::B3_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::B3_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::B3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::Xt1_bound       = "skip"
-#$bound$#ML_BSSN_O2::Xt1_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::Xt1_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::Xt1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::Xt2_bound       = "skip"
-#$bound$#ML_BSSN_O2::Xt2_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::Xt2_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::Xt2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::Xt3_bound       = "skip"
-#$bound$#ML_BSSN_O2::Xt3_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::Xt3_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::Xt3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::alpha_bound       = "skip"
-#$bound$#ML_BSSN_O2::alpha_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::alpha_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::alpha_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::phi_bound       = "skip"
-#$bound$#ML_BSSN_O2::phi_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::phi_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::phi_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::gt11_bound       = "skip"
-#$bound$#ML_BSSN_O2::gt11_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::gt11_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::gt11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::gt12_bound       = "skip"
-#$bound$#ML_BSSN_O2::gt12_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::gt12_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::gt12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::gt13_bound       = "skip"
-#$bound$#ML_BSSN_O2::gt13_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::gt13_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::gt13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::gt22_bound       = "skip"
-#$bound$#ML_BSSN_O2::gt22_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::gt22_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::gt22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::gt23_bound       = "skip"
-#$bound$#ML_BSSN_O2::gt23_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::gt23_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::gt23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::gt33_bound       = "skip"
-#$bound$#ML_BSSN_O2::gt33_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::gt33_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::gt33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::beta1_bound       = "skip"
-#$bound$#ML_BSSN_O2::beta1_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::beta1_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::beta1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::beta2_bound       = "skip"
-#$bound$#ML_BSSN_O2::beta2_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::beta2_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::beta2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::beta3_bound       = "skip"
-#$bound$#ML_BSSN_O2::beta3_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::beta3_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::beta3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O2::trK_bound       = "skip"
-#$bound$#ML_BSSN_O2::trK_bound_speed = 1.0
-#$bound$#ML_BSSN_O2::trK_bound_limit = 0.0
-#$bound$#ML_BSSN_O2::trK_bound_scalar = 0.0
-
-*/
-
diff --git a/ML_BSSN_O2/src/Differencing.h b/ML_BSSN_O2/src/Differencing.h
deleted file mode 100644
index 96a0554..0000000
--- a/ML_BSSN_O2/src/Differencing.h
+++ /dev/null
@@ -1,1146 +0,0 @@
-#include <assert.h>
-#include "vectors.h"
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder21(u) (kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0))))
-#else
-#  define PDstandardNthfdOrder21(u) (PDstandardNthfdOrder21_impl(u,p1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder22(u) (kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0))))
-#else
-#  define PDstandardNthfdOrder22(u) (PDstandardNthfdOrder22_impl(u,p1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder23(u) (kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1))))
-#else
-#  define PDstandardNthfdOrder23(u) (PDstandardNthfdOrder23_impl(u,p1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder41(u) (kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDstandardNthfdOrder41(u) (PDstandardNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder42(u) (kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDstandardNthfdOrder42(u) (PDstandardNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder43(u) (kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDstandardNthfdOrder43(u) (PDstandardNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder61(u) (kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDstandardNthfdOrder61(u) (PDstandardNthfdOrder61_impl(u,p1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder62(u) (kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDstandardNthfdOrder62(u) (PDstandardNthfdOrder62_impl(u,p1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder63(u) (kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDstandardNthfdOrder63(u) (PDstandardNthfdOrder63_impl(u,p1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder81(u) (kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder81(u) (PDstandardNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder82(u) (kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder82(u) (PDstandardNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder83(u) (kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder83(u) (PDstandardNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder211(u) (kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0)))))
-#else
-#  define PDstandardNthfdOrder211(u) (PDstandardNthfdOrder211_impl(u,p1odx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder222(u) (kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0)))))
-#else
-#  define PDstandardNthfdOrder222(u) (PDstandardNthfdOrder222_impl(u,p1ody2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder233(u) (kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1)))))
-#else
-#  define PDstandardNthfdOrder233(u) (PDstandardNthfdOrder233_impl(u,p1odz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder411(u) (kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder411(u) (PDstandardNthfdOrder411_impl(u,pm1o12dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder422(u) (kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder422(u) (PDstandardNthfdOrder422_impl(u,pm1o12dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder433(u) (kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder433(u) (PDstandardNthfdOrder433_impl(u,pm1o12dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder611(u) (kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder611(u) (PDstandardNthfdOrder611_impl(u,p1o180dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder622(u) (kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder622(u) (PDstandardNthfdOrder622_impl(u,p1o180dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder633(u) (kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder633(u) (PDstandardNthfdOrder633_impl(u,p1o180dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder811(u) (kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder811(u) (PDstandardNthfdOrder811_impl(u,p1o5040dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder822(u) (kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder822(u) (PDstandardNthfdOrder822_impl(u,p1o5040dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder833(u) (kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder833(u) (PDstandardNthfdOrder833_impl(u,p1o5040dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder212(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder212(u) (PDstandardNthfdOrder212_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder213(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder213(u) (PDstandardNthfdOrder213_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder221(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder221(u) (PDstandardNthfdOrder221_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder223(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder223(u) (PDstandardNthfdOrder223_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder231(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder231(u) (PDstandardNthfdOrder231_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder232(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder232(u) (PDstandardNthfdOrder232_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder412(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder412(u) (PDstandardNthfdOrder412_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder413(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder413(u) (PDstandardNthfdOrder413_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder421(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder421(u) (PDstandardNthfdOrder421_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder423(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder423(u) (PDstandardNthfdOrder423_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder431(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder431(u) (PDstandardNthfdOrder431_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder432(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder432(u) (PDstandardNthfdOrder432_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder612(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder612(u) (PDstandardNthfdOrder612_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder613(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder613(u) (PDstandardNthfdOrder613_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder621(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder621(u) (PDstandardNthfdOrder621_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder623(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder623(u) (PDstandardNthfdOrder623_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder631(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder631(u) (PDstandardNthfdOrder631_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder632(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder632(u) (PDstandardNthfdOrder632_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder812(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder812(u) (PDstandardNthfdOrder812_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder813(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder813(u) (PDstandardNthfdOrder813_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder821(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder821(u) (PDstandardNthfdOrder821_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder823(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder823(u) (PDstandardNthfdOrder823_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder831(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder831(u) (PDstandardNthfdOrder831_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder832(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder832(u) (PDstandardNthfdOrder832_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder21(u) (kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder21(u) (PDdissipationNthfdOrder21_impl(u,p1o16dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder22(u) (kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder22(u) (PDdissipationNthfdOrder22_impl(u,p1o16dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder23(u) (kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder23(u) (PDdissipationNthfdOrder23_impl(u,p1o16dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder41(u) (kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder41(u) (PDdissipationNthfdOrder41_impl(u,p1o64dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder42(u) (kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder42(u) (PDdissipationNthfdOrder42_impl(u,p1o64dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder43(u) (kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder43(u) (PDdissipationNthfdOrder43_impl(u,p1o64dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder61(u) (kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder61(u) (PDdissipationNthfdOrder61_impl(u,p1o256dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder62(u) (kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder62(u) (PDdissipationNthfdOrder62_impl(u,p1o256dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder63(u) (kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder63(u) (PDdissipationNthfdOrder63_impl(u,p1o256dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder81(u) (kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder81(u) (PDdissipationNthfdOrder81_impl(u,p1o1024dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder82(u) (kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder82(u) (PDdissipationNthfdOrder82_impl(u,p1o1024dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder83(u) (kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder83(u) (PDdissipationNthfdOrder83_impl(u,p1o1024dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder21(u) (kmul(pm1o2dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder21(u) (PDupwindNthfdOrder21_impl(u,pm1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder41(u) (kmul(p1o12dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder41(u) (PDupwindNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder61(u) (kmul(pm1o60dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder61(u) (PDupwindNthfdOrder61_impl(u,pm1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder81(u) (kmul(p1o840dx,kmul(dir1,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,-3,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder81(u) (PDupwindNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder21(u) (kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDupwindNthAntifdOrder21(u) (PDupwindNthAntifdOrder21_impl(u,p1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDupwindNthAntifdOrder41(u) (PDupwindNthAntifdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder61(u) (kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0))))))))
-#else
-#  define PDupwindNthAntifdOrder61(u) (PDupwindNthAntifdOrder61_impl(u,p1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder81(u) (kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder81(u) (PDupwindNthAntifdOrder81_impl(u,p1o1680dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder21(u) (kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder21(u) (PDupwindNthSymmfdOrder21_impl(u,pm1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder41(u) (PDupwindNthSymmfdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder61(u) (kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder61(u) (PDupwindNthSymmfdOrder61_impl(u,pm1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder81(u) (kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder81(u) (PDupwindNthSymmfdOrder81_impl(u,p1o560dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided1(u) (kmul(p1odx,kmul(dir1,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided1(u) (PDonesided1_impl(u,p1odx,cdj,cdk))
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder22(u) (kmul(pm1o2dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder22(u) (PDupwindNthfdOrder22_impl(u,pm1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder42(u) (kmul(p1o12dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder42(u) (PDupwindNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder62(u) (kmul(pm1o60dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder62(u) (PDupwindNthfdOrder62_impl(u,pm1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder82(u) (kmul(p1o840dy,kmul(dir2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,-3,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder82(u) (PDupwindNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder22(u) (kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDupwindNthAntifdOrder22(u) (PDupwindNthAntifdOrder22_impl(u,p1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDupwindNthAntifdOrder42(u) (PDupwindNthAntifdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder62(u) (kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0))))))))
-#else
-#  define PDupwindNthAntifdOrder62(u) (PDupwindNthAntifdOrder62_impl(u,p1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder82(u) (kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder82(u) (PDupwindNthAntifdOrder82_impl(u,p1o1680dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder22(u) (kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder22(u) (PDupwindNthSymmfdOrder22_impl(u,pm1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder42(u) (PDupwindNthSymmfdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder62(u) (kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder62(u) (PDupwindNthSymmfdOrder62_impl(u,pm1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder82(u) (kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder82(u) (PDupwindNthSymmfdOrder82_impl(u,p1o560dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided2(u) (kmul(p1ody,kmul(dir2,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided2(u) (PDonesided2_impl(u,p1ody,cdj,cdk))
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder23(u) (kmul(pm1o2dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder23(u) (PDupwindNthfdOrder23_impl(u,pm1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder43(u) (kmul(p1o12dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder43(u) (PDupwindNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder63(u) (kmul(pm1o60dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder63(u) (PDupwindNthfdOrder63_impl(u,pm1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder83(u) (kmul(p1o840dz,kmul(dir3,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,0,-3),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder83(u) (PDupwindNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder23(u) (kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDupwindNthAntifdOrder23(u) (PDupwindNthAntifdOrder23_impl(u,p1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDupwindNthAntifdOrder43(u) (PDupwindNthAntifdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder63(u) (kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4))))))))
-#else
-#  define PDupwindNthAntifdOrder63(u) (PDupwindNthAntifdOrder63_impl(u,p1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder83(u) (kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder83(u) (PDupwindNthAntifdOrder83_impl(u,p1o1680dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder23(u) (kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder23(u) (PDupwindNthSymmfdOrder23_impl(u,pm1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder43(u) (PDupwindNthSymmfdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder63(u) (kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder63(u) (PDupwindNthSymmfdOrder63_impl(u,pm1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder83(u) (kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder83(u) (PDupwindNthSymmfdOrder83_impl(u,p1o560dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided3(u) (kmul(p1odz,kmul(dir3,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided3(u) (PDonesided3_impl(u,p1odz,cdj,cdk))
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_Advect.cc b/ML_BSSN_O2/src/ML_BSSN_O2_Advect.cc
deleted file mode 100644
index e0c80a1..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_Advect.cc
+++ /dev/null
@@ -1,2155 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_Advect_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O2_Advect_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_Advect,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNthAnti1A;
-    CCTK_REAL_VEC PDupwindNthSymm1A;
-    CCTK_REAL_VEC PDupwindNthAnti2A;
-    CCTK_REAL_VEC PDupwindNthSymm2A;
-    CCTK_REAL_VEC PDupwindNthAnti3A;
-    CCTK_REAL_VEC PDupwindNthSymm3A;
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1At11;
-    CCTK_REAL_VEC PDupwindNthSymm1At11;
-    CCTK_REAL_VEC PDupwindNthAnti2At11;
-    CCTK_REAL_VEC PDupwindNthSymm2At11;
-    CCTK_REAL_VEC PDupwindNthAnti3At11;
-    CCTK_REAL_VEC PDupwindNthSymm3At11;
-    CCTK_REAL_VEC PDupwindNthAnti1At12;
-    CCTK_REAL_VEC PDupwindNthSymm1At12;
-    CCTK_REAL_VEC PDupwindNthAnti2At12;
-    CCTK_REAL_VEC PDupwindNthSymm2At12;
-    CCTK_REAL_VEC PDupwindNthAnti3At12;
-    CCTK_REAL_VEC PDupwindNthSymm3At12;
-    CCTK_REAL_VEC PDupwindNthAnti1At13;
-    CCTK_REAL_VEC PDupwindNthSymm1At13;
-    CCTK_REAL_VEC PDupwindNthAnti2At13;
-    CCTK_REAL_VEC PDupwindNthSymm2At13;
-    CCTK_REAL_VEC PDupwindNthAnti3At13;
-    CCTK_REAL_VEC PDupwindNthSymm3At13;
-    CCTK_REAL_VEC PDupwindNthAnti1At22;
-    CCTK_REAL_VEC PDupwindNthSymm1At22;
-    CCTK_REAL_VEC PDupwindNthAnti2At22;
-    CCTK_REAL_VEC PDupwindNthSymm2At22;
-    CCTK_REAL_VEC PDupwindNthAnti3At22;
-    CCTK_REAL_VEC PDupwindNthSymm3At22;
-    CCTK_REAL_VEC PDupwindNthAnti1At23;
-    CCTK_REAL_VEC PDupwindNthSymm1At23;
-    CCTK_REAL_VEC PDupwindNthAnti2At23;
-    CCTK_REAL_VEC PDupwindNthSymm2At23;
-    CCTK_REAL_VEC PDupwindNthAnti3At23;
-    CCTK_REAL_VEC PDupwindNthSymm3At23;
-    CCTK_REAL_VEC PDupwindNthAnti1At33;
-    CCTK_REAL_VEC PDupwindNthSymm1At33;
-    CCTK_REAL_VEC PDupwindNthAnti2At33;
-    CCTK_REAL_VEC PDupwindNthSymm2At33;
-    CCTK_REAL_VEC PDupwindNthAnti3At33;
-    CCTK_REAL_VEC PDupwindNthSymm3At33;
-    CCTK_REAL_VEC PDupwindNthAnti1B1;
-    CCTK_REAL_VEC PDupwindNthSymm1B1;
-    CCTK_REAL_VEC PDupwindNthAnti2B1;
-    CCTK_REAL_VEC PDupwindNthSymm2B1;
-    CCTK_REAL_VEC PDupwindNthAnti3B1;
-    CCTK_REAL_VEC PDupwindNthSymm3B1;
-    CCTK_REAL_VEC PDupwindNthAnti1B2;
-    CCTK_REAL_VEC PDupwindNthSymm1B2;
-    CCTK_REAL_VEC PDupwindNthAnti2B2;
-    CCTK_REAL_VEC PDupwindNthSymm2B2;
-    CCTK_REAL_VEC PDupwindNthAnti3B2;
-    CCTK_REAL_VEC PDupwindNthSymm3B2;
-    CCTK_REAL_VEC PDupwindNthAnti1B3;
-    CCTK_REAL_VEC PDupwindNthSymm1B3;
-    CCTK_REAL_VEC PDupwindNthAnti2B3;
-    CCTK_REAL_VEC PDupwindNthSymm2B3;
-    CCTK_REAL_VEC PDupwindNthAnti3B3;
-    CCTK_REAL_VEC PDupwindNthSymm3B3;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDupwindNthAnti1gt11;
-    CCTK_REAL_VEC PDupwindNthSymm1gt11;
-    CCTK_REAL_VEC PDupwindNthAnti2gt11;
-    CCTK_REAL_VEC PDupwindNthSymm2gt11;
-    CCTK_REAL_VEC PDupwindNthAnti3gt11;
-    CCTK_REAL_VEC PDupwindNthSymm3gt11;
-    CCTK_REAL_VEC PDupwindNthAnti1gt12;
-    CCTK_REAL_VEC PDupwindNthSymm1gt12;
-    CCTK_REAL_VEC PDupwindNthAnti2gt12;
-    CCTK_REAL_VEC PDupwindNthSymm2gt12;
-    CCTK_REAL_VEC PDupwindNthAnti3gt12;
-    CCTK_REAL_VEC PDupwindNthSymm3gt12;
-    CCTK_REAL_VEC PDupwindNthAnti1gt13;
-    CCTK_REAL_VEC PDupwindNthSymm1gt13;
-    CCTK_REAL_VEC PDupwindNthAnti2gt13;
-    CCTK_REAL_VEC PDupwindNthSymm2gt13;
-    CCTK_REAL_VEC PDupwindNthAnti3gt13;
-    CCTK_REAL_VEC PDupwindNthSymm3gt13;
-    CCTK_REAL_VEC PDupwindNthAnti1gt22;
-    CCTK_REAL_VEC PDupwindNthSymm1gt22;
-    CCTK_REAL_VEC PDupwindNthAnti2gt22;
-    CCTK_REAL_VEC PDupwindNthSymm2gt22;
-    CCTK_REAL_VEC PDupwindNthAnti3gt22;
-    CCTK_REAL_VEC PDupwindNthSymm3gt22;
-    CCTK_REAL_VEC PDupwindNthAnti1gt23;
-    CCTK_REAL_VEC PDupwindNthSymm1gt23;
-    CCTK_REAL_VEC PDupwindNthAnti2gt23;
-    CCTK_REAL_VEC PDupwindNthSymm2gt23;
-    CCTK_REAL_VEC PDupwindNthAnti3gt23;
-    CCTK_REAL_VEC PDupwindNthSymm3gt23;
-    CCTK_REAL_VEC PDupwindNthAnti1gt33;
-    CCTK_REAL_VEC PDupwindNthSymm1gt33;
-    CCTK_REAL_VEC PDupwindNthAnti2gt33;
-    CCTK_REAL_VEC PDupwindNthSymm2gt33;
-    CCTK_REAL_VEC PDupwindNthAnti3gt33;
-    CCTK_REAL_VEC PDupwindNthSymm3gt33;
-    CCTK_REAL_VEC PDupwindNthAnti1phi;
-    CCTK_REAL_VEC PDupwindNthSymm1phi;
-    CCTK_REAL_VEC PDupwindNthAnti2phi;
-    CCTK_REAL_VEC PDupwindNthSymm2phi;
-    CCTK_REAL_VEC PDupwindNthAnti3phi;
-    CCTK_REAL_VEC PDupwindNthSymm3phi;
-    CCTK_REAL_VEC PDupwindNthAnti1trK;
-    CCTK_REAL_VEC PDupwindNthSymm1trK;
-    CCTK_REAL_VEC PDupwindNthAnti2trK;
-    CCTK_REAL_VEC PDupwindNthSymm2trK;
-    CCTK_REAL_VEC PDupwindNthAnti3trK;
-    CCTK_REAL_VEC PDupwindNthSymm3trK;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt3;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt3;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder21(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder21(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder22(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder22(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder23(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder23(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder21(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder21(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder22(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder22(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder23(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder23(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder21(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder21(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder22(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder22(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder23(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder23(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder21(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder21(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder22(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder22(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder23(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder23(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder21(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder21(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder22(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder22(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder23(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder23(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder21(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder21(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder22(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder22(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder23(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder23(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder21(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder21(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder22(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder22(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder23(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder23(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder21(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder21(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder22(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder22(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder23(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder23(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder21(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder21(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder22(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder22(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder23(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder23(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder21(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder21(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder22(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder22(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder23(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder23(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder21(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder21(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder22(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder22(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder23(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder23(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder21(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder21(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder22(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder22(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder23(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder23(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder21(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder21(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder22(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder22(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder23(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder23(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder21(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder21(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder22(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder22(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder23(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder23(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder21(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder21(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder22(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder22(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder23(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder23(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder21(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder21(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder22(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder22(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder23(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder23(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder21(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder21(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder22(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder22(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder23(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder23(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder21(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder21(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder22(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder22(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder23(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder23(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder21(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder21(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder22(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder22(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder23(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder23(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder21(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder21(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder22(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder22(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder23(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder23(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder21(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder21(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder22(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder22(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder23(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder41(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder41(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder42(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder42(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder43(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder43(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder41(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder41(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder42(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder42(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder43(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder43(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder41(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder41(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder42(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder42(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder43(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder43(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder41(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder41(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder42(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder42(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder43(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder43(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder41(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder41(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder42(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder42(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder43(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder43(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder41(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder41(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder42(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder42(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder43(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder43(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder41(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder41(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder42(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder42(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder43(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder43(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder41(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder41(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder42(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder42(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder43(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder43(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder41(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder41(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder42(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder42(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder43(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder43(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder41(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder41(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder42(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder42(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder43(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder43(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder41(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder41(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder42(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder42(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder43(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder43(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder41(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder41(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder42(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder42(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder43(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder43(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder41(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder41(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder42(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder42(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder43(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder43(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder41(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder41(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder42(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder42(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder43(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder43(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder41(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder41(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder42(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder42(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder43(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder43(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder41(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder41(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder42(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder42(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder43(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder43(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder41(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder41(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder42(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder42(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder43(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder43(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder41(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder41(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder42(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder42(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder43(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder43(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder41(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder41(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder42(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder42(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder43(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder43(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder41(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder41(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder42(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder42(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder43(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder43(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder41(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder41(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder42(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder42(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder43(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder61(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder61(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder62(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder62(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder63(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder63(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder61(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder61(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder62(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder62(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder63(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder63(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder61(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder61(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder62(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder62(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder63(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder63(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder61(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder61(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder62(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder62(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder63(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder63(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder61(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder61(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder62(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder62(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder63(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder63(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder61(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder61(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder62(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder62(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder63(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder63(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder61(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder61(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder62(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder62(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder63(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder63(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder61(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder61(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder62(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder62(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder63(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder63(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder61(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder61(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder62(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder62(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder63(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder63(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder61(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder61(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder62(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder62(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder63(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder63(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder61(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder61(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder62(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder62(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder63(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder63(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder61(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder61(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder62(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder62(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder63(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder63(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder61(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder61(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder62(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder62(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder63(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder63(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder61(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder61(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder62(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder62(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder63(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder63(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder61(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder61(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder62(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder62(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder63(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder63(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder61(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder61(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder62(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder62(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder63(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder63(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder61(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder61(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder62(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder62(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder63(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder63(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder61(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder61(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder62(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder62(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder63(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder63(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder61(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder61(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder62(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder62(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder63(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder63(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder61(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder61(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder62(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder62(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder63(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder63(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder61(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder61(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder62(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder62(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder63(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder81(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder81(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder82(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder82(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder83(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder83(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder81(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder81(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder82(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder82(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder83(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder83(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder81(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder81(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder82(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder82(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder83(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder83(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder81(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder81(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder82(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder82(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder83(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder83(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder81(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder81(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder82(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder82(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder83(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder83(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder81(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder81(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder82(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder82(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder83(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder83(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder81(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder81(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder82(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder82(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder83(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder83(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder81(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder81(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder82(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder82(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder83(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder83(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder81(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder81(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder82(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder82(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder83(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder83(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder81(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder81(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder82(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder82(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder83(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder83(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder81(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder81(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder82(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder82(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder83(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder83(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder81(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder81(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder82(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder82(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder83(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder83(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder81(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder81(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder82(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder82(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder83(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder83(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder81(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder81(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder82(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder82(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder83(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder83(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder81(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder81(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder82(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder82(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder83(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder83(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder81(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder81(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder82(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder82(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder83(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder83(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder81(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder81(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder82(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder82(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder83(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder83(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder81(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder81(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder82(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder82(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder83(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder83(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder81(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder81(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder82(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder82(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder83(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder83(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder81(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder81(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder82(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder82(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder83(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder83(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder81(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder81(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder82(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder82(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder83(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDupwindNthAnti1A;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti1trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2A;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti2phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti2trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3A;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti3phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti3trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1A;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm1phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm1trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2A;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm2phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm2trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3A;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm3phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm3trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDupwindNthAnti1A = 
-        kmadd(J11L,PDupwindNthAnti1A,kmadd(J21L,PDupwindNthAnti2A,kmul(J31L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1At11 = 
-        kmadd(J11L,PDupwindNthAnti1At11,kmadd(J21L,PDupwindNthAnti2At11,kmul(J31L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti1At12 = 
-        kmadd(J11L,PDupwindNthAnti1At12,kmadd(J21L,PDupwindNthAnti2At12,kmul(J31L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti1At13 = 
-        kmadd(J11L,PDupwindNthAnti1At13,kmadd(J21L,PDupwindNthAnti2At13,kmul(J31L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti1At22 = 
-        kmadd(J11L,PDupwindNthAnti1At22,kmadd(J21L,PDupwindNthAnti2At22,kmul(J31L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti1At23 = 
-        kmadd(J11L,PDupwindNthAnti1At23,kmadd(J21L,PDupwindNthAnti2At23,kmul(J31L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti1At33 = 
-        kmadd(J11L,PDupwindNthAnti1At33,kmadd(J21L,PDupwindNthAnti2At33,kmul(J31L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti1B1 = 
-        kmadd(J11L,PDupwindNthAnti1B1,kmadd(J21L,PDupwindNthAnti2B1,kmul(J31L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti1B2 = 
-        kmadd(J11L,PDupwindNthAnti1B2,kmadd(J21L,PDupwindNthAnti2B2,kmul(J31L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti1B3 = 
-        kmadd(J11L,PDupwindNthAnti1B3,kmadd(J21L,PDupwindNthAnti2B3,kmul(J31L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti1gt11 = 
-        kmadd(J11L,PDupwindNthAnti1gt11,kmadd(J21L,PDupwindNthAnti2gt11,kmul(J31L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti1gt12 = 
-        kmadd(J11L,PDupwindNthAnti1gt12,kmadd(J21L,PDupwindNthAnti2gt12,kmul(J31L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti1gt13 = 
-        kmadd(J11L,PDupwindNthAnti1gt13,kmadd(J21L,PDupwindNthAnti2gt13,kmul(J31L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti1gt22 = 
-        kmadd(J11L,PDupwindNthAnti1gt22,kmadd(J21L,PDupwindNthAnti2gt22,kmul(J31L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti1gt23 = 
-        kmadd(J11L,PDupwindNthAnti1gt23,kmadd(J21L,PDupwindNthAnti2gt23,kmul(J31L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti1gt33 = 
-        kmadd(J11L,PDupwindNthAnti1gt33,kmadd(J21L,PDupwindNthAnti2gt33,kmul(J31L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti1phi = 
-        kmadd(J11L,PDupwindNthAnti1phi,kmadd(J21L,PDupwindNthAnti2phi,kmul(J31L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti1trK = 
-        kmadd(J11L,PDupwindNthAnti1trK,kmadd(J21L,PDupwindNthAnti2trK,kmul(J31L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti1Xt1 = 
-        kmadd(J11L,PDupwindNthAnti1Xt1,kmadd(J21L,PDupwindNthAnti2Xt1,kmul(J31L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti1Xt2 = 
-        kmadd(J11L,PDupwindNthAnti1Xt2,kmadd(J21L,PDupwindNthAnti2Xt2,kmul(J31L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti1Xt3 = 
-        kmadd(J11L,PDupwindNthAnti1Xt3,kmadd(J21L,PDupwindNthAnti2Xt3,kmul(J31L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm1A = 
-        kmadd(J11L,PDupwindNthSymm1A,kmadd(J21L,PDupwindNthSymm2A,kmul(J31L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1At11 = 
-        kmadd(J11L,PDupwindNthSymm1At11,kmadd(J21L,PDupwindNthSymm2At11,kmul(J31L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm1At12 = 
-        kmadd(J11L,PDupwindNthSymm1At12,kmadd(J21L,PDupwindNthSymm2At12,kmul(J31L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm1At13 = 
-        kmadd(J11L,PDupwindNthSymm1At13,kmadd(J21L,PDupwindNthSymm2At13,kmul(J31L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm1At22 = 
-        kmadd(J11L,PDupwindNthSymm1At22,kmadd(J21L,PDupwindNthSymm2At22,kmul(J31L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm1At23 = 
-        kmadd(J11L,PDupwindNthSymm1At23,kmadd(J21L,PDupwindNthSymm2At23,kmul(J31L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm1At33 = 
-        kmadd(J11L,PDupwindNthSymm1At33,kmadd(J21L,PDupwindNthSymm2At33,kmul(J31L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm1B1 = 
-        kmadd(J11L,PDupwindNthSymm1B1,kmadd(J21L,PDupwindNthSymm2B1,kmul(J31L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm1B2 = 
-        kmadd(J11L,PDupwindNthSymm1B2,kmadd(J21L,PDupwindNthSymm2B2,kmul(J31L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm1B3 = 
-        kmadd(J11L,PDupwindNthSymm1B3,kmadd(J21L,PDupwindNthSymm2B3,kmul(J31L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm1gt11 = 
-        kmadd(J11L,PDupwindNthSymm1gt11,kmadd(J21L,PDupwindNthSymm2gt11,kmul(J31L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm1gt12 = 
-        kmadd(J11L,PDupwindNthSymm1gt12,kmadd(J21L,PDupwindNthSymm2gt12,kmul(J31L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm1gt13 = 
-        kmadd(J11L,PDupwindNthSymm1gt13,kmadd(J21L,PDupwindNthSymm2gt13,kmul(J31L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm1gt22 = 
-        kmadd(J11L,PDupwindNthSymm1gt22,kmadd(J21L,PDupwindNthSymm2gt22,kmul(J31L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm1gt23 = 
-        kmadd(J11L,PDupwindNthSymm1gt23,kmadd(J21L,PDupwindNthSymm2gt23,kmul(J31L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm1gt33 = 
-        kmadd(J11L,PDupwindNthSymm1gt33,kmadd(J21L,PDupwindNthSymm2gt33,kmul(J31L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm1phi = 
-        kmadd(J11L,PDupwindNthSymm1phi,kmadd(J21L,PDupwindNthSymm2phi,kmul(J31L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm1trK = 
-        kmadd(J11L,PDupwindNthSymm1trK,kmadd(J21L,PDupwindNthSymm2trK,kmul(J31L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm1Xt1 = 
-        kmadd(J11L,PDupwindNthSymm1Xt1,kmadd(J21L,PDupwindNthSymm2Xt1,kmul(J31L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm1Xt2 = 
-        kmadd(J11L,PDupwindNthSymm1Xt2,kmadd(J21L,PDupwindNthSymm2Xt2,kmul(J31L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm1Xt3 = 
-        kmadd(J11L,PDupwindNthSymm1Xt3,kmadd(J21L,PDupwindNthSymm2Xt3,kmul(J31L,PDupwindNthSymm3Xt3)));
-      
-      JacPDupwindNthAnti2A = 
-        kmadd(J12L,PDupwindNthAnti1A,kmadd(J22L,PDupwindNthAnti2A,kmul(J32L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2At11 = 
-        kmadd(J12L,PDupwindNthAnti1At11,kmadd(J22L,PDupwindNthAnti2At11,kmul(J32L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti2At12 = 
-        kmadd(J12L,PDupwindNthAnti1At12,kmadd(J22L,PDupwindNthAnti2At12,kmul(J32L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti2At13 = 
-        kmadd(J12L,PDupwindNthAnti1At13,kmadd(J22L,PDupwindNthAnti2At13,kmul(J32L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti2At22 = 
-        kmadd(J12L,PDupwindNthAnti1At22,kmadd(J22L,PDupwindNthAnti2At22,kmul(J32L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti2At23 = 
-        kmadd(J12L,PDupwindNthAnti1At23,kmadd(J22L,PDupwindNthAnti2At23,kmul(J32L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti2At33 = 
-        kmadd(J12L,PDupwindNthAnti1At33,kmadd(J22L,PDupwindNthAnti2At33,kmul(J32L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti2B1 = 
-        kmadd(J12L,PDupwindNthAnti1B1,kmadd(J22L,PDupwindNthAnti2B1,kmul(J32L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti2B2 = 
-        kmadd(J12L,PDupwindNthAnti1B2,kmadd(J22L,PDupwindNthAnti2B2,kmul(J32L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti2B3 = 
-        kmadd(J12L,PDupwindNthAnti1B3,kmadd(J22L,PDupwindNthAnti2B3,kmul(J32L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti2gt11 = 
-        kmadd(J12L,PDupwindNthAnti1gt11,kmadd(J22L,PDupwindNthAnti2gt11,kmul(J32L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti2gt12 = 
-        kmadd(J12L,PDupwindNthAnti1gt12,kmadd(J22L,PDupwindNthAnti2gt12,kmul(J32L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti2gt13 = 
-        kmadd(J12L,PDupwindNthAnti1gt13,kmadd(J22L,PDupwindNthAnti2gt13,kmul(J32L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti2gt22 = 
-        kmadd(J12L,PDupwindNthAnti1gt22,kmadd(J22L,PDupwindNthAnti2gt22,kmul(J32L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti2gt23 = 
-        kmadd(J12L,PDupwindNthAnti1gt23,kmadd(J22L,PDupwindNthAnti2gt23,kmul(J32L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti2gt33 = 
-        kmadd(J12L,PDupwindNthAnti1gt33,kmadd(J22L,PDupwindNthAnti2gt33,kmul(J32L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti2phi = 
-        kmadd(J12L,PDupwindNthAnti1phi,kmadd(J22L,PDupwindNthAnti2phi,kmul(J32L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti2trK = 
-        kmadd(J12L,PDupwindNthAnti1trK,kmadd(J22L,PDupwindNthAnti2trK,kmul(J32L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti2Xt1 = 
-        kmadd(J12L,PDupwindNthAnti1Xt1,kmadd(J22L,PDupwindNthAnti2Xt1,kmul(J32L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti2Xt2 = 
-        kmadd(J12L,PDupwindNthAnti1Xt2,kmadd(J22L,PDupwindNthAnti2Xt2,kmul(J32L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti2Xt3 = 
-        kmadd(J12L,PDupwindNthAnti1Xt3,kmadd(J22L,PDupwindNthAnti2Xt3,kmul(J32L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm2A = 
-        kmadd(J12L,PDupwindNthSymm1A,kmadd(J22L,PDupwindNthSymm2A,kmul(J32L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2At11 = 
-        kmadd(J12L,PDupwindNthSymm1At11,kmadd(J22L,PDupwindNthSymm2At11,kmul(J32L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm2At12 = 
-        kmadd(J12L,PDupwindNthSymm1At12,kmadd(J22L,PDupwindNthSymm2At12,kmul(J32L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm2At13 = 
-        kmadd(J12L,PDupwindNthSymm1At13,kmadd(J22L,PDupwindNthSymm2At13,kmul(J32L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm2At22 = 
-        kmadd(J12L,PDupwindNthSymm1At22,kmadd(J22L,PDupwindNthSymm2At22,kmul(J32L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm2At23 = 
-        kmadd(J12L,PDupwindNthSymm1At23,kmadd(J22L,PDupwindNthSymm2At23,kmul(J32L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm2At33 = 
-        kmadd(J12L,PDupwindNthSymm1At33,kmadd(J22L,PDupwindNthSymm2At33,kmul(J32L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm2B1 = 
-        kmadd(J12L,PDupwindNthSymm1B1,kmadd(J22L,PDupwindNthSymm2B1,kmul(J32L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm2B2 = 
-        kmadd(J12L,PDupwindNthSymm1B2,kmadd(J22L,PDupwindNthSymm2B2,kmul(J32L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm2B3 = 
-        kmadd(J12L,PDupwindNthSymm1B3,kmadd(J22L,PDupwindNthSymm2B3,kmul(J32L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm2gt11 = 
-        kmadd(J12L,PDupwindNthSymm1gt11,kmadd(J22L,PDupwindNthSymm2gt11,kmul(J32L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm2gt12 = 
-        kmadd(J12L,PDupwindNthSymm1gt12,kmadd(J22L,PDupwindNthSymm2gt12,kmul(J32L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm2gt13 = 
-        kmadd(J12L,PDupwindNthSymm1gt13,kmadd(J22L,PDupwindNthSymm2gt13,kmul(J32L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm2gt22 = 
-        kmadd(J12L,PDupwindNthSymm1gt22,kmadd(J22L,PDupwindNthSymm2gt22,kmul(J32L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm2gt23 = 
-        kmadd(J12L,PDupwindNthSymm1gt23,kmadd(J22L,PDupwindNthSymm2gt23,kmul(J32L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm2gt33 = 
-        kmadd(J12L,PDupwindNthSymm1gt33,kmadd(J22L,PDupwindNthSymm2gt33,kmul(J32L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm2phi = 
-        kmadd(J12L,PDupwindNthSymm1phi,kmadd(J22L,PDupwindNthSymm2phi,kmul(J32L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm2trK = 
-        kmadd(J12L,PDupwindNthSymm1trK,kmadd(J22L,PDupwindNthSymm2trK,kmul(J32L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm2Xt1 = 
-        kmadd(J12L,PDupwindNthSymm1Xt1,kmadd(J22L,PDupwindNthSymm2Xt1,kmul(J32L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm2Xt2 = 
-        kmadd(J12L,PDupwindNthSymm1Xt2,kmadd(J22L,PDupwindNthSymm2Xt2,kmul(J32L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm2Xt3 = 
-        kmadd(J12L,PDupwindNthSymm1Xt3,kmadd(J22L,PDupwindNthSymm2Xt3,kmul(J32L,PDupwindNthSymm3Xt3)));
-      
-      JacPDupwindNthAnti3A = 
-        kmadd(J13L,PDupwindNthAnti1A,kmadd(J23L,PDupwindNthAnti2A,kmul(J33L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3At11 = 
-        kmadd(J13L,PDupwindNthAnti1At11,kmadd(J23L,PDupwindNthAnti2At11,kmul(J33L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti3At12 = 
-        kmadd(J13L,PDupwindNthAnti1At12,kmadd(J23L,PDupwindNthAnti2At12,kmul(J33L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti3At13 = 
-        kmadd(J13L,PDupwindNthAnti1At13,kmadd(J23L,PDupwindNthAnti2At13,kmul(J33L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti3At22 = 
-        kmadd(J13L,PDupwindNthAnti1At22,kmadd(J23L,PDupwindNthAnti2At22,kmul(J33L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti3At23 = 
-        kmadd(J13L,PDupwindNthAnti1At23,kmadd(J23L,PDupwindNthAnti2At23,kmul(J33L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti3At33 = 
-        kmadd(J13L,PDupwindNthAnti1At33,kmadd(J23L,PDupwindNthAnti2At33,kmul(J33L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti3B1 = 
-        kmadd(J13L,PDupwindNthAnti1B1,kmadd(J23L,PDupwindNthAnti2B1,kmul(J33L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti3B2 = 
-        kmadd(J13L,PDupwindNthAnti1B2,kmadd(J23L,PDupwindNthAnti2B2,kmul(J33L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti3B3 = 
-        kmadd(J13L,PDupwindNthAnti1B3,kmadd(J23L,PDupwindNthAnti2B3,kmul(J33L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti3gt11 = 
-        kmadd(J13L,PDupwindNthAnti1gt11,kmadd(J23L,PDupwindNthAnti2gt11,kmul(J33L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti3gt12 = 
-        kmadd(J13L,PDupwindNthAnti1gt12,kmadd(J23L,PDupwindNthAnti2gt12,kmul(J33L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti3gt13 = 
-        kmadd(J13L,PDupwindNthAnti1gt13,kmadd(J23L,PDupwindNthAnti2gt13,kmul(J33L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti3gt22 = 
-        kmadd(J13L,PDupwindNthAnti1gt22,kmadd(J23L,PDupwindNthAnti2gt22,kmul(J33L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti3gt23 = 
-        kmadd(J13L,PDupwindNthAnti1gt23,kmadd(J23L,PDupwindNthAnti2gt23,kmul(J33L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti3gt33 = 
-        kmadd(J13L,PDupwindNthAnti1gt33,kmadd(J23L,PDupwindNthAnti2gt33,kmul(J33L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti3phi = 
-        kmadd(J13L,PDupwindNthAnti1phi,kmadd(J23L,PDupwindNthAnti2phi,kmul(J33L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti3trK = 
-        kmadd(J13L,PDupwindNthAnti1trK,kmadd(J23L,PDupwindNthAnti2trK,kmul(J33L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti3Xt1 = 
-        kmadd(J13L,PDupwindNthAnti1Xt1,kmadd(J23L,PDupwindNthAnti2Xt1,kmul(J33L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti3Xt2 = 
-        kmadd(J13L,PDupwindNthAnti1Xt2,kmadd(J23L,PDupwindNthAnti2Xt2,kmul(J33L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti3Xt3 = 
-        kmadd(J13L,PDupwindNthAnti1Xt3,kmadd(J23L,PDupwindNthAnti2Xt3,kmul(J33L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm3A = 
-        kmadd(J13L,PDupwindNthSymm1A,kmadd(J23L,PDupwindNthSymm2A,kmul(J33L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3At11 = 
-        kmadd(J13L,PDupwindNthSymm1At11,kmadd(J23L,PDupwindNthSymm2At11,kmul(J33L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm3At12 = 
-        kmadd(J13L,PDupwindNthSymm1At12,kmadd(J23L,PDupwindNthSymm2At12,kmul(J33L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm3At13 = 
-        kmadd(J13L,PDupwindNthSymm1At13,kmadd(J23L,PDupwindNthSymm2At13,kmul(J33L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm3At22 = 
-        kmadd(J13L,PDupwindNthSymm1At22,kmadd(J23L,PDupwindNthSymm2At22,kmul(J33L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm3At23 = 
-        kmadd(J13L,PDupwindNthSymm1At23,kmadd(J23L,PDupwindNthSymm2At23,kmul(J33L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm3At33 = 
-        kmadd(J13L,PDupwindNthSymm1At33,kmadd(J23L,PDupwindNthSymm2At33,kmul(J33L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm3B1 = 
-        kmadd(J13L,PDupwindNthSymm1B1,kmadd(J23L,PDupwindNthSymm2B1,kmul(J33L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm3B2 = 
-        kmadd(J13L,PDupwindNthSymm1B2,kmadd(J23L,PDupwindNthSymm2B2,kmul(J33L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm3B3 = 
-        kmadd(J13L,PDupwindNthSymm1B3,kmadd(J23L,PDupwindNthSymm2B3,kmul(J33L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm3gt11 = 
-        kmadd(J13L,PDupwindNthSymm1gt11,kmadd(J23L,PDupwindNthSymm2gt11,kmul(J33L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm3gt12 = 
-        kmadd(J13L,PDupwindNthSymm1gt12,kmadd(J23L,PDupwindNthSymm2gt12,kmul(J33L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm3gt13 = 
-        kmadd(J13L,PDupwindNthSymm1gt13,kmadd(J23L,PDupwindNthSymm2gt13,kmul(J33L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm3gt22 = 
-        kmadd(J13L,PDupwindNthSymm1gt22,kmadd(J23L,PDupwindNthSymm2gt22,kmul(J33L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm3gt23 = 
-        kmadd(J13L,PDupwindNthSymm1gt23,kmadd(J23L,PDupwindNthSymm2gt23,kmul(J33L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm3gt33 = 
-        kmadd(J13L,PDupwindNthSymm1gt33,kmadd(J23L,PDupwindNthSymm2gt33,kmul(J33L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm3phi = 
-        kmadd(J13L,PDupwindNthSymm1phi,kmadd(J23L,PDupwindNthSymm2phi,kmul(J33L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm3trK = 
-        kmadd(J13L,PDupwindNthSymm1trK,kmadd(J23L,PDupwindNthSymm2trK,kmul(J33L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm3Xt1 = 
-        kmadd(J13L,PDupwindNthSymm1Xt1,kmadd(J23L,PDupwindNthSymm2Xt1,kmul(J33L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm3Xt2 = 
-        kmadd(J13L,PDupwindNthSymm1Xt2,kmadd(J23L,PDupwindNthSymm2Xt2,kmul(J33L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm3Xt3 = 
-        kmadd(J13L,PDupwindNthSymm1Xt3,kmadd(J23L,PDupwindNthSymm2Xt3,kmul(J33L,PDupwindNthSymm3Xt3)));
-    }
-    else
-    {
-      JacPDupwindNthAnti1A = PDupwindNthAnti1A;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1At11 = PDupwindNthAnti1At11;
-      
-      JacPDupwindNthAnti1At12 = PDupwindNthAnti1At12;
-      
-      JacPDupwindNthAnti1At13 = PDupwindNthAnti1At13;
-      
-      JacPDupwindNthAnti1At22 = PDupwindNthAnti1At22;
-      
-      JacPDupwindNthAnti1At23 = PDupwindNthAnti1At23;
-      
-      JacPDupwindNthAnti1At33 = PDupwindNthAnti1At33;
-      
-      JacPDupwindNthAnti1B1 = PDupwindNthAnti1B1;
-      
-      JacPDupwindNthAnti1B2 = PDupwindNthAnti1B2;
-      
-      JacPDupwindNthAnti1B3 = PDupwindNthAnti1B3;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthAnti1gt11 = PDupwindNthAnti1gt11;
-      
-      JacPDupwindNthAnti1gt12 = PDupwindNthAnti1gt12;
-      
-      JacPDupwindNthAnti1gt13 = PDupwindNthAnti1gt13;
-      
-      JacPDupwindNthAnti1gt22 = PDupwindNthAnti1gt22;
-      
-      JacPDupwindNthAnti1gt23 = PDupwindNthAnti1gt23;
-      
-      JacPDupwindNthAnti1gt33 = PDupwindNthAnti1gt33;
-      
-      JacPDupwindNthAnti1phi = PDupwindNthAnti1phi;
-      
-      JacPDupwindNthAnti1trK = PDupwindNthAnti1trK;
-      
-      JacPDupwindNthAnti1Xt1 = PDupwindNthAnti1Xt1;
-      
-      JacPDupwindNthAnti1Xt2 = PDupwindNthAnti1Xt2;
-      
-      JacPDupwindNthAnti1Xt3 = PDupwindNthAnti1Xt3;
-      
-      JacPDupwindNthSymm1A = PDupwindNthSymm1A;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1At11 = PDupwindNthSymm1At11;
-      
-      JacPDupwindNthSymm1At12 = PDupwindNthSymm1At12;
-      
-      JacPDupwindNthSymm1At13 = PDupwindNthSymm1At13;
-      
-      JacPDupwindNthSymm1At22 = PDupwindNthSymm1At22;
-      
-      JacPDupwindNthSymm1At23 = PDupwindNthSymm1At23;
-      
-      JacPDupwindNthSymm1At33 = PDupwindNthSymm1At33;
-      
-      JacPDupwindNthSymm1B1 = PDupwindNthSymm1B1;
-      
-      JacPDupwindNthSymm1B2 = PDupwindNthSymm1B2;
-      
-      JacPDupwindNthSymm1B3 = PDupwindNthSymm1B3;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthSymm1gt11 = PDupwindNthSymm1gt11;
-      
-      JacPDupwindNthSymm1gt12 = PDupwindNthSymm1gt12;
-      
-      JacPDupwindNthSymm1gt13 = PDupwindNthSymm1gt13;
-      
-      JacPDupwindNthSymm1gt22 = PDupwindNthSymm1gt22;
-      
-      JacPDupwindNthSymm1gt23 = PDupwindNthSymm1gt23;
-      
-      JacPDupwindNthSymm1gt33 = PDupwindNthSymm1gt33;
-      
-      JacPDupwindNthSymm1phi = PDupwindNthSymm1phi;
-      
-      JacPDupwindNthSymm1trK = PDupwindNthSymm1trK;
-      
-      JacPDupwindNthSymm1Xt1 = PDupwindNthSymm1Xt1;
-      
-      JacPDupwindNthSymm1Xt2 = PDupwindNthSymm1Xt2;
-      
-      JacPDupwindNthSymm1Xt3 = PDupwindNthSymm1Xt3;
-      
-      JacPDupwindNthAnti2A = PDupwindNthAnti2A;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2At11 = PDupwindNthAnti2At11;
-      
-      JacPDupwindNthAnti2At12 = PDupwindNthAnti2At12;
-      
-      JacPDupwindNthAnti2At13 = PDupwindNthAnti2At13;
-      
-      JacPDupwindNthAnti2At22 = PDupwindNthAnti2At22;
-      
-      JacPDupwindNthAnti2At23 = PDupwindNthAnti2At23;
-      
-      JacPDupwindNthAnti2At33 = PDupwindNthAnti2At33;
-      
-      JacPDupwindNthAnti2B1 = PDupwindNthAnti2B1;
-      
-      JacPDupwindNthAnti2B2 = PDupwindNthAnti2B2;
-      
-      JacPDupwindNthAnti2B3 = PDupwindNthAnti2B3;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthAnti2gt11 = PDupwindNthAnti2gt11;
-      
-      JacPDupwindNthAnti2gt12 = PDupwindNthAnti2gt12;
-      
-      JacPDupwindNthAnti2gt13 = PDupwindNthAnti2gt13;
-      
-      JacPDupwindNthAnti2gt22 = PDupwindNthAnti2gt22;
-      
-      JacPDupwindNthAnti2gt23 = PDupwindNthAnti2gt23;
-      
-      JacPDupwindNthAnti2gt33 = PDupwindNthAnti2gt33;
-      
-      JacPDupwindNthAnti2phi = PDupwindNthAnti2phi;
-      
-      JacPDupwindNthAnti2trK = PDupwindNthAnti2trK;
-      
-      JacPDupwindNthAnti2Xt1 = PDupwindNthAnti2Xt1;
-      
-      JacPDupwindNthAnti2Xt2 = PDupwindNthAnti2Xt2;
-      
-      JacPDupwindNthAnti2Xt3 = PDupwindNthAnti2Xt3;
-      
-      JacPDupwindNthSymm2A = PDupwindNthSymm2A;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2At11 = PDupwindNthSymm2At11;
-      
-      JacPDupwindNthSymm2At12 = PDupwindNthSymm2At12;
-      
-      JacPDupwindNthSymm2At13 = PDupwindNthSymm2At13;
-      
-      JacPDupwindNthSymm2At22 = PDupwindNthSymm2At22;
-      
-      JacPDupwindNthSymm2At23 = PDupwindNthSymm2At23;
-      
-      JacPDupwindNthSymm2At33 = PDupwindNthSymm2At33;
-      
-      JacPDupwindNthSymm2B1 = PDupwindNthSymm2B1;
-      
-      JacPDupwindNthSymm2B2 = PDupwindNthSymm2B2;
-      
-      JacPDupwindNthSymm2B3 = PDupwindNthSymm2B3;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthSymm2gt11 = PDupwindNthSymm2gt11;
-      
-      JacPDupwindNthSymm2gt12 = PDupwindNthSymm2gt12;
-      
-      JacPDupwindNthSymm2gt13 = PDupwindNthSymm2gt13;
-      
-      JacPDupwindNthSymm2gt22 = PDupwindNthSymm2gt22;
-      
-      JacPDupwindNthSymm2gt23 = PDupwindNthSymm2gt23;
-      
-      JacPDupwindNthSymm2gt33 = PDupwindNthSymm2gt33;
-      
-      JacPDupwindNthSymm2phi = PDupwindNthSymm2phi;
-      
-      JacPDupwindNthSymm2trK = PDupwindNthSymm2trK;
-      
-      JacPDupwindNthSymm2Xt1 = PDupwindNthSymm2Xt1;
-      
-      JacPDupwindNthSymm2Xt2 = PDupwindNthSymm2Xt2;
-      
-      JacPDupwindNthSymm2Xt3 = PDupwindNthSymm2Xt3;
-      
-      JacPDupwindNthAnti3A = PDupwindNthAnti3A;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3At11 = PDupwindNthAnti3At11;
-      
-      JacPDupwindNthAnti3At12 = PDupwindNthAnti3At12;
-      
-      JacPDupwindNthAnti3At13 = PDupwindNthAnti3At13;
-      
-      JacPDupwindNthAnti3At22 = PDupwindNthAnti3At22;
-      
-      JacPDupwindNthAnti3At23 = PDupwindNthAnti3At23;
-      
-      JacPDupwindNthAnti3At33 = PDupwindNthAnti3At33;
-      
-      JacPDupwindNthAnti3B1 = PDupwindNthAnti3B1;
-      
-      JacPDupwindNthAnti3B2 = PDupwindNthAnti3B2;
-      
-      JacPDupwindNthAnti3B3 = PDupwindNthAnti3B3;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthAnti3gt11 = PDupwindNthAnti3gt11;
-      
-      JacPDupwindNthAnti3gt12 = PDupwindNthAnti3gt12;
-      
-      JacPDupwindNthAnti3gt13 = PDupwindNthAnti3gt13;
-      
-      JacPDupwindNthAnti3gt22 = PDupwindNthAnti3gt22;
-      
-      JacPDupwindNthAnti3gt23 = PDupwindNthAnti3gt23;
-      
-      JacPDupwindNthAnti3gt33 = PDupwindNthAnti3gt33;
-      
-      JacPDupwindNthAnti3phi = PDupwindNthAnti3phi;
-      
-      JacPDupwindNthAnti3trK = PDupwindNthAnti3trK;
-      
-      JacPDupwindNthAnti3Xt1 = PDupwindNthAnti3Xt1;
-      
-      JacPDupwindNthAnti3Xt2 = PDupwindNthAnti3Xt2;
-      
-      JacPDupwindNthAnti3Xt3 = PDupwindNthAnti3Xt3;
-      
-      JacPDupwindNthSymm3A = PDupwindNthSymm3A;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3At11 = PDupwindNthSymm3At11;
-      
-      JacPDupwindNthSymm3At12 = PDupwindNthSymm3At12;
-      
-      JacPDupwindNthSymm3At13 = PDupwindNthSymm3At13;
-      
-      JacPDupwindNthSymm3At22 = PDupwindNthSymm3At22;
-      
-      JacPDupwindNthSymm3At23 = PDupwindNthSymm3At23;
-      
-      JacPDupwindNthSymm3At33 = PDupwindNthSymm3At33;
-      
-      JacPDupwindNthSymm3B1 = PDupwindNthSymm3B1;
-      
-      JacPDupwindNthSymm3B2 = PDupwindNthSymm3B2;
-      
-      JacPDupwindNthSymm3B3 = PDupwindNthSymm3B3;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-      
-      JacPDupwindNthSymm3gt11 = PDupwindNthSymm3gt11;
-      
-      JacPDupwindNthSymm3gt12 = PDupwindNthSymm3gt12;
-      
-      JacPDupwindNthSymm3gt13 = PDupwindNthSymm3gt13;
-      
-      JacPDupwindNthSymm3gt22 = PDupwindNthSymm3gt22;
-      
-      JacPDupwindNthSymm3gt23 = PDupwindNthSymm3gt23;
-      
-      JacPDupwindNthSymm3gt33 = PDupwindNthSymm3gt33;
-      
-      JacPDupwindNthSymm3phi = PDupwindNthSymm3phi;
-      
-      JacPDupwindNthSymm3trK = PDupwindNthSymm3trK;
-      
-      JacPDupwindNthSymm3Xt1 = PDupwindNthSymm3Xt1;
-      
-      JacPDupwindNthSymm3Xt2 = PDupwindNthSymm3Xt2;
-      
-      JacPDupwindNthSymm3Xt3 = PDupwindNthSymm3Xt3;
-    }
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(beta1L,JacPDupwindNthAnti1phi,kmadd(beta2L,JacPDupwindNthAnti2phi,kmadd(beta3L,JacPDupwindNthAnti3phi,kmadd(JacPDupwindNthSymm1phi,kfabs(beta1L),kmadd(JacPDupwindNthSymm2phi,kfabs(beta2L),kmul(JacPDupwindNthSymm3phi,kfabs(beta3L))))))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt11,kmadd(beta2L,JacPDupwindNthAnti2gt11,kmadd(beta3L,JacPDupwindNthAnti3gt11,kmadd(JacPDupwindNthSymm1gt11,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt11,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt11,kfabs(beta3L))))))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt12,kmadd(beta2L,JacPDupwindNthAnti2gt12,kmadd(beta3L,JacPDupwindNthAnti3gt12,kmadd(JacPDupwindNthSymm1gt12,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt12,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt12,kfabs(beta3L))))))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt13,kmadd(beta2L,JacPDupwindNthAnti2gt13,kmadd(beta3L,JacPDupwindNthAnti3gt13,kmadd(JacPDupwindNthSymm1gt13,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt13,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt13,kfabs(beta3L))))))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt22,kmadd(beta2L,JacPDupwindNthAnti2gt22,kmadd(beta3L,JacPDupwindNthAnti3gt22,kmadd(JacPDupwindNthSymm1gt22,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt22,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt22,kfabs(beta3L))))))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt23,kmadd(beta2L,JacPDupwindNthAnti2gt23,kmadd(beta3L,JacPDupwindNthAnti3gt23,kmadd(JacPDupwindNthSymm1gt23,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt23,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt23,kfabs(beta3L))))))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt33,kmadd(beta2L,JacPDupwindNthAnti2gt33,kmadd(beta3L,JacPDupwindNthAnti3gt33,kmadd(JacPDupwindNthSymm1gt33,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt33,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt33,kfabs(beta3L))))))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt1,kmadd(beta2L,JacPDupwindNthAnti2Xt1,kmadd(beta3L,JacPDupwindNthAnti3Xt1,kmadd(JacPDupwindNthSymm1Xt1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt1,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt1,kfabs(beta3L))))))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt2,kmadd(beta2L,JacPDupwindNthAnti2Xt2,kmadd(beta3L,JacPDupwindNthAnti3Xt2,kmadd(JacPDupwindNthSymm1Xt2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt2,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt2,kfabs(beta3L))))))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt3,kmadd(beta2L,JacPDupwindNthAnti2Xt3,kmadd(beta3L,JacPDupwindNthAnti3Xt3,kmadd(JacPDupwindNthSymm1Xt3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt3,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt3,kfabs(beta3L))))))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(beta1L,JacPDupwindNthAnti1trK,kmadd(beta2L,JacPDupwindNthAnti2trK,kmadd(beta3L,JacPDupwindNthAnti3trK,kmadd(JacPDupwindNthSymm1trK,kfabs(beta1L),kmadd(JacPDupwindNthSymm2trK,kfabs(beta2L),kmul(JacPDupwindNthSymm3trK,kfabs(beta3L))))))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(beta1L,JacPDupwindNthAnti1At11,kmadd(beta2L,JacPDupwindNthAnti2At11,kmadd(beta3L,JacPDupwindNthAnti3At11,kmadd(JacPDupwindNthSymm1At11,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At11,kfabs(beta2L),kmul(JacPDupwindNthSymm3At11,kfabs(beta3L))))))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(beta1L,JacPDupwindNthAnti1At12,kmadd(beta2L,JacPDupwindNthAnti2At12,kmadd(beta3L,JacPDupwindNthAnti3At12,kmadd(JacPDupwindNthSymm1At12,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At12,kfabs(beta2L),kmul(JacPDupwindNthSymm3At12,kfabs(beta3L))))))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(beta1L,JacPDupwindNthAnti1At13,kmadd(beta2L,JacPDupwindNthAnti2At13,kmadd(beta3L,JacPDupwindNthAnti3At13,kmadd(JacPDupwindNthSymm1At13,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At13,kfabs(beta2L),kmul(JacPDupwindNthSymm3At13,kfabs(beta3L))))))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(beta1L,JacPDupwindNthAnti1At22,kmadd(beta2L,JacPDupwindNthAnti2At22,kmadd(beta3L,JacPDupwindNthAnti3At22,kmadd(JacPDupwindNthSymm1At22,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At22,kfabs(beta2L),kmul(JacPDupwindNthSymm3At22,kfabs(beta3L))))))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(beta1L,JacPDupwindNthAnti1At23,kmadd(beta2L,JacPDupwindNthAnti2At23,kmadd(beta3L,JacPDupwindNthAnti3At23,kmadd(JacPDupwindNthSymm1At23,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At23,kfabs(beta2L),kmul(JacPDupwindNthSymm3At23,kfabs(beta3L))))))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(beta1L,JacPDupwindNthAnti1At33,kmadd(beta2L,JacPDupwindNthAnti2At33,kmadd(beta3L,JacPDupwindNthAnti3At33,kmadd(JacPDupwindNthSymm1At33,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At33,kfabs(beta2L),kmul(JacPDupwindNthSymm3At33,kfabs(beta3L))))))));
-    
-    alpharhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),alpharhsL);
-    
-    ArhsL = 
-      kmadd(ToReal(LapseACoeff),kmsub(kmadd(beta1L,JacPDupwindNthAnti1A,kmadd(beta2L,JacPDupwindNthAnti2A,kmadd(beta3L,JacPDupwindNthAnti3A,kmadd(JacPDupwindNthSymm1A,kfabs(beta1L),kmadd(JacPDupwindNthSymm2A,kfabs(beta2L),kmul(JacPDupwindNthSymm3A,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1trK,kmadd(beta2L,JacPDupwindNthAnti2trK,kmadd(beta3L,JacPDupwindNthAnti3trK,kmadd(JacPDupwindNthSymm1trK,kfabs(beta1L),kmadd(JacPDupwindNthSymm2trK,kfabs(beta2L),kmul(JacPDupwindNthSymm3trK,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(LapseAdvectionCoeff)))),ArhsL);
-    
-    beta1rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta1rhsL);
-    
-    beta2rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta2rhsL);
-    
-    beta3rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta3rhsL);
-    
-    B1rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B1,kmadd(beta2L,JacPDupwindNthAnti2B1,kmadd(beta3L,JacPDupwindNthAnti3B1,kmadd(JacPDupwindNthSymm1B1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B1,kfabs(beta2L),kmul(JacPDupwindNthSymm3B1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt1,kmadd(beta2L,JacPDupwindNthAnti2Xt1,kmadd(beta3L,JacPDupwindNthAnti3Xt1,kmadd(JacPDupwindNthSymm1Xt1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt1,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt1,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B1rhsL);
-    
-    B2rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B2,kmadd(beta2L,JacPDupwindNthAnti2B2,kmadd(beta3L,JacPDupwindNthAnti3B2,kmadd(JacPDupwindNthSymm1B2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B2,kfabs(beta2L),kmul(JacPDupwindNthSymm3B2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt2,kmadd(beta2L,JacPDupwindNthAnti2Xt2,kmadd(beta3L,JacPDupwindNthAnti3Xt2,kmadd(JacPDupwindNthSymm1Xt2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt2,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt2,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B2rhsL);
-    
-    B3rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B3,kmadd(beta2L,JacPDupwindNthAnti2B3,kmadd(beta3L,JacPDupwindNthAnti3B3,kmadd(JacPDupwindNthSymm1B3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B3,kfabs(beta2L),kmul(JacPDupwindNthSymm3B3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt3,kmadd(beta2L,JacPDupwindNthAnti2Xt3,kmadd(beta3L,JacPDupwindNthAnti3Xt3,kmadd(JacPDupwindNthSymm1Xt3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt3,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt3,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B3rhsL);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_Advect);
-}
-
-extern "C" void ML_BSSN_O2_Advect(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_Advect_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_Advect_calc_every != ML_BSSN_O2_Advect_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_curvrhs",
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtlapserhs",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_dtshiftrhs",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_Gammarhs",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_lapserhs",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_log_confacrhs",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_metricrhs",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_shiftrhs",
-    "ML_BSSN_O2::ML_trace_curv",
-    "ML_BSSN_O2::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_Advect", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_Advect", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_Advect", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_Advect", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_Advect", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O2_Advect_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_Advect_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_Dissipation.cc b/ML_BSSN_O2/src/ML_BSSN_O2_Dissipation.cc
deleted file mode 100644
index 255a4d1..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_Dissipation.cc
+++ /dev/null
@@ -1,1330 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_Dissipation_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O2_Dissipation_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_Dissipation,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDdissipationNth1A;
-    CCTK_REAL_VEC PDdissipationNth2A;
-    CCTK_REAL_VEC PDdissipationNth3A;
-    CCTK_REAL_VEC PDdissipationNth1alpha;
-    CCTK_REAL_VEC PDdissipationNth2alpha;
-    CCTK_REAL_VEC PDdissipationNth3alpha;
-    CCTK_REAL_VEC PDdissipationNth1At11;
-    CCTK_REAL_VEC PDdissipationNth2At11;
-    CCTK_REAL_VEC PDdissipationNth3At11;
-    CCTK_REAL_VEC PDdissipationNth1At12;
-    CCTK_REAL_VEC PDdissipationNth2At12;
-    CCTK_REAL_VEC PDdissipationNth3At12;
-    CCTK_REAL_VEC PDdissipationNth1At13;
-    CCTK_REAL_VEC PDdissipationNth2At13;
-    CCTK_REAL_VEC PDdissipationNth3At13;
-    CCTK_REAL_VEC PDdissipationNth1At22;
-    CCTK_REAL_VEC PDdissipationNth2At22;
-    CCTK_REAL_VEC PDdissipationNth3At22;
-    CCTK_REAL_VEC PDdissipationNth1At23;
-    CCTK_REAL_VEC PDdissipationNth2At23;
-    CCTK_REAL_VEC PDdissipationNth3At23;
-    CCTK_REAL_VEC PDdissipationNth1At33;
-    CCTK_REAL_VEC PDdissipationNth2At33;
-    CCTK_REAL_VEC PDdissipationNth3At33;
-    CCTK_REAL_VEC PDdissipationNth1B1;
-    CCTK_REAL_VEC PDdissipationNth2B1;
-    CCTK_REAL_VEC PDdissipationNth3B1;
-    CCTK_REAL_VEC PDdissipationNth1B2;
-    CCTK_REAL_VEC PDdissipationNth2B2;
-    CCTK_REAL_VEC PDdissipationNth3B2;
-    CCTK_REAL_VEC PDdissipationNth1B3;
-    CCTK_REAL_VEC PDdissipationNth2B3;
-    CCTK_REAL_VEC PDdissipationNth3B3;
-    CCTK_REAL_VEC PDdissipationNth1beta1;
-    CCTK_REAL_VEC PDdissipationNth2beta1;
-    CCTK_REAL_VEC PDdissipationNth3beta1;
-    CCTK_REAL_VEC PDdissipationNth1beta2;
-    CCTK_REAL_VEC PDdissipationNth2beta2;
-    CCTK_REAL_VEC PDdissipationNth3beta2;
-    CCTK_REAL_VEC PDdissipationNth1beta3;
-    CCTK_REAL_VEC PDdissipationNth2beta3;
-    CCTK_REAL_VEC PDdissipationNth3beta3;
-    CCTK_REAL_VEC PDdissipationNth1gt11;
-    CCTK_REAL_VEC PDdissipationNth2gt11;
-    CCTK_REAL_VEC PDdissipationNth3gt11;
-    CCTK_REAL_VEC PDdissipationNth1gt12;
-    CCTK_REAL_VEC PDdissipationNth2gt12;
-    CCTK_REAL_VEC PDdissipationNth3gt12;
-    CCTK_REAL_VEC PDdissipationNth1gt13;
-    CCTK_REAL_VEC PDdissipationNth2gt13;
-    CCTK_REAL_VEC PDdissipationNth3gt13;
-    CCTK_REAL_VEC PDdissipationNth1gt22;
-    CCTK_REAL_VEC PDdissipationNth2gt22;
-    CCTK_REAL_VEC PDdissipationNth3gt22;
-    CCTK_REAL_VEC PDdissipationNth1gt23;
-    CCTK_REAL_VEC PDdissipationNth2gt23;
-    CCTK_REAL_VEC PDdissipationNth3gt23;
-    CCTK_REAL_VEC PDdissipationNth1gt33;
-    CCTK_REAL_VEC PDdissipationNth2gt33;
-    CCTK_REAL_VEC PDdissipationNth3gt33;
-    CCTK_REAL_VEC PDdissipationNth1phi;
-    CCTK_REAL_VEC PDdissipationNth2phi;
-    CCTK_REAL_VEC PDdissipationNth3phi;
-    CCTK_REAL_VEC PDdissipationNth1trK;
-    CCTK_REAL_VEC PDdissipationNth2trK;
-    CCTK_REAL_VEC PDdissipationNth3trK;
-    CCTK_REAL_VEC PDdissipationNth1Xt1;
-    CCTK_REAL_VEC PDdissipationNth2Xt1;
-    CCTK_REAL_VEC PDdissipationNth3Xt1;
-    CCTK_REAL_VEC PDdissipationNth1Xt2;
-    CCTK_REAL_VEC PDdissipationNth2Xt2;
-    CCTK_REAL_VEC PDdissipationNth3Xt2;
-    CCTK_REAL_VEC PDdissipationNth1Xt3;
-    CCTK_REAL_VEC PDdissipationNth2Xt3;
-    CCTK_REAL_VEC PDdissipationNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDdissipationNth1A = PDdissipationNthfdOrder21(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder22(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder23(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder21(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder22(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder23(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder21(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder22(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder23(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder21(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder22(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder23(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder21(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder22(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder23(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder21(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder22(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder23(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder21(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder22(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder23(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder21(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder22(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder23(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder21(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder22(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder23(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder21(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder22(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder23(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder21(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder22(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder23(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder21(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder22(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder23(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder21(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder22(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder23(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder21(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder22(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder23(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder21(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder22(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder23(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder21(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder22(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder23(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder21(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder22(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder23(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder21(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder22(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder23(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder21(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder22(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder23(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder21(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder22(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder23(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder21(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder22(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder23(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder21(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder22(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder23(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder21(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder22(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder23(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder21(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder22(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder23(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder21(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder22(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDdissipationNth1A = PDdissipationNthfdOrder41(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder42(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder43(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder41(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder42(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder43(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder41(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder42(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder43(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder41(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder42(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder43(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder41(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder42(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder43(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder41(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder42(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder43(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder41(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder42(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder43(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder41(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder42(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder43(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder41(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder42(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder43(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder41(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder42(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder43(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder41(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder42(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder43(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder41(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder42(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder43(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder41(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder42(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder43(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder41(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder42(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder43(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder41(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder42(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder43(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder41(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder42(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder43(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder41(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder42(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder43(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder41(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder42(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder43(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder41(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder42(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder43(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder41(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder42(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder43(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder41(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder42(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder43(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder41(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder42(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder43(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder41(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder42(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder43(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder41(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder42(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder43(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder41(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder42(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDdissipationNth1A = PDdissipationNthfdOrder61(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder62(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder63(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder61(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder62(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder63(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder61(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder62(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder63(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder61(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder62(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder63(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder61(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder62(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder63(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder61(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder62(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder63(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder61(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder62(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder63(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder61(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder62(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder63(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder61(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder62(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder63(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder61(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder62(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder63(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder61(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder62(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder63(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder61(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder62(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder63(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder61(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder62(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder63(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder61(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder62(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder63(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder61(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder62(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder63(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder61(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder62(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder63(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder61(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder62(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder63(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder61(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder62(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder63(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder61(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder62(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder63(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder61(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder62(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder63(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder61(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder62(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder63(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder61(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder62(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder63(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder61(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder62(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder63(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder61(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder62(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder63(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder61(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder62(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDdissipationNth1A = PDdissipationNthfdOrder81(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder82(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder83(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder81(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder82(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder83(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder81(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder82(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder83(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder81(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder82(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder83(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder81(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder82(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder83(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder81(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder82(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder83(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder81(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder82(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder83(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder81(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder82(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder83(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder81(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder82(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder83(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder81(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder82(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder83(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder81(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder82(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder83(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder81(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder82(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder83(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder81(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder82(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder83(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder81(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder82(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder83(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder81(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder82(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder83(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder81(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder82(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder83(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder81(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder82(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder83(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder81(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder82(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder83(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder81(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder82(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder83(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder81(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder82(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder83(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder81(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder82(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder83(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder81(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder82(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder83(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder81(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder82(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder83(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder81(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder82(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder83(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder81(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder82(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDdissipationNth1A;
-    CCTK_REAL_VEC JacPDdissipationNth1alpha;
-    CCTK_REAL_VEC JacPDdissipationNth1At11;
-    CCTK_REAL_VEC JacPDdissipationNth1At12;
-    CCTK_REAL_VEC JacPDdissipationNth1At13;
-    CCTK_REAL_VEC JacPDdissipationNth1At22;
-    CCTK_REAL_VEC JacPDdissipationNth1At23;
-    CCTK_REAL_VEC JacPDdissipationNth1At33;
-    CCTK_REAL_VEC JacPDdissipationNth1B1;
-    CCTK_REAL_VEC JacPDdissipationNth1B2;
-    CCTK_REAL_VEC JacPDdissipationNth1B3;
-    CCTK_REAL_VEC JacPDdissipationNth1beta1;
-    CCTK_REAL_VEC JacPDdissipationNth1beta2;
-    CCTK_REAL_VEC JacPDdissipationNth1beta3;
-    CCTK_REAL_VEC JacPDdissipationNth1gt11;
-    CCTK_REAL_VEC JacPDdissipationNth1gt12;
-    CCTK_REAL_VEC JacPDdissipationNth1gt13;
-    CCTK_REAL_VEC JacPDdissipationNth1gt22;
-    CCTK_REAL_VEC JacPDdissipationNth1gt23;
-    CCTK_REAL_VEC JacPDdissipationNth1gt33;
-    CCTK_REAL_VEC JacPDdissipationNth1phi;
-    CCTK_REAL_VEC JacPDdissipationNth1trK;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth2A;
-    CCTK_REAL_VEC JacPDdissipationNth2alpha;
-    CCTK_REAL_VEC JacPDdissipationNth2At11;
-    CCTK_REAL_VEC JacPDdissipationNth2At12;
-    CCTK_REAL_VEC JacPDdissipationNth2At13;
-    CCTK_REAL_VEC JacPDdissipationNth2At22;
-    CCTK_REAL_VEC JacPDdissipationNth2At23;
-    CCTK_REAL_VEC JacPDdissipationNth2At33;
-    CCTK_REAL_VEC JacPDdissipationNth2B1;
-    CCTK_REAL_VEC JacPDdissipationNth2B2;
-    CCTK_REAL_VEC JacPDdissipationNth2B3;
-    CCTK_REAL_VEC JacPDdissipationNth2beta1;
-    CCTK_REAL_VEC JacPDdissipationNth2beta2;
-    CCTK_REAL_VEC JacPDdissipationNth2beta3;
-    CCTK_REAL_VEC JacPDdissipationNth2gt11;
-    CCTK_REAL_VEC JacPDdissipationNth2gt12;
-    CCTK_REAL_VEC JacPDdissipationNth2gt13;
-    CCTK_REAL_VEC JacPDdissipationNth2gt22;
-    CCTK_REAL_VEC JacPDdissipationNth2gt23;
-    CCTK_REAL_VEC JacPDdissipationNth2gt33;
-    CCTK_REAL_VEC JacPDdissipationNth2phi;
-    CCTK_REAL_VEC JacPDdissipationNth2trK;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth3A;
-    CCTK_REAL_VEC JacPDdissipationNth3alpha;
-    CCTK_REAL_VEC JacPDdissipationNth3At11;
-    CCTK_REAL_VEC JacPDdissipationNth3At12;
-    CCTK_REAL_VEC JacPDdissipationNth3At13;
-    CCTK_REAL_VEC JacPDdissipationNth3At22;
-    CCTK_REAL_VEC JacPDdissipationNth3At23;
-    CCTK_REAL_VEC JacPDdissipationNth3At33;
-    CCTK_REAL_VEC JacPDdissipationNth3B1;
-    CCTK_REAL_VEC JacPDdissipationNth3B2;
-    CCTK_REAL_VEC JacPDdissipationNth3B3;
-    CCTK_REAL_VEC JacPDdissipationNth3beta1;
-    CCTK_REAL_VEC JacPDdissipationNth3beta2;
-    CCTK_REAL_VEC JacPDdissipationNth3beta3;
-    CCTK_REAL_VEC JacPDdissipationNth3gt11;
-    CCTK_REAL_VEC JacPDdissipationNth3gt12;
-    CCTK_REAL_VEC JacPDdissipationNth3gt13;
-    CCTK_REAL_VEC JacPDdissipationNth3gt22;
-    CCTK_REAL_VEC JacPDdissipationNth3gt23;
-    CCTK_REAL_VEC JacPDdissipationNth3gt33;
-    CCTK_REAL_VEC JacPDdissipationNth3phi;
-    CCTK_REAL_VEC JacPDdissipationNth3trK;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDdissipationNth1A = 
-        kmadd(J11L,PDdissipationNth1A,kmadd(J21L,PDdissipationNth2A,kmul(J31L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth1alpha = 
-        kmadd(J11L,PDdissipationNth1alpha,kmadd(J21L,PDdissipationNth2alpha,kmul(J31L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth1At11 = 
-        kmadd(J11L,PDdissipationNth1At11,kmadd(J21L,PDdissipationNth2At11,kmul(J31L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth1At12 = 
-        kmadd(J11L,PDdissipationNth1At12,kmadd(J21L,PDdissipationNth2At12,kmul(J31L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth1At13 = 
-        kmadd(J11L,PDdissipationNth1At13,kmadd(J21L,PDdissipationNth2At13,kmul(J31L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth1At22 = 
-        kmadd(J11L,PDdissipationNth1At22,kmadd(J21L,PDdissipationNth2At22,kmul(J31L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth1At23 = 
-        kmadd(J11L,PDdissipationNth1At23,kmadd(J21L,PDdissipationNth2At23,kmul(J31L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth1At33 = 
-        kmadd(J11L,PDdissipationNth1At33,kmadd(J21L,PDdissipationNth2At33,kmul(J31L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth1B1 = 
-        kmadd(J11L,PDdissipationNth1B1,kmadd(J21L,PDdissipationNth2B1,kmul(J31L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth1B2 = 
-        kmadd(J11L,PDdissipationNth1B2,kmadd(J21L,PDdissipationNth2B2,kmul(J31L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth1B3 = 
-        kmadd(J11L,PDdissipationNth1B3,kmadd(J21L,PDdissipationNth2B3,kmul(J31L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth1beta1 = 
-        kmadd(J11L,PDdissipationNth1beta1,kmadd(J21L,PDdissipationNth2beta1,kmul(J31L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth1beta2 = 
-        kmadd(J11L,PDdissipationNth1beta2,kmadd(J21L,PDdissipationNth2beta2,kmul(J31L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth1beta3 = 
-        kmadd(J11L,PDdissipationNth1beta3,kmadd(J21L,PDdissipationNth2beta3,kmul(J31L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth1gt11 = 
-        kmadd(J11L,PDdissipationNth1gt11,kmadd(J21L,PDdissipationNth2gt11,kmul(J31L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth1gt12 = 
-        kmadd(J11L,PDdissipationNth1gt12,kmadd(J21L,PDdissipationNth2gt12,kmul(J31L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth1gt13 = 
-        kmadd(J11L,PDdissipationNth1gt13,kmadd(J21L,PDdissipationNth2gt13,kmul(J31L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth1gt22 = 
-        kmadd(J11L,PDdissipationNth1gt22,kmadd(J21L,PDdissipationNth2gt22,kmul(J31L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth1gt23 = 
-        kmadd(J11L,PDdissipationNth1gt23,kmadd(J21L,PDdissipationNth2gt23,kmul(J31L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth1gt33 = 
-        kmadd(J11L,PDdissipationNth1gt33,kmadd(J21L,PDdissipationNth2gt33,kmul(J31L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth1phi = 
-        kmadd(J11L,PDdissipationNth1phi,kmadd(J21L,PDdissipationNth2phi,kmul(J31L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth1trK = 
-        kmadd(J11L,PDdissipationNth1trK,kmadd(J21L,PDdissipationNth2trK,kmul(J31L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth1Xt1 = 
-        kmadd(J11L,PDdissipationNth1Xt1,kmadd(J21L,PDdissipationNth2Xt1,kmul(J31L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth1Xt2 = 
-        kmadd(J11L,PDdissipationNth1Xt2,kmadd(J21L,PDdissipationNth2Xt2,kmul(J31L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth1Xt3 = 
-        kmadd(J11L,PDdissipationNth1Xt3,kmadd(J21L,PDdissipationNth2Xt3,kmul(J31L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth2A = 
-        kmadd(J12L,PDdissipationNth1A,kmadd(J22L,PDdissipationNth2A,kmul(J32L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth2alpha = 
-        kmadd(J12L,PDdissipationNth1alpha,kmadd(J22L,PDdissipationNth2alpha,kmul(J32L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth2At11 = 
-        kmadd(J12L,PDdissipationNth1At11,kmadd(J22L,PDdissipationNth2At11,kmul(J32L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth2At12 = 
-        kmadd(J12L,PDdissipationNth1At12,kmadd(J22L,PDdissipationNth2At12,kmul(J32L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth2At13 = 
-        kmadd(J12L,PDdissipationNth1At13,kmadd(J22L,PDdissipationNth2At13,kmul(J32L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth2At22 = 
-        kmadd(J12L,PDdissipationNth1At22,kmadd(J22L,PDdissipationNth2At22,kmul(J32L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth2At23 = 
-        kmadd(J12L,PDdissipationNth1At23,kmadd(J22L,PDdissipationNth2At23,kmul(J32L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth2At33 = 
-        kmadd(J12L,PDdissipationNth1At33,kmadd(J22L,PDdissipationNth2At33,kmul(J32L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth2B1 = 
-        kmadd(J12L,PDdissipationNth1B1,kmadd(J22L,PDdissipationNth2B1,kmul(J32L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth2B2 = 
-        kmadd(J12L,PDdissipationNth1B2,kmadd(J22L,PDdissipationNth2B2,kmul(J32L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth2B3 = 
-        kmadd(J12L,PDdissipationNth1B3,kmadd(J22L,PDdissipationNth2B3,kmul(J32L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth2beta1 = 
-        kmadd(J12L,PDdissipationNth1beta1,kmadd(J22L,PDdissipationNth2beta1,kmul(J32L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth2beta2 = 
-        kmadd(J12L,PDdissipationNth1beta2,kmadd(J22L,PDdissipationNth2beta2,kmul(J32L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth2beta3 = 
-        kmadd(J12L,PDdissipationNth1beta3,kmadd(J22L,PDdissipationNth2beta3,kmul(J32L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth2gt11 = 
-        kmadd(J12L,PDdissipationNth1gt11,kmadd(J22L,PDdissipationNth2gt11,kmul(J32L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth2gt12 = 
-        kmadd(J12L,PDdissipationNth1gt12,kmadd(J22L,PDdissipationNth2gt12,kmul(J32L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth2gt13 = 
-        kmadd(J12L,PDdissipationNth1gt13,kmadd(J22L,PDdissipationNth2gt13,kmul(J32L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth2gt22 = 
-        kmadd(J12L,PDdissipationNth1gt22,kmadd(J22L,PDdissipationNth2gt22,kmul(J32L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth2gt23 = 
-        kmadd(J12L,PDdissipationNth1gt23,kmadd(J22L,PDdissipationNth2gt23,kmul(J32L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth2gt33 = 
-        kmadd(J12L,PDdissipationNth1gt33,kmadd(J22L,PDdissipationNth2gt33,kmul(J32L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth2phi = 
-        kmadd(J12L,PDdissipationNth1phi,kmadd(J22L,PDdissipationNth2phi,kmul(J32L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth2trK = 
-        kmadd(J12L,PDdissipationNth1trK,kmadd(J22L,PDdissipationNth2trK,kmul(J32L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth2Xt1 = 
-        kmadd(J12L,PDdissipationNth1Xt1,kmadd(J22L,PDdissipationNth2Xt1,kmul(J32L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth2Xt2 = 
-        kmadd(J12L,PDdissipationNth1Xt2,kmadd(J22L,PDdissipationNth2Xt2,kmul(J32L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth2Xt3 = 
-        kmadd(J12L,PDdissipationNth1Xt3,kmadd(J22L,PDdissipationNth2Xt3,kmul(J32L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth3A = 
-        kmadd(J13L,PDdissipationNth1A,kmadd(J23L,PDdissipationNth2A,kmul(J33L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth3alpha = 
-        kmadd(J13L,PDdissipationNth1alpha,kmadd(J23L,PDdissipationNth2alpha,kmul(J33L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth3At11 = 
-        kmadd(J13L,PDdissipationNth1At11,kmadd(J23L,PDdissipationNth2At11,kmul(J33L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth3At12 = 
-        kmadd(J13L,PDdissipationNth1At12,kmadd(J23L,PDdissipationNth2At12,kmul(J33L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth3At13 = 
-        kmadd(J13L,PDdissipationNth1At13,kmadd(J23L,PDdissipationNth2At13,kmul(J33L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth3At22 = 
-        kmadd(J13L,PDdissipationNth1At22,kmadd(J23L,PDdissipationNth2At22,kmul(J33L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth3At23 = 
-        kmadd(J13L,PDdissipationNth1At23,kmadd(J23L,PDdissipationNth2At23,kmul(J33L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth3At33 = 
-        kmadd(J13L,PDdissipationNth1At33,kmadd(J23L,PDdissipationNth2At33,kmul(J33L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth3B1 = 
-        kmadd(J13L,PDdissipationNth1B1,kmadd(J23L,PDdissipationNth2B1,kmul(J33L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth3B2 = 
-        kmadd(J13L,PDdissipationNth1B2,kmadd(J23L,PDdissipationNth2B2,kmul(J33L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth3B3 = 
-        kmadd(J13L,PDdissipationNth1B3,kmadd(J23L,PDdissipationNth2B3,kmul(J33L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth3beta1 = 
-        kmadd(J13L,PDdissipationNth1beta1,kmadd(J23L,PDdissipationNth2beta1,kmul(J33L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth3beta2 = 
-        kmadd(J13L,PDdissipationNth1beta2,kmadd(J23L,PDdissipationNth2beta2,kmul(J33L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth3beta3 = 
-        kmadd(J13L,PDdissipationNth1beta3,kmadd(J23L,PDdissipationNth2beta3,kmul(J33L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth3gt11 = 
-        kmadd(J13L,PDdissipationNth1gt11,kmadd(J23L,PDdissipationNth2gt11,kmul(J33L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth3gt12 = 
-        kmadd(J13L,PDdissipationNth1gt12,kmadd(J23L,PDdissipationNth2gt12,kmul(J33L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth3gt13 = 
-        kmadd(J13L,PDdissipationNth1gt13,kmadd(J23L,PDdissipationNth2gt13,kmul(J33L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth3gt22 = 
-        kmadd(J13L,PDdissipationNth1gt22,kmadd(J23L,PDdissipationNth2gt22,kmul(J33L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth3gt23 = 
-        kmadd(J13L,PDdissipationNth1gt23,kmadd(J23L,PDdissipationNth2gt23,kmul(J33L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth3gt33 = 
-        kmadd(J13L,PDdissipationNth1gt33,kmadd(J23L,PDdissipationNth2gt33,kmul(J33L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth3phi = 
-        kmadd(J13L,PDdissipationNth1phi,kmadd(J23L,PDdissipationNth2phi,kmul(J33L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth3trK = 
-        kmadd(J13L,PDdissipationNth1trK,kmadd(J23L,PDdissipationNth2trK,kmul(J33L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth3Xt1 = 
-        kmadd(J13L,PDdissipationNth1Xt1,kmadd(J23L,PDdissipationNth2Xt1,kmul(J33L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth3Xt2 = 
-        kmadd(J13L,PDdissipationNth1Xt2,kmadd(J23L,PDdissipationNth2Xt2,kmul(J33L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth3Xt3 = 
-        kmadd(J13L,PDdissipationNth1Xt3,kmadd(J23L,PDdissipationNth2Xt3,kmul(J33L,PDdissipationNth3Xt3)));
-    }
-    else
-    {
-      JacPDdissipationNth1A = PDdissipationNth1A;
-      
-      JacPDdissipationNth1alpha = PDdissipationNth1alpha;
-      
-      JacPDdissipationNth1At11 = PDdissipationNth1At11;
-      
-      JacPDdissipationNth1At12 = PDdissipationNth1At12;
-      
-      JacPDdissipationNth1At13 = PDdissipationNth1At13;
-      
-      JacPDdissipationNth1At22 = PDdissipationNth1At22;
-      
-      JacPDdissipationNth1At23 = PDdissipationNth1At23;
-      
-      JacPDdissipationNth1At33 = PDdissipationNth1At33;
-      
-      JacPDdissipationNth1B1 = PDdissipationNth1B1;
-      
-      JacPDdissipationNth1B2 = PDdissipationNth1B2;
-      
-      JacPDdissipationNth1B3 = PDdissipationNth1B3;
-      
-      JacPDdissipationNth1beta1 = PDdissipationNth1beta1;
-      
-      JacPDdissipationNth1beta2 = PDdissipationNth1beta2;
-      
-      JacPDdissipationNth1beta3 = PDdissipationNth1beta3;
-      
-      JacPDdissipationNth1gt11 = PDdissipationNth1gt11;
-      
-      JacPDdissipationNth1gt12 = PDdissipationNth1gt12;
-      
-      JacPDdissipationNth1gt13 = PDdissipationNth1gt13;
-      
-      JacPDdissipationNth1gt22 = PDdissipationNth1gt22;
-      
-      JacPDdissipationNth1gt23 = PDdissipationNth1gt23;
-      
-      JacPDdissipationNth1gt33 = PDdissipationNth1gt33;
-      
-      JacPDdissipationNth1phi = PDdissipationNth1phi;
-      
-      JacPDdissipationNth1trK = PDdissipationNth1trK;
-      
-      JacPDdissipationNth1Xt1 = PDdissipationNth1Xt1;
-      
-      JacPDdissipationNth1Xt2 = PDdissipationNth1Xt2;
-      
-      JacPDdissipationNth1Xt3 = PDdissipationNth1Xt3;
-      
-      JacPDdissipationNth2A = PDdissipationNth2A;
-      
-      JacPDdissipationNth2alpha = PDdissipationNth2alpha;
-      
-      JacPDdissipationNth2At11 = PDdissipationNth2At11;
-      
-      JacPDdissipationNth2At12 = PDdissipationNth2At12;
-      
-      JacPDdissipationNth2At13 = PDdissipationNth2At13;
-      
-      JacPDdissipationNth2At22 = PDdissipationNth2At22;
-      
-      JacPDdissipationNth2At23 = PDdissipationNth2At23;
-      
-      JacPDdissipationNth2At33 = PDdissipationNth2At33;
-      
-      JacPDdissipationNth2B1 = PDdissipationNth2B1;
-      
-      JacPDdissipationNth2B2 = PDdissipationNth2B2;
-      
-      JacPDdissipationNth2B3 = PDdissipationNth2B3;
-      
-      JacPDdissipationNth2beta1 = PDdissipationNth2beta1;
-      
-      JacPDdissipationNth2beta2 = PDdissipationNth2beta2;
-      
-      JacPDdissipationNth2beta3 = PDdissipationNth2beta3;
-      
-      JacPDdissipationNth2gt11 = PDdissipationNth2gt11;
-      
-      JacPDdissipationNth2gt12 = PDdissipationNth2gt12;
-      
-      JacPDdissipationNth2gt13 = PDdissipationNth2gt13;
-      
-      JacPDdissipationNth2gt22 = PDdissipationNth2gt22;
-      
-      JacPDdissipationNth2gt23 = PDdissipationNth2gt23;
-      
-      JacPDdissipationNth2gt33 = PDdissipationNth2gt33;
-      
-      JacPDdissipationNth2phi = PDdissipationNth2phi;
-      
-      JacPDdissipationNth2trK = PDdissipationNth2trK;
-      
-      JacPDdissipationNth2Xt1 = PDdissipationNth2Xt1;
-      
-      JacPDdissipationNth2Xt2 = PDdissipationNth2Xt2;
-      
-      JacPDdissipationNth2Xt3 = PDdissipationNth2Xt3;
-      
-      JacPDdissipationNth3A = PDdissipationNth3A;
-      
-      JacPDdissipationNth3alpha = PDdissipationNth3alpha;
-      
-      JacPDdissipationNth3At11 = PDdissipationNth3At11;
-      
-      JacPDdissipationNth3At12 = PDdissipationNth3At12;
-      
-      JacPDdissipationNth3At13 = PDdissipationNth3At13;
-      
-      JacPDdissipationNth3At22 = PDdissipationNth3At22;
-      
-      JacPDdissipationNth3At23 = PDdissipationNth3At23;
-      
-      JacPDdissipationNth3At33 = PDdissipationNth3At33;
-      
-      JacPDdissipationNth3B1 = PDdissipationNth3B1;
-      
-      JacPDdissipationNth3B2 = PDdissipationNth3B2;
-      
-      JacPDdissipationNth3B3 = PDdissipationNth3B3;
-      
-      JacPDdissipationNth3beta1 = PDdissipationNth3beta1;
-      
-      JacPDdissipationNth3beta2 = PDdissipationNth3beta2;
-      
-      JacPDdissipationNth3beta3 = PDdissipationNth3beta3;
-      
-      JacPDdissipationNth3gt11 = PDdissipationNth3gt11;
-      
-      JacPDdissipationNth3gt12 = PDdissipationNth3gt12;
-      
-      JacPDdissipationNth3gt13 = PDdissipationNth3gt13;
-      
-      JacPDdissipationNth3gt22 = PDdissipationNth3gt22;
-      
-      JacPDdissipationNth3gt23 = PDdissipationNth3gt23;
-      
-      JacPDdissipationNth3gt33 = PDdissipationNth3gt33;
-      
-      JacPDdissipationNth3phi = PDdissipationNth3phi;
-      
-      JacPDdissipationNth3trK = PDdissipationNth3trK;
-      
-      JacPDdissipationNth3Xt1 = PDdissipationNth3Xt1;
-      
-      JacPDdissipationNth3Xt2 = PDdissipationNth3Xt2;
-      
-      JacPDdissipationNth3Xt3 = PDdissipationNth3Xt3;
-    }
-    
-    CCTK_REAL_VEC epsdiss1 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss2 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss3 = ToReal(EpsDiss);
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(epsdiss1,JacPDdissipationNth1phi,kmadd(epsdiss2,JacPDdissipationNth2phi,kmul(epsdiss3,JacPDdissipationNth3phi))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt11,kmadd(epsdiss2,JacPDdissipationNth2gt11,kmul(epsdiss3,JacPDdissipationNth3gt11))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt12,kmadd(epsdiss2,JacPDdissipationNth2gt12,kmul(epsdiss3,JacPDdissipationNth3gt12))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt13,kmadd(epsdiss2,JacPDdissipationNth2gt13,kmul(epsdiss3,JacPDdissipationNth3gt13))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt22,kmadd(epsdiss2,JacPDdissipationNth2gt22,kmul(epsdiss3,JacPDdissipationNth3gt22))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt23,kmadd(epsdiss2,JacPDdissipationNth2gt23,kmul(epsdiss3,JacPDdissipationNth3gt23))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt33,kmadd(epsdiss2,JacPDdissipationNth2gt33,kmul(epsdiss3,JacPDdissipationNth3gt33))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt1,kmadd(epsdiss2,JacPDdissipationNth2Xt1,kmul(epsdiss3,JacPDdissipationNth3Xt1))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt2,kmadd(epsdiss2,JacPDdissipationNth2Xt2,kmul(epsdiss3,JacPDdissipationNth3Xt2))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt3,kmadd(epsdiss2,JacPDdissipationNth2Xt3,kmul(epsdiss3,JacPDdissipationNth3Xt3))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(epsdiss1,JacPDdissipationNth1trK,kmadd(epsdiss2,JacPDdissipationNth2trK,kmul(epsdiss3,JacPDdissipationNth3trK))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(epsdiss1,JacPDdissipationNth1At11,kmadd(epsdiss2,JacPDdissipationNth2At11,kmul(epsdiss3,JacPDdissipationNth3At11))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(epsdiss1,JacPDdissipationNth1At12,kmadd(epsdiss2,JacPDdissipationNth2At12,kmul(epsdiss3,JacPDdissipationNth3At12))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(epsdiss1,JacPDdissipationNth1At13,kmadd(epsdiss2,JacPDdissipationNth2At13,kmul(epsdiss3,JacPDdissipationNth3At13))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(epsdiss1,JacPDdissipationNth1At22,kmadd(epsdiss2,JacPDdissipationNth2At22,kmul(epsdiss3,JacPDdissipationNth3At22))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(epsdiss1,JacPDdissipationNth1At23,kmadd(epsdiss2,JacPDdissipationNth2At23,kmul(epsdiss3,JacPDdissipationNth3At23))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(epsdiss1,JacPDdissipationNth1At33,kmadd(epsdiss2,JacPDdissipationNth2At33,kmul(epsdiss3,JacPDdissipationNth3At33))));
-    
-    alpharhsL = 
-      kadd(alpharhsL,kmadd(epsdiss1,JacPDdissipationNth1alpha,kmadd(epsdiss2,JacPDdissipationNth2alpha,kmul(epsdiss3,JacPDdissipationNth3alpha))));
-    
-    ArhsL = 
-      kadd(ArhsL,kmadd(epsdiss1,JacPDdissipationNth1A,kmadd(epsdiss2,JacPDdissipationNth2A,kmul(epsdiss3,JacPDdissipationNth3A))));
-    
-    beta1rhsL = 
-      kadd(beta1rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta1,kmadd(epsdiss2,JacPDdissipationNth2beta1,kmul(epsdiss3,JacPDdissipationNth3beta1))));
-    
-    beta2rhsL = 
-      kadd(beta2rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta2,kmadd(epsdiss2,JacPDdissipationNth2beta2,kmul(epsdiss3,JacPDdissipationNth3beta2))));
-    
-    beta3rhsL = 
-      kadd(beta3rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta3,kmadd(epsdiss2,JacPDdissipationNth2beta3,kmul(epsdiss3,JacPDdissipationNth3beta3))));
-    
-    B1rhsL = 
-      kadd(B1rhsL,kmadd(epsdiss1,JacPDdissipationNth1B1,kmadd(epsdiss2,JacPDdissipationNth2B1,kmul(epsdiss3,JacPDdissipationNth3B1))));
-    
-    B2rhsL = 
-      kadd(B2rhsL,kmadd(epsdiss1,JacPDdissipationNth1B2,kmadd(epsdiss2,JacPDdissipationNth2B2,kmul(epsdiss3,JacPDdissipationNth3B2))));
-    
-    B3rhsL = 
-      kadd(B3rhsL,kmadd(epsdiss1,JacPDdissipationNth1B3,kmadd(epsdiss2,JacPDdissipationNth2B3,kmul(epsdiss3,JacPDdissipationNth3B3))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_Dissipation);
-}
-
-extern "C" void ML_BSSN_O2_Dissipation(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_Dissipation_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_Dissipation_calc_every != ML_BSSN_O2_Dissipation_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_curvrhs",
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtlapserhs",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_dtshiftrhs",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_Gammarhs",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_lapserhs",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_log_confacrhs",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_metricrhs",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_shiftrhs",
-    "ML_BSSN_O2::ML_trace_curv",
-    "ML_BSSN_O2::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_Dissipation", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_Dissipation", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_Dissipation", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_Dissipation", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_Dissipation", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O2_Dissipation_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_Dissipation_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_InitGamma.cc b/ML_BSSN_O2/src/ML_BSSN_O2_InitGamma.cc
deleted file mode 100644
index 6ac41e5..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_InitGamma.cc
+++ /dev/null
@@ -1,295 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O2_InitGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_InitGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_InitGamma);
-}
-
-extern "C" void ML_BSSN_O2_InitGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_InitGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_InitGamma_calc_every != ML_BSSN_O2_InitGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_Gamma"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_InitGamma", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O2_InitGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_InitGamma_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_InitRHS.cc b/ML_BSSN_O2/src/ML_BSSN_O2_InitRHS.cc
deleted file mode 100644
index 9e86ac6..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_InitRHS.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O2_InitRHS_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_InitRHS,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_InitRHS);
-}
-
-extern "C" void ML_BSSN_O2_InitRHS(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_InitRHS_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_InitRHS_calc_every != ML_BSSN_O2_InitRHS_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_curvrhs",
-    "ML_BSSN_O2::ML_dtlapserhs",
-    "ML_BSSN_O2::ML_dtshiftrhs",
-    "ML_BSSN_O2::ML_Gammarhs",
-    "ML_BSSN_O2::ML_lapserhs",
-    "ML_BSSN_O2::ML_log_confacrhs",
-    "ML_BSSN_O2::ML_metricrhs",
-    "ML_BSSN_O2::ML_shiftrhs",
-    "ML_BSSN_O2::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_InitRHS", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O2_InitRHS_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_InitRHS_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_Minkowski.cc b/ML_BSSN_O2/src/ML_BSSN_O2_Minkowski.cc
deleted file mode 100644
index 695446f..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_Minkowski.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O2_Minkowski_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_Minkowski,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_Minkowski);
-}
-
-extern "C" void ML_BSSN_O2_Minkowski(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_Minkowski_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_Minkowski_calc_every != ML_BSSN_O2_Minkowski_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_Minkowski", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O2_Minkowski_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_Minkowski_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_RHS1.cc b/ML_BSSN_O2/src/ML_BSSN_O2_RHS1.cc
deleted file mode 100644
index f36a81d..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_RHS1.cc
+++ /dev/null
@@ -1,1467 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_RHS1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O2_RHS1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_RHS1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth11beta1;
-    CCTK_REAL_VEC PDstandardNth22beta1;
-    CCTK_REAL_VEC PDstandardNth33beta1;
-    CCTK_REAL_VEC PDstandardNth12beta1;
-    CCTK_REAL_VEC PDstandardNth13beta1;
-    CCTK_REAL_VEC PDstandardNth23beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth11beta2;
-    CCTK_REAL_VEC PDstandardNth22beta2;
-    CCTK_REAL_VEC PDstandardNth33beta2;
-    CCTK_REAL_VEC PDstandardNth12beta2;
-    CCTK_REAL_VEC PDstandardNth13beta2;
-    CCTK_REAL_VEC PDstandardNth23beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth11beta3;
-    CCTK_REAL_VEC PDstandardNth22beta3;
-    CCTK_REAL_VEC PDstandardNth33beta3;
-    CCTK_REAL_VEC PDstandardNth12beta3;
-    CCTK_REAL_VEC PDstandardNth13beta3;
-    CCTK_REAL_VEC PDstandardNth23beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder211(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder222(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder233(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder212(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder213(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder223(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder211(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder222(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder233(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder212(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder213(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder223(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder211(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder222(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder233(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder212(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder213(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder223(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder411(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder422(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder433(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder412(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder413(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder423(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder411(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder422(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder433(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder412(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder413(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder423(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder411(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder422(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder433(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder412(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder413(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder423(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder611(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder622(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder633(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder612(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder613(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder623(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder611(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder622(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder633(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder612(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder613(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder623(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder611(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder622(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder633(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder612(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder613(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder623(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder811(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder822(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder833(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder812(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder813(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder823(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder811(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder822(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder833(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder812(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder813(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder823(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder811(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder822(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder833(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder812(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder813(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder823(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11beta1;
-    CCTK_REAL_VEC JacPDstandardNth11beta2;
-    CCTK_REAL_VEC JacPDstandardNth11beta3;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12beta1;
-    CCTK_REAL_VEC JacPDstandardNth12beta2;
-    CCTK_REAL_VEC JacPDstandardNth12beta3;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13beta1;
-    CCTK_REAL_VEC JacPDstandardNth13beta2;
-    CCTK_REAL_VEC JacPDstandardNth13beta3;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth21alpha;
-    CCTK_REAL_VEC JacPDstandardNth21beta1;
-    CCTK_REAL_VEC JacPDstandardNth21beta2;
-    CCTK_REAL_VEC JacPDstandardNth21beta3;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22beta1;
-    CCTK_REAL_VEC JacPDstandardNth22beta2;
-    CCTK_REAL_VEC JacPDstandardNth22beta3;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23beta1;
-    CCTK_REAL_VEC JacPDstandardNth23beta2;
-    CCTK_REAL_VEC JacPDstandardNth23beta3;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth31alpha;
-    CCTK_REAL_VEC JacPDstandardNth31beta1;
-    CCTK_REAL_VEC JacPDstandardNth31beta2;
-    CCTK_REAL_VEC JacPDstandardNth31beta3;
-    CCTK_REAL_VEC JacPDstandardNth32alpha;
-    CCTK_REAL_VEC JacPDstandardNth32beta1;
-    CCTK_REAL_VEC JacPDstandardNth32beta2;
-    CCTK_REAL_VEC JacPDstandardNth32beta3;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33beta1;
-    CCTK_REAL_VEC JacPDstandardNth33beta2;
-    CCTK_REAL_VEC JacPDstandardNth33beta3;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta1 = 
-        kmadd(dJ111L,PDstandardNth1beta1,kmadd(dJ211L,PDstandardNth2beta1,kmadd(dJ311L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J11L),kmadd(PDstandardNth22beta1,SQR(J21L),kmadd(PDstandardNth33beta1,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1)),kmul(J21L,kmul(J31L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta2 = 
-        kmadd(dJ111L,PDstandardNth1beta2,kmadd(dJ211L,PDstandardNth2beta2,kmadd(dJ311L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J11L),kmadd(PDstandardNth22beta2,SQR(J21L),kmadd(PDstandardNth33beta2,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2)),kmul(J21L,kmul(J31L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta3 = 
-        kmadd(dJ111L,PDstandardNth1beta3,kmadd(dJ211L,PDstandardNth2beta3,kmadd(dJ311L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J11L),kmadd(PDstandardNth22beta3,SQR(J21L),kmadd(PDstandardNth33beta3,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3)),kmul(J21L,kmul(J31L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta1 = 
-        kmadd(dJ122L,PDstandardNth1beta1,kmadd(dJ222L,PDstandardNth2beta1,kmadd(dJ322L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J12L),kmadd(PDstandardNth22beta1,SQR(J22L),kmadd(PDstandardNth33beta1,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmul(J22L,kmul(J32L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta2 = 
-        kmadd(dJ122L,PDstandardNth1beta2,kmadd(dJ222L,PDstandardNth2beta2,kmadd(dJ322L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J12L),kmadd(PDstandardNth22beta2,SQR(J22L),kmadd(PDstandardNth33beta2,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmul(J22L,kmul(J32L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta3 = 
-        kmadd(dJ122L,PDstandardNth1beta3,kmadd(dJ222L,PDstandardNth2beta3,kmadd(dJ322L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J12L),kmadd(PDstandardNth22beta3,SQR(J22L),kmadd(PDstandardNth33beta3,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmul(J22L,kmul(J32L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta1 = 
-        kmadd(dJ133L,PDstandardNth1beta1,kmadd(dJ233L,PDstandardNth2beta1,kmadd(dJ333L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J13L),kmadd(PDstandardNth22beta1,SQR(J23L),kmadd(PDstandardNth33beta1,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmul(J23L,kmul(J33L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta2 = 
-        kmadd(dJ133L,PDstandardNth1beta2,kmadd(dJ233L,PDstandardNth2beta2,kmadd(dJ333L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J13L),kmadd(PDstandardNth22beta2,SQR(J23L),kmadd(PDstandardNth33beta2,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmul(J23L,kmul(J33L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta3 = 
-        kmadd(dJ133L,PDstandardNth1beta3,kmadd(dJ233L,PDstandardNth2beta3,kmadd(dJ333L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J13L),kmadd(PDstandardNth22beta3,SQR(J23L),kmadd(PDstandardNth33beta3,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmul(J23L,kmul(J33L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth12beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth12beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth13beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth13beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth21alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth21beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth21beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth21beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth23beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth23beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth31alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth31beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth31beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth31beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth32alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth32beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth32beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth32beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11beta1 = PDstandardNth11beta1;
-      
-      JacPDstandardNth11beta2 = PDstandardNth11beta2;
-      
-      JacPDstandardNth11beta3 = PDstandardNth11beta3;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22beta1 = PDstandardNth22beta1;
-      
-      JacPDstandardNth22beta2 = PDstandardNth22beta2;
-      
-      JacPDstandardNth22beta3 = PDstandardNth22beta3;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33beta1 = PDstandardNth33beta1;
-      
-      JacPDstandardNth33beta2 = PDstandardNth33beta2;
-      
-      JacPDstandardNth33beta3 = PDstandardNth33beta3;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth12beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth12beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth13beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth13beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth21alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth21beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth21beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth21beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth23beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth23beta3 = PDstandardNth23beta3;
-      
-      JacPDstandardNth31alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth31beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth31beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth31beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth32alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth32beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth32beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth32beta3 = PDstandardNth23beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC Atu11 = 
-      kmadd(Atm11,gtu11,kmadd(Atm12,gtu12,kmul(Atm13,gtu13)));
-    
-    CCTK_REAL_VEC Atu12 = 
-      kmadd(Atm11,gtu12,kmadd(Atm12,gtu22,kmul(Atm13,gtu23)));
-    
-    CCTK_REAL_VEC Atu13 = 
-      kmadd(Atm11,gtu13,kmadd(Atm12,gtu23,kmul(Atm13,gtu33)));
-    
-    CCTK_REAL_VEC Atu22 = 
-      kmadd(Atm21,gtu12,kmadd(Atm22,gtu22,kmul(Atm23,gtu23)));
-    
-    CCTK_REAL_VEC Atu23 = 
-      kmadd(Atm21,gtu13,kmadd(Atm22,gtu23,kmul(Atm23,gtu33)));
-    
-    CCTK_REAL_VEC Atu33 = 
-      kmadd(Atm31,gtu13,kmadd(Atm32,gtu23,kmul(Atm33,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC phirhsL = kneg(kmul(IfThen(conformalMethod == 
-      1,kmul(phiL,ToReal(0.333333333333333333333333333333)),ToReal(-0.166666666666666666666666666667)),kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,knmsub(alphaL,trKL,JacPDstandardNth3beta3)))));
-    
-    CCTK_REAL_VEC gt11rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth1beta2,kmul(gt13L,JacPDstandardNth1beta3)),ToReal(-3),kmadd(gt11L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At11L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt12rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At12L,ToReal(-6)),kmadd(gt12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(kmadd(gt22L,JacPDstandardNth1beta2,kmadd(gt23L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth2beta1,kmul(gt13L,JacPDstandardNth2beta3)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt13rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At13L,ToReal(-6)),kmadd(gt13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt23L,JacPDstandardNth1beta2,kmadd(gt33L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth3beta1,kmul(gt12L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt22rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth2beta1,kmul(gt23L,JacPDstandardNth2beta3)),ToReal(-3),kmadd(gt22L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At22L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt23rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At23L,ToReal(-6)),kmadd(gt23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt13L,JacPDstandardNth2beta1,kmadd(gt33L,JacPDstandardNth2beta3,kmadd(gt12L,JacPDstandardNth3beta1,kmul(gt22L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt33rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt13L,JacPDstandardNth3beta1,kmul(gt23L,JacPDstandardNth3beta2)),ToReal(-3),kmadd(gt33L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(alphaL,kmul(At33L,ToReal(3))))));
-    
-    CCTK_REAL_VEC dotXt1 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu11,JacPDstandardNth1alpha,kmadd(Atu12,JacPDstandardNth2alpha,kmul(Atu13,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth2beta1,Xtn2,kmul(JacPDstandardNth3beta1,Xtn3)),ToReal(-3),kmadd(Xtn1,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth1beta1),kmadd(kmadd(gtu12,JacPDstandardNth12beta1,kmadd(gtu13,JacPDstandardNth13beta1,kmadd(gtu22,JacPDstandardNth22beta1,kmadd(gtu23,kadd(JacPDstandardNth23beta1,JacPDstandardNth32beta1),kmul(gtu33,JacPDstandardNth33beta1))))),ToReal(3),kmadd(gtu11,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth11beta1,ToReal(4),JacPDstandardNth13beta3)),kmadd(gtu12,kadd(JacPDstandardNth22beta2,kmadd(JacPDstandardNth21beta1,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu13,kadd(JacPDstandardNth32beta2,kmadd(JacPDstandardNth31beta1,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth2beta2,Xtn1,kmul(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1trK,kmadd(gtu12,JacPDstandardNth2trK,kmul(gtu13,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu23,Gt123,kmul(Atu12,kmadd(cdphi2,ToReal(3),Gt112))),ToReal(6),kmadd(ToReal(3),kmadd(Atu22,Gt122,kmadd(Atu33,Gt133,kmul(Atu11,kmadd(cdphi1,ToReal(6),Gt111)))),kmadd(Atu13,kmadd(Gt113,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu11,S1,kmadd(gtu12,S2,kmul(gtu13,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt2 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu12,JacPDstandardNth1alpha,kmadd(Atu22,JacPDstandardNth2alpha,kmul(Atu23,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta2,Xtn1,kmul(JacPDstandardNth3beta2,Xtn3)),ToReal(-3),kmadd(Xtn2,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth2beta2),kmadd(kmadd(gtu11,JacPDstandardNth11beta2,kmadd(gtu23,JacPDstandardNth23beta2,kmadd(gtu13,kadd(JacPDstandardNth13beta2,JacPDstandardNth31beta2),kmul(gtu33,JacPDstandardNth33beta2)))),ToReal(3),kmadd(gtu12,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth13beta3,kmadd(JacPDstandardNth21beta2,ToReal(3),kmul(JacPDstandardNth12beta2,ToReal(4))))),kmadd(gtu22,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth22beta2,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu23,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth32beta2,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn2,kmul(alphaL,kmadd(kmadd(gtu12,JacPDstandardNth1trK,kmadd(gtu22,JacPDstandardNth2trK,kmul(gtu23,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu13,Gt213,kmul(Atu12,kmadd(cdphi1,ToReal(3),Gt212))),ToReal(6),kmadd(ToReal(3),kmadd(Atu11,Gt211,kmadd(Atu33,Gt233,kmul(Atu22,kmadd(cdphi2,ToReal(6),Gt222)))),kmadd(Atu23,kmadd(Gt223,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu12,S1,kmadd(gtu22,S2,kmul(gtu23,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt3 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu13,JacPDstandardNth1alpha,kmadd(Atu23,JacPDstandardNth2alpha,kmul(Atu33,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta3,Xtn1,kmul(JacPDstandardNth2beta3,Xtn2)),ToReal(-3),kmadd(Xtn3,kmsub(JacPDstandardNth2beta2,ToReal(2),JacPDstandardNth3beta3),kmadd(kmadd(gtu11,JacPDstandardNth11beta3,kmadd(gtu12,kadd(JacPDstandardNth12beta3,JacPDstandardNth21beta3),kmadd(gtu22,JacPDstandardNth22beta3,kmul(gtu23,JacPDstandardNth32beta3)))),ToReal(3),kmadd(gtu13,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth31beta3,ToReal(3),kmul(JacPDstandardNth13beta3,ToReal(4))))),kmadd(gtu23,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth23beta3,ToReal(4),JacPDstandardNth22beta2)),kmadd(gtu33,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth33beta3,ToReal(4),JacPDstandardNth32beta2)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn3,kmul(alphaL,kmadd(kmadd(gtu13,JacPDstandardNth1trK,kmadd(gtu23,JacPDstandardNth2trK,kmul(gtu33,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu11,Gt311,kmul(Atu22,Gt322)),ToReal(3),kmadd(kmadd(Atu12,Gt312,kmadd(Atu13,kmadd(cdphi1,ToReal(3),Gt313),kmul(Atu23,kmadd(cdphi2,ToReal(3),Gt323)))),ToReal(6),kmadd(Atu33,kmadd(Gt333,ToReal(3),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu13,S1,kmadd(gtu23,S2,kmul(gtu33,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC Xt1rhsL = dotXt1;
-    
-    CCTK_REAL_VEC Xt2rhsL = dotXt2;
-    
-    CCTK_REAL_VEC Xt3rhsL = dotXt3;
-    
-    CCTK_REAL_VEC dottrK = 
-      kmsub(alphaL,kadd(SQR(Atm11),kadd(SQR(Atm22),kadd(SQR(Atm33),kmadd(SQR(trKL),ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(2),kmul(kadd(rho,trS),kmul(ToReal(4),ToReal(Pi)))))))),kmul(em4phi,knmsub(JacPDstandardNth1alpha,Xtn1,knmsub(JacPDstandardNth2alpha,Xtn2,knmsub(JacPDstandardNth3alpha,Xtn3,kmadd(gtu11,kmadd(cdphi1,kmul(JacPDstandardNth1alpha,ToReal(2)),JacPDstandardNth11alpha),kmadd(gtu12,kadd(JacPDstandardNth12alpha,kadd(JacPDstandardNth21alpha,kmadd(cdphi2,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth2alpha,ToReal(2)))))),kmadd(gtu22,kmadd(cdphi2,kmul(JacPDstandardNth2alpha,ToReal(2)),JacPDstandardNth22alpha),kmadd(gtu13,kadd(JacPDstandardNth13alpha,kadd(JacPDstandardNth31alpha,kmadd(cdphi3,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmadd(gtu23,kadd(JacPDstandardNth23alpha,kadd(JacPDstandardNth32alpha,kmadd(cdphi3,kmul(JacPDstandardNth2alpha,ToReal(2)),kmul(cdphi2,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmul(gtu33,kmadd(cdphi3,kmul(JacPDstandardNth3alpha,ToReal(2)),JacPDstandardNth33alpha))))))))))));
-    
-    CCTK_REAL_VEC trKrhsL = dottrK;
-    
-    CCTK_REAL_VEC alpharhsL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmadd(kadd(alphaL,ToReal(-1)),ToReal(AlphaDriver),trKL),ksub(ToReal(1),ToReal(LapseACoeff)))))));
-    
-    CCTK_REAL_VEC ArhsL = 
-      kmul(knmsub(AL,ToReal(AlphaDriver),dottrK),ToReal(LapseACoeff));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC beta1rhsL;
-    CCTK_REAL_VEC beta2rhsL;
-    CCTK_REAL_VEC beta3rhsL;
-    
-    if (harmonicShift)
-    {
-      beta1rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4)))))))))))))))));
-      
-      beta2rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4))))))))))))))))));
-      
-      beta3rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4))))))))))))))))));
-    }
-    else
-    {
-      beta1rhsL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta2rhsL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta3rhsL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    CCTK_REAL_VEC B1rhsL = 
-      kmul(knmsub(B1L,kmul(eta,ToReal(BetaDriver)),dotXt1),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B2rhsL = 
-      kmul(knmsub(B2L,kmul(eta,ToReal(BetaDriver)),dotXt2),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B3rhsL = 
-      kmul(knmsub(B3L,kmul(eta,ToReal(BetaDriver)),dotXt3),ToReal(ShiftBCoeff));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_RHS1);
-}
-
-extern "C" void ML_BSSN_O2_RHS1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_RHS1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_RHS1_calc_every != ML_BSSN_O2_RHS1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtlapserhs",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_dtshiftrhs",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_Gammarhs",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_lapserhs",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_log_confacrhs",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_metricrhs",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_shiftrhs",
-    "ML_BSSN_O2::ML_trace_curv",
-    "ML_BSSN_O2::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_RHS1", 19, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_RHS1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_RHS1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_RHS1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_RHS1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O2_RHS1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_RHS1_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_RHS2.cc b/ML_BSSN_O2/src/ML_BSSN_O2_RHS2.cc
deleted file mode 100644
index 47c3722..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_RHS2.cc
+++ /dev/null
@@ -1,1869 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_RHS2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O2_RHS2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_RHS2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC g11 = kmul(gt11L,e4phi);
-    
-    CCTK_REAL_VEC g12 = kmul(gt12L,e4phi);
-    
-    CCTK_REAL_VEC g13 = kmul(gt13L,e4phi);
-    
-    CCTK_REAL_VEC g22 = kmul(gt22L,e4phi);
-    
-    CCTK_REAL_VEC g23 = kmul(gt23L,e4phi);
-    
-    CCTK_REAL_VEC g33 = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC Ats11 = 
-      kmadd(Gt211,JacPDstandardNth2alpha,kmadd(Gt311,JacPDstandardNth3alpha,kmadd(alphaL,R11,kmsub(JacPDstandardNth1alpha,kmadd(cdphi1,ToReal(4),Gt111),JacPDstandardNth11alpha))));
-    
-    CCTK_REAL_VEC Ats12 = 
-      kmadd(Gt312,JacPDstandardNth3alpha,kmadd(alphaL,R12,ksub(kmadd(JacPDstandardNth2alpha,kmadd(cdphi1,ToReal(2),Gt212),kmul(JacPDstandardNth1alpha,kmadd(cdphi2,ToReal(2),Gt112))),JacPDstandardNth12alpha)));
-    
-    CCTK_REAL_VEC Ats13 = 
-      kmadd(Gt213,JacPDstandardNth2alpha,kmadd(alphaL,R13,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi1,ToReal(2),Gt313),kmul(JacPDstandardNth1alpha,kmadd(cdphi3,ToReal(2),Gt113))),JacPDstandardNth13alpha)));
-    
-    CCTK_REAL_VEC Ats22 = 
-      kmadd(Gt122,JacPDstandardNth1alpha,kmadd(Gt322,JacPDstandardNth3alpha,kmadd(alphaL,R22,kmsub(JacPDstandardNth2alpha,kmadd(cdphi2,ToReal(4),Gt222),JacPDstandardNth22alpha))));
-    
-    CCTK_REAL_VEC Ats23 = 
-      kmadd(Gt123,JacPDstandardNth1alpha,kmadd(alphaL,R23,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi2,ToReal(2),Gt323),kmul(JacPDstandardNth2alpha,kmadd(cdphi3,ToReal(2),Gt223))),JacPDstandardNth23alpha)));
-    
-    CCTK_REAL_VEC Ats33 = 
-      kmadd(Gt133,JacPDstandardNth1alpha,kmadd(Gt233,JacPDstandardNth2alpha,kmadd(alphaL,R33,kmsub(JacPDstandardNth3alpha,kmadd(cdphi3,ToReal(4),Gt333),JacPDstandardNth33alpha))));
-    
-    CCTK_REAL_VEC trAts = 
-      kmadd(Ats11,gu11,kmadd(Ats22,gu22,kmadd(Ats33,gu33,kmul(kmadd(Ats12,gu12,kmadd(Ats13,gu13,kmul(Ats23,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats11,ToReal(3),kmul(g11,trAts)),kmadd(At11L,kmadd(kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth1beta1,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth1beta2,kmul(At13L,JacPDstandardNth1beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm21,kmul(At13L,Atm31)),ToReal(6),kmadd(At11L,kmadd(trKL,ToReal(-3),kmul(Atm11,ToReal(6))),kmul(em4phi,kmul(kmadd(g11,kmul(trS,ToReal(-8)),kmul(eTxxL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At12rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmsub(kmadd(Ats12,em4phi,kmadd(At22L,JacPDstandardNth1beta2,kmadd(At23L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth2beta1,kmul(At13L,JacPDstandardNth2beta3))))),ToReal(3),kmul(em4phi,kmul(g12,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm12,kmul(At13L,Atm32)),ToReal(-2),kmadd(At12L,kmadd(Atm22,ToReal(-2),trKL),kmul(em4phi,kmadd(g12,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxyL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At13rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats13,em4phi,kmadd(At23L,JacPDstandardNth1beta2,kmadd(At33L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth3beta1,kmul(At12L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g13,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm13,kmul(At12L,Atm23)),ToReal(-2),kmadd(At13L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g13,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At22rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats22,ToReal(3),kmul(g22,trAts)),kmadd(At22L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth2beta2,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth2beta1,kmul(At23L,JacPDstandardNth2beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm12,kmul(At23L,Atm32)),ToReal(6),kmadd(At22L,kmadd(trKL,ToReal(-3),kmul(Atm22,ToReal(6))),kmul(em4phi,kmul(kmadd(g22,kmul(trS,ToReal(-8)),kmul(eTyyL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At23rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats23,em4phi,kmadd(At13L,JacPDstandardNth2beta1,kmadd(At33L,JacPDstandardNth2beta3,kmadd(At12L,JacPDstandardNth3beta1,kmul(At22L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g23,trAts)))),kmul(alphaL,kmadd(kmadd(At12L,Atm13,kmul(At22L,Atm23)),ToReal(-2),kmadd(At23L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g23,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTyzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At33rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats33,ToReal(3),kmul(g33,trAts)),kmadd(At33L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),ToReal(-2),kmul(JacPDstandardNth3beta3,ToReal(4))),kmsub(kmadd(At13L,JacPDstandardNth3beta1,kmul(At23L,JacPDstandardNth3beta2)),ToReal(6),kmul(alphaL,kmadd(kmadd(At13L,Atm13,kmul(At23L,Atm23)),ToReal(6),kmadd(At33L,kmadd(trKL,ToReal(-3),kmul(Atm33,ToReal(6))),kmul(em4phi,kmul(kmadd(g33,kmul(trS,ToReal(-8)),kmul(eTzzL,ToReal(24))),ToReal(Pi))))))))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_RHS2);
-}
-
-extern "C" void ML_BSSN_O2_RHS2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_RHS2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_RHS2_calc_every != ML_BSSN_O2_RHS2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_curvrhs",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_RHS2", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_RHS2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_RHS2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_RHS2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_RHS2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O2_RHS2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_RHS2_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_RHSStaticBoundary.cc b/ML_BSSN_O2/src/ML_BSSN_O2_RHSStaticBoundary.cc
deleted file mode 100644
index 49724d8..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_RHSStaticBoundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_RHSStaticBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O2_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_RHSStaticBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_RHSStaticBoundary);
-}
-
-extern "C" void ML_BSSN_O2_RHSStaticBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_RHSStaticBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_RHSStaticBoundary_calc_every != ML_BSSN_O2_RHSStaticBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_curvrhs",
-    "ML_BSSN_O2::ML_dtlapserhs",
-    "ML_BSSN_O2::ML_dtshiftrhs",
-    "ML_BSSN_O2::ML_Gammarhs",
-    "ML_BSSN_O2::ML_lapserhs",
-    "ML_BSSN_O2::ML_log_confacrhs",
-    "ML_BSSN_O2::ML_metricrhs",
-    "ML_BSSN_O2::ML_shiftrhs",
-    "ML_BSSN_O2::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_RHSStaticBoundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundary(cctkGH, ML_BSSN_O2_RHSStaticBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_RHSStaticBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_boundary.cc b/ML_BSSN_O2/src/ML_BSSN_O2_boundary.cc
deleted file mode 100644
index 091b3a7..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_boundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_boundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_curv.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_lapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_lapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_log_confac","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_log_confac.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_metric","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_metric.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_shift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_shift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_trace_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_trace_curv.");
-  return;
-}
-
-static void ML_BSSN_O2_boundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_boundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_boundary);
-}
-
-extern "C" void ML_BSSN_O2_boundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_boundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_boundary_calc_every != ML_BSSN_O2_boundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_boundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_O2_boundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_boundary_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_constraints1.cc b/ML_BSSN_O2/src/ML_BSSN_O2_constraints1.cc
deleted file mode 100644
index 2cb6c49..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_constraints1.cc
+++ /dev/null
@@ -1,1623 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_constraints1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_Ham","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_Ham.");
-  return;
-}
-
-static void ML_BSSN_O2_constraints1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_constraints1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trR = 
-      kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmul(kmadd(gu12,R12,kmadd(gu13,R13,kmul(gu23,R23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC HL = 
-      kadd(trR,kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(-2),ksub(ksub(ksub(kmadd(SQR(trKL),ToReal(0.666666666666666666666666666667),kmul(rho,kmul(ToReal(-16),ToReal(Pi)))),SQR(Atm33)),SQR(Atm22)),SQR(Atm11))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(H[index],HL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_constraints1);
-}
-
-extern "C" void ML_BSSN_O2_constraints1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_constraints1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_constraints1_calc_every != ML_BSSN_O2_constraints1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_Ham",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_constraints1", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_constraints1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_constraints1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_constraints1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_constraints1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O2_constraints1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_constraints1_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_constraints2.cc b/ML_BSSN_O2/src/ML_BSSN_O2_constraints2.cc
deleted file mode 100644
index 8c1baec..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_constraints2.cc
+++ /dev/null
@@ -1,1004 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_constraints2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_cons_detg","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_cons_detg.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_cons_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_cons_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_cons_traceA","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_cons_traceA.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_mom","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_mom.");
-  return;
-}
-
-static void ML_BSSN_O2_constraints2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_constraints2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1At11;
-    CCTK_REAL_VEC PDstandardNth2At11;
-    CCTK_REAL_VEC PDstandardNth3At11;
-    CCTK_REAL_VEC PDstandardNth1At12;
-    CCTK_REAL_VEC PDstandardNth2At12;
-    CCTK_REAL_VEC PDstandardNth3At12;
-    CCTK_REAL_VEC PDstandardNth1At13;
-    CCTK_REAL_VEC PDstandardNth2At13;
-    CCTK_REAL_VEC PDstandardNth3At13;
-    CCTK_REAL_VEC PDstandardNth1At22;
-    CCTK_REAL_VEC PDstandardNth2At22;
-    CCTK_REAL_VEC PDstandardNth3At22;
-    CCTK_REAL_VEC PDstandardNth1At23;
-    CCTK_REAL_VEC PDstandardNth2At23;
-    CCTK_REAL_VEC PDstandardNth3At23;
-    CCTK_REAL_VEC PDstandardNth1At33;
-    CCTK_REAL_VEC PDstandardNth2At33;
-    CCTK_REAL_VEC PDstandardNth3At33;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1At11 = PDstandardNthfdOrder21(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder22(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder23(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder21(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder22(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder23(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder21(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder22(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder23(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder21(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder22(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder23(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder21(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder22(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder23(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder21(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder22(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder23(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1At11 = PDstandardNthfdOrder41(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder42(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder43(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder41(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder42(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder43(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder41(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder42(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder43(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder41(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder42(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder43(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder41(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder42(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder43(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder41(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder42(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder43(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1At11 = PDstandardNthfdOrder61(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder62(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder63(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder61(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder62(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder63(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder61(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder62(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder63(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder61(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder62(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder63(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder61(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder62(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder63(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder61(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder62(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder63(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1At11 = PDstandardNthfdOrder81(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder82(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder83(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder81(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder82(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder83(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder81(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder82(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder83(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder81(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder82(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder83(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder81(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder82(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder83(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder81(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder82(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder83(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth1At11;
-    CCTK_REAL_VEC JacPDstandardNth1At12;
-    CCTK_REAL_VEC JacPDstandardNth1At13;
-    CCTK_REAL_VEC JacPDstandardNth1At22;
-    CCTK_REAL_VEC JacPDstandardNth1At23;
-    CCTK_REAL_VEC JacPDstandardNth1At33;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth2At11;
-    CCTK_REAL_VEC JacPDstandardNth2At12;
-    CCTK_REAL_VEC JacPDstandardNth2At13;
-    CCTK_REAL_VEC JacPDstandardNth2At22;
-    CCTK_REAL_VEC JacPDstandardNth2At23;
-    CCTK_REAL_VEC JacPDstandardNth2At33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth3At11;
-    CCTK_REAL_VEC JacPDstandardNth3At12;
-    CCTK_REAL_VEC JacPDstandardNth3At13;
-    CCTK_REAL_VEC JacPDstandardNth3At22;
-    CCTK_REAL_VEC JacPDstandardNth3At23;
-    CCTK_REAL_VEC JacPDstandardNth3At33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1At11 = 
-        kmadd(J11L,PDstandardNth1At11,kmadd(J21L,PDstandardNth2At11,kmul(J31L,PDstandardNth3At11)));
-      
-      JacPDstandardNth1At12 = 
-        kmadd(J11L,PDstandardNth1At12,kmadd(J21L,PDstandardNth2At12,kmul(J31L,PDstandardNth3At12)));
-      
-      JacPDstandardNth1At13 = 
-        kmadd(J11L,PDstandardNth1At13,kmadd(J21L,PDstandardNth2At13,kmul(J31L,PDstandardNth3At13)));
-      
-      JacPDstandardNth1At22 = 
-        kmadd(J11L,PDstandardNth1At22,kmadd(J21L,PDstandardNth2At22,kmul(J31L,PDstandardNth3At22)));
-      
-      JacPDstandardNth1At23 = 
-        kmadd(J11L,PDstandardNth1At23,kmadd(J21L,PDstandardNth2At23,kmul(J31L,PDstandardNth3At23)));
-      
-      JacPDstandardNth1At33 = 
-        kmadd(J11L,PDstandardNth1At33,kmadd(J21L,PDstandardNth2At33,kmul(J31L,PDstandardNth3At33)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2At11 = 
-        kmadd(J12L,PDstandardNth1At11,kmadd(J22L,PDstandardNth2At11,kmul(J32L,PDstandardNth3At11)));
-      
-      JacPDstandardNth2At12 = 
-        kmadd(J12L,PDstandardNth1At12,kmadd(J22L,PDstandardNth2At12,kmul(J32L,PDstandardNth3At12)));
-      
-      JacPDstandardNth2At13 = 
-        kmadd(J12L,PDstandardNth1At13,kmadd(J22L,PDstandardNth2At13,kmul(J32L,PDstandardNth3At13)));
-      
-      JacPDstandardNth2At22 = 
-        kmadd(J12L,PDstandardNth1At22,kmadd(J22L,PDstandardNth2At22,kmul(J32L,PDstandardNth3At22)));
-      
-      JacPDstandardNth2At23 = 
-        kmadd(J12L,PDstandardNth1At23,kmadd(J22L,PDstandardNth2At23,kmul(J32L,PDstandardNth3At23)));
-      
-      JacPDstandardNth2At33 = 
-        kmadd(J12L,PDstandardNth1At33,kmadd(J22L,PDstandardNth2At33,kmul(J32L,PDstandardNth3At33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3At11 = 
-        kmadd(J13L,PDstandardNth1At11,kmadd(J23L,PDstandardNth2At11,kmul(J33L,PDstandardNth3At11)));
-      
-      JacPDstandardNth3At12 = 
-        kmadd(J13L,PDstandardNth1At12,kmadd(J23L,PDstandardNth2At12,kmul(J33L,PDstandardNth3At12)));
-      
-      JacPDstandardNth3At13 = 
-        kmadd(J13L,PDstandardNth1At13,kmadd(J23L,PDstandardNth2At13,kmul(J33L,PDstandardNth3At13)));
-      
-      JacPDstandardNth3At22 = 
-        kmadd(J13L,PDstandardNth1At22,kmadd(J23L,PDstandardNth2At22,kmul(J33L,PDstandardNth3At22)));
-      
-      JacPDstandardNth3At23 = 
-        kmadd(J13L,PDstandardNth1At23,kmadd(J23L,PDstandardNth2At23,kmul(J33L,PDstandardNth3At23)));
-      
-      JacPDstandardNth3At33 = 
-        kmadd(J13L,PDstandardNth1At33,kmadd(J23L,PDstandardNth2At33,kmul(J33L,PDstandardNth3At33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-    }
-    else
-    {
-      JacPDstandardNth1At11 = PDstandardNth1At11;
-      
-      JacPDstandardNth1At12 = PDstandardNth1At12;
-      
-      JacPDstandardNth1At13 = PDstandardNth1At13;
-      
-      JacPDstandardNth1At22 = PDstandardNth1At22;
-      
-      JacPDstandardNth1At23 = PDstandardNth1At23;
-      
-      JacPDstandardNth1At33 = PDstandardNth1At33;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2At11 = PDstandardNth2At11;
-      
-      JacPDstandardNth2At12 = PDstandardNth2At12;
-      
-      JacPDstandardNth2At13 = PDstandardNth2At13;
-      
-      JacPDstandardNth2At22 = PDstandardNth2At22;
-      
-      JacPDstandardNth2At23 = PDstandardNth2At23;
-      
-      JacPDstandardNth2At33 = PDstandardNth2At33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3At11 = PDstandardNth3At11;
-      
-      JacPDstandardNth3At12 = PDstandardNth3At12;
-      
-      JacPDstandardNth3At13 = PDstandardNth3At13;
-      
-      JacPDstandardNth3At22 = PDstandardNth3At22;
-      
-      JacPDstandardNth3At23 = PDstandardNth3At23;
-      
-      JacPDstandardNth3At33 = PDstandardNth3At33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC M1L = 
-      kmadd(gtu11,JacPDstandardNth1At11,kmadd(gtu12,JacPDstandardNth2At11,kmadd(gtu22,JacPDstandardNth2At12,kmadd(gtu23,JacPDstandardNth2At13,kmadd(gtu13,JacPDstandardNth3At11,kmadd(gtu23,JacPDstandardNth3At12,kmadd(gtu33,JacPDstandardNth3At13,kmadd(gtu12,kadd(JacPDstandardNth1At12,kmsub(At13L,kmul(Gt312,ToReal(-3)),kmul(At22L,Gt211))),kmadd(gtu13,kadd(JacPDstandardNth1At13,kmsub(At13L,kmul(Gt313,ToReal(-3)),kmul(At23L,Gt211))),knmsub(gtu22,kmadd(At23L,Gt312,kmul(At22L,Gt212)),kmadd(Gt311,kmsub(At13L,kmul(gtu11,ToReal(-2)),kmadd(At33L,gtu13,kmul(At23L,gtu12))),kmadd(At13L,kmsub(Gt323,kmul(gtu23,ToReal(-2)),kmul(Gt113,gtu33)),kmadd(JacPDstandardNth1trK,ToReal(-0.666666666666666666666666666667),knmsub(At12L,kmadd(Gt111,gtu12,kmadd(Gt112,gtu22,kmadd(Gt222,gtu22,kmadd(Gt113,gtu23,kmadd(Gt233,gtu33,kmadd(cdphi1,kmul(gtu12,ToReal(-6)),kmadd(cdphi2,kmul(gtu22,ToReal(-6)),kmadd(cdphi3,kmul(gtu23,ToReal(-6)),kmadd(Gt211,kmul(gtu11,ToReal(2)),kmadd(Gt223,kmul(gtu23,ToReal(2)),kmadd(Gt212,kmul(gtu12,ToReal(3)),kmul(Gt213,kmul(gtu13,ToReal(3)))))))))))))),kmadd(gtu23,knmsub(At22L,Gt213,knmsub(At33L,Gt312,kmsub(At13L,kmul(cdphi2,ToReal(6)),kmul(At23L,kadd(Gt313,Gt212))))),kmadd(gtu33,knmsub(At23L,Gt213,kmsub(At13L,kmul(cdphi3,ToReal(6)),kmul(At33L,Gt313))),kmadd(At11L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt111,kmul(gtu11,ToReal(-2)),kmadd(Gt123,kmul(gtu23,ToReal(-2)),knmsub(Gt122,gtu22,knmsub(Gt133,gtu33,kmadd(cdphi1,kmul(gtu11,ToReal(6)),kmadd(cdphi2,kmul(gtu12,ToReal(6)),kmul(cdphi3,kmul(gtu13,ToReal(6))))))))))),kmadd(At13L,knmsub(Gt322,gtu22,knmsub(Gt112,gtu23,kmsub(gtu13,kmsub(cdphi1,ToReal(6),Gt111),kmul(Gt333,gtu33)))),kmul(S1,kmul(ToReal(-8),ToReal(Pi)))))))))))))))))))));
-    
-    CCTK_REAL_VEC M2L = 
-      kmadd(gtu11,JacPDstandardNth1At12,kmadd(gtu12,JacPDstandardNth1At22,kmadd(gtu13,JacPDstandardNth1At23,kmadd(gtu12,JacPDstandardNth2At12,kmadd(gtu22,JacPDstandardNth2At22,kmadd(gtu23,JacPDstandardNth2At23,kmadd(gtu13,JacPDstandardNth3At12,kmadd(gtu23,JacPDstandardNth3At22,kmadd(gtu33,JacPDstandardNth3At23,kmadd(At22L,kmul(Gt222,kmul(gtu22,ToReal(-2))),knmsub(At11L,kmadd(Gt112,gtu11,kmadd(Gt122,gtu12,kmul(Gt123,gtu13))),knmsub(gtu11,kmadd(At22L,Gt211,kmadd(At13L,Gt312,kmul(At23L,Gt311))),kmadd(Gt212,kmsub(At22L,kmul(gtu12,ToReal(-3)),kmul(At23L,gtu13)),kmadd(Gt312,kmsub(At23L,kmul(gtu12,ToReal(-3)),kmul(At33L,gtu13)),kmadd(Gt322,kmsub(At23L,kmul(gtu22,ToReal(-2)),kmul(At33L,gtu23)),kmadd(Gt223,kmsub(At22L,kmul(gtu23,ToReal(-3)),kmul(At23L,gtu33)),kmadd(Gt323,kmsub(At23L,kmul(gtu23,ToReal(-3)),kmul(At33L,gtu33)),kmadd(At22L,kmsub(Gt213,kmul(gtu13,ToReal(-2)),kmul(Gt233,gtu33)),kmadd(At23L,kmsub(Gt313,kmul(gtu13,ToReal(-2)),kmadd(Gt333,gtu33,kmul(Gt222,gtu23))),kmadd(JacPDstandardNth2trK,ToReal(-0.666666666666666666666666666667),kmadd(At22L,kmul(cdphi2,kmul(gtu22,ToReal(6))),kmadd(At22L,kmul(cdphi3,kmul(gtu23,ToReal(6))),kmadd(gtu12,kmsub(At22L,kmul(cdphi1,ToReal(6)),kmul(At13L,Gt322)),kmadd(gtu13,kmsub(At23L,kmul(cdphi1,ToReal(6)),kmul(At13L,kadd(Gt323,Gt112))),kmadd(gtu23,kmsub(At23L,kmul(cdphi2,ToReal(6)),kmul(At13L,Gt122)),kmadd(gtu33,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At13L,Gt123)),kmadd(At12L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-2)),kmadd(Gt122,kmul(gtu22,ToReal(-2)),knmsub(Gt133,gtu33,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt212),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt222),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt223))))))))),kmul(S2,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC M3L = 
-      kmadd(gtu11,JacPDstandardNth1At13,kmadd(gtu12,JacPDstandardNth1At23,kmadd(gtu13,JacPDstandardNth1At33,kmadd(gtu12,JacPDstandardNth2At13,kmadd(gtu22,JacPDstandardNth2At23,kmadd(gtu23,JacPDstandardNth2At33,kmadd(gtu13,JacPDstandardNth3At13,kmadd(gtu23,JacPDstandardNth3At23,kmadd(gtu33,JacPDstandardNth3At33,kmadd(At33L,kmul(Gt313,kmul(gtu13,ToReal(-3))),kmadd(At23L,kmul(Gt223,kmul(gtu23,ToReal(-3))),kmadd(At33L,kmul(Gt323,kmul(gtu23,ToReal(-3))),kmadd(At23L,kmul(Gt233,kmul(gtu33,ToReal(-2))),kmadd(At33L,kmul(Gt333,kmul(gtu33,ToReal(-2))),knmsub(At11L,kmadd(Gt113,gtu11,kmadd(Gt123,gtu12,kmul(Gt133,gtu13))),kmadd(gtu12,kmsub(At23L,kmul(Gt212,ToReal(-2)),kmul(At12L,Gt223)),knmsub(gtu11,kmadd(At23L,Gt211,kmadd(At33L,Gt311,kmul(At12L,Gt213))),kmadd(At33L,kmsub(Gt312,kmul(gtu12,ToReal(-2)),kmul(Gt322,gtu22)),kmadd(At23L,kmsub(Gt213,kmul(gtu13,ToReal(-3)),kmadd(Gt333,gtu23,kmul(Gt222,gtu22))),kmadd(JacPDstandardNth3trK,ToReal(-0.666666666666666666666666666667),kmadd(At33L,kmul(cdphi3,kmul(gtu33,ToReal(6))),kmadd(gtu13,kmsub(At33L,kmul(cdphi1,ToReal(6)),kmul(At12L,Gt233)),kmadd(gtu23,kmsub(At33L,kmul(cdphi2,ToReal(6)),kmul(At12L,Gt133)),kmadd(gtu23,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At22L,Gt233)),kmadd(gtu12,knmsub(At12L,Gt113,kmsub(At23L,kmsub(cdphi1,ToReal(6),Gt313),kmul(At22L,Gt213))),kmadd(gtu22,knmsub(At12L,Gt123,kmsub(At23L,kmsub(cdphi2,ToReal(6),Gt323),kmul(At22L,Gt223))),kmadd(At13L,kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt112,kmul(gtu12,ToReal(-2)),kmadd(Gt133,kmul(gtu33,ToReal(-2)),knmsub(Gt122,gtu22,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt313),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt323),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt333))))))))),kmul(S3,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC cSL = klog(detgt);
-    
-    CCTK_REAL_VEC cXt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmsub(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2),Xt1L))));
-    
-    CCTK_REAL_VEC cXt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmsub(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2),Xt2L))));
-    
-    CCTK_REAL_VEC cXt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmsub(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2),Xt3L))));
-    
-    CCTK_REAL_VEC cAL = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(cA[index],cAL);
-    vec_store_nta_partial(cS[index],cSL);
-    vec_store_nta_partial(cXt1[index],cXt1L);
-    vec_store_nta_partial(cXt2[index],cXt2L);
-    vec_store_nta_partial(cXt3[index],cXt3L);
-    vec_store_nta_partial(M1[index],M1L);
-    vec_store_nta_partial(M2[index],M2L);
-    vec_store_nta_partial(M3[index],M3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_constraints2);
-}
-
-extern "C" void ML_BSSN_O2_constraints2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_constraints2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_constraints2_calc_every != ML_BSSN_O2_constraints2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_cons_detg",
-    "ML_BSSN_O2::ML_cons_Gamma",
-    "ML_BSSN_O2::ML_cons_traceA",
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_mom",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_constraints2", 11, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_constraints2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_constraints2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_constraints2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_constraints2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O2_constraints2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_constraints2_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBase.cc b/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBase.cc
deleted file mode 100644
index dc43551..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBase.cc
+++ /dev/null
@@ -1,400 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O2_convertFromADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_convertFromADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alpL = vec_load(alp[index]);
-    CCTK_REAL_VEC betaxL = vec_load(betax[index]);
-    CCTK_REAL_VEC betayL = vec_load(betay[index]);
-    CCTK_REAL_VEC betazL = vec_load(betaz[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC kxxL = vec_load(kxx[index]);
-    CCTK_REAL_VEC kxyL = vec_load(kxy[index]);
-    CCTK_REAL_VEC kxzL = vec_load(kxz[index]);
-    CCTK_REAL_VEC kyyL = vec_load(kyy[index]);
-    CCTK_REAL_VEC kyzL = vec_load(kyz[index]);
-    CCTK_REAL_VEC kzzL = vec_load(kzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC g11 = gxxL;
-    
-    CCTK_REAL_VEC g12 = gxyL;
-    
-    CCTK_REAL_VEC g13 = gxzL;
-    
-    CCTK_REAL_VEC g22 = gyyL;
-    
-    CCTK_REAL_VEC g23 = gyzL;
-    
-    CCTK_REAL_VEC g33 = gzzL;
-    
-    CCTK_REAL_VEC detg = 
-      knmsub(g22,SQR(g13),knmsub(g11,SQR(g23),kmadd(g33,kmsub(g11,g22,SQR(g12)),kmul(g12,kmul(g13,kmul(g23,ToReal(2)))))));
-    
-    CCTK_REAL_VEC gu11 = kmul(INV(detg),kmsub(g22,g33,SQR(g23)));
-    
-    CCTK_REAL_VEC gu12 = kmul(INV(detg),kmsub(g13,g23,kmul(g12,g33)));
-    
-    CCTK_REAL_VEC gu13 = kmul(INV(detg),kmsub(g12,g23,kmul(g13,g22)));
-    
-    CCTK_REAL_VEC gu22 = kmul(INV(detg),kmsub(g11,g33,SQR(g13)));
-    
-    CCTK_REAL_VEC gu23 = kmul(INV(detg),kmsub(g12,g13,kmul(g11,g23)));
-    
-    CCTK_REAL_VEC gu33 = kmul(INV(detg),kmsub(g11,g22,SQR(g12)));
-    
-    CCTK_REAL_VEC em4phi;
-    
-    if (conformalMethod == 1)
-    {
-      phiL = kpow(detg,-0.166666666666666666666666666667);
-      
-      em4phi = SQR(phiL);
-    }
-    else
-    {
-      phiL = kmul(klog(detg),ToReal(0.0833333333333333333333333333333));
-      
-      em4phi = kexp(kmul(phiL,ToReal(-4)));
-    }
-    
-    CCTK_REAL_VEC gt11L = kmul(em4phi,g11);
-    
-    CCTK_REAL_VEC gt12L = kmul(em4phi,g12);
-    
-    CCTK_REAL_VEC gt13L = kmul(em4phi,g13);
-    
-    CCTK_REAL_VEC gt22L = kmul(em4phi,g22);
-    
-    CCTK_REAL_VEC gt23L = kmul(em4phi,g23);
-    
-    CCTK_REAL_VEC gt33L = kmul(em4phi,g33);
-    
-    trKL = 
-      kmadd(kxxL,gu11,kmadd(kyyL,gu22,kmadd(kzzL,gu33,kmul(kmadd(kxyL,gu12,kmadd(kxzL,gu13,kmul(kyzL,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11L = 
-      kmul(em4phi,kmadd(trKL,kmul(g11,ToReal(-0.333333333333333333333333333333)),kxxL));
-    
-    CCTK_REAL_VEC At12L = 
-      kmul(em4phi,kmadd(trKL,kmul(g12,ToReal(-0.333333333333333333333333333333)),kxyL));
-    
-    CCTK_REAL_VEC At13L = 
-      kmul(em4phi,kmadd(trKL,kmul(g13,ToReal(-0.333333333333333333333333333333)),kxzL));
-    
-    CCTK_REAL_VEC At22L = 
-      kmul(em4phi,kmadd(trKL,kmul(g22,ToReal(-0.333333333333333333333333333333)),kyyL));
-    
-    CCTK_REAL_VEC At23L = 
-      kmul(em4phi,kmadd(trKL,kmul(g23,ToReal(-0.333333333333333333333333333333)),kyzL));
-    
-    CCTK_REAL_VEC At33L = 
-      kmul(em4phi,kmadd(trKL,kmul(g33,ToReal(-0.333333333333333333333333333333)),kzzL));
-    
-    CCTK_REAL_VEC alphaL = alpL;
-    
-    CCTK_REAL_VEC beta1L = betaxL;
-    
-    CCTK_REAL_VEC beta2L = betayL;
-    
-    CCTK_REAL_VEC beta3L = betazL;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_convertFromADMBase);
-}
-
-extern "C" void ML_BSSN_O2_convertFromADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_convertFromADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_convertFromADMBase_calc_every != ML_BSSN_O2_convertFromADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_convertFromADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O2_convertFromADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_convertFromADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBaseGamma.cc b/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBaseGamma.cc
deleted file mode 100644
index 8a4134d..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBaseGamma.cc
+++ /dev/null
@@ -1,926 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_convertFromADMBaseGamma_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O2::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O2::ML_Gamma.");
-  return;
-}
-
-static void ML_BSSN_O2_convertFromADMBaseGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_convertFromADMBaseGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC dtalpL = vec_load(dtalp[index]);
-    CCTK_REAL_VEC dtbetaxL = vec_load(dtbetax[index]);
-    CCTK_REAL_VEC dtbetayL = vec_load(dtbetay[index]);
-    CCTK_REAL_VEC dtbetazL = vec_load(dtbetaz[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        break;
-      
-      case 4:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        break;
-      
-      case 6:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        break;
-      
-      case 8:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmul(ToReal(0.5),kmadd(gtu11,JacPDstandardNth1gt11,knmsub(gtu12,JacPDstandardNth2gt11,kmsub(kmadd(gtu12,JacPDstandardNth1gt12,kmul(gtu13,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu13,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth1gt11,knmsub(gtu22,JacPDstandardNth2gt11,kmsub(kmadd(gtu22,JacPDstandardNth1gt12,kmul(gtu23,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu23,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth1gt11,knmsub(gtu23,JacPDstandardNth2gt11,kmsub(kmadd(gtu23,JacPDstandardNth1gt12,kmul(gtu33,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu33,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmul(kmadd(gtu12,JacPDstandardNth1gt22,kmadd(gtu11,JacPDstandardNth2gt11,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmul(kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu12,JacPDstandardNth2gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt22,kmadd(gtu13,JacPDstandardNth2gt11,kmul(gtu33,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmul(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu11,JacPDstandardNth3gt11,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt33,kmadd(gtu12,JacPDstandardNth3gt11,kmul(gtu22,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmul(kmadd(gtu33,JacPDstandardNth1gt33,kmadd(gtu13,JacPDstandardNth3gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth2gt22,kmadd(gtu11,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu13,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmul(ToReal(0.5),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu12,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu23,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth2gt22,kmadd(gtu13,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu33,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmul(kmadd(gtu13,JacPDstandardNth2gt33,kmadd(gtu12,JacPDstandardNth3gt22,kmul(gtu11,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmul(kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu22,JacPDstandardNth3gt22,kmul(gtu12,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmul(kmadd(gtu33,JacPDstandardNth2gt33,kmadd(gtu23,JacPDstandardNth3gt22,kmul(gtu13,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth3gt33,kmadd(gtu11,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu12,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth3gt33,kmadd(gtu12,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu22,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmul(ToReal(0.5),kmadd(gtu33,JacPDstandardNth3gt33,kmadd(gtu13,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Xt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC AL = IfThen(LapseACoeff != 
-      0,kneg(kmul(INV(ToReal(harmonicF)),kmul(kpow(alphaL,-harmonicN),knmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),dtalpL)))),ToReal(0));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC B1L;
-    CCTK_REAL_VEC B2L;
-    CCTK_REAL_VEC B3L;
-    
-    if (ShiftBCoeff*ShiftGammaCoeff != 0)
-    {
-      B1L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetaxL));
-      
-      B2L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetayL));
-      
-      B3L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetazL));
-    }
-    else
-    {
-      B1L = ToReal(0);
-      
-      B2L = ToReal(0);
-      
-      B3L = ToReal(0);
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_convertFromADMBaseGamma);
-}
-
-extern "C" void ML_BSSN_O2_convertFromADMBaseGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_convertFromADMBaseGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_convertFromADMBaseGamma_calc_every != ML_BSSN_O2_convertFromADMBaseGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_shift"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_convertFromADMBaseGamma", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_convertFromADMBaseGamma", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_convertFromADMBaseGamma", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_convertFromADMBaseGamma", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_convertFromADMBaseGamma", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O2_convertFromADMBaseGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_convertFromADMBaseGamma_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBase.cc b/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBase.cc
deleted file mode 100644
index bbe8fc7..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBase.cc
+++ /dev/null
@@ -1,362 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O2_convertToADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_convertToADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    gxxL = kmul(gt11L,e4phi);
-    
-    gxyL = kmul(gt12L,e4phi);
-    
-    gxzL = kmul(gt13L,e4phi);
-    
-    gyyL = kmul(gt22L,e4phi);
-    
-    gyzL = kmul(gt23L,e4phi);
-    
-    gzzL = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC kxxL = 
-      kmadd(At11L,e4phi,kmul(gxxL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxyL = 
-      kmadd(At12L,e4phi,kmul(gxyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxzL = 
-      kmadd(At13L,e4phi,kmul(gxzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyyL = 
-      kmadd(At22L,e4phi,kmul(gyyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyzL = 
-      kmadd(At23L,e4phi,kmul(gyzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kzzL = 
-      kmadd(At33L,e4phi,kmul(gzzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC alpL = alphaL;
-    
-    CCTK_REAL_VEC betaxL = beta1L;
-    
-    CCTK_REAL_VEC betayL = beta2L;
-    
-    CCTK_REAL_VEC betazL = beta3L;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alp[index],alpL);
-    vec_store_nta_partial(betax[index],betaxL);
-    vec_store_nta_partial(betay[index],betayL);
-    vec_store_nta_partial(betaz[index],betazL);
-    vec_store_nta_partial(gxx[index],gxxL);
-    vec_store_nta_partial(gxy[index],gxyL);
-    vec_store_nta_partial(gxz[index],gxzL);
-    vec_store_nta_partial(gyy[index],gyyL);
-    vec_store_nta_partial(gyz[index],gyzL);
-    vec_store_nta_partial(gzz[index],gzzL);
-    vec_store_nta_partial(kxx[index],kxxL);
-    vec_store_nta_partial(kxy[index],kxyL);
-    vec_store_nta_partial(kxz[index],kxzL);
-    vec_store_nta_partial(kyy[index],kyyL);
-    vec_store_nta_partial(kyz[index],kyzL);
-    vec_store_nta_partial(kzz[index],kzzL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_convertToADMBase);
-}
-
-extern "C" void ML_BSSN_O2_convertToADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_convertToADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_convertToADMBase_calc_every != ML_BSSN_O2_convertToADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_convertToADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O2_convertToADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_convertToADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBaseDtLapseShift.cc b/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBaseDtLapseShift.cc
deleted file mode 100644
index 1882fa9..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBaseDtLapseShift.cc
+++ /dev/null
@@ -1,918 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_convertToADMBaseDtLapseShift_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_O2_convertToADMBaseDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_convertToADMBaseDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4))))))))))))))))),kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetayL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetazL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_convertToADMBaseDtLapseShift);
-}
-
-extern "C" void ML_BSSN_O2_convertToADMBaseDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_convertToADMBaseDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_convertToADMBaseDtLapseShift_calc_every != ML_BSSN_O2_convertToADMBaseDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_log_confac",
-    "ML_BSSN_O2::ML_metric",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_convertToADMBaseDtLapseShift", 12, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_convertToADMBaseDtLapseShift", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_convertToADMBaseDtLapseShift", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_convertToADMBaseDtLapseShift", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O2_convertToADMBaseDtLapseShift", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O2_convertToADMBaseDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_convertToADMBaseDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary.cc b/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary.cc
deleted file mode 100644
index ccbdae5..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary.cc
+++ /dev/null
@@ -1,346 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary);
-}
-
-extern "C" void ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_calc_every != ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBaseFakeDtLapseShift.cc b/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBaseFakeDtLapseShift.cc
deleted file mode 100644
index 572ec21..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBaseFakeDtLapseShift.cc
+++ /dev/null
@@ -1,331 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_convertToADMBaseFakeDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_convertToADMBaseFakeDtLapseShift);
-}
-
-extern "C" void ML_BSSN_O2_convertToADMBaseFakeDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_calc_every != ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O2::ML_dtlapse",
-    "ML_BSSN_O2::ML_dtshift",
-    "ML_BSSN_O2::ML_Gamma",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_shift",
-    "ML_BSSN_O2::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_convertToADMBaseFakeDtLapseShift", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_convertToADMBaseFakeDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_enforce.cc b/ML_BSSN_O2/src/ML_BSSN_O2_enforce.cc
deleted file mode 100644
index 7ad6d3b..0000000
--- a/ML_BSSN_O2/src/ML_BSSN_O2_enforce.cc
+++ /dev/null
@@ -1,337 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O2_enforce_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O2_enforce,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC trAt = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    At11L = 
-      kmadd(gt11L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At11L);
-    
-    At12L = 
-      kmadd(gt12L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At12L);
-    
-    At13L = 
-      kmadd(gt13L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At13L);
-    
-    At22L = 
-      kmadd(gt22L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At22L);
-    
-    At23L = 
-      kmadd(gt23L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At23L);
-    
-    At33L = 
-      kmadd(gt33L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At33L);
-    
-    alphaL = kfmax(alphaL,ToReal(MinimumLapse));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O2_enforce);
-}
-
-extern "C" void ML_BSSN_O2_enforce(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O2_enforce_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O2_enforce_calc_every != ML_BSSN_O2_enforce_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O2::ML_curv",
-    "ML_BSSN_O2::ML_lapse",
-    "ML_BSSN_O2::ML_metric"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O2_enforce", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O2_enforce_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O2_enforce_Body");
-  }
-}
diff --git a/ML_BSSN_O2/src/RegisterMoL.cc b/ML_BSSN_O2/src/RegisterMoL.cc
deleted file mode 100644
index 9270c92..0000000
--- a/ML_BSSN_O2/src/RegisterMoL.cc
+++ /dev/null
@@ -1,43 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_BSSN_O2_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::At11"),  CCTK_VarIndex("ML_BSSN_O2::At11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::At12"),  CCTK_VarIndex("ML_BSSN_O2::At12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::At13"),  CCTK_VarIndex("ML_BSSN_O2::At13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::At22"),  CCTK_VarIndex("ML_BSSN_O2::At22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::At23"),  CCTK_VarIndex("ML_BSSN_O2::At23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::At33"),  CCTK_VarIndex("ML_BSSN_O2::At33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::A"),  CCTK_VarIndex("ML_BSSN_O2::Arhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::B1"),  CCTK_VarIndex("ML_BSSN_O2::B1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::B2"),  CCTK_VarIndex("ML_BSSN_O2::B2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::B3"),  CCTK_VarIndex("ML_BSSN_O2::B3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::Xt1"),  CCTK_VarIndex("ML_BSSN_O2::Xt1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::Xt2"),  CCTK_VarIndex("ML_BSSN_O2::Xt2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::Xt3"),  CCTK_VarIndex("ML_BSSN_O2::Xt3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::alpha"),  CCTK_VarIndex("ML_BSSN_O2::alpharhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::phi"),  CCTK_VarIndex("ML_BSSN_O2::phirhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::gt11"),  CCTK_VarIndex("ML_BSSN_O2::gt11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::gt12"),  CCTK_VarIndex("ML_BSSN_O2::gt12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::gt13"),  CCTK_VarIndex("ML_BSSN_O2::gt13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::gt22"),  CCTK_VarIndex("ML_BSSN_O2::gt22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::gt23"),  CCTK_VarIndex("ML_BSSN_O2::gt23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::gt33"),  CCTK_VarIndex("ML_BSSN_O2::gt33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::beta1"),  CCTK_VarIndex("ML_BSSN_O2::beta1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::beta2"),  CCTK_VarIndex("ML_BSSN_O2::beta2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::beta3"),  CCTK_VarIndex("ML_BSSN_O2::beta3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O2::trK"),  CCTK_VarIndex("ML_BSSN_O2::trKrhs"));
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_BSSN_O2/src/RegisterSymmetries.cc b/ML_BSSN_O2/src/RegisterSymmetries.cc
deleted file mode 100644
index 610032d..0000000
--- a/ML_BSSN_O2/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,189 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_BSSN_O2_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::At11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::At12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::At13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::At22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::At23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::At33");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::A");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::B1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::B2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::B3");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::Xt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::Xt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::Xt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::alpha");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::phi");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::gt11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::gt12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::gt13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::gt22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::gt23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::gt33");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::beta1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::beta2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::beta3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::trK");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::cS");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::cXt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::cXt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::cXt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::cA");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::H");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::M1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::M2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O2::M3");
-  
-}
diff --git a/ML_BSSN_O2/src/Startup.cc b/ML_BSSN_O2/src/Startup.cc
deleted file mode 100644
index 1cb1099..0000000
--- a/ML_BSSN_O2/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_BSSN_O2_Startup(void)
-{
-  const char * banner = "ML_BSSN_O2";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_BSSN_O2/src/make.code.defn b/ML_BSSN_O2/src/make.code.defn
deleted file mode 100644
index f71475a..0000000
--- a/ML_BSSN_O2/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc ML_BSSN_O2_Minkowski.cc ML_BSSN_O2_convertFromADMBase.cc ML_BSSN_O2_InitGamma.cc ML_BSSN_O2_convertFromADMBaseGamma.cc ML_BSSN_O2_RHS1.cc ML_BSSN_O2_RHS2.cc ML_BSSN_O2_Dissipation.cc ML_BSSN_O2_Advect.cc ML_BSSN_O2_InitRHS.cc ML_BSSN_O2_RHSStaticBoundary.cc ML_BSSN_O2_enforce.cc ML_BSSN_O2_boundary.cc ML_BSSN_O2_convertToADMBase.cc ML_BSSN_O2_convertToADMBaseDtLapseShift.cc ML_BSSN_O2_convertToADMBaseDtLapseShiftBoundary.cc ML_BSSN_O2_convertToADMBaseFakeDtLapseShift.cc ML_BSSN_O2_constraints1.cc ML_BSSN_O2_constraints2.cc Boundaries.cc 
diff --git a/ML_BSSN_O2_Helper/configuration.ccl b/ML_BSSN_O2_Helper/configuration.ccl
deleted file mode 100644
index edaa5b7..0000000
--- a/ML_BSSN_O2_Helper/configuration.ccl
+++ /dev/null
@@ -1 +0,0 @@
-REQUIRES THORNS: CartGrid3D CoordGauge
diff --git a/ML_BSSN_O2_Helper/interface.ccl b/ML_BSSN_O2_Helper/interface.ccl
deleted file mode 100644
index 9b4981f..0000000
--- a/ML_BSSN_O2_Helper/interface.ccl
+++ /dev/null
@@ -1,38 +0,0 @@
-IMPLEMENTS: ML_BSSN_O2_Helper
-
-INHERITS: ADMBase CoordGauge ML_BSSN_O2
-
-USES INCLUDE: Slicing.h
-USES INCLUDE: Symmetry.h
-
-
-
-CCTK_INT FUNCTION MoLRegisterConstrainedGroup \
-    (CCTK_INT IN ConstrainedIndex)
-USES FUNCTION MoLRegisterConstrainedGroup
-
-CCTK_INT FUNCTION                         \
-    Boundary_SelectGroupForBC             \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-          CCTK_INT IN faces,              \
-          CCTK_INT IN boundary_width,     \
-          CCTK_INT IN table_handle,       \
-          CCTK_STRING IN group_name,      \
-          CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION                         \
-    ExtrapolateGammas                     \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY INOUT var)
-USES FUNCTION ExtrapolateGammas
-
-CCTK_INT FUNCTION                         \
-    NewRad_Apply                          \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY IN var,          \
-         CCTK_REAL ARRAY INOUT rhs,       \
-         CCTK_REAL IN var0,               \
-         CCTK_REAL IN v0,                 \
-         CCTK_INT IN radpower)
-USES FUNCTION NewRad_Apply
diff --git a/ML_BSSN_O2_Helper/param.ccl b/ML_BSSN_O2_Helper/param.ccl
deleted file mode 100644
index 1f23650..0000000
--- a/ML_BSSN_O2_Helper/param.ccl
+++ /dev/null
@@ -1,39 +0,0 @@
-SHARES: Boundary
-
-USES CCTK_INT radpower
-
-SHARES: MethodofLines
-
-USES CCTK_INT MoL_Num_Constrained_Vars
-
-SHARES: ADMBase
-
-USES KEYWORD evolution_method
-
-SHARES: GenericFD
-
-USES CCTK_INT boundary_width
-
-SHARES: ML_BSSN_O2
-
-USES CCTK_INT timelevels
-USES CCTK_INT rhs_timelevels
-USES KEYWORD calculate_ADMBase_variables_at
-
-USES CCTK_REAL harmonicF
-
-EXTENDS KEYWORD my_initial_boundary_condition
-{
-  "extrapolate-gammas" :: "extrapolate-gammas"
-}
-EXTENDS KEYWORD my_rhs_boundary_condition
-{
-  "NewRad" :: "NewRad"
-}
-
-PRIVATE:
-
-CCTK_INT ML_BSSN_O2_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars
-{
-  20:20 :: "Number of constrained variables used by this thorn"
-} 20
diff --git a/ML_BSSN_O2_Helper/schedule.ccl b/ML_BSSN_O2_Helper/schedule.ccl
deleted file mode 100644
index c308dcc..0000000
--- a/ML_BSSN_O2_Helper/schedule.ccl
+++ /dev/null
@@ -1,161 +0,0 @@
-if (CCTK_EQUALS (evolution_method, "ML_BSSN_O2")) {
-  
-  if (timelevels == 1) {
-    STORAGE: ADMBase::metric[1]
-    STORAGE: ADMBase::curv[1]
-    STORAGE: ADMBase::lapse[1]
-    STORAGE: ADMBase::shift[1]
-    STORAGE: ADMBase::dtlapse[1]
-    STORAGE: ADMBase::dtshift[1]
-  } else if (timelevels == 2) {
-    STORAGE: ADMBase::metric[2]
-    STORAGE: ADMBase::curv[2]
-    STORAGE: ADMBase::lapse[2]
-    STORAGE: ADMBase::shift[2]
-    STORAGE: ADMBase::dtlapse[2]
-    STORAGE: ADMBase::dtshift[2]
-  } else if (timelevels == 3) {
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  } else if (timelevels == 4) {
-    #STORAGE: ADMBase::metric[4]
-    #STORAGE: ADMBase::curv[4]
-    #STORAGE: ADMBase::lapse[4]
-    #STORAGE: ADMBase::shift[4]
-    #STORAGE: ADMBase::dtlapse[4]
-    #STORAGE: ADMBase::dtshift[4]
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  }
-  
-  SCHEDULE ML_BSSN_O2_RegisterSlicing AT startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register slicing"
-  
-  SCHEDULE ML_BSSN_O2_SetGroupTags AT startup BEFORE Driver_Startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Set checkpointing and prolongation group tags"
-  
-  SCHEDULE ML_BSSN_O2_RegisterConstrained IN MoL_Register
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register ADMBase variables as constrained"
-  
-  
-  
-  # Why would any of these two be necessary?
-  #SCHEDULE GROUP ML_BSSN_O2_evolCalcGroup AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Calculate BSSN RHS"
-  #SCHEDULE GROUP MoL_CalcRHS AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Evaluate RHS"
-  
-  SCHEDULE GROUP ML_BSSN_O2_evolCalcGroup IN MoL_CalcRHS
-  {
-  } "Calculate BSSN RHS"
-  
-  SCHEDULE GROUP ML_BSSN_O2_evolCalcGroup AT analysis
-  {
-    TRIGGERS: ML_BSSN_O2::ML_log_confacrhs
-    TRIGGERS: ML_BSSN_O2::ML_metricrhs
-    TRIGGERS: ML_BSSN_O2::ML_Gammarhs
-    TRIGGERS: ML_BSSN_O2::ML_trace_curvrhs
-    TRIGGERS: ML_BSSN_O2::ML_curvrhs
-    TRIGGERS: ML_BSSN_O2::ML_lapserhs
-    TRIGGERS: ML_BSSN_O2::ML_dtlapserhs
-    TRIGGERS: ML_BSSN_O2::ML_shiftrhs
-    TRIGGERS: ML_BSSN_O2::ML_dtshiftrhs
-  } "Calculate BSSN RHS"
-  
-  
-  
-  if (CCTK_EQUALS (my_initial_boundary_condition, "extrapolate-gammas"))
-  {
-    SCHEDULE ML_BSSN_O2_ExtrapolateGammas AT initial AFTER ML_BSSN_O2_convertFromADMBaseGamma
-    {
-      LANG: C
-      # We don't need to synchronise here because extrapolation is now filling
-      # ghost zones
-      #SYNC: ML_Gamma
-      #SYNC: ML_dtlapse
-      #SYNC: ML_dtshift
-    } "Extrapolate Gammas and time derivatives of lapse and shift"
-  }
-  
-  if (CCTK_EQUALS (my_rhs_boundary_condition, "NewRad"))
-  {
-    SCHEDULE ML_BSSN_O2_NewRad IN ML_BSSN_O2_evolCalcGroup AFTER ML_BSSN_O2_RHS
-    {
-      LANG: C
-      #SYNC: ML_curvrhs
-      #SYNC: ML_dtlapserhs
-      #SYNC: ML_dtshiftrhs
-      #SYNC: ML_Gammarhs
-      #SYNC: ML_lapserhs
-      #SYNC: ML_log_confacrhs
-      #SYNC: ML_metricrhs
-      #SYNC: ML_shiftrhs
-      #SYNC: ML_trace_curvrhs
-    } "Apply NewRad boundary conditions to RHS"
-  }
-  
-  
-  
-  SCHEDULE GROUP ML_BSSN_O2_convertToADMBaseGroup IN ML_BSSN_O2_convertToADMBaseGroupWrapper
-  {
-    #SYNC: ADMBase::metric
-    #SYNC: ADMBase::curv
-    #SYNC: ADMBase::lapse
-    #SYNC: ADMBase::shift
-    #SYNC: ADMBase::dtlapse
-    #SYNC: ADMBase::dtshift
-  } "Calculate ADM variables"
-  
-  if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep"))
-  {
-    SCHEDULE GROUP ML_BSSN_O2_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_O2_ApplyBCs ML_BSSN_O2_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_EVOL"))
-  {
-    SCHEDULE GROUP ML_BSSN_O2_convertToADMBaseGroupWrapper IN MoL_PseudoEvolution BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_ANALYSIS"))
-  {
-    SCHEDULE GROUP ML_BSSN_O2_convertToADMBaseGroupWrapper AT post_recover_variables
-    {
-    } "Calculate ADM variables"
-    
-    SCHEDULE GROUP ML_BSSN_O2_convertToADMBaseGroupWrapper AT analysis BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-
-  SCHEDULE ML_BSSN_O2_SelectBCsADMBase IN ML_BSSN_O2_convertToADMBaseGroupWrapper AFTER ML_BSSN_O2_convertToADMBaseGroup
-  {
-    LANG: C
-    OPTIONS: level
-  } "Select boundary conditions for ADMBase variables"
-  
-  SCHEDULE GROUP ApplyBCs AS ML_BSSN_O2_ApplyBCsADMBase IN ML_BSSN_O2_convertToADMBaseGroupWrapper AFTER ML_BSSN_O2_SelectBCsADMBase
-  {
-  } "Apply boundary conditions to ADMBase variables"
-  
-}
diff --git a/ML_BSSN_O2_Helper/src/ExtrapolateGammas.c b/ML_BSSN_O2_Helper/src/ExtrapolateGammas.c
deleted file mode 100644
index 013b099..0000000
--- a/ML_BSSN_O2_Helper/src/ExtrapolateGammas.c
+++ /dev/null
@@ -1,29 +0,0 @@
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-extrap (cGH const * restrict cctkGH,
-        CCTK_REAL * restrict var);
-
-void
-ML_BSSN_O2_ExtrapolateGammas (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  extrap (cctkGH, Xt1);
-  extrap (cctkGH, Xt2);
-  extrap (cctkGH, Xt3);
-  
-  extrap (cctkGH, A);
-  
-  extrap (cctkGH, B1);
-  extrap (cctkGH, B2);
-  extrap (cctkGH, B3);
-}
-
-static void
-extrap (cGH const * restrict const cctkGH,
-        CCTK_REAL * restrict const var)
-{
-  ExtrapolateGammas (cctkGH, var);
-}
diff --git a/ML_BSSN_O2_Helper/src/NewRad.c b/ML_BSSN_O2_Helper/src/NewRad.c
deleted file mode 100644
index 5e99d1d..0000000
--- a/ML_BSSN_O2_Helper/src/NewRad.c
+++ /dev/null
@@ -1,67 +0,0 @@
-#include <math.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-newrad (cGH const * restrict cctkGH,
-        CCTK_REAL const * restrict var,
-        CCTK_REAL * restrict rhs,
-        CCTK_REAL var0,
-        CCTK_REAL v0);
-
-void
-ML_BSSN_O2_NewRad (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_REAL const v0 = sqrt (harmonicF);
-  
-  newrad (cctkGH, phi  , phirhs  , 0.0, v0 );
-  
-  newrad (cctkGH, gt11 , gt11rhs , 1.0, 1.0);
-  newrad (cctkGH, gt12 , gt12rhs , 0.0, 1.0);
-  newrad (cctkGH, gt13 , gt13rhs , 0.0, 1.0);
-  newrad (cctkGH, gt22 , gt22rhs , 1.0, 1.0);
-  newrad (cctkGH, gt23 , gt23rhs , 0.0, 1.0);
-  newrad (cctkGH, gt33 , gt33rhs , 1.0, 1.0);
-  
-  newrad (cctkGH, Xt1  , Xt1rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt2  , Xt2rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt3  , Xt3rhs  , 0.0, 1.0);
-  
-  newrad (cctkGH, trK  , trKrhs  , 0.0, v0 );
-  
-  newrad (cctkGH, At11 , At11rhs , 0.0, 1.0);
-  newrad (cctkGH, At12 , At12rhs , 0.0, 1.0);
-  newrad (cctkGH, At13 , At13rhs , 0.0, 1.0);
-  newrad (cctkGH, At22 , At22rhs , 0.0, 1.0);
-  newrad (cctkGH, At23 , At23rhs , 0.0, 1.0);
-  newrad (cctkGH, At33 , At33rhs , 0.0, 1.0);
-  
-  newrad (cctkGH, alpha, alpharhs, 1.0, v0 );
-  
-  newrad (cctkGH, A    , Arhs    , 0.0, v0 );
-  
-  newrad (cctkGH, beta1, beta1rhs, 0.0, 1.0);
-  newrad (cctkGH, beta2, beta2rhs, 0.0, 1.0);
-  newrad (cctkGH, beta3, beta3rhs, 0.0, 1.0);
-  
-  newrad (cctkGH, B1   , B1rhs   , 0.0, 1.0);
-  newrad (cctkGH, B2   , B2rhs   , 0.0, 1.0);
-  newrad (cctkGH, B3   , B3rhs   , 0.0, 1.0);
-}
-
-static void
-newrad (cGH const * restrict const cctkGH,
-        CCTK_REAL const * restrict const var,
-        CCTK_REAL * restrict const rhs,
-        CCTK_REAL const var0,
-        CCTK_REAL const v0)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  NewRad_Apply (cctkGH, var, rhs, var0, v0, radpower);
-}
diff --git a/ML_BSSN_O2_Helper/src/RegisterConstrained.c b/ML_BSSN_O2_Helper/src/RegisterConstrained.c
deleted file mode 100644
index 6e4ec34..0000000
--- a/ML_BSSN_O2_Helper/src/RegisterConstrained.c
+++ /dev/null
@@ -1,32 +0,0 @@
-#include <assert.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-register_constrained (char const * restrict const gn);
-
-void
-ML_BSSN_O2_RegisterConstrained (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  register_constrained ("ADMBase::metric");
-  register_constrained ("ADMBase::curv");
-  register_constrained ("ADMBase::lapse");
-  register_constrained ("ADMBase::shift");
-  register_constrained ("ADMBase::dtlapse");
-  register_constrained ("ADMBase::dtshift");
-}
-
-static void
-register_constrained (char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  int const ierr = MoLRegisterConstrainedGroup (gi);
-  assert (! ierr);
-}
diff --git a/ML_BSSN_O2_Helper/src/RegisterSlicing.c b/ML_BSSN_O2_Helper/src/RegisterSlicing.c
deleted file mode 100644
index c16bde8..0000000
--- a/ML_BSSN_O2_Helper/src/RegisterSlicing.c
+++ /dev/null
@@ -1,9 +0,0 @@
-#include <cctk.h>
-#include <Slicing.h>
-
-int
-ML_BSSN_O2_RegisterSlicing (void)
-{
-  Einstein_RegisterSlicing ("ML_BSSN_O2");
-  return 0;
-}
diff --git a/ML_BSSN_O2_Helper/src/SelectBCsADMBase.c b/ML_BSSN_O2_Helper/src/SelectBCsADMBase.c
deleted file mode 100644
index 2866574..0000000
--- a/ML_BSSN_O2_Helper/src/SelectBCsADMBase.c
+++ /dev/null
@@ -1,31 +0,0 @@
-#include <assert.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-select_bcs (cGH const * restrict cctkGH, char const * restrict gn);
-
-void
-ML_BSSN_O2_SelectBCsADMBase (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  select_bcs (cctkGH, "ADMBase::metric");
-  select_bcs (cctkGH, "ADMBase::curv");
-  select_bcs (cctkGH, "ADMBase::lapse");
-  select_bcs (cctkGH, "ADMBase::shift");
-  select_bcs (cctkGH, "ADMBase::dtlapse");
-  select_bcs (cctkGH, "ADMBase::dtshift");
-}
-
-static void
-select_bcs (cGH const * restrict const cctkGH, char const * restrict const gn)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const ierr = Boundary_SelectGroupForBC
-    (cctkGH, CCTK_ALL_FACES, boundary_width, -1, gn, "none");
-  assert (! ierr);
-}
diff --git a/ML_BSSN_O2_Helper/src/SetGroupTags.c b/ML_BSSN_O2_Helper/src/SetGroupTags.c
deleted file mode 100644
index 122f1bc..0000000
--- a/ML_BSSN_O2_Helper/src/SetGroupTags.c
+++ /dev/null
@@ -1,76 +0,0 @@
-#include <cctk.h>
-#include <cctk_Parameters.h>
-#include <util_Table.h>
-
-#include <assert.h>
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn);
-
-int
-ML_BSSN_O2_SetGroupTags (void)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const checkpoint = timelevels > 1;
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::metric");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::curv");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::lapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::shift");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtlapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtshift");
-  
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O2::ML_cons_detg");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O2::ML_cons_Gamma");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O2::ML_cons_traceA");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O2::ML_Ham");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O2::ML_mom");
-  
-  int const rhs_checkpoint = rhs_timelevels > 1;
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O2::ML_log_confacrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O2::ML_metricrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O2::ML_Gammarhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O2::ML_trace_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O2::ML_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O2::ML_lapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O2::ML_dtlapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O2::ML_shiftrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O2::ML_dtshiftrhs");
-  
-  return 0;
-}
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  assert (gi >= 0);
-  
-  int const table = CCTK_GroupTagsTableI (gi);
-  assert (table >= 0);
-  
-  if (! checkpoint) {
-    int const ierr = Util_TableSetString (table, "no", "Checkpoint");
-    assert (! ierr);
-  }
-  
-  if (! persistent) {
-    int const ierr = Util_TableSetString (table, "no", "Persistent");
-    assert (! ierr);
-  }
-  
-  if (! prolongate) {
-    int const iret = Util_TableDeleteKey (table, "ProlongationParameter");
-    assert (iret == 0 || iret == UTIL_ERROR_TABLE_NO_SUCH_KEY);
-    int const ierr = Util_TableSetString (table, "none", "Prolongation");
-    assert (! ierr);
-  }
-}
diff --git a/ML_BSSN_O2_Helper/src/make.code.defn b/ML_BSSN_O2_Helper/src/make.code.defn
deleted file mode 100644
index a3ac433..0000000
--- a/ML_BSSN_O2_Helper/src/make.code.defn
+++ /dev/null
@@ -1,2 +0,0 @@
-# -*-Makefile-*-
-SRCS = ExtrapolateGammas.c NewRad.c RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c SetGroupTags.c
diff --git a/ML_BSSN_O8/configuration.ccl b/ML_BSSN_O8/configuration.ccl
deleted file mode 100644
index bdbc1bd..0000000
--- a/ML_BSSN_O8/configuration.ccl
+++ /dev/null
@@ -1,5 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-REQUIRES LoopControl
-REQUIRES Vectors
diff --git a/ML_BSSN_O8/interface.ccl b/ML_BSSN_O8/interface.ccl
deleted file mode 100644
index 645ec98..0000000
--- a/ML_BSSN_O8/interface.ccl
+++ /dev/null
@@ -1,203 +0,0 @@
-# File produced by Kranc
-
-implements: ML_BSSN_O8
-
-inherits:   ADMBase TmunuBase Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-USES INCLUDE: vectors.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL ML_cons_detg type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=2'
-{
-  cS
-} "ML_cons_detg"
-
-public:
-CCTK_REAL ML_cons_Gamma type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  cXt1,
-  cXt2,
-  cXt3
-} "ML_cons_Gamma"
-
-public:
-CCTK_REAL ML_cons_traceA type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  cA
-} "ML_cons_traceA"
-
-public:
-CCTK_REAL ML_Ham type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  H
-} "ML_Ham"
-
-public:
-CCTK_REAL ML_mom type=GF timelevels=1 tags='tensortypealias="D" tensorweight=0'
-{
-  M1,
-  M2,
-  M3
-} "ML_mom"
-
-public:
-CCTK_REAL ML_curv type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11,
-  At12,
-  At13,
-  At22,
-  At23,
-  At33
-} "ML_curv"
-
-public:
-CCTK_REAL ML_dtlapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  A
-} "ML_dtlapse"
-
-public:
-CCTK_REAL ML_dtshift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1,
-  B2,
-  B3
-} "ML_dtshift"
-
-public:
-CCTK_REAL ML_Gamma type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1,
-  Xt2,
-  Xt3
-} "ML_Gamma"
-
-public:
-CCTK_REAL ML_lapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpha
-} "ML_lapse"
-
-public:
-CCTK_REAL ML_log_confac type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phi
-} "ML_log_confac"
-
-public:
-CCTK_REAL ML_metric type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11,
-  gt12,
-  gt13,
-  gt22,
-  gt23,
-  gt33
-} "ML_metric"
-
-public:
-CCTK_REAL ML_shift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1,
-  beta2,
-  beta3
-} "ML_shift"
-
-public:
-CCTK_REAL ML_trace_curv type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trK
-} "ML_trace_curv"
-
-public:
-CCTK_REAL ML_curvrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11rhs,
-  At12rhs,
-  At13rhs,
-  At22rhs,
-  At23rhs,
-  At33rhs
-} "ML_curvrhs"
-
-public:
-CCTK_REAL ML_dtlapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  Arhs
-} "ML_dtlapserhs"
-
-public:
-CCTK_REAL ML_dtshiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1rhs,
-  B2rhs,
-  B3rhs
-} "ML_dtshiftrhs"
-
-public:
-CCTK_REAL ML_Gammarhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1rhs,
-  Xt2rhs,
-  Xt3rhs
-} "ML_Gammarhs"
-
-public:
-CCTK_REAL ML_lapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpharhs
-} "ML_lapserhs"
-
-public:
-CCTK_REAL ML_log_confacrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phirhs
-} "ML_log_confacrhs"
-
-public:
-CCTK_REAL ML_metricrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11rhs,
-  gt12rhs,
-  gt13rhs,
-  gt22rhs,
-  gt23rhs,
-  gt33rhs
-} "ML_metricrhs"
-
-public:
-CCTK_REAL ML_shiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1rhs,
-  beta2rhs,
-  beta3rhs
-} "ML_shiftrhs"
-
-public:
-CCTK_REAL ML_trace_curvrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trKrhs
-} "ML_trace_curvrhs"
diff --git a/ML_BSSN_O8/param.ccl b/ML_BSSN_O8/param.ccl
deleted file mode 100644
index 2073d46..0000000
--- a/ML_BSSN_O8/param.ccl
+++ /dev/null
@@ -1,1480 +0,0 @@
-# File produced by Kranc
-
-
-shares: ADMBase
-
-
-EXTENDS CCTK_KEYWORD evolution_method "evolution_method"
-{
-  ML_BSSN_O8 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD lapse_evolution_method "lapse_evolution_method"
-{
-  ML_BSSN_O8 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD shift_evolution_method "shift_evolution_method"
-{
-  ML_BSSN_O8 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtlapse_evolution_method "dtlapse_evolution_method"
-{
-  ML_BSSN_O8 :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtshift_evolution_method "dtshift_evolution_method"
-{
-  ML_BSSN_O8 :: ""
-} 
-
-
-
-shares: GenericFD
-
-USES CCTK_STRING jacobian_group
-USES CCTK_STRING jacobian_derivative_group
-USES CCTK_INT jacobian_identity_map
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseACoeff "Whether to evolve A in time"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL harmonicF "d/dt alpha = - f alpha^n K   (harmonic=1, 1+log=2)"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL AlphaDriver "AlphaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL ShiftBCoeff "Whether to evolve B^i in time"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftGammaCoeff "ShiftGammaCoeff"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL BetaDriver "BetaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseAdvectionCoeff "Factor in front of the lapse advection terms in 1+log"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftAdvectionCoeff "Factor in front of the shift advection terms in gamma driver"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL MinimumLapse "Minimum value of the lapse function"
-{
-  "*:*" :: ""
-} -1
-
-restricted:
-CCTK_REAL SpatialBetaDriverRadius "Radius at which the BetaDriver starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL SpatialShiftGammaCoeffRadius "Radius at which the ShiftGammaCoefficient starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL EpsDiss "Dissipation strength"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_INT harmonicN "d/dt alpha = - f alpha^n K  (harmonic=2, 1+log=1)"
-{
-  *:* :: ""
-} 2
-
-restricted:
-CCTK_INT ShiftAlphaPower "ShiftAlphaPower"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT conformalMethod "Treatment of conformal factor"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT fdOrder "fdOrder"
-{
-  *:* :: ""
-} 8
-
-restricted:
-CCTK_INT harmonicShift "Whether to use the harmonic shift"
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD my_initial_data "my_initial_data"
-{
-  "ADMBase" :: "ADMBase"
-  "Minkowski" :: "Minkowski"
-} "ADMBase"
-
-restricted:
-KEYWORD my_initial_boundary_condition "my_initial_boundary_condition"
-{
-  "none" :: "none"
-} "none"
-
-restricted:
-KEYWORD my_rhs_boundary_condition "my_rhs_boundary_condition"
-{
-  "none" :: "none"
-  "static" :: "static"
-  "radiative" :: "radiative"
-} "none"
-
-private:
-KEYWORD my_boundary_condition "my_boundary_condition"
-{
-  "none" :: "none"
-  "Minkowski" :: "Minkowski"
-} "none"
-
-restricted:
-KEYWORD calculate_ADMBase_variables_at "calculate_ADMBase_variables_at"
-{
-  "MoL_PostStep" :: "MoL_PostStep"
-  "CCTK_EVOL" :: "CCTK_EVOL"
-  "CCTK_ANALYSIS" :: "CCTK_ANALYSIS"
-} "MoL_PostStep"
-
-restricted:
-KEYWORD UseSpatialBetaDriver "UseSpatialBetaDriver"
-{
-  "no" :: "no"
-  "yes" :: "yes"
-} "no"
-
-private:
-KEYWORD dt_lapse_shift_method "Treatment of ADMBase dtlapse and dtshift"
-{
-  "correct" :: "correct"
-  "noLapseShiftAdvection" :: "noLapseShiftAdvection"
-} "correct"
-
-private:
-KEYWORD apply_dissipation "Whether to apply dissipation to the RHSs"
-{
-  "always" :: "always"
-  "never" :: "never"
-} "always"
-
-restricted:
-CCTK_INT ML_BSSN_O8_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  25:25 :: "Number of evolved variables used by this thorn"
-} 25
-
-restricted:
-CCTK_INT ML_BSSN_O8_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_Minkowski_calc_every "ML_BSSN_O8_Minkowski_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertFromADMBase_calc_every "ML_BSSN_O8_convertFromADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_InitGamma_calc_every "ML_BSSN_O8_InitGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertFromADMBaseGamma_calc_every "ML_BSSN_O8_convertFromADMBaseGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_RHS1_calc_every "ML_BSSN_O8_RHS1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_RHS2_calc_every "ML_BSSN_O8_RHS2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_Dissipation_calc_every "ML_BSSN_O8_Dissipation_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_Advect_calc_every "ML_BSSN_O8_Advect_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_InitRHS_calc_every "ML_BSSN_O8_InitRHS_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_RHSStaticBoundary_calc_every "ML_BSSN_O8_RHSStaticBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_enforce_calc_every "ML_BSSN_O8_enforce_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_boundary_calc_every "ML_BSSN_O8_boundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertToADMBase_calc_every "ML_BSSN_O8_convertToADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertToADMBaseDtLapseShift_calc_every "ML_BSSN_O8_convertToADMBaseDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_calc_every "ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_calc_every "ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_constraints1_calc_every "ML_BSSN_O8_constraints1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_constraints2_calc_every "ML_BSSN_O8_constraints2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_O8_Minkowski_calc_offset "ML_BSSN_O8_Minkowski_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertFromADMBase_calc_offset "ML_BSSN_O8_convertFromADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_InitGamma_calc_offset "ML_BSSN_O8_InitGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertFromADMBaseGamma_calc_offset "ML_BSSN_O8_convertFromADMBaseGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_RHS1_calc_offset "ML_BSSN_O8_RHS1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_RHS2_calc_offset "ML_BSSN_O8_RHS2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_Dissipation_calc_offset "ML_BSSN_O8_Dissipation_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_Advect_calc_offset "ML_BSSN_O8_Advect_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_InitRHS_calc_offset "ML_BSSN_O8_InitRHS_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_RHSStaticBoundary_calc_offset "ML_BSSN_O8_RHSStaticBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_enforce_calc_offset "ML_BSSN_O8_enforce_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_boundary_calc_offset "ML_BSSN_O8_boundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertToADMBase_calc_offset "ML_BSSN_O8_convertToADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertToADMBaseDtLapseShift_calc_offset "ML_BSSN_O8_convertToADMBaseDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_calc_offset "ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_calc_offset "ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_constraints1_calc_offset "ML_BSSN_O8_constraints1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_O8_constraints2_calc_offset "ML_BSSN_O8_constraints2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD At11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD A_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD alpha_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD phi_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD trK_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD ML_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtlapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtshift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_Gamma_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_lapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_log_confac_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_metric_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_shift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_trace_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-CCTK_REAL At11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL A_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL alpha_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL phi_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL trK_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtlapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtshift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_Gamma_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_lapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_log_confac_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_metric_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_shift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_trace_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
diff --git a/ML_BSSN_O8/schedule.ccl b/ML_BSSN_O8/schedule.ccl
deleted file mode 100644
index d734ed8..0000000
--- a/ML_BSSN_O8/schedule.ccl
+++ /dev/null
@@ -1,722 +0,0 @@
-# File produced by Kranc
-
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_detg[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_Gamma[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_traceA[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_Ham[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_mom[1]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_curv[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtlapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtlapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtlapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtshift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtshift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtshift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Gamma[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Gamma[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Gamma[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_lapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_lapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_lapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_log_confac[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_log_confac[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_log_confac[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_metric[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_metric[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_metric[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_shift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_shift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_shift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_trace_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_trace_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_trace_curv[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_curvrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtlapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtlapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtlapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtshiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtshiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtshiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_Gammarhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_Gammarhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_Gammarhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_lapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_lapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_lapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_log_confacrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_log_confacrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_log_confacrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_metricrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_metricrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_metricrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_shiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_shiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_shiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_trace_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_trace_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_trace_curvrhs[3]
-}
-
-schedule ML_BSSN_O8_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_BSSN_O8_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-
-if (CCTK_EQUALS(my_initial_data, "Minkowski"))
-{
-  schedule ML_BSSN_O8_Minkowski IN ADMBase_InitialData
-  {
-    LANG: C
-    WRITES:   ML_BSSN_O8::ML_curv
-    WRITES:   ML_BSSN_O8::ML_dtlapse
-    WRITES:   ML_BSSN_O8::ML_dtshift
-    WRITES:   ML_BSSN_O8::ML_Gamma
-    WRITES:   ML_BSSN_O8::ML_lapse
-    WRITES:   ML_BSSN_O8::ML_log_confac
-    WRITES:   ML_BSSN_O8::ML_metric
-    WRITES:   ML_BSSN_O8::ML_shift
-    WRITES:   ML_BSSN_O8::ML_trace_curv
-  } "ML_BSSN_O8_Minkowski"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_O8_convertFromADMBase AT initial AFTER ADMBase_PostInitial
-  {
-    LANG: C
-    READS:    ADMBase::curv
-    READS:    ADMBase::lapse
-    READS:    ADMBase::metric
-    READS:    ADMBase::shift
-    READS:    ML_BSSN_O8::ML_log_confac
-    READS:    ML_BSSN_O8::ML_trace_curv
-    WRITES:   ML_BSSN_O8::ML_curv
-    WRITES:   ML_BSSN_O8::ML_lapse
-    WRITES:   ML_BSSN_O8::ML_log_confac
-    WRITES:   ML_BSSN_O8::ML_metric
-    WRITES:   ML_BSSN_O8::ML_shift
-    WRITES:   ML_BSSN_O8::ML_trace_curv
-  } "ML_BSSN_O8_convertFromADMBase"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_O8_InitGamma AT initial BEFORE ML_BSSN_O8_convertFromADMBaseGamma
-  {
-    LANG: C
-    WRITES:   ML_BSSN_O8::ML_dtlapse
-    WRITES:   ML_BSSN_O8::ML_dtshift
-    WRITES:   ML_BSSN_O8::ML_Gamma
-  } "ML_BSSN_O8_InitGamma"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_O8_convertFromADMBaseGamma AT initial AFTER ML_BSSN_O8_convertFromADMBase
-  {
-    LANG: C
-    SYNC: ML_dtlapse
-    SYNC: ML_dtshift
-    SYNC: ML_Gamma
-    READS:    ADMBase::dtlapse
-    READS:    ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_O8::ML_lapse
-    READS:    ML_BSSN_O8::ML_metric
-    READS:    ML_BSSN_O8::ML_shift
-    WRITES:   ML_BSSN_O8::ML_dtlapse
-    WRITES:   ML_BSSN_O8::ML_dtshift
-    WRITES:   ML_BSSN_O8::ML_Gamma
-  } "ML_BSSN_O8_convertFromADMBaseGamma"
-}
-
-schedule ML_BSSN_O8_RHS1 IN ML_BSSN_O8_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_O8::ML_curv
-  READS:    ML_BSSN_O8::ML_dtlapse
-  READS:    ML_BSSN_O8::ML_dtshift
-  READS:    ML_BSSN_O8::ML_Gamma
-  READS:    ML_BSSN_O8::ML_lapse
-  READS:    ML_BSSN_O8::ML_log_confac
-  READS:    ML_BSSN_O8::ML_metric
-  READS:    ML_BSSN_O8::ML_shift
-  READS:    ML_BSSN_O8::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_O8::ML_dtlapserhs
-  WRITES:   ML_BSSN_O8::ML_dtshiftrhs
-  WRITES:   ML_BSSN_O8::ML_Gammarhs
-  WRITES:   ML_BSSN_O8::ML_lapserhs
-  WRITES:   ML_BSSN_O8::ML_log_confacrhs
-  WRITES:   ML_BSSN_O8::ML_metricrhs
-  WRITES:   ML_BSSN_O8::ML_shiftrhs
-  WRITES:   ML_BSSN_O8::ML_trace_curvrhs
-} "ML_BSSN_O8_RHS1"
-
-schedule ML_BSSN_O8_RHS2 IN ML_BSSN_O8_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_O8::ML_curv
-  READS:    ML_BSSN_O8::ML_Gamma
-  READS:    ML_BSSN_O8::ML_lapse
-  READS:    ML_BSSN_O8::ML_log_confac
-  READS:    ML_BSSN_O8::ML_metric
-  READS:    ML_BSSN_O8::ML_shift
-  READS:    ML_BSSN_O8::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_O8::ML_curvrhs
-} "ML_BSSN_O8_RHS2"
-
-
-if (CCTK_EQUALS(apply_dissipation, "always"))
-{
-  schedule ML_BSSN_O8_Dissipation IN ML_BSSN_O8_evolCalcGroup AFTER (ML_BSSN_O8_RHS1 ML_BSSN_O8_RHS2)
-  {
-    LANG: C
-    READS:    ML_BSSN_O8::ML_curv
-    READS:    ML_BSSN_O8::ML_curvrhs
-    READS:    ML_BSSN_O8::ML_dtlapse
-    READS:    ML_BSSN_O8::ML_dtlapserhs
-    READS:    ML_BSSN_O8::ML_dtshift
-    READS:    ML_BSSN_O8::ML_dtshiftrhs
-    READS:    ML_BSSN_O8::ML_Gamma
-    READS:    ML_BSSN_O8::ML_Gammarhs
-    READS:    ML_BSSN_O8::ML_lapse
-    READS:    ML_BSSN_O8::ML_lapserhs
-    READS:    ML_BSSN_O8::ML_log_confac
-    READS:    ML_BSSN_O8::ML_log_confacrhs
-    READS:    ML_BSSN_O8::ML_metric
-    READS:    ML_BSSN_O8::ML_metricrhs
-    READS:    ML_BSSN_O8::ML_shift
-    READS:    ML_BSSN_O8::ML_shiftrhs
-    READS:    ML_BSSN_O8::ML_trace_curv
-    READS:    ML_BSSN_O8::ML_trace_curvrhs
-    WRITES:   ML_BSSN_O8::ML_curvrhs
-    WRITES:   ML_BSSN_O8::ML_dtlapserhs
-    WRITES:   ML_BSSN_O8::ML_dtshiftrhs
-    WRITES:   ML_BSSN_O8::ML_Gammarhs
-    WRITES:   ML_BSSN_O8::ML_lapserhs
-    WRITES:   ML_BSSN_O8::ML_log_confacrhs
-    WRITES:   ML_BSSN_O8::ML_metricrhs
-    WRITES:   ML_BSSN_O8::ML_shiftrhs
-    WRITES:   ML_BSSN_O8::ML_trace_curvrhs
-  } "ML_BSSN_O8_Dissipation"
-}
-
-schedule ML_BSSN_O8_Advect IN ML_BSSN_O8_evolCalcGroup AFTER (ML_BSSN_O8_RHS1 ML_BSSN_O8_RHS2)
-{
-  LANG: C
-  READS:    ML_BSSN_O8::ML_curv
-  READS:    ML_BSSN_O8::ML_curvrhs
-  READS:    ML_BSSN_O8::ML_dtlapse
-  READS:    ML_BSSN_O8::ML_dtlapserhs
-  READS:    ML_BSSN_O8::ML_dtshift
-  READS:    ML_BSSN_O8::ML_dtshiftrhs
-  READS:    ML_BSSN_O8::ML_Gamma
-  READS:    ML_BSSN_O8::ML_Gammarhs
-  READS:    ML_BSSN_O8::ML_lapse
-  READS:    ML_BSSN_O8::ML_lapserhs
-  READS:    ML_BSSN_O8::ML_log_confac
-  READS:    ML_BSSN_O8::ML_log_confacrhs
-  READS:    ML_BSSN_O8::ML_metric
-  READS:    ML_BSSN_O8::ML_metricrhs
-  READS:    ML_BSSN_O8::ML_shift
-  READS:    ML_BSSN_O8::ML_shiftrhs
-  READS:    ML_BSSN_O8::ML_trace_curv
-  READS:    ML_BSSN_O8::ML_trace_curvrhs
-  WRITES:   ML_BSSN_O8::ML_curvrhs
-  WRITES:   ML_BSSN_O8::ML_dtlapserhs
-  WRITES:   ML_BSSN_O8::ML_dtshiftrhs
-  WRITES:   ML_BSSN_O8::ML_Gammarhs
-  WRITES:   ML_BSSN_O8::ML_lapserhs
-  WRITES:   ML_BSSN_O8::ML_log_confacrhs
-  WRITES:   ML_BSSN_O8::ML_metricrhs
-  WRITES:   ML_BSSN_O8::ML_shiftrhs
-  WRITES:   ML_BSSN_O8::ML_trace_curvrhs
-} "ML_BSSN_O8_Advect"
-
-schedule ML_BSSN_O8_InitRHS AT analysis BEFORE ML_BSSN_O8_evolCalcGroup
-{
-  LANG: C
-  WRITES:   ML_BSSN_O8::ML_curvrhs
-  WRITES:   ML_BSSN_O8::ML_dtlapserhs
-  WRITES:   ML_BSSN_O8::ML_dtshiftrhs
-  WRITES:   ML_BSSN_O8::ML_Gammarhs
-  WRITES:   ML_BSSN_O8::ML_lapserhs
-  WRITES:   ML_BSSN_O8::ML_log_confacrhs
-  WRITES:   ML_BSSN_O8::ML_metricrhs
-  WRITES:   ML_BSSN_O8::ML_shiftrhs
-  WRITES:   ML_BSSN_O8::ML_trace_curvrhs
-} "ML_BSSN_O8_InitRHS"
-
-
-if (CCTK_EQUALS(my_rhs_boundary_condition, "static"))
-{
-  schedule ML_BSSN_O8_RHSStaticBoundary IN MoL_CalcRHS
-  {
-    LANG: C
-    WRITES:   ML_BSSN_O8::ML_curvrhs
-    WRITES:   ML_BSSN_O8::ML_dtlapserhs
-    WRITES:   ML_BSSN_O8::ML_dtshiftrhs
-    WRITES:   ML_BSSN_O8::ML_Gammarhs
-    WRITES:   ML_BSSN_O8::ML_lapserhs
-    WRITES:   ML_BSSN_O8::ML_log_confacrhs
-    WRITES:   ML_BSSN_O8::ML_metricrhs
-    WRITES:   ML_BSSN_O8::ML_shiftrhs
-    WRITES:   ML_BSSN_O8::ML_trace_curvrhs
-  } "ML_BSSN_O8_RHSStaticBoundary"
-}
-
-schedule ML_BSSN_O8_enforce IN MoL_PostStepModify
-{
-  LANG: C
-  READS:    ML_BSSN_O8::ML_curv
-  READS:    ML_BSSN_O8::ML_lapse
-  READS:    ML_BSSN_O8::ML_metric
-  WRITES:   ML_BSSN_O8::ML_curv
-  WRITES:   ML_BSSN_O8::ML_lapse
-} "ML_BSSN_O8_enforce"
-
-
-if (CCTK_EQUALS(my_boundary_condition, "Minkowski"))
-{
-  schedule ML_BSSN_O8_boundary IN MoL_PostStep
-  {
-    LANG: C
-    WRITES:   ML_BSSN_O8::ML_curv
-    WRITES:   ML_BSSN_O8::ML_dtlapse
-    WRITES:   ML_BSSN_O8::ML_dtshift
-    WRITES:   ML_BSSN_O8::ML_Gamma
-    WRITES:   ML_BSSN_O8::ML_lapse
-    WRITES:   ML_BSSN_O8::ML_log_confac
-    WRITES:   ML_BSSN_O8::ML_metric
-    WRITES:   ML_BSSN_O8::ML_shift
-    WRITES:   ML_BSSN_O8::ML_trace_curv
-  } "ML_BSSN_O8_boundary"
-}
-
-schedule ML_BSSN_O8_convertToADMBase IN ML_BSSN_O8_convertToADMBaseGroup
-{
-  LANG: C
-  READS:    ADMBase::metric
-  READS:    ML_BSSN_O8::ML_curv
-  READS:    ML_BSSN_O8::ML_lapse
-  READS:    ML_BSSN_O8::ML_log_confac
-  READS:    ML_BSSN_O8::ML_metric
-  READS:    ML_BSSN_O8::ML_shift
-  READS:    ML_BSSN_O8::ML_trace_curv
-  WRITES:   ADMBase::curv
-  WRITES:   ADMBase::lapse
-  WRITES:   ADMBase::metric
-  WRITES:   ADMBase::shift
-} "ML_BSSN_O8_convertToADMBase"
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_O8_convertToADMBaseDtLapseShift IN ML_BSSN_O8_convertToADMBaseGroup
-  {
-    LANG: C
-    SYNC: ADMBase::dtlapse
-    SYNC: ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_O8::ML_dtlapse
-    READS:    ML_BSSN_O8::ML_dtshift
-    READS:    ML_BSSN_O8::ML_Gamma
-    READS:    ML_BSSN_O8::ML_lapse
-    READS:    ML_BSSN_O8::ML_log_confac
-    READS:    ML_BSSN_O8::ML_metric
-    READS:    ML_BSSN_O8::ML_shift
-    READS:    ML_BSSN_O8::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_O8_convertToADMBaseDtLapseShift"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary IN ML_BSSN_O8_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_O8::ML_dtlapse
-    READS:    ML_BSSN_O8::ML_dtshift
-    READS:    ML_BSSN_O8::ML_Gamma
-    READS:    ML_BSSN_O8::ML_lapse
-    READS:    ML_BSSN_O8::ML_metric
-    READS:    ML_BSSN_O8::ML_shift
-    READS:    ML_BSSN_O8::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "noLapseShiftAdvection"))
-{
-  schedule ML_BSSN_O8_convertToADMBaseFakeDtLapseShift IN ML_BSSN_O8_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_O8::ML_dtlapse
-    READS:    ML_BSSN_O8::ML_dtshift
-    READS:    ML_BSSN_O8::ML_Gamma
-    READS:    ML_BSSN_O8::ML_lapse
-    READS:    ML_BSSN_O8::ML_metric
-    READS:    ML_BSSN_O8::ML_shift
-    READS:    ML_BSSN_O8::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_O8_convertToADMBaseFakeDtLapseShift"
-}
-
-schedule group ML_BSSN_O8_constraints1_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_O8_constraints1"
-
-schedule ML_BSSN_O8_constraints1 in ML_BSSN_O8_constraints1_group
-{
-  LANG: C
-  READS:    ML_BSSN_O8::ML_curv
-  READS:    ML_BSSN_O8::ML_Gamma
-  READS:    ML_BSSN_O8::ML_lapse
-  READS:    ML_BSSN_O8::ML_log_confac
-  READS:    ML_BSSN_O8::ML_metric
-  READS:    ML_BSSN_O8::ML_shift
-  READS:    ML_BSSN_O8::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_O8::ML_Ham
-} "ML_BSSN_O8_constraints1"
-
-schedule ML_BSSN_O8_constraints1_SelectBCs in ML_BSSN_O8_constraints1_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_Ham
-} "ML_BSSN_O8_constraints1_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_O8_constraints1_ApplyBCs in ML_BSSN_O8_constraints1_bc_group after ML_BSSN_O8_constraints1_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_O8_constraints1"
-
-schedule group ML_BSSN_O8_constraints1_bc_group in ML_BSSN_O8_constraints1_group after ML_BSSN_O8_constraints1
-{
-  # no language specified
-} "ML_BSSN_O8_constraints1"
-
-schedule group ML_BSSN_O8_constraints1_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_O8_constraints1"
-
-schedule group ML_BSSN_O8_constraints2_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_O8_constraints2"
-
-schedule ML_BSSN_O8_constraints2 in ML_BSSN_O8_constraints2_group
-{
-  LANG: C
-  READS:    ML_BSSN_O8::ML_curv
-  READS:    ML_BSSN_O8::ML_Gamma
-  READS:    ML_BSSN_O8::ML_lapse
-  READS:    ML_BSSN_O8::ML_log_confac
-  READS:    ML_BSSN_O8::ML_metric
-  READS:    ML_BSSN_O8::ML_shift
-  READS:    ML_BSSN_O8::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_O8::ML_cons_detg
-  WRITES:   ML_BSSN_O8::ML_cons_Gamma
-  WRITES:   ML_BSSN_O8::ML_cons_traceA
-  WRITES:   ML_BSSN_O8::ML_mom
-} "ML_BSSN_O8_constraints2"
-
-schedule ML_BSSN_O8_constraints2_SelectBCs in ML_BSSN_O8_constraints2_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_cons_detg
-  SYNC: ML_cons_Gamma
-  SYNC: ML_cons_traceA
-  SYNC: ML_mom
-} "ML_BSSN_O8_constraints2_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_O8_constraints2_ApplyBCs in ML_BSSN_O8_constraints2_bc_group after ML_BSSN_O8_constraints2_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_O8_constraints2"
-
-schedule group ML_BSSN_O8_constraints2_bc_group in ML_BSSN_O8_constraints2_group after ML_BSSN_O8_constraints2
-{
-  # no language specified
-} "ML_BSSN_O8_constraints2"
-
-schedule group ML_BSSN_O8_constraints2_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_O8_constraints2"
-
-schedule ML_BSSN_O8_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_curv
-  SYNC: ML_dtlapse
-  SYNC: ML_dtshift
-  SYNC: ML_Gamma
-  SYNC: ML_lapse
-  SYNC: ML_log_confac
-  SYNC: ML_metric
-  SYNC: ML_shift
-  SYNC: ML_trace_curv
-} "select boundary conditions"
-
-schedule ML_BSSN_O8_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_BSSN_O8_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_BSSN_O8_ApplyBCs in MoL_PostStep after ML_BSSN_O8_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_BSSN_O8/src/Boundaries.cc b/ML_BSSN_O8/src/Boundaries.cc
deleted file mode 100644
index b3a2177..0000000
--- a/ML_BSSN_O8/src/Boundaries.cc
+++ /dev/null
@@ -1,1809 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_BSSN_O8_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_BSSN_O8_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  if (CCTK_EQUALS(ML_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "static") ||
-      CCTK_EQUALS(ML_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::ML_curv", ML_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_curv_bound BC for ML_BSSN_O8::ML_curv!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "static") ||
-      CCTK_EQUALS(ML_dtlapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::ML_dtlapse", ML_dtlapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtlapse_bound BC for ML_BSSN_O8::ML_dtlapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "static") ||
-      CCTK_EQUALS(ML_dtshift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::ML_dtshift", ML_dtshift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtshift_bound BC for ML_BSSN_O8::ML_dtshift!");
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "none"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "static") ||
-      CCTK_EQUALS(ML_Gamma_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::ML_Gamma", ML_Gamma_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_Gamma_bound BC for ML_BSSN_O8::ML_Gamma!");
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "static") ||
-      CCTK_EQUALS(ML_lapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::ML_lapse", ML_lapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_lapse_bound BC for ML_BSSN_O8::ML_lapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "none"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "static") ||
-      CCTK_EQUALS(ML_log_confac_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::ML_log_confac", ML_log_confac_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_log_confac_bound BC for ML_BSSN_O8::ML_log_confac!");
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "none"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "static") ||
-      CCTK_EQUALS(ML_metric_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::ML_metric", ML_metric_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_metric_bound BC for ML_BSSN_O8::ML_metric!");
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "static") ||
-      CCTK_EQUALS(ML_shift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::ML_shift", ML_shift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_shift_bound BC for ML_BSSN_O8::ML_shift!");
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "static") ||
-      CCTK_EQUALS(ML_trace_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::ML_trace_curv", ML_trace_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_trace_curv_bound BC for ML_BSSN_O8::ML_trace_curv!");
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "none"  ) ||
-      CCTK_EQUALS(At11_bound, "static") ||
-      CCTK_EQUALS(At11_bound, "flat"  ) ||
-      CCTK_EQUALS(At11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::At11", At11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At11_bound BC for ML_BSSN_O8::At11!");
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "none"  ) ||
-      CCTK_EQUALS(At12_bound, "static") ||
-      CCTK_EQUALS(At12_bound, "flat"  ) ||
-      CCTK_EQUALS(At12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::At12", At12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At12_bound BC for ML_BSSN_O8::At12!");
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "none"  ) ||
-      CCTK_EQUALS(At13_bound, "static") ||
-      CCTK_EQUALS(At13_bound, "flat"  ) ||
-      CCTK_EQUALS(At13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::At13", At13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At13_bound BC for ML_BSSN_O8::At13!");
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "none"  ) ||
-      CCTK_EQUALS(At22_bound, "static") ||
-      CCTK_EQUALS(At22_bound, "flat"  ) ||
-      CCTK_EQUALS(At22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::At22", At22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At22_bound BC for ML_BSSN_O8::At22!");
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "none"  ) ||
-      CCTK_EQUALS(At23_bound, "static") ||
-      CCTK_EQUALS(At23_bound, "flat"  ) ||
-      CCTK_EQUALS(At23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::At23", At23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At23_bound BC for ML_BSSN_O8::At23!");
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "none"  ) ||
-      CCTK_EQUALS(At33_bound, "static") ||
-      CCTK_EQUALS(At33_bound, "flat"  ) ||
-      CCTK_EQUALS(At33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::At33", At33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At33_bound BC for ML_BSSN_O8::At33!");
-  }
-  
-  if (CCTK_EQUALS(A_bound, "none"  ) ||
-      CCTK_EQUALS(A_bound, "static") ||
-      CCTK_EQUALS(A_bound, "flat"  ) ||
-      CCTK_EQUALS(A_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::A", A_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register A_bound BC for ML_BSSN_O8::A!");
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "none"  ) ||
-      CCTK_EQUALS(B1_bound, "static") ||
-      CCTK_EQUALS(B1_bound, "flat"  ) ||
-      CCTK_EQUALS(B1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::B1", B1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B1_bound BC for ML_BSSN_O8::B1!");
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "none"  ) ||
-      CCTK_EQUALS(B2_bound, "static") ||
-      CCTK_EQUALS(B2_bound, "flat"  ) ||
-      CCTK_EQUALS(B2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::B2", B2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B2_bound BC for ML_BSSN_O8::B2!");
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "none"  ) ||
-      CCTK_EQUALS(B3_bound, "static") ||
-      CCTK_EQUALS(B3_bound, "flat"  ) ||
-      CCTK_EQUALS(B3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::B3", B3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B3_bound BC for ML_BSSN_O8::B3!");
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "none"  ) ||
-      CCTK_EQUALS(Xt1_bound, "static") ||
-      CCTK_EQUALS(Xt1_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::Xt1", Xt1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt1_bound BC for ML_BSSN_O8::Xt1!");
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "none"  ) ||
-      CCTK_EQUALS(Xt2_bound, "static") ||
-      CCTK_EQUALS(Xt2_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::Xt2", Xt2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt2_bound BC for ML_BSSN_O8::Xt2!");
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "none"  ) ||
-      CCTK_EQUALS(Xt3_bound, "static") ||
-      CCTK_EQUALS(Xt3_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::Xt3", Xt3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt3_bound BC for ML_BSSN_O8::Xt3!");
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "none"  ) ||
-      CCTK_EQUALS(alpha_bound, "static") ||
-      CCTK_EQUALS(alpha_bound, "flat"  ) ||
-      CCTK_EQUALS(alpha_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::alpha", alpha_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register alpha_bound BC for ML_BSSN_O8::alpha!");
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "none"  ) ||
-      CCTK_EQUALS(phi_bound, "static") ||
-      CCTK_EQUALS(phi_bound, "flat"  ) ||
-      CCTK_EQUALS(phi_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::phi", phi_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register phi_bound BC for ML_BSSN_O8::phi!");
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "none"  ) ||
-      CCTK_EQUALS(gt11_bound, "static") ||
-      CCTK_EQUALS(gt11_bound, "flat"  ) ||
-      CCTK_EQUALS(gt11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::gt11", gt11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt11_bound BC for ML_BSSN_O8::gt11!");
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "none"  ) ||
-      CCTK_EQUALS(gt12_bound, "static") ||
-      CCTK_EQUALS(gt12_bound, "flat"  ) ||
-      CCTK_EQUALS(gt12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::gt12", gt12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt12_bound BC for ML_BSSN_O8::gt12!");
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "none"  ) ||
-      CCTK_EQUALS(gt13_bound, "static") ||
-      CCTK_EQUALS(gt13_bound, "flat"  ) ||
-      CCTK_EQUALS(gt13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::gt13", gt13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt13_bound BC for ML_BSSN_O8::gt13!");
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "none"  ) ||
-      CCTK_EQUALS(gt22_bound, "static") ||
-      CCTK_EQUALS(gt22_bound, "flat"  ) ||
-      CCTK_EQUALS(gt22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::gt22", gt22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt22_bound BC for ML_BSSN_O8::gt22!");
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "none"  ) ||
-      CCTK_EQUALS(gt23_bound, "static") ||
-      CCTK_EQUALS(gt23_bound, "flat"  ) ||
-      CCTK_EQUALS(gt23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::gt23", gt23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt23_bound BC for ML_BSSN_O8::gt23!");
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "none"  ) ||
-      CCTK_EQUALS(gt33_bound, "static") ||
-      CCTK_EQUALS(gt33_bound, "flat"  ) ||
-      CCTK_EQUALS(gt33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::gt33", gt33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt33_bound BC for ML_BSSN_O8::gt33!");
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "none"  ) ||
-      CCTK_EQUALS(beta1_bound, "static") ||
-      CCTK_EQUALS(beta1_bound, "flat"  ) ||
-      CCTK_EQUALS(beta1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::beta1", beta1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta1_bound BC for ML_BSSN_O8::beta1!");
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "none"  ) ||
-      CCTK_EQUALS(beta2_bound, "static") ||
-      CCTK_EQUALS(beta2_bound, "flat"  ) ||
-      CCTK_EQUALS(beta2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::beta2", beta2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta2_bound BC for ML_BSSN_O8::beta2!");
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "none"  ) ||
-      CCTK_EQUALS(beta3_bound, "static") ||
-      CCTK_EQUALS(beta3_bound, "flat"  ) ||
-      CCTK_EQUALS(beta3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::beta3", beta3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta3_bound BC for ML_BSSN_O8::beta3!");
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "none"  ) ||
-      CCTK_EQUALS(trK_bound, "static") ||
-      CCTK_EQUALS(trK_bound, "flat"  ) ||
-      CCTK_EQUALS(trK_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_O8::trK", trK_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register trK_bound BC for ML_BSSN_O8::trK!");
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound , ML_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_O8::ML_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound , ML_dtlapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_O8::ML_dtlapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound , ML_dtshift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_O8::ML_dtshift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound , ML_Gamma_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_O8::ML_Gamma", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound , ML_lapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_O8::ML_lapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound , ML_log_confac_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_O8::ML_log_confac", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound , ML_metric_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_O8::ML_metric", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound , ML_shift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_O8::ML_shift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound , ML_trace_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_O8::ML_trace_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound , At11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_O8::At11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound , At12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_O8::At12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound , At13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_O8::At13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound , At22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_O8::At22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound , At23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_O8::At23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound , At33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_O8::At33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound , A_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_O8::A", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound , B1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_O8::B1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound , B2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_O8::B2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound , B3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_O8::B3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound , Xt1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_O8::Xt1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound , Xt2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_O8::Xt2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound , Xt3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_O8::Xt3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound , alpha_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_O8::alpha", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound , phi_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_O8::phi", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound , gt11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_O8::gt11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound , gt12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_O8::gt12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound , gt13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_O8::gt13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound , gt22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_O8::gt22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound , gt23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_O8::gt23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound , gt33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_O8::gt33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound , beta1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_O8::beta1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound , beta2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_O8::beta2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound , beta3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_O8::beta3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound , trK_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_O8::trK", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_O8::trK!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_O8::ML_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O8::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_O8::ML_dtlapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O8::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_O8::ML_dtshift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O8::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_O8::ML_Gamma", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O8::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_O8::ML_lapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O8::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_O8::ML_log_confac", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O8::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_O8::ML_metric", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O8::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_O8::ML_shift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O8::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_O8::ML_trace_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_O8::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_O8::At11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_O8::At12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_O8::At13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_O8::At22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_O8::At23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_O8::At33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_O8::A", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_O8::B1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_O8::B2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_O8::B3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_O8::Xt1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_O8::Xt2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_O8::Xt3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_O8::alpha", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_O8::phi", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_O8::gt11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_O8::gt12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_O8::gt13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_O8::gt22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_O8::gt23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_O8::gt33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_O8::beta1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_O8::beta2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_O8::beta3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_O8::trK", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_O8::trK!");
-  
-  }
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-#$bound$#ML_BSSN_O8::ML_curv_bound       = "skip"
-#$bound$#ML_BSSN_O8::ML_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::ML_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::ML_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::ML_dtlapse_bound       = "skip"
-#$bound$#ML_BSSN_O8::ML_dtlapse_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::ML_dtlapse_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::ML_dtlapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::ML_dtshift_bound       = "skip"
-#$bound$#ML_BSSN_O8::ML_dtshift_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::ML_dtshift_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::ML_dtshift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::ML_Gamma_bound       = "skip"
-#$bound$#ML_BSSN_O8::ML_Gamma_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::ML_Gamma_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::ML_Gamma_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::ML_lapse_bound       = "skip"
-#$bound$#ML_BSSN_O8::ML_lapse_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::ML_lapse_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::ML_lapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::ML_log_confac_bound       = "skip"
-#$bound$#ML_BSSN_O8::ML_log_confac_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::ML_log_confac_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::ML_log_confac_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::ML_metric_bound       = "skip"
-#$bound$#ML_BSSN_O8::ML_metric_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::ML_metric_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::ML_metric_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::ML_shift_bound       = "skip"
-#$bound$#ML_BSSN_O8::ML_shift_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::ML_shift_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::ML_shift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::ML_trace_curv_bound       = "skip"
-#$bound$#ML_BSSN_O8::ML_trace_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::ML_trace_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::ML_trace_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::At11_bound       = "skip"
-#$bound$#ML_BSSN_O8::At11_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::At11_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::At11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::At12_bound       = "skip"
-#$bound$#ML_BSSN_O8::At12_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::At12_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::At12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::At13_bound       = "skip"
-#$bound$#ML_BSSN_O8::At13_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::At13_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::At13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::At22_bound       = "skip"
-#$bound$#ML_BSSN_O8::At22_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::At22_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::At22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::At23_bound       = "skip"
-#$bound$#ML_BSSN_O8::At23_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::At23_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::At23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::At33_bound       = "skip"
-#$bound$#ML_BSSN_O8::At33_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::At33_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::At33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::A_bound       = "skip"
-#$bound$#ML_BSSN_O8::A_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::A_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::A_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::B1_bound       = "skip"
-#$bound$#ML_BSSN_O8::B1_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::B1_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::B1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::B2_bound       = "skip"
-#$bound$#ML_BSSN_O8::B2_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::B2_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::B2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::B3_bound       = "skip"
-#$bound$#ML_BSSN_O8::B3_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::B3_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::B3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::Xt1_bound       = "skip"
-#$bound$#ML_BSSN_O8::Xt1_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::Xt1_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::Xt1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::Xt2_bound       = "skip"
-#$bound$#ML_BSSN_O8::Xt2_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::Xt2_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::Xt2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::Xt3_bound       = "skip"
-#$bound$#ML_BSSN_O8::Xt3_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::Xt3_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::Xt3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::alpha_bound       = "skip"
-#$bound$#ML_BSSN_O8::alpha_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::alpha_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::alpha_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::phi_bound       = "skip"
-#$bound$#ML_BSSN_O8::phi_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::phi_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::phi_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::gt11_bound       = "skip"
-#$bound$#ML_BSSN_O8::gt11_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::gt11_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::gt11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::gt12_bound       = "skip"
-#$bound$#ML_BSSN_O8::gt12_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::gt12_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::gt12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::gt13_bound       = "skip"
-#$bound$#ML_BSSN_O8::gt13_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::gt13_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::gt13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::gt22_bound       = "skip"
-#$bound$#ML_BSSN_O8::gt22_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::gt22_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::gt22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::gt23_bound       = "skip"
-#$bound$#ML_BSSN_O8::gt23_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::gt23_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::gt23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::gt33_bound       = "skip"
-#$bound$#ML_BSSN_O8::gt33_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::gt33_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::gt33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::beta1_bound       = "skip"
-#$bound$#ML_BSSN_O8::beta1_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::beta1_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::beta1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::beta2_bound       = "skip"
-#$bound$#ML_BSSN_O8::beta2_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::beta2_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::beta2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::beta3_bound       = "skip"
-#$bound$#ML_BSSN_O8::beta3_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::beta3_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::beta3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_O8::trK_bound       = "skip"
-#$bound$#ML_BSSN_O8::trK_bound_speed = 1.0
-#$bound$#ML_BSSN_O8::trK_bound_limit = 0.0
-#$bound$#ML_BSSN_O8::trK_bound_scalar = 0.0
-
-*/
-
diff --git a/ML_BSSN_O8/src/Differencing.h b/ML_BSSN_O8/src/Differencing.h
deleted file mode 100644
index 96a0554..0000000
--- a/ML_BSSN_O8/src/Differencing.h
+++ /dev/null
@@ -1,1146 +0,0 @@
-#include <assert.h>
-#include "vectors.h"
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder21(u) (kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0))))
-#else
-#  define PDstandardNthfdOrder21(u) (PDstandardNthfdOrder21_impl(u,p1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder22(u) (kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0))))
-#else
-#  define PDstandardNthfdOrder22(u) (PDstandardNthfdOrder22_impl(u,p1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder23(u) (kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1))))
-#else
-#  define PDstandardNthfdOrder23(u) (PDstandardNthfdOrder23_impl(u,p1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder41(u) (kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDstandardNthfdOrder41(u) (PDstandardNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder42(u) (kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDstandardNthfdOrder42(u) (PDstandardNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder43(u) (kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDstandardNthfdOrder43(u) (PDstandardNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder61(u) (kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDstandardNthfdOrder61(u) (PDstandardNthfdOrder61_impl(u,p1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder62(u) (kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDstandardNthfdOrder62(u) (PDstandardNthfdOrder62_impl(u,p1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder63(u) (kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDstandardNthfdOrder63(u) (PDstandardNthfdOrder63_impl(u,p1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder81(u) (kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder81(u) (PDstandardNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder82(u) (kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder82(u) (PDstandardNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder83(u) (kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder83(u) (PDstandardNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder211(u) (kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0)))))
-#else
-#  define PDstandardNthfdOrder211(u) (PDstandardNthfdOrder211_impl(u,p1odx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder222(u) (kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0)))))
-#else
-#  define PDstandardNthfdOrder222(u) (PDstandardNthfdOrder222_impl(u,p1ody2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder233(u) (kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1)))))
-#else
-#  define PDstandardNthfdOrder233(u) (PDstandardNthfdOrder233_impl(u,p1odz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder411(u) (kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder411(u) (PDstandardNthfdOrder411_impl(u,pm1o12dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder422(u) (kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder422(u) (PDstandardNthfdOrder422_impl(u,pm1o12dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder433(u) (kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder433(u) (PDstandardNthfdOrder433_impl(u,pm1o12dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder611(u) (kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder611(u) (PDstandardNthfdOrder611_impl(u,p1o180dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder622(u) (kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder622(u) (PDstandardNthfdOrder622_impl(u,p1o180dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder633(u) (kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder633(u) (PDstandardNthfdOrder633_impl(u,p1o180dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder811(u) (kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder811(u) (PDstandardNthfdOrder811_impl(u,p1o5040dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder822(u) (kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder822(u) (PDstandardNthfdOrder822_impl(u,p1o5040dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder833(u) (kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder833(u) (PDstandardNthfdOrder833_impl(u,p1o5040dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder212(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder212(u) (PDstandardNthfdOrder212_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder213(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder213(u) (PDstandardNthfdOrder213_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder221(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder221(u) (PDstandardNthfdOrder221_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder223(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder223(u) (PDstandardNthfdOrder223_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder231(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder231(u) (PDstandardNthfdOrder231_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder232(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder232(u) (PDstandardNthfdOrder232_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder412(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder412(u) (PDstandardNthfdOrder412_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder413(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder413(u) (PDstandardNthfdOrder413_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder421(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder421(u) (PDstandardNthfdOrder421_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder423(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder423(u) (PDstandardNthfdOrder423_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder431(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder431(u) (PDstandardNthfdOrder431_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder432(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder432(u) (PDstandardNthfdOrder432_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder612(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder612(u) (PDstandardNthfdOrder612_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder613(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder613(u) (PDstandardNthfdOrder613_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder621(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder621(u) (PDstandardNthfdOrder621_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder623(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder623(u) (PDstandardNthfdOrder623_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder631(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder631(u) (PDstandardNthfdOrder631_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder632(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder632(u) (PDstandardNthfdOrder632_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder812(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder812(u) (PDstandardNthfdOrder812_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder813(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder813(u) (PDstandardNthfdOrder813_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder821(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder821(u) (PDstandardNthfdOrder821_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder823(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder823(u) (PDstandardNthfdOrder823_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder831(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder831(u) (PDstandardNthfdOrder831_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder832(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder832(u) (PDstandardNthfdOrder832_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder21(u) (kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder21(u) (PDdissipationNthfdOrder21_impl(u,p1o16dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder22(u) (kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder22(u) (PDdissipationNthfdOrder22_impl(u,p1o16dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder23(u) (kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder23(u) (PDdissipationNthfdOrder23_impl(u,p1o16dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder41(u) (kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder41(u) (PDdissipationNthfdOrder41_impl(u,p1o64dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder42(u) (kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder42(u) (PDdissipationNthfdOrder42_impl(u,p1o64dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder43(u) (kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder43(u) (PDdissipationNthfdOrder43_impl(u,p1o64dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder61(u) (kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder61(u) (PDdissipationNthfdOrder61_impl(u,p1o256dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder62(u) (kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder62(u) (PDdissipationNthfdOrder62_impl(u,p1o256dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder63(u) (kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder63(u) (PDdissipationNthfdOrder63_impl(u,p1o256dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder81(u) (kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder81(u) (PDdissipationNthfdOrder81_impl(u,p1o1024dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder82(u) (kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder82(u) (PDdissipationNthfdOrder82_impl(u,p1o1024dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder83(u) (kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder83(u) (PDdissipationNthfdOrder83_impl(u,p1o1024dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder21(u) (kmul(pm1o2dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder21(u) (PDupwindNthfdOrder21_impl(u,pm1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder41(u) (kmul(p1o12dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder41(u) (PDupwindNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder61(u) (kmul(pm1o60dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder61(u) (PDupwindNthfdOrder61_impl(u,pm1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder81(u) (kmul(p1o840dx,kmul(dir1,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,-3,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder81(u) (PDupwindNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder21(u) (kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDupwindNthAntifdOrder21(u) (PDupwindNthAntifdOrder21_impl(u,p1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDupwindNthAntifdOrder41(u) (PDupwindNthAntifdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder61(u) (kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0))))))))
-#else
-#  define PDupwindNthAntifdOrder61(u) (PDupwindNthAntifdOrder61_impl(u,p1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder81(u) (kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder81(u) (PDupwindNthAntifdOrder81_impl(u,p1o1680dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder21(u) (kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder21(u) (PDupwindNthSymmfdOrder21_impl(u,pm1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder41(u) (PDupwindNthSymmfdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder61(u) (kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder61(u) (PDupwindNthSymmfdOrder61_impl(u,pm1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder81(u) (kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder81(u) (PDupwindNthSymmfdOrder81_impl(u,p1o560dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided1(u) (kmul(p1odx,kmul(dir1,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided1(u) (PDonesided1_impl(u,p1odx,cdj,cdk))
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder22(u) (kmul(pm1o2dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder22(u) (PDupwindNthfdOrder22_impl(u,pm1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder42(u) (kmul(p1o12dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder42(u) (PDupwindNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder62(u) (kmul(pm1o60dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder62(u) (PDupwindNthfdOrder62_impl(u,pm1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder82(u) (kmul(p1o840dy,kmul(dir2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,-3,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder82(u) (PDupwindNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder22(u) (kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDupwindNthAntifdOrder22(u) (PDupwindNthAntifdOrder22_impl(u,p1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDupwindNthAntifdOrder42(u) (PDupwindNthAntifdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder62(u) (kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0))))))))
-#else
-#  define PDupwindNthAntifdOrder62(u) (PDupwindNthAntifdOrder62_impl(u,p1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder82(u) (kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder82(u) (PDupwindNthAntifdOrder82_impl(u,p1o1680dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder22(u) (kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder22(u) (PDupwindNthSymmfdOrder22_impl(u,pm1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder42(u) (PDupwindNthSymmfdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder62(u) (kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder62(u) (PDupwindNthSymmfdOrder62_impl(u,pm1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder82(u) (kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder82(u) (PDupwindNthSymmfdOrder82_impl(u,p1o560dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided2(u) (kmul(p1ody,kmul(dir2,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided2(u) (PDonesided2_impl(u,p1ody,cdj,cdk))
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder23(u) (kmul(pm1o2dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder23(u) (PDupwindNthfdOrder23_impl(u,pm1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder43(u) (kmul(p1o12dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder43(u) (PDupwindNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder63(u) (kmul(pm1o60dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder63(u) (PDupwindNthfdOrder63_impl(u,pm1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder83(u) (kmul(p1o840dz,kmul(dir3,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,0,-3),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder83(u) (PDupwindNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder23(u) (kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDupwindNthAntifdOrder23(u) (PDupwindNthAntifdOrder23_impl(u,p1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDupwindNthAntifdOrder43(u) (PDupwindNthAntifdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder63(u) (kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4))))))))
-#else
-#  define PDupwindNthAntifdOrder63(u) (PDupwindNthAntifdOrder63_impl(u,p1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder83(u) (kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder83(u) (PDupwindNthAntifdOrder83_impl(u,p1o1680dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder23(u) (kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder23(u) (PDupwindNthSymmfdOrder23_impl(u,pm1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder43(u) (PDupwindNthSymmfdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder63(u) (kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder63(u) (PDupwindNthSymmfdOrder63_impl(u,pm1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder83(u) (kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder83(u) (PDupwindNthSymmfdOrder83_impl(u,p1o560dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided3(u) (kmul(p1odz,kmul(dir3,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided3(u) (PDonesided3_impl(u,p1odz,cdj,cdk))
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_Advect.cc b/ML_BSSN_O8/src/ML_BSSN_O8_Advect.cc
deleted file mode 100644
index 0ecbeec..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_Advect.cc
+++ /dev/null
@@ -1,2155 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_Advect_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O8_Advect_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_Advect,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNthAnti1A;
-    CCTK_REAL_VEC PDupwindNthSymm1A;
-    CCTK_REAL_VEC PDupwindNthAnti2A;
-    CCTK_REAL_VEC PDupwindNthSymm2A;
-    CCTK_REAL_VEC PDupwindNthAnti3A;
-    CCTK_REAL_VEC PDupwindNthSymm3A;
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1At11;
-    CCTK_REAL_VEC PDupwindNthSymm1At11;
-    CCTK_REAL_VEC PDupwindNthAnti2At11;
-    CCTK_REAL_VEC PDupwindNthSymm2At11;
-    CCTK_REAL_VEC PDupwindNthAnti3At11;
-    CCTK_REAL_VEC PDupwindNthSymm3At11;
-    CCTK_REAL_VEC PDupwindNthAnti1At12;
-    CCTK_REAL_VEC PDupwindNthSymm1At12;
-    CCTK_REAL_VEC PDupwindNthAnti2At12;
-    CCTK_REAL_VEC PDupwindNthSymm2At12;
-    CCTK_REAL_VEC PDupwindNthAnti3At12;
-    CCTK_REAL_VEC PDupwindNthSymm3At12;
-    CCTK_REAL_VEC PDupwindNthAnti1At13;
-    CCTK_REAL_VEC PDupwindNthSymm1At13;
-    CCTK_REAL_VEC PDupwindNthAnti2At13;
-    CCTK_REAL_VEC PDupwindNthSymm2At13;
-    CCTK_REAL_VEC PDupwindNthAnti3At13;
-    CCTK_REAL_VEC PDupwindNthSymm3At13;
-    CCTK_REAL_VEC PDupwindNthAnti1At22;
-    CCTK_REAL_VEC PDupwindNthSymm1At22;
-    CCTK_REAL_VEC PDupwindNthAnti2At22;
-    CCTK_REAL_VEC PDupwindNthSymm2At22;
-    CCTK_REAL_VEC PDupwindNthAnti3At22;
-    CCTK_REAL_VEC PDupwindNthSymm3At22;
-    CCTK_REAL_VEC PDupwindNthAnti1At23;
-    CCTK_REAL_VEC PDupwindNthSymm1At23;
-    CCTK_REAL_VEC PDupwindNthAnti2At23;
-    CCTK_REAL_VEC PDupwindNthSymm2At23;
-    CCTK_REAL_VEC PDupwindNthAnti3At23;
-    CCTK_REAL_VEC PDupwindNthSymm3At23;
-    CCTK_REAL_VEC PDupwindNthAnti1At33;
-    CCTK_REAL_VEC PDupwindNthSymm1At33;
-    CCTK_REAL_VEC PDupwindNthAnti2At33;
-    CCTK_REAL_VEC PDupwindNthSymm2At33;
-    CCTK_REAL_VEC PDupwindNthAnti3At33;
-    CCTK_REAL_VEC PDupwindNthSymm3At33;
-    CCTK_REAL_VEC PDupwindNthAnti1B1;
-    CCTK_REAL_VEC PDupwindNthSymm1B1;
-    CCTK_REAL_VEC PDupwindNthAnti2B1;
-    CCTK_REAL_VEC PDupwindNthSymm2B1;
-    CCTK_REAL_VEC PDupwindNthAnti3B1;
-    CCTK_REAL_VEC PDupwindNthSymm3B1;
-    CCTK_REAL_VEC PDupwindNthAnti1B2;
-    CCTK_REAL_VEC PDupwindNthSymm1B2;
-    CCTK_REAL_VEC PDupwindNthAnti2B2;
-    CCTK_REAL_VEC PDupwindNthSymm2B2;
-    CCTK_REAL_VEC PDupwindNthAnti3B2;
-    CCTK_REAL_VEC PDupwindNthSymm3B2;
-    CCTK_REAL_VEC PDupwindNthAnti1B3;
-    CCTK_REAL_VEC PDupwindNthSymm1B3;
-    CCTK_REAL_VEC PDupwindNthAnti2B3;
-    CCTK_REAL_VEC PDupwindNthSymm2B3;
-    CCTK_REAL_VEC PDupwindNthAnti3B3;
-    CCTK_REAL_VEC PDupwindNthSymm3B3;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDupwindNthAnti1gt11;
-    CCTK_REAL_VEC PDupwindNthSymm1gt11;
-    CCTK_REAL_VEC PDupwindNthAnti2gt11;
-    CCTK_REAL_VEC PDupwindNthSymm2gt11;
-    CCTK_REAL_VEC PDupwindNthAnti3gt11;
-    CCTK_REAL_VEC PDupwindNthSymm3gt11;
-    CCTK_REAL_VEC PDupwindNthAnti1gt12;
-    CCTK_REAL_VEC PDupwindNthSymm1gt12;
-    CCTK_REAL_VEC PDupwindNthAnti2gt12;
-    CCTK_REAL_VEC PDupwindNthSymm2gt12;
-    CCTK_REAL_VEC PDupwindNthAnti3gt12;
-    CCTK_REAL_VEC PDupwindNthSymm3gt12;
-    CCTK_REAL_VEC PDupwindNthAnti1gt13;
-    CCTK_REAL_VEC PDupwindNthSymm1gt13;
-    CCTK_REAL_VEC PDupwindNthAnti2gt13;
-    CCTK_REAL_VEC PDupwindNthSymm2gt13;
-    CCTK_REAL_VEC PDupwindNthAnti3gt13;
-    CCTK_REAL_VEC PDupwindNthSymm3gt13;
-    CCTK_REAL_VEC PDupwindNthAnti1gt22;
-    CCTK_REAL_VEC PDupwindNthSymm1gt22;
-    CCTK_REAL_VEC PDupwindNthAnti2gt22;
-    CCTK_REAL_VEC PDupwindNthSymm2gt22;
-    CCTK_REAL_VEC PDupwindNthAnti3gt22;
-    CCTK_REAL_VEC PDupwindNthSymm3gt22;
-    CCTK_REAL_VEC PDupwindNthAnti1gt23;
-    CCTK_REAL_VEC PDupwindNthSymm1gt23;
-    CCTK_REAL_VEC PDupwindNthAnti2gt23;
-    CCTK_REAL_VEC PDupwindNthSymm2gt23;
-    CCTK_REAL_VEC PDupwindNthAnti3gt23;
-    CCTK_REAL_VEC PDupwindNthSymm3gt23;
-    CCTK_REAL_VEC PDupwindNthAnti1gt33;
-    CCTK_REAL_VEC PDupwindNthSymm1gt33;
-    CCTK_REAL_VEC PDupwindNthAnti2gt33;
-    CCTK_REAL_VEC PDupwindNthSymm2gt33;
-    CCTK_REAL_VEC PDupwindNthAnti3gt33;
-    CCTK_REAL_VEC PDupwindNthSymm3gt33;
-    CCTK_REAL_VEC PDupwindNthAnti1phi;
-    CCTK_REAL_VEC PDupwindNthSymm1phi;
-    CCTK_REAL_VEC PDupwindNthAnti2phi;
-    CCTK_REAL_VEC PDupwindNthSymm2phi;
-    CCTK_REAL_VEC PDupwindNthAnti3phi;
-    CCTK_REAL_VEC PDupwindNthSymm3phi;
-    CCTK_REAL_VEC PDupwindNthAnti1trK;
-    CCTK_REAL_VEC PDupwindNthSymm1trK;
-    CCTK_REAL_VEC PDupwindNthAnti2trK;
-    CCTK_REAL_VEC PDupwindNthSymm2trK;
-    CCTK_REAL_VEC PDupwindNthAnti3trK;
-    CCTK_REAL_VEC PDupwindNthSymm3trK;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt1;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt1;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt2;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt2;
-    CCTK_REAL_VEC PDupwindNthAnti1Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm1Xt3;
-    CCTK_REAL_VEC PDupwindNthAnti2Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm2Xt3;
-    CCTK_REAL_VEC PDupwindNthAnti3Xt3;
-    CCTK_REAL_VEC PDupwindNthSymm3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder21(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder21(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder22(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder22(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder23(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder23(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder21(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder21(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder22(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder22(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder23(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder23(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder21(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder21(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder22(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder22(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder23(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder23(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder21(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder21(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder22(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder22(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder23(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder23(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder21(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder21(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder22(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder22(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder23(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder23(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder21(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder21(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder22(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder22(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder23(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder23(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder21(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder21(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder22(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder22(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder23(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder23(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder21(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder21(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder22(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder22(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder23(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder23(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder21(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder21(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder22(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder22(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder23(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder23(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder21(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder21(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder22(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder22(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder23(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder23(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder21(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder21(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder22(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder22(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder23(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder23(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder21(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder21(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder22(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder22(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder23(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder23(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder21(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder21(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder22(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder22(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder23(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder23(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder21(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder21(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder22(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder22(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder23(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder23(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder21(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder21(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder22(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder22(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder23(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder23(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder21(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder21(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder22(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder22(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder23(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder23(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder21(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder21(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder22(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder22(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder23(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder23(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder21(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder21(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder22(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder22(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder23(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder23(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder21(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder21(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder22(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder22(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder23(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder23(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder21(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder21(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder22(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder22(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder23(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder23(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder21(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder21(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder22(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder22(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder23(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder41(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder41(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder42(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder42(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder43(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder43(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder41(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder41(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder42(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder42(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder43(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder43(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder41(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder41(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder42(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder42(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder43(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder43(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder41(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder41(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder42(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder42(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder43(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder43(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder41(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder41(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder42(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder42(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder43(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder43(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder41(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder41(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder42(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder42(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder43(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder43(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder41(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder41(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder42(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder42(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder43(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder43(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder41(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder41(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder42(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder42(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder43(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder43(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder41(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder41(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder42(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder42(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder43(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder43(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder41(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder41(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder42(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder42(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder43(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder43(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder41(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder41(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder42(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder42(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder43(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder43(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder41(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder41(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder42(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder42(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder43(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder43(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder41(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder41(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder42(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder42(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder43(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder43(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder41(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder41(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder42(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder42(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder43(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder43(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder41(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder41(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder42(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder42(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder43(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder43(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder41(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder41(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder42(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder42(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder43(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder43(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder41(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder41(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder42(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder42(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder43(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder43(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder41(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder41(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder42(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder42(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder43(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder43(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder41(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder41(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder42(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder42(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder43(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder43(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder41(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder41(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder42(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder42(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder43(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder43(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder41(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder41(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder42(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder42(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder43(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder61(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder61(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder62(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder62(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder63(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder63(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder61(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder61(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder62(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder62(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder63(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder63(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder61(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder61(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder62(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder62(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder63(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder63(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder61(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder61(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder62(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder62(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder63(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder63(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder61(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder61(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder62(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder62(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder63(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder63(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder61(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder61(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder62(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder62(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder63(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder63(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder61(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder61(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder62(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder62(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder63(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder63(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder61(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder61(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder62(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder62(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder63(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder63(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder61(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder61(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder62(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder62(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder63(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder63(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder61(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder61(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder62(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder62(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder63(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder63(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder61(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder61(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder62(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder62(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder63(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder63(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder61(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder61(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder62(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder62(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder63(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder63(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder61(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder61(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder62(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder62(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder63(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder63(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder61(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder61(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder62(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder62(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder63(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder63(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder61(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder61(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder62(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder62(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder63(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder63(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder61(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder61(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder62(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder62(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder63(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder63(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder61(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder61(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder62(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder62(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder63(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder63(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder61(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder61(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder62(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder62(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder63(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder63(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder61(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder61(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder62(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder62(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder63(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder63(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder61(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder61(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder62(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder62(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder63(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder63(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder61(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder61(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder62(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder62(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder63(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDupwindNthAnti1A = PDupwindNthAntifdOrder81(&A[index]);
-        PDupwindNthSymm1A = PDupwindNthSymmfdOrder81(&A[index]);
-        PDupwindNthAnti2A = PDupwindNthAntifdOrder82(&A[index]);
-        PDupwindNthSymm2A = PDupwindNthSymmfdOrder82(&A[index]);
-        PDupwindNthAnti3A = PDupwindNthAntifdOrder83(&A[index]);
-        PDupwindNthSymm3A = PDupwindNthSymmfdOrder83(&A[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1At11 = PDupwindNthAntifdOrder81(&At11[index]);
-        PDupwindNthSymm1At11 = PDupwindNthSymmfdOrder81(&At11[index]);
-        PDupwindNthAnti2At11 = PDupwindNthAntifdOrder82(&At11[index]);
-        PDupwindNthSymm2At11 = PDupwindNthSymmfdOrder82(&At11[index]);
-        PDupwindNthAnti3At11 = PDupwindNthAntifdOrder83(&At11[index]);
-        PDupwindNthSymm3At11 = PDupwindNthSymmfdOrder83(&At11[index]);
-        PDupwindNthAnti1At12 = PDupwindNthAntifdOrder81(&At12[index]);
-        PDupwindNthSymm1At12 = PDupwindNthSymmfdOrder81(&At12[index]);
-        PDupwindNthAnti2At12 = PDupwindNthAntifdOrder82(&At12[index]);
-        PDupwindNthSymm2At12 = PDupwindNthSymmfdOrder82(&At12[index]);
-        PDupwindNthAnti3At12 = PDupwindNthAntifdOrder83(&At12[index]);
-        PDupwindNthSymm3At12 = PDupwindNthSymmfdOrder83(&At12[index]);
-        PDupwindNthAnti1At13 = PDupwindNthAntifdOrder81(&At13[index]);
-        PDupwindNthSymm1At13 = PDupwindNthSymmfdOrder81(&At13[index]);
-        PDupwindNthAnti2At13 = PDupwindNthAntifdOrder82(&At13[index]);
-        PDupwindNthSymm2At13 = PDupwindNthSymmfdOrder82(&At13[index]);
-        PDupwindNthAnti3At13 = PDupwindNthAntifdOrder83(&At13[index]);
-        PDupwindNthSymm3At13 = PDupwindNthSymmfdOrder83(&At13[index]);
-        PDupwindNthAnti1At22 = PDupwindNthAntifdOrder81(&At22[index]);
-        PDupwindNthSymm1At22 = PDupwindNthSymmfdOrder81(&At22[index]);
-        PDupwindNthAnti2At22 = PDupwindNthAntifdOrder82(&At22[index]);
-        PDupwindNthSymm2At22 = PDupwindNthSymmfdOrder82(&At22[index]);
-        PDupwindNthAnti3At22 = PDupwindNthAntifdOrder83(&At22[index]);
-        PDupwindNthSymm3At22 = PDupwindNthSymmfdOrder83(&At22[index]);
-        PDupwindNthAnti1At23 = PDupwindNthAntifdOrder81(&At23[index]);
-        PDupwindNthSymm1At23 = PDupwindNthSymmfdOrder81(&At23[index]);
-        PDupwindNthAnti2At23 = PDupwindNthAntifdOrder82(&At23[index]);
-        PDupwindNthSymm2At23 = PDupwindNthSymmfdOrder82(&At23[index]);
-        PDupwindNthAnti3At23 = PDupwindNthAntifdOrder83(&At23[index]);
-        PDupwindNthSymm3At23 = PDupwindNthSymmfdOrder83(&At23[index]);
-        PDupwindNthAnti1At33 = PDupwindNthAntifdOrder81(&At33[index]);
-        PDupwindNthSymm1At33 = PDupwindNthSymmfdOrder81(&At33[index]);
-        PDupwindNthAnti2At33 = PDupwindNthAntifdOrder82(&At33[index]);
-        PDupwindNthSymm2At33 = PDupwindNthSymmfdOrder82(&At33[index]);
-        PDupwindNthAnti3At33 = PDupwindNthAntifdOrder83(&At33[index]);
-        PDupwindNthSymm3At33 = PDupwindNthSymmfdOrder83(&At33[index]);
-        PDupwindNthAnti1B1 = PDupwindNthAntifdOrder81(&B1[index]);
-        PDupwindNthSymm1B1 = PDupwindNthSymmfdOrder81(&B1[index]);
-        PDupwindNthAnti2B1 = PDupwindNthAntifdOrder82(&B1[index]);
-        PDupwindNthSymm2B1 = PDupwindNthSymmfdOrder82(&B1[index]);
-        PDupwindNthAnti3B1 = PDupwindNthAntifdOrder83(&B1[index]);
-        PDupwindNthSymm3B1 = PDupwindNthSymmfdOrder83(&B1[index]);
-        PDupwindNthAnti1B2 = PDupwindNthAntifdOrder81(&B2[index]);
-        PDupwindNthSymm1B2 = PDupwindNthSymmfdOrder81(&B2[index]);
-        PDupwindNthAnti2B2 = PDupwindNthAntifdOrder82(&B2[index]);
-        PDupwindNthSymm2B2 = PDupwindNthSymmfdOrder82(&B2[index]);
-        PDupwindNthAnti3B2 = PDupwindNthAntifdOrder83(&B2[index]);
-        PDupwindNthSymm3B2 = PDupwindNthSymmfdOrder83(&B2[index]);
-        PDupwindNthAnti1B3 = PDupwindNthAntifdOrder81(&B3[index]);
-        PDupwindNthSymm1B3 = PDupwindNthSymmfdOrder81(&B3[index]);
-        PDupwindNthAnti2B3 = PDupwindNthAntifdOrder82(&B3[index]);
-        PDupwindNthSymm2B3 = PDupwindNthSymmfdOrder82(&B3[index]);
-        PDupwindNthAnti3B3 = PDupwindNthAntifdOrder83(&B3[index]);
-        PDupwindNthSymm3B3 = PDupwindNthSymmfdOrder83(&B3[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDupwindNthAnti1gt11 = PDupwindNthAntifdOrder81(&gt11[index]);
-        PDupwindNthSymm1gt11 = PDupwindNthSymmfdOrder81(&gt11[index]);
-        PDupwindNthAnti2gt11 = PDupwindNthAntifdOrder82(&gt11[index]);
-        PDupwindNthSymm2gt11 = PDupwindNthSymmfdOrder82(&gt11[index]);
-        PDupwindNthAnti3gt11 = PDupwindNthAntifdOrder83(&gt11[index]);
-        PDupwindNthSymm3gt11 = PDupwindNthSymmfdOrder83(&gt11[index]);
-        PDupwindNthAnti1gt12 = PDupwindNthAntifdOrder81(&gt12[index]);
-        PDupwindNthSymm1gt12 = PDupwindNthSymmfdOrder81(&gt12[index]);
-        PDupwindNthAnti2gt12 = PDupwindNthAntifdOrder82(&gt12[index]);
-        PDupwindNthSymm2gt12 = PDupwindNthSymmfdOrder82(&gt12[index]);
-        PDupwindNthAnti3gt12 = PDupwindNthAntifdOrder83(&gt12[index]);
-        PDupwindNthSymm3gt12 = PDupwindNthSymmfdOrder83(&gt12[index]);
-        PDupwindNthAnti1gt13 = PDupwindNthAntifdOrder81(&gt13[index]);
-        PDupwindNthSymm1gt13 = PDupwindNthSymmfdOrder81(&gt13[index]);
-        PDupwindNthAnti2gt13 = PDupwindNthAntifdOrder82(&gt13[index]);
-        PDupwindNthSymm2gt13 = PDupwindNthSymmfdOrder82(&gt13[index]);
-        PDupwindNthAnti3gt13 = PDupwindNthAntifdOrder83(&gt13[index]);
-        PDupwindNthSymm3gt13 = PDupwindNthSymmfdOrder83(&gt13[index]);
-        PDupwindNthAnti1gt22 = PDupwindNthAntifdOrder81(&gt22[index]);
-        PDupwindNthSymm1gt22 = PDupwindNthSymmfdOrder81(&gt22[index]);
-        PDupwindNthAnti2gt22 = PDupwindNthAntifdOrder82(&gt22[index]);
-        PDupwindNthSymm2gt22 = PDupwindNthSymmfdOrder82(&gt22[index]);
-        PDupwindNthAnti3gt22 = PDupwindNthAntifdOrder83(&gt22[index]);
-        PDupwindNthSymm3gt22 = PDupwindNthSymmfdOrder83(&gt22[index]);
-        PDupwindNthAnti1gt23 = PDupwindNthAntifdOrder81(&gt23[index]);
-        PDupwindNthSymm1gt23 = PDupwindNthSymmfdOrder81(&gt23[index]);
-        PDupwindNthAnti2gt23 = PDupwindNthAntifdOrder82(&gt23[index]);
-        PDupwindNthSymm2gt23 = PDupwindNthSymmfdOrder82(&gt23[index]);
-        PDupwindNthAnti3gt23 = PDupwindNthAntifdOrder83(&gt23[index]);
-        PDupwindNthSymm3gt23 = PDupwindNthSymmfdOrder83(&gt23[index]);
-        PDupwindNthAnti1gt33 = PDupwindNthAntifdOrder81(&gt33[index]);
-        PDupwindNthSymm1gt33 = PDupwindNthSymmfdOrder81(&gt33[index]);
-        PDupwindNthAnti2gt33 = PDupwindNthAntifdOrder82(&gt33[index]);
-        PDupwindNthSymm2gt33 = PDupwindNthSymmfdOrder82(&gt33[index]);
-        PDupwindNthAnti3gt33 = PDupwindNthAntifdOrder83(&gt33[index]);
-        PDupwindNthSymm3gt33 = PDupwindNthSymmfdOrder83(&gt33[index]);
-        PDupwindNthAnti1phi = PDupwindNthAntifdOrder81(&phi[index]);
-        PDupwindNthSymm1phi = PDupwindNthSymmfdOrder81(&phi[index]);
-        PDupwindNthAnti2phi = PDupwindNthAntifdOrder82(&phi[index]);
-        PDupwindNthSymm2phi = PDupwindNthSymmfdOrder82(&phi[index]);
-        PDupwindNthAnti3phi = PDupwindNthAntifdOrder83(&phi[index]);
-        PDupwindNthSymm3phi = PDupwindNthSymmfdOrder83(&phi[index]);
-        PDupwindNthAnti1trK = PDupwindNthAntifdOrder81(&trK[index]);
-        PDupwindNthSymm1trK = PDupwindNthSymmfdOrder81(&trK[index]);
-        PDupwindNthAnti2trK = PDupwindNthAntifdOrder82(&trK[index]);
-        PDupwindNthSymm2trK = PDupwindNthSymmfdOrder82(&trK[index]);
-        PDupwindNthAnti3trK = PDupwindNthAntifdOrder83(&trK[index]);
-        PDupwindNthSymm3trK = PDupwindNthSymmfdOrder83(&trK[index]);
-        PDupwindNthAnti1Xt1 = PDupwindNthAntifdOrder81(&Xt1[index]);
-        PDupwindNthSymm1Xt1 = PDupwindNthSymmfdOrder81(&Xt1[index]);
-        PDupwindNthAnti2Xt1 = PDupwindNthAntifdOrder82(&Xt1[index]);
-        PDupwindNthSymm2Xt1 = PDupwindNthSymmfdOrder82(&Xt1[index]);
-        PDupwindNthAnti3Xt1 = PDupwindNthAntifdOrder83(&Xt1[index]);
-        PDupwindNthSymm3Xt1 = PDupwindNthSymmfdOrder83(&Xt1[index]);
-        PDupwindNthAnti1Xt2 = PDupwindNthAntifdOrder81(&Xt2[index]);
-        PDupwindNthSymm1Xt2 = PDupwindNthSymmfdOrder81(&Xt2[index]);
-        PDupwindNthAnti2Xt2 = PDupwindNthAntifdOrder82(&Xt2[index]);
-        PDupwindNthSymm2Xt2 = PDupwindNthSymmfdOrder82(&Xt2[index]);
-        PDupwindNthAnti3Xt2 = PDupwindNthAntifdOrder83(&Xt2[index]);
-        PDupwindNthSymm3Xt2 = PDupwindNthSymmfdOrder83(&Xt2[index]);
-        PDupwindNthAnti1Xt3 = PDupwindNthAntifdOrder81(&Xt3[index]);
-        PDupwindNthSymm1Xt3 = PDupwindNthSymmfdOrder81(&Xt3[index]);
-        PDupwindNthAnti2Xt3 = PDupwindNthAntifdOrder82(&Xt3[index]);
-        PDupwindNthSymm2Xt3 = PDupwindNthSymmfdOrder82(&Xt3[index]);
-        PDupwindNthAnti3Xt3 = PDupwindNthAntifdOrder83(&Xt3[index]);
-        PDupwindNthSymm3Xt3 = PDupwindNthSymmfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDupwindNthAnti1A;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti1At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti1gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti1trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1Xt3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2A;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti2At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti2gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti2phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti2trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2Xt3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3A;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At11;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At12;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At13;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At22;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At23;
-    CCTK_REAL_VEC JacPDupwindNthAnti3At33;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3B3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt11;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt12;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt13;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt22;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt23;
-    CCTK_REAL_VEC JacPDupwindNthAnti3gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti3phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti3trK;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1A;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm1At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm1gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm1phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm1trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2A;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm2At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm2gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm2phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm2trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2Xt3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3A;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At11;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At12;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At13;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At22;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At23;
-    CCTK_REAL_VEC JacPDupwindNthSymm3At33;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3B3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt11;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt12;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt13;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt22;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt23;
-    CCTK_REAL_VEC JacPDupwindNthSymm3gt33;
-    CCTK_REAL_VEC JacPDupwindNthSymm3phi;
-    CCTK_REAL_VEC JacPDupwindNthSymm3trK;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDupwindNthAnti1A = 
-        kmadd(J11L,PDupwindNthAnti1A,kmadd(J21L,PDupwindNthAnti2A,kmul(J31L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1At11 = 
-        kmadd(J11L,PDupwindNthAnti1At11,kmadd(J21L,PDupwindNthAnti2At11,kmul(J31L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti1At12 = 
-        kmadd(J11L,PDupwindNthAnti1At12,kmadd(J21L,PDupwindNthAnti2At12,kmul(J31L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti1At13 = 
-        kmadd(J11L,PDupwindNthAnti1At13,kmadd(J21L,PDupwindNthAnti2At13,kmul(J31L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti1At22 = 
-        kmadd(J11L,PDupwindNthAnti1At22,kmadd(J21L,PDupwindNthAnti2At22,kmul(J31L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti1At23 = 
-        kmadd(J11L,PDupwindNthAnti1At23,kmadd(J21L,PDupwindNthAnti2At23,kmul(J31L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti1At33 = 
-        kmadd(J11L,PDupwindNthAnti1At33,kmadd(J21L,PDupwindNthAnti2At33,kmul(J31L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti1B1 = 
-        kmadd(J11L,PDupwindNthAnti1B1,kmadd(J21L,PDupwindNthAnti2B1,kmul(J31L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti1B2 = 
-        kmadd(J11L,PDupwindNthAnti1B2,kmadd(J21L,PDupwindNthAnti2B2,kmul(J31L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti1B3 = 
-        kmadd(J11L,PDupwindNthAnti1B3,kmadd(J21L,PDupwindNthAnti2B3,kmul(J31L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti1gt11 = 
-        kmadd(J11L,PDupwindNthAnti1gt11,kmadd(J21L,PDupwindNthAnti2gt11,kmul(J31L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti1gt12 = 
-        kmadd(J11L,PDupwindNthAnti1gt12,kmadd(J21L,PDupwindNthAnti2gt12,kmul(J31L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti1gt13 = 
-        kmadd(J11L,PDupwindNthAnti1gt13,kmadd(J21L,PDupwindNthAnti2gt13,kmul(J31L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti1gt22 = 
-        kmadd(J11L,PDupwindNthAnti1gt22,kmadd(J21L,PDupwindNthAnti2gt22,kmul(J31L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti1gt23 = 
-        kmadd(J11L,PDupwindNthAnti1gt23,kmadd(J21L,PDupwindNthAnti2gt23,kmul(J31L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti1gt33 = 
-        kmadd(J11L,PDupwindNthAnti1gt33,kmadd(J21L,PDupwindNthAnti2gt33,kmul(J31L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti1phi = 
-        kmadd(J11L,PDupwindNthAnti1phi,kmadd(J21L,PDupwindNthAnti2phi,kmul(J31L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti1trK = 
-        kmadd(J11L,PDupwindNthAnti1trK,kmadd(J21L,PDupwindNthAnti2trK,kmul(J31L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti1Xt1 = 
-        kmadd(J11L,PDupwindNthAnti1Xt1,kmadd(J21L,PDupwindNthAnti2Xt1,kmul(J31L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti1Xt2 = 
-        kmadd(J11L,PDupwindNthAnti1Xt2,kmadd(J21L,PDupwindNthAnti2Xt2,kmul(J31L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti1Xt3 = 
-        kmadd(J11L,PDupwindNthAnti1Xt3,kmadd(J21L,PDupwindNthAnti2Xt3,kmul(J31L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm1A = 
-        kmadd(J11L,PDupwindNthSymm1A,kmadd(J21L,PDupwindNthSymm2A,kmul(J31L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1At11 = 
-        kmadd(J11L,PDupwindNthSymm1At11,kmadd(J21L,PDupwindNthSymm2At11,kmul(J31L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm1At12 = 
-        kmadd(J11L,PDupwindNthSymm1At12,kmadd(J21L,PDupwindNthSymm2At12,kmul(J31L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm1At13 = 
-        kmadd(J11L,PDupwindNthSymm1At13,kmadd(J21L,PDupwindNthSymm2At13,kmul(J31L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm1At22 = 
-        kmadd(J11L,PDupwindNthSymm1At22,kmadd(J21L,PDupwindNthSymm2At22,kmul(J31L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm1At23 = 
-        kmadd(J11L,PDupwindNthSymm1At23,kmadd(J21L,PDupwindNthSymm2At23,kmul(J31L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm1At33 = 
-        kmadd(J11L,PDupwindNthSymm1At33,kmadd(J21L,PDupwindNthSymm2At33,kmul(J31L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm1B1 = 
-        kmadd(J11L,PDupwindNthSymm1B1,kmadd(J21L,PDupwindNthSymm2B1,kmul(J31L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm1B2 = 
-        kmadd(J11L,PDupwindNthSymm1B2,kmadd(J21L,PDupwindNthSymm2B2,kmul(J31L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm1B3 = 
-        kmadd(J11L,PDupwindNthSymm1B3,kmadd(J21L,PDupwindNthSymm2B3,kmul(J31L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm1gt11 = 
-        kmadd(J11L,PDupwindNthSymm1gt11,kmadd(J21L,PDupwindNthSymm2gt11,kmul(J31L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm1gt12 = 
-        kmadd(J11L,PDupwindNthSymm1gt12,kmadd(J21L,PDupwindNthSymm2gt12,kmul(J31L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm1gt13 = 
-        kmadd(J11L,PDupwindNthSymm1gt13,kmadd(J21L,PDupwindNthSymm2gt13,kmul(J31L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm1gt22 = 
-        kmadd(J11L,PDupwindNthSymm1gt22,kmadd(J21L,PDupwindNthSymm2gt22,kmul(J31L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm1gt23 = 
-        kmadd(J11L,PDupwindNthSymm1gt23,kmadd(J21L,PDupwindNthSymm2gt23,kmul(J31L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm1gt33 = 
-        kmadd(J11L,PDupwindNthSymm1gt33,kmadd(J21L,PDupwindNthSymm2gt33,kmul(J31L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm1phi = 
-        kmadd(J11L,PDupwindNthSymm1phi,kmadd(J21L,PDupwindNthSymm2phi,kmul(J31L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm1trK = 
-        kmadd(J11L,PDupwindNthSymm1trK,kmadd(J21L,PDupwindNthSymm2trK,kmul(J31L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm1Xt1 = 
-        kmadd(J11L,PDupwindNthSymm1Xt1,kmadd(J21L,PDupwindNthSymm2Xt1,kmul(J31L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm1Xt2 = 
-        kmadd(J11L,PDupwindNthSymm1Xt2,kmadd(J21L,PDupwindNthSymm2Xt2,kmul(J31L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm1Xt3 = 
-        kmadd(J11L,PDupwindNthSymm1Xt3,kmadd(J21L,PDupwindNthSymm2Xt3,kmul(J31L,PDupwindNthSymm3Xt3)));
-      
-      JacPDupwindNthAnti2A = 
-        kmadd(J12L,PDupwindNthAnti1A,kmadd(J22L,PDupwindNthAnti2A,kmul(J32L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2At11 = 
-        kmadd(J12L,PDupwindNthAnti1At11,kmadd(J22L,PDupwindNthAnti2At11,kmul(J32L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti2At12 = 
-        kmadd(J12L,PDupwindNthAnti1At12,kmadd(J22L,PDupwindNthAnti2At12,kmul(J32L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti2At13 = 
-        kmadd(J12L,PDupwindNthAnti1At13,kmadd(J22L,PDupwindNthAnti2At13,kmul(J32L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti2At22 = 
-        kmadd(J12L,PDupwindNthAnti1At22,kmadd(J22L,PDupwindNthAnti2At22,kmul(J32L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti2At23 = 
-        kmadd(J12L,PDupwindNthAnti1At23,kmadd(J22L,PDupwindNthAnti2At23,kmul(J32L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti2At33 = 
-        kmadd(J12L,PDupwindNthAnti1At33,kmadd(J22L,PDupwindNthAnti2At33,kmul(J32L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti2B1 = 
-        kmadd(J12L,PDupwindNthAnti1B1,kmadd(J22L,PDupwindNthAnti2B1,kmul(J32L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti2B2 = 
-        kmadd(J12L,PDupwindNthAnti1B2,kmadd(J22L,PDupwindNthAnti2B2,kmul(J32L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti2B3 = 
-        kmadd(J12L,PDupwindNthAnti1B3,kmadd(J22L,PDupwindNthAnti2B3,kmul(J32L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti2gt11 = 
-        kmadd(J12L,PDupwindNthAnti1gt11,kmadd(J22L,PDupwindNthAnti2gt11,kmul(J32L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti2gt12 = 
-        kmadd(J12L,PDupwindNthAnti1gt12,kmadd(J22L,PDupwindNthAnti2gt12,kmul(J32L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti2gt13 = 
-        kmadd(J12L,PDupwindNthAnti1gt13,kmadd(J22L,PDupwindNthAnti2gt13,kmul(J32L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti2gt22 = 
-        kmadd(J12L,PDupwindNthAnti1gt22,kmadd(J22L,PDupwindNthAnti2gt22,kmul(J32L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti2gt23 = 
-        kmadd(J12L,PDupwindNthAnti1gt23,kmadd(J22L,PDupwindNthAnti2gt23,kmul(J32L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti2gt33 = 
-        kmadd(J12L,PDupwindNthAnti1gt33,kmadd(J22L,PDupwindNthAnti2gt33,kmul(J32L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti2phi = 
-        kmadd(J12L,PDupwindNthAnti1phi,kmadd(J22L,PDupwindNthAnti2phi,kmul(J32L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti2trK = 
-        kmadd(J12L,PDupwindNthAnti1trK,kmadd(J22L,PDupwindNthAnti2trK,kmul(J32L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti2Xt1 = 
-        kmadd(J12L,PDupwindNthAnti1Xt1,kmadd(J22L,PDupwindNthAnti2Xt1,kmul(J32L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti2Xt2 = 
-        kmadd(J12L,PDupwindNthAnti1Xt2,kmadd(J22L,PDupwindNthAnti2Xt2,kmul(J32L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti2Xt3 = 
-        kmadd(J12L,PDupwindNthAnti1Xt3,kmadd(J22L,PDupwindNthAnti2Xt3,kmul(J32L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm2A = 
-        kmadd(J12L,PDupwindNthSymm1A,kmadd(J22L,PDupwindNthSymm2A,kmul(J32L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2At11 = 
-        kmadd(J12L,PDupwindNthSymm1At11,kmadd(J22L,PDupwindNthSymm2At11,kmul(J32L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm2At12 = 
-        kmadd(J12L,PDupwindNthSymm1At12,kmadd(J22L,PDupwindNthSymm2At12,kmul(J32L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm2At13 = 
-        kmadd(J12L,PDupwindNthSymm1At13,kmadd(J22L,PDupwindNthSymm2At13,kmul(J32L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm2At22 = 
-        kmadd(J12L,PDupwindNthSymm1At22,kmadd(J22L,PDupwindNthSymm2At22,kmul(J32L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm2At23 = 
-        kmadd(J12L,PDupwindNthSymm1At23,kmadd(J22L,PDupwindNthSymm2At23,kmul(J32L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm2At33 = 
-        kmadd(J12L,PDupwindNthSymm1At33,kmadd(J22L,PDupwindNthSymm2At33,kmul(J32L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm2B1 = 
-        kmadd(J12L,PDupwindNthSymm1B1,kmadd(J22L,PDupwindNthSymm2B1,kmul(J32L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm2B2 = 
-        kmadd(J12L,PDupwindNthSymm1B2,kmadd(J22L,PDupwindNthSymm2B2,kmul(J32L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm2B3 = 
-        kmadd(J12L,PDupwindNthSymm1B3,kmadd(J22L,PDupwindNthSymm2B3,kmul(J32L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm2gt11 = 
-        kmadd(J12L,PDupwindNthSymm1gt11,kmadd(J22L,PDupwindNthSymm2gt11,kmul(J32L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm2gt12 = 
-        kmadd(J12L,PDupwindNthSymm1gt12,kmadd(J22L,PDupwindNthSymm2gt12,kmul(J32L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm2gt13 = 
-        kmadd(J12L,PDupwindNthSymm1gt13,kmadd(J22L,PDupwindNthSymm2gt13,kmul(J32L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm2gt22 = 
-        kmadd(J12L,PDupwindNthSymm1gt22,kmadd(J22L,PDupwindNthSymm2gt22,kmul(J32L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm2gt23 = 
-        kmadd(J12L,PDupwindNthSymm1gt23,kmadd(J22L,PDupwindNthSymm2gt23,kmul(J32L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm2gt33 = 
-        kmadd(J12L,PDupwindNthSymm1gt33,kmadd(J22L,PDupwindNthSymm2gt33,kmul(J32L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm2phi = 
-        kmadd(J12L,PDupwindNthSymm1phi,kmadd(J22L,PDupwindNthSymm2phi,kmul(J32L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm2trK = 
-        kmadd(J12L,PDupwindNthSymm1trK,kmadd(J22L,PDupwindNthSymm2trK,kmul(J32L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm2Xt1 = 
-        kmadd(J12L,PDupwindNthSymm1Xt1,kmadd(J22L,PDupwindNthSymm2Xt1,kmul(J32L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm2Xt2 = 
-        kmadd(J12L,PDupwindNthSymm1Xt2,kmadd(J22L,PDupwindNthSymm2Xt2,kmul(J32L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm2Xt3 = 
-        kmadd(J12L,PDupwindNthSymm1Xt3,kmadd(J22L,PDupwindNthSymm2Xt3,kmul(J32L,PDupwindNthSymm3Xt3)));
-      
-      JacPDupwindNthAnti3A = 
-        kmadd(J13L,PDupwindNthAnti1A,kmadd(J23L,PDupwindNthAnti2A,kmul(J33L,PDupwindNthAnti3A)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3At11 = 
-        kmadd(J13L,PDupwindNthAnti1At11,kmadd(J23L,PDupwindNthAnti2At11,kmul(J33L,PDupwindNthAnti3At11)));
-      
-      JacPDupwindNthAnti3At12 = 
-        kmadd(J13L,PDupwindNthAnti1At12,kmadd(J23L,PDupwindNthAnti2At12,kmul(J33L,PDupwindNthAnti3At12)));
-      
-      JacPDupwindNthAnti3At13 = 
-        kmadd(J13L,PDupwindNthAnti1At13,kmadd(J23L,PDupwindNthAnti2At13,kmul(J33L,PDupwindNthAnti3At13)));
-      
-      JacPDupwindNthAnti3At22 = 
-        kmadd(J13L,PDupwindNthAnti1At22,kmadd(J23L,PDupwindNthAnti2At22,kmul(J33L,PDupwindNthAnti3At22)));
-      
-      JacPDupwindNthAnti3At23 = 
-        kmadd(J13L,PDupwindNthAnti1At23,kmadd(J23L,PDupwindNthAnti2At23,kmul(J33L,PDupwindNthAnti3At23)));
-      
-      JacPDupwindNthAnti3At33 = 
-        kmadd(J13L,PDupwindNthAnti1At33,kmadd(J23L,PDupwindNthAnti2At33,kmul(J33L,PDupwindNthAnti3At33)));
-      
-      JacPDupwindNthAnti3B1 = 
-        kmadd(J13L,PDupwindNthAnti1B1,kmadd(J23L,PDupwindNthAnti2B1,kmul(J33L,PDupwindNthAnti3B1)));
-      
-      JacPDupwindNthAnti3B2 = 
-        kmadd(J13L,PDupwindNthAnti1B2,kmadd(J23L,PDupwindNthAnti2B2,kmul(J33L,PDupwindNthAnti3B2)));
-      
-      JacPDupwindNthAnti3B3 = 
-        kmadd(J13L,PDupwindNthAnti1B3,kmadd(J23L,PDupwindNthAnti2B3,kmul(J33L,PDupwindNthAnti3B3)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthAnti3gt11 = 
-        kmadd(J13L,PDupwindNthAnti1gt11,kmadd(J23L,PDupwindNthAnti2gt11,kmul(J33L,PDupwindNthAnti3gt11)));
-      
-      JacPDupwindNthAnti3gt12 = 
-        kmadd(J13L,PDupwindNthAnti1gt12,kmadd(J23L,PDupwindNthAnti2gt12,kmul(J33L,PDupwindNthAnti3gt12)));
-      
-      JacPDupwindNthAnti3gt13 = 
-        kmadd(J13L,PDupwindNthAnti1gt13,kmadd(J23L,PDupwindNthAnti2gt13,kmul(J33L,PDupwindNthAnti3gt13)));
-      
-      JacPDupwindNthAnti3gt22 = 
-        kmadd(J13L,PDupwindNthAnti1gt22,kmadd(J23L,PDupwindNthAnti2gt22,kmul(J33L,PDupwindNthAnti3gt22)));
-      
-      JacPDupwindNthAnti3gt23 = 
-        kmadd(J13L,PDupwindNthAnti1gt23,kmadd(J23L,PDupwindNthAnti2gt23,kmul(J33L,PDupwindNthAnti3gt23)));
-      
-      JacPDupwindNthAnti3gt33 = 
-        kmadd(J13L,PDupwindNthAnti1gt33,kmadd(J23L,PDupwindNthAnti2gt33,kmul(J33L,PDupwindNthAnti3gt33)));
-      
-      JacPDupwindNthAnti3phi = 
-        kmadd(J13L,PDupwindNthAnti1phi,kmadd(J23L,PDupwindNthAnti2phi,kmul(J33L,PDupwindNthAnti3phi)));
-      
-      JacPDupwindNthAnti3trK = 
-        kmadd(J13L,PDupwindNthAnti1trK,kmadd(J23L,PDupwindNthAnti2trK,kmul(J33L,PDupwindNthAnti3trK)));
-      
-      JacPDupwindNthAnti3Xt1 = 
-        kmadd(J13L,PDupwindNthAnti1Xt1,kmadd(J23L,PDupwindNthAnti2Xt1,kmul(J33L,PDupwindNthAnti3Xt1)));
-      
-      JacPDupwindNthAnti3Xt2 = 
-        kmadd(J13L,PDupwindNthAnti1Xt2,kmadd(J23L,PDupwindNthAnti2Xt2,kmul(J33L,PDupwindNthAnti3Xt2)));
-      
-      JacPDupwindNthAnti3Xt3 = 
-        kmadd(J13L,PDupwindNthAnti1Xt3,kmadd(J23L,PDupwindNthAnti2Xt3,kmul(J33L,PDupwindNthAnti3Xt3)));
-      
-      JacPDupwindNthSymm3A = 
-        kmadd(J13L,PDupwindNthSymm1A,kmadd(J23L,PDupwindNthSymm2A,kmul(J33L,PDupwindNthSymm3A)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3At11 = 
-        kmadd(J13L,PDupwindNthSymm1At11,kmadd(J23L,PDupwindNthSymm2At11,kmul(J33L,PDupwindNthSymm3At11)));
-      
-      JacPDupwindNthSymm3At12 = 
-        kmadd(J13L,PDupwindNthSymm1At12,kmadd(J23L,PDupwindNthSymm2At12,kmul(J33L,PDupwindNthSymm3At12)));
-      
-      JacPDupwindNthSymm3At13 = 
-        kmadd(J13L,PDupwindNthSymm1At13,kmadd(J23L,PDupwindNthSymm2At13,kmul(J33L,PDupwindNthSymm3At13)));
-      
-      JacPDupwindNthSymm3At22 = 
-        kmadd(J13L,PDupwindNthSymm1At22,kmadd(J23L,PDupwindNthSymm2At22,kmul(J33L,PDupwindNthSymm3At22)));
-      
-      JacPDupwindNthSymm3At23 = 
-        kmadd(J13L,PDupwindNthSymm1At23,kmadd(J23L,PDupwindNthSymm2At23,kmul(J33L,PDupwindNthSymm3At23)));
-      
-      JacPDupwindNthSymm3At33 = 
-        kmadd(J13L,PDupwindNthSymm1At33,kmadd(J23L,PDupwindNthSymm2At33,kmul(J33L,PDupwindNthSymm3At33)));
-      
-      JacPDupwindNthSymm3B1 = 
-        kmadd(J13L,PDupwindNthSymm1B1,kmadd(J23L,PDupwindNthSymm2B1,kmul(J33L,PDupwindNthSymm3B1)));
-      
-      JacPDupwindNthSymm3B2 = 
-        kmadd(J13L,PDupwindNthSymm1B2,kmadd(J23L,PDupwindNthSymm2B2,kmul(J33L,PDupwindNthSymm3B2)));
-      
-      JacPDupwindNthSymm3B3 = 
-        kmadd(J13L,PDupwindNthSymm1B3,kmadd(J23L,PDupwindNthSymm2B3,kmul(J33L,PDupwindNthSymm3B3)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthSymm3gt11 = 
-        kmadd(J13L,PDupwindNthSymm1gt11,kmadd(J23L,PDupwindNthSymm2gt11,kmul(J33L,PDupwindNthSymm3gt11)));
-      
-      JacPDupwindNthSymm3gt12 = 
-        kmadd(J13L,PDupwindNthSymm1gt12,kmadd(J23L,PDupwindNthSymm2gt12,kmul(J33L,PDupwindNthSymm3gt12)));
-      
-      JacPDupwindNthSymm3gt13 = 
-        kmadd(J13L,PDupwindNthSymm1gt13,kmadd(J23L,PDupwindNthSymm2gt13,kmul(J33L,PDupwindNthSymm3gt13)));
-      
-      JacPDupwindNthSymm3gt22 = 
-        kmadd(J13L,PDupwindNthSymm1gt22,kmadd(J23L,PDupwindNthSymm2gt22,kmul(J33L,PDupwindNthSymm3gt22)));
-      
-      JacPDupwindNthSymm3gt23 = 
-        kmadd(J13L,PDupwindNthSymm1gt23,kmadd(J23L,PDupwindNthSymm2gt23,kmul(J33L,PDupwindNthSymm3gt23)));
-      
-      JacPDupwindNthSymm3gt33 = 
-        kmadd(J13L,PDupwindNthSymm1gt33,kmadd(J23L,PDupwindNthSymm2gt33,kmul(J33L,PDupwindNthSymm3gt33)));
-      
-      JacPDupwindNthSymm3phi = 
-        kmadd(J13L,PDupwindNthSymm1phi,kmadd(J23L,PDupwindNthSymm2phi,kmul(J33L,PDupwindNthSymm3phi)));
-      
-      JacPDupwindNthSymm3trK = 
-        kmadd(J13L,PDupwindNthSymm1trK,kmadd(J23L,PDupwindNthSymm2trK,kmul(J33L,PDupwindNthSymm3trK)));
-      
-      JacPDupwindNthSymm3Xt1 = 
-        kmadd(J13L,PDupwindNthSymm1Xt1,kmadd(J23L,PDupwindNthSymm2Xt1,kmul(J33L,PDupwindNthSymm3Xt1)));
-      
-      JacPDupwindNthSymm3Xt2 = 
-        kmadd(J13L,PDupwindNthSymm1Xt2,kmadd(J23L,PDupwindNthSymm2Xt2,kmul(J33L,PDupwindNthSymm3Xt2)));
-      
-      JacPDupwindNthSymm3Xt3 = 
-        kmadd(J13L,PDupwindNthSymm1Xt3,kmadd(J23L,PDupwindNthSymm2Xt3,kmul(J33L,PDupwindNthSymm3Xt3)));
-    }
-    else
-    {
-      JacPDupwindNthAnti1A = PDupwindNthAnti1A;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1At11 = PDupwindNthAnti1At11;
-      
-      JacPDupwindNthAnti1At12 = PDupwindNthAnti1At12;
-      
-      JacPDupwindNthAnti1At13 = PDupwindNthAnti1At13;
-      
-      JacPDupwindNthAnti1At22 = PDupwindNthAnti1At22;
-      
-      JacPDupwindNthAnti1At23 = PDupwindNthAnti1At23;
-      
-      JacPDupwindNthAnti1At33 = PDupwindNthAnti1At33;
-      
-      JacPDupwindNthAnti1B1 = PDupwindNthAnti1B1;
-      
-      JacPDupwindNthAnti1B2 = PDupwindNthAnti1B2;
-      
-      JacPDupwindNthAnti1B3 = PDupwindNthAnti1B3;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthAnti1gt11 = PDupwindNthAnti1gt11;
-      
-      JacPDupwindNthAnti1gt12 = PDupwindNthAnti1gt12;
-      
-      JacPDupwindNthAnti1gt13 = PDupwindNthAnti1gt13;
-      
-      JacPDupwindNthAnti1gt22 = PDupwindNthAnti1gt22;
-      
-      JacPDupwindNthAnti1gt23 = PDupwindNthAnti1gt23;
-      
-      JacPDupwindNthAnti1gt33 = PDupwindNthAnti1gt33;
-      
-      JacPDupwindNthAnti1phi = PDupwindNthAnti1phi;
-      
-      JacPDupwindNthAnti1trK = PDupwindNthAnti1trK;
-      
-      JacPDupwindNthAnti1Xt1 = PDupwindNthAnti1Xt1;
-      
-      JacPDupwindNthAnti1Xt2 = PDupwindNthAnti1Xt2;
-      
-      JacPDupwindNthAnti1Xt3 = PDupwindNthAnti1Xt3;
-      
-      JacPDupwindNthSymm1A = PDupwindNthSymm1A;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1At11 = PDupwindNthSymm1At11;
-      
-      JacPDupwindNthSymm1At12 = PDupwindNthSymm1At12;
-      
-      JacPDupwindNthSymm1At13 = PDupwindNthSymm1At13;
-      
-      JacPDupwindNthSymm1At22 = PDupwindNthSymm1At22;
-      
-      JacPDupwindNthSymm1At23 = PDupwindNthSymm1At23;
-      
-      JacPDupwindNthSymm1At33 = PDupwindNthSymm1At33;
-      
-      JacPDupwindNthSymm1B1 = PDupwindNthSymm1B1;
-      
-      JacPDupwindNthSymm1B2 = PDupwindNthSymm1B2;
-      
-      JacPDupwindNthSymm1B3 = PDupwindNthSymm1B3;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthSymm1gt11 = PDupwindNthSymm1gt11;
-      
-      JacPDupwindNthSymm1gt12 = PDupwindNthSymm1gt12;
-      
-      JacPDupwindNthSymm1gt13 = PDupwindNthSymm1gt13;
-      
-      JacPDupwindNthSymm1gt22 = PDupwindNthSymm1gt22;
-      
-      JacPDupwindNthSymm1gt23 = PDupwindNthSymm1gt23;
-      
-      JacPDupwindNthSymm1gt33 = PDupwindNthSymm1gt33;
-      
-      JacPDupwindNthSymm1phi = PDupwindNthSymm1phi;
-      
-      JacPDupwindNthSymm1trK = PDupwindNthSymm1trK;
-      
-      JacPDupwindNthSymm1Xt1 = PDupwindNthSymm1Xt1;
-      
-      JacPDupwindNthSymm1Xt2 = PDupwindNthSymm1Xt2;
-      
-      JacPDupwindNthSymm1Xt3 = PDupwindNthSymm1Xt3;
-      
-      JacPDupwindNthAnti2A = PDupwindNthAnti2A;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2At11 = PDupwindNthAnti2At11;
-      
-      JacPDupwindNthAnti2At12 = PDupwindNthAnti2At12;
-      
-      JacPDupwindNthAnti2At13 = PDupwindNthAnti2At13;
-      
-      JacPDupwindNthAnti2At22 = PDupwindNthAnti2At22;
-      
-      JacPDupwindNthAnti2At23 = PDupwindNthAnti2At23;
-      
-      JacPDupwindNthAnti2At33 = PDupwindNthAnti2At33;
-      
-      JacPDupwindNthAnti2B1 = PDupwindNthAnti2B1;
-      
-      JacPDupwindNthAnti2B2 = PDupwindNthAnti2B2;
-      
-      JacPDupwindNthAnti2B3 = PDupwindNthAnti2B3;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthAnti2gt11 = PDupwindNthAnti2gt11;
-      
-      JacPDupwindNthAnti2gt12 = PDupwindNthAnti2gt12;
-      
-      JacPDupwindNthAnti2gt13 = PDupwindNthAnti2gt13;
-      
-      JacPDupwindNthAnti2gt22 = PDupwindNthAnti2gt22;
-      
-      JacPDupwindNthAnti2gt23 = PDupwindNthAnti2gt23;
-      
-      JacPDupwindNthAnti2gt33 = PDupwindNthAnti2gt33;
-      
-      JacPDupwindNthAnti2phi = PDupwindNthAnti2phi;
-      
-      JacPDupwindNthAnti2trK = PDupwindNthAnti2trK;
-      
-      JacPDupwindNthAnti2Xt1 = PDupwindNthAnti2Xt1;
-      
-      JacPDupwindNthAnti2Xt2 = PDupwindNthAnti2Xt2;
-      
-      JacPDupwindNthAnti2Xt3 = PDupwindNthAnti2Xt3;
-      
-      JacPDupwindNthSymm2A = PDupwindNthSymm2A;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2At11 = PDupwindNthSymm2At11;
-      
-      JacPDupwindNthSymm2At12 = PDupwindNthSymm2At12;
-      
-      JacPDupwindNthSymm2At13 = PDupwindNthSymm2At13;
-      
-      JacPDupwindNthSymm2At22 = PDupwindNthSymm2At22;
-      
-      JacPDupwindNthSymm2At23 = PDupwindNthSymm2At23;
-      
-      JacPDupwindNthSymm2At33 = PDupwindNthSymm2At33;
-      
-      JacPDupwindNthSymm2B1 = PDupwindNthSymm2B1;
-      
-      JacPDupwindNthSymm2B2 = PDupwindNthSymm2B2;
-      
-      JacPDupwindNthSymm2B3 = PDupwindNthSymm2B3;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthSymm2gt11 = PDupwindNthSymm2gt11;
-      
-      JacPDupwindNthSymm2gt12 = PDupwindNthSymm2gt12;
-      
-      JacPDupwindNthSymm2gt13 = PDupwindNthSymm2gt13;
-      
-      JacPDupwindNthSymm2gt22 = PDupwindNthSymm2gt22;
-      
-      JacPDupwindNthSymm2gt23 = PDupwindNthSymm2gt23;
-      
-      JacPDupwindNthSymm2gt33 = PDupwindNthSymm2gt33;
-      
-      JacPDupwindNthSymm2phi = PDupwindNthSymm2phi;
-      
-      JacPDupwindNthSymm2trK = PDupwindNthSymm2trK;
-      
-      JacPDupwindNthSymm2Xt1 = PDupwindNthSymm2Xt1;
-      
-      JacPDupwindNthSymm2Xt2 = PDupwindNthSymm2Xt2;
-      
-      JacPDupwindNthSymm2Xt3 = PDupwindNthSymm2Xt3;
-      
-      JacPDupwindNthAnti3A = PDupwindNthAnti3A;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3At11 = PDupwindNthAnti3At11;
-      
-      JacPDupwindNthAnti3At12 = PDupwindNthAnti3At12;
-      
-      JacPDupwindNthAnti3At13 = PDupwindNthAnti3At13;
-      
-      JacPDupwindNthAnti3At22 = PDupwindNthAnti3At22;
-      
-      JacPDupwindNthAnti3At23 = PDupwindNthAnti3At23;
-      
-      JacPDupwindNthAnti3At33 = PDupwindNthAnti3At33;
-      
-      JacPDupwindNthAnti3B1 = PDupwindNthAnti3B1;
-      
-      JacPDupwindNthAnti3B2 = PDupwindNthAnti3B2;
-      
-      JacPDupwindNthAnti3B3 = PDupwindNthAnti3B3;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthAnti3gt11 = PDupwindNthAnti3gt11;
-      
-      JacPDupwindNthAnti3gt12 = PDupwindNthAnti3gt12;
-      
-      JacPDupwindNthAnti3gt13 = PDupwindNthAnti3gt13;
-      
-      JacPDupwindNthAnti3gt22 = PDupwindNthAnti3gt22;
-      
-      JacPDupwindNthAnti3gt23 = PDupwindNthAnti3gt23;
-      
-      JacPDupwindNthAnti3gt33 = PDupwindNthAnti3gt33;
-      
-      JacPDupwindNthAnti3phi = PDupwindNthAnti3phi;
-      
-      JacPDupwindNthAnti3trK = PDupwindNthAnti3trK;
-      
-      JacPDupwindNthAnti3Xt1 = PDupwindNthAnti3Xt1;
-      
-      JacPDupwindNthAnti3Xt2 = PDupwindNthAnti3Xt2;
-      
-      JacPDupwindNthAnti3Xt3 = PDupwindNthAnti3Xt3;
-      
-      JacPDupwindNthSymm3A = PDupwindNthSymm3A;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3At11 = PDupwindNthSymm3At11;
-      
-      JacPDupwindNthSymm3At12 = PDupwindNthSymm3At12;
-      
-      JacPDupwindNthSymm3At13 = PDupwindNthSymm3At13;
-      
-      JacPDupwindNthSymm3At22 = PDupwindNthSymm3At22;
-      
-      JacPDupwindNthSymm3At23 = PDupwindNthSymm3At23;
-      
-      JacPDupwindNthSymm3At33 = PDupwindNthSymm3At33;
-      
-      JacPDupwindNthSymm3B1 = PDupwindNthSymm3B1;
-      
-      JacPDupwindNthSymm3B2 = PDupwindNthSymm3B2;
-      
-      JacPDupwindNthSymm3B3 = PDupwindNthSymm3B3;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-      
-      JacPDupwindNthSymm3gt11 = PDupwindNthSymm3gt11;
-      
-      JacPDupwindNthSymm3gt12 = PDupwindNthSymm3gt12;
-      
-      JacPDupwindNthSymm3gt13 = PDupwindNthSymm3gt13;
-      
-      JacPDupwindNthSymm3gt22 = PDupwindNthSymm3gt22;
-      
-      JacPDupwindNthSymm3gt23 = PDupwindNthSymm3gt23;
-      
-      JacPDupwindNthSymm3gt33 = PDupwindNthSymm3gt33;
-      
-      JacPDupwindNthSymm3phi = PDupwindNthSymm3phi;
-      
-      JacPDupwindNthSymm3trK = PDupwindNthSymm3trK;
-      
-      JacPDupwindNthSymm3Xt1 = PDupwindNthSymm3Xt1;
-      
-      JacPDupwindNthSymm3Xt2 = PDupwindNthSymm3Xt2;
-      
-      JacPDupwindNthSymm3Xt3 = PDupwindNthSymm3Xt3;
-    }
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(beta1L,JacPDupwindNthAnti1phi,kmadd(beta2L,JacPDupwindNthAnti2phi,kmadd(beta3L,JacPDupwindNthAnti3phi,kmadd(JacPDupwindNthSymm1phi,kfabs(beta1L),kmadd(JacPDupwindNthSymm2phi,kfabs(beta2L),kmul(JacPDupwindNthSymm3phi,kfabs(beta3L))))))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt11,kmadd(beta2L,JacPDupwindNthAnti2gt11,kmadd(beta3L,JacPDupwindNthAnti3gt11,kmadd(JacPDupwindNthSymm1gt11,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt11,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt11,kfabs(beta3L))))))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt12,kmadd(beta2L,JacPDupwindNthAnti2gt12,kmadd(beta3L,JacPDupwindNthAnti3gt12,kmadd(JacPDupwindNthSymm1gt12,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt12,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt12,kfabs(beta3L))))))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt13,kmadd(beta2L,JacPDupwindNthAnti2gt13,kmadd(beta3L,JacPDupwindNthAnti3gt13,kmadd(JacPDupwindNthSymm1gt13,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt13,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt13,kfabs(beta3L))))))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt22,kmadd(beta2L,JacPDupwindNthAnti2gt22,kmadd(beta3L,JacPDupwindNthAnti3gt22,kmadd(JacPDupwindNthSymm1gt22,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt22,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt22,kfabs(beta3L))))))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt23,kmadd(beta2L,JacPDupwindNthAnti2gt23,kmadd(beta3L,JacPDupwindNthAnti3gt23,kmadd(JacPDupwindNthSymm1gt23,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt23,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt23,kfabs(beta3L))))))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(beta1L,JacPDupwindNthAnti1gt33,kmadd(beta2L,JacPDupwindNthAnti2gt33,kmadd(beta3L,JacPDupwindNthAnti3gt33,kmadd(JacPDupwindNthSymm1gt33,kfabs(beta1L),kmadd(JacPDupwindNthSymm2gt33,kfabs(beta2L),kmul(JacPDupwindNthSymm3gt33,kfabs(beta3L))))))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt1,kmadd(beta2L,JacPDupwindNthAnti2Xt1,kmadd(beta3L,JacPDupwindNthAnti3Xt1,kmadd(JacPDupwindNthSymm1Xt1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt1,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt1,kfabs(beta3L))))))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt2,kmadd(beta2L,JacPDupwindNthAnti2Xt2,kmadd(beta3L,JacPDupwindNthAnti3Xt2,kmadd(JacPDupwindNthSymm1Xt2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt2,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt2,kfabs(beta3L))))))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(beta1L,JacPDupwindNthAnti1Xt3,kmadd(beta2L,JacPDupwindNthAnti2Xt3,kmadd(beta3L,JacPDupwindNthAnti3Xt3,kmadd(JacPDupwindNthSymm1Xt3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt3,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt3,kfabs(beta3L))))))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(beta1L,JacPDupwindNthAnti1trK,kmadd(beta2L,JacPDupwindNthAnti2trK,kmadd(beta3L,JacPDupwindNthAnti3trK,kmadd(JacPDupwindNthSymm1trK,kfabs(beta1L),kmadd(JacPDupwindNthSymm2trK,kfabs(beta2L),kmul(JacPDupwindNthSymm3trK,kfabs(beta3L))))))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(beta1L,JacPDupwindNthAnti1At11,kmadd(beta2L,JacPDupwindNthAnti2At11,kmadd(beta3L,JacPDupwindNthAnti3At11,kmadd(JacPDupwindNthSymm1At11,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At11,kfabs(beta2L),kmul(JacPDupwindNthSymm3At11,kfabs(beta3L))))))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(beta1L,JacPDupwindNthAnti1At12,kmadd(beta2L,JacPDupwindNthAnti2At12,kmadd(beta3L,JacPDupwindNthAnti3At12,kmadd(JacPDupwindNthSymm1At12,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At12,kfabs(beta2L),kmul(JacPDupwindNthSymm3At12,kfabs(beta3L))))))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(beta1L,JacPDupwindNthAnti1At13,kmadd(beta2L,JacPDupwindNthAnti2At13,kmadd(beta3L,JacPDupwindNthAnti3At13,kmadd(JacPDupwindNthSymm1At13,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At13,kfabs(beta2L),kmul(JacPDupwindNthSymm3At13,kfabs(beta3L))))))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(beta1L,JacPDupwindNthAnti1At22,kmadd(beta2L,JacPDupwindNthAnti2At22,kmadd(beta3L,JacPDupwindNthAnti3At22,kmadd(JacPDupwindNthSymm1At22,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At22,kfabs(beta2L),kmul(JacPDupwindNthSymm3At22,kfabs(beta3L))))))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(beta1L,JacPDupwindNthAnti1At23,kmadd(beta2L,JacPDupwindNthAnti2At23,kmadd(beta3L,JacPDupwindNthAnti3At23,kmadd(JacPDupwindNthSymm1At23,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At23,kfabs(beta2L),kmul(JacPDupwindNthSymm3At23,kfabs(beta3L))))))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(beta1L,JacPDupwindNthAnti1At33,kmadd(beta2L,JacPDupwindNthAnti2At33,kmadd(beta3L,JacPDupwindNthAnti3At33,kmadd(JacPDupwindNthSymm1At33,kfabs(beta1L),kmadd(JacPDupwindNthSymm2At33,kfabs(beta2L),kmul(JacPDupwindNthSymm3At33,kfabs(beta3L))))))));
-    
-    alpharhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),alpharhsL);
-    
-    ArhsL = 
-      kmadd(ToReal(LapseACoeff),kmsub(kmadd(beta1L,JacPDupwindNthAnti1A,kmadd(beta2L,JacPDupwindNthAnti2A,kmadd(beta3L,JacPDupwindNthAnti3A,kmadd(JacPDupwindNthSymm1A,kfabs(beta1L),kmadd(JacPDupwindNthSymm2A,kfabs(beta2L),kmul(JacPDupwindNthSymm3A,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1trK,kmadd(beta2L,JacPDupwindNthAnti2trK,kmadd(beta3L,JacPDupwindNthAnti3trK,kmadd(JacPDupwindNthSymm1trK,kfabs(beta1L),kmadd(JacPDupwindNthSymm2trK,kfabs(beta2L),kmul(JacPDupwindNthSymm3trK,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(LapseAdvectionCoeff)))),ArhsL);
-    
-    beta1rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta1rhsL);
-    
-    beta2rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta2rhsL);
-    
-    beta3rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),beta3rhsL);
-    
-    B1rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B1,kmadd(beta2L,JacPDupwindNthAnti2B1,kmadd(beta3L,JacPDupwindNthAnti3B1,kmadd(JacPDupwindNthSymm1B1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B1,kfabs(beta2L),kmul(JacPDupwindNthSymm3B1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt1,kmadd(beta2L,JacPDupwindNthAnti2Xt1,kmadd(beta3L,JacPDupwindNthAnti3Xt1,kmadd(JacPDupwindNthSymm1Xt1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt1,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt1,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B1rhsL);
-    
-    B2rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B2,kmadd(beta2L,JacPDupwindNthAnti2B2,kmadd(beta3L,JacPDupwindNthAnti3B2,kmadd(JacPDupwindNthSymm1B2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B2,kfabs(beta2L),kmul(JacPDupwindNthSymm3B2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt2,kmadd(beta2L,JacPDupwindNthAnti2Xt2,kmadd(beta3L,JacPDupwindNthAnti3Xt2,kmadd(JacPDupwindNthSymm1Xt2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt2,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt2,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B2rhsL);
-    
-    B3rhsL = 
-      kmadd(kmsub(kmadd(beta1L,JacPDupwindNthAnti1B3,kmadd(beta2L,JacPDupwindNthAnti2B3,kmadd(beta3L,JacPDupwindNthAnti3B3,kmadd(JacPDupwindNthSymm1B3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2B3,kfabs(beta2L),kmul(JacPDupwindNthSymm3B3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),kmul(kmadd(beta1L,JacPDupwindNthAnti1Xt3,kmadd(beta2L,JacPDupwindNthAnti2Xt3,kmadd(beta3L,JacPDupwindNthAnti3Xt3,kmadd(JacPDupwindNthSymm1Xt3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2Xt3,kfabs(beta2L),kmul(JacPDupwindNthSymm3Xt3,kfabs(beta3L))))))),kadd(ToReal(-1),ToReal(ShiftAdvectionCoeff)))),ToReal(ShiftBCoeff),B3rhsL);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_Advect);
-}
-
-extern "C" void ML_BSSN_O8_Advect(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_Advect_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_Advect_calc_every != ML_BSSN_O8_Advect_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_curvrhs",
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtlapserhs",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_dtshiftrhs",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_Gammarhs",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_lapserhs",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_log_confacrhs",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_metricrhs",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_shiftrhs",
-    "ML_BSSN_O8::ML_trace_curv",
-    "ML_BSSN_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_Advect", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_Advect", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_Advect", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_Advect", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_Advect", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O8_Advect_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_Advect_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_Dissipation.cc b/ML_BSSN_O8/src/ML_BSSN_O8_Dissipation.cc
deleted file mode 100644
index 7965398..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_Dissipation.cc
+++ /dev/null
@@ -1,1330 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_Dissipation_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O8_Dissipation_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_Dissipation,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDdissipationNth1A;
-    CCTK_REAL_VEC PDdissipationNth2A;
-    CCTK_REAL_VEC PDdissipationNth3A;
-    CCTK_REAL_VEC PDdissipationNth1alpha;
-    CCTK_REAL_VEC PDdissipationNth2alpha;
-    CCTK_REAL_VEC PDdissipationNth3alpha;
-    CCTK_REAL_VEC PDdissipationNth1At11;
-    CCTK_REAL_VEC PDdissipationNth2At11;
-    CCTK_REAL_VEC PDdissipationNth3At11;
-    CCTK_REAL_VEC PDdissipationNth1At12;
-    CCTK_REAL_VEC PDdissipationNth2At12;
-    CCTK_REAL_VEC PDdissipationNth3At12;
-    CCTK_REAL_VEC PDdissipationNth1At13;
-    CCTK_REAL_VEC PDdissipationNth2At13;
-    CCTK_REAL_VEC PDdissipationNth3At13;
-    CCTK_REAL_VEC PDdissipationNth1At22;
-    CCTK_REAL_VEC PDdissipationNth2At22;
-    CCTK_REAL_VEC PDdissipationNth3At22;
-    CCTK_REAL_VEC PDdissipationNth1At23;
-    CCTK_REAL_VEC PDdissipationNth2At23;
-    CCTK_REAL_VEC PDdissipationNth3At23;
-    CCTK_REAL_VEC PDdissipationNth1At33;
-    CCTK_REAL_VEC PDdissipationNth2At33;
-    CCTK_REAL_VEC PDdissipationNth3At33;
-    CCTK_REAL_VEC PDdissipationNth1B1;
-    CCTK_REAL_VEC PDdissipationNth2B1;
-    CCTK_REAL_VEC PDdissipationNth3B1;
-    CCTK_REAL_VEC PDdissipationNth1B2;
-    CCTK_REAL_VEC PDdissipationNth2B2;
-    CCTK_REAL_VEC PDdissipationNth3B2;
-    CCTK_REAL_VEC PDdissipationNth1B3;
-    CCTK_REAL_VEC PDdissipationNth2B3;
-    CCTK_REAL_VEC PDdissipationNth3B3;
-    CCTK_REAL_VEC PDdissipationNth1beta1;
-    CCTK_REAL_VEC PDdissipationNth2beta1;
-    CCTK_REAL_VEC PDdissipationNth3beta1;
-    CCTK_REAL_VEC PDdissipationNth1beta2;
-    CCTK_REAL_VEC PDdissipationNth2beta2;
-    CCTK_REAL_VEC PDdissipationNth3beta2;
-    CCTK_REAL_VEC PDdissipationNth1beta3;
-    CCTK_REAL_VEC PDdissipationNth2beta3;
-    CCTK_REAL_VEC PDdissipationNth3beta3;
-    CCTK_REAL_VEC PDdissipationNth1gt11;
-    CCTK_REAL_VEC PDdissipationNth2gt11;
-    CCTK_REAL_VEC PDdissipationNth3gt11;
-    CCTK_REAL_VEC PDdissipationNth1gt12;
-    CCTK_REAL_VEC PDdissipationNth2gt12;
-    CCTK_REAL_VEC PDdissipationNth3gt12;
-    CCTK_REAL_VEC PDdissipationNth1gt13;
-    CCTK_REAL_VEC PDdissipationNth2gt13;
-    CCTK_REAL_VEC PDdissipationNth3gt13;
-    CCTK_REAL_VEC PDdissipationNth1gt22;
-    CCTK_REAL_VEC PDdissipationNth2gt22;
-    CCTK_REAL_VEC PDdissipationNth3gt22;
-    CCTK_REAL_VEC PDdissipationNth1gt23;
-    CCTK_REAL_VEC PDdissipationNth2gt23;
-    CCTK_REAL_VEC PDdissipationNth3gt23;
-    CCTK_REAL_VEC PDdissipationNth1gt33;
-    CCTK_REAL_VEC PDdissipationNth2gt33;
-    CCTK_REAL_VEC PDdissipationNth3gt33;
-    CCTK_REAL_VEC PDdissipationNth1phi;
-    CCTK_REAL_VEC PDdissipationNth2phi;
-    CCTK_REAL_VEC PDdissipationNth3phi;
-    CCTK_REAL_VEC PDdissipationNth1trK;
-    CCTK_REAL_VEC PDdissipationNth2trK;
-    CCTK_REAL_VEC PDdissipationNth3trK;
-    CCTK_REAL_VEC PDdissipationNth1Xt1;
-    CCTK_REAL_VEC PDdissipationNth2Xt1;
-    CCTK_REAL_VEC PDdissipationNth3Xt1;
-    CCTK_REAL_VEC PDdissipationNth1Xt2;
-    CCTK_REAL_VEC PDdissipationNth2Xt2;
-    CCTK_REAL_VEC PDdissipationNth3Xt2;
-    CCTK_REAL_VEC PDdissipationNth1Xt3;
-    CCTK_REAL_VEC PDdissipationNth2Xt3;
-    CCTK_REAL_VEC PDdissipationNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDdissipationNth1A = PDdissipationNthfdOrder21(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder22(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder23(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder21(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder22(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder23(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder21(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder22(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder23(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder21(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder22(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder23(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder21(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder22(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder23(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder21(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder22(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder23(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder21(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder22(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder23(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder21(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder22(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder23(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder21(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder22(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder23(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder21(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder22(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder23(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder21(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder22(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder23(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder21(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder22(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder23(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder21(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder22(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder23(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder21(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder22(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder23(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder21(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder22(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder23(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder21(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder22(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder23(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder21(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder22(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder23(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder21(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder22(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder23(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder21(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder22(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder23(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder21(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder22(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder23(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder21(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder22(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder23(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder21(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder22(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder23(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder21(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder22(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder23(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder21(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder22(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder23(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder21(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder22(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDdissipationNth1A = PDdissipationNthfdOrder41(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder42(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder43(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder41(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder42(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder43(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder41(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder42(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder43(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder41(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder42(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder43(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder41(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder42(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder43(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder41(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder42(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder43(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder41(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder42(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder43(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder41(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder42(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder43(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder41(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder42(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder43(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder41(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder42(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder43(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder41(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder42(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder43(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder41(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder42(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder43(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder41(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder42(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder43(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder41(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder42(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder43(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder41(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder42(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder43(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder41(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder42(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder43(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder41(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder42(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder43(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder41(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder42(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder43(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder41(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder42(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder43(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder41(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder42(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder43(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder41(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder42(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder43(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder41(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder42(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder43(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder41(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder42(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder43(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder41(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder42(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder43(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder41(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder42(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDdissipationNth1A = PDdissipationNthfdOrder61(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder62(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder63(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder61(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder62(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder63(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder61(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder62(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder63(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder61(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder62(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder63(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder61(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder62(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder63(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder61(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder62(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder63(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder61(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder62(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder63(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder61(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder62(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder63(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder61(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder62(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder63(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder61(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder62(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder63(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder61(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder62(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder63(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder61(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder62(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder63(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder61(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder62(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder63(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder61(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder62(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder63(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder61(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder62(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder63(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder61(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder62(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder63(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder61(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder62(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder63(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder61(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder62(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder63(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder61(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder62(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder63(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder61(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder62(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder63(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder61(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder62(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder63(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder61(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder62(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder63(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder61(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder62(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder63(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder61(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder62(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder63(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder61(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder62(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDdissipationNth1A = PDdissipationNthfdOrder81(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder82(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder83(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder81(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder82(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder83(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder81(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder82(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder83(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder81(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder82(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder83(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder81(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder82(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder83(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder81(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder82(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder83(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder81(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder82(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder83(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder81(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder82(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder83(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder81(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder82(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder83(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder81(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder82(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder83(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder81(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder82(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder83(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder81(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder82(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder83(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder81(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder82(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder83(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder81(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder82(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder83(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder81(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder82(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder83(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder81(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder82(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder83(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder81(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder82(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder83(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder81(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder82(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder83(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder81(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder82(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder83(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder81(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder82(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder83(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder81(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder82(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder83(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder81(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder82(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder83(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder81(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder82(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder83(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder81(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder82(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder83(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder81(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder82(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDdissipationNth1A;
-    CCTK_REAL_VEC JacPDdissipationNth1alpha;
-    CCTK_REAL_VEC JacPDdissipationNth1At11;
-    CCTK_REAL_VEC JacPDdissipationNth1At12;
-    CCTK_REAL_VEC JacPDdissipationNth1At13;
-    CCTK_REAL_VEC JacPDdissipationNth1At22;
-    CCTK_REAL_VEC JacPDdissipationNth1At23;
-    CCTK_REAL_VEC JacPDdissipationNth1At33;
-    CCTK_REAL_VEC JacPDdissipationNth1B1;
-    CCTK_REAL_VEC JacPDdissipationNth1B2;
-    CCTK_REAL_VEC JacPDdissipationNth1B3;
-    CCTK_REAL_VEC JacPDdissipationNth1beta1;
-    CCTK_REAL_VEC JacPDdissipationNth1beta2;
-    CCTK_REAL_VEC JacPDdissipationNth1beta3;
-    CCTK_REAL_VEC JacPDdissipationNth1gt11;
-    CCTK_REAL_VEC JacPDdissipationNth1gt12;
-    CCTK_REAL_VEC JacPDdissipationNth1gt13;
-    CCTK_REAL_VEC JacPDdissipationNth1gt22;
-    CCTK_REAL_VEC JacPDdissipationNth1gt23;
-    CCTK_REAL_VEC JacPDdissipationNth1gt33;
-    CCTK_REAL_VEC JacPDdissipationNth1phi;
-    CCTK_REAL_VEC JacPDdissipationNth1trK;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth2A;
-    CCTK_REAL_VEC JacPDdissipationNth2alpha;
-    CCTK_REAL_VEC JacPDdissipationNth2At11;
-    CCTK_REAL_VEC JacPDdissipationNth2At12;
-    CCTK_REAL_VEC JacPDdissipationNth2At13;
-    CCTK_REAL_VEC JacPDdissipationNth2At22;
-    CCTK_REAL_VEC JacPDdissipationNth2At23;
-    CCTK_REAL_VEC JacPDdissipationNth2At33;
-    CCTK_REAL_VEC JacPDdissipationNth2B1;
-    CCTK_REAL_VEC JacPDdissipationNth2B2;
-    CCTK_REAL_VEC JacPDdissipationNth2B3;
-    CCTK_REAL_VEC JacPDdissipationNth2beta1;
-    CCTK_REAL_VEC JacPDdissipationNth2beta2;
-    CCTK_REAL_VEC JacPDdissipationNth2beta3;
-    CCTK_REAL_VEC JacPDdissipationNth2gt11;
-    CCTK_REAL_VEC JacPDdissipationNth2gt12;
-    CCTK_REAL_VEC JacPDdissipationNth2gt13;
-    CCTK_REAL_VEC JacPDdissipationNth2gt22;
-    CCTK_REAL_VEC JacPDdissipationNth2gt23;
-    CCTK_REAL_VEC JacPDdissipationNth2gt33;
-    CCTK_REAL_VEC JacPDdissipationNth2phi;
-    CCTK_REAL_VEC JacPDdissipationNth2trK;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth3A;
-    CCTK_REAL_VEC JacPDdissipationNth3alpha;
-    CCTK_REAL_VEC JacPDdissipationNth3At11;
-    CCTK_REAL_VEC JacPDdissipationNth3At12;
-    CCTK_REAL_VEC JacPDdissipationNth3At13;
-    CCTK_REAL_VEC JacPDdissipationNth3At22;
-    CCTK_REAL_VEC JacPDdissipationNth3At23;
-    CCTK_REAL_VEC JacPDdissipationNth3At33;
-    CCTK_REAL_VEC JacPDdissipationNth3B1;
-    CCTK_REAL_VEC JacPDdissipationNth3B2;
-    CCTK_REAL_VEC JacPDdissipationNth3B3;
-    CCTK_REAL_VEC JacPDdissipationNth3beta1;
-    CCTK_REAL_VEC JacPDdissipationNth3beta2;
-    CCTK_REAL_VEC JacPDdissipationNth3beta3;
-    CCTK_REAL_VEC JacPDdissipationNth3gt11;
-    CCTK_REAL_VEC JacPDdissipationNth3gt12;
-    CCTK_REAL_VEC JacPDdissipationNth3gt13;
-    CCTK_REAL_VEC JacPDdissipationNth3gt22;
-    CCTK_REAL_VEC JacPDdissipationNth3gt23;
-    CCTK_REAL_VEC JacPDdissipationNth3gt33;
-    CCTK_REAL_VEC JacPDdissipationNth3phi;
-    CCTK_REAL_VEC JacPDdissipationNth3trK;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDdissipationNth1A = 
-        kmadd(J11L,PDdissipationNth1A,kmadd(J21L,PDdissipationNth2A,kmul(J31L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth1alpha = 
-        kmadd(J11L,PDdissipationNth1alpha,kmadd(J21L,PDdissipationNth2alpha,kmul(J31L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth1At11 = 
-        kmadd(J11L,PDdissipationNth1At11,kmadd(J21L,PDdissipationNth2At11,kmul(J31L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth1At12 = 
-        kmadd(J11L,PDdissipationNth1At12,kmadd(J21L,PDdissipationNth2At12,kmul(J31L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth1At13 = 
-        kmadd(J11L,PDdissipationNth1At13,kmadd(J21L,PDdissipationNth2At13,kmul(J31L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth1At22 = 
-        kmadd(J11L,PDdissipationNth1At22,kmadd(J21L,PDdissipationNth2At22,kmul(J31L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth1At23 = 
-        kmadd(J11L,PDdissipationNth1At23,kmadd(J21L,PDdissipationNth2At23,kmul(J31L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth1At33 = 
-        kmadd(J11L,PDdissipationNth1At33,kmadd(J21L,PDdissipationNth2At33,kmul(J31L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth1B1 = 
-        kmadd(J11L,PDdissipationNth1B1,kmadd(J21L,PDdissipationNth2B1,kmul(J31L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth1B2 = 
-        kmadd(J11L,PDdissipationNth1B2,kmadd(J21L,PDdissipationNth2B2,kmul(J31L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth1B3 = 
-        kmadd(J11L,PDdissipationNth1B3,kmadd(J21L,PDdissipationNth2B3,kmul(J31L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth1beta1 = 
-        kmadd(J11L,PDdissipationNth1beta1,kmadd(J21L,PDdissipationNth2beta1,kmul(J31L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth1beta2 = 
-        kmadd(J11L,PDdissipationNth1beta2,kmadd(J21L,PDdissipationNth2beta2,kmul(J31L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth1beta3 = 
-        kmadd(J11L,PDdissipationNth1beta3,kmadd(J21L,PDdissipationNth2beta3,kmul(J31L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth1gt11 = 
-        kmadd(J11L,PDdissipationNth1gt11,kmadd(J21L,PDdissipationNth2gt11,kmul(J31L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth1gt12 = 
-        kmadd(J11L,PDdissipationNth1gt12,kmadd(J21L,PDdissipationNth2gt12,kmul(J31L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth1gt13 = 
-        kmadd(J11L,PDdissipationNth1gt13,kmadd(J21L,PDdissipationNth2gt13,kmul(J31L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth1gt22 = 
-        kmadd(J11L,PDdissipationNth1gt22,kmadd(J21L,PDdissipationNth2gt22,kmul(J31L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth1gt23 = 
-        kmadd(J11L,PDdissipationNth1gt23,kmadd(J21L,PDdissipationNth2gt23,kmul(J31L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth1gt33 = 
-        kmadd(J11L,PDdissipationNth1gt33,kmadd(J21L,PDdissipationNth2gt33,kmul(J31L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth1phi = 
-        kmadd(J11L,PDdissipationNth1phi,kmadd(J21L,PDdissipationNth2phi,kmul(J31L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth1trK = 
-        kmadd(J11L,PDdissipationNth1trK,kmadd(J21L,PDdissipationNth2trK,kmul(J31L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth1Xt1 = 
-        kmadd(J11L,PDdissipationNth1Xt1,kmadd(J21L,PDdissipationNth2Xt1,kmul(J31L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth1Xt2 = 
-        kmadd(J11L,PDdissipationNth1Xt2,kmadd(J21L,PDdissipationNth2Xt2,kmul(J31L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth1Xt3 = 
-        kmadd(J11L,PDdissipationNth1Xt3,kmadd(J21L,PDdissipationNth2Xt3,kmul(J31L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth2A = 
-        kmadd(J12L,PDdissipationNth1A,kmadd(J22L,PDdissipationNth2A,kmul(J32L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth2alpha = 
-        kmadd(J12L,PDdissipationNth1alpha,kmadd(J22L,PDdissipationNth2alpha,kmul(J32L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth2At11 = 
-        kmadd(J12L,PDdissipationNth1At11,kmadd(J22L,PDdissipationNth2At11,kmul(J32L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth2At12 = 
-        kmadd(J12L,PDdissipationNth1At12,kmadd(J22L,PDdissipationNth2At12,kmul(J32L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth2At13 = 
-        kmadd(J12L,PDdissipationNth1At13,kmadd(J22L,PDdissipationNth2At13,kmul(J32L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth2At22 = 
-        kmadd(J12L,PDdissipationNth1At22,kmadd(J22L,PDdissipationNth2At22,kmul(J32L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth2At23 = 
-        kmadd(J12L,PDdissipationNth1At23,kmadd(J22L,PDdissipationNth2At23,kmul(J32L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth2At33 = 
-        kmadd(J12L,PDdissipationNth1At33,kmadd(J22L,PDdissipationNth2At33,kmul(J32L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth2B1 = 
-        kmadd(J12L,PDdissipationNth1B1,kmadd(J22L,PDdissipationNth2B1,kmul(J32L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth2B2 = 
-        kmadd(J12L,PDdissipationNth1B2,kmadd(J22L,PDdissipationNth2B2,kmul(J32L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth2B3 = 
-        kmadd(J12L,PDdissipationNth1B3,kmadd(J22L,PDdissipationNth2B3,kmul(J32L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth2beta1 = 
-        kmadd(J12L,PDdissipationNth1beta1,kmadd(J22L,PDdissipationNth2beta1,kmul(J32L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth2beta2 = 
-        kmadd(J12L,PDdissipationNth1beta2,kmadd(J22L,PDdissipationNth2beta2,kmul(J32L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth2beta3 = 
-        kmadd(J12L,PDdissipationNth1beta3,kmadd(J22L,PDdissipationNth2beta3,kmul(J32L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth2gt11 = 
-        kmadd(J12L,PDdissipationNth1gt11,kmadd(J22L,PDdissipationNth2gt11,kmul(J32L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth2gt12 = 
-        kmadd(J12L,PDdissipationNth1gt12,kmadd(J22L,PDdissipationNth2gt12,kmul(J32L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth2gt13 = 
-        kmadd(J12L,PDdissipationNth1gt13,kmadd(J22L,PDdissipationNth2gt13,kmul(J32L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth2gt22 = 
-        kmadd(J12L,PDdissipationNth1gt22,kmadd(J22L,PDdissipationNth2gt22,kmul(J32L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth2gt23 = 
-        kmadd(J12L,PDdissipationNth1gt23,kmadd(J22L,PDdissipationNth2gt23,kmul(J32L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth2gt33 = 
-        kmadd(J12L,PDdissipationNth1gt33,kmadd(J22L,PDdissipationNth2gt33,kmul(J32L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth2phi = 
-        kmadd(J12L,PDdissipationNth1phi,kmadd(J22L,PDdissipationNth2phi,kmul(J32L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth2trK = 
-        kmadd(J12L,PDdissipationNth1trK,kmadd(J22L,PDdissipationNth2trK,kmul(J32L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth2Xt1 = 
-        kmadd(J12L,PDdissipationNth1Xt1,kmadd(J22L,PDdissipationNth2Xt1,kmul(J32L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth2Xt2 = 
-        kmadd(J12L,PDdissipationNth1Xt2,kmadd(J22L,PDdissipationNth2Xt2,kmul(J32L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth2Xt3 = 
-        kmadd(J12L,PDdissipationNth1Xt3,kmadd(J22L,PDdissipationNth2Xt3,kmul(J32L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth3A = 
-        kmadd(J13L,PDdissipationNth1A,kmadd(J23L,PDdissipationNth2A,kmul(J33L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth3alpha = 
-        kmadd(J13L,PDdissipationNth1alpha,kmadd(J23L,PDdissipationNth2alpha,kmul(J33L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth3At11 = 
-        kmadd(J13L,PDdissipationNth1At11,kmadd(J23L,PDdissipationNth2At11,kmul(J33L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth3At12 = 
-        kmadd(J13L,PDdissipationNth1At12,kmadd(J23L,PDdissipationNth2At12,kmul(J33L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth3At13 = 
-        kmadd(J13L,PDdissipationNth1At13,kmadd(J23L,PDdissipationNth2At13,kmul(J33L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth3At22 = 
-        kmadd(J13L,PDdissipationNth1At22,kmadd(J23L,PDdissipationNth2At22,kmul(J33L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth3At23 = 
-        kmadd(J13L,PDdissipationNth1At23,kmadd(J23L,PDdissipationNth2At23,kmul(J33L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth3At33 = 
-        kmadd(J13L,PDdissipationNth1At33,kmadd(J23L,PDdissipationNth2At33,kmul(J33L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth3B1 = 
-        kmadd(J13L,PDdissipationNth1B1,kmadd(J23L,PDdissipationNth2B1,kmul(J33L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth3B2 = 
-        kmadd(J13L,PDdissipationNth1B2,kmadd(J23L,PDdissipationNth2B2,kmul(J33L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth3B3 = 
-        kmadd(J13L,PDdissipationNth1B3,kmadd(J23L,PDdissipationNth2B3,kmul(J33L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth3beta1 = 
-        kmadd(J13L,PDdissipationNth1beta1,kmadd(J23L,PDdissipationNth2beta1,kmul(J33L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth3beta2 = 
-        kmadd(J13L,PDdissipationNth1beta2,kmadd(J23L,PDdissipationNth2beta2,kmul(J33L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth3beta3 = 
-        kmadd(J13L,PDdissipationNth1beta3,kmadd(J23L,PDdissipationNth2beta3,kmul(J33L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth3gt11 = 
-        kmadd(J13L,PDdissipationNth1gt11,kmadd(J23L,PDdissipationNth2gt11,kmul(J33L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth3gt12 = 
-        kmadd(J13L,PDdissipationNth1gt12,kmadd(J23L,PDdissipationNth2gt12,kmul(J33L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth3gt13 = 
-        kmadd(J13L,PDdissipationNth1gt13,kmadd(J23L,PDdissipationNth2gt13,kmul(J33L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth3gt22 = 
-        kmadd(J13L,PDdissipationNth1gt22,kmadd(J23L,PDdissipationNth2gt22,kmul(J33L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth3gt23 = 
-        kmadd(J13L,PDdissipationNth1gt23,kmadd(J23L,PDdissipationNth2gt23,kmul(J33L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth3gt33 = 
-        kmadd(J13L,PDdissipationNth1gt33,kmadd(J23L,PDdissipationNth2gt33,kmul(J33L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth3phi = 
-        kmadd(J13L,PDdissipationNth1phi,kmadd(J23L,PDdissipationNth2phi,kmul(J33L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth3trK = 
-        kmadd(J13L,PDdissipationNth1trK,kmadd(J23L,PDdissipationNth2trK,kmul(J33L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth3Xt1 = 
-        kmadd(J13L,PDdissipationNth1Xt1,kmadd(J23L,PDdissipationNth2Xt1,kmul(J33L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth3Xt2 = 
-        kmadd(J13L,PDdissipationNth1Xt2,kmadd(J23L,PDdissipationNth2Xt2,kmul(J33L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth3Xt3 = 
-        kmadd(J13L,PDdissipationNth1Xt3,kmadd(J23L,PDdissipationNth2Xt3,kmul(J33L,PDdissipationNth3Xt3)));
-    }
-    else
-    {
-      JacPDdissipationNth1A = PDdissipationNth1A;
-      
-      JacPDdissipationNth1alpha = PDdissipationNth1alpha;
-      
-      JacPDdissipationNth1At11 = PDdissipationNth1At11;
-      
-      JacPDdissipationNth1At12 = PDdissipationNth1At12;
-      
-      JacPDdissipationNth1At13 = PDdissipationNth1At13;
-      
-      JacPDdissipationNth1At22 = PDdissipationNth1At22;
-      
-      JacPDdissipationNth1At23 = PDdissipationNth1At23;
-      
-      JacPDdissipationNth1At33 = PDdissipationNth1At33;
-      
-      JacPDdissipationNth1B1 = PDdissipationNth1B1;
-      
-      JacPDdissipationNth1B2 = PDdissipationNth1B2;
-      
-      JacPDdissipationNth1B3 = PDdissipationNth1B3;
-      
-      JacPDdissipationNth1beta1 = PDdissipationNth1beta1;
-      
-      JacPDdissipationNth1beta2 = PDdissipationNth1beta2;
-      
-      JacPDdissipationNth1beta3 = PDdissipationNth1beta3;
-      
-      JacPDdissipationNth1gt11 = PDdissipationNth1gt11;
-      
-      JacPDdissipationNth1gt12 = PDdissipationNth1gt12;
-      
-      JacPDdissipationNth1gt13 = PDdissipationNth1gt13;
-      
-      JacPDdissipationNth1gt22 = PDdissipationNth1gt22;
-      
-      JacPDdissipationNth1gt23 = PDdissipationNth1gt23;
-      
-      JacPDdissipationNth1gt33 = PDdissipationNth1gt33;
-      
-      JacPDdissipationNth1phi = PDdissipationNth1phi;
-      
-      JacPDdissipationNth1trK = PDdissipationNth1trK;
-      
-      JacPDdissipationNth1Xt1 = PDdissipationNth1Xt1;
-      
-      JacPDdissipationNth1Xt2 = PDdissipationNth1Xt2;
-      
-      JacPDdissipationNth1Xt3 = PDdissipationNth1Xt3;
-      
-      JacPDdissipationNth2A = PDdissipationNth2A;
-      
-      JacPDdissipationNth2alpha = PDdissipationNth2alpha;
-      
-      JacPDdissipationNth2At11 = PDdissipationNth2At11;
-      
-      JacPDdissipationNth2At12 = PDdissipationNth2At12;
-      
-      JacPDdissipationNth2At13 = PDdissipationNth2At13;
-      
-      JacPDdissipationNth2At22 = PDdissipationNth2At22;
-      
-      JacPDdissipationNth2At23 = PDdissipationNth2At23;
-      
-      JacPDdissipationNth2At33 = PDdissipationNth2At33;
-      
-      JacPDdissipationNth2B1 = PDdissipationNth2B1;
-      
-      JacPDdissipationNth2B2 = PDdissipationNth2B2;
-      
-      JacPDdissipationNth2B3 = PDdissipationNth2B3;
-      
-      JacPDdissipationNth2beta1 = PDdissipationNth2beta1;
-      
-      JacPDdissipationNth2beta2 = PDdissipationNth2beta2;
-      
-      JacPDdissipationNth2beta3 = PDdissipationNth2beta3;
-      
-      JacPDdissipationNth2gt11 = PDdissipationNth2gt11;
-      
-      JacPDdissipationNth2gt12 = PDdissipationNth2gt12;
-      
-      JacPDdissipationNth2gt13 = PDdissipationNth2gt13;
-      
-      JacPDdissipationNth2gt22 = PDdissipationNth2gt22;
-      
-      JacPDdissipationNth2gt23 = PDdissipationNth2gt23;
-      
-      JacPDdissipationNth2gt33 = PDdissipationNth2gt33;
-      
-      JacPDdissipationNth2phi = PDdissipationNth2phi;
-      
-      JacPDdissipationNth2trK = PDdissipationNth2trK;
-      
-      JacPDdissipationNth2Xt1 = PDdissipationNth2Xt1;
-      
-      JacPDdissipationNth2Xt2 = PDdissipationNth2Xt2;
-      
-      JacPDdissipationNth2Xt3 = PDdissipationNth2Xt3;
-      
-      JacPDdissipationNth3A = PDdissipationNth3A;
-      
-      JacPDdissipationNth3alpha = PDdissipationNth3alpha;
-      
-      JacPDdissipationNth3At11 = PDdissipationNth3At11;
-      
-      JacPDdissipationNth3At12 = PDdissipationNth3At12;
-      
-      JacPDdissipationNth3At13 = PDdissipationNth3At13;
-      
-      JacPDdissipationNth3At22 = PDdissipationNth3At22;
-      
-      JacPDdissipationNth3At23 = PDdissipationNth3At23;
-      
-      JacPDdissipationNth3At33 = PDdissipationNth3At33;
-      
-      JacPDdissipationNth3B1 = PDdissipationNth3B1;
-      
-      JacPDdissipationNth3B2 = PDdissipationNth3B2;
-      
-      JacPDdissipationNth3B3 = PDdissipationNth3B3;
-      
-      JacPDdissipationNth3beta1 = PDdissipationNth3beta1;
-      
-      JacPDdissipationNth3beta2 = PDdissipationNth3beta2;
-      
-      JacPDdissipationNth3beta3 = PDdissipationNth3beta3;
-      
-      JacPDdissipationNth3gt11 = PDdissipationNth3gt11;
-      
-      JacPDdissipationNth3gt12 = PDdissipationNth3gt12;
-      
-      JacPDdissipationNth3gt13 = PDdissipationNth3gt13;
-      
-      JacPDdissipationNth3gt22 = PDdissipationNth3gt22;
-      
-      JacPDdissipationNth3gt23 = PDdissipationNth3gt23;
-      
-      JacPDdissipationNth3gt33 = PDdissipationNth3gt33;
-      
-      JacPDdissipationNth3phi = PDdissipationNth3phi;
-      
-      JacPDdissipationNth3trK = PDdissipationNth3trK;
-      
-      JacPDdissipationNth3Xt1 = PDdissipationNth3Xt1;
-      
-      JacPDdissipationNth3Xt2 = PDdissipationNth3Xt2;
-      
-      JacPDdissipationNth3Xt3 = PDdissipationNth3Xt3;
-    }
-    
-    CCTK_REAL_VEC epsdiss1 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss2 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss3 = ToReal(EpsDiss);
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(epsdiss1,JacPDdissipationNth1phi,kmadd(epsdiss2,JacPDdissipationNth2phi,kmul(epsdiss3,JacPDdissipationNth3phi))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt11,kmadd(epsdiss2,JacPDdissipationNth2gt11,kmul(epsdiss3,JacPDdissipationNth3gt11))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt12,kmadd(epsdiss2,JacPDdissipationNth2gt12,kmul(epsdiss3,JacPDdissipationNth3gt12))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt13,kmadd(epsdiss2,JacPDdissipationNth2gt13,kmul(epsdiss3,JacPDdissipationNth3gt13))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt22,kmadd(epsdiss2,JacPDdissipationNth2gt22,kmul(epsdiss3,JacPDdissipationNth3gt22))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt23,kmadd(epsdiss2,JacPDdissipationNth2gt23,kmul(epsdiss3,JacPDdissipationNth3gt23))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt33,kmadd(epsdiss2,JacPDdissipationNth2gt33,kmul(epsdiss3,JacPDdissipationNth3gt33))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt1,kmadd(epsdiss2,JacPDdissipationNth2Xt1,kmul(epsdiss3,JacPDdissipationNth3Xt1))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt2,kmadd(epsdiss2,JacPDdissipationNth2Xt2,kmul(epsdiss3,JacPDdissipationNth3Xt2))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt3,kmadd(epsdiss2,JacPDdissipationNth2Xt3,kmul(epsdiss3,JacPDdissipationNth3Xt3))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(epsdiss1,JacPDdissipationNth1trK,kmadd(epsdiss2,JacPDdissipationNth2trK,kmul(epsdiss3,JacPDdissipationNth3trK))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(epsdiss1,JacPDdissipationNth1At11,kmadd(epsdiss2,JacPDdissipationNth2At11,kmul(epsdiss3,JacPDdissipationNth3At11))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(epsdiss1,JacPDdissipationNth1At12,kmadd(epsdiss2,JacPDdissipationNth2At12,kmul(epsdiss3,JacPDdissipationNth3At12))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(epsdiss1,JacPDdissipationNth1At13,kmadd(epsdiss2,JacPDdissipationNth2At13,kmul(epsdiss3,JacPDdissipationNth3At13))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(epsdiss1,JacPDdissipationNth1At22,kmadd(epsdiss2,JacPDdissipationNth2At22,kmul(epsdiss3,JacPDdissipationNth3At22))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(epsdiss1,JacPDdissipationNth1At23,kmadd(epsdiss2,JacPDdissipationNth2At23,kmul(epsdiss3,JacPDdissipationNth3At23))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(epsdiss1,JacPDdissipationNth1At33,kmadd(epsdiss2,JacPDdissipationNth2At33,kmul(epsdiss3,JacPDdissipationNth3At33))));
-    
-    alpharhsL = 
-      kadd(alpharhsL,kmadd(epsdiss1,JacPDdissipationNth1alpha,kmadd(epsdiss2,JacPDdissipationNth2alpha,kmul(epsdiss3,JacPDdissipationNth3alpha))));
-    
-    ArhsL = 
-      kadd(ArhsL,kmadd(epsdiss1,JacPDdissipationNth1A,kmadd(epsdiss2,JacPDdissipationNth2A,kmul(epsdiss3,JacPDdissipationNth3A))));
-    
-    beta1rhsL = 
-      kadd(beta1rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta1,kmadd(epsdiss2,JacPDdissipationNth2beta1,kmul(epsdiss3,JacPDdissipationNth3beta1))));
-    
-    beta2rhsL = 
-      kadd(beta2rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta2,kmadd(epsdiss2,JacPDdissipationNth2beta2,kmul(epsdiss3,JacPDdissipationNth3beta2))));
-    
-    beta3rhsL = 
-      kadd(beta3rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta3,kmadd(epsdiss2,JacPDdissipationNth2beta3,kmul(epsdiss3,JacPDdissipationNth3beta3))));
-    
-    B1rhsL = 
-      kadd(B1rhsL,kmadd(epsdiss1,JacPDdissipationNth1B1,kmadd(epsdiss2,JacPDdissipationNth2B1,kmul(epsdiss3,JacPDdissipationNth3B1))));
-    
-    B2rhsL = 
-      kadd(B2rhsL,kmadd(epsdiss1,JacPDdissipationNth1B2,kmadd(epsdiss2,JacPDdissipationNth2B2,kmul(epsdiss3,JacPDdissipationNth3B2))));
-    
-    B3rhsL = 
-      kadd(B3rhsL,kmadd(epsdiss1,JacPDdissipationNth1B3,kmadd(epsdiss2,JacPDdissipationNth2B3,kmul(epsdiss3,JacPDdissipationNth3B3))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_Dissipation);
-}
-
-extern "C" void ML_BSSN_O8_Dissipation(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_Dissipation_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_Dissipation_calc_every != ML_BSSN_O8_Dissipation_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_curvrhs",
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtlapserhs",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_dtshiftrhs",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_Gammarhs",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_lapserhs",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_log_confacrhs",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_metricrhs",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_shiftrhs",
-    "ML_BSSN_O8::ML_trace_curv",
-    "ML_BSSN_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_Dissipation", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_Dissipation", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_Dissipation", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_Dissipation", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_Dissipation", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O8_Dissipation_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_Dissipation_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_InitGamma.cc b/ML_BSSN_O8/src/ML_BSSN_O8_InitGamma.cc
deleted file mode 100644
index 4bfcc04..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_InitGamma.cc
+++ /dev/null
@@ -1,295 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O8_InitGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_InitGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_InitGamma);
-}
-
-extern "C" void ML_BSSN_O8_InitGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_InitGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_InitGamma_calc_every != ML_BSSN_O8_InitGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_Gamma"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_InitGamma", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O8_InitGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_InitGamma_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_InitRHS.cc b/ML_BSSN_O8/src/ML_BSSN_O8_InitRHS.cc
deleted file mode 100644
index 7b85d13..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_InitRHS.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O8_InitRHS_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_InitRHS,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_InitRHS);
-}
-
-extern "C" void ML_BSSN_O8_InitRHS(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_InitRHS_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_InitRHS_calc_every != ML_BSSN_O8_InitRHS_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_curvrhs",
-    "ML_BSSN_O8::ML_dtlapserhs",
-    "ML_BSSN_O8::ML_dtshiftrhs",
-    "ML_BSSN_O8::ML_Gammarhs",
-    "ML_BSSN_O8::ML_lapserhs",
-    "ML_BSSN_O8::ML_log_confacrhs",
-    "ML_BSSN_O8::ML_metricrhs",
-    "ML_BSSN_O8::ML_shiftrhs",
-    "ML_BSSN_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_InitRHS", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O8_InitRHS_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_InitRHS_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_Minkowski.cc b/ML_BSSN_O8/src/ML_BSSN_O8_Minkowski.cc
deleted file mode 100644
index d86dee6..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_Minkowski.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O8_Minkowski_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_Minkowski,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_Minkowski);
-}
-
-extern "C" void ML_BSSN_O8_Minkowski(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_Minkowski_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_Minkowski_calc_every != ML_BSSN_O8_Minkowski_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_Minkowski", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O8_Minkowski_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_Minkowski_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_RHS1.cc b/ML_BSSN_O8/src/ML_BSSN_O8_RHS1.cc
deleted file mode 100644
index 0e99354..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_RHS1.cc
+++ /dev/null
@@ -1,1467 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_RHS1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O8_RHS1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_RHS1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth11beta1;
-    CCTK_REAL_VEC PDstandardNth22beta1;
-    CCTK_REAL_VEC PDstandardNth33beta1;
-    CCTK_REAL_VEC PDstandardNth12beta1;
-    CCTK_REAL_VEC PDstandardNth13beta1;
-    CCTK_REAL_VEC PDstandardNth23beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth11beta2;
-    CCTK_REAL_VEC PDstandardNth22beta2;
-    CCTK_REAL_VEC PDstandardNth33beta2;
-    CCTK_REAL_VEC PDstandardNth12beta2;
-    CCTK_REAL_VEC PDstandardNth13beta2;
-    CCTK_REAL_VEC PDstandardNth23beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth11beta3;
-    CCTK_REAL_VEC PDstandardNth22beta3;
-    CCTK_REAL_VEC PDstandardNth33beta3;
-    CCTK_REAL_VEC PDstandardNth12beta3;
-    CCTK_REAL_VEC PDstandardNth13beta3;
-    CCTK_REAL_VEC PDstandardNth23beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder211(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder222(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder233(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder212(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder213(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder223(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder211(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder222(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder233(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder212(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder213(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder223(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder211(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder222(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder233(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder212(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder213(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder223(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder411(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder422(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder433(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder412(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder413(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder423(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder411(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder422(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder433(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder412(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder413(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder423(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder411(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder422(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder433(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder412(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder413(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder423(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder611(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder622(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder633(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder612(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder613(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder623(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder611(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder622(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder633(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder612(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder613(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder623(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder611(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder622(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder633(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder612(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder613(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder623(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder811(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder822(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder833(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder812(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder813(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder823(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder811(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder822(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder833(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder812(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder813(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder823(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder811(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder822(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder833(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder812(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder813(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder823(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11beta1;
-    CCTK_REAL_VEC JacPDstandardNth11beta2;
-    CCTK_REAL_VEC JacPDstandardNth11beta3;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12beta1;
-    CCTK_REAL_VEC JacPDstandardNth12beta2;
-    CCTK_REAL_VEC JacPDstandardNth12beta3;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13beta1;
-    CCTK_REAL_VEC JacPDstandardNth13beta2;
-    CCTK_REAL_VEC JacPDstandardNth13beta3;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth21alpha;
-    CCTK_REAL_VEC JacPDstandardNth21beta1;
-    CCTK_REAL_VEC JacPDstandardNth21beta2;
-    CCTK_REAL_VEC JacPDstandardNth21beta3;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22beta1;
-    CCTK_REAL_VEC JacPDstandardNth22beta2;
-    CCTK_REAL_VEC JacPDstandardNth22beta3;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23beta1;
-    CCTK_REAL_VEC JacPDstandardNth23beta2;
-    CCTK_REAL_VEC JacPDstandardNth23beta3;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth31alpha;
-    CCTK_REAL_VEC JacPDstandardNth31beta1;
-    CCTK_REAL_VEC JacPDstandardNth31beta2;
-    CCTK_REAL_VEC JacPDstandardNth31beta3;
-    CCTK_REAL_VEC JacPDstandardNth32alpha;
-    CCTK_REAL_VEC JacPDstandardNth32beta1;
-    CCTK_REAL_VEC JacPDstandardNth32beta2;
-    CCTK_REAL_VEC JacPDstandardNth32beta3;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33beta1;
-    CCTK_REAL_VEC JacPDstandardNth33beta2;
-    CCTK_REAL_VEC JacPDstandardNth33beta3;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta1 = 
-        kmadd(dJ111L,PDstandardNth1beta1,kmadd(dJ211L,PDstandardNth2beta1,kmadd(dJ311L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J11L),kmadd(PDstandardNth22beta1,SQR(J21L),kmadd(PDstandardNth33beta1,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1)),kmul(J21L,kmul(J31L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta2 = 
-        kmadd(dJ111L,PDstandardNth1beta2,kmadd(dJ211L,PDstandardNth2beta2,kmadd(dJ311L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J11L),kmadd(PDstandardNth22beta2,SQR(J21L),kmadd(PDstandardNth33beta2,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2)),kmul(J21L,kmul(J31L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta3 = 
-        kmadd(dJ111L,PDstandardNth1beta3,kmadd(dJ211L,PDstandardNth2beta3,kmadd(dJ311L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J11L),kmadd(PDstandardNth22beta3,SQR(J21L),kmadd(PDstandardNth33beta3,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3)),kmul(J21L,kmul(J31L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta1 = 
-        kmadd(dJ122L,PDstandardNth1beta1,kmadd(dJ222L,PDstandardNth2beta1,kmadd(dJ322L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J12L),kmadd(PDstandardNth22beta1,SQR(J22L),kmadd(PDstandardNth33beta1,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmul(J22L,kmul(J32L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta2 = 
-        kmadd(dJ122L,PDstandardNth1beta2,kmadd(dJ222L,PDstandardNth2beta2,kmadd(dJ322L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J12L),kmadd(PDstandardNth22beta2,SQR(J22L),kmadd(PDstandardNth33beta2,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmul(J22L,kmul(J32L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta3 = 
-        kmadd(dJ122L,PDstandardNth1beta3,kmadd(dJ222L,PDstandardNth2beta3,kmadd(dJ322L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J12L),kmadd(PDstandardNth22beta3,SQR(J22L),kmadd(PDstandardNth33beta3,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmul(J22L,kmul(J32L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta1 = 
-        kmadd(dJ133L,PDstandardNth1beta1,kmadd(dJ233L,PDstandardNth2beta1,kmadd(dJ333L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J13L),kmadd(PDstandardNth22beta1,SQR(J23L),kmadd(PDstandardNth33beta1,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmul(J23L,kmul(J33L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta2 = 
-        kmadd(dJ133L,PDstandardNth1beta2,kmadd(dJ233L,PDstandardNth2beta2,kmadd(dJ333L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J13L),kmadd(PDstandardNth22beta2,SQR(J23L),kmadd(PDstandardNth33beta2,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmul(J23L,kmul(J33L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta3 = 
-        kmadd(dJ133L,PDstandardNth1beta3,kmadd(dJ233L,PDstandardNth2beta3,kmadd(dJ333L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J13L),kmadd(PDstandardNth22beta3,SQR(J23L),kmadd(PDstandardNth33beta3,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmul(J23L,kmul(J33L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth12beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth12beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth13beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth13beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth21alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth21beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth21beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth21beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth23beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth23beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth31alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth31beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth31beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth31beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth32alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth32beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth32beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth32beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11beta1 = PDstandardNth11beta1;
-      
-      JacPDstandardNth11beta2 = PDstandardNth11beta2;
-      
-      JacPDstandardNth11beta3 = PDstandardNth11beta3;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22beta1 = PDstandardNth22beta1;
-      
-      JacPDstandardNth22beta2 = PDstandardNth22beta2;
-      
-      JacPDstandardNth22beta3 = PDstandardNth22beta3;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33beta1 = PDstandardNth33beta1;
-      
-      JacPDstandardNth33beta2 = PDstandardNth33beta2;
-      
-      JacPDstandardNth33beta3 = PDstandardNth33beta3;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth12beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth12beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth13beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth13beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth21alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth21beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth21beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth21beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth23beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth23beta3 = PDstandardNth23beta3;
-      
-      JacPDstandardNth31alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth31beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth31beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth31beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth32alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth32beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth32beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth32beta3 = PDstandardNth23beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC Atu11 = 
-      kmadd(Atm11,gtu11,kmadd(Atm12,gtu12,kmul(Atm13,gtu13)));
-    
-    CCTK_REAL_VEC Atu12 = 
-      kmadd(Atm11,gtu12,kmadd(Atm12,gtu22,kmul(Atm13,gtu23)));
-    
-    CCTK_REAL_VEC Atu13 = 
-      kmadd(Atm11,gtu13,kmadd(Atm12,gtu23,kmul(Atm13,gtu33)));
-    
-    CCTK_REAL_VEC Atu22 = 
-      kmadd(Atm21,gtu12,kmadd(Atm22,gtu22,kmul(Atm23,gtu23)));
-    
-    CCTK_REAL_VEC Atu23 = 
-      kmadd(Atm21,gtu13,kmadd(Atm22,gtu23,kmul(Atm23,gtu33)));
-    
-    CCTK_REAL_VEC Atu33 = 
-      kmadd(Atm31,gtu13,kmadd(Atm32,gtu23,kmul(Atm33,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC phirhsL = kneg(kmul(IfThen(conformalMethod == 
-      1,kmul(phiL,ToReal(0.333333333333333333333333333333)),ToReal(-0.166666666666666666666666666667)),kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,knmsub(alphaL,trKL,JacPDstandardNth3beta3)))));
-    
-    CCTK_REAL_VEC gt11rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth1beta2,kmul(gt13L,JacPDstandardNth1beta3)),ToReal(-3),kmadd(gt11L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At11L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt12rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At12L,ToReal(-6)),kmadd(gt12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(kmadd(gt22L,JacPDstandardNth1beta2,kmadd(gt23L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth2beta1,kmul(gt13L,JacPDstandardNth2beta3)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt13rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At13L,ToReal(-6)),kmadd(gt13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt23L,JacPDstandardNth1beta2,kmadd(gt33L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth3beta1,kmul(gt12L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt22rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth2beta1,kmul(gt23L,JacPDstandardNth2beta3)),ToReal(-3),kmadd(gt22L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At22L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt23rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At23L,ToReal(-6)),kmadd(gt23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt13L,JacPDstandardNth2beta1,kmadd(gt33L,JacPDstandardNth2beta3,kmadd(gt12L,JacPDstandardNth3beta1,kmul(gt22L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt33rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt13L,JacPDstandardNth3beta1,kmul(gt23L,JacPDstandardNth3beta2)),ToReal(-3),kmadd(gt33L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(alphaL,kmul(At33L,ToReal(3))))));
-    
-    CCTK_REAL_VEC dotXt1 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu11,JacPDstandardNth1alpha,kmadd(Atu12,JacPDstandardNth2alpha,kmul(Atu13,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth2beta1,Xtn2,kmul(JacPDstandardNth3beta1,Xtn3)),ToReal(-3),kmadd(Xtn1,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth1beta1),kmadd(kmadd(gtu12,JacPDstandardNth12beta1,kmadd(gtu13,JacPDstandardNth13beta1,kmadd(gtu22,JacPDstandardNth22beta1,kmadd(gtu23,kadd(JacPDstandardNth23beta1,JacPDstandardNth32beta1),kmul(gtu33,JacPDstandardNth33beta1))))),ToReal(3),kmadd(gtu11,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth11beta1,ToReal(4),JacPDstandardNth13beta3)),kmadd(gtu12,kadd(JacPDstandardNth22beta2,kmadd(JacPDstandardNth21beta1,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu13,kadd(JacPDstandardNth32beta2,kmadd(JacPDstandardNth31beta1,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth2beta2,Xtn1,kmul(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1trK,kmadd(gtu12,JacPDstandardNth2trK,kmul(gtu13,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu23,Gt123,kmul(Atu12,kmadd(cdphi2,ToReal(3),Gt112))),ToReal(6),kmadd(ToReal(3),kmadd(Atu22,Gt122,kmadd(Atu33,Gt133,kmul(Atu11,kmadd(cdphi1,ToReal(6),Gt111)))),kmadd(Atu13,kmadd(Gt113,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu11,S1,kmadd(gtu12,S2,kmul(gtu13,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt2 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu12,JacPDstandardNth1alpha,kmadd(Atu22,JacPDstandardNth2alpha,kmul(Atu23,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta2,Xtn1,kmul(JacPDstandardNth3beta2,Xtn3)),ToReal(-3),kmadd(Xtn2,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth2beta2),kmadd(kmadd(gtu11,JacPDstandardNth11beta2,kmadd(gtu23,JacPDstandardNth23beta2,kmadd(gtu13,kadd(JacPDstandardNth13beta2,JacPDstandardNth31beta2),kmul(gtu33,JacPDstandardNth33beta2)))),ToReal(3),kmadd(gtu12,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth13beta3,kmadd(JacPDstandardNth21beta2,ToReal(3),kmul(JacPDstandardNth12beta2,ToReal(4))))),kmadd(gtu22,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth22beta2,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu23,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth32beta2,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn2,kmul(alphaL,kmadd(kmadd(gtu12,JacPDstandardNth1trK,kmadd(gtu22,JacPDstandardNth2trK,kmul(gtu23,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu13,Gt213,kmul(Atu12,kmadd(cdphi1,ToReal(3),Gt212))),ToReal(6),kmadd(ToReal(3),kmadd(Atu11,Gt211,kmadd(Atu33,Gt233,kmul(Atu22,kmadd(cdphi2,ToReal(6),Gt222)))),kmadd(Atu23,kmadd(Gt223,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu12,S1,kmadd(gtu22,S2,kmul(gtu23,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt3 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu13,JacPDstandardNth1alpha,kmadd(Atu23,JacPDstandardNth2alpha,kmul(Atu33,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta3,Xtn1,kmul(JacPDstandardNth2beta3,Xtn2)),ToReal(-3),kmadd(Xtn3,kmsub(JacPDstandardNth2beta2,ToReal(2),JacPDstandardNth3beta3),kmadd(kmadd(gtu11,JacPDstandardNth11beta3,kmadd(gtu12,kadd(JacPDstandardNth12beta3,JacPDstandardNth21beta3),kmadd(gtu22,JacPDstandardNth22beta3,kmul(gtu23,JacPDstandardNth32beta3)))),ToReal(3),kmadd(gtu13,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth31beta3,ToReal(3),kmul(JacPDstandardNth13beta3,ToReal(4))))),kmadd(gtu23,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth23beta3,ToReal(4),JacPDstandardNth22beta2)),kmadd(gtu33,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth33beta3,ToReal(4),JacPDstandardNth32beta2)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn3,kmul(alphaL,kmadd(kmadd(gtu13,JacPDstandardNth1trK,kmadd(gtu23,JacPDstandardNth2trK,kmul(gtu33,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu11,Gt311,kmul(Atu22,Gt322)),ToReal(3),kmadd(kmadd(Atu12,Gt312,kmadd(Atu13,kmadd(cdphi1,ToReal(3),Gt313),kmul(Atu23,kmadd(cdphi2,ToReal(3),Gt323)))),ToReal(6),kmadd(Atu33,kmadd(Gt333,ToReal(3),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu13,S1,kmadd(gtu23,S2,kmul(gtu33,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC Xt1rhsL = dotXt1;
-    
-    CCTK_REAL_VEC Xt2rhsL = dotXt2;
-    
-    CCTK_REAL_VEC Xt3rhsL = dotXt3;
-    
-    CCTK_REAL_VEC dottrK = 
-      kmsub(alphaL,kadd(SQR(Atm11),kadd(SQR(Atm22),kadd(SQR(Atm33),kmadd(SQR(trKL),ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(2),kmul(kadd(rho,trS),kmul(ToReal(4),ToReal(Pi)))))))),kmul(em4phi,knmsub(JacPDstandardNth1alpha,Xtn1,knmsub(JacPDstandardNth2alpha,Xtn2,knmsub(JacPDstandardNth3alpha,Xtn3,kmadd(gtu11,kmadd(cdphi1,kmul(JacPDstandardNth1alpha,ToReal(2)),JacPDstandardNth11alpha),kmadd(gtu12,kadd(JacPDstandardNth12alpha,kadd(JacPDstandardNth21alpha,kmadd(cdphi2,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth2alpha,ToReal(2)))))),kmadd(gtu22,kmadd(cdphi2,kmul(JacPDstandardNth2alpha,ToReal(2)),JacPDstandardNth22alpha),kmadd(gtu13,kadd(JacPDstandardNth13alpha,kadd(JacPDstandardNth31alpha,kmadd(cdphi3,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmadd(gtu23,kadd(JacPDstandardNth23alpha,kadd(JacPDstandardNth32alpha,kmadd(cdphi3,kmul(JacPDstandardNth2alpha,ToReal(2)),kmul(cdphi2,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmul(gtu33,kmadd(cdphi3,kmul(JacPDstandardNth3alpha,ToReal(2)),JacPDstandardNth33alpha))))))))))));
-    
-    CCTK_REAL_VEC trKrhsL = dottrK;
-    
-    CCTK_REAL_VEC alpharhsL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmadd(kadd(alphaL,ToReal(-1)),ToReal(AlphaDriver),trKL),ksub(ToReal(1),ToReal(LapseACoeff)))))));
-    
-    CCTK_REAL_VEC ArhsL = 
-      kmul(knmsub(AL,ToReal(AlphaDriver),dottrK),ToReal(LapseACoeff));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC beta1rhsL;
-    CCTK_REAL_VEC beta2rhsL;
-    CCTK_REAL_VEC beta3rhsL;
-    
-    if (harmonicShift)
-    {
-      beta1rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4)))))))))))))))));
-      
-      beta2rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4))))))))))))))))));
-      
-      beta3rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4))))))))))))))))));
-    }
-    else
-    {
-      beta1rhsL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta2rhsL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta3rhsL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    CCTK_REAL_VEC B1rhsL = 
-      kmul(knmsub(B1L,kmul(eta,ToReal(BetaDriver)),dotXt1),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B2rhsL = 
-      kmul(knmsub(B2L,kmul(eta,ToReal(BetaDriver)),dotXt2),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B3rhsL = 
-      kmul(knmsub(B3L,kmul(eta,ToReal(BetaDriver)),dotXt3),ToReal(ShiftBCoeff));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_RHS1);
-}
-
-extern "C" void ML_BSSN_O8_RHS1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_RHS1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_RHS1_calc_every != ML_BSSN_O8_RHS1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtlapserhs",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_dtshiftrhs",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_Gammarhs",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_lapserhs",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_log_confacrhs",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_metricrhs",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_shiftrhs",
-    "ML_BSSN_O8::ML_trace_curv",
-    "ML_BSSN_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_RHS1", 19, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_RHS1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_RHS1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_RHS1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_RHS1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O8_RHS1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_RHS1_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_RHS2.cc b/ML_BSSN_O8/src/ML_BSSN_O8_RHS2.cc
deleted file mode 100644
index 679510f..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_RHS2.cc
+++ /dev/null
@@ -1,1869 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_RHS2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O8_RHS2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_RHS2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC g11 = kmul(gt11L,e4phi);
-    
-    CCTK_REAL_VEC g12 = kmul(gt12L,e4phi);
-    
-    CCTK_REAL_VEC g13 = kmul(gt13L,e4phi);
-    
-    CCTK_REAL_VEC g22 = kmul(gt22L,e4phi);
-    
-    CCTK_REAL_VEC g23 = kmul(gt23L,e4phi);
-    
-    CCTK_REAL_VEC g33 = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC Ats11 = 
-      kmadd(Gt211,JacPDstandardNth2alpha,kmadd(Gt311,JacPDstandardNth3alpha,kmadd(alphaL,R11,kmsub(JacPDstandardNth1alpha,kmadd(cdphi1,ToReal(4),Gt111),JacPDstandardNth11alpha))));
-    
-    CCTK_REAL_VEC Ats12 = 
-      kmadd(Gt312,JacPDstandardNth3alpha,kmadd(alphaL,R12,ksub(kmadd(JacPDstandardNth2alpha,kmadd(cdphi1,ToReal(2),Gt212),kmul(JacPDstandardNth1alpha,kmadd(cdphi2,ToReal(2),Gt112))),JacPDstandardNth12alpha)));
-    
-    CCTK_REAL_VEC Ats13 = 
-      kmadd(Gt213,JacPDstandardNth2alpha,kmadd(alphaL,R13,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi1,ToReal(2),Gt313),kmul(JacPDstandardNth1alpha,kmadd(cdphi3,ToReal(2),Gt113))),JacPDstandardNth13alpha)));
-    
-    CCTK_REAL_VEC Ats22 = 
-      kmadd(Gt122,JacPDstandardNth1alpha,kmadd(Gt322,JacPDstandardNth3alpha,kmadd(alphaL,R22,kmsub(JacPDstandardNth2alpha,kmadd(cdphi2,ToReal(4),Gt222),JacPDstandardNth22alpha))));
-    
-    CCTK_REAL_VEC Ats23 = 
-      kmadd(Gt123,JacPDstandardNth1alpha,kmadd(alphaL,R23,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi2,ToReal(2),Gt323),kmul(JacPDstandardNth2alpha,kmadd(cdphi3,ToReal(2),Gt223))),JacPDstandardNth23alpha)));
-    
-    CCTK_REAL_VEC Ats33 = 
-      kmadd(Gt133,JacPDstandardNth1alpha,kmadd(Gt233,JacPDstandardNth2alpha,kmadd(alphaL,R33,kmsub(JacPDstandardNth3alpha,kmadd(cdphi3,ToReal(4),Gt333),JacPDstandardNth33alpha))));
-    
-    CCTK_REAL_VEC trAts = 
-      kmadd(Ats11,gu11,kmadd(Ats22,gu22,kmadd(Ats33,gu33,kmul(kmadd(Ats12,gu12,kmadd(Ats13,gu13,kmul(Ats23,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats11,ToReal(3),kmul(g11,trAts)),kmadd(At11L,kmadd(kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth1beta1,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth1beta2,kmul(At13L,JacPDstandardNth1beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm21,kmul(At13L,Atm31)),ToReal(6),kmadd(At11L,kmadd(trKL,ToReal(-3),kmul(Atm11,ToReal(6))),kmul(em4phi,kmul(kmadd(g11,kmul(trS,ToReal(-8)),kmul(eTxxL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At12rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmsub(kmadd(Ats12,em4phi,kmadd(At22L,JacPDstandardNth1beta2,kmadd(At23L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth2beta1,kmul(At13L,JacPDstandardNth2beta3))))),ToReal(3),kmul(em4phi,kmul(g12,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm12,kmul(At13L,Atm32)),ToReal(-2),kmadd(At12L,kmadd(Atm22,ToReal(-2),trKL),kmul(em4phi,kmadd(g12,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxyL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At13rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats13,em4phi,kmadd(At23L,JacPDstandardNth1beta2,kmadd(At33L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth3beta1,kmul(At12L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g13,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm13,kmul(At12L,Atm23)),ToReal(-2),kmadd(At13L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g13,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At22rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats22,ToReal(3),kmul(g22,trAts)),kmadd(At22L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth2beta2,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth2beta1,kmul(At23L,JacPDstandardNth2beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm12,kmul(At23L,Atm32)),ToReal(6),kmadd(At22L,kmadd(trKL,ToReal(-3),kmul(Atm22,ToReal(6))),kmul(em4phi,kmul(kmadd(g22,kmul(trS,ToReal(-8)),kmul(eTyyL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At23rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats23,em4phi,kmadd(At13L,JacPDstandardNth2beta1,kmadd(At33L,JacPDstandardNth2beta3,kmadd(At12L,JacPDstandardNth3beta1,kmul(At22L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g23,trAts)))),kmul(alphaL,kmadd(kmadd(At12L,Atm13,kmul(At22L,Atm23)),ToReal(-2),kmadd(At23L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g23,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTyzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At33rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats33,ToReal(3),kmul(g33,trAts)),kmadd(At33L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),ToReal(-2),kmul(JacPDstandardNth3beta3,ToReal(4))),kmsub(kmadd(At13L,JacPDstandardNth3beta1,kmul(At23L,JacPDstandardNth3beta2)),ToReal(6),kmul(alphaL,kmadd(kmadd(At13L,Atm13,kmul(At23L,Atm23)),ToReal(6),kmadd(At33L,kmadd(trKL,ToReal(-3),kmul(Atm33,ToReal(6))),kmul(em4phi,kmul(kmadd(g33,kmul(trS,ToReal(-8)),kmul(eTzzL,ToReal(24))),ToReal(Pi))))))))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_RHS2);
-}
-
-extern "C" void ML_BSSN_O8_RHS2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_RHS2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_RHS2_calc_every != ML_BSSN_O8_RHS2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_curvrhs",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_RHS2", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_RHS2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_RHS2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_RHS2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_RHS2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O8_RHS2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_RHS2_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_RHSStaticBoundary.cc b/ML_BSSN_O8/src/ML_BSSN_O8_RHSStaticBoundary.cc
deleted file mode 100644
index 387b7c4..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_RHSStaticBoundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_RHSStaticBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_O8_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_RHSStaticBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_RHSStaticBoundary);
-}
-
-extern "C" void ML_BSSN_O8_RHSStaticBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_RHSStaticBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_RHSStaticBoundary_calc_every != ML_BSSN_O8_RHSStaticBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_curvrhs",
-    "ML_BSSN_O8::ML_dtlapserhs",
-    "ML_BSSN_O8::ML_dtshiftrhs",
-    "ML_BSSN_O8::ML_Gammarhs",
-    "ML_BSSN_O8::ML_lapserhs",
-    "ML_BSSN_O8::ML_log_confacrhs",
-    "ML_BSSN_O8::ML_metricrhs",
-    "ML_BSSN_O8::ML_shiftrhs",
-    "ML_BSSN_O8::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_RHSStaticBoundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundary(cctkGH, ML_BSSN_O8_RHSStaticBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_RHSStaticBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_boundary.cc b/ML_BSSN_O8/src/ML_BSSN_O8_boundary.cc
deleted file mode 100644
index c4cd116..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_boundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_boundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_curv.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_lapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_lapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_log_confac","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_log_confac.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_metric","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_metric.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_shift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_shift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_trace_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_trace_curv.");
-  return;
-}
-
-static void ML_BSSN_O8_boundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_boundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_boundary);
-}
-
-extern "C" void ML_BSSN_O8_boundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_boundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_boundary_calc_every != ML_BSSN_O8_boundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_boundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_O8_boundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_boundary_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_constraints1.cc b/ML_BSSN_O8/src/ML_BSSN_O8_constraints1.cc
deleted file mode 100644
index 0096166..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_constraints1.cc
+++ /dev/null
@@ -1,1623 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_constraints1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_Ham","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_Ham.");
-  return;
-}
-
-static void ML_BSSN_O8_constraints1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_constraints1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trR = 
-      kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmul(kmadd(gu12,R12,kmadd(gu13,R13,kmul(gu23,R23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC HL = 
-      kadd(trR,kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(-2),ksub(ksub(ksub(kmadd(SQR(trKL),ToReal(0.666666666666666666666666666667),kmul(rho,kmul(ToReal(-16),ToReal(Pi)))),SQR(Atm33)),SQR(Atm22)),SQR(Atm11))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(H[index],HL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_constraints1);
-}
-
-extern "C" void ML_BSSN_O8_constraints1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_constraints1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_constraints1_calc_every != ML_BSSN_O8_constraints1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_Ham",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_constraints1", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_constraints1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_constraints1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_constraints1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_constraints1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O8_constraints1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_constraints1_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_constraints2.cc b/ML_BSSN_O8/src/ML_BSSN_O8_constraints2.cc
deleted file mode 100644
index aa753c6..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_constraints2.cc
+++ /dev/null
@@ -1,1004 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_constraints2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_cons_detg","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_cons_detg.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_cons_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_cons_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_cons_traceA","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_cons_traceA.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_mom","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_mom.");
-  return;
-}
-
-static void ML_BSSN_O8_constraints2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_constraints2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1At11;
-    CCTK_REAL_VEC PDstandardNth2At11;
-    CCTK_REAL_VEC PDstandardNth3At11;
-    CCTK_REAL_VEC PDstandardNth1At12;
-    CCTK_REAL_VEC PDstandardNth2At12;
-    CCTK_REAL_VEC PDstandardNth3At12;
-    CCTK_REAL_VEC PDstandardNth1At13;
-    CCTK_REAL_VEC PDstandardNth2At13;
-    CCTK_REAL_VEC PDstandardNth3At13;
-    CCTK_REAL_VEC PDstandardNth1At22;
-    CCTK_REAL_VEC PDstandardNth2At22;
-    CCTK_REAL_VEC PDstandardNth3At22;
-    CCTK_REAL_VEC PDstandardNth1At23;
-    CCTK_REAL_VEC PDstandardNth2At23;
-    CCTK_REAL_VEC PDstandardNth3At23;
-    CCTK_REAL_VEC PDstandardNth1At33;
-    CCTK_REAL_VEC PDstandardNth2At33;
-    CCTK_REAL_VEC PDstandardNth3At33;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1At11 = PDstandardNthfdOrder21(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder22(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder23(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder21(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder22(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder23(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder21(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder22(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder23(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder21(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder22(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder23(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder21(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder22(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder23(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder21(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder22(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder23(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1At11 = PDstandardNthfdOrder41(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder42(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder43(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder41(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder42(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder43(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder41(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder42(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder43(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder41(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder42(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder43(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder41(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder42(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder43(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder41(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder42(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder43(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1At11 = PDstandardNthfdOrder61(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder62(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder63(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder61(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder62(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder63(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder61(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder62(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder63(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder61(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder62(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder63(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder61(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder62(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder63(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder61(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder62(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder63(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1At11 = PDstandardNthfdOrder81(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder82(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder83(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder81(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder82(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder83(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder81(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder82(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder83(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder81(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder82(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder83(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder81(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder82(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder83(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder81(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder82(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder83(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth1At11;
-    CCTK_REAL_VEC JacPDstandardNth1At12;
-    CCTK_REAL_VEC JacPDstandardNth1At13;
-    CCTK_REAL_VEC JacPDstandardNth1At22;
-    CCTK_REAL_VEC JacPDstandardNth1At23;
-    CCTK_REAL_VEC JacPDstandardNth1At33;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth2At11;
-    CCTK_REAL_VEC JacPDstandardNth2At12;
-    CCTK_REAL_VEC JacPDstandardNth2At13;
-    CCTK_REAL_VEC JacPDstandardNth2At22;
-    CCTK_REAL_VEC JacPDstandardNth2At23;
-    CCTK_REAL_VEC JacPDstandardNth2At33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth3At11;
-    CCTK_REAL_VEC JacPDstandardNth3At12;
-    CCTK_REAL_VEC JacPDstandardNth3At13;
-    CCTK_REAL_VEC JacPDstandardNth3At22;
-    CCTK_REAL_VEC JacPDstandardNth3At23;
-    CCTK_REAL_VEC JacPDstandardNth3At33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1At11 = 
-        kmadd(J11L,PDstandardNth1At11,kmadd(J21L,PDstandardNth2At11,kmul(J31L,PDstandardNth3At11)));
-      
-      JacPDstandardNth1At12 = 
-        kmadd(J11L,PDstandardNth1At12,kmadd(J21L,PDstandardNth2At12,kmul(J31L,PDstandardNth3At12)));
-      
-      JacPDstandardNth1At13 = 
-        kmadd(J11L,PDstandardNth1At13,kmadd(J21L,PDstandardNth2At13,kmul(J31L,PDstandardNth3At13)));
-      
-      JacPDstandardNth1At22 = 
-        kmadd(J11L,PDstandardNth1At22,kmadd(J21L,PDstandardNth2At22,kmul(J31L,PDstandardNth3At22)));
-      
-      JacPDstandardNth1At23 = 
-        kmadd(J11L,PDstandardNth1At23,kmadd(J21L,PDstandardNth2At23,kmul(J31L,PDstandardNth3At23)));
-      
-      JacPDstandardNth1At33 = 
-        kmadd(J11L,PDstandardNth1At33,kmadd(J21L,PDstandardNth2At33,kmul(J31L,PDstandardNth3At33)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2At11 = 
-        kmadd(J12L,PDstandardNth1At11,kmadd(J22L,PDstandardNth2At11,kmul(J32L,PDstandardNth3At11)));
-      
-      JacPDstandardNth2At12 = 
-        kmadd(J12L,PDstandardNth1At12,kmadd(J22L,PDstandardNth2At12,kmul(J32L,PDstandardNth3At12)));
-      
-      JacPDstandardNth2At13 = 
-        kmadd(J12L,PDstandardNth1At13,kmadd(J22L,PDstandardNth2At13,kmul(J32L,PDstandardNth3At13)));
-      
-      JacPDstandardNth2At22 = 
-        kmadd(J12L,PDstandardNth1At22,kmadd(J22L,PDstandardNth2At22,kmul(J32L,PDstandardNth3At22)));
-      
-      JacPDstandardNth2At23 = 
-        kmadd(J12L,PDstandardNth1At23,kmadd(J22L,PDstandardNth2At23,kmul(J32L,PDstandardNth3At23)));
-      
-      JacPDstandardNth2At33 = 
-        kmadd(J12L,PDstandardNth1At33,kmadd(J22L,PDstandardNth2At33,kmul(J32L,PDstandardNth3At33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3At11 = 
-        kmadd(J13L,PDstandardNth1At11,kmadd(J23L,PDstandardNth2At11,kmul(J33L,PDstandardNth3At11)));
-      
-      JacPDstandardNth3At12 = 
-        kmadd(J13L,PDstandardNth1At12,kmadd(J23L,PDstandardNth2At12,kmul(J33L,PDstandardNth3At12)));
-      
-      JacPDstandardNth3At13 = 
-        kmadd(J13L,PDstandardNth1At13,kmadd(J23L,PDstandardNth2At13,kmul(J33L,PDstandardNth3At13)));
-      
-      JacPDstandardNth3At22 = 
-        kmadd(J13L,PDstandardNth1At22,kmadd(J23L,PDstandardNth2At22,kmul(J33L,PDstandardNth3At22)));
-      
-      JacPDstandardNth3At23 = 
-        kmadd(J13L,PDstandardNth1At23,kmadd(J23L,PDstandardNth2At23,kmul(J33L,PDstandardNth3At23)));
-      
-      JacPDstandardNth3At33 = 
-        kmadd(J13L,PDstandardNth1At33,kmadd(J23L,PDstandardNth2At33,kmul(J33L,PDstandardNth3At33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-    }
-    else
-    {
-      JacPDstandardNth1At11 = PDstandardNth1At11;
-      
-      JacPDstandardNth1At12 = PDstandardNth1At12;
-      
-      JacPDstandardNth1At13 = PDstandardNth1At13;
-      
-      JacPDstandardNth1At22 = PDstandardNth1At22;
-      
-      JacPDstandardNth1At23 = PDstandardNth1At23;
-      
-      JacPDstandardNth1At33 = PDstandardNth1At33;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2At11 = PDstandardNth2At11;
-      
-      JacPDstandardNth2At12 = PDstandardNth2At12;
-      
-      JacPDstandardNth2At13 = PDstandardNth2At13;
-      
-      JacPDstandardNth2At22 = PDstandardNth2At22;
-      
-      JacPDstandardNth2At23 = PDstandardNth2At23;
-      
-      JacPDstandardNth2At33 = PDstandardNth2At33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3At11 = PDstandardNth3At11;
-      
-      JacPDstandardNth3At12 = PDstandardNth3At12;
-      
-      JacPDstandardNth3At13 = PDstandardNth3At13;
-      
-      JacPDstandardNth3At22 = PDstandardNth3At22;
-      
-      JacPDstandardNth3At23 = PDstandardNth3At23;
-      
-      JacPDstandardNth3At33 = PDstandardNth3At33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC M1L = 
-      kmadd(gtu11,JacPDstandardNth1At11,kmadd(gtu12,JacPDstandardNth2At11,kmadd(gtu22,JacPDstandardNth2At12,kmadd(gtu23,JacPDstandardNth2At13,kmadd(gtu13,JacPDstandardNth3At11,kmadd(gtu23,JacPDstandardNth3At12,kmadd(gtu33,JacPDstandardNth3At13,kmadd(gtu12,kadd(JacPDstandardNth1At12,kmsub(At13L,kmul(Gt312,ToReal(-3)),kmul(At22L,Gt211))),kmadd(gtu13,kadd(JacPDstandardNth1At13,kmsub(At13L,kmul(Gt313,ToReal(-3)),kmul(At23L,Gt211))),knmsub(gtu22,kmadd(At23L,Gt312,kmul(At22L,Gt212)),kmadd(Gt311,kmsub(At13L,kmul(gtu11,ToReal(-2)),kmadd(At33L,gtu13,kmul(At23L,gtu12))),kmadd(At13L,kmsub(Gt323,kmul(gtu23,ToReal(-2)),kmul(Gt113,gtu33)),kmadd(JacPDstandardNth1trK,ToReal(-0.666666666666666666666666666667),knmsub(At12L,kmadd(Gt111,gtu12,kmadd(Gt112,gtu22,kmadd(Gt222,gtu22,kmadd(Gt113,gtu23,kmadd(Gt233,gtu33,kmadd(cdphi1,kmul(gtu12,ToReal(-6)),kmadd(cdphi2,kmul(gtu22,ToReal(-6)),kmadd(cdphi3,kmul(gtu23,ToReal(-6)),kmadd(Gt211,kmul(gtu11,ToReal(2)),kmadd(Gt223,kmul(gtu23,ToReal(2)),kmadd(Gt212,kmul(gtu12,ToReal(3)),kmul(Gt213,kmul(gtu13,ToReal(3)))))))))))))),kmadd(gtu23,knmsub(At22L,Gt213,knmsub(At33L,Gt312,kmsub(At13L,kmul(cdphi2,ToReal(6)),kmul(At23L,kadd(Gt313,Gt212))))),kmadd(gtu33,knmsub(At23L,Gt213,kmsub(At13L,kmul(cdphi3,ToReal(6)),kmul(At33L,Gt313))),kmadd(At11L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt111,kmul(gtu11,ToReal(-2)),kmadd(Gt123,kmul(gtu23,ToReal(-2)),knmsub(Gt122,gtu22,knmsub(Gt133,gtu33,kmadd(cdphi1,kmul(gtu11,ToReal(6)),kmadd(cdphi2,kmul(gtu12,ToReal(6)),kmul(cdphi3,kmul(gtu13,ToReal(6))))))))))),kmadd(At13L,knmsub(Gt322,gtu22,knmsub(Gt112,gtu23,kmsub(gtu13,kmsub(cdphi1,ToReal(6),Gt111),kmul(Gt333,gtu33)))),kmul(S1,kmul(ToReal(-8),ToReal(Pi)))))))))))))))))))));
-    
-    CCTK_REAL_VEC M2L = 
-      kmadd(gtu11,JacPDstandardNth1At12,kmadd(gtu12,JacPDstandardNth1At22,kmadd(gtu13,JacPDstandardNth1At23,kmadd(gtu12,JacPDstandardNth2At12,kmadd(gtu22,JacPDstandardNth2At22,kmadd(gtu23,JacPDstandardNth2At23,kmadd(gtu13,JacPDstandardNth3At12,kmadd(gtu23,JacPDstandardNth3At22,kmadd(gtu33,JacPDstandardNth3At23,kmadd(At22L,kmul(Gt222,kmul(gtu22,ToReal(-2))),knmsub(At11L,kmadd(Gt112,gtu11,kmadd(Gt122,gtu12,kmul(Gt123,gtu13))),knmsub(gtu11,kmadd(At22L,Gt211,kmadd(At13L,Gt312,kmul(At23L,Gt311))),kmadd(Gt212,kmsub(At22L,kmul(gtu12,ToReal(-3)),kmul(At23L,gtu13)),kmadd(Gt312,kmsub(At23L,kmul(gtu12,ToReal(-3)),kmul(At33L,gtu13)),kmadd(Gt322,kmsub(At23L,kmul(gtu22,ToReal(-2)),kmul(At33L,gtu23)),kmadd(Gt223,kmsub(At22L,kmul(gtu23,ToReal(-3)),kmul(At23L,gtu33)),kmadd(Gt323,kmsub(At23L,kmul(gtu23,ToReal(-3)),kmul(At33L,gtu33)),kmadd(At22L,kmsub(Gt213,kmul(gtu13,ToReal(-2)),kmul(Gt233,gtu33)),kmadd(At23L,kmsub(Gt313,kmul(gtu13,ToReal(-2)),kmadd(Gt333,gtu33,kmul(Gt222,gtu23))),kmadd(JacPDstandardNth2trK,ToReal(-0.666666666666666666666666666667),kmadd(At22L,kmul(cdphi2,kmul(gtu22,ToReal(6))),kmadd(At22L,kmul(cdphi3,kmul(gtu23,ToReal(6))),kmadd(gtu12,kmsub(At22L,kmul(cdphi1,ToReal(6)),kmul(At13L,Gt322)),kmadd(gtu13,kmsub(At23L,kmul(cdphi1,ToReal(6)),kmul(At13L,kadd(Gt323,Gt112))),kmadd(gtu23,kmsub(At23L,kmul(cdphi2,ToReal(6)),kmul(At13L,Gt122)),kmadd(gtu33,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At13L,Gt123)),kmadd(At12L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-2)),kmadd(Gt122,kmul(gtu22,ToReal(-2)),knmsub(Gt133,gtu33,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt212),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt222),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt223))))))))),kmul(S2,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC M3L = 
-      kmadd(gtu11,JacPDstandardNth1At13,kmadd(gtu12,JacPDstandardNth1At23,kmadd(gtu13,JacPDstandardNth1At33,kmadd(gtu12,JacPDstandardNth2At13,kmadd(gtu22,JacPDstandardNth2At23,kmadd(gtu23,JacPDstandardNth2At33,kmadd(gtu13,JacPDstandardNth3At13,kmadd(gtu23,JacPDstandardNth3At23,kmadd(gtu33,JacPDstandardNth3At33,kmadd(At33L,kmul(Gt313,kmul(gtu13,ToReal(-3))),kmadd(At23L,kmul(Gt223,kmul(gtu23,ToReal(-3))),kmadd(At33L,kmul(Gt323,kmul(gtu23,ToReal(-3))),kmadd(At23L,kmul(Gt233,kmul(gtu33,ToReal(-2))),kmadd(At33L,kmul(Gt333,kmul(gtu33,ToReal(-2))),knmsub(At11L,kmadd(Gt113,gtu11,kmadd(Gt123,gtu12,kmul(Gt133,gtu13))),kmadd(gtu12,kmsub(At23L,kmul(Gt212,ToReal(-2)),kmul(At12L,Gt223)),knmsub(gtu11,kmadd(At23L,Gt211,kmadd(At33L,Gt311,kmul(At12L,Gt213))),kmadd(At33L,kmsub(Gt312,kmul(gtu12,ToReal(-2)),kmul(Gt322,gtu22)),kmadd(At23L,kmsub(Gt213,kmul(gtu13,ToReal(-3)),kmadd(Gt333,gtu23,kmul(Gt222,gtu22))),kmadd(JacPDstandardNth3trK,ToReal(-0.666666666666666666666666666667),kmadd(At33L,kmul(cdphi3,kmul(gtu33,ToReal(6))),kmadd(gtu13,kmsub(At33L,kmul(cdphi1,ToReal(6)),kmul(At12L,Gt233)),kmadd(gtu23,kmsub(At33L,kmul(cdphi2,ToReal(6)),kmul(At12L,Gt133)),kmadd(gtu23,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At22L,Gt233)),kmadd(gtu12,knmsub(At12L,Gt113,kmsub(At23L,kmsub(cdphi1,ToReal(6),Gt313),kmul(At22L,Gt213))),kmadd(gtu22,knmsub(At12L,Gt123,kmsub(At23L,kmsub(cdphi2,ToReal(6),Gt323),kmul(At22L,Gt223))),kmadd(At13L,kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt112,kmul(gtu12,ToReal(-2)),kmadd(Gt133,kmul(gtu33,ToReal(-2)),knmsub(Gt122,gtu22,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt313),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt323),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt333))))))))),kmul(S3,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC cSL = klog(detgt);
-    
-    CCTK_REAL_VEC cXt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmsub(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2),Xt1L))));
-    
-    CCTK_REAL_VEC cXt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmsub(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2),Xt2L))));
-    
-    CCTK_REAL_VEC cXt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmsub(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2),Xt3L))));
-    
-    CCTK_REAL_VEC cAL = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(cA[index],cAL);
-    vec_store_nta_partial(cS[index],cSL);
-    vec_store_nta_partial(cXt1[index],cXt1L);
-    vec_store_nta_partial(cXt2[index],cXt2L);
-    vec_store_nta_partial(cXt3[index],cXt3L);
-    vec_store_nta_partial(M1[index],M1L);
-    vec_store_nta_partial(M2[index],M2L);
-    vec_store_nta_partial(M3[index],M3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_constraints2);
-}
-
-extern "C" void ML_BSSN_O8_constraints2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_constraints2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_constraints2_calc_every != ML_BSSN_O8_constraints2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_cons_detg",
-    "ML_BSSN_O8::ML_cons_Gamma",
-    "ML_BSSN_O8::ML_cons_traceA",
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_mom",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_constraints2", 11, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_constraints2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_constraints2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_constraints2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_constraints2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O8_constraints2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_constraints2_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBase.cc b/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBase.cc
deleted file mode 100644
index ae5d33f..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBase.cc
+++ /dev/null
@@ -1,400 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O8_convertFromADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_convertFromADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alpL = vec_load(alp[index]);
-    CCTK_REAL_VEC betaxL = vec_load(betax[index]);
-    CCTK_REAL_VEC betayL = vec_load(betay[index]);
-    CCTK_REAL_VEC betazL = vec_load(betaz[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC kxxL = vec_load(kxx[index]);
-    CCTK_REAL_VEC kxyL = vec_load(kxy[index]);
-    CCTK_REAL_VEC kxzL = vec_load(kxz[index]);
-    CCTK_REAL_VEC kyyL = vec_load(kyy[index]);
-    CCTK_REAL_VEC kyzL = vec_load(kyz[index]);
-    CCTK_REAL_VEC kzzL = vec_load(kzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC g11 = gxxL;
-    
-    CCTK_REAL_VEC g12 = gxyL;
-    
-    CCTK_REAL_VEC g13 = gxzL;
-    
-    CCTK_REAL_VEC g22 = gyyL;
-    
-    CCTK_REAL_VEC g23 = gyzL;
-    
-    CCTK_REAL_VEC g33 = gzzL;
-    
-    CCTK_REAL_VEC detg = 
-      knmsub(g22,SQR(g13),knmsub(g11,SQR(g23),kmadd(g33,kmsub(g11,g22,SQR(g12)),kmul(g12,kmul(g13,kmul(g23,ToReal(2)))))));
-    
-    CCTK_REAL_VEC gu11 = kmul(INV(detg),kmsub(g22,g33,SQR(g23)));
-    
-    CCTK_REAL_VEC gu12 = kmul(INV(detg),kmsub(g13,g23,kmul(g12,g33)));
-    
-    CCTK_REAL_VEC gu13 = kmul(INV(detg),kmsub(g12,g23,kmul(g13,g22)));
-    
-    CCTK_REAL_VEC gu22 = kmul(INV(detg),kmsub(g11,g33,SQR(g13)));
-    
-    CCTK_REAL_VEC gu23 = kmul(INV(detg),kmsub(g12,g13,kmul(g11,g23)));
-    
-    CCTK_REAL_VEC gu33 = kmul(INV(detg),kmsub(g11,g22,SQR(g12)));
-    
-    CCTK_REAL_VEC em4phi;
-    
-    if (conformalMethod == 1)
-    {
-      phiL = kpow(detg,-0.166666666666666666666666666667);
-      
-      em4phi = SQR(phiL);
-    }
-    else
-    {
-      phiL = kmul(klog(detg),ToReal(0.0833333333333333333333333333333));
-      
-      em4phi = kexp(kmul(phiL,ToReal(-4)));
-    }
-    
-    CCTK_REAL_VEC gt11L = kmul(em4phi,g11);
-    
-    CCTK_REAL_VEC gt12L = kmul(em4phi,g12);
-    
-    CCTK_REAL_VEC gt13L = kmul(em4phi,g13);
-    
-    CCTK_REAL_VEC gt22L = kmul(em4phi,g22);
-    
-    CCTK_REAL_VEC gt23L = kmul(em4phi,g23);
-    
-    CCTK_REAL_VEC gt33L = kmul(em4phi,g33);
-    
-    trKL = 
-      kmadd(kxxL,gu11,kmadd(kyyL,gu22,kmadd(kzzL,gu33,kmul(kmadd(kxyL,gu12,kmadd(kxzL,gu13,kmul(kyzL,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11L = 
-      kmul(em4phi,kmadd(trKL,kmul(g11,ToReal(-0.333333333333333333333333333333)),kxxL));
-    
-    CCTK_REAL_VEC At12L = 
-      kmul(em4phi,kmadd(trKL,kmul(g12,ToReal(-0.333333333333333333333333333333)),kxyL));
-    
-    CCTK_REAL_VEC At13L = 
-      kmul(em4phi,kmadd(trKL,kmul(g13,ToReal(-0.333333333333333333333333333333)),kxzL));
-    
-    CCTK_REAL_VEC At22L = 
-      kmul(em4phi,kmadd(trKL,kmul(g22,ToReal(-0.333333333333333333333333333333)),kyyL));
-    
-    CCTK_REAL_VEC At23L = 
-      kmul(em4phi,kmadd(trKL,kmul(g23,ToReal(-0.333333333333333333333333333333)),kyzL));
-    
-    CCTK_REAL_VEC At33L = 
-      kmul(em4phi,kmadd(trKL,kmul(g33,ToReal(-0.333333333333333333333333333333)),kzzL));
-    
-    CCTK_REAL_VEC alphaL = alpL;
-    
-    CCTK_REAL_VEC beta1L = betaxL;
-    
-    CCTK_REAL_VEC beta2L = betayL;
-    
-    CCTK_REAL_VEC beta3L = betazL;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_convertFromADMBase);
-}
-
-extern "C" void ML_BSSN_O8_convertFromADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_convertFromADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_convertFromADMBase_calc_every != ML_BSSN_O8_convertFromADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_convertFromADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O8_convertFromADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_convertFromADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBaseGamma.cc b/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBaseGamma.cc
deleted file mode 100644
index 8386f9b..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBaseGamma.cc
+++ /dev/null
@@ -1,926 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_convertFromADMBaseGamma_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_O8::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_O8::ML_Gamma.");
-  return;
-}
-
-static void ML_BSSN_O8_convertFromADMBaseGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_convertFromADMBaseGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC dtalpL = vec_load(dtalp[index]);
-    CCTK_REAL_VEC dtbetaxL = vec_load(dtbetax[index]);
-    CCTK_REAL_VEC dtbetayL = vec_load(dtbetay[index]);
-    CCTK_REAL_VEC dtbetazL = vec_load(dtbetaz[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        break;
-      
-      case 4:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        break;
-      
-      case 6:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        break;
-      
-      case 8:
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmul(ToReal(0.5),kmadd(gtu11,JacPDstandardNth1gt11,knmsub(gtu12,JacPDstandardNth2gt11,kmsub(kmadd(gtu12,JacPDstandardNth1gt12,kmul(gtu13,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu13,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth1gt11,knmsub(gtu22,JacPDstandardNth2gt11,kmsub(kmadd(gtu22,JacPDstandardNth1gt12,kmul(gtu23,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu23,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth1gt11,knmsub(gtu23,JacPDstandardNth2gt11,kmsub(kmadd(gtu23,JacPDstandardNth1gt12,kmul(gtu33,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu33,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmul(kmadd(gtu12,JacPDstandardNth1gt22,kmadd(gtu11,JacPDstandardNth2gt11,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmul(kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu12,JacPDstandardNth2gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt22,kmadd(gtu13,JacPDstandardNth2gt11,kmul(gtu33,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmul(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu11,JacPDstandardNth3gt11,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt33,kmadd(gtu12,JacPDstandardNth3gt11,kmul(gtu22,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmul(kmadd(gtu33,JacPDstandardNth1gt33,kmadd(gtu13,JacPDstandardNth3gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth2gt22,kmadd(gtu11,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu13,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmul(ToReal(0.5),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu12,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu23,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth2gt22,kmadd(gtu13,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu33,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmul(kmadd(gtu13,JacPDstandardNth2gt33,kmadd(gtu12,JacPDstandardNth3gt22,kmul(gtu11,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmul(kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu22,JacPDstandardNth3gt22,kmul(gtu12,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmul(kmadd(gtu33,JacPDstandardNth2gt33,kmadd(gtu23,JacPDstandardNth3gt22,kmul(gtu13,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth3gt33,kmadd(gtu11,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu12,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth3gt33,kmadd(gtu12,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu22,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmul(ToReal(0.5),kmadd(gtu33,JacPDstandardNth3gt33,kmadd(gtu13,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Xt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC AL = IfThen(LapseACoeff != 
-      0,kneg(kmul(INV(ToReal(harmonicF)),kmul(kpow(alphaL,-harmonicN),knmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),dtalpL)))),ToReal(0));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC B1L;
-    CCTK_REAL_VEC B2L;
-    CCTK_REAL_VEC B3L;
-    
-    if (ShiftBCoeff*ShiftGammaCoeff != 0)
-    {
-      B1L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetaxL));
-      
-      B2L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetayL));
-      
-      B3L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),dtbetazL));
-    }
-    else
-    {
-      B1L = ToReal(0);
-      
-      B2L = ToReal(0);
-      
-      B3L = ToReal(0);
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_convertFromADMBaseGamma);
-}
-
-extern "C" void ML_BSSN_O8_convertFromADMBaseGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_convertFromADMBaseGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_convertFromADMBaseGamma_calc_every != ML_BSSN_O8_convertFromADMBaseGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_shift"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_convertFromADMBaseGamma", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_convertFromADMBaseGamma", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_convertFromADMBaseGamma", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_convertFromADMBaseGamma", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_convertFromADMBaseGamma", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O8_convertFromADMBaseGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_convertFromADMBaseGamma_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBase.cc b/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBase.cc
deleted file mode 100644
index 031c91c..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBase.cc
+++ /dev/null
@@ -1,362 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O8_convertToADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_convertToADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    gxxL = kmul(gt11L,e4phi);
-    
-    gxyL = kmul(gt12L,e4phi);
-    
-    gxzL = kmul(gt13L,e4phi);
-    
-    gyyL = kmul(gt22L,e4phi);
-    
-    gyzL = kmul(gt23L,e4phi);
-    
-    gzzL = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC kxxL = 
-      kmadd(At11L,e4phi,kmul(gxxL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxyL = 
-      kmadd(At12L,e4phi,kmul(gxyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxzL = 
-      kmadd(At13L,e4phi,kmul(gxzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyyL = 
-      kmadd(At22L,e4phi,kmul(gyyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyzL = 
-      kmadd(At23L,e4phi,kmul(gyzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kzzL = 
-      kmadd(At33L,e4phi,kmul(gzzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC alpL = alphaL;
-    
-    CCTK_REAL_VEC betaxL = beta1L;
-    
-    CCTK_REAL_VEC betayL = beta2L;
-    
-    CCTK_REAL_VEC betazL = beta3L;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alp[index],alpL);
-    vec_store_nta_partial(betax[index],betaxL);
-    vec_store_nta_partial(betay[index],betayL);
-    vec_store_nta_partial(betaz[index],betazL);
-    vec_store_nta_partial(gxx[index],gxxL);
-    vec_store_nta_partial(gxy[index],gxyL);
-    vec_store_nta_partial(gxz[index],gxzL);
-    vec_store_nta_partial(gyy[index],gyyL);
-    vec_store_nta_partial(gyz[index],gyzL);
-    vec_store_nta_partial(gzz[index],gzzL);
-    vec_store_nta_partial(kxx[index],kxxL);
-    vec_store_nta_partial(kxy[index],kxyL);
-    vec_store_nta_partial(kxz[index],kxzL);
-    vec_store_nta_partial(kyy[index],kyyL);
-    vec_store_nta_partial(kyz[index],kyzL);
-    vec_store_nta_partial(kzz[index],kzzL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_convertToADMBase);
-}
-
-extern "C" void ML_BSSN_O8_convertToADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_convertToADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_convertToADMBase_calc_every != ML_BSSN_O8_convertToADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_convertToADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O8_convertToADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_convertToADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBaseDtLapseShift.cc b/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBaseDtLapseShift.cc
deleted file mode 100644
index 3d8e868..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBaseDtLapseShift.cc
+++ /dev/null
@@ -1,918 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_convertToADMBaseDtLapseShift_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_O8_convertToADMBaseDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_convertToADMBaseDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1alpha;
-    CCTK_REAL_VEC PDupwindNthSymm1alpha;
-    CCTK_REAL_VEC PDupwindNthAnti2alpha;
-    CCTK_REAL_VEC PDupwindNthSymm2alpha;
-    CCTK_REAL_VEC PDupwindNthAnti3alpha;
-    CCTK_REAL_VEC PDupwindNthSymm3alpha;
-    CCTK_REAL_VEC PDupwindNthAnti1beta1;
-    CCTK_REAL_VEC PDupwindNthSymm1beta1;
-    CCTK_REAL_VEC PDupwindNthAnti2beta1;
-    CCTK_REAL_VEC PDupwindNthSymm2beta1;
-    CCTK_REAL_VEC PDupwindNthAnti3beta1;
-    CCTK_REAL_VEC PDupwindNthSymm3beta1;
-    CCTK_REAL_VEC PDupwindNthAnti1beta2;
-    CCTK_REAL_VEC PDupwindNthSymm1beta2;
-    CCTK_REAL_VEC PDupwindNthAnti2beta2;
-    CCTK_REAL_VEC PDupwindNthSymm2beta2;
-    CCTK_REAL_VEC PDupwindNthAnti3beta2;
-    CCTK_REAL_VEC PDupwindNthSymm3beta2;
-    CCTK_REAL_VEC PDupwindNthAnti1beta3;
-    CCTK_REAL_VEC PDupwindNthSymm1beta3;
-    CCTK_REAL_VEC PDupwindNthAnti2beta3;
-    CCTK_REAL_VEC PDupwindNthSymm2beta3;
-    CCTK_REAL_VEC PDupwindNthAnti3beta3;
-    CCTK_REAL_VEC PDupwindNthSymm3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder21(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder21(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder22(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder22(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder23(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder23(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder21(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder21(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder22(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder22(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder23(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder23(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder21(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder21(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder22(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder22(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder23(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder23(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder21(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder21(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder22(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder22(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder23(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder41(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder41(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder42(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder42(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder43(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder43(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder41(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder41(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder42(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder42(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder43(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder43(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder41(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder41(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder42(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder42(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder43(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder43(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder41(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder41(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder42(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder42(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder43(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder61(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder61(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder62(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder62(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder63(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder63(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder61(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder61(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder62(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder62(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder63(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder63(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder61(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder61(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder62(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder62(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder63(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder63(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder61(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder61(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder62(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder62(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder63(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDupwindNthAnti1alpha = PDupwindNthAntifdOrder81(&alpha[index]);
-        PDupwindNthSymm1alpha = PDupwindNthSymmfdOrder81(&alpha[index]);
-        PDupwindNthAnti2alpha = PDupwindNthAntifdOrder82(&alpha[index]);
-        PDupwindNthSymm2alpha = PDupwindNthSymmfdOrder82(&alpha[index]);
-        PDupwindNthAnti3alpha = PDupwindNthAntifdOrder83(&alpha[index]);
-        PDupwindNthSymm3alpha = PDupwindNthSymmfdOrder83(&alpha[index]);
-        PDupwindNthAnti1beta1 = PDupwindNthAntifdOrder81(&beta1[index]);
-        PDupwindNthSymm1beta1 = PDupwindNthSymmfdOrder81(&beta1[index]);
-        PDupwindNthAnti2beta1 = PDupwindNthAntifdOrder82(&beta1[index]);
-        PDupwindNthSymm2beta1 = PDupwindNthSymmfdOrder82(&beta1[index]);
-        PDupwindNthAnti3beta1 = PDupwindNthAntifdOrder83(&beta1[index]);
-        PDupwindNthSymm3beta1 = PDupwindNthSymmfdOrder83(&beta1[index]);
-        PDupwindNthAnti1beta2 = PDupwindNthAntifdOrder81(&beta2[index]);
-        PDupwindNthSymm1beta2 = PDupwindNthSymmfdOrder81(&beta2[index]);
-        PDupwindNthAnti2beta2 = PDupwindNthAntifdOrder82(&beta2[index]);
-        PDupwindNthSymm2beta2 = PDupwindNthSymmfdOrder82(&beta2[index]);
-        PDupwindNthAnti3beta2 = PDupwindNthAntifdOrder83(&beta2[index]);
-        PDupwindNthSymm3beta2 = PDupwindNthSymmfdOrder83(&beta2[index]);
-        PDupwindNthAnti1beta3 = PDupwindNthAntifdOrder81(&beta3[index]);
-        PDupwindNthSymm1beta3 = PDupwindNthSymmfdOrder81(&beta3[index]);
-        PDupwindNthAnti2beta3 = PDupwindNthAntifdOrder82(&beta3[index]);
-        PDupwindNthSymm2beta3 = PDupwindNthSymmfdOrder82(&beta3[index]);
-        PDupwindNthAnti3beta3 = PDupwindNthAntifdOrder83(&beta3[index]);
-        PDupwindNthSymm3beta3 = PDupwindNthSymmfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDupwindNthAnti1alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti1beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti2alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti2beta3;
-    CCTK_REAL_VEC JacPDupwindNthAnti3alpha;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta1;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta2;
-    CCTK_REAL_VEC JacPDupwindNthAnti3beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm1alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm1beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm2alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm2beta3;
-    CCTK_REAL_VEC JacPDupwindNthSymm3alpha;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta1;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta2;
-    CCTK_REAL_VEC JacPDupwindNthSymm3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDupwindNthAnti1alpha = 
-        kmadd(J11L,PDupwindNthAnti1alpha,kmadd(J21L,PDupwindNthAnti2alpha,kmul(J31L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti1beta1 = 
-        kmadd(J11L,PDupwindNthAnti1beta1,kmadd(J21L,PDupwindNthAnti2beta1,kmul(J31L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti1beta2 = 
-        kmadd(J11L,PDupwindNthAnti1beta2,kmadd(J21L,PDupwindNthAnti2beta2,kmul(J31L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti1beta3 = 
-        kmadd(J11L,PDupwindNthAnti1beta3,kmadd(J21L,PDupwindNthAnti2beta3,kmul(J31L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm1alpha = 
-        kmadd(J11L,PDupwindNthSymm1alpha,kmadd(J21L,PDupwindNthSymm2alpha,kmul(J31L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm1beta1 = 
-        kmadd(J11L,PDupwindNthSymm1beta1,kmadd(J21L,PDupwindNthSymm2beta1,kmul(J31L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm1beta2 = 
-        kmadd(J11L,PDupwindNthSymm1beta2,kmadd(J21L,PDupwindNthSymm2beta2,kmul(J31L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm1beta3 = 
-        kmadd(J11L,PDupwindNthSymm1beta3,kmadd(J21L,PDupwindNthSymm2beta3,kmul(J31L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti2alpha = 
-        kmadd(J12L,PDupwindNthAnti1alpha,kmadd(J22L,PDupwindNthAnti2alpha,kmul(J32L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti2beta1 = 
-        kmadd(J12L,PDupwindNthAnti1beta1,kmadd(J22L,PDupwindNthAnti2beta1,kmul(J32L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti2beta2 = 
-        kmadd(J12L,PDupwindNthAnti1beta2,kmadd(J22L,PDupwindNthAnti2beta2,kmul(J32L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti2beta3 = 
-        kmadd(J12L,PDupwindNthAnti1beta3,kmadd(J22L,PDupwindNthAnti2beta3,kmul(J32L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm2alpha = 
-        kmadd(J12L,PDupwindNthSymm1alpha,kmadd(J22L,PDupwindNthSymm2alpha,kmul(J32L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm2beta1 = 
-        kmadd(J12L,PDupwindNthSymm1beta1,kmadd(J22L,PDupwindNthSymm2beta1,kmul(J32L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm2beta2 = 
-        kmadd(J12L,PDupwindNthSymm1beta2,kmadd(J22L,PDupwindNthSymm2beta2,kmul(J32L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm2beta3 = 
-        kmadd(J12L,PDupwindNthSymm1beta3,kmadd(J22L,PDupwindNthSymm2beta3,kmul(J32L,PDupwindNthSymm3beta3)));
-      
-      JacPDupwindNthAnti3alpha = 
-        kmadd(J13L,PDupwindNthAnti1alpha,kmadd(J23L,PDupwindNthAnti2alpha,kmul(J33L,PDupwindNthAnti3alpha)));
-      
-      JacPDupwindNthAnti3beta1 = 
-        kmadd(J13L,PDupwindNthAnti1beta1,kmadd(J23L,PDupwindNthAnti2beta1,kmul(J33L,PDupwindNthAnti3beta1)));
-      
-      JacPDupwindNthAnti3beta2 = 
-        kmadd(J13L,PDupwindNthAnti1beta2,kmadd(J23L,PDupwindNthAnti2beta2,kmul(J33L,PDupwindNthAnti3beta2)));
-      
-      JacPDupwindNthAnti3beta3 = 
-        kmadd(J13L,PDupwindNthAnti1beta3,kmadd(J23L,PDupwindNthAnti2beta3,kmul(J33L,PDupwindNthAnti3beta3)));
-      
-      JacPDupwindNthSymm3alpha = 
-        kmadd(J13L,PDupwindNthSymm1alpha,kmadd(J23L,PDupwindNthSymm2alpha,kmul(J33L,PDupwindNthSymm3alpha)));
-      
-      JacPDupwindNthSymm3beta1 = 
-        kmadd(J13L,PDupwindNthSymm1beta1,kmadd(J23L,PDupwindNthSymm2beta1,kmul(J33L,PDupwindNthSymm3beta1)));
-      
-      JacPDupwindNthSymm3beta2 = 
-        kmadd(J13L,PDupwindNthSymm1beta2,kmadd(J23L,PDupwindNthSymm2beta2,kmul(J33L,PDupwindNthSymm3beta2)));
-      
-      JacPDupwindNthSymm3beta3 = 
-        kmadd(J13L,PDupwindNthSymm1beta3,kmadd(J23L,PDupwindNthSymm2beta3,kmul(J33L,PDupwindNthSymm3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDupwindNthAnti1alpha = PDupwindNthAnti1alpha;
-      
-      JacPDupwindNthAnti1beta1 = PDupwindNthAnti1beta1;
-      
-      JacPDupwindNthAnti1beta2 = PDupwindNthAnti1beta2;
-      
-      JacPDupwindNthAnti1beta3 = PDupwindNthAnti1beta3;
-      
-      JacPDupwindNthSymm1alpha = PDupwindNthSymm1alpha;
-      
-      JacPDupwindNthSymm1beta1 = PDupwindNthSymm1beta1;
-      
-      JacPDupwindNthSymm1beta2 = PDupwindNthSymm1beta2;
-      
-      JacPDupwindNthSymm1beta3 = PDupwindNthSymm1beta3;
-      
-      JacPDupwindNthAnti2alpha = PDupwindNthAnti2alpha;
-      
-      JacPDupwindNthAnti2beta1 = PDupwindNthAnti2beta1;
-      
-      JacPDupwindNthAnti2beta2 = PDupwindNthAnti2beta2;
-      
-      JacPDupwindNthAnti2beta3 = PDupwindNthAnti2beta3;
-      
-      JacPDupwindNthSymm2alpha = PDupwindNthSymm2alpha;
-      
-      JacPDupwindNthSymm2beta1 = PDupwindNthSymm2beta1;
-      
-      JacPDupwindNthSymm2beta2 = PDupwindNthSymm2beta2;
-      
-      JacPDupwindNthSymm2beta3 = PDupwindNthSymm2beta3;
-      
-      JacPDupwindNthAnti3alpha = PDupwindNthAnti3alpha;
-      
-      JacPDupwindNthAnti3beta1 = PDupwindNthAnti3beta1;
-      
-      JacPDupwindNthAnti3beta2 = PDupwindNthAnti3beta2;
-      
-      JacPDupwindNthAnti3beta3 = PDupwindNthAnti3beta3;
-      
-      JacPDupwindNthSymm3alpha = PDupwindNthSymm3alpha;
-      
-      JacPDupwindNthSymm3beta1 = PDupwindNthSymm3beta1;
-      
-      JacPDupwindNthSymm3beta2 = PDupwindNthSymm3beta2;
-      
-      JacPDupwindNthSymm3beta3 = PDupwindNthSymm3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kmsub(kmadd(beta1L,JacPDupwindNthAnti1alpha,kmadd(beta2L,JacPDupwindNthAnti2alpha,kmadd(beta3L,JacPDupwindNthAnti3alpha,kmadd(JacPDupwindNthSymm1alpha,kfabs(beta1L),kmadd(JacPDupwindNthSymm2alpha,kfabs(beta2L),kmul(JacPDupwindNthSymm3alpha,kfabs(beta3L))))))),ToReal(LapseAdvectionCoeff),kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta1,kmadd(beta2L,JacPDupwindNthAnti2beta1,kmadd(beta3L,JacPDupwindNthAnti3beta1,kmadd(JacPDupwindNthSymm1beta1,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta1,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta1,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4))))))))))))))))),kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetayL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta2,kmadd(beta2L,JacPDupwindNthAnti2beta2,kmadd(beta3L,JacPDupwindNthAnti3beta2,kmadd(JacPDupwindNthSymm1beta2,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta2,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta2,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetazL = 
-      kmadd(kmadd(beta1L,JacPDupwindNthAnti1beta3,kmadd(beta2L,JacPDupwindNthAnti2beta3,kmadd(beta3L,JacPDupwindNthAnti3beta3,kmadd(JacPDupwindNthSymm1beta3,kfabs(beta1L),kmadd(JacPDupwindNthSymm2beta3,kfabs(beta2L),kmul(JacPDupwindNthSymm3beta3,kfabs(beta3L))))))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_convertToADMBaseDtLapseShift);
-}
-
-extern "C" void ML_BSSN_O8_convertToADMBaseDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_convertToADMBaseDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_convertToADMBaseDtLapseShift_calc_every != ML_BSSN_O8_convertToADMBaseDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_log_confac",
-    "ML_BSSN_O8::ML_metric",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_convertToADMBaseDtLapseShift", 12, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_convertToADMBaseDtLapseShift", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_convertToADMBaseDtLapseShift", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_convertToADMBaseDtLapseShift", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_O8_convertToADMBaseDtLapseShift", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_O8_convertToADMBaseDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_convertToADMBaseDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary.cc b/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary.cc
deleted file mode 100644
index 54fba2b..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary.cc
+++ /dev/null
@@ -1,346 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary);
-}
-
-extern "C" void ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_calc_every != ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBaseFakeDtLapseShift.cc b/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBaseFakeDtLapseShift.cc
deleted file mode 100644
index c6f5687..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBaseFakeDtLapseShift.cc
+++ /dev/null
@@ -1,331 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_convertToADMBaseFakeDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_convertToADMBaseFakeDtLapseShift);
-}
-
-extern "C" void ML_BSSN_O8_convertToADMBaseFakeDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_calc_every != ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_O8::ML_dtlapse",
-    "ML_BSSN_O8::ML_dtshift",
-    "ML_BSSN_O8::ML_Gamma",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_shift",
-    "ML_BSSN_O8::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_convertToADMBaseFakeDtLapseShift", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_convertToADMBaseFakeDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_enforce.cc b/ML_BSSN_O8/src/ML_BSSN_O8_enforce.cc
deleted file mode 100644
index df3de65..0000000
--- a/ML_BSSN_O8/src/ML_BSSN_O8_enforce.cc
+++ /dev/null
@@ -1,337 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_O8_enforce_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_O8_enforce,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC trAt = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    At11L = 
-      kmadd(gt11L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At11L);
-    
-    At12L = 
-      kmadd(gt12L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At12L);
-    
-    At13L = 
-      kmadd(gt13L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At13L);
-    
-    At22L = 
-      kmadd(gt22L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At22L);
-    
-    At23L = 
-      kmadd(gt23L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At23L);
-    
-    At33L = 
-      kmadd(gt33L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At33L);
-    
-    alphaL = kfmax(alphaL,ToReal(MinimumLapse));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_O8_enforce);
-}
-
-extern "C" void ML_BSSN_O8_enforce(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_O8_enforce_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_O8_enforce_calc_every != ML_BSSN_O8_enforce_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_O8::ML_curv",
-    "ML_BSSN_O8::ML_lapse",
-    "ML_BSSN_O8::ML_metric"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_O8_enforce", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_O8_enforce_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_O8_enforce_Body");
-  }
-}
diff --git a/ML_BSSN_O8/src/RegisterMoL.cc b/ML_BSSN_O8/src/RegisterMoL.cc
deleted file mode 100644
index 7e136f8..0000000
--- a/ML_BSSN_O8/src/RegisterMoL.cc
+++ /dev/null
@@ -1,43 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_BSSN_O8_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::At11"),  CCTK_VarIndex("ML_BSSN_O8::At11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::At12"),  CCTK_VarIndex("ML_BSSN_O8::At12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::At13"),  CCTK_VarIndex("ML_BSSN_O8::At13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::At22"),  CCTK_VarIndex("ML_BSSN_O8::At22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::At23"),  CCTK_VarIndex("ML_BSSN_O8::At23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::At33"),  CCTK_VarIndex("ML_BSSN_O8::At33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::A"),  CCTK_VarIndex("ML_BSSN_O8::Arhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::B1"),  CCTK_VarIndex("ML_BSSN_O8::B1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::B2"),  CCTK_VarIndex("ML_BSSN_O8::B2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::B3"),  CCTK_VarIndex("ML_BSSN_O8::B3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::Xt1"),  CCTK_VarIndex("ML_BSSN_O8::Xt1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::Xt2"),  CCTK_VarIndex("ML_BSSN_O8::Xt2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::Xt3"),  CCTK_VarIndex("ML_BSSN_O8::Xt3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::alpha"),  CCTK_VarIndex("ML_BSSN_O8::alpharhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::phi"),  CCTK_VarIndex("ML_BSSN_O8::phirhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::gt11"),  CCTK_VarIndex("ML_BSSN_O8::gt11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::gt12"),  CCTK_VarIndex("ML_BSSN_O8::gt12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::gt13"),  CCTK_VarIndex("ML_BSSN_O8::gt13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::gt22"),  CCTK_VarIndex("ML_BSSN_O8::gt22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::gt23"),  CCTK_VarIndex("ML_BSSN_O8::gt23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::gt33"),  CCTK_VarIndex("ML_BSSN_O8::gt33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::beta1"),  CCTK_VarIndex("ML_BSSN_O8::beta1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::beta2"),  CCTK_VarIndex("ML_BSSN_O8::beta2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::beta3"),  CCTK_VarIndex("ML_BSSN_O8::beta3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_O8::trK"),  CCTK_VarIndex("ML_BSSN_O8::trKrhs"));
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_BSSN_O8/src/RegisterSymmetries.cc b/ML_BSSN_O8/src/RegisterSymmetries.cc
deleted file mode 100644
index 5bf0014..0000000
--- a/ML_BSSN_O8/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,189 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_BSSN_O8_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::At11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::At12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::At13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::At22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::At23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::At33");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::A");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::B1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::B2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::B3");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::Xt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::Xt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::Xt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::alpha");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::phi");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::gt11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::gt12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::gt13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::gt22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::gt23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::gt33");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::beta1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::beta2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::beta3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::trK");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::cS");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::cXt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::cXt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::cXt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::cA");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::H");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::M1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::M2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_O8::M3");
-  
-}
diff --git a/ML_BSSN_O8/src/Startup.cc b/ML_BSSN_O8/src/Startup.cc
deleted file mode 100644
index eccc42c..0000000
--- a/ML_BSSN_O8/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_BSSN_O8_Startup(void)
-{
-  const char * banner = "ML_BSSN_O8";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_BSSN_O8/src/make.code.defn b/ML_BSSN_O8/src/make.code.defn
deleted file mode 100644
index 0cf766f..0000000
--- a/ML_BSSN_O8/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc ML_BSSN_O8_Minkowski.cc ML_BSSN_O8_convertFromADMBase.cc ML_BSSN_O8_InitGamma.cc ML_BSSN_O8_convertFromADMBaseGamma.cc ML_BSSN_O8_RHS1.cc ML_BSSN_O8_RHS2.cc ML_BSSN_O8_Dissipation.cc ML_BSSN_O8_Advect.cc ML_BSSN_O8_InitRHS.cc ML_BSSN_O8_RHSStaticBoundary.cc ML_BSSN_O8_enforce.cc ML_BSSN_O8_boundary.cc ML_BSSN_O8_convertToADMBase.cc ML_BSSN_O8_convertToADMBaseDtLapseShift.cc ML_BSSN_O8_convertToADMBaseDtLapseShiftBoundary.cc ML_BSSN_O8_convertToADMBaseFakeDtLapseShift.cc ML_BSSN_O8_constraints1.cc ML_BSSN_O8_constraints2.cc Boundaries.cc 
diff --git a/ML_BSSN_O8_Helper/configuration.ccl b/ML_BSSN_O8_Helper/configuration.ccl
deleted file mode 100644
index edaa5b7..0000000
--- a/ML_BSSN_O8_Helper/configuration.ccl
+++ /dev/null
@@ -1 +0,0 @@
-REQUIRES THORNS: CartGrid3D CoordGauge
diff --git a/ML_BSSN_O8_Helper/interface.ccl b/ML_BSSN_O8_Helper/interface.ccl
deleted file mode 100644
index 865cb2d..0000000
--- a/ML_BSSN_O8_Helper/interface.ccl
+++ /dev/null
@@ -1,38 +0,0 @@
-IMPLEMENTS: ML_BSSN_O8_Helper
-
-INHERITS: ADMBase CoordGauge ML_BSSN_O8
-
-USES INCLUDE: Slicing.h
-USES INCLUDE: Symmetry.h
-
-
-
-CCTK_INT FUNCTION MoLRegisterConstrainedGroup \
-    (CCTK_INT IN ConstrainedIndex)
-USES FUNCTION MoLRegisterConstrainedGroup
-
-CCTK_INT FUNCTION                         \
-    Boundary_SelectGroupForBC             \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-          CCTK_INT IN faces,              \
-          CCTK_INT IN boundary_width,     \
-          CCTK_INT IN table_handle,       \
-          CCTK_STRING IN group_name,      \
-          CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION                         \
-    ExtrapolateGammas                     \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY INOUT var)
-USES FUNCTION ExtrapolateGammas
-
-CCTK_INT FUNCTION                         \
-    NewRad_Apply                          \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY IN var,          \
-         CCTK_REAL ARRAY INOUT rhs,       \
-         CCTK_REAL IN var0,               \
-         CCTK_REAL IN v0,                 \
-         CCTK_INT IN radpower)
-USES FUNCTION NewRad_Apply
diff --git a/ML_BSSN_O8_Helper/param.ccl b/ML_BSSN_O8_Helper/param.ccl
deleted file mode 100644
index 21fd4ec..0000000
--- a/ML_BSSN_O8_Helper/param.ccl
+++ /dev/null
@@ -1,39 +0,0 @@
-SHARES: Boundary
-
-USES CCTK_INT radpower
-
-SHARES: MethodofLines
-
-USES CCTK_INT MoL_Num_Constrained_Vars
-
-SHARES: ADMBase
-
-USES KEYWORD evolution_method
-
-SHARES: GenericFD
-
-USES CCTK_INT boundary_width
-
-SHARES: ML_BSSN_O8
-
-USES CCTK_INT timelevels
-USES CCTK_INT rhs_timelevels
-USES KEYWORD calculate_ADMBase_variables_at
-
-USES CCTK_REAL harmonicF
-
-EXTENDS KEYWORD my_initial_boundary_condition
-{
-  "extrapolate-gammas" :: "extrapolate-gammas"
-}
-EXTENDS KEYWORD my_rhs_boundary_condition
-{
-  "NewRad" :: "NewRad"
-}
-
-PRIVATE:
-
-CCTK_INT ML_BSSN_O8_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars
-{
-  20:20 :: "Number of constrained variables used by this thorn"
-} 20
diff --git a/ML_BSSN_O8_Helper/schedule.ccl b/ML_BSSN_O8_Helper/schedule.ccl
deleted file mode 100644
index 68576a6..0000000
--- a/ML_BSSN_O8_Helper/schedule.ccl
+++ /dev/null
@@ -1,161 +0,0 @@
-if (CCTK_EQUALS (evolution_method, "ML_BSSN_O8")) {
-  
-  if (timelevels == 1) {
-    STORAGE: ADMBase::metric[1]
-    STORAGE: ADMBase::curv[1]
-    STORAGE: ADMBase::lapse[1]
-    STORAGE: ADMBase::shift[1]
-    STORAGE: ADMBase::dtlapse[1]
-    STORAGE: ADMBase::dtshift[1]
-  } else if (timelevels == 2) {
-    STORAGE: ADMBase::metric[2]
-    STORAGE: ADMBase::curv[2]
-    STORAGE: ADMBase::lapse[2]
-    STORAGE: ADMBase::shift[2]
-    STORAGE: ADMBase::dtlapse[2]
-    STORAGE: ADMBase::dtshift[2]
-  } else if (timelevels == 3) {
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  } else if (timelevels == 4) {
-    #STORAGE: ADMBase::metric[4]
-    #STORAGE: ADMBase::curv[4]
-    #STORAGE: ADMBase::lapse[4]
-    #STORAGE: ADMBase::shift[4]
-    #STORAGE: ADMBase::dtlapse[4]
-    #STORAGE: ADMBase::dtshift[4]
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  }
-  
-  SCHEDULE ML_BSSN_O8_RegisterSlicing AT startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register slicing"
-  
-  SCHEDULE ML_BSSN_O8_SetGroupTags AT startup BEFORE Driver_Startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Set checkpointing and prolongation group tags"
-  
-  SCHEDULE ML_BSSN_O8_RegisterConstrained IN MoL_Register
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register ADMBase variables as constrained"
-  
-  
-  
-  # Why would any of these two be necessary?
-  #SCHEDULE GROUP ML_BSSN_O8_evolCalcGroup AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Calculate BSSN RHS"
-  #SCHEDULE GROUP MoL_CalcRHS AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Evaluate RHS"
-  
-  SCHEDULE GROUP ML_BSSN_O8_evolCalcGroup IN MoL_CalcRHS
-  {
-  } "Calculate BSSN RHS"
-  
-  SCHEDULE GROUP ML_BSSN_O8_evolCalcGroup AT analysis
-  {
-    TRIGGERS: ML_BSSN_O8::ML_log_confacrhs
-    TRIGGERS: ML_BSSN_O8::ML_metricrhs
-    TRIGGERS: ML_BSSN_O8::ML_Gammarhs
-    TRIGGERS: ML_BSSN_O8::ML_trace_curvrhs
-    TRIGGERS: ML_BSSN_O8::ML_curvrhs
-    TRIGGERS: ML_BSSN_O8::ML_lapserhs
-    TRIGGERS: ML_BSSN_O8::ML_dtlapserhs
-    TRIGGERS: ML_BSSN_O8::ML_shiftrhs
-    TRIGGERS: ML_BSSN_O8::ML_dtshiftrhs
-  } "Calculate BSSN RHS"
-  
-  
-  
-  if (CCTK_EQUALS (my_initial_boundary_condition, "extrapolate-gammas"))
-  {
-    SCHEDULE ML_BSSN_O8_ExtrapolateGammas AT initial AFTER ML_BSSN_O8_convertFromADMBaseGamma
-    {
-      LANG: C
-      # We don't need to synchronise here because extrapolation is now filling
-      # ghost zones
-      #SYNC: ML_Gamma
-      #SYNC: ML_dtlapse
-      #SYNC: ML_dtshift
-    } "Extrapolate Gammas and time derivatives of lapse and shift"
-  }
-  
-  if (CCTK_EQUALS (my_rhs_boundary_condition, "NewRad"))
-  {
-    SCHEDULE ML_BSSN_O8_NewRad IN ML_BSSN_O8_evolCalcGroup AFTER ML_BSSN_O8_RHS
-    {
-      LANG: C
-      #SYNC: ML_curvrhs
-      #SYNC: ML_dtlapserhs
-      #SYNC: ML_dtshiftrhs
-      #SYNC: ML_Gammarhs
-      #SYNC: ML_lapserhs
-      #SYNC: ML_log_confacrhs
-      #SYNC: ML_metricrhs
-      #SYNC: ML_shiftrhs
-      #SYNC: ML_trace_curvrhs
-    } "Apply NewRad boundary conditions to RHS"
-  }
-  
-  
-  
-  SCHEDULE GROUP ML_BSSN_O8_convertToADMBaseGroup IN ML_BSSN_O8_convertToADMBaseGroupWrapper
-  {
-    #SYNC: ADMBase::metric
-    #SYNC: ADMBase::curv
-    #SYNC: ADMBase::lapse
-    #SYNC: ADMBase::shift
-    #SYNC: ADMBase::dtlapse
-    #SYNC: ADMBase::dtshift
-  } "Calculate ADM variables"
-  
-  if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep"))
-  {
-    SCHEDULE GROUP ML_BSSN_O8_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_O8_ApplyBCs ML_BSSN_O8_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_EVOL"))
-  {
-    SCHEDULE GROUP ML_BSSN_O8_convertToADMBaseGroupWrapper IN MoL_PseudoEvolution BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_ANALYSIS"))
-  {
-    SCHEDULE GROUP ML_BSSN_O8_convertToADMBaseGroupWrapper AT post_recover_variables
-    {
-    } "Calculate ADM variables"
-    
-    SCHEDULE GROUP ML_BSSN_O8_convertToADMBaseGroupWrapper AT analysis BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-
-  SCHEDULE ML_BSSN_O8_SelectBCsADMBase IN ML_BSSN_O8_convertToADMBaseGroupWrapper AFTER ML_BSSN_O8_convertToADMBaseGroup
-  {
-    LANG: C
-    OPTIONS: level
-  } "Select boundary conditions for ADMBase variables"
-  
-  SCHEDULE GROUP ApplyBCs AS ML_BSSN_O8_ApplyBCsADMBase IN ML_BSSN_O8_convertToADMBaseGroupWrapper AFTER ML_BSSN_O8_SelectBCsADMBase
-  {
-  } "Apply boundary conditions to ADMBase variables"
-  
-}
diff --git a/ML_BSSN_O8_Helper/src/ExtrapolateGammas.c b/ML_BSSN_O8_Helper/src/ExtrapolateGammas.c
deleted file mode 100644
index 6bacd05..0000000
--- a/ML_BSSN_O8_Helper/src/ExtrapolateGammas.c
+++ /dev/null
@@ -1,29 +0,0 @@
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-extrap (cGH const * restrict cctkGH,
-        CCTK_REAL * restrict var);
-
-void
-ML_BSSN_O8_ExtrapolateGammas (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  extrap (cctkGH, Xt1);
-  extrap (cctkGH, Xt2);
-  extrap (cctkGH, Xt3);
-  
-  extrap (cctkGH, A);
-  
-  extrap (cctkGH, B1);
-  extrap (cctkGH, B2);
-  extrap (cctkGH, B3);
-}
-
-static void
-extrap (cGH const * restrict const cctkGH,
-        CCTK_REAL * restrict const var)
-{
-  ExtrapolateGammas (cctkGH, var);
-}
diff --git a/ML_BSSN_O8_Helper/src/NewRad.c b/ML_BSSN_O8_Helper/src/NewRad.c
deleted file mode 100644
index decf9c7..0000000
--- a/ML_BSSN_O8_Helper/src/NewRad.c
+++ /dev/null
@@ -1,67 +0,0 @@
-#include <math.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-newrad (cGH const * restrict cctkGH,
-        CCTK_REAL const * restrict var,
-        CCTK_REAL * restrict rhs,
-        CCTK_REAL var0,
-        CCTK_REAL v0);
-
-void
-ML_BSSN_O8_NewRad (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_REAL const v0 = sqrt (harmonicF);
-  
-  newrad (cctkGH, phi  , phirhs  , 0.0, v0 );
-  
-  newrad (cctkGH, gt11 , gt11rhs , 1.0, 1.0);
-  newrad (cctkGH, gt12 , gt12rhs , 0.0, 1.0);
-  newrad (cctkGH, gt13 , gt13rhs , 0.0, 1.0);
-  newrad (cctkGH, gt22 , gt22rhs , 1.0, 1.0);
-  newrad (cctkGH, gt23 , gt23rhs , 0.0, 1.0);
-  newrad (cctkGH, gt33 , gt33rhs , 1.0, 1.0);
-  
-  newrad (cctkGH, Xt1  , Xt1rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt2  , Xt2rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt3  , Xt3rhs  , 0.0, 1.0);
-  
-  newrad (cctkGH, trK  , trKrhs  , 0.0, v0 );
-  
-  newrad (cctkGH, At11 , At11rhs , 0.0, 1.0);
-  newrad (cctkGH, At12 , At12rhs , 0.0, 1.0);
-  newrad (cctkGH, At13 , At13rhs , 0.0, 1.0);
-  newrad (cctkGH, At22 , At22rhs , 0.0, 1.0);
-  newrad (cctkGH, At23 , At23rhs , 0.0, 1.0);
-  newrad (cctkGH, At33 , At33rhs , 0.0, 1.0);
-  
-  newrad (cctkGH, alpha, alpharhs, 1.0, v0 );
-  
-  newrad (cctkGH, A    , Arhs    , 0.0, v0 );
-  
-  newrad (cctkGH, beta1, beta1rhs, 0.0, 1.0);
-  newrad (cctkGH, beta2, beta2rhs, 0.0, 1.0);
-  newrad (cctkGH, beta3, beta3rhs, 0.0, 1.0);
-  
-  newrad (cctkGH, B1   , B1rhs   , 0.0, 1.0);
-  newrad (cctkGH, B2   , B2rhs   , 0.0, 1.0);
-  newrad (cctkGH, B3   , B3rhs   , 0.0, 1.0);
-}
-
-static void
-newrad (cGH const * restrict const cctkGH,
-        CCTK_REAL const * restrict const var,
-        CCTK_REAL * restrict const rhs,
-        CCTK_REAL const var0,
-        CCTK_REAL const v0)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  NewRad_Apply (cctkGH, var, rhs, var0, v0, radpower);
-}
diff --git a/ML_BSSN_O8_Helper/src/RegisterConstrained.c b/ML_BSSN_O8_Helper/src/RegisterConstrained.c
deleted file mode 100644
index e19fc0e..0000000
--- a/ML_BSSN_O8_Helper/src/RegisterConstrained.c
+++ /dev/null
@@ -1,32 +0,0 @@
-#include <assert.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-register_constrained (char const * restrict const gn);
-
-void
-ML_BSSN_O8_RegisterConstrained (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  register_constrained ("ADMBase::metric");
-  register_constrained ("ADMBase::curv");
-  register_constrained ("ADMBase::lapse");
-  register_constrained ("ADMBase::shift");
-  register_constrained ("ADMBase::dtlapse");
-  register_constrained ("ADMBase::dtshift");
-}
-
-static void
-register_constrained (char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  int const ierr = MoLRegisterConstrainedGroup (gi);
-  assert (! ierr);
-}
diff --git a/ML_BSSN_O8_Helper/src/RegisterSlicing.c b/ML_BSSN_O8_Helper/src/RegisterSlicing.c
deleted file mode 100644
index 6d2c3e8..0000000
--- a/ML_BSSN_O8_Helper/src/RegisterSlicing.c
+++ /dev/null
@@ -1,9 +0,0 @@
-#include <cctk.h>
-#include <Slicing.h>
-
-int
-ML_BSSN_O8_RegisterSlicing (void)
-{
-  Einstein_RegisterSlicing ("ML_BSSN_O8");
-  return 0;
-}
diff --git a/ML_BSSN_O8_Helper/src/SelectBCsADMBase.c b/ML_BSSN_O8_Helper/src/SelectBCsADMBase.c
deleted file mode 100644
index 3263372..0000000
--- a/ML_BSSN_O8_Helper/src/SelectBCsADMBase.c
+++ /dev/null
@@ -1,31 +0,0 @@
-#include <assert.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-select_bcs (cGH const * restrict cctkGH, char const * restrict gn);
-
-void
-ML_BSSN_O8_SelectBCsADMBase (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  select_bcs (cctkGH, "ADMBase::metric");
-  select_bcs (cctkGH, "ADMBase::curv");
-  select_bcs (cctkGH, "ADMBase::lapse");
-  select_bcs (cctkGH, "ADMBase::shift");
-  select_bcs (cctkGH, "ADMBase::dtlapse");
-  select_bcs (cctkGH, "ADMBase::dtshift");
-}
-
-static void
-select_bcs (cGH const * restrict const cctkGH, char const * restrict const gn)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const ierr = Boundary_SelectGroupForBC
-    (cctkGH, CCTK_ALL_FACES, boundary_width, -1, gn, "none");
-  assert (! ierr);
-}
diff --git a/ML_BSSN_O8_Helper/src/SetGroupTags.c b/ML_BSSN_O8_Helper/src/SetGroupTags.c
deleted file mode 100644
index 733e1ae..0000000
--- a/ML_BSSN_O8_Helper/src/SetGroupTags.c
+++ /dev/null
@@ -1,76 +0,0 @@
-#include <cctk.h>
-#include <cctk_Parameters.h>
-#include <util_Table.h>
-
-#include <assert.h>
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn);
-
-int
-ML_BSSN_O8_SetGroupTags (void)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const checkpoint = timelevels > 1;
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::metric");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::curv");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::lapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::shift");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtlapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtshift");
-  
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O8::ML_cons_detg");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O8::ML_cons_Gamma");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O8::ML_cons_traceA");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O8::ML_Ham");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_O8::ML_mom");
-  
-  int const rhs_checkpoint = rhs_timelevels > 1;
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O8::ML_log_confacrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O8::ML_metricrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O8::ML_Gammarhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O8::ML_trace_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O8::ML_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O8::ML_lapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O8::ML_dtlapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O8::ML_shiftrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_O8::ML_dtshiftrhs");
-  
-  return 0;
-}
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  assert (gi >= 0);
-  
-  int const table = CCTK_GroupTagsTableI (gi);
-  assert (table >= 0);
-  
-  if (! checkpoint) {
-    int const ierr = Util_TableSetString (table, "no", "Checkpoint");
-    assert (! ierr);
-  }
-  
-  if (! persistent) {
-    int const ierr = Util_TableSetString (table, "no", "Persistent");
-    assert (! ierr);
-  }
-  
-  if (! prolongate) {
-    int const iret = Util_TableDeleteKey (table, "ProlongationParameter");
-    assert (iret == 0 || iret == UTIL_ERROR_TABLE_NO_SUCH_KEY);
-    int const ierr = Util_TableSetString (table, "none", "Prolongation");
-    assert (! ierr);
-  }
-}
diff --git a/ML_BSSN_O8_Helper/src/make.code.defn b/ML_BSSN_O8_Helper/src/make.code.defn
deleted file mode 100644
index a3ac433..0000000
--- a/ML_BSSN_O8_Helper/src/make.code.defn
+++ /dev/null
@@ -1,2 +0,0 @@
-# -*-Makefile-*-
-SRCS = ExtrapolateGammas.c NewRad.c RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c SetGroupTags.c
diff --git a/ML_BSSN_UPW/configuration.ccl b/ML_BSSN_UPW/configuration.ccl
deleted file mode 100644
index bdbc1bd..0000000
--- a/ML_BSSN_UPW/configuration.ccl
+++ /dev/null
@@ -1,5 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-REQUIRES LoopControl
-REQUIRES Vectors
diff --git a/ML_BSSN_UPW/interface.ccl b/ML_BSSN_UPW/interface.ccl
deleted file mode 100644
index 4a464fb..0000000
--- a/ML_BSSN_UPW/interface.ccl
+++ /dev/null
@@ -1,203 +0,0 @@
-# File produced by Kranc
-
-implements: ML_BSSN_UPW
-
-inherits:   ADMBase TmunuBase Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-USES INCLUDE: vectors.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL ML_cons_detg type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=2'
-{
-  cS
-} "ML_cons_detg"
-
-public:
-CCTK_REAL ML_cons_Gamma type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  cXt1,
-  cXt2,
-  cXt3
-} "ML_cons_Gamma"
-
-public:
-CCTK_REAL ML_cons_traceA type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  cA
-} "ML_cons_traceA"
-
-public:
-CCTK_REAL ML_Ham type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  H
-} "ML_Ham"
-
-public:
-CCTK_REAL ML_mom type=GF timelevels=1 tags='tensortypealias="D" tensorweight=0'
-{
-  M1,
-  M2,
-  M3
-} "ML_mom"
-
-public:
-CCTK_REAL ML_curv type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11,
-  At12,
-  At13,
-  At22,
-  At23,
-  At33
-} "ML_curv"
-
-public:
-CCTK_REAL ML_dtlapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  A
-} "ML_dtlapse"
-
-public:
-CCTK_REAL ML_dtshift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1,
-  B2,
-  B3
-} "ML_dtshift"
-
-public:
-CCTK_REAL ML_Gamma type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1,
-  Xt2,
-  Xt3
-} "ML_Gamma"
-
-public:
-CCTK_REAL ML_lapse type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpha
-} "ML_lapse"
-
-public:
-CCTK_REAL ML_log_confac type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phi
-} "ML_log_confac"
-
-public:
-CCTK_REAL ML_metric type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11,
-  gt12,
-  gt13,
-  gt22,
-  gt23,
-  gt33
-} "ML_metric"
-
-public:
-CCTK_REAL ML_shift type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1,
-  beta2,
-  beta3
-} "ML_shift"
-
-public:
-CCTK_REAL ML_trace_curv type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trK
-} "ML_trace_curv"
-
-public:
-CCTK_REAL ML_curvrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  At11rhs,
-  At12rhs,
-  At13rhs,
-  At22rhs,
-  At23rhs,
-  At33rhs
-} "ML_curvrhs"
-
-public:
-CCTK_REAL ML_dtlapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  Arhs
-} "ML_dtlapserhs"
-
-public:
-CCTK_REAL ML_dtshiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  B1rhs,
-  B2rhs,
-  B3rhs
-} "ML_dtshiftrhs"
-
-public:
-CCTK_REAL ML_Gammarhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0.66666666666666666667'
-{
-  Xt1rhs,
-  Xt2rhs,
-  Xt3rhs
-} "ML_Gammarhs"
-
-public:
-CCTK_REAL ML_lapserhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  alpharhs
-} "ML_lapserhs"
-
-public:
-CCTK_REAL ML_log_confacrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0.16666666666666666667'
-{
-  phirhs
-} "ML_log_confacrhs"
-
-public:
-CCTK_REAL ML_metricrhs type=GF timelevels=3 tags='tensortypealias="DD_sym" tensorweight=-0.66666666666666666667'
-{
-  gt11rhs,
-  gt12rhs,
-  gt13rhs,
-  gt22rhs,
-  gt23rhs,
-  gt33rhs
-} "ML_metricrhs"
-
-public:
-CCTK_REAL ML_shiftrhs type=GF timelevels=3 tags='tensortypealias="U" tensorweight=0'
-{
-  beta1rhs,
-  beta2rhs,
-  beta3rhs
-} "ML_shiftrhs"
-
-public:
-CCTK_REAL ML_trace_curvrhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  trKrhs
-} "ML_trace_curvrhs"
diff --git a/ML_BSSN_UPW/param.ccl b/ML_BSSN_UPW/param.ccl
deleted file mode 100644
index 6df5b1f..0000000
--- a/ML_BSSN_UPW/param.ccl
+++ /dev/null
@@ -1,1480 +0,0 @@
-# File produced by Kranc
-
-
-shares: ADMBase
-
-
-EXTENDS CCTK_KEYWORD evolution_method "evolution_method"
-{
-  ML_BSSN_UPW :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD lapse_evolution_method "lapse_evolution_method"
-{
-  ML_BSSN_UPW :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD shift_evolution_method "shift_evolution_method"
-{
-  ML_BSSN_UPW :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtlapse_evolution_method "dtlapse_evolution_method"
-{
-  ML_BSSN_UPW :: ""
-} 
-
-
-EXTENDS CCTK_KEYWORD dtshift_evolution_method "dtshift_evolution_method"
-{
-  ML_BSSN_UPW :: ""
-} 
-
-
-
-shares: GenericFD
-
-USES CCTK_STRING jacobian_group
-USES CCTK_STRING jacobian_derivative_group
-USES CCTK_INT jacobian_identity_map
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseACoeff "Whether to evolve A in time"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL harmonicF "d/dt alpha = - f alpha^n K   (harmonic=1, 1+log=2)"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL AlphaDriver "AlphaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL ShiftBCoeff "Whether to evolve B^i in time"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftGammaCoeff "ShiftGammaCoeff"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL BetaDriver "BetaDriver"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL LapseAdvectionCoeff "Factor in front of the lapse advection terms in 1+log"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL ShiftAdvectionCoeff "Factor in front of the shift advection terms in gamma driver"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL MinimumLapse "Minimum value of the lapse function"
-{
-  "*:*" :: ""
-} -1
-
-restricted:
-CCTK_REAL SpatialBetaDriverRadius "Radius at which the BetaDriver starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL SpatialShiftGammaCoeffRadius "Radius at which the ShiftGammaCoefficient starts to be reduced"
-{
-  "*:*" :: ""
-} 1000000000000
-
-restricted:
-CCTK_REAL EpsDiss "Dissipation strength"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_INT harmonicN "d/dt alpha = - f alpha^n K  (harmonic=2, 1+log=1)"
-{
-  *:* :: ""
-} 2
-
-restricted:
-CCTK_INT ShiftAlphaPower "ShiftAlphaPower"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT conformalMethod "Treatment of conformal factor"
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT fdOrder "fdOrder"
-{
-  *:* :: ""
-} 4
-
-restricted:
-CCTK_INT harmonicShift "Whether to use the harmonic shift"
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD my_initial_data "my_initial_data"
-{
-  "ADMBase" :: "ADMBase"
-  "Minkowski" :: "Minkowski"
-} "ADMBase"
-
-restricted:
-KEYWORD my_initial_boundary_condition "my_initial_boundary_condition"
-{
-  "none" :: "none"
-} "none"
-
-restricted:
-KEYWORD my_rhs_boundary_condition "my_rhs_boundary_condition"
-{
-  "none" :: "none"
-  "static" :: "static"
-  "radiative" :: "radiative"
-} "none"
-
-private:
-KEYWORD my_boundary_condition "my_boundary_condition"
-{
-  "none" :: "none"
-  "Minkowski" :: "Minkowski"
-} "none"
-
-restricted:
-KEYWORD calculate_ADMBase_variables_at "calculate_ADMBase_variables_at"
-{
-  "MoL_PostStep" :: "MoL_PostStep"
-  "CCTK_EVOL" :: "CCTK_EVOL"
-  "CCTK_ANALYSIS" :: "CCTK_ANALYSIS"
-} "MoL_PostStep"
-
-restricted:
-KEYWORD UseSpatialBetaDriver "UseSpatialBetaDriver"
-{
-  "no" :: "no"
-  "yes" :: "yes"
-} "no"
-
-private:
-KEYWORD dt_lapse_shift_method "Treatment of ADMBase dtlapse and dtshift"
-{
-  "correct" :: "correct"
-  "noLapseShiftAdvection" :: "noLapseShiftAdvection"
-} "correct"
-
-private:
-KEYWORD apply_dissipation "Whether to apply dissipation to the RHSs"
-{
-  "always" :: "always"
-  "never" :: "never"
-} "always"
-
-restricted:
-CCTK_INT ML_BSSN_UPW_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  25:25 :: "Number of evolved variables used by this thorn"
-} 25
-
-restricted:
-CCTK_INT ML_BSSN_UPW_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_Minkowski_calc_every "ML_BSSN_UPW_Minkowski_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertFromADMBase_calc_every "ML_BSSN_UPW_convertFromADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_InitGamma_calc_every "ML_BSSN_UPW_InitGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertFromADMBaseGamma_calc_every "ML_BSSN_UPW_convertFromADMBaseGamma_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_RHS1_calc_every "ML_BSSN_UPW_RHS1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_RHS2_calc_every "ML_BSSN_UPW_RHS2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_Dissipation_calc_every "ML_BSSN_UPW_Dissipation_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_Advect_calc_every "ML_BSSN_UPW_Advect_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_InitRHS_calc_every "ML_BSSN_UPW_InitRHS_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_RHSStaticBoundary_calc_every "ML_BSSN_UPW_RHSStaticBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_enforce_calc_every "ML_BSSN_UPW_enforce_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_boundary_calc_every "ML_BSSN_UPW_boundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertToADMBase_calc_every "ML_BSSN_UPW_convertToADMBase_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertToADMBaseDtLapseShift_calc_every "ML_BSSN_UPW_convertToADMBaseDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_calc_every "ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_calc_every "ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_constraints1_calc_every "ML_BSSN_UPW_constraints1_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_constraints2_calc_every "ML_BSSN_UPW_constraints2_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT ML_BSSN_UPW_Minkowski_calc_offset "ML_BSSN_UPW_Minkowski_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertFromADMBase_calc_offset "ML_BSSN_UPW_convertFromADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_InitGamma_calc_offset "ML_BSSN_UPW_InitGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertFromADMBaseGamma_calc_offset "ML_BSSN_UPW_convertFromADMBaseGamma_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_RHS1_calc_offset "ML_BSSN_UPW_RHS1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_RHS2_calc_offset "ML_BSSN_UPW_RHS2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_Dissipation_calc_offset "ML_BSSN_UPW_Dissipation_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_Advect_calc_offset "ML_BSSN_UPW_Advect_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_InitRHS_calc_offset "ML_BSSN_UPW_InitRHS_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_RHSStaticBoundary_calc_offset "ML_BSSN_UPW_RHSStaticBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_enforce_calc_offset "ML_BSSN_UPW_enforce_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_boundary_calc_offset "ML_BSSN_UPW_boundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertToADMBase_calc_offset "ML_BSSN_UPW_convertToADMBase_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertToADMBaseDtLapseShift_calc_offset "ML_BSSN_UPW_convertToADMBaseDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_calc_offset "ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_calc_offset "ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_constraints1_calc_offset "ML_BSSN_UPW_constraints1_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_BSSN_UPW_constraints2_calc_offset "ML_BSSN_UPW_constraints2_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD At11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD At33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD A_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD B3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Xt3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD alpha_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD phi_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt11_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt12_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt13_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt22_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt23_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD gt33_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD beta3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD trK_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD ML_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtlapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_dtshift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_Gamma_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_lapse_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_log_confac_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_metric_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_shift_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD ML_trace_curv_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-CCTK_REAL At11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL A_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL B3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Xt3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL alpha_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL phi_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt11_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt12_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt13_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt22_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt23_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL gt33_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL beta3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL trK_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtlapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_dtshift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_Gamma_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_lapse_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_log_confac_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_metric_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_shift_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ML_trace_curv_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL At11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL At11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL At33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL A_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL B3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Xt3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL alpha_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL phi_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt11_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt12_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt13_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt22_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt23_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL gt33_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL beta3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL trK_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtlapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_dtshift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_Gamma_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_lapse_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_log_confac_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_metric_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_shift_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ML_trace_curv_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
diff --git a/ML_BSSN_UPW/schedule.ccl b/ML_BSSN_UPW/schedule.ccl
deleted file mode 100644
index 6b69c93..0000000
--- a/ML_BSSN_UPW/schedule.ccl
+++ /dev/null
@@ -1,722 +0,0 @@
-# File produced by Kranc
-
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_detg[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_Gamma[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_cons_traceA[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_Ham[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: ML_mom[1]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_curv[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtlapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtlapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtlapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_dtshift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_dtshift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_dtshift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_Gamma[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_Gamma[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_Gamma[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_lapse[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_lapse[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_lapse[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_log_confac[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_log_confac[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_log_confac[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_metric[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_metric[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_metric[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_shift[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_shift[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_shift[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ML_trace_curv[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ML_trace_curv[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ML_trace_curv[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_curvrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtlapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtlapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtlapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_dtshiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_dtshiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_dtshiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_Gammarhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_Gammarhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_Gammarhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_lapserhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_lapserhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_lapserhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_log_confacrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_log_confacrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_log_confacrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_metricrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_metricrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_metricrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_shiftrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_shiftrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_shiftrhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ML_trace_curvrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ML_trace_curvrhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ML_trace_curvrhs[3]
-}
-
-schedule ML_BSSN_UPW_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_BSSN_UPW_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-
-if (CCTK_EQUALS(my_initial_data, "Minkowski"))
-{
-  schedule ML_BSSN_UPW_Minkowski IN ADMBase_InitialData
-  {
-    LANG: C
-    WRITES:   ML_BSSN_UPW::ML_curv
-    WRITES:   ML_BSSN_UPW::ML_dtlapse
-    WRITES:   ML_BSSN_UPW::ML_dtshift
-    WRITES:   ML_BSSN_UPW::ML_Gamma
-    WRITES:   ML_BSSN_UPW::ML_lapse
-    WRITES:   ML_BSSN_UPW::ML_log_confac
-    WRITES:   ML_BSSN_UPW::ML_metric
-    WRITES:   ML_BSSN_UPW::ML_shift
-    WRITES:   ML_BSSN_UPW::ML_trace_curv
-  } "ML_BSSN_UPW_Minkowski"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_UPW_convertFromADMBase AT initial AFTER ADMBase_PostInitial
-  {
-    LANG: C
-    READS:    ADMBase::curv
-    READS:    ADMBase::lapse
-    READS:    ADMBase::metric
-    READS:    ADMBase::shift
-    READS:    ML_BSSN_UPW::ML_log_confac
-    READS:    ML_BSSN_UPW::ML_trace_curv
-    WRITES:   ML_BSSN_UPW::ML_curv
-    WRITES:   ML_BSSN_UPW::ML_lapse
-    WRITES:   ML_BSSN_UPW::ML_log_confac
-    WRITES:   ML_BSSN_UPW::ML_metric
-    WRITES:   ML_BSSN_UPW::ML_shift
-    WRITES:   ML_BSSN_UPW::ML_trace_curv
-  } "ML_BSSN_UPW_convertFromADMBase"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_UPW_InitGamma AT initial BEFORE ML_BSSN_UPW_convertFromADMBaseGamma
-  {
-    LANG: C
-    WRITES:   ML_BSSN_UPW::ML_dtlapse
-    WRITES:   ML_BSSN_UPW::ML_dtshift
-    WRITES:   ML_BSSN_UPW::ML_Gamma
-  } "ML_BSSN_UPW_InitGamma"
-}
-
-
-if (CCTK_EQUALS(my_initial_data, "ADMBase"))
-{
-  schedule ML_BSSN_UPW_convertFromADMBaseGamma AT initial AFTER ML_BSSN_UPW_convertFromADMBase
-  {
-    LANG: C
-    SYNC: ML_dtlapse
-    SYNC: ML_dtshift
-    SYNC: ML_Gamma
-    READS:    ADMBase::dtlapse
-    READS:    ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_UPW::ML_lapse
-    READS:    ML_BSSN_UPW::ML_metric
-    READS:    ML_BSSN_UPW::ML_shift
-    WRITES:   ML_BSSN_UPW::ML_dtlapse
-    WRITES:   ML_BSSN_UPW::ML_dtshift
-    WRITES:   ML_BSSN_UPW::ML_Gamma
-  } "ML_BSSN_UPW_convertFromADMBaseGamma"
-}
-
-schedule ML_BSSN_UPW_RHS1 IN ML_BSSN_UPW_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_UPW::ML_curv
-  READS:    ML_BSSN_UPW::ML_dtlapse
-  READS:    ML_BSSN_UPW::ML_dtshift
-  READS:    ML_BSSN_UPW::ML_Gamma
-  READS:    ML_BSSN_UPW::ML_lapse
-  READS:    ML_BSSN_UPW::ML_log_confac
-  READS:    ML_BSSN_UPW::ML_metric
-  READS:    ML_BSSN_UPW::ML_shift
-  READS:    ML_BSSN_UPW::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_UPW::ML_dtlapserhs
-  WRITES:   ML_BSSN_UPW::ML_dtshiftrhs
-  WRITES:   ML_BSSN_UPW::ML_Gammarhs
-  WRITES:   ML_BSSN_UPW::ML_lapserhs
-  WRITES:   ML_BSSN_UPW::ML_log_confacrhs
-  WRITES:   ML_BSSN_UPW::ML_metricrhs
-  WRITES:   ML_BSSN_UPW::ML_shiftrhs
-  WRITES:   ML_BSSN_UPW::ML_trace_curvrhs
-} "ML_BSSN_UPW_RHS1"
-
-schedule ML_BSSN_UPW_RHS2 IN ML_BSSN_UPW_evolCalcGroup
-{
-  LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_BSSN_UPW::ML_curv
-  READS:    ML_BSSN_UPW::ML_Gamma
-  READS:    ML_BSSN_UPW::ML_lapse
-  READS:    ML_BSSN_UPW::ML_log_confac
-  READS:    ML_BSSN_UPW::ML_metric
-  READS:    ML_BSSN_UPW::ML_shift
-  READS:    ML_BSSN_UPW::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_UPW::ML_curvrhs
-} "ML_BSSN_UPW_RHS2"
-
-
-if (CCTK_EQUALS(apply_dissipation, "always"))
-{
-  schedule ML_BSSN_UPW_Dissipation IN ML_BSSN_UPW_evolCalcGroup AFTER (ML_BSSN_UPW_RHS1 ML_BSSN_UPW_RHS2)
-  {
-    LANG: C
-    READS:    ML_BSSN_UPW::ML_curv
-    READS:    ML_BSSN_UPW::ML_curvrhs
-    READS:    ML_BSSN_UPW::ML_dtlapse
-    READS:    ML_BSSN_UPW::ML_dtlapserhs
-    READS:    ML_BSSN_UPW::ML_dtshift
-    READS:    ML_BSSN_UPW::ML_dtshiftrhs
-    READS:    ML_BSSN_UPW::ML_Gamma
-    READS:    ML_BSSN_UPW::ML_Gammarhs
-    READS:    ML_BSSN_UPW::ML_lapse
-    READS:    ML_BSSN_UPW::ML_lapserhs
-    READS:    ML_BSSN_UPW::ML_log_confac
-    READS:    ML_BSSN_UPW::ML_log_confacrhs
-    READS:    ML_BSSN_UPW::ML_metric
-    READS:    ML_BSSN_UPW::ML_metricrhs
-    READS:    ML_BSSN_UPW::ML_shift
-    READS:    ML_BSSN_UPW::ML_shiftrhs
-    READS:    ML_BSSN_UPW::ML_trace_curv
-    READS:    ML_BSSN_UPW::ML_trace_curvrhs
-    WRITES:   ML_BSSN_UPW::ML_curvrhs
-    WRITES:   ML_BSSN_UPW::ML_dtlapserhs
-    WRITES:   ML_BSSN_UPW::ML_dtshiftrhs
-    WRITES:   ML_BSSN_UPW::ML_Gammarhs
-    WRITES:   ML_BSSN_UPW::ML_lapserhs
-    WRITES:   ML_BSSN_UPW::ML_log_confacrhs
-    WRITES:   ML_BSSN_UPW::ML_metricrhs
-    WRITES:   ML_BSSN_UPW::ML_shiftrhs
-    WRITES:   ML_BSSN_UPW::ML_trace_curvrhs
-  } "ML_BSSN_UPW_Dissipation"
-}
-
-schedule ML_BSSN_UPW_Advect IN ML_BSSN_UPW_evolCalcGroup AFTER (ML_BSSN_UPW_RHS1 ML_BSSN_UPW_RHS2)
-{
-  LANG: C
-  READS:    ML_BSSN_UPW::ML_curv
-  READS:    ML_BSSN_UPW::ML_curvrhs
-  READS:    ML_BSSN_UPW::ML_dtlapse
-  READS:    ML_BSSN_UPW::ML_dtlapserhs
-  READS:    ML_BSSN_UPW::ML_dtshift
-  READS:    ML_BSSN_UPW::ML_dtshiftrhs
-  READS:    ML_BSSN_UPW::ML_Gamma
-  READS:    ML_BSSN_UPW::ML_Gammarhs
-  READS:    ML_BSSN_UPW::ML_lapse
-  READS:    ML_BSSN_UPW::ML_lapserhs
-  READS:    ML_BSSN_UPW::ML_log_confac
-  READS:    ML_BSSN_UPW::ML_log_confacrhs
-  READS:    ML_BSSN_UPW::ML_metric
-  READS:    ML_BSSN_UPW::ML_metricrhs
-  READS:    ML_BSSN_UPW::ML_shift
-  READS:    ML_BSSN_UPW::ML_shiftrhs
-  READS:    ML_BSSN_UPW::ML_trace_curv
-  READS:    ML_BSSN_UPW::ML_trace_curvrhs
-  WRITES:   ML_BSSN_UPW::ML_curvrhs
-  WRITES:   ML_BSSN_UPW::ML_dtlapserhs
-  WRITES:   ML_BSSN_UPW::ML_dtshiftrhs
-  WRITES:   ML_BSSN_UPW::ML_Gammarhs
-  WRITES:   ML_BSSN_UPW::ML_lapserhs
-  WRITES:   ML_BSSN_UPW::ML_log_confacrhs
-  WRITES:   ML_BSSN_UPW::ML_metricrhs
-  WRITES:   ML_BSSN_UPW::ML_shiftrhs
-  WRITES:   ML_BSSN_UPW::ML_trace_curvrhs
-} "ML_BSSN_UPW_Advect"
-
-schedule ML_BSSN_UPW_InitRHS AT analysis BEFORE ML_BSSN_UPW_evolCalcGroup
-{
-  LANG: C
-  WRITES:   ML_BSSN_UPW::ML_curvrhs
-  WRITES:   ML_BSSN_UPW::ML_dtlapserhs
-  WRITES:   ML_BSSN_UPW::ML_dtshiftrhs
-  WRITES:   ML_BSSN_UPW::ML_Gammarhs
-  WRITES:   ML_BSSN_UPW::ML_lapserhs
-  WRITES:   ML_BSSN_UPW::ML_log_confacrhs
-  WRITES:   ML_BSSN_UPW::ML_metricrhs
-  WRITES:   ML_BSSN_UPW::ML_shiftrhs
-  WRITES:   ML_BSSN_UPW::ML_trace_curvrhs
-} "ML_BSSN_UPW_InitRHS"
-
-
-if (CCTK_EQUALS(my_rhs_boundary_condition, "static"))
-{
-  schedule ML_BSSN_UPW_RHSStaticBoundary IN MoL_CalcRHS
-  {
-    LANG: C
-    WRITES:   ML_BSSN_UPW::ML_curvrhs
-    WRITES:   ML_BSSN_UPW::ML_dtlapserhs
-    WRITES:   ML_BSSN_UPW::ML_dtshiftrhs
-    WRITES:   ML_BSSN_UPW::ML_Gammarhs
-    WRITES:   ML_BSSN_UPW::ML_lapserhs
-    WRITES:   ML_BSSN_UPW::ML_log_confacrhs
-    WRITES:   ML_BSSN_UPW::ML_metricrhs
-    WRITES:   ML_BSSN_UPW::ML_shiftrhs
-    WRITES:   ML_BSSN_UPW::ML_trace_curvrhs
-  } "ML_BSSN_UPW_RHSStaticBoundary"
-}
-
-schedule ML_BSSN_UPW_enforce IN MoL_PostStepModify
-{
-  LANG: C
-  READS:    ML_BSSN_UPW::ML_curv
-  READS:    ML_BSSN_UPW::ML_lapse
-  READS:    ML_BSSN_UPW::ML_metric
-  WRITES:   ML_BSSN_UPW::ML_curv
-  WRITES:   ML_BSSN_UPW::ML_lapse
-} "ML_BSSN_UPW_enforce"
-
-
-if (CCTK_EQUALS(my_boundary_condition, "Minkowski"))
-{
-  schedule ML_BSSN_UPW_boundary IN MoL_PostStep
-  {
-    LANG: C
-    WRITES:   ML_BSSN_UPW::ML_curv
-    WRITES:   ML_BSSN_UPW::ML_dtlapse
-    WRITES:   ML_BSSN_UPW::ML_dtshift
-    WRITES:   ML_BSSN_UPW::ML_Gamma
-    WRITES:   ML_BSSN_UPW::ML_lapse
-    WRITES:   ML_BSSN_UPW::ML_log_confac
-    WRITES:   ML_BSSN_UPW::ML_metric
-    WRITES:   ML_BSSN_UPW::ML_shift
-    WRITES:   ML_BSSN_UPW::ML_trace_curv
-  } "ML_BSSN_UPW_boundary"
-}
-
-schedule ML_BSSN_UPW_convertToADMBase IN ML_BSSN_UPW_convertToADMBaseGroup
-{
-  LANG: C
-  READS:    ADMBase::metric
-  READS:    ML_BSSN_UPW::ML_curv
-  READS:    ML_BSSN_UPW::ML_lapse
-  READS:    ML_BSSN_UPW::ML_log_confac
-  READS:    ML_BSSN_UPW::ML_metric
-  READS:    ML_BSSN_UPW::ML_shift
-  READS:    ML_BSSN_UPW::ML_trace_curv
-  WRITES:   ADMBase::curv
-  WRITES:   ADMBase::lapse
-  WRITES:   ADMBase::metric
-  WRITES:   ADMBase::shift
-} "ML_BSSN_UPW_convertToADMBase"
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_UPW_convertToADMBaseDtLapseShift IN ML_BSSN_UPW_convertToADMBaseGroup
-  {
-    LANG: C
-    SYNC: ADMBase::dtlapse
-    SYNC: ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_UPW::ML_dtlapse
-    READS:    ML_BSSN_UPW::ML_dtshift
-    READS:    ML_BSSN_UPW::ML_Gamma
-    READS:    ML_BSSN_UPW::ML_lapse
-    READS:    ML_BSSN_UPW::ML_log_confac
-    READS:    ML_BSSN_UPW::ML_metric
-    READS:    ML_BSSN_UPW::ML_shift
-    READS:    ML_BSSN_UPW::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_UPW_convertToADMBaseDtLapseShift"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
-{
-  schedule ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary IN ML_BSSN_UPW_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_UPW::ML_dtlapse
-    READS:    ML_BSSN_UPW::ML_dtshift
-    READS:    ML_BSSN_UPW::ML_Gamma
-    READS:    ML_BSSN_UPW::ML_lapse
-    READS:    ML_BSSN_UPW::ML_metric
-    READS:    ML_BSSN_UPW::ML_shift
-    READS:    ML_BSSN_UPW::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary"
-}
-
-
-if (CCTK_EQUALS(dt_lapse_shift_method, "noLapseShiftAdvection"))
-{
-  schedule ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift IN ML_BSSN_UPW_convertToADMBaseGroup
-  {
-    LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_BSSN_UPW::ML_dtlapse
-    READS:    ML_BSSN_UPW::ML_dtshift
-    READS:    ML_BSSN_UPW::ML_Gamma
-    READS:    ML_BSSN_UPW::ML_lapse
-    READS:    ML_BSSN_UPW::ML_metric
-    READS:    ML_BSSN_UPW::ML_shift
-    READS:    ML_BSSN_UPW::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
-  } "ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift"
-}
-
-schedule group ML_BSSN_UPW_constraints1_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_UPW_constraints1"
-
-schedule ML_BSSN_UPW_constraints1 in ML_BSSN_UPW_constraints1_group
-{
-  LANG: C
-  READS:    ML_BSSN_UPW::ML_curv
-  READS:    ML_BSSN_UPW::ML_Gamma
-  READS:    ML_BSSN_UPW::ML_lapse
-  READS:    ML_BSSN_UPW::ML_log_confac
-  READS:    ML_BSSN_UPW::ML_metric
-  READS:    ML_BSSN_UPW::ML_shift
-  READS:    ML_BSSN_UPW::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_UPW::ML_Ham
-} "ML_BSSN_UPW_constraints1"
-
-schedule ML_BSSN_UPW_constraints1_SelectBCs in ML_BSSN_UPW_constraints1_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_Ham
-} "ML_BSSN_UPW_constraints1_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_UPW_constraints1_ApplyBCs in ML_BSSN_UPW_constraints1_bc_group after ML_BSSN_UPW_constraints1_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_UPW_constraints1"
-
-schedule group ML_BSSN_UPW_constraints1_bc_group in ML_BSSN_UPW_constraints1_group after ML_BSSN_UPW_constraints1
-{
-  # no language specified
-} "ML_BSSN_UPW_constraints1"
-
-schedule group ML_BSSN_UPW_constraints1_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_UPW_constraints1"
-
-schedule group ML_BSSN_UPW_constraints2_group in MoL_PseudoEvolution after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_UPW_constraints2"
-
-schedule ML_BSSN_UPW_constraints2 in ML_BSSN_UPW_constraints2_group
-{
-  LANG: C
-  READS:    ML_BSSN_UPW::ML_curv
-  READS:    ML_BSSN_UPW::ML_Gamma
-  READS:    ML_BSSN_UPW::ML_lapse
-  READS:    ML_BSSN_UPW::ML_log_confac
-  READS:    ML_BSSN_UPW::ML_metric
-  READS:    ML_BSSN_UPW::ML_shift
-  READS:    ML_BSSN_UPW::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_BSSN_UPW::ML_cons_detg
-  WRITES:   ML_BSSN_UPW::ML_cons_Gamma
-  WRITES:   ML_BSSN_UPW::ML_cons_traceA
-  WRITES:   ML_BSSN_UPW::ML_mom
-} "ML_BSSN_UPW_constraints2"
-
-schedule ML_BSSN_UPW_constraints2_SelectBCs in ML_BSSN_UPW_constraints2_bc_group
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_cons_detg
-  SYNC: ML_cons_Gamma
-  SYNC: ML_cons_traceA
-  SYNC: ML_mom
-} "ML_BSSN_UPW_constraints2_SelectBCs"
-
-schedule group ApplyBCs as ML_BSSN_UPW_constraints2_ApplyBCs in ML_BSSN_UPW_constraints2_bc_group after ML_BSSN_UPW_constraints2_SelectBCs
-{
-  # no language specified
-} "Apply BCs for groups set in ML_BSSN_UPW_constraints2"
-
-schedule group ML_BSSN_UPW_constraints2_bc_group in ML_BSSN_UPW_constraints2_group after ML_BSSN_UPW_constraints2
-{
-  # no language specified
-} "ML_BSSN_UPW_constraints2"
-
-schedule group ML_BSSN_UPW_constraints2_bc_group in MoL_PseudoEvolutionBoundaries after MoL_PostStep
-{
-  # no language specified
-} "ML_BSSN_UPW_constraints2"
-
-schedule ML_BSSN_UPW_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ML_curv
-  SYNC: ML_dtlapse
-  SYNC: ML_dtshift
-  SYNC: ML_Gamma
-  SYNC: ML_lapse
-  SYNC: ML_log_confac
-  SYNC: ML_metric
-  SYNC: ML_shift
-  SYNC: ML_trace_curv
-} "select boundary conditions"
-
-schedule ML_BSSN_UPW_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_BSSN_UPW_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_BSSN_UPW_ApplyBCs in MoL_PostStep after ML_BSSN_UPW_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_BSSN_UPW/src/Boundaries.cc b/ML_BSSN_UPW/src/Boundaries.cc
deleted file mode 100644
index e2ceb2c..0000000
--- a/ML_BSSN_UPW/src/Boundaries.cc
+++ /dev/null
@@ -1,1809 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_BSSN_UPW_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_BSSN_UPW_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  if (CCTK_EQUALS(ML_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "static") ||
-      CCTK_EQUALS(ML_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::ML_curv", ML_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_curv_bound BC for ML_BSSN_UPW::ML_curv!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "static") ||
-      CCTK_EQUALS(ML_dtlapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtlapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::ML_dtlapse", ML_dtlapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtlapse_bound BC for ML_BSSN_UPW::ML_dtlapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "static") ||
-      CCTK_EQUALS(ML_dtshift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_dtshift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::ML_dtshift", ML_dtshift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_dtshift_bound BC for ML_BSSN_UPW::ML_dtshift!");
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "none"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "static") ||
-      CCTK_EQUALS(ML_Gamma_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_Gamma_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::ML_Gamma", ML_Gamma_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_Gamma_bound BC for ML_BSSN_UPW::ML_Gamma!");
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "none"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "static") ||
-      CCTK_EQUALS(ML_lapse_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_lapse_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::ML_lapse", ML_lapse_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_lapse_bound BC for ML_BSSN_UPW::ML_lapse!");
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "none"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "static") ||
-      CCTK_EQUALS(ML_log_confac_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_log_confac_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::ML_log_confac", ML_log_confac_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_log_confac_bound BC for ML_BSSN_UPW::ML_log_confac!");
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "none"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "static") ||
-      CCTK_EQUALS(ML_metric_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_metric_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::ML_metric", ML_metric_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_metric_bound BC for ML_BSSN_UPW::ML_metric!");
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "none"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "static") ||
-      CCTK_EQUALS(ML_shift_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_shift_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::ML_shift", ML_shift_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_shift_bound BC for ML_BSSN_UPW::ML_shift!");
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "none"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "static") ||
-      CCTK_EQUALS(ML_trace_curv_bound, "flat"  ) ||
-      CCTK_EQUALS(ML_trace_curv_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::ML_trace_curv", ML_trace_curv_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ML_trace_curv_bound BC for ML_BSSN_UPW::ML_trace_curv!");
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "none"  ) ||
-      CCTK_EQUALS(At11_bound, "static") ||
-      CCTK_EQUALS(At11_bound, "flat"  ) ||
-      CCTK_EQUALS(At11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::At11", At11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At11_bound BC for ML_BSSN_UPW::At11!");
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "none"  ) ||
-      CCTK_EQUALS(At12_bound, "static") ||
-      CCTK_EQUALS(At12_bound, "flat"  ) ||
-      CCTK_EQUALS(At12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::At12", At12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At12_bound BC for ML_BSSN_UPW::At12!");
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "none"  ) ||
-      CCTK_EQUALS(At13_bound, "static") ||
-      CCTK_EQUALS(At13_bound, "flat"  ) ||
-      CCTK_EQUALS(At13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::At13", At13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At13_bound BC for ML_BSSN_UPW::At13!");
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "none"  ) ||
-      CCTK_EQUALS(At22_bound, "static") ||
-      CCTK_EQUALS(At22_bound, "flat"  ) ||
-      CCTK_EQUALS(At22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::At22", At22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At22_bound BC for ML_BSSN_UPW::At22!");
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "none"  ) ||
-      CCTK_EQUALS(At23_bound, "static") ||
-      CCTK_EQUALS(At23_bound, "flat"  ) ||
-      CCTK_EQUALS(At23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::At23", At23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At23_bound BC for ML_BSSN_UPW::At23!");
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "none"  ) ||
-      CCTK_EQUALS(At33_bound, "static") ||
-      CCTK_EQUALS(At33_bound, "flat"  ) ||
-      CCTK_EQUALS(At33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::At33", At33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register At33_bound BC for ML_BSSN_UPW::At33!");
-  }
-  
-  if (CCTK_EQUALS(A_bound, "none"  ) ||
-      CCTK_EQUALS(A_bound, "static") ||
-      CCTK_EQUALS(A_bound, "flat"  ) ||
-      CCTK_EQUALS(A_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::A", A_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register A_bound BC for ML_BSSN_UPW::A!");
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "none"  ) ||
-      CCTK_EQUALS(B1_bound, "static") ||
-      CCTK_EQUALS(B1_bound, "flat"  ) ||
-      CCTK_EQUALS(B1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::B1", B1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B1_bound BC for ML_BSSN_UPW::B1!");
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "none"  ) ||
-      CCTK_EQUALS(B2_bound, "static") ||
-      CCTK_EQUALS(B2_bound, "flat"  ) ||
-      CCTK_EQUALS(B2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::B2", B2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B2_bound BC for ML_BSSN_UPW::B2!");
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "none"  ) ||
-      CCTK_EQUALS(B3_bound, "static") ||
-      CCTK_EQUALS(B3_bound, "flat"  ) ||
-      CCTK_EQUALS(B3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::B3", B3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register B3_bound BC for ML_BSSN_UPW::B3!");
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "none"  ) ||
-      CCTK_EQUALS(Xt1_bound, "static") ||
-      CCTK_EQUALS(Xt1_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::Xt1", Xt1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt1_bound BC for ML_BSSN_UPW::Xt1!");
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "none"  ) ||
-      CCTK_EQUALS(Xt2_bound, "static") ||
-      CCTK_EQUALS(Xt2_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::Xt2", Xt2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt2_bound BC for ML_BSSN_UPW::Xt2!");
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "none"  ) ||
-      CCTK_EQUALS(Xt3_bound, "static") ||
-      CCTK_EQUALS(Xt3_bound, "flat"  ) ||
-      CCTK_EQUALS(Xt3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::Xt3", Xt3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Xt3_bound BC for ML_BSSN_UPW::Xt3!");
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "none"  ) ||
-      CCTK_EQUALS(alpha_bound, "static") ||
-      CCTK_EQUALS(alpha_bound, "flat"  ) ||
-      CCTK_EQUALS(alpha_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::alpha", alpha_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register alpha_bound BC for ML_BSSN_UPW::alpha!");
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "none"  ) ||
-      CCTK_EQUALS(phi_bound, "static") ||
-      CCTK_EQUALS(phi_bound, "flat"  ) ||
-      CCTK_EQUALS(phi_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::phi", phi_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register phi_bound BC for ML_BSSN_UPW::phi!");
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "none"  ) ||
-      CCTK_EQUALS(gt11_bound, "static") ||
-      CCTK_EQUALS(gt11_bound, "flat"  ) ||
-      CCTK_EQUALS(gt11_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::gt11", gt11_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt11_bound BC for ML_BSSN_UPW::gt11!");
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "none"  ) ||
-      CCTK_EQUALS(gt12_bound, "static") ||
-      CCTK_EQUALS(gt12_bound, "flat"  ) ||
-      CCTK_EQUALS(gt12_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::gt12", gt12_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt12_bound BC for ML_BSSN_UPW::gt12!");
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "none"  ) ||
-      CCTK_EQUALS(gt13_bound, "static") ||
-      CCTK_EQUALS(gt13_bound, "flat"  ) ||
-      CCTK_EQUALS(gt13_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::gt13", gt13_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt13_bound BC for ML_BSSN_UPW::gt13!");
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "none"  ) ||
-      CCTK_EQUALS(gt22_bound, "static") ||
-      CCTK_EQUALS(gt22_bound, "flat"  ) ||
-      CCTK_EQUALS(gt22_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::gt22", gt22_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt22_bound BC for ML_BSSN_UPW::gt22!");
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "none"  ) ||
-      CCTK_EQUALS(gt23_bound, "static") ||
-      CCTK_EQUALS(gt23_bound, "flat"  ) ||
-      CCTK_EQUALS(gt23_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::gt23", gt23_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt23_bound BC for ML_BSSN_UPW::gt23!");
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "none"  ) ||
-      CCTK_EQUALS(gt33_bound, "static") ||
-      CCTK_EQUALS(gt33_bound, "flat"  ) ||
-      CCTK_EQUALS(gt33_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::gt33", gt33_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register gt33_bound BC for ML_BSSN_UPW::gt33!");
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "none"  ) ||
-      CCTK_EQUALS(beta1_bound, "static") ||
-      CCTK_EQUALS(beta1_bound, "flat"  ) ||
-      CCTK_EQUALS(beta1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::beta1", beta1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta1_bound BC for ML_BSSN_UPW::beta1!");
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "none"  ) ||
-      CCTK_EQUALS(beta2_bound, "static") ||
-      CCTK_EQUALS(beta2_bound, "flat"  ) ||
-      CCTK_EQUALS(beta2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::beta2", beta2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta2_bound BC for ML_BSSN_UPW::beta2!");
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "none"  ) ||
-      CCTK_EQUALS(beta3_bound, "static") ||
-      CCTK_EQUALS(beta3_bound, "flat"  ) ||
-      CCTK_EQUALS(beta3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::beta3", beta3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register beta3_bound BC for ML_BSSN_UPW::beta3!");
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "none"  ) ||
-      CCTK_EQUALS(trK_bound, "static") ||
-      CCTK_EQUALS(trK_bound, "flat"  ) ||
-      CCTK_EQUALS(trK_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_BSSN_UPW::trK", trK_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register trK_bound BC for ML_BSSN_UPW::trK!");
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound , ML_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_UPW::ML_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound , ML_dtlapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_UPW::ML_dtlapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound , ML_dtshift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_UPW::ML_dtshift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound , ML_Gamma_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_UPW::ML_Gamma", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound , ML_lapse_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_UPW::ML_lapse", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound , ML_log_confac_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_UPW::ML_log_confac", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound , ML_metric_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_UPW::ML_metric", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound , ML_shift_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_UPW::ML_shift", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound , ML_trace_curv_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_UPW::ML_trace_curv", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound , At11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_UPW::At11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound , At12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_UPW::At12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound , At13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_UPW::At13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound , At22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_UPW::At22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound , At23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_UPW::At23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound , At33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_UPW::At33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound , A_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_UPW::A", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound , B1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_UPW::B1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound , B2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_UPW::B2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound , B3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_UPW::B3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound , Xt1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_UPW::Xt1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound , Xt2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_UPW::Xt2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound , Xt3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_UPW::Xt3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound , alpha_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_UPW::alpha", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound , phi_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_UPW::phi", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound , gt11_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_UPW::gt11", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound , gt12_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_UPW::gt12", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound , gt13_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_UPW::gt13", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound , gt22_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_UPW::gt22", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound , gt23_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_UPW::gt23", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound , gt33_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_UPW::gt33", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound , beta1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_UPW::beta1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound , beta2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_UPW::beta2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound , beta3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_UPW::beta3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound , trK_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_UPW::trK", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_BSSN_UPW::trK!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_curv_bound = -1;
-    if (handle_ML_curv_bound < 0) handle_ML_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_curv_bound ,ML_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_curv_bound, 
-                      "ML_BSSN_UPW::ML_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_UPW::ML_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtlapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtlapse_bound = -1;
-    if (handle_ML_dtlapse_bound < 0) handle_ML_dtlapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtlapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtlapse_bound ,ML_dtlapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtlapse_bound, 
-                      "ML_BSSN_UPW::ML_dtlapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_UPW::ML_dtlapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_dtshift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_dtshift_bound = -1;
-    if (handle_ML_dtshift_bound < 0) handle_ML_dtshift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_dtshift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_dtshift_bound ,ML_dtshift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_dtshift_bound, 
-                      "ML_BSSN_UPW::ML_dtshift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_UPW::ML_dtshift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_Gamma_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_Gamma_bound = -1;
-    if (handle_ML_Gamma_bound < 0) handle_ML_Gamma_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_Gamma_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_Gamma_bound ,ML_Gamma_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_Gamma_bound, 
-                      "ML_BSSN_UPW::ML_Gamma", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_UPW::ML_Gamma!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_lapse_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_lapse_bound = -1;
-    if (handle_ML_lapse_bound < 0) handle_ML_lapse_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_lapse_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_lapse_bound ,ML_lapse_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_lapse_bound, 
-                      "ML_BSSN_UPW::ML_lapse", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_UPW::ML_lapse!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_log_confac_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_log_confac_bound = -1;
-    if (handle_ML_log_confac_bound < 0) handle_ML_log_confac_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_log_confac_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_log_confac_bound ,ML_log_confac_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_log_confac_bound, 
-                      "ML_BSSN_UPW::ML_log_confac", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_UPW::ML_log_confac!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_metric_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_metric_bound = -1;
-    if (handle_ML_metric_bound < 0) handle_ML_metric_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_metric_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_metric_bound ,ML_metric_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_metric_bound, 
-                      "ML_BSSN_UPW::ML_metric", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_UPW::ML_metric!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_shift_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_shift_bound = -1;
-    if (handle_ML_shift_bound < 0) handle_ML_shift_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_shift_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_shift_bound ,ML_shift_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_shift_bound, 
-                      "ML_BSSN_UPW::ML_shift", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_UPW::ML_shift!");
-  
-  }
-  
-  if (CCTK_EQUALS(ML_trace_curv_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ML_trace_curv_bound = -1;
-    if (handle_ML_trace_curv_bound < 0) handle_ML_trace_curv_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ML_trace_curv_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ML_trace_curv_bound ,ML_trace_curv_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ML_trace_curv_bound, 
-                      "ML_BSSN_UPW::ML_trace_curv", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_BSSN_UPW::ML_trace_curv!");
-  
-  }
-  
-  if (CCTK_EQUALS(At11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At11_bound = -1;
-    if (handle_At11_bound < 0) handle_At11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At11_bound ,At11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At11_bound, 
-                      "ML_BSSN_UPW::At11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::At11!");
-  
-  }
-  
-  if (CCTK_EQUALS(At12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At12_bound = -1;
-    if (handle_At12_bound < 0) handle_At12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At12_bound ,At12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At12_bound, 
-                      "ML_BSSN_UPW::At12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::At12!");
-  
-  }
-  
-  if (CCTK_EQUALS(At13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At13_bound = -1;
-    if (handle_At13_bound < 0) handle_At13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At13_bound ,At13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At13_bound, 
-                      "ML_BSSN_UPW::At13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::At13!");
-  
-  }
-  
-  if (CCTK_EQUALS(At22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At22_bound = -1;
-    if (handle_At22_bound < 0) handle_At22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At22_bound ,At22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At22_bound, 
-                      "ML_BSSN_UPW::At22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::At22!");
-  
-  }
-  
-  if (CCTK_EQUALS(At23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At23_bound = -1;
-    if (handle_At23_bound < 0) handle_At23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At23_bound ,At23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At23_bound, 
-                      "ML_BSSN_UPW::At23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::At23!");
-  
-  }
-  
-  if (CCTK_EQUALS(At33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_At33_bound = -1;
-    if (handle_At33_bound < 0) handle_At33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_At33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_At33_bound ,At33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_At33_bound, 
-                      "ML_BSSN_UPW::At33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::At33!");
-  
-  }
-  
-  if (CCTK_EQUALS(A_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_A_bound = -1;
-    if (handle_A_bound < 0) handle_A_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_A_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_A_bound ,A_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_A_bound, 
-                      "ML_BSSN_UPW::A", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::A!");
-  
-  }
-  
-  if (CCTK_EQUALS(B1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B1_bound = -1;
-    if (handle_B1_bound < 0) handle_B1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B1_bound ,B1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B1_bound, 
-                      "ML_BSSN_UPW::B1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::B1!");
-  
-  }
-  
-  if (CCTK_EQUALS(B2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B2_bound = -1;
-    if (handle_B2_bound < 0) handle_B2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B2_bound ,B2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B2_bound, 
-                      "ML_BSSN_UPW::B2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::B2!");
-  
-  }
-  
-  if (CCTK_EQUALS(B3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_B3_bound = -1;
-    if (handle_B3_bound < 0) handle_B3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_B3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_B3_bound ,B3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_B3_bound, 
-                      "ML_BSSN_UPW::B3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::B3!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt1_bound = -1;
-    if (handle_Xt1_bound < 0) handle_Xt1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt1_bound ,Xt1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt1_bound, 
-                      "ML_BSSN_UPW::Xt1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::Xt1!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt2_bound = -1;
-    if (handle_Xt2_bound < 0) handle_Xt2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt2_bound ,Xt2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt2_bound, 
-                      "ML_BSSN_UPW::Xt2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::Xt2!");
-  
-  }
-  
-  if (CCTK_EQUALS(Xt3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_Xt3_bound = -1;
-    if (handle_Xt3_bound < 0) handle_Xt3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_Xt3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_Xt3_bound ,Xt3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Xt3_bound, 
-                      "ML_BSSN_UPW::Xt3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::Xt3!");
-  
-  }
-  
-  if (CCTK_EQUALS(alpha_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_alpha_bound = -1;
-    if (handle_alpha_bound < 0) handle_alpha_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_alpha_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_alpha_bound ,alpha_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_alpha_bound, 
-                      "ML_BSSN_UPW::alpha", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::alpha!");
-  
-  }
-  
-  if (CCTK_EQUALS(phi_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_phi_bound = -1;
-    if (handle_phi_bound < 0) handle_phi_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_phi_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_phi_bound ,phi_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_phi_bound, 
-                      "ML_BSSN_UPW::phi", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::phi!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt11_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt11_bound = -1;
-    if (handle_gt11_bound < 0) handle_gt11_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt11_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt11_bound ,gt11_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt11_bound, 
-                      "ML_BSSN_UPW::gt11", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::gt11!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt12_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt12_bound = -1;
-    if (handle_gt12_bound < 0) handle_gt12_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt12_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt12_bound ,gt12_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt12_bound, 
-                      "ML_BSSN_UPW::gt12", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::gt12!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt13_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt13_bound = -1;
-    if (handle_gt13_bound < 0) handle_gt13_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt13_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt13_bound ,gt13_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt13_bound, 
-                      "ML_BSSN_UPW::gt13", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::gt13!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt22_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt22_bound = -1;
-    if (handle_gt22_bound < 0) handle_gt22_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt22_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt22_bound ,gt22_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt22_bound, 
-                      "ML_BSSN_UPW::gt22", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::gt22!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt23_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt23_bound = -1;
-    if (handle_gt23_bound < 0) handle_gt23_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt23_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt23_bound ,gt23_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt23_bound, 
-                      "ML_BSSN_UPW::gt23", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::gt23!");
-  
-  }
-  
-  if (CCTK_EQUALS(gt33_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_gt33_bound = -1;
-    if (handle_gt33_bound < 0) handle_gt33_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_gt33_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_gt33_bound ,gt33_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_gt33_bound, 
-                      "ML_BSSN_UPW::gt33", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::gt33!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta1_bound = -1;
-    if (handle_beta1_bound < 0) handle_beta1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta1_bound ,beta1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta1_bound, 
-                      "ML_BSSN_UPW::beta1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::beta1!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta2_bound = -1;
-    if (handle_beta2_bound < 0) handle_beta2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta2_bound ,beta2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta2_bound, 
-                      "ML_BSSN_UPW::beta2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::beta2!");
-  
-  }
-  
-  if (CCTK_EQUALS(beta3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_beta3_bound = -1;
-    if (handle_beta3_bound < 0) handle_beta3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_beta3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_beta3_bound ,beta3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_beta3_bound, 
-                      "ML_BSSN_UPW::beta3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::beta3!");
-  
-  }
-  
-  if (CCTK_EQUALS(trK_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_trK_bound = -1;
-    if (handle_trK_bound < 0) handle_trK_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_trK_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_trK_bound ,trK_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_trK_bound, 
-                      "ML_BSSN_UPW::trK", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_BSSN_UPW::trK!");
-  
-  }
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-#$bound$#ML_BSSN_UPW::ML_curv_bound       = "skip"
-#$bound$#ML_BSSN_UPW::ML_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::ML_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::ML_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::ML_dtlapse_bound       = "skip"
-#$bound$#ML_BSSN_UPW::ML_dtlapse_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::ML_dtlapse_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::ML_dtlapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::ML_dtshift_bound       = "skip"
-#$bound$#ML_BSSN_UPW::ML_dtshift_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::ML_dtshift_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::ML_dtshift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::ML_Gamma_bound       = "skip"
-#$bound$#ML_BSSN_UPW::ML_Gamma_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::ML_Gamma_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::ML_Gamma_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::ML_lapse_bound       = "skip"
-#$bound$#ML_BSSN_UPW::ML_lapse_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::ML_lapse_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::ML_lapse_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::ML_log_confac_bound       = "skip"
-#$bound$#ML_BSSN_UPW::ML_log_confac_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::ML_log_confac_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::ML_log_confac_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::ML_metric_bound       = "skip"
-#$bound$#ML_BSSN_UPW::ML_metric_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::ML_metric_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::ML_metric_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::ML_shift_bound       = "skip"
-#$bound$#ML_BSSN_UPW::ML_shift_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::ML_shift_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::ML_shift_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::ML_trace_curv_bound       = "skip"
-#$bound$#ML_BSSN_UPW::ML_trace_curv_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::ML_trace_curv_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::ML_trace_curv_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::At11_bound       = "skip"
-#$bound$#ML_BSSN_UPW::At11_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::At11_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::At11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::At12_bound       = "skip"
-#$bound$#ML_BSSN_UPW::At12_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::At12_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::At12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::At13_bound       = "skip"
-#$bound$#ML_BSSN_UPW::At13_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::At13_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::At13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::At22_bound       = "skip"
-#$bound$#ML_BSSN_UPW::At22_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::At22_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::At22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::At23_bound       = "skip"
-#$bound$#ML_BSSN_UPW::At23_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::At23_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::At23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::At33_bound       = "skip"
-#$bound$#ML_BSSN_UPW::At33_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::At33_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::At33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::A_bound       = "skip"
-#$bound$#ML_BSSN_UPW::A_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::A_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::A_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::B1_bound       = "skip"
-#$bound$#ML_BSSN_UPW::B1_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::B1_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::B1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::B2_bound       = "skip"
-#$bound$#ML_BSSN_UPW::B2_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::B2_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::B2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::B3_bound       = "skip"
-#$bound$#ML_BSSN_UPW::B3_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::B3_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::B3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::Xt1_bound       = "skip"
-#$bound$#ML_BSSN_UPW::Xt1_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::Xt1_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::Xt1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::Xt2_bound       = "skip"
-#$bound$#ML_BSSN_UPW::Xt2_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::Xt2_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::Xt2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::Xt3_bound       = "skip"
-#$bound$#ML_BSSN_UPW::Xt3_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::Xt3_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::Xt3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::alpha_bound       = "skip"
-#$bound$#ML_BSSN_UPW::alpha_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::alpha_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::alpha_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::phi_bound       = "skip"
-#$bound$#ML_BSSN_UPW::phi_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::phi_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::phi_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::gt11_bound       = "skip"
-#$bound$#ML_BSSN_UPW::gt11_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::gt11_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::gt11_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::gt12_bound       = "skip"
-#$bound$#ML_BSSN_UPW::gt12_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::gt12_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::gt12_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::gt13_bound       = "skip"
-#$bound$#ML_BSSN_UPW::gt13_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::gt13_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::gt13_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::gt22_bound       = "skip"
-#$bound$#ML_BSSN_UPW::gt22_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::gt22_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::gt22_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::gt23_bound       = "skip"
-#$bound$#ML_BSSN_UPW::gt23_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::gt23_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::gt23_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::gt33_bound       = "skip"
-#$bound$#ML_BSSN_UPW::gt33_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::gt33_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::gt33_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::beta1_bound       = "skip"
-#$bound$#ML_BSSN_UPW::beta1_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::beta1_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::beta1_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::beta2_bound       = "skip"
-#$bound$#ML_BSSN_UPW::beta2_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::beta2_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::beta2_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::beta3_bound       = "skip"
-#$bound$#ML_BSSN_UPW::beta3_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::beta3_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::beta3_bound_scalar = 0.0
-
-#$bound$#ML_BSSN_UPW::trK_bound       = "skip"
-#$bound$#ML_BSSN_UPW::trK_bound_speed = 1.0
-#$bound$#ML_BSSN_UPW::trK_bound_limit = 0.0
-#$bound$#ML_BSSN_UPW::trK_bound_scalar = 0.0
-
-*/
-
diff --git a/ML_BSSN_UPW/src/Differencing.h b/ML_BSSN_UPW/src/Differencing.h
deleted file mode 100644
index 96a0554..0000000
--- a/ML_BSSN_UPW/src/Differencing.h
+++ /dev/null
@@ -1,1146 +0,0 @@
-#include <assert.h>
-#include "vectors.h"
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder21(u) (kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0))))
-#else
-#  define PDstandardNthfdOrder21(u) (PDstandardNthfdOrder21_impl(u,p1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dx,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,-1,0,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder22(u) (kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0))))
-#else
-#  define PDstandardNthfdOrder22(u) (PDstandardNthfdOrder22_impl(u,p1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dy,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,-1,0)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder23(u) (kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1))))
-#else
-#  define PDstandardNthfdOrder23(u) (PDstandardNthfdOrder23_impl(u,p1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o2dz,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,-1)));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder41(u) (kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDstandardNthfdOrder41(u) (PDstandardNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(8),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder42(u) (kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDstandardNthfdOrder42(u) (PDstandardNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(8),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder43(u) (kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDstandardNthfdOrder43(u) (PDstandardNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o12dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-8),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(8),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder61(u) (kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDstandardNthfdOrder61(u) (PDstandardNthfdOrder61_impl(u,p1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(45))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder62(u) (kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDstandardNthfdOrder62(u) (PDstandardNthfdOrder62_impl(u,p1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(45))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder63(u) (kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDstandardNthfdOrder63(u) (PDstandardNthfdOrder63_impl(u,p1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o60dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-45),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-9),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(9),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(45))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder81(u) (kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder81(u) (PDstandardNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder82(u) (kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder82(u) (PDstandardNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder83(u) (kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672)))))))))))
-#else
-#  define PDstandardNthfdOrder83(u) (PDstandardNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o840dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-672),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-168),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(32),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(168),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(672))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder211(u) (kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0)))))
-#else
-#  define PDstandardNthfdOrder211(u) (PDstandardNthfdOrder211_impl(u,p1odx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder211_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odx2,kadd(KRANC_GFOFFSET3D(u,-1,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,1,0,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder222(u) (kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0)))))
-#else
-#  define PDstandardNthfdOrder222(u) (PDstandardNthfdOrder222_impl(u,p1ody2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder222_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1ody2,kadd(KRANC_GFOFFSET3D(u,0,-1,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,1,0))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder233(u) (kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1)))))
-#else
-#  define PDstandardNthfdOrder233(u) (PDstandardNthfdOrder233_impl(u,p1odz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder233_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1odz2,kadd(KRANC_GFOFFSET3D(u,0,0,-1),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-2),KRANC_GFOFFSET3D(u,0,0,1))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder411(u) (kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder411(u) (PDstandardNthfdOrder411_impl(u,pm1o12dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder411_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dx2,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder422(u) (kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder422(u) (PDstandardNthfdOrder422_impl(u,pm1o12dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder422_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dy2,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder433(u) (kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30)))))))
-#else
-#  define PDstandardNthfdOrder433(u) (PDstandardNthfdOrder433_impl(u,pm1o12dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder433_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o12dz2,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-16),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(30))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder611(u) (kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder611(u) (PDstandardNthfdOrder611_impl(u,p1o180dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder611_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder622(u) (kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder622(u) (PDstandardNthfdOrder622_impl(u,p1o180dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder622_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder633(u) (kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270)))))))
-#else
-#  define PDstandardNthfdOrder633(u) (PDstandardNthfdOrder633_impl(u,p1o180dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder633_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o180dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o180dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-490),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-27),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(2),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(270))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder811(u) (kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder811(u) (PDstandardNthfdOrder811_impl(u,p1o5040dx2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder811_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dx2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder822(u) (kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder822(u) (PDstandardNthfdOrder822_impl(u,p1o5040dy2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder822_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dy2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder833(u) (kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064))))))))
-#else
-#  define PDstandardNthfdOrder833(u) (PDstandardNthfdOrder833_impl(u,p1o5040dz2,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder833_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o5040dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o5040dz2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-14350),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-1008),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(128),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(8064)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder212(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder212(u) (PDstandardNthfdOrder212_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder212_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder213(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder213(u) (PDstandardNthfdOrder213_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder213_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder221(u) (kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0))))))
-#else
-#  define PDstandardNthfdOrder221(u) (PDstandardNthfdOrder221_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder221_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdy,kadd(KRANC_GFOFFSET3D(u,-1,-1,0),ksub(KRANC_GFOFFSET3D(u,1,1,0),kadd(KRANC_GFOFFSET3D(u,1,-1,0),KRANC_GFOFFSET3D(u,-1,1,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder223(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder223(u) (PDstandardNthfdOrder223_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder223_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder231(u) (kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1))))))
-#else
-#  define PDstandardNthfdOrder231(u) (PDstandardNthfdOrder231_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder231_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dxdz,kadd(KRANC_GFOFFSET3D(u,-1,0,-1),ksub(KRANC_GFOFFSET3D(u,1,0,1),kadd(KRANC_GFOFFSET3D(u,1,0,-1),KRANC_GFOFFSET3D(u,-1,0,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder232(u) (kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1))))))
-#else
-#  define PDstandardNthfdOrder232(u) (PDstandardNthfdOrder232_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder232_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dydz,kadd(KRANC_GFOFFSET3D(u,0,-1,-1),ksub(KRANC_GFOFFSET3D(u,0,1,1),kadd(KRANC_GFOFFSET3D(u,0,1,-1),KRANC_GFOFFSET3D(u,0,-1,1)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder412(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder412(u) (PDstandardNthfdOrder412_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder412_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder413(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder413(u) (PDstandardNthfdOrder413_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder413_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder421(u) (kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0))))))))
-#else
-#  define PDstandardNthfdOrder421(u) (PDstandardNthfdOrder421_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder421_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdy,kadd(KRANC_GFOFFSET3D(u,-2,-2,0),kadd(KRANC_GFOFFSET3D(u,2,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(64))),KRANC_GFOFFSET3D(u,2,-2,0)),KRANC_GFOFFSET3D(u,-2,2,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder423(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder423(u) (PDstandardNthfdOrder423_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder423_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder431(u) (kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2))))))))
-#else
-#  define PDstandardNthfdOrder431(u) (PDstandardNthfdOrder431_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder431_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dxdz,kadd(KRANC_GFOFFSET3D(u,-2,0,-2),kadd(KRANC_GFOFFSET3D(u,2,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(64))),KRANC_GFOFFSET3D(u,2,0,-2)),KRANC_GFOFFSET3D(u,-2,0,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder432(u) (kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2))))))))
-#else
-#  define PDstandardNthfdOrder432(u) (PDstandardNthfdOrder432_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder432_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o144dydz,kadd(KRANC_GFOFFSET3D(u,0,-2,-2),kadd(KRANC_GFOFFSET3D(u,0,2,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-64),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-8),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(8),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(64))),KRANC_GFOFFSET3D(u,0,2,-2)),KRANC_GFOFFSET3D(u,0,-2,2)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder612(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder612(u) (PDstandardNthfdOrder612_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder612_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder613(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder613(u) (PDstandardNthfdOrder613_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder613_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder621(u) (kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0)))))))))))
-#else
-#  define PDstandardNthfdOrder621(u) (PDstandardNthfdOrder621_impl(u,p1o3600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder621_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdy,kadd(KRANC_GFOFFSET3D(u,-3,-3,0),kadd(KRANC_GFOFFSET3D(u,3,3,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,-3,0)),KRANC_GFOFFSET3D(u,-3,3,0))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder623(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder623(u) (PDstandardNthfdOrder623_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder623_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder631(u) (kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3)))))))))))
-#else
-#  define PDstandardNthfdOrder631(u) (PDstandardNthfdOrder631_impl(u,p1o3600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder631_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dxdz,kadd(KRANC_GFOFFSET3D(u,-3,0,-3),kadd(KRANC_GFOFFSET3D(u,3,0,3),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,3,0,-3)),KRANC_GFOFFSET3D(u,-3,0,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder632(u) (kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3)))))))))))
-#else
-#  define PDstandardNthfdOrder632(u) (PDstandardNthfdOrder632_impl(u,p1o3600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder632_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o3600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o3600dydz,kadd(KRANC_GFOFFSET3D(u,0,-3,-3),kadd(KRANC_GFOFFSET3D(u,0,3,3),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-2025),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-405),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-9),ksub(ksub(kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(45),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(81),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(405),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(2025)))))),KRANC_GFOFFSET3D(u,0,3,-3)),KRANC_GFOFFSET3D(u,0,-3,3))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder812(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder812(u) (PDstandardNthfdOrder812_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder812_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder813(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder813(u) (PDstandardNthfdOrder813_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder813_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder821(u) (kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder821(u) (PDstandardNthfdOrder821_impl(u,p1o705600dxdy,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder821_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdy,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,1,0),KRANC_GFOFFSET3D(u,1,-1,0)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-2,0),kadd(KRANC_GFOFFSET3D(u,1,2,0),kadd(KRANC_GFOFFSET3D(u,-2,-1,0),KRANC_GFOFFSET3D(u,2,1,0)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,2,0),KRANC_GFOFFSET3D(u,2,-2,0)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,3,0),kadd(KRANC_GFOFFSET3D(u,1,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,1,0),KRANC_GFOFFSET3D(u,3,-1,0)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-3,0),kadd(KRANC_GFOFFSET3D(u,2,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-2,0),KRANC_GFOFFSET3D(u,3,2,0)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-4,0),kadd(KRANC_GFOFFSET3D(u,1,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-1,0),KRANC_GFOFFSET3D(u,4,1,0)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,3,0),KRANC_GFOFFSET3D(u,3,-3,0)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,4,0),kadd(KRANC_GFOFFSET3D(u,2,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,2,0),KRANC_GFOFFSET3D(u,4,-2,0)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-4,0),kadd(KRANC_GFOFFSET3D(u,3,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-3,0),KRANC_GFOFFSET3D(u,4,3,0)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,4,0),KRANC_GFOFFSET3D(u,4,-4,0)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,-4,0),KRANC_GFOFFSET3D(u,4,4,0)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,4,0),kadd(KRANC_GFOFFSET3D(u,3,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,3,0),KRANC_GFOFFSET3D(u,4,-3,0)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-4,0),kadd(KRANC_GFOFFSET3D(u,2,4,0),kadd(KRANC_GFOFFSET3D(u,-4,-2,0),KRANC_GFOFFSET3D(u,4,2,0)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,-3,0),KRANC_GFOFFSET3D(u,3,3,0)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,4,0),kadd(KRANC_GFOFFSET3D(u,1,-4,0),kadd(KRANC_GFOFFSET3D(u,-4,1,0),KRANC_GFOFFSET3D(u,4,-1,0)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,3,0),kadd(KRANC_GFOFFSET3D(u,2,-3,0),kadd(KRANC_GFOFFSET3D(u,-3,2,0),KRANC_GFOFFSET3D(u,3,-2,0)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,-3,0),kadd(KRANC_GFOFFSET3D(u,1,3,0),kadd(KRANC_GFOFFSET3D(u,-3,-1,0),KRANC_GFOFFSET3D(u,3,1,0)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,-2,0),KRANC_GFOFFSET3D(u,2,2,0)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,2,0),kadd(KRANC_GFOFFSET3D(u,1,-2,0),kadd(KRANC_GFOFFSET3D(u,-2,1,0),KRANC_GFOFFSET3D(u,2,-1,0)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,-1,0),KRANC_GFOFFSET3D(u,1,1,0)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder823(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder823(u) (PDstandardNthfdOrder823_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder823_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder831(u) (kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder831(u) (PDstandardNthfdOrder831_impl(u,p1o705600dxdz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder831_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dxdz,kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,1),KRANC_GFOFFSET3D(u,1,0,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-2),kadd(KRANC_GFOFFSET3D(u,1,0,2),kadd(KRANC_GFOFFSET3D(u,-2,0,-1),KRANC_GFOFFSET3D(u,2,0,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,2),KRANC_GFOFFSET3D(u,2,0,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,3),kadd(KRANC_GFOFFSET3D(u,1,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,1),KRANC_GFOFFSET3D(u,3,0,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-3),kadd(KRANC_GFOFFSET3D(u,2,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-2),KRANC_GFOFFSET3D(u,3,0,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-4),kadd(KRANC_GFOFFSET3D(u,1,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-1),KRANC_GFOFFSET3D(u,4,0,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,3),KRANC_GFOFFSET3D(u,3,0,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,4),kadd(KRANC_GFOFFSET3D(u,2,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,2),KRANC_GFOFFSET3D(u,4,0,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-4),kadd(KRANC_GFOFFSET3D(u,3,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-3),KRANC_GFOFFSET3D(u,4,0,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,4),KRANC_GFOFFSET3D(u,4,0,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,-4),KRANC_GFOFFSET3D(u,4,0,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,4),kadd(KRANC_GFOFFSET3D(u,3,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,3),KRANC_GFOFFSET3D(u,4,0,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-4),kadd(KRANC_GFOFFSET3D(u,2,0,4),kadd(KRANC_GFOFFSET3D(u,-4,0,-2),KRANC_GFOFFSET3D(u,4,0,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,-3),KRANC_GFOFFSET3D(u,3,0,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,4),kadd(KRANC_GFOFFSET3D(u,1,0,-4),kadd(KRANC_GFOFFSET3D(u,-4,0,1),KRANC_GFOFFSET3D(u,4,0,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,3),kadd(KRANC_GFOFFSET3D(u,2,0,-3),kadd(KRANC_GFOFFSET3D(u,-3,0,2),KRANC_GFOFFSET3D(u,3,0,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,-3),kadd(KRANC_GFOFFSET3D(u,1,0,3),kadd(KRANC_GFOFFSET3D(u,-3,0,-1),KRANC_GFOFFSET3D(u,3,0,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,-2),KRANC_GFOFFSET3D(u,2,0,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,2),kadd(KRANC_GFOFFSET3D(u,1,0,-2),kadd(KRANC_GFOFFSET3D(u,-2,0,1),KRANC_GFOFFSET3D(u,2,0,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,-1),KRANC_GFOFFSET3D(u,1,0,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNthfdOrder832(u) (kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584)))))))))))))))))))))))
-#else
-#  define PDstandardNthfdOrder832(u) (PDstandardNthfdOrder832_impl(u,p1o705600dydz,cdj,cdk))
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDstandardNthfdOrder832_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o705600dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o705600dydz,kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,1),KRANC_GFOFFSET3D(u,0,1,-1)),ToReal(-451584),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-2),kadd(KRANC_GFOFFSET3D(u,0,1,2),kadd(KRANC_GFOFFSET3D(u,0,-2,-1),KRANC_GFOFFSET3D(u,0,2,1)))),ToReal(-112896),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,2),KRANC_GFOFFSET3D(u,0,2,-2)),ToReal(-28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,3),kadd(KRANC_GFOFFSET3D(u,0,1,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,1),KRANC_GFOFFSET3D(u,0,3,-1)))),ToReal(-21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-3),kadd(KRANC_GFOFFSET3D(u,0,2,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-2),KRANC_GFOFFSET3D(u,0,3,2)))),ToReal(-5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-4),kadd(KRANC_GFOFFSET3D(u,0,1,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-1),KRANC_GFOFFSET3D(u,0,4,1)))),ToReal(-2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,3),KRANC_GFOFFSET3D(u,0,3,-3)),ToReal(-1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,4),kadd(KRANC_GFOFFSET3D(u,0,2,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,2),KRANC_GFOFFSET3D(u,0,4,-2)))),ToReal(-504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-4),kadd(KRANC_GFOFFSET3D(u,0,3,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-3),KRANC_GFOFFSET3D(u,0,4,3)))),ToReal(-96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,4),KRANC_GFOFFSET3D(u,0,4,-4)),ToReal(-9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,-4),KRANC_GFOFFSET3D(u,0,4,4)),ToReal(9),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,4),kadd(KRANC_GFOFFSET3D(u,0,3,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,3),KRANC_GFOFFSET3D(u,0,4,-3)))),ToReal(96),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-4),kadd(KRANC_GFOFFSET3D(u,0,2,4),kadd(KRANC_GFOFFSET3D(u,0,-4,-2),KRANC_GFOFFSET3D(u,0,4,2)))),ToReal(504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,-3),KRANC_GFOFFSET3D(u,0,3,3)),ToReal(1024),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,4),kadd(KRANC_GFOFFSET3D(u,0,1,-4),kadd(KRANC_GFOFFSET3D(u,0,-4,1),KRANC_GFOFFSET3D(u,0,4,-1)))),ToReal(2016),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,3),kadd(KRANC_GFOFFSET3D(u,0,2,-3),kadd(KRANC_GFOFFSET3D(u,0,-3,2),KRANC_GFOFFSET3D(u,0,3,-2)))),ToReal(5376),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,-3),kadd(KRANC_GFOFFSET3D(u,0,1,3),kadd(KRANC_GFOFFSET3D(u,0,-3,-1),KRANC_GFOFFSET3D(u,0,3,1)))),ToReal(21504),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,-2),KRANC_GFOFFSET3D(u,0,2,2)),ToReal(28224),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,2),kadd(KRANC_GFOFFSET3D(u,0,1,-2),kadd(KRANC_GFOFFSET3D(u,0,-2,1),KRANC_GFOFFSET3D(u,0,2,-1)))),ToReal(112896),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,-1),KRANC_GFOFFSET3D(u,0,1,1)),ToReal(451584))))))))))))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder21(u) (kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder21(u) (PDdissipationNthfdOrder21_impl(u,p1o16dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder22(u) (kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder22(u) (PDdissipationNthfdOrder22_impl(u,p1o16dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder23(u) (kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDdissipationNthfdOrder23(u) (PDdissipationNthfdOrder23_impl(u,p1o16dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o16dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o16dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder41(u) (kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder41(u) (PDdissipationNthfdOrder41_impl(u,p1o64dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder42(u) (kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder42(u) (PDdissipationNthfdOrder42_impl(u,p1o64dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder43(u) (kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDdissipationNthfdOrder43(u) (PDdissipationNthfdOrder43_impl(u,p1o64dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o64dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o64dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder61(u) (kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder61(u) (PDdissipationNthfdOrder61_impl(u,p1o256dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder62(u) (kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder62(u) (PDdissipationNthfdOrder62_impl(u,p1o256dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder63(u) (kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDdissipationNthfdOrder63(u) (PDdissipationNthfdOrder63_impl(u,p1o256dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o256dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o256dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder81(u) (kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder81(u) (PDdissipationNthfdOrder81_impl(u,p1o1024dx,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder82(u) (kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder82(u) (PDdissipationNthfdOrder82_impl(u,p1o1024dy,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDdissipationNthfdOrder83(u) (kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDdissipationNthfdOrder83(u) (PDdissipationNthfdOrder83_impl(u,p1o1024dz,cdj,cdk))
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDdissipationNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1024dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1024dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder21(u) (kmul(pm1o2dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder21(u) (PDupwindNthfdOrder21_impl(u,pm1o2dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder41(u) (kmul(p1o12dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder41(u) (PDupwindNthfdOrder41_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder61(u) (kmul(pm1o60dx,kmul(dir1,kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder61(u) (PDupwindNthfdOrder61_impl(u,pm1o60dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder81(u) (kmul(p1o840dx,kmul(dir1,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,-3,0,0),kmadd(KRANC_GFOFFSET3D(u,1,0,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder81(u) (PDupwindNthfdOrder81_impl(u,p1o840dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder21(u) (kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0))))))
-#else
-#  define PDupwindNthAntifdOrder21(u) (PDupwindNthAntifdOrder21_impl(u,p1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,1,0,0),ToReal(4),KRANC_GFOFFSET3D(u,2,0,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0)))))))
-#else
-#  define PDupwindNthAntifdOrder41(u) (PDupwindNthAntifdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(21))),KRANC_GFOFFSET3D(u,-3,0,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder61(u) (kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0))))))))
-#else
-#  define PDupwindNthAntifdOrder61(u) (PDupwindNthAntifdOrder61_impl(u,p1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(104)))),KRANC_GFOFFSET3D(u,4,0,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder81(u) (kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder81(u) (PDupwindNthAntifdOrder81_impl(u,p1o1680dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dx,kmadd(KRANC_GFOFFSET3D(u,-1,0,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,2,0,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,-3,0,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,4,0,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,-5,0,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,5,0,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,-4,0,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,3,0,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,-2,0,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,1,0,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder21(u) (kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder21(u) (PDupwindNthSymmfdOrder21_impl(u,pm1o4dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder21_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dx,kadd(KRANC_GFOFFSET3D(u,-2,0,0),kadd(KRANC_GFOFFSET3D(u,2,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder41(u) (kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder41(u) (PDupwindNthSymmfdOrder41_impl(u,p1o24dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder41_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dx,kadd(KRANC_GFOFFSET3D(u,-3,0,0),kadd(KRANC_GFOFFSET3D(u,3,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder61(u) (kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder61(u) (PDupwindNthSymmfdOrder61_impl(u,pm1o120dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder61_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dx,kadd(KRANC_GFOFFSET3D(u,-4,0,0),kadd(KRANC_GFOFFSET3D(u,4,0,0),kmadd(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder81(u) (kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder81(u) (PDupwindNthSymmfdOrder81_impl(u,p1o560dx,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder81_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dx,kadd(KRANC_GFOFFSET3D(u,-5,0,0),kadd(KRANC_GFOFFSET3D(u,5,0,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,-2,0,0),KRANC_GFOFFSET3D(u,2,0,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,-4,0,0),KRANC_GFOFFSET3D(u,4,0,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,-3,0,0),KRANC_GFOFFSET3D(u,3,0,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,-1,0,0),KRANC_GFOFFSET3D(u,1,0,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided1(u) (kmul(p1odx,kmul(dir1,ksub(KRANC_GFOFFSET3D(u,1,0,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided1(u) (PDonesided1_impl(u,p1odx,cdj,cdk))
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided1_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder22(u) (kmul(pm1o2dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder22(u) (PDupwindNthfdOrder22_impl(u,pm1o2dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder42(u) (kmul(p1o12dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder42(u) (PDupwindNthfdOrder42_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder62(u) (kmul(pm1o60dy,kmul(dir2,kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder62(u) (PDupwindNthfdOrder62_impl(u,pm1o60dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder82(u) (kmul(p1o840dy,kmul(dir2,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,-3,0),kmadd(KRANC_GFOFFSET3D(u,0,1,0),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder82(u) (PDupwindNthfdOrder82_impl(u,p1o840dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder22(u) (kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0))))))
-#else
-#  define PDupwindNthAntifdOrder22(u) (PDupwindNthAntifdOrder22_impl(u,p1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,1,0),ToReal(4),KRANC_GFOFFSET3D(u,0,2,0)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0)))))))
-#else
-#  define PDupwindNthAntifdOrder42(u) (PDupwindNthAntifdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(21))),KRANC_GFOFFSET3D(u,0,-3,0))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder62(u) (kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0))))))))
-#else
-#  define PDupwindNthAntifdOrder62(u) (PDupwindNthAntifdOrder62_impl(u,p1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(104)))),KRANC_GFOFFSET3D(u,0,4,0)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder82(u) (kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder82(u) (PDupwindNthAntifdOrder82_impl(u,p1o1680dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dy,kmadd(KRANC_GFOFFSET3D(u,0,-1,0),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,2,0),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,-3,0),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,4,0),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,-5,0),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,5,0),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,-4,0),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,3,0),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,-2,0),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,1,0),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder22(u) (kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder22(u) (PDupwindNthSymmfdOrder22_impl(u,pm1o4dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder22_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dy,kadd(KRANC_GFOFFSET3D(u,0,-2,0),kadd(KRANC_GFOFFSET3D(u,0,2,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder42(u) (kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder42(u) (PDupwindNthSymmfdOrder42_impl(u,p1o24dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder42_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dy,kadd(KRANC_GFOFFSET3D(u,0,-3,0),kadd(KRANC_GFOFFSET3D(u,0,3,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder62(u) (kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder62(u) (PDupwindNthSymmfdOrder62_impl(u,pm1o120dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder62_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dy,kadd(KRANC_GFOFFSET3D(u,0,-4,0),kadd(KRANC_GFOFFSET3D(u,0,4,0),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder82(u) (kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder82(u) (PDupwindNthSymmfdOrder82_impl(u,p1o560dy,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder82_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dy,kadd(KRANC_GFOFFSET3D(u,0,-5,0),kadd(KRANC_GFOFFSET3D(u,0,5,0),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-2,0),KRANC_GFOFFSET3D(u,0,2,0)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-4,0),KRANC_GFOFFSET3D(u,0,4,0)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,-3,0),KRANC_GFOFFSET3D(u,0,3,0)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,-1,0),KRANC_GFOFFSET3D(u,0,1,0)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided2(u) (kmul(p1ody,kmul(dir2,ksub(KRANC_GFOFFSET3D(u,0,1,0),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided2(u) (PDonesided2_impl(u,p1ody,cdj,cdk))
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided2_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1ody, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder23(u) (kmul(pm1o2dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(3)))))))
-#else
-#  define PDupwindNthfdOrder23(u) (PDupwindNthfdOrder23_impl(u,pm1o2dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder43(u) (kmul(p1o12dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-10),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-3),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(18)))))))))
-#else
-#  define PDupwindNthfdOrder43(u) (PDupwindNthfdOrder43_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder63(u) (kmul(pm1o60dz,kmul(dir3,kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-80),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(24),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(30),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(35)))))))))))
-#else
-#  define PDupwindNthfdOrder63(u) (PDupwindNthfdOrder63_impl(u,pm1o60dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o60dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthfdOrder83(u) (kmul(p1o840dz,kmul(dir3,kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-378),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmul(ToReal(-5),kadd(KRANC_GFOFFSET3D(u,0,0,-3),kmadd(KRANC_GFOFFSET3D(u,0,0,1),ToReal(-210),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(-28),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(-12),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(84)))))))))))))
-#else
-#  define PDupwindNthfdOrder83(u) (PDupwindNthfdOrder83_impl(u,p1o840dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o840dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder23(u) (kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2))))))
-#else
-#  define PDupwindNthAntifdOrder23(u) (PDupwindNthAntifdOrder23_impl(u,p1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-4),kmsub(KRANC_GFOFFSET3D(u,0,0,1),ToReal(4),KRANC_GFOFFSET3D(u,0,0,2)))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3)))))))
-#else
-#  define PDupwindNthAntifdOrder43(u) (PDupwindNthAntifdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-21),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-6),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(6),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(21))),KRANC_GFOFFSET3D(u,0,0,-3))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder63(u) (kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4))))))))
-#else
-#  define PDupwindNthAntifdOrder63(u) (PDupwindNthAntifdOrder63_impl(u,p1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-104),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-32),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-8),ksub(kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(8),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(32),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(104)))),KRANC_GFOFFSET3D(u,0,0,4)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthAntifdOrder83(u) (kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470)))))))))))))
-#else
-#  define PDupwindNthAntifdOrder83(u) (PDupwindNthAntifdOrder83_impl(u,p1o1680dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthAntifdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o1680dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o1680dz,kmadd(KRANC_GFOFFSET3D(u,0,0,-1),ToReal(-1470),kmadd(KRANC_GFOFFSET3D(u,0,0,2),ToReal(-480),kmadd(KRANC_GFOFFSET3D(u,0,0,-3),ToReal(-145),kmadd(KRANC_GFOFFSET3D(u,0,0,4),ToReal(-30),kmadd(KRANC_GFOFFSET3D(u,0,0,-5),ToReal(-3),kmadd(KRANC_GFOFFSET3D(u,0,0,5),ToReal(3),kmadd(KRANC_GFOFFSET3D(u,0,0,-4),ToReal(30),kmadd(KRANC_GFOFFSET3D(u,0,0,3),ToReal(145),kmadd(KRANC_GFOFFSET3D(u,0,0,-2),ToReal(480),kmul(KRANC_GFOFFSET3D(u,0,0,1),ToReal(1470))))))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder23(u) (kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6)))))))
-#else
-#  define PDupwindNthSymmfdOrder23(u) (PDupwindNthSymmfdOrder23_impl(u,pm1o4dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder23_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o4dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o4dz,kadd(KRANC_GFOFFSET3D(u,0,0,-2),kadd(KRANC_GFOFFSET3D(u,0,0,2),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-4),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(6))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder43(u) (kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15))))))))
-#else
-#  define PDupwindNthSymmfdOrder43(u) (PDupwindNthSymmfdOrder43_impl(u,p1o24dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder43_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o24dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o24dz,kadd(KRANC_GFOFFSET3D(u,0,0,-3),kadd(KRANC_GFOFFSET3D(u,0,0,3),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-20),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-6),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(15)))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder63(u) (kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70)))))))))
-#else
-#  define PDupwindNthSymmfdOrder63(u) (PDupwindNthSymmfdOrder63_impl(u,pm1o120dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder63_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const pm1o120dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(pm1o120dz,kadd(KRANC_GFOFFSET3D(u,0,0,-4),kadd(KRANC_GFOFFSET3D(u,0,0,4),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(-56),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(-8),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(28),kmul(KRANC_GFOFFSET3D(u,0,0,0),ToReal(70))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDupwindNthSymmfdOrder83(u) (kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210))))))))))
-#else
-#  define PDupwindNthSymmfdOrder83(u) (PDupwindNthSymmfdOrder83_impl(u,p1o560dz,cdj,cdk))
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDupwindNthSymmfdOrder83_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1o560dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return kmul(p1o560dz,kadd(KRANC_GFOFFSET3D(u,0,0,-5),kadd(KRANC_GFOFFSET3D(u,0,0,5),kmadd(KRANC_GFOFFSET3D(u,0,0,0),ToReal(-252),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-2),KRANC_GFOFFSET3D(u,0,0,2)),ToReal(-120),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-4),KRANC_GFOFFSET3D(u,0,0,4)),ToReal(-10),kmadd(kadd(KRANC_GFOFFSET3D(u,0,0,-3),KRANC_GFOFFSET3D(u,0,0,3)),ToReal(45),kmul(kadd(KRANC_GFOFFSET3D(u,0,0,-1),KRANC_GFOFFSET3D(u,0,0,1)),ToReal(210)))))))));
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDonesided3(u) (kmul(p1odz,kmul(dir3,ksub(KRANC_GFOFFSET3D(u,0,0,1),KRANC_GFOFFSET3D(u,0,0,0)))))
-#else
-#  define PDonesided3(u) (PDonesided3_impl(u,p1odz,cdj,cdk))
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL_VEC PDonesided3_impl(CCTK_REAL const* restrict const u, CCTK_REAL_VEC const p1odz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{ assert(0); return ToReal(1e30); /* ERROR */ }
-#endif
-
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_Advect.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_Advect.cc
deleted file mode 100644
index 1fc6d96..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_Advect.cc
+++ /dev/null
@@ -1,1330 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_Advect_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_UPW_Advect_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_Advect,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNth1A;
-    CCTK_REAL_VEC PDupwindNth2A;
-    CCTK_REAL_VEC PDupwindNth3A;
-    CCTK_REAL_VEC PDupwindNth1alpha;
-    CCTK_REAL_VEC PDupwindNth2alpha;
-    CCTK_REAL_VEC PDupwindNth3alpha;
-    CCTK_REAL_VEC PDupwindNth1At11;
-    CCTK_REAL_VEC PDupwindNth2At11;
-    CCTK_REAL_VEC PDupwindNth3At11;
-    CCTK_REAL_VEC PDupwindNth1At12;
-    CCTK_REAL_VEC PDupwindNth2At12;
-    CCTK_REAL_VEC PDupwindNth3At12;
-    CCTK_REAL_VEC PDupwindNth1At13;
-    CCTK_REAL_VEC PDupwindNth2At13;
-    CCTK_REAL_VEC PDupwindNth3At13;
-    CCTK_REAL_VEC PDupwindNth1At22;
-    CCTK_REAL_VEC PDupwindNth2At22;
-    CCTK_REAL_VEC PDupwindNth3At22;
-    CCTK_REAL_VEC PDupwindNth1At23;
-    CCTK_REAL_VEC PDupwindNth2At23;
-    CCTK_REAL_VEC PDupwindNth3At23;
-    CCTK_REAL_VEC PDupwindNth1At33;
-    CCTK_REAL_VEC PDupwindNth2At33;
-    CCTK_REAL_VEC PDupwindNth3At33;
-    CCTK_REAL_VEC PDupwindNth1B1;
-    CCTK_REAL_VEC PDupwindNth2B1;
-    CCTK_REAL_VEC PDupwindNth3B1;
-    CCTK_REAL_VEC PDupwindNth1B2;
-    CCTK_REAL_VEC PDupwindNth2B2;
-    CCTK_REAL_VEC PDupwindNth3B2;
-    CCTK_REAL_VEC PDupwindNth1B3;
-    CCTK_REAL_VEC PDupwindNth2B3;
-    CCTK_REAL_VEC PDupwindNth3B3;
-    CCTK_REAL_VEC PDupwindNth1beta1;
-    CCTK_REAL_VEC PDupwindNth2beta1;
-    CCTK_REAL_VEC PDupwindNth3beta1;
-    CCTK_REAL_VEC PDupwindNth1beta2;
-    CCTK_REAL_VEC PDupwindNth2beta2;
-    CCTK_REAL_VEC PDupwindNth3beta2;
-    CCTK_REAL_VEC PDupwindNth1beta3;
-    CCTK_REAL_VEC PDupwindNth2beta3;
-    CCTK_REAL_VEC PDupwindNth3beta3;
-    CCTK_REAL_VEC PDupwindNth1gt11;
-    CCTK_REAL_VEC PDupwindNth2gt11;
-    CCTK_REAL_VEC PDupwindNth3gt11;
-    CCTK_REAL_VEC PDupwindNth1gt12;
-    CCTK_REAL_VEC PDupwindNth2gt12;
-    CCTK_REAL_VEC PDupwindNth3gt12;
-    CCTK_REAL_VEC PDupwindNth1gt13;
-    CCTK_REAL_VEC PDupwindNth2gt13;
-    CCTK_REAL_VEC PDupwindNth3gt13;
-    CCTK_REAL_VEC PDupwindNth1gt22;
-    CCTK_REAL_VEC PDupwindNth2gt22;
-    CCTK_REAL_VEC PDupwindNth3gt22;
-    CCTK_REAL_VEC PDupwindNth1gt23;
-    CCTK_REAL_VEC PDupwindNth2gt23;
-    CCTK_REAL_VEC PDupwindNth3gt23;
-    CCTK_REAL_VEC PDupwindNth1gt33;
-    CCTK_REAL_VEC PDupwindNth2gt33;
-    CCTK_REAL_VEC PDupwindNth3gt33;
-    CCTK_REAL_VEC PDupwindNth1phi;
-    CCTK_REAL_VEC PDupwindNth2phi;
-    CCTK_REAL_VEC PDupwindNth3phi;
-    CCTK_REAL_VEC PDupwindNth1trK;
-    CCTK_REAL_VEC PDupwindNth2trK;
-    CCTK_REAL_VEC PDupwindNth3trK;
-    CCTK_REAL_VEC PDupwindNth1Xt1;
-    CCTK_REAL_VEC PDupwindNth2Xt1;
-    CCTK_REAL_VEC PDupwindNth3Xt1;
-    CCTK_REAL_VEC PDupwindNth1Xt2;
-    CCTK_REAL_VEC PDupwindNth2Xt2;
-    CCTK_REAL_VEC PDupwindNth3Xt2;
-    CCTK_REAL_VEC PDupwindNth1Xt3;
-    CCTK_REAL_VEC PDupwindNth2Xt3;
-    CCTK_REAL_VEC PDupwindNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNth1A = PDupwindNthfdOrder21(&A[index]);
-        PDupwindNth2A = PDupwindNthfdOrder22(&A[index]);
-        PDupwindNth3A = PDupwindNthfdOrder23(&A[index]);
-        PDupwindNth1alpha = PDupwindNthfdOrder21(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder22(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder23(&alpha[index]);
-        PDupwindNth1At11 = PDupwindNthfdOrder21(&At11[index]);
-        PDupwindNth2At11 = PDupwindNthfdOrder22(&At11[index]);
-        PDupwindNth3At11 = PDupwindNthfdOrder23(&At11[index]);
-        PDupwindNth1At12 = PDupwindNthfdOrder21(&At12[index]);
-        PDupwindNth2At12 = PDupwindNthfdOrder22(&At12[index]);
-        PDupwindNth3At12 = PDupwindNthfdOrder23(&At12[index]);
-        PDupwindNth1At13 = PDupwindNthfdOrder21(&At13[index]);
-        PDupwindNth2At13 = PDupwindNthfdOrder22(&At13[index]);
-        PDupwindNth3At13 = PDupwindNthfdOrder23(&At13[index]);
-        PDupwindNth1At22 = PDupwindNthfdOrder21(&At22[index]);
-        PDupwindNth2At22 = PDupwindNthfdOrder22(&At22[index]);
-        PDupwindNth3At22 = PDupwindNthfdOrder23(&At22[index]);
-        PDupwindNth1At23 = PDupwindNthfdOrder21(&At23[index]);
-        PDupwindNth2At23 = PDupwindNthfdOrder22(&At23[index]);
-        PDupwindNth3At23 = PDupwindNthfdOrder23(&At23[index]);
-        PDupwindNth1At33 = PDupwindNthfdOrder21(&At33[index]);
-        PDupwindNth2At33 = PDupwindNthfdOrder22(&At33[index]);
-        PDupwindNth3At33 = PDupwindNthfdOrder23(&At33[index]);
-        PDupwindNth1B1 = PDupwindNthfdOrder21(&B1[index]);
-        PDupwindNth2B1 = PDupwindNthfdOrder22(&B1[index]);
-        PDupwindNth3B1 = PDupwindNthfdOrder23(&B1[index]);
-        PDupwindNth1B2 = PDupwindNthfdOrder21(&B2[index]);
-        PDupwindNth2B2 = PDupwindNthfdOrder22(&B2[index]);
-        PDupwindNth3B2 = PDupwindNthfdOrder23(&B2[index]);
-        PDupwindNth1B3 = PDupwindNthfdOrder21(&B3[index]);
-        PDupwindNth2B3 = PDupwindNthfdOrder22(&B3[index]);
-        PDupwindNth3B3 = PDupwindNthfdOrder23(&B3[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder21(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder22(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder23(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder21(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder22(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder23(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder21(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder22(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder23(&beta3[index]);
-        PDupwindNth1gt11 = PDupwindNthfdOrder21(&gt11[index]);
-        PDupwindNth2gt11 = PDupwindNthfdOrder22(&gt11[index]);
-        PDupwindNth3gt11 = PDupwindNthfdOrder23(&gt11[index]);
-        PDupwindNth1gt12 = PDupwindNthfdOrder21(&gt12[index]);
-        PDupwindNth2gt12 = PDupwindNthfdOrder22(&gt12[index]);
-        PDupwindNth3gt12 = PDupwindNthfdOrder23(&gt12[index]);
-        PDupwindNth1gt13 = PDupwindNthfdOrder21(&gt13[index]);
-        PDupwindNth2gt13 = PDupwindNthfdOrder22(&gt13[index]);
-        PDupwindNth3gt13 = PDupwindNthfdOrder23(&gt13[index]);
-        PDupwindNth1gt22 = PDupwindNthfdOrder21(&gt22[index]);
-        PDupwindNth2gt22 = PDupwindNthfdOrder22(&gt22[index]);
-        PDupwindNth3gt22 = PDupwindNthfdOrder23(&gt22[index]);
-        PDupwindNth1gt23 = PDupwindNthfdOrder21(&gt23[index]);
-        PDupwindNth2gt23 = PDupwindNthfdOrder22(&gt23[index]);
-        PDupwindNth3gt23 = PDupwindNthfdOrder23(&gt23[index]);
-        PDupwindNth1gt33 = PDupwindNthfdOrder21(&gt33[index]);
-        PDupwindNth2gt33 = PDupwindNthfdOrder22(&gt33[index]);
-        PDupwindNth3gt33 = PDupwindNthfdOrder23(&gt33[index]);
-        PDupwindNth1phi = PDupwindNthfdOrder21(&phi[index]);
-        PDupwindNth2phi = PDupwindNthfdOrder22(&phi[index]);
-        PDupwindNth3phi = PDupwindNthfdOrder23(&phi[index]);
-        PDupwindNth1trK = PDupwindNthfdOrder21(&trK[index]);
-        PDupwindNth2trK = PDupwindNthfdOrder22(&trK[index]);
-        PDupwindNth3trK = PDupwindNthfdOrder23(&trK[index]);
-        PDupwindNth1Xt1 = PDupwindNthfdOrder21(&Xt1[index]);
-        PDupwindNth2Xt1 = PDupwindNthfdOrder22(&Xt1[index]);
-        PDupwindNth3Xt1 = PDupwindNthfdOrder23(&Xt1[index]);
-        PDupwindNth1Xt2 = PDupwindNthfdOrder21(&Xt2[index]);
-        PDupwindNth2Xt2 = PDupwindNthfdOrder22(&Xt2[index]);
-        PDupwindNth3Xt2 = PDupwindNthfdOrder23(&Xt2[index]);
-        PDupwindNth1Xt3 = PDupwindNthfdOrder21(&Xt3[index]);
-        PDupwindNth2Xt3 = PDupwindNthfdOrder22(&Xt3[index]);
-        PDupwindNth3Xt3 = PDupwindNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDupwindNth1A = PDupwindNthfdOrder41(&A[index]);
-        PDupwindNth2A = PDupwindNthfdOrder42(&A[index]);
-        PDupwindNth3A = PDupwindNthfdOrder43(&A[index]);
-        PDupwindNth1alpha = PDupwindNthfdOrder41(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder42(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder43(&alpha[index]);
-        PDupwindNth1At11 = PDupwindNthfdOrder41(&At11[index]);
-        PDupwindNth2At11 = PDupwindNthfdOrder42(&At11[index]);
-        PDupwindNth3At11 = PDupwindNthfdOrder43(&At11[index]);
-        PDupwindNth1At12 = PDupwindNthfdOrder41(&At12[index]);
-        PDupwindNth2At12 = PDupwindNthfdOrder42(&At12[index]);
-        PDupwindNth3At12 = PDupwindNthfdOrder43(&At12[index]);
-        PDupwindNth1At13 = PDupwindNthfdOrder41(&At13[index]);
-        PDupwindNth2At13 = PDupwindNthfdOrder42(&At13[index]);
-        PDupwindNth3At13 = PDupwindNthfdOrder43(&At13[index]);
-        PDupwindNth1At22 = PDupwindNthfdOrder41(&At22[index]);
-        PDupwindNth2At22 = PDupwindNthfdOrder42(&At22[index]);
-        PDupwindNth3At22 = PDupwindNthfdOrder43(&At22[index]);
-        PDupwindNth1At23 = PDupwindNthfdOrder41(&At23[index]);
-        PDupwindNth2At23 = PDupwindNthfdOrder42(&At23[index]);
-        PDupwindNth3At23 = PDupwindNthfdOrder43(&At23[index]);
-        PDupwindNth1At33 = PDupwindNthfdOrder41(&At33[index]);
-        PDupwindNth2At33 = PDupwindNthfdOrder42(&At33[index]);
-        PDupwindNth3At33 = PDupwindNthfdOrder43(&At33[index]);
-        PDupwindNth1B1 = PDupwindNthfdOrder41(&B1[index]);
-        PDupwindNth2B1 = PDupwindNthfdOrder42(&B1[index]);
-        PDupwindNth3B1 = PDupwindNthfdOrder43(&B1[index]);
-        PDupwindNth1B2 = PDupwindNthfdOrder41(&B2[index]);
-        PDupwindNth2B2 = PDupwindNthfdOrder42(&B2[index]);
-        PDupwindNth3B2 = PDupwindNthfdOrder43(&B2[index]);
-        PDupwindNth1B3 = PDupwindNthfdOrder41(&B3[index]);
-        PDupwindNth2B3 = PDupwindNthfdOrder42(&B3[index]);
-        PDupwindNth3B3 = PDupwindNthfdOrder43(&B3[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder41(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder42(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder43(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder41(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder42(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder43(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder41(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder42(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder43(&beta3[index]);
-        PDupwindNth1gt11 = PDupwindNthfdOrder41(&gt11[index]);
-        PDupwindNth2gt11 = PDupwindNthfdOrder42(&gt11[index]);
-        PDupwindNth3gt11 = PDupwindNthfdOrder43(&gt11[index]);
-        PDupwindNth1gt12 = PDupwindNthfdOrder41(&gt12[index]);
-        PDupwindNth2gt12 = PDupwindNthfdOrder42(&gt12[index]);
-        PDupwindNth3gt12 = PDupwindNthfdOrder43(&gt12[index]);
-        PDupwindNth1gt13 = PDupwindNthfdOrder41(&gt13[index]);
-        PDupwindNth2gt13 = PDupwindNthfdOrder42(&gt13[index]);
-        PDupwindNth3gt13 = PDupwindNthfdOrder43(&gt13[index]);
-        PDupwindNth1gt22 = PDupwindNthfdOrder41(&gt22[index]);
-        PDupwindNth2gt22 = PDupwindNthfdOrder42(&gt22[index]);
-        PDupwindNth3gt22 = PDupwindNthfdOrder43(&gt22[index]);
-        PDupwindNth1gt23 = PDupwindNthfdOrder41(&gt23[index]);
-        PDupwindNth2gt23 = PDupwindNthfdOrder42(&gt23[index]);
-        PDupwindNth3gt23 = PDupwindNthfdOrder43(&gt23[index]);
-        PDupwindNth1gt33 = PDupwindNthfdOrder41(&gt33[index]);
-        PDupwindNth2gt33 = PDupwindNthfdOrder42(&gt33[index]);
-        PDupwindNth3gt33 = PDupwindNthfdOrder43(&gt33[index]);
-        PDupwindNth1phi = PDupwindNthfdOrder41(&phi[index]);
-        PDupwindNth2phi = PDupwindNthfdOrder42(&phi[index]);
-        PDupwindNth3phi = PDupwindNthfdOrder43(&phi[index]);
-        PDupwindNth1trK = PDupwindNthfdOrder41(&trK[index]);
-        PDupwindNth2trK = PDupwindNthfdOrder42(&trK[index]);
-        PDupwindNth3trK = PDupwindNthfdOrder43(&trK[index]);
-        PDupwindNth1Xt1 = PDupwindNthfdOrder41(&Xt1[index]);
-        PDupwindNth2Xt1 = PDupwindNthfdOrder42(&Xt1[index]);
-        PDupwindNth3Xt1 = PDupwindNthfdOrder43(&Xt1[index]);
-        PDupwindNth1Xt2 = PDupwindNthfdOrder41(&Xt2[index]);
-        PDupwindNth2Xt2 = PDupwindNthfdOrder42(&Xt2[index]);
-        PDupwindNth3Xt2 = PDupwindNthfdOrder43(&Xt2[index]);
-        PDupwindNth1Xt3 = PDupwindNthfdOrder41(&Xt3[index]);
-        PDupwindNth2Xt3 = PDupwindNthfdOrder42(&Xt3[index]);
-        PDupwindNth3Xt3 = PDupwindNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDupwindNth1A = PDupwindNthfdOrder61(&A[index]);
-        PDupwindNth2A = PDupwindNthfdOrder62(&A[index]);
-        PDupwindNth3A = PDupwindNthfdOrder63(&A[index]);
-        PDupwindNth1alpha = PDupwindNthfdOrder61(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder62(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder63(&alpha[index]);
-        PDupwindNth1At11 = PDupwindNthfdOrder61(&At11[index]);
-        PDupwindNth2At11 = PDupwindNthfdOrder62(&At11[index]);
-        PDupwindNth3At11 = PDupwindNthfdOrder63(&At11[index]);
-        PDupwindNth1At12 = PDupwindNthfdOrder61(&At12[index]);
-        PDupwindNth2At12 = PDupwindNthfdOrder62(&At12[index]);
-        PDupwindNth3At12 = PDupwindNthfdOrder63(&At12[index]);
-        PDupwindNth1At13 = PDupwindNthfdOrder61(&At13[index]);
-        PDupwindNth2At13 = PDupwindNthfdOrder62(&At13[index]);
-        PDupwindNth3At13 = PDupwindNthfdOrder63(&At13[index]);
-        PDupwindNth1At22 = PDupwindNthfdOrder61(&At22[index]);
-        PDupwindNth2At22 = PDupwindNthfdOrder62(&At22[index]);
-        PDupwindNth3At22 = PDupwindNthfdOrder63(&At22[index]);
-        PDupwindNth1At23 = PDupwindNthfdOrder61(&At23[index]);
-        PDupwindNth2At23 = PDupwindNthfdOrder62(&At23[index]);
-        PDupwindNth3At23 = PDupwindNthfdOrder63(&At23[index]);
-        PDupwindNth1At33 = PDupwindNthfdOrder61(&At33[index]);
-        PDupwindNth2At33 = PDupwindNthfdOrder62(&At33[index]);
-        PDupwindNth3At33 = PDupwindNthfdOrder63(&At33[index]);
-        PDupwindNth1B1 = PDupwindNthfdOrder61(&B1[index]);
-        PDupwindNth2B1 = PDupwindNthfdOrder62(&B1[index]);
-        PDupwindNth3B1 = PDupwindNthfdOrder63(&B1[index]);
-        PDupwindNth1B2 = PDupwindNthfdOrder61(&B2[index]);
-        PDupwindNth2B2 = PDupwindNthfdOrder62(&B2[index]);
-        PDupwindNth3B2 = PDupwindNthfdOrder63(&B2[index]);
-        PDupwindNth1B3 = PDupwindNthfdOrder61(&B3[index]);
-        PDupwindNth2B3 = PDupwindNthfdOrder62(&B3[index]);
-        PDupwindNth3B3 = PDupwindNthfdOrder63(&B3[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder61(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder62(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder63(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder61(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder62(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder63(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder61(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder62(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder63(&beta3[index]);
-        PDupwindNth1gt11 = PDupwindNthfdOrder61(&gt11[index]);
-        PDupwindNth2gt11 = PDupwindNthfdOrder62(&gt11[index]);
-        PDupwindNth3gt11 = PDupwindNthfdOrder63(&gt11[index]);
-        PDupwindNth1gt12 = PDupwindNthfdOrder61(&gt12[index]);
-        PDupwindNth2gt12 = PDupwindNthfdOrder62(&gt12[index]);
-        PDupwindNth3gt12 = PDupwindNthfdOrder63(&gt12[index]);
-        PDupwindNth1gt13 = PDupwindNthfdOrder61(&gt13[index]);
-        PDupwindNth2gt13 = PDupwindNthfdOrder62(&gt13[index]);
-        PDupwindNth3gt13 = PDupwindNthfdOrder63(&gt13[index]);
-        PDupwindNth1gt22 = PDupwindNthfdOrder61(&gt22[index]);
-        PDupwindNth2gt22 = PDupwindNthfdOrder62(&gt22[index]);
-        PDupwindNth3gt22 = PDupwindNthfdOrder63(&gt22[index]);
-        PDupwindNth1gt23 = PDupwindNthfdOrder61(&gt23[index]);
-        PDupwindNth2gt23 = PDupwindNthfdOrder62(&gt23[index]);
-        PDupwindNth3gt23 = PDupwindNthfdOrder63(&gt23[index]);
-        PDupwindNth1gt33 = PDupwindNthfdOrder61(&gt33[index]);
-        PDupwindNth2gt33 = PDupwindNthfdOrder62(&gt33[index]);
-        PDupwindNth3gt33 = PDupwindNthfdOrder63(&gt33[index]);
-        PDupwindNth1phi = PDupwindNthfdOrder61(&phi[index]);
-        PDupwindNth2phi = PDupwindNthfdOrder62(&phi[index]);
-        PDupwindNth3phi = PDupwindNthfdOrder63(&phi[index]);
-        PDupwindNth1trK = PDupwindNthfdOrder61(&trK[index]);
-        PDupwindNth2trK = PDupwindNthfdOrder62(&trK[index]);
-        PDupwindNth3trK = PDupwindNthfdOrder63(&trK[index]);
-        PDupwindNth1Xt1 = PDupwindNthfdOrder61(&Xt1[index]);
-        PDupwindNth2Xt1 = PDupwindNthfdOrder62(&Xt1[index]);
-        PDupwindNth3Xt1 = PDupwindNthfdOrder63(&Xt1[index]);
-        PDupwindNth1Xt2 = PDupwindNthfdOrder61(&Xt2[index]);
-        PDupwindNth2Xt2 = PDupwindNthfdOrder62(&Xt2[index]);
-        PDupwindNth3Xt2 = PDupwindNthfdOrder63(&Xt2[index]);
-        PDupwindNth1Xt3 = PDupwindNthfdOrder61(&Xt3[index]);
-        PDupwindNth2Xt3 = PDupwindNthfdOrder62(&Xt3[index]);
-        PDupwindNth3Xt3 = PDupwindNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDupwindNth1A = PDupwindNthfdOrder81(&A[index]);
-        PDupwindNth2A = PDupwindNthfdOrder82(&A[index]);
-        PDupwindNth3A = PDupwindNthfdOrder83(&A[index]);
-        PDupwindNth1alpha = PDupwindNthfdOrder81(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder82(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder83(&alpha[index]);
-        PDupwindNth1At11 = PDupwindNthfdOrder81(&At11[index]);
-        PDupwindNth2At11 = PDupwindNthfdOrder82(&At11[index]);
-        PDupwindNth3At11 = PDupwindNthfdOrder83(&At11[index]);
-        PDupwindNth1At12 = PDupwindNthfdOrder81(&At12[index]);
-        PDupwindNth2At12 = PDupwindNthfdOrder82(&At12[index]);
-        PDupwindNth3At12 = PDupwindNthfdOrder83(&At12[index]);
-        PDupwindNth1At13 = PDupwindNthfdOrder81(&At13[index]);
-        PDupwindNth2At13 = PDupwindNthfdOrder82(&At13[index]);
-        PDupwindNth3At13 = PDupwindNthfdOrder83(&At13[index]);
-        PDupwindNth1At22 = PDupwindNthfdOrder81(&At22[index]);
-        PDupwindNth2At22 = PDupwindNthfdOrder82(&At22[index]);
-        PDupwindNth3At22 = PDupwindNthfdOrder83(&At22[index]);
-        PDupwindNth1At23 = PDupwindNthfdOrder81(&At23[index]);
-        PDupwindNth2At23 = PDupwindNthfdOrder82(&At23[index]);
-        PDupwindNth3At23 = PDupwindNthfdOrder83(&At23[index]);
-        PDupwindNth1At33 = PDupwindNthfdOrder81(&At33[index]);
-        PDupwindNth2At33 = PDupwindNthfdOrder82(&At33[index]);
-        PDupwindNth3At33 = PDupwindNthfdOrder83(&At33[index]);
-        PDupwindNth1B1 = PDupwindNthfdOrder81(&B1[index]);
-        PDupwindNth2B1 = PDupwindNthfdOrder82(&B1[index]);
-        PDupwindNth3B1 = PDupwindNthfdOrder83(&B1[index]);
-        PDupwindNth1B2 = PDupwindNthfdOrder81(&B2[index]);
-        PDupwindNth2B2 = PDupwindNthfdOrder82(&B2[index]);
-        PDupwindNth3B2 = PDupwindNthfdOrder83(&B2[index]);
-        PDupwindNth1B3 = PDupwindNthfdOrder81(&B3[index]);
-        PDupwindNth2B3 = PDupwindNthfdOrder82(&B3[index]);
-        PDupwindNth3B3 = PDupwindNthfdOrder83(&B3[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder81(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder82(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder83(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder81(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder82(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder83(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder81(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder82(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder83(&beta3[index]);
-        PDupwindNth1gt11 = PDupwindNthfdOrder81(&gt11[index]);
-        PDupwindNth2gt11 = PDupwindNthfdOrder82(&gt11[index]);
-        PDupwindNth3gt11 = PDupwindNthfdOrder83(&gt11[index]);
-        PDupwindNth1gt12 = PDupwindNthfdOrder81(&gt12[index]);
-        PDupwindNth2gt12 = PDupwindNthfdOrder82(&gt12[index]);
-        PDupwindNth3gt12 = PDupwindNthfdOrder83(&gt12[index]);
-        PDupwindNth1gt13 = PDupwindNthfdOrder81(&gt13[index]);
-        PDupwindNth2gt13 = PDupwindNthfdOrder82(&gt13[index]);
-        PDupwindNth3gt13 = PDupwindNthfdOrder83(&gt13[index]);
-        PDupwindNth1gt22 = PDupwindNthfdOrder81(&gt22[index]);
-        PDupwindNth2gt22 = PDupwindNthfdOrder82(&gt22[index]);
-        PDupwindNth3gt22 = PDupwindNthfdOrder83(&gt22[index]);
-        PDupwindNth1gt23 = PDupwindNthfdOrder81(&gt23[index]);
-        PDupwindNth2gt23 = PDupwindNthfdOrder82(&gt23[index]);
-        PDupwindNth3gt23 = PDupwindNthfdOrder83(&gt23[index]);
-        PDupwindNth1gt33 = PDupwindNthfdOrder81(&gt33[index]);
-        PDupwindNth2gt33 = PDupwindNthfdOrder82(&gt33[index]);
-        PDupwindNth3gt33 = PDupwindNthfdOrder83(&gt33[index]);
-        PDupwindNth1phi = PDupwindNthfdOrder81(&phi[index]);
-        PDupwindNth2phi = PDupwindNthfdOrder82(&phi[index]);
-        PDupwindNth3phi = PDupwindNthfdOrder83(&phi[index]);
-        PDupwindNth1trK = PDupwindNthfdOrder81(&trK[index]);
-        PDupwindNth2trK = PDupwindNthfdOrder82(&trK[index]);
-        PDupwindNth3trK = PDupwindNthfdOrder83(&trK[index]);
-        PDupwindNth1Xt1 = PDupwindNthfdOrder81(&Xt1[index]);
-        PDupwindNth2Xt1 = PDupwindNthfdOrder82(&Xt1[index]);
-        PDupwindNth3Xt1 = PDupwindNthfdOrder83(&Xt1[index]);
-        PDupwindNth1Xt2 = PDupwindNthfdOrder81(&Xt2[index]);
-        PDupwindNth2Xt2 = PDupwindNthfdOrder82(&Xt2[index]);
-        PDupwindNth3Xt2 = PDupwindNthfdOrder83(&Xt2[index]);
-        PDupwindNth1Xt3 = PDupwindNthfdOrder81(&Xt3[index]);
-        PDupwindNth2Xt3 = PDupwindNthfdOrder82(&Xt3[index]);
-        PDupwindNth3Xt3 = PDupwindNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDupwindNth1A;
-    CCTK_REAL_VEC JacPDupwindNth1alpha;
-    CCTK_REAL_VEC JacPDupwindNth1At11;
-    CCTK_REAL_VEC JacPDupwindNth1At12;
-    CCTK_REAL_VEC JacPDupwindNth1At13;
-    CCTK_REAL_VEC JacPDupwindNth1At22;
-    CCTK_REAL_VEC JacPDupwindNth1At23;
-    CCTK_REAL_VEC JacPDupwindNth1At33;
-    CCTK_REAL_VEC JacPDupwindNth1B1;
-    CCTK_REAL_VEC JacPDupwindNth1B2;
-    CCTK_REAL_VEC JacPDupwindNth1B3;
-    CCTK_REAL_VEC JacPDupwindNth1beta1;
-    CCTK_REAL_VEC JacPDupwindNth1beta2;
-    CCTK_REAL_VEC JacPDupwindNth1beta3;
-    CCTK_REAL_VEC JacPDupwindNth1gt11;
-    CCTK_REAL_VEC JacPDupwindNth1gt12;
-    CCTK_REAL_VEC JacPDupwindNth1gt13;
-    CCTK_REAL_VEC JacPDupwindNth1gt22;
-    CCTK_REAL_VEC JacPDupwindNth1gt23;
-    CCTK_REAL_VEC JacPDupwindNth1gt33;
-    CCTK_REAL_VEC JacPDupwindNth1phi;
-    CCTK_REAL_VEC JacPDupwindNth1trK;
-    CCTK_REAL_VEC JacPDupwindNth1Xt1;
-    CCTK_REAL_VEC JacPDupwindNth1Xt2;
-    CCTK_REAL_VEC JacPDupwindNth1Xt3;
-    CCTK_REAL_VEC JacPDupwindNth2A;
-    CCTK_REAL_VEC JacPDupwindNth2alpha;
-    CCTK_REAL_VEC JacPDupwindNth2At11;
-    CCTK_REAL_VEC JacPDupwindNth2At12;
-    CCTK_REAL_VEC JacPDupwindNth2At13;
-    CCTK_REAL_VEC JacPDupwindNth2At22;
-    CCTK_REAL_VEC JacPDupwindNth2At23;
-    CCTK_REAL_VEC JacPDupwindNth2At33;
-    CCTK_REAL_VEC JacPDupwindNth2B1;
-    CCTK_REAL_VEC JacPDupwindNth2B2;
-    CCTK_REAL_VEC JacPDupwindNth2B3;
-    CCTK_REAL_VEC JacPDupwindNth2beta1;
-    CCTK_REAL_VEC JacPDupwindNth2beta2;
-    CCTK_REAL_VEC JacPDupwindNth2beta3;
-    CCTK_REAL_VEC JacPDupwindNth2gt11;
-    CCTK_REAL_VEC JacPDupwindNth2gt12;
-    CCTK_REAL_VEC JacPDupwindNth2gt13;
-    CCTK_REAL_VEC JacPDupwindNth2gt22;
-    CCTK_REAL_VEC JacPDupwindNth2gt23;
-    CCTK_REAL_VEC JacPDupwindNth2gt33;
-    CCTK_REAL_VEC JacPDupwindNth2phi;
-    CCTK_REAL_VEC JacPDupwindNth2trK;
-    CCTK_REAL_VEC JacPDupwindNth2Xt1;
-    CCTK_REAL_VEC JacPDupwindNth2Xt2;
-    CCTK_REAL_VEC JacPDupwindNth2Xt3;
-    CCTK_REAL_VEC JacPDupwindNth3A;
-    CCTK_REAL_VEC JacPDupwindNth3alpha;
-    CCTK_REAL_VEC JacPDupwindNth3At11;
-    CCTK_REAL_VEC JacPDupwindNth3At12;
-    CCTK_REAL_VEC JacPDupwindNth3At13;
-    CCTK_REAL_VEC JacPDupwindNth3At22;
-    CCTK_REAL_VEC JacPDupwindNth3At23;
-    CCTK_REAL_VEC JacPDupwindNth3At33;
-    CCTK_REAL_VEC JacPDupwindNth3B1;
-    CCTK_REAL_VEC JacPDupwindNth3B2;
-    CCTK_REAL_VEC JacPDupwindNth3B3;
-    CCTK_REAL_VEC JacPDupwindNth3beta1;
-    CCTK_REAL_VEC JacPDupwindNth3beta2;
-    CCTK_REAL_VEC JacPDupwindNth3beta3;
-    CCTK_REAL_VEC JacPDupwindNth3gt11;
-    CCTK_REAL_VEC JacPDupwindNth3gt12;
-    CCTK_REAL_VEC JacPDupwindNth3gt13;
-    CCTK_REAL_VEC JacPDupwindNth3gt22;
-    CCTK_REAL_VEC JacPDupwindNth3gt23;
-    CCTK_REAL_VEC JacPDupwindNth3gt33;
-    CCTK_REAL_VEC JacPDupwindNth3phi;
-    CCTK_REAL_VEC JacPDupwindNth3trK;
-    CCTK_REAL_VEC JacPDupwindNth3Xt1;
-    CCTK_REAL_VEC JacPDupwindNth3Xt2;
-    CCTK_REAL_VEC JacPDupwindNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDupwindNth1A = 
-        kmadd(J11L,PDupwindNth1A,kmadd(J21L,PDupwindNth2A,kmul(J31L,PDupwindNth3A)));
-      
-      JacPDupwindNth1alpha = 
-        kmadd(J11L,PDupwindNth1alpha,kmadd(J21L,PDupwindNth2alpha,kmul(J31L,PDupwindNth3alpha)));
-      
-      JacPDupwindNth1At11 = 
-        kmadd(J11L,PDupwindNth1At11,kmadd(J21L,PDupwindNth2At11,kmul(J31L,PDupwindNth3At11)));
-      
-      JacPDupwindNth1At12 = 
-        kmadd(J11L,PDupwindNth1At12,kmadd(J21L,PDupwindNth2At12,kmul(J31L,PDupwindNth3At12)));
-      
-      JacPDupwindNth1At13 = 
-        kmadd(J11L,PDupwindNth1At13,kmadd(J21L,PDupwindNth2At13,kmul(J31L,PDupwindNth3At13)));
-      
-      JacPDupwindNth1At22 = 
-        kmadd(J11L,PDupwindNth1At22,kmadd(J21L,PDupwindNth2At22,kmul(J31L,PDupwindNth3At22)));
-      
-      JacPDupwindNth1At23 = 
-        kmadd(J11L,PDupwindNth1At23,kmadd(J21L,PDupwindNth2At23,kmul(J31L,PDupwindNth3At23)));
-      
-      JacPDupwindNth1At33 = 
-        kmadd(J11L,PDupwindNth1At33,kmadd(J21L,PDupwindNth2At33,kmul(J31L,PDupwindNth3At33)));
-      
-      JacPDupwindNth1B1 = 
-        kmadd(J11L,PDupwindNth1B1,kmadd(J21L,PDupwindNth2B1,kmul(J31L,PDupwindNth3B1)));
-      
-      JacPDupwindNth1B2 = 
-        kmadd(J11L,PDupwindNth1B2,kmadd(J21L,PDupwindNth2B2,kmul(J31L,PDupwindNth3B2)));
-      
-      JacPDupwindNth1B3 = 
-        kmadd(J11L,PDupwindNth1B3,kmadd(J21L,PDupwindNth2B3,kmul(J31L,PDupwindNth3B3)));
-      
-      JacPDupwindNth1beta1 = 
-        kmadd(J11L,PDupwindNth1beta1,kmadd(J21L,PDupwindNth2beta1,kmul(J31L,PDupwindNth3beta1)));
-      
-      JacPDupwindNth1beta2 = 
-        kmadd(J11L,PDupwindNth1beta2,kmadd(J21L,PDupwindNth2beta2,kmul(J31L,PDupwindNth3beta2)));
-      
-      JacPDupwindNth1beta3 = 
-        kmadd(J11L,PDupwindNth1beta3,kmadd(J21L,PDupwindNth2beta3,kmul(J31L,PDupwindNth3beta3)));
-      
-      JacPDupwindNth1gt11 = 
-        kmadd(J11L,PDupwindNth1gt11,kmadd(J21L,PDupwindNth2gt11,kmul(J31L,PDupwindNth3gt11)));
-      
-      JacPDupwindNth1gt12 = 
-        kmadd(J11L,PDupwindNth1gt12,kmadd(J21L,PDupwindNth2gt12,kmul(J31L,PDupwindNth3gt12)));
-      
-      JacPDupwindNth1gt13 = 
-        kmadd(J11L,PDupwindNth1gt13,kmadd(J21L,PDupwindNth2gt13,kmul(J31L,PDupwindNth3gt13)));
-      
-      JacPDupwindNth1gt22 = 
-        kmadd(J11L,PDupwindNth1gt22,kmadd(J21L,PDupwindNth2gt22,kmul(J31L,PDupwindNth3gt22)));
-      
-      JacPDupwindNth1gt23 = 
-        kmadd(J11L,PDupwindNth1gt23,kmadd(J21L,PDupwindNth2gt23,kmul(J31L,PDupwindNth3gt23)));
-      
-      JacPDupwindNth1gt33 = 
-        kmadd(J11L,PDupwindNth1gt33,kmadd(J21L,PDupwindNth2gt33,kmul(J31L,PDupwindNth3gt33)));
-      
-      JacPDupwindNth1phi = 
-        kmadd(J11L,PDupwindNth1phi,kmadd(J21L,PDupwindNth2phi,kmul(J31L,PDupwindNth3phi)));
-      
-      JacPDupwindNth1trK = 
-        kmadd(J11L,PDupwindNth1trK,kmadd(J21L,PDupwindNth2trK,kmul(J31L,PDupwindNth3trK)));
-      
-      JacPDupwindNth1Xt1 = 
-        kmadd(J11L,PDupwindNth1Xt1,kmadd(J21L,PDupwindNth2Xt1,kmul(J31L,PDupwindNth3Xt1)));
-      
-      JacPDupwindNth1Xt2 = 
-        kmadd(J11L,PDupwindNth1Xt2,kmadd(J21L,PDupwindNth2Xt2,kmul(J31L,PDupwindNth3Xt2)));
-      
-      JacPDupwindNth1Xt3 = 
-        kmadd(J11L,PDupwindNth1Xt3,kmadd(J21L,PDupwindNth2Xt3,kmul(J31L,PDupwindNth3Xt3)));
-      
-      JacPDupwindNth2A = 
-        kmadd(J12L,PDupwindNth1A,kmadd(J22L,PDupwindNth2A,kmul(J32L,PDupwindNth3A)));
-      
-      JacPDupwindNth2alpha = 
-        kmadd(J12L,PDupwindNth1alpha,kmadd(J22L,PDupwindNth2alpha,kmul(J32L,PDupwindNth3alpha)));
-      
-      JacPDupwindNth2At11 = 
-        kmadd(J12L,PDupwindNth1At11,kmadd(J22L,PDupwindNth2At11,kmul(J32L,PDupwindNth3At11)));
-      
-      JacPDupwindNth2At12 = 
-        kmadd(J12L,PDupwindNth1At12,kmadd(J22L,PDupwindNth2At12,kmul(J32L,PDupwindNth3At12)));
-      
-      JacPDupwindNth2At13 = 
-        kmadd(J12L,PDupwindNth1At13,kmadd(J22L,PDupwindNth2At13,kmul(J32L,PDupwindNth3At13)));
-      
-      JacPDupwindNth2At22 = 
-        kmadd(J12L,PDupwindNth1At22,kmadd(J22L,PDupwindNth2At22,kmul(J32L,PDupwindNth3At22)));
-      
-      JacPDupwindNth2At23 = 
-        kmadd(J12L,PDupwindNth1At23,kmadd(J22L,PDupwindNth2At23,kmul(J32L,PDupwindNth3At23)));
-      
-      JacPDupwindNth2At33 = 
-        kmadd(J12L,PDupwindNth1At33,kmadd(J22L,PDupwindNth2At33,kmul(J32L,PDupwindNth3At33)));
-      
-      JacPDupwindNth2B1 = 
-        kmadd(J12L,PDupwindNth1B1,kmadd(J22L,PDupwindNth2B1,kmul(J32L,PDupwindNth3B1)));
-      
-      JacPDupwindNth2B2 = 
-        kmadd(J12L,PDupwindNth1B2,kmadd(J22L,PDupwindNth2B2,kmul(J32L,PDupwindNth3B2)));
-      
-      JacPDupwindNth2B3 = 
-        kmadd(J12L,PDupwindNth1B3,kmadd(J22L,PDupwindNth2B3,kmul(J32L,PDupwindNth3B3)));
-      
-      JacPDupwindNth2beta1 = 
-        kmadd(J12L,PDupwindNth1beta1,kmadd(J22L,PDupwindNth2beta1,kmul(J32L,PDupwindNth3beta1)));
-      
-      JacPDupwindNth2beta2 = 
-        kmadd(J12L,PDupwindNth1beta2,kmadd(J22L,PDupwindNth2beta2,kmul(J32L,PDupwindNth3beta2)));
-      
-      JacPDupwindNth2beta3 = 
-        kmadd(J12L,PDupwindNth1beta3,kmadd(J22L,PDupwindNth2beta3,kmul(J32L,PDupwindNth3beta3)));
-      
-      JacPDupwindNth2gt11 = 
-        kmadd(J12L,PDupwindNth1gt11,kmadd(J22L,PDupwindNth2gt11,kmul(J32L,PDupwindNth3gt11)));
-      
-      JacPDupwindNth2gt12 = 
-        kmadd(J12L,PDupwindNth1gt12,kmadd(J22L,PDupwindNth2gt12,kmul(J32L,PDupwindNth3gt12)));
-      
-      JacPDupwindNth2gt13 = 
-        kmadd(J12L,PDupwindNth1gt13,kmadd(J22L,PDupwindNth2gt13,kmul(J32L,PDupwindNth3gt13)));
-      
-      JacPDupwindNth2gt22 = 
-        kmadd(J12L,PDupwindNth1gt22,kmadd(J22L,PDupwindNth2gt22,kmul(J32L,PDupwindNth3gt22)));
-      
-      JacPDupwindNth2gt23 = 
-        kmadd(J12L,PDupwindNth1gt23,kmadd(J22L,PDupwindNth2gt23,kmul(J32L,PDupwindNth3gt23)));
-      
-      JacPDupwindNth2gt33 = 
-        kmadd(J12L,PDupwindNth1gt33,kmadd(J22L,PDupwindNth2gt33,kmul(J32L,PDupwindNth3gt33)));
-      
-      JacPDupwindNth2phi = 
-        kmadd(J12L,PDupwindNth1phi,kmadd(J22L,PDupwindNth2phi,kmul(J32L,PDupwindNth3phi)));
-      
-      JacPDupwindNth2trK = 
-        kmadd(J12L,PDupwindNth1trK,kmadd(J22L,PDupwindNth2trK,kmul(J32L,PDupwindNth3trK)));
-      
-      JacPDupwindNth2Xt1 = 
-        kmadd(J12L,PDupwindNth1Xt1,kmadd(J22L,PDupwindNth2Xt1,kmul(J32L,PDupwindNth3Xt1)));
-      
-      JacPDupwindNth2Xt2 = 
-        kmadd(J12L,PDupwindNth1Xt2,kmadd(J22L,PDupwindNth2Xt2,kmul(J32L,PDupwindNth3Xt2)));
-      
-      JacPDupwindNth2Xt3 = 
-        kmadd(J12L,PDupwindNth1Xt3,kmadd(J22L,PDupwindNth2Xt3,kmul(J32L,PDupwindNth3Xt3)));
-      
-      JacPDupwindNth3A = 
-        kmadd(J13L,PDupwindNth1A,kmadd(J23L,PDupwindNth2A,kmul(J33L,PDupwindNth3A)));
-      
-      JacPDupwindNth3alpha = 
-        kmadd(J13L,PDupwindNth1alpha,kmadd(J23L,PDupwindNth2alpha,kmul(J33L,PDupwindNth3alpha)));
-      
-      JacPDupwindNth3At11 = 
-        kmadd(J13L,PDupwindNth1At11,kmadd(J23L,PDupwindNth2At11,kmul(J33L,PDupwindNth3At11)));
-      
-      JacPDupwindNth3At12 = 
-        kmadd(J13L,PDupwindNth1At12,kmadd(J23L,PDupwindNth2At12,kmul(J33L,PDupwindNth3At12)));
-      
-      JacPDupwindNth3At13 = 
-        kmadd(J13L,PDupwindNth1At13,kmadd(J23L,PDupwindNth2At13,kmul(J33L,PDupwindNth3At13)));
-      
-      JacPDupwindNth3At22 = 
-        kmadd(J13L,PDupwindNth1At22,kmadd(J23L,PDupwindNth2At22,kmul(J33L,PDupwindNth3At22)));
-      
-      JacPDupwindNth3At23 = 
-        kmadd(J13L,PDupwindNth1At23,kmadd(J23L,PDupwindNth2At23,kmul(J33L,PDupwindNth3At23)));
-      
-      JacPDupwindNth3At33 = 
-        kmadd(J13L,PDupwindNth1At33,kmadd(J23L,PDupwindNth2At33,kmul(J33L,PDupwindNth3At33)));
-      
-      JacPDupwindNth3B1 = 
-        kmadd(J13L,PDupwindNth1B1,kmadd(J23L,PDupwindNth2B1,kmul(J33L,PDupwindNth3B1)));
-      
-      JacPDupwindNth3B2 = 
-        kmadd(J13L,PDupwindNth1B2,kmadd(J23L,PDupwindNth2B2,kmul(J33L,PDupwindNth3B2)));
-      
-      JacPDupwindNth3B3 = 
-        kmadd(J13L,PDupwindNth1B3,kmadd(J23L,PDupwindNth2B3,kmul(J33L,PDupwindNth3B3)));
-      
-      JacPDupwindNth3beta1 = 
-        kmadd(J13L,PDupwindNth1beta1,kmadd(J23L,PDupwindNth2beta1,kmul(J33L,PDupwindNth3beta1)));
-      
-      JacPDupwindNth3beta2 = 
-        kmadd(J13L,PDupwindNth1beta2,kmadd(J23L,PDupwindNth2beta2,kmul(J33L,PDupwindNth3beta2)));
-      
-      JacPDupwindNth3beta3 = 
-        kmadd(J13L,PDupwindNth1beta3,kmadd(J23L,PDupwindNth2beta3,kmul(J33L,PDupwindNth3beta3)));
-      
-      JacPDupwindNth3gt11 = 
-        kmadd(J13L,PDupwindNth1gt11,kmadd(J23L,PDupwindNth2gt11,kmul(J33L,PDupwindNth3gt11)));
-      
-      JacPDupwindNth3gt12 = 
-        kmadd(J13L,PDupwindNth1gt12,kmadd(J23L,PDupwindNth2gt12,kmul(J33L,PDupwindNth3gt12)));
-      
-      JacPDupwindNth3gt13 = 
-        kmadd(J13L,PDupwindNth1gt13,kmadd(J23L,PDupwindNth2gt13,kmul(J33L,PDupwindNth3gt13)));
-      
-      JacPDupwindNth3gt22 = 
-        kmadd(J13L,PDupwindNth1gt22,kmadd(J23L,PDupwindNth2gt22,kmul(J33L,PDupwindNth3gt22)));
-      
-      JacPDupwindNth3gt23 = 
-        kmadd(J13L,PDupwindNth1gt23,kmadd(J23L,PDupwindNth2gt23,kmul(J33L,PDupwindNth3gt23)));
-      
-      JacPDupwindNth3gt33 = 
-        kmadd(J13L,PDupwindNth1gt33,kmadd(J23L,PDupwindNth2gt33,kmul(J33L,PDupwindNth3gt33)));
-      
-      JacPDupwindNth3phi = 
-        kmadd(J13L,PDupwindNth1phi,kmadd(J23L,PDupwindNth2phi,kmul(J33L,PDupwindNth3phi)));
-      
-      JacPDupwindNth3trK = 
-        kmadd(J13L,PDupwindNth1trK,kmadd(J23L,PDupwindNth2trK,kmul(J33L,PDupwindNth3trK)));
-      
-      JacPDupwindNth3Xt1 = 
-        kmadd(J13L,PDupwindNth1Xt1,kmadd(J23L,PDupwindNth2Xt1,kmul(J33L,PDupwindNth3Xt1)));
-      
-      JacPDupwindNth3Xt2 = 
-        kmadd(J13L,PDupwindNth1Xt2,kmadd(J23L,PDupwindNth2Xt2,kmul(J33L,PDupwindNth3Xt2)));
-      
-      JacPDupwindNth3Xt3 = 
-        kmadd(J13L,PDupwindNth1Xt3,kmadd(J23L,PDupwindNth2Xt3,kmul(J33L,PDupwindNth3Xt3)));
-    }
-    else
-    {
-      JacPDupwindNth1A = PDupwindNth1A;
-      
-      JacPDupwindNth1alpha = PDupwindNth1alpha;
-      
-      JacPDupwindNth1At11 = PDupwindNth1At11;
-      
-      JacPDupwindNth1At12 = PDupwindNth1At12;
-      
-      JacPDupwindNth1At13 = PDupwindNth1At13;
-      
-      JacPDupwindNth1At22 = PDupwindNth1At22;
-      
-      JacPDupwindNth1At23 = PDupwindNth1At23;
-      
-      JacPDupwindNth1At33 = PDupwindNth1At33;
-      
-      JacPDupwindNth1B1 = PDupwindNth1B1;
-      
-      JacPDupwindNth1B2 = PDupwindNth1B2;
-      
-      JacPDupwindNth1B3 = PDupwindNth1B3;
-      
-      JacPDupwindNth1beta1 = PDupwindNth1beta1;
-      
-      JacPDupwindNth1beta2 = PDupwindNth1beta2;
-      
-      JacPDupwindNth1beta3 = PDupwindNth1beta3;
-      
-      JacPDupwindNth1gt11 = PDupwindNth1gt11;
-      
-      JacPDupwindNth1gt12 = PDupwindNth1gt12;
-      
-      JacPDupwindNth1gt13 = PDupwindNth1gt13;
-      
-      JacPDupwindNth1gt22 = PDupwindNth1gt22;
-      
-      JacPDupwindNth1gt23 = PDupwindNth1gt23;
-      
-      JacPDupwindNth1gt33 = PDupwindNth1gt33;
-      
-      JacPDupwindNth1phi = PDupwindNth1phi;
-      
-      JacPDupwindNth1trK = PDupwindNth1trK;
-      
-      JacPDupwindNth1Xt1 = PDupwindNth1Xt1;
-      
-      JacPDupwindNth1Xt2 = PDupwindNth1Xt2;
-      
-      JacPDupwindNth1Xt3 = PDupwindNth1Xt3;
-      
-      JacPDupwindNth2A = PDupwindNth2A;
-      
-      JacPDupwindNth2alpha = PDupwindNth2alpha;
-      
-      JacPDupwindNth2At11 = PDupwindNth2At11;
-      
-      JacPDupwindNth2At12 = PDupwindNth2At12;
-      
-      JacPDupwindNth2At13 = PDupwindNth2At13;
-      
-      JacPDupwindNth2At22 = PDupwindNth2At22;
-      
-      JacPDupwindNth2At23 = PDupwindNth2At23;
-      
-      JacPDupwindNth2At33 = PDupwindNth2At33;
-      
-      JacPDupwindNth2B1 = PDupwindNth2B1;
-      
-      JacPDupwindNth2B2 = PDupwindNth2B2;
-      
-      JacPDupwindNth2B3 = PDupwindNth2B3;
-      
-      JacPDupwindNth2beta1 = PDupwindNth2beta1;
-      
-      JacPDupwindNth2beta2 = PDupwindNth2beta2;
-      
-      JacPDupwindNth2beta3 = PDupwindNth2beta3;
-      
-      JacPDupwindNth2gt11 = PDupwindNth2gt11;
-      
-      JacPDupwindNth2gt12 = PDupwindNth2gt12;
-      
-      JacPDupwindNth2gt13 = PDupwindNth2gt13;
-      
-      JacPDupwindNth2gt22 = PDupwindNth2gt22;
-      
-      JacPDupwindNth2gt23 = PDupwindNth2gt23;
-      
-      JacPDupwindNth2gt33 = PDupwindNth2gt33;
-      
-      JacPDupwindNth2phi = PDupwindNth2phi;
-      
-      JacPDupwindNth2trK = PDupwindNth2trK;
-      
-      JacPDupwindNth2Xt1 = PDupwindNth2Xt1;
-      
-      JacPDupwindNth2Xt2 = PDupwindNth2Xt2;
-      
-      JacPDupwindNth2Xt3 = PDupwindNth2Xt3;
-      
-      JacPDupwindNth3A = PDupwindNth3A;
-      
-      JacPDupwindNth3alpha = PDupwindNth3alpha;
-      
-      JacPDupwindNth3At11 = PDupwindNth3At11;
-      
-      JacPDupwindNth3At12 = PDupwindNth3At12;
-      
-      JacPDupwindNth3At13 = PDupwindNth3At13;
-      
-      JacPDupwindNth3At22 = PDupwindNth3At22;
-      
-      JacPDupwindNth3At23 = PDupwindNth3At23;
-      
-      JacPDupwindNth3At33 = PDupwindNth3At33;
-      
-      JacPDupwindNth3B1 = PDupwindNth3B1;
-      
-      JacPDupwindNth3B2 = PDupwindNth3B2;
-      
-      JacPDupwindNth3B3 = PDupwindNth3B3;
-      
-      JacPDupwindNth3beta1 = PDupwindNth3beta1;
-      
-      JacPDupwindNth3beta2 = PDupwindNth3beta2;
-      
-      JacPDupwindNth3beta3 = PDupwindNth3beta3;
-      
-      JacPDupwindNth3gt11 = PDupwindNth3gt11;
-      
-      JacPDupwindNth3gt12 = PDupwindNth3gt12;
-      
-      JacPDupwindNth3gt13 = PDupwindNth3gt13;
-      
-      JacPDupwindNth3gt22 = PDupwindNth3gt22;
-      
-      JacPDupwindNth3gt23 = PDupwindNth3gt23;
-      
-      JacPDupwindNth3gt33 = PDupwindNth3gt33;
-      
-      JacPDupwindNth3phi = PDupwindNth3phi;
-      
-      JacPDupwindNth3trK = PDupwindNth3trK;
-      
-      JacPDupwindNth3Xt1 = PDupwindNth3Xt1;
-      
-      JacPDupwindNth3Xt2 = PDupwindNth3Xt2;
-      
-      JacPDupwindNth3Xt3 = PDupwindNth3Xt3;
-    }
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(beta1L,JacPDupwindNth1phi,kmadd(beta2L,JacPDupwindNth2phi,kmul(beta3L,JacPDupwindNth3phi))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(beta1L,JacPDupwindNth1gt11,kmadd(beta2L,JacPDupwindNth2gt11,kmul(beta3L,JacPDupwindNth3gt11))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(beta1L,JacPDupwindNth1gt12,kmadd(beta2L,JacPDupwindNth2gt12,kmul(beta3L,JacPDupwindNth3gt12))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(beta1L,JacPDupwindNth1gt13,kmadd(beta2L,JacPDupwindNth2gt13,kmul(beta3L,JacPDupwindNth3gt13))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(beta1L,JacPDupwindNth1gt22,kmadd(beta2L,JacPDupwindNth2gt22,kmul(beta3L,JacPDupwindNth3gt22))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(beta1L,JacPDupwindNth1gt23,kmadd(beta2L,JacPDupwindNth2gt23,kmul(beta3L,JacPDupwindNth3gt23))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(beta1L,JacPDupwindNth1gt33,kmadd(beta2L,JacPDupwindNth2gt33,kmul(beta3L,JacPDupwindNth3gt33))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(beta1L,JacPDupwindNth1Xt1,kmadd(beta2L,JacPDupwindNth2Xt1,kmul(beta3L,JacPDupwindNth3Xt1))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(beta1L,JacPDupwindNth1Xt2,kmadd(beta2L,JacPDupwindNth2Xt2,kmul(beta3L,JacPDupwindNth3Xt2))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(beta1L,JacPDupwindNth1Xt3,kmadd(beta2L,JacPDupwindNth2Xt3,kmul(beta3L,JacPDupwindNth3Xt3))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(beta1L,JacPDupwindNth1trK,kmadd(beta2L,JacPDupwindNth2trK,kmul(beta3L,JacPDupwindNth3trK))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(beta1L,JacPDupwindNth1At11,kmadd(beta2L,JacPDupwindNth2At11,kmul(beta3L,JacPDupwindNth3At11))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(beta1L,JacPDupwindNth1At12,kmadd(beta2L,JacPDupwindNth2At12,kmul(beta3L,JacPDupwindNth3At12))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(beta1L,JacPDupwindNth1At13,kmadd(beta2L,JacPDupwindNth2At13,kmul(beta3L,JacPDupwindNth3At13))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(beta1L,JacPDupwindNth1At22,kmadd(beta2L,JacPDupwindNth2At22,kmul(beta3L,JacPDupwindNth3At22))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(beta1L,JacPDupwindNth1At23,kmadd(beta2L,JacPDupwindNth2At23,kmul(beta3L,JacPDupwindNth3At23))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(beta1L,JacPDupwindNth1At33,kmadd(beta2L,JacPDupwindNth2At33,kmul(beta3L,JacPDupwindNth3At33))));
-    
-    alpharhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNth1alpha,kmadd(beta2L,JacPDupwindNth2alpha,kmul(beta3L,JacPDupwindNth3alpha))),ToReal(LapseAdvectionCoeff),alpharhsL);
-    
-    ArhsL = 
-      kmadd(ToReal(LapseACoeff),kmadd(beta1L,kmadd(ksub(JacPDupwindNth1A,JacPDupwindNth1trK),ToReal(LapseAdvectionCoeff),JacPDupwindNth1trK),kmadd(beta2L,kmadd(ksub(JacPDupwindNth2A,JacPDupwindNth2trK),ToReal(LapseAdvectionCoeff),JacPDupwindNth2trK),kmul(beta3L,kmadd(ksub(JacPDupwindNth3A,JacPDupwindNth3trK),ToReal(LapseAdvectionCoeff),JacPDupwindNth3trK)))),ArhsL);
-    
-    beta1rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNth1beta1,kmadd(beta2L,JacPDupwindNth2beta1,kmul(beta3L,JacPDupwindNth3beta1))),ToReal(ShiftAdvectionCoeff),beta1rhsL);
-    
-    beta2rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNth1beta2,kmadd(beta2L,JacPDupwindNth2beta2,kmul(beta3L,JacPDupwindNth3beta2))),ToReal(ShiftAdvectionCoeff),beta2rhsL);
-    
-    beta3rhsL = 
-      kmadd(kmadd(beta1L,JacPDupwindNth1beta3,kmadd(beta2L,JacPDupwindNth2beta3,kmul(beta3L,JacPDupwindNth3beta3))),ToReal(ShiftAdvectionCoeff),beta3rhsL);
-    
-    B1rhsL = 
-      kmadd(kmadd(beta1L,kmadd(ksub(JacPDupwindNth1B1,JacPDupwindNth1Xt1),ToReal(ShiftAdvectionCoeff),JacPDupwindNth1Xt1),kmadd(beta2L,kmadd(ksub(JacPDupwindNth2B1,JacPDupwindNth2Xt1),ToReal(ShiftAdvectionCoeff),JacPDupwindNth2Xt1),kmul(beta3L,kmadd(ksub(JacPDupwindNth3B1,JacPDupwindNth3Xt1),ToReal(ShiftAdvectionCoeff),JacPDupwindNth3Xt1)))),ToReal(ShiftBCoeff),B1rhsL);
-    
-    B2rhsL = 
-      kmadd(kmadd(beta1L,kmadd(ksub(JacPDupwindNth1B2,JacPDupwindNth1Xt2),ToReal(ShiftAdvectionCoeff),JacPDupwindNth1Xt2),kmadd(beta2L,kmadd(ksub(JacPDupwindNth2B2,JacPDupwindNth2Xt2),ToReal(ShiftAdvectionCoeff),JacPDupwindNth2Xt2),kmul(beta3L,kmadd(ksub(JacPDupwindNth3B2,JacPDupwindNth3Xt2),ToReal(ShiftAdvectionCoeff),JacPDupwindNth3Xt2)))),ToReal(ShiftBCoeff),B2rhsL);
-    
-    B3rhsL = 
-      kmadd(kmadd(beta1L,kmadd(ksub(JacPDupwindNth1B3,JacPDupwindNth1Xt3),ToReal(ShiftAdvectionCoeff),JacPDupwindNth1Xt3),kmadd(beta2L,kmadd(ksub(JacPDupwindNth2B3,JacPDupwindNth2Xt3),ToReal(ShiftAdvectionCoeff),JacPDupwindNth2Xt3),kmul(beta3L,kmadd(ksub(JacPDupwindNth3B3,JacPDupwindNth3Xt3),ToReal(ShiftAdvectionCoeff),JacPDupwindNth3Xt3)))),ToReal(ShiftBCoeff),B3rhsL);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_Advect);
-}
-
-extern "C" void ML_BSSN_UPW_Advect(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_Advect_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_Advect_calc_every != ML_BSSN_UPW_Advect_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_curvrhs",
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtlapserhs",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_dtshiftrhs",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_Gammarhs",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_lapserhs",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_log_confacrhs",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_metricrhs",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_shiftrhs",
-    "ML_BSSN_UPW::ML_trace_curv",
-    "ML_BSSN_UPW::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_Advect", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_Advect", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_Advect", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_Advect", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_Advect", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_UPW_Advect_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_Advect_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_Dissipation.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_Dissipation.cc
deleted file mode 100644
index f0b0b60..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_Dissipation.cc
+++ /dev/null
@@ -1,1330 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_Dissipation_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_UPW_Dissipation_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_Dissipation,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC alpharhsL = vec_load(alpharhs[index]);
-    CCTK_REAL_VEC ArhsL = vec_load(Arhs[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At11rhsL = vec_load(At11rhs[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At12rhsL = vec_load(At12rhs[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At13rhsL = vec_load(At13rhs[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At22rhsL = vec_load(At22rhs[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At23rhsL = vec_load(At23rhs[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC At33rhsL = vec_load(At33rhs[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B1rhsL = vec_load(B1rhs[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B2rhsL = vec_load(B2rhs[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC B3rhsL = vec_load(B3rhs[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta1rhsL = vec_load(beta1rhs[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta2rhsL = vec_load(beta2rhs[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC beta3rhsL = vec_load(beta3rhs[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt11rhsL = vec_load(gt11rhs[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt12rhsL = vec_load(gt12rhs[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt13rhsL = vec_load(gt13rhs[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt22rhsL = vec_load(gt22rhs[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt23rhsL = vec_load(gt23rhs[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gt33rhsL = vec_load(gt33rhs[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC phirhsL = vec_load(phirhs[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC trKrhsL = vec_load(trKrhs[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt1rhsL = vec_load(Xt1rhs[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt2rhsL = vec_load(Xt2rhs[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    CCTK_REAL_VEC Xt3rhsL = vec_load(Xt3rhs[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDdissipationNth1A;
-    CCTK_REAL_VEC PDdissipationNth2A;
-    CCTK_REAL_VEC PDdissipationNth3A;
-    CCTK_REAL_VEC PDdissipationNth1alpha;
-    CCTK_REAL_VEC PDdissipationNth2alpha;
-    CCTK_REAL_VEC PDdissipationNth3alpha;
-    CCTK_REAL_VEC PDdissipationNth1At11;
-    CCTK_REAL_VEC PDdissipationNth2At11;
-    CCTK_REAL_VEC PDdissipationNth3At11;
-    CCTK_REAL_VEC PDdissipationNth1At12;
-    CCTK_REAL_VEC PDdissipationNth2At12;
-    CCTK_REAL_VEC PDdissipationNth3At12;
-    CCTK_REAL_VEC PDdissipationNth1At13;
-    CCTK_REAL_VEC PDdissipationNth2At13;
-    CCTK_REAL_VEC PDdissipationNth3At13;
-    CCTK_REAL_VEC PDdissipationNth1At22;
-    CCTK_REAL_VEC PDdissipationNth2At22;
-    CCTK_REAL_VEC PDdissipationNth3At22;
-    CCTK_REAL_VEC PDdissipationNth1At23;
-    CCTK_REAL_VEC PDdissipationNth2At23;
-    CCTK_REAL_VEC PDdissipationNth3At23;
-    CCTK_REAL_VEC PDdissipationNth1At33;
-    CCTK_REAL_VEC PDdissipationNth2At33;
-    CCTK_REAL_VEC PDdissipationNth3At33;
-    CCTK_REAL_VEC PDdissipationNth1B1;
-    CCTK_REAL_VEC PDdissipationNth2B1;
-    CCTK_REAL_VEC PDdissipationNth3B1;
-    CCTK_REAL_VEC PDdissipationNth1B2;
-    CCTK_REAL_VEC PDdissipationNth2B2;
-    CCTK_REAL_VEC PDdissipationNth3B2;
-    CCTK_REAL_VEC PDdissipationNth1B3;
-    CCTK_REAL_VEC PDdissipationNth2B3;
-    CCTK_REAL_VEC PDdissipationNth3B3;
-    CCTK_REAL_VEC PDdissipationNth1beta1;
-    CCTK_REAL_VEC PDdissipationNth2beta1;
-    CCTK_REAL_VEC PDdissipationNth3beta1;
-    CCTK_REAL_VEC PDdissipationNth1beta2;
-    CCTK_REAL_VEC PDdissipationNth2beta2;
-    CCTK_REAL_VEC PDdissipationNth3beta2;
-    CCTK_REAL_VEC PDdissipationNth1beta3;
-    CCTK_REAL_VEC PDdissipationNth2beta3;
-    CCTK_REAL_VEC PDdissipationNth3beta3;
-    CCTK_REAL_VEC PDdissipationNth1gt11;
-    CCTK_REAL_VEC PDdissipationNth2gt11;
-    CCTK_REAL_VEC PDdissipationNth3gt11;
-    CCTK_REAL_VEC PDdissipationNth1gt12;
-    CCTK_REAL_VEC PDdissipationNth2gt12;
-    CCTK_REAL_VEC PDdissipationNth3gt12;
-    CCTK_REAL_VEC PDdissipationNth1gt13;
-    CCTK_REAL_VEC PDdissipationNth2gt13;
-    CCTK_REAL_VEC PDdissipationNth3gt13;
-    CCTK_REAL_VEC PDdissipationNth1gt22;
-    CCTK_REAL_VEC PDdissipationNth2gt22;
-    CCTK_REAL_VEC PDdissipationNth3gt22;
-    CCTK_REAL_VEC PDdissipationNth1gt23;
-    CCTK_REAL_VEC PDdissipationNth2gt23;
-    CCTK_REAL_VEC PDdissipationNth3gt23;
-    CCTK_REAL_VEC PDdissipationNth1gt33;
-    CCTK_REAL_VEC PDdissipationNth2gt33;
-    CCTK_REAL_VEC PDdissipationNth3gt33;
-    CCTK_REAL_VEC PDdissipationNth1phi;
-    CCTK_REAL_VEC PDdissipationNth2phi;
-    CCTK_REAL_VEC PDdissipationNth3phi;
-    CCTK_REAL_VEC PDdissipationNth1trK;
-    CCTK_REAL_VEC PDdissipationNth2trK;
-    CCTK_REAL_VEC PDdissipationNth3trK;
-    CCTK_REAL_VEC PDdissipationNth1Xt1;
-    CCTK_REAL_VEC PDdissipationNth2Xt1;
-    CCTK_REAL_VEC PDdissipationNth3Xt1;
-    CCTK_REAL_VEC PDdissipationNth1Xt2;
-    CCTK_REAL_VEC PDdissipationNth2Xt2;
-    CCTK_REAL_VEC PDdissipationNth3Xt2;
-    CCTK_REAL_VEC PDdissipationNth1Xt3;
-    CCTK_REAL_VEC PDdissipationNth2Xt3;
-    CCTK_REAL_VEC PDdissipationNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDdissipationNth1A = PDdissipationNthfdOrder21(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder22(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder23(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder21(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder22(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder23(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder21(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder22(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder23(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder21(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder22(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder23(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder21(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder22(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder23(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder21(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder22(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder23(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder21(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder22(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder23(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder21(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder22(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder23(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder21(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder22(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder23(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder21(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder22(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder23(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder21(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder22(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder23(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder21(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder22(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder23(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder21(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder22(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder23(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder21(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder22(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder23(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder21(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder22(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder23(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder21(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder22(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder23(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder21(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder22(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder23(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder21(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder22(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder23(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder21(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder22(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder23(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder21(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder22(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder23(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder21(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder22(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder23(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder21(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder22(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder23(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder21(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder22(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder23(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder21(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder22(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder23(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder21(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder22(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDdissipationNth1A = PDdissipationNthfdOrder41(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder42(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder43(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder41(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder42(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder43(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder41(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder42(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder43(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder41(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder42(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder43(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder41(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder42(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder43(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder41(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder42(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder43(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder41(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder42(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder43(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder41(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder42(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder43(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder41(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder42(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder43(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder41(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder42(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder43(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder41(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder42(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder43(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder41(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder42(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder43(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder41(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder42(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder43(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder41(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder42(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder43(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder41(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder42(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder43(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder41(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder42(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder43(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder41(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder42(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder43(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder41(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder42(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder43(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder41(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder42(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder43(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder41(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder42(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder43(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder41(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder42(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder43(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder41(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder42(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder43(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder41(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder42(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder43(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder41(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder42(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder43(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder41(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder42(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDdissipationNth1A = PDdissipationNthfdOrder61(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder62(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder63(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder61(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder62(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder63(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder61(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder62(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder63(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder61(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder62(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder63(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder61(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder62(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder63(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder61(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder62(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder63(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder61(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder62(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder63(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder61(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder62(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder63(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder61(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder62(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder63(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder61(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder62(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder63(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder61(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder62(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder63(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder61(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder62(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder63(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder61(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder62(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder63(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder61(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder62(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder63(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder61(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder62(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder63(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder61(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder62(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder63(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder61(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder62(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder63(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder61(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder62(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder63(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder61(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder62(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder63(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder61(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder62(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder63(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder61(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder62(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder63(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder61(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder62(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder63(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder61(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder62(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder63(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder61(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder62(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder63(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder61(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder62(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDdissipationNth1A = PDdissipationNthfdOrder81(&A[index]);
-        PDdissipationNth2A = PDdissipationNthfdOrder82(&A[index]);
-        PDdissipationNth3A = PDdissipationNthfdOrder83(&A[index]);
-        PDdissipationNth1alpha = PDdissipationNthfdOrder81(&alpha[index]);
-        PDdissipationNth2alpha = PDdissipationNthfdOrder82(&alpha[index]);
-        PDdissipationNth3alpha = PDdissipationNthfdOrder83(&alpha[index]);
-        PDdissipationNth1At11 = PDdissipationNthfdOrder81(&At11[index]);
-        PDdissipationNth2At11 = PDdissipationNthfdOrder82(&At11[index]);
-        PDdissipationNth3At11 = PDdissipationNthfdOrder83(&At11[index]);
-        PDdissipationNth1At12 = PDdissipationNthfdOrder81(&At12[index]);
-        PDdissipationNth2At12 = PDdissipationNthfdOrder82(&At12[index]);
-        PDdissipationNth3At12 = PDdissipationNthfdOrder83(&At12[index]);
-        PDdissipationNth1At13 = PDdissipationNthfdOrder81(&At13[index]);
-        PDdissipationNth2At13 = PDdissipationNthfdOrder82(&At13[index]);
-        PDdissipationNth3At13 = PDdissipationNthfdOrder83(&At13[index]);
-        PDdissipationNth1At22 = PDdissipationNthfdOrder81(&At22[index]);
-        PDdissipationNth2At22 = PDdissipationNthfdOrder82(&At22[index]);
-        PDdissipationNth3At22 = PDdissipationNthfdOrder83(&At22[index]);
-        PDdissipationNth1At23 = PDdissipationNthfdOrder81(&At23[index]);
-        PDdissipationNth2At23 = PDdissipationNthfdOrder82(&At23[index]);
-        PDdissipationNth3At23 = PDdissipationNthfdOrder83(&At23[index]);
-        PDdissipationNth1At33 = PDdissipationNthfdOrder81(&At33[index]);
-        PDdissipationNth2At33 = PDdissipationNthfdOrder82(&At33[index]);
-        PDdissipationNth3At33 = PDdissipationNthfdOrder83(&At33[index]);
-        PDdissipationNth1B1 = PDdissipationNthfdOrder81(&B1[index]);
-        PDdissipationNth2B1 = PDdissipationNthfdOrder82(&B1[index]);
-        PDdissipationNth3B1 = PDdissipationNthfdOrder83(&B1[index]);
-        PDdissipationNth1B2 = PDdissipationNthfdOrder81(&B2[index]);
-        PDdissipationNth2B2 = PDdissipationNthfdOrder82(&B2[index]);
-        PDdissipationNth3B2 = PDdissipationNthfdOrder83(&B2[index]);
-        PDdissipationNth1B3 = PDdissipationNthfdOrder81(&B3[index]);
-        PDdissipationNth2B3 = PDdissipationNthfdOrder82(&B3[index]);
-        PDdissipationNth3B3 = PDdissipationNthfdOrder83(&B3[index]);
-        PDdissipationNth1beta1 = PDdissipationNthfdOrder81(&beta1[index]);
-        PDdissipationNth2beta1 = PDdissipationNthfdOrder82(&beta1[index]);
-        PDdissipationNth3beta1 = PDdissipationNthfdOrder83(&beta1[index]);
-        PDdissipationNth1beta2 = PDdissipationNthfdOrder81(&beta2[index]);
-        PDdissipationNth2beta2 = PDdissipationNthfdOrder82(&beta2[index]);
-        PDdissipationNth3beta2 = PDdissipationNthfdOrder83(&beta2[index]);
-        PDdissipationNth1beta3 = PDdissipationNthfdOrder81(&beta3[index]);
-        PDdissipationNth2beta3 = PDdissipationNthfdOrder82(&beta3[index]);
-        PDdissipationNth3beta3 = PDdissipationNthfdOrder83(&beta3[index]);
-        PDdissipationNth1gt11 = PDdissipationNthfdOrder81(&gt11[index]);
-        PDdissipationNth2gt11 = PDdissipationNthfdOrder82(&gt11[index]);
-        PDdissipationNth3gt11 = PDdissipationNthfdOrder83(&gt11[index]);
-        PDdissipationNth1gt12 = PDdissipationNthfdOrder81(&gt12[index]);
-        PDdissipationNth2gt12 = PDdissipationNthfdOrder82(&gt12[index]);
-        PDdissipationNth3gt12 = PDdissipationNthfdOrder83(&gt12[index]);
-        PDdissipationNth1gt13 = PDdissipationNthfdOrder81(&gt13[index]);
-        PDdissipationNth2gt13 = PDdissipationNthfdOrder82(&gt13[index]);
-        PDdissipationNth3gt13 = PDdissipationNthfdOrder83(&gt13[index]);
-        PDdissipationNth1gt22 = PDdissipationNthfdOrder81(&gt22[index]);
-        PDdissipationNth2gt22 = PDdissipationNthfdOrder82(&gt22[index]);
-        PDdissipationNth3gt22 = PDdissipationNthfdOrder83(&gt22[index]);
-        PDdissipationNth1gt23 = PDdissipationNthfdOrder81(&gt23[index]);
-        PDdissipationNth2gt23 = PDdissipationNthfdOrder82(&gt23[index]);
-        PDdissipationNth3gt23 = PDdissipationNthfdOrder83(&gt23[index]);
-        PDdissipationNth1gt33 = PDdissipationNthfdOrder81(&gt33[index]);
-        PDdissipationNth2gt33 = PDdissipationNthfdOrder82(&gt33[index]);
-        PDdissipationNth3gt33 = PDdissipationNthfdOrder83(&gt33[index]);
-        PDdissipationNth1phi = PDdissipationNthfdOrder81(&phi[index]);
-        PDdissipationNth2phi = PDdissipationNthfdOrder82(&phi[index]);
-        PDdissipationNth3phi = PDdissipationNthfdOrder83(&phi[index]);
-        PDdissipationNth1trK = PDdissipationNthfdOrder81(&trK[index]);
-        PDdissipationNth2trK = PDdissipationNthfdOrder82(&trK[index]);
-        PDdissipationNth3trK = PDdissipationNthfdOrder83(&trK[index]);
-        PDdissipationNth1Xt1 = PDdissipationNthfdOrder81(&Xt1[index]);
-        PDdissipationNth2Xt1 = PDdissipationNthfdOrder82(&Xt1[index]);
-        PDdissipationNth3Xt1 = PDdissipationNthfdOrder83(&Xt1[index]);
-        PDdissipationNth1Xt2 = PDdissipationNthfdOrder81(&Xt2[index]);
-        PDdissipationNth2Xt2 = PDdissipationNthfdOrder82(&Xt2[index]);
-        PDdissipationNth3Xt2 = PDdissipationNthfdOrder83(&Xt2[index]);
-        PDdissipationNth1Xt3 = PDdissipationNthfdOrder81(&Xt3[index]);
-        PDdissipationNth2Xt3 = PDdissipationNthfdOrder82(&Xt3[index]);
-        PDdissipationNth3Xt3 = PDdissipationNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDdissipationNth1A;
-    CCTK_REAL_VEC JacPDdissipationNth1alpha;
-    CCTK_REAL_VEC JacPDdissipationNth1At11;
-    CCTK_REAL_VEC JacPDdissipationNth1At12;
-    CCTK_REAL_VEC JacPDdissipationNth1At13;
-    CCTK_REAL_VEC JacPDdissipationNth1At22;
-    CCTK_REAL_VEC JacPDdissipationNth1At23;
-    CCTK_REAL_VEC JacPDdissipationNth1At33;
-    CCTK_REAL_VEC JacPDdissipationNth1B1;
-    CCTK_REAL_VEC JacPDdissipationNth1B2;
-    CCTK_REAL_VEC JacPDdissipationNth1B3;
-    CCTK_REAL_VEC JacPDdissipationNth1beta1;
-    CCTK_REAL_VEC JacPDdissipationNth1beta2;
-    CCTK_REAL_VEC JacPDdissipationNth1beta3;
-    CCTK_REAL_VEC JacPDdissipationNth1gt11;
-    CCTK_REAL_VEC JacPDdissipationNth1gt12;
-    CCTK_REAL_VEC JacPDdissipationNth1gt13;
-    CCTK_REAL_VEC JacPDdissipationNth1gt22;
-    CCTK_REAL_VEC JacPDdissipationNth1gt23;
-    CCTK_REAL_VEC JacPDdissipationNth1gt33;
-    CCTK_REAL_VEC JacPDdissipationNth1phi;
-    CCTK_REAL_VEC JacPDdissipationNth1trK;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth1Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth2A;
-    CCTK_REAL_VEC JacPDdissipationNth2alpha;
-    CCTK_REAL_VEC JacPDdissipationNth2At11;
-    CCTK_REAL_VEC JacPDdissipationNth2At12;
-    CCTK_REAL_VEC JacPDdissipationNth2At13;
-    CCTK_REAL_VEC JacPDdissipationNth2At22;
-    CCTK_REAL_VEC JacPDdissipationNth2At23;
-    CCTK_REAL_VEC JacPDdissipationNth2At33;
-    CCTK_REAL_VEC JacPDdissipationNth2B1;
-    CCTK_REAL_VEC JacPDdissipationNth2B2;
-    CCTK_REAL_VEC JacPDdissipationNth2B3;
-    CCTK_REAL_VEC JacPDdissipationNth2beta1;
-    CCTK_REAL_VEC JacPDdissipationNth2beta2;
-    CCTK_REAL_VEC JacPDdissipationNth2beta3;
-    CCTK_REAL_VEC JacPDdissipationNth2gt11;
-    CCTK_REAL_VEC JacPDdissipationNth2gt12;
-    CCTK_REAL_VEC JacPDdissipationNth2gt13;
-    CCTK_REAL_VEC JacPDdissipationNth2gt22;
-    CCTK_REAL_VEC JacPDdissipationNth2gt23;
-    CCTK_REAL_VEC JacPDdissipationNth2gt33;
-    CCTK_REAL_VEC JacPDdissipationNth2phi;
-    CCTK_REAL_VEC JacPDdissipationNth2trK;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth2Xt3;
-    CCTK_REAL_VEC JacPDdissipationNth3A;
-    CCTK_REAL_VEC JacPDdissipationNth3alpha;
-    CCTK_REAL_VEC JacPDdissipationNth3At11;
-    CCTK_REAL_VEC JacPDdissipationNth3At12;
-    CCTK_REAL_VEC JacPDdissipationNth3At13;
-    CCTK_REAL_VEC JacPDdissipationNth3At22;
-    CCTK_REAL_VEC JacPDdissipationNth3At23;
-    CCTK_REAL_VEC JacPDdissipationNth3At33;
-    CCTK_REAL_VEC JacPDdissipationNth3B1;
-    CCTK_REAL_VEC JacPDdissipationNth3B2;
-    CCTK_REAL_VEC JacPDdissipationNth3B3;
-    CCTK_REAL_VEC JacPDdissipationNth3beta1;
-    CCTK_REAL_VEC JacPDdissipationNth3beta2;
-    CCTK_REAL_VEC JacPDdissipationNth3beta3;
-    CCTK_REAL_VEC JacPDdissipationNth3gt11;
-    CCTK_REAL_VEC JacPDdissipationNth3gt12;
-    CCTK_REAL_VEC JacPDdissipationNth3gt13;
-    CCTK_REAL_VEC JacPDdissipationNth3gt22;
-    CCTK_REAL_VEC JacPDdissipationNth3gt23;
-    CCTK_REAL_VEC JacPDdissipationNth3gt33;
-    CCTK_REAL_VEC JacPDdissipationNth3phi;
-    CCTK_REAL_VEC JacPDdissipationNth3trK;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt1;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt2;
-    CCTK_REAL_VEC JacPDdissipationNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDdissipationNth1A = 
-        kmadd(J11L,PDdissipationNth1A,kmadd(J21L,PDdissipationNth2A,kmul(J31L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth1alpha = 
-        kmadd(J11L,PDdissipationNth1alpha,kmadd(J21L,PDdissipationNth2alpha,kmul(J31L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth1At11 = 
-        kmadd(J11L,PDdissipationNth1At11,kmadd(J21L,PDdissipationNth2At11,kmul(J31L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth1At12 = 
-        kmadd(J11L,PDdissipationNth1At12,kmadd(J21L,PDdissipationNth2At12,kmul(J31L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth1At13 = 
-        kmadd(J11L,PDdissipationNth1At13,kmadd(J21L,PDdissipationNth2At13,kmul(J31L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth1At22 = 
-        kmadd(J11L,PDdissipationNth1At22,kmadd(J21L,PDdissipationNth2At22,kmul(J31L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth1At23 = 
-        kmadd(J11L,PDdissipationNth1At23,kmadd(J21L,PDdissipationNth2At23,kmul(J31L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth1At33 = 
-        kmadd(J11L,PDdissipationNth1At33,kmadd(J21L,PDdissipationNth2At33,kmul(J31L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth1B1 = 
-        kmadd(J11L,PDdissipationNth1B1,kmadd(J21L,PDdissipationNth2B1,kmul(J31L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth1B2 = 
-        kmadd(J11L,PDdissipationNth1B2,kmadd(J21L,PDdissipationNth2B2,kmul(J31L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth1B3 = 
-        kmadd(J11L,PDdissipationNth1B3,kmadd(J21L,PDdissipationNth2B3,kmul(J31L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth1beta1 = 
-        kmadd(J11L,PDdissipationNth1beta1,kmadd(J21L,PDdissipationNth2beta1,kmul(J31L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth1beta2 = 
-        kmadd(J11L,PDdissipationNth1beta2,kmadd(J21L,PDdissipationNth2beta2,kmul(J31L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth1beta3 = 
-        kmadd(J11L,PDdissipationNth1beta3,kmadd(J21L,PDdissipationNth2beta3,kmul(J31L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth1gt11 = 
-        kmadd(J11L,PDdissipationNth1gt11,kmadd(J21L,PDdissipationNth2gt11,kmul(J31L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth1gt12 = 
-        kmadd(J11L,PDdissipationNth1gt12,kmadd(J21L,PDdissipationNth2gt12,kmul(J31L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth1gt13 = 
-        kmadd(J11L,PDdissipationNth1gt13,kmadd(J21L,PDdissipationNth2gt13,kmul(J31L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth1gt22 = 
-        kmadd(J11L,PDdissipationNth1gt22,kmadd(J21L,PDdissipationNth2gt22,kmul(J31L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth1gt23 = 
-        kmadd(J11L,PDdissipationNth1gt23,kmadd(J21L,PDdissipationNth2gt23,kmul(J31L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth1gt33 = 
-        kmadd(J11L,PDdissipationNth1gt33,kmadd(J21L,PDdissipationNth2gt33,kmul(J31L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth1phi = 
-        kmadd(J11L,PDdissipationNth1phi,kmadd(J21L,PDdissipationNth2phi,kmul(J31L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth1trK = 
-        kmadd(J11L,PDdissipationNth1trK,kmadd(J21L,PDdissipationNth2trK,kmul(J31L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth1Xt1 = 
-        kmadd(J11L,PDdissipationNth1Xt1,kmadd(J21L,PDdissipationNth2Xt1,kmul(J31L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth1Xt2 = 
-        kmadd(J11L,PDdissipationNth1Xt2,kmadd(J21L,PDdissipationNth2Xt2,kmul(J31L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth1Xt3 = 
-        kmadd(J11L,PDdissipationNth1Xt3,kmadd(J21L,PDdissipationNth2Xt3,kmul(J31L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth2A = 
-        kmadd(J12L,PDdissipationNth1A,kmadd(J22L,PDdissipationNth2A,kmul(J32L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth2alpha = 
-        kmadd(J12L,PDdissipationNth1alpha,kmadd(J22L,PDdissipationNth2alpha,kmul(J32L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth2At11 = 
-        kmadd(J12L,PDdissipationNth1At11,kmadd(J22L,PDdissipationNth2At11,kmul(J32L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth2At12 = 
-        kmadd(J12L,PDdissipationNth1At12,kmadd(J22L,PDdissipationNth2At12,kmul(J32L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth2At13 = 
-        kmadd(J12L,PDdissipationNth1At13,kmadd(J22L,PDdissipationNth2At13,kmul(J32L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth2At22 = 
-        kmadd(J12L,PDdissipationNth1At22,kmadd(J22L,PDdissipationNth2At22,kmul(J32L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth2At23 = 
-        kmadd(J12L,PDdissipationNth1At23,kmadd(J22L,PDdissipationNth2At23,kmul(J32L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth2At33 = 
-        kmadd(J12L,PDdissipationNth1At33,kmadd(J22L,PDdissipationNth2At33,kmul(J32L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth2B1 = 
-        kmadd(J12L,PDdissipationNth1B1,kmadd(J22L,PDdissipationNth2B1,kmul(J32L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth2B2 = 
-        kmadd(J12L,PDdissipationNth1B2,kmadd(J22L,PDdissipationNth2B2,kmul(J32L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth2B3 = 
-        kmadd(J12L,PDdissipationNth1B3,kmadd(J22L,PDdissipationNth2B3,kmul(J32L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth2beta1 = 
-        kmadd(J12L,PDdissipationNth1beta1,kmadd(J22L,PDdissipationNth2beta1,kmul(J32L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth2beta2 = 
-        kmadd(J12L,PDdissipationNth1beta2,kmadd(J22L,PDdissipationNth2beta2,kmul(J32L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth2beta3 = 
-        kmadd(J12L,PDdissipationNth1beta3,kmadd(J22L,PDdissipationNth2beta3,kmul(J32L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth2gt11 = 
-        kmadd(J12L,PDdissipationNth1gt11,kmadd(J22L,PDdissipationNth2gt11,kmul(J32L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth2gt12 = 
-        kmadd(J12L,PDdissipationNth1gt12,kmadd(J22L,PDdissipationNth2gt12,kmul(J32L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth2gt13 = 
-        kmadd(J12L,PDdissipationNth1gt13,kmadd(J22L,PDdissipationNth2gt13,kmul(J32L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth2gt22 = 
-        kmadd(J12L,PDdissipationNth1gt22,kmadd(J22L,PDdissipationNth2gt22,kmul(J32L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth2gt23 = 
-        kmadd(J12L,PDdissipationNth1gt23,kmadd(J22L,PDdissipationNth2gt23,kmul(J32L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth2gt33 = 
-        kmadd(J12L,PDdissipationNth1gt33,kmadd(J22L,PDdissipationNth2gt33,kmul(J32L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth2phi = 
-        kmadd(J12L,PDdissipationNth1phi,kmadd(J22L,PDdissipationNth2phi,kmul(J32L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth2trK = 
-        kmadd(J12L,PDdissipationNth1trK,kmadd(J22L,PDdissipationNth2trK,kmul(J32L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth2Xt1 = 
-        kmadd(J12L,PDdissipationNth1Xt1,kmadd(J22L,PDdissipationNth2Xt1,kmul(J32L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth2Xt2 = 
-        kmadd(J12L,PDdissipationNth1Xt2,kmadd(J22L,PDdissipationNth2Xt2,kmul(J32L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth2Xt3 = 
-        kmadd(J12L,PDdissipationNth1Xt3,kmadd(J22L,PDdissipationNth2Xt3,kmul(J32L,PDdissipationNth3Xt3)));
-      
-      JacPDdissipationNth3A = 
-        kmadd(J13L,PDdissipationNth1A,kmadd(J23L,PDdissipationNth2A,kmul(J33L,PDdissipationNth3A)));
-      
-      JacPDdissipationNth3alpha = 
-        kmadd(J13L,PDdissipationNth1alpha,kmadd(J23L,PDdissipationNth2alpha,kmul(J33L,PDdissipationNth3alpha)));
-      
-      JacPDdissipationNth3At11 = 
-        kmadd(J13L,PDdissipationNth1At11,kmadd(J23L,PDdissipationNth2At11,kmul(J33L,PDdissipationNth3At11)));
-      
-      JacPDdissipationNth3At12 = 
-        kmadd(J13L,PDdissipationNth1At12,kmadd(J23L,PDdissipationNth2At12,kmul(J33L,PDdissipationNth3At12)));
-      
-      JacPDdissipationNth3At13 = 
-        kmadd(J13L,PDdissipationNth1At13,kmadd(J23L,PDdissipationNth2At13,kmul(J33L,PDdissipationNth3At13)));
-      
-      JacPDdissipationNth3At22 = 
-        kmadd(J13L,PDdissipationNth1At22,kmadd(J23L,PDdissipationNth2At22,kmul(J33L,PDdissipationNth3At22)));
-      
-      JacPDdissipationNth3At23 = 
-        kmadd(J13L,PDdissipationNth1At23,kmadd(J23L,PDdissipationNth2At23,kmul(J33L,PDdissipationNth3At23)));
-      
-      JacPDdissipationNth3At33 = 
-        kmadd(J13L,PDdissipationNth1At33,kmadd(J23L,PDdissipationNth2At33,kmul(J33L,PDdissipationNth3At33)));
-      
-      JacPDdissipationNth3B1 = 
-        kmadd(J13L,PDdissipationNth1B1,kmadd(J23L,PDdissipationNth2B1,kmul(J33L,PDdissipationNth3B1)));
-      
-      JacPDdissipationNth3B2 = 
-        kmadd(J13L,PDdissipationNth1B2,kmadd(J23L,PDdissipationNth2B2,kmul(J33L,PDdissipationNth3B2)));
-      
-      JacPDdissipationNth3B3 = 
-        kmadd(J13L,PDdissipationNth1B3,kmadd(J23L,PDdissipationNth2B3,kmul(J33L,PDdissipationNth3B3)));
-      
-      JacPDdissipationNth3beta1 = 
-        kmadd(J13L,PDdissipationNth1beta1,kmadd(J23L,PDdissipationNth2beta1,kmul(J33L,PDdissipationNth3beta1)));
-      
-      JacPDdissipationNth3beta2 = 
-        kmadd(J13L,PDdissipationNth1beta2,kmadd(J23L,PDdissipationNth2beta2,kmul(J33L,PDdissipationNth3beta2)));
-      
-      JacPDdissipationNth3beta3 = 
-        kmadd(J13L,PDdissipationNth1beta3,kmadd(J23L,PDdissipationNth2beta3,kmul(J33L,PDdissipationNth3beta3)));
-      
-      JacPDdissipationNth3gt11 = 
-        kmadd(J13L,PDdissipationNth1gt11,kmadd(J23L,PDdissipationNth2gt11,kmul(J33L,PDdissipationNth3gt11)));
-      
-      JacPDdissipationNth3gt12 = 
-        kmadd(J13L,PDdissipationNth1gt12,kmadd(J23L,PDdissipationNth2gt12,kmul(J33L,PDdissipationNth3gt12)));
-      
-      JacPDdissipationNth3gt13 = 
-        kmadd(J13L,PDdissipationNth1gt13,kmadd(J23L,PDdissipationNth2gt13,kmul(J33L,PDdissipationNth3gt13)));
-      
-      JacPDdissipationNth3gt22 = 
-        kmadd(J13L,PDdissipationNth1gt22,kmadd(J23L,PDdissipationNth2gt22,kmul(J33L,PDdissipationNth3gt22)));
-      
-      JacPDdissipationNth3gt23 = 
-        kmadd(J13L,PDdissipationNth1gt23,kmadd(J23L,PDdissipationNth2gt23,kmul(J33L,PDdissipationNth3gt23)));
-      
-      JacPDdissipationNth3gt33 = 
-        kmadd(J13L,PDdissipationNth1gt33,kmadd(J23L,PDdissipationNth2gt33,kmul(J33L,PDdissipationNth3gt33)));
-      
-      JacPDdissipationNth3phi = 
-        kmadd(J13L,PDdissipationNth1phi,kmadd(J23L,PDdissipationNth2phi,kmul(J33L,PDdissipationNth3phi)));
-      
-      JacPDdissipationNth3trK = 
-        kmadd(J13L,PDdissipationNth1trK,kmadd(J23L,PDdissipationNth2trK,kmul(J33L,PDdissipationNth3trK)));
-      
-      JacPDdissipationNth3Xt1 = 
-        kmadd(J13L,PDdissipationNth1Xt1,kmadd(J23L,PDdissipationNth2Xt1,kmul(J33L,PDdissipationNth3Xt1)));
-      
-      JacPDdissipationNth3Xt2 = 
-        kmadd(J13L,PDdissipationNth1Xt2,kmadd(J23L,PDdissipationNth2Xt2,kmul(J33L,PDdissipationNth3Xt2)));
-      
-      JacPDdissipationNth3Xt3 = 
-        kmadd(J13L,PDdissipationNth1Xt3,kmadd(J23L,PDdissipationNth2Xt3,kmul(J33L,PDdissipationNth3Xt3)));
-    }
-    else
-    {
-      JacPDdissipationNth1A = PDdissipationNth1A;
-      
-      JacPDdissipationNth1alpha = PDdissipationNth1alpha;
-      
-      JacPDdissipationNth1At11 = PDdissipationNth1At11;
-      
-      JacPDdissipationNth1At12 = PDdissipationNth1At12;
-      
-      JacPDdissipationNth1At13 = PDdissipationNth1At13;
-      
-      JacPDdissipationNth1At22 = PDdissipationNth1At22;
-      
-      JacPDdissipationNth1At23 = PDdissipationNth1At23;
-      
-      JacPDdissipationNth1At33 = PDdissipationNth1At33;
-      
-      JacPDdissipationNth1B1 = PDdissipationNth1B1;
-      
-      JacPDdissipationNth1B2 = PDdissipationNth1B2;
-      
-      JacPDdissipationNth1B3 = PDdissipationNth1B3;
-      
-      JacPDdissipationNth1beta1 = PDdissipationNth1beta1;
-      
-      JacPDdissipationNth1beta2 = PDdissipationNth1beta2;
-      
-      JacPDdissipationNth1beta3 = PDdissipationNth1beta3;
-      
-      JacPDdissipationNth1gt11 = PDdissipationNth1gt11;
-      
-      JacPDdissipationNth1gt12 = PDdissipationNth1gt12;
-      
-      JacPDdissipationNth1gt13 = PDdissipationNth1gt13;
-      
-      JacPDdissipationNth1gt22 = PDdissipationNth1gt22;
-      
-      JacPDdissipationNth1gt23 = PDdissipationNth1gt23;
-      
-      JacPDdissipationNth1gt33 = PDdissipationNth1gt33;
-      
-      JacPDdissipationNth1phi = PDdissipationNth1phi;
-      
-      JacPDdissipationNth1trK = PDdissipationNth1trK;
-      
-      JacPDdissipationNth1Xt1 = PDdissipationNth1Xt1;
-      
-      JacPDdissipationNth1Xt2 = PDdissipationNth1Xt2;
-      
-      JacPDdissipationNth1Xt3 = PDdissipationNth1Xt3;
-      
-      JacPDdissipationNth2A = PDdissipationNth2A;
-      
-      JacPDdissipationNth2alpha = PDdissipationNth2alpha;
-      
-      JacPDdissipationNth2At11 = PDdissipationNth2At11;
-      
-      JacPDdissipationNth2At12 = PDdissipationNth2At12;
-      
-      JacPDdissipationNth2At13 = PDdissipationNth2At13;
-      
-      JacPDdissipationNth2At22 = PDdissipationNth2At22;
-      
-      JacPDdissipationNth2At23 = PDdissipationNth2At23;
-      
-      JacPDdissipationNth2At33 = PDdissipationNth2At33;
-      
-      JacPDdissipationNth2B1 = PDdissipationNth2B1;
-      
-      JacPDdissipationNth2B2 = PDdissipationNth2B2;
-      
-      JacPDdissipationNth2B3 = PDdissipationNth2B3;
-      
-      JacPDdissipationNth2beta1 = PDdissipationNth2beta1;
-      
-      JacPDdissipationNth2beta2 = PDdissipationNth2beta2;
-      
-      JacPDdissipationNth2beta3 = PDdissipationNth2beta3;
-      
-      JacPDdissipationNth2gt11 = PDdissipationNth2gt11;
-      
-      JacPDdissipationNth2gt12 = PDdissipationNth2gt12;
-      
-      JacPDdissipationNth2gt13 = PDdissipationNth2gt13;
-      
-      JacPDdissipationNth2gt22 = PDdissipationNth2gt22;
-      
-      JacPDdissipationNth2gt23 = PDdissipationNth2gt23;
-      
-      JacPDdissipationNth2gt33 = PDdissipationNth2gt33;
-      
-      JacPDdissipationNth2phi = PDdissipationNth2phi;
-      
-      JacPDdissipationNth2trK = PDdissipationNth2trK;
-      
-      JacPDdissipationNth2Xt1 = PDdissipationNth2Xt1;
-      
-      JacPDdissipationNth2Xt2 = PDdissipationNth2Xt2;
-      
-      JacPDdissipationNth2Xt3 = PDdissipationNth2Xt3;
-      
-      JacPDdissipationNth3A = PDdissipationNth3A;
-      
-      JacPDdissipationNth3alpha = PDdissipationNth3alpha;
-      
-      JacPDdissipationNth3At11 = PDdissipationNth3At11;
-      
-      JacPDdissipationNth3At12 = PDdissipationNth3At12;
-      
-      JacPDdissipationNth3At13 = PDdissipationNth3At13;
-      
-      JacPDdissipationNth3At22 = PDdissipationNth3At22;
-      
-      JacPDdissipationNth3At23 = PDdissipationNth3At23;
-      
-      JacPDdissipationNth3At33 = PDdissipationNth3At33;
-      
-      JacPDdissipationNth3B1 = PDdissipationNth3B1;
-      
-      JacPDdissipationNth3B2 = PDdissipationNth3B2;
-      
-      JacPDdissipationNth3B3 = PDdissipationNth3B3;
-      
-      JacPDdissipationNth3beta1 = PDdissipationNth3beta1;
-      
-      JacPDdissipationNth3beta2 = PDdissipationNth3beta2;
-      
-      JacPDdissipationNth3beta3 = PDdissipationNth3beta3;
-      
-      JacPDdissipationNth3gt11 = PDdissipationNth3gt11;
-      
-      JacPDdissipationNth3gt12 = PDdissipationNth3gt12;
-      
-      JacPDdissipationNth3gt13 = PDdissipationNth3gt13;
-      
-      JacPDdissipationNth3gt22 = PDdissipationNth3gt22;
-      
-      JacPDdissipationNth3gt23 = PDdissipationNth3gt23;
-      
-      JacPDdissipationNth3gt33 = PDdissipationNth3gt33;
-      
-      JacPDdissipationNth3phi = PDdissipationNth3phi;
-      
-      JacPDdissipationNth3trK = PDdissipationNth3trK;
-      
-      JacPDdissipationNth3Xt1 = PDdissipationNth3Xt1;
-      
-      JacPDdissipationNth3Xt2 = PDdissipationNth3Xt2;
-      
-      JacPDdissipationNth3Xt3 = PDdissipationNth3Xt3;
-    }
-    
-    CCTK_REAL_VEC epsdiss1 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss2 = ToReal(EpsDiss);
-    
-    CCTK_REAL_VEC epsdiss3 = ToReal(EpsDiss);
-    
-    phirhsL = 
-      kadd(phirhsL,kmadd(epsdiss1,JacPDdissipationNth1phi,kmadd(epsdiss2,JacPDdissipationNth2phi,kmul(epsdiss3,JacPDdissipationNth3phi))));
-    
-    gt11rhsL = 
-      kadd(gt11rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt11,kmadd(epsdiss2,JacPDdissipationNth2gt11,kmul(epsdiss3,JacPDdissipationNth3gt11))));
-    
-    gt12rhsL = 
-      kadd(gt12rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt12,kmadd(epsdiss2,JacPDdissipationNth2gt12,kmul(epsdiss3,JacPDdissipationNth3gt12))));
-    
-    gt13rhsL = 
-      kadd(gt13rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt13,kmadd(epsdiss2,JacPDdissipationNth2gt13,kmul(epsdiss3,JacPDdissipationNth3gt13))));
-    
-    gt22rhsL = 
-      kadd(gt22rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt22,kmadd(epsdiss2,JacPDdissipationNth2gt22,kmul(epsdiss3,JacPDdissipationNth3gt22))));
-    
-    gt23rhsL = 
-      kadd(gt23rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt23,kmadd(epsdiss2,JacPDdissipationNth2gt23,kmul(epsdiss3,JacPDdissipationNth3gt23))));
-    
-    gt33rhsL = 
-      kadd(gt33rhsL,kmadd(epsdiss1,JacPDdissipationNth1gt33,kmadd(epsdiss2,JacPDdissipationNth2gt33,kmul(epsdiss3,JacPDdissipationNth3gt33))));
-    
-    Xt1rhsL = 
-      kadd(Xt1rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt1,kmadd(epsdiss2,JacPDdissipationNth2Xt1,kmul(epsdiss3,JacPDdissipationNth3Xt1))));
-    
-    Xt2rhsL = 
-      kadd(Xt2rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt2,kmadd(epsdiss2,JacPDdissipationNth2Xt2,kmul(epsdiss3,JacPDdissipationNth3Xt2))));
-    
-    Xt3rhsL = 
-      kadd(Xt3rhsL,kmadd(epsdiss1,JacPDdissipationNth1Xt3,kmadd(epsdiss2,JacPDdissipationNth2Xt3,kmul(epsdiss3,JacPDdissipationNth3Xt3))));
-    
-    trKrhsL = 
-      kadd(trKrhsL,kmadd(epsdiss1,JacPDdissipationNth1trK,kmadd(epsdiss2,JacPDdissipationNth2trK,kmul(epsdiss3,JacPDdissipationNth3trK))));
-    
-    At11rhsL = 
-      kadd(At11rhsL,kmadd(epsdiss1,JacPDdissipationNth1At11,kmadd(epsdiss2,JacPDdissipationNth2At11,kmul(epsdiss3,JacPDdissipationNth3At11))));
-    
-    At12rhsL = 
-      kadd(At12rhsL,kmadd(epsdiss1,JacPDdissipationNth1At12,kmadd(epsdiss2,JacPDdissipationNth2At12,kmul(epsdiss3,JacPDdissipationNth3At12))));
-    
-    At13rhsL = 
-      kadd(At13rhsL,kmadd(epsdiss1,JacPDdissipationNth1At13,kmadd(epsdiss2,JacPDdissipationNth2At13,kmul(epsdiss3,JacPDdissipationNth3At13))));
-    
-    At22rhsL = 
-      kadd(At22rhsL,kmadd(epsdiss1,JacPDdissipationNth1At22,kmadd(epsdiss2,JacPDdissipationNth2At22,kmul(epsdiss3,JacPDdissipationNth3At22))));
-    
-    At23rhsL = 
-      kadd(At23rhsL,kmadd(epsdiss1,JacPDdissipationNth1At23,kmadd(epsdiss2,JacPDdissipationNth2At23,kmul(epsdiss3,JacPDdissipationNth3At23))));
-    
-    At33rhsL = 
-      kadd(At33rhsL,kmadd(epsdiss1,JacPDdissipationNth1At33,kmadd(epsdiss2,JacPDdissipationNth2At33,kmul(epsdiss3,JacPDdissipationNth3At33))));
-    
-    alpharhsL = 
-      kadd(alpharhsL,kmadd(epsdiss1,JacPDdissipationNth1alpha,kmadd(epsdiss2,JacPDdissipationNth2alpha,kmul(epsdiss3,JacPDdissipationNth3alpha))));
-    
-    ArhsL = 
-      kadd(ArhsL,kmadd(epsdiss1,JacPDdissipationNth1A,kmadd(epsdiss2,JacPDdissipationNth2A,kmul(epsdiss3,JacPDdissipationNth3A))));
-    
-    beta1rhsL = 
-      kadd(beta1rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta1,kmadd(epsdiss2,JacPDdissipationNth2beta1,kmul(epsdiss3,JacPDdissipationNth3beta1))));
-    
-    beta2rhsL = 
-      kadd(beta2rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta2,kmadd(epsdiss2,JacPDdissipationNth2beta2,kmul(epsdiss3,JacPDdissipationNth3beta2))));
-    
-    beta3rhsL = 
-      kadd(beta3rhsL,kmadd(epsdiss1,JacPDdissipationNth1beta3,kmadd(epsdiss2,JacPDdissipationNth2beta3,kmul(epsdiss3,JacPDdissipationNth3beta3))));
-    
-    B1rhsL = 
-      kadd(B1rhsL,kmadd(epsdiss1,JacPDdissipationNth1B1,kmadd(epsdiss2,JacPDdissipationNth2B1,kmul(epsdiss3,JacPDdissipationNth3B1))));
-    
-    B2rhsL = 
-      kadd(B2rhsL,kmadd(epsdiss1,JacPDdissipationNth1B2,kmadd(epsdiss2,JacPDdissipationNth2B2,kmul(epsdiss3,JacPDdissipationNth3B2))));
-    
-    B3rhsL = 
-      kadd(B3rhsL,kmadd(epsdiss1,JacPDdissipationNth1B3,kmadd(epsdiss2,JacPDdissipationNth2B3,kmul(epsdiss3,JacPDdissipationNth3B3))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_Dissipation);
-}
-
-extern "C" void ML_BSSN_UPW_Dissipation(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_Dissipation_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_Dissipation_calc_every != ML_BSSN_UPW_Dissipation_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_curvrhs",
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtlapserhs",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_dtshiftrhs",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_Gammarhs",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_lapserhs",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_log_confacrhs",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_metricrhs",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_shiftrhs",
-    "ML_BSSN_UPW::ML_trace_curv",
-    "ML_BSSN_UPW::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_Dissipation", 18, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_Dissipation", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_Dissipation", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_Dissipation", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_Dissipation", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_UPW_Dissipation_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_Dissipation_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_InitGamma.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_InitGamma.cc
deleted file mode 100644
index eb95c47..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_InitGamma.cc
+++ /dev/null
@@ -1,295 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_UPW_InitGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_InitGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_InitGamma);
-}
-
-extern "C" void ML_BSSN_UPW_InitGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_InitGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_InitGamma_calc_every != ML_BSSN_UPW_InitGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_Gamma"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_InitGamma", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_UPW_InitGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_InitGamma_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_InitRHS.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_InitRHS.cc
deleted file mode 100644
index dc02a4a..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_InitRHS.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_UPW_InitRHS_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_InitRHS,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_InitRHS);
-}
-
-extern "C" void ML_BSSN_UPW_InitRHS(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_InitRHS_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_InitRHS_calc_every != ML_BSSN_UPW_InitRHS_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_curvrhs",
-    "ML_BSSN_UPW::ML_dtlapserhs",
-    "ML_BSSN_UPW::ML_dtshiftrhs",
-    "ML_BSSN_UPW::ML_Gammarhs",
-    "ML_BSSN_UPW::ML_lapserhs",
-    "ML_BSSN_UPW::ML_log_confacrhs",
-    "ML_BSSN_UPW::ML_metricrhs",
-    "ML_BSSN_UPW::ML_shiftrhs",
-    "ML_BSSN_UPW::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_InitRHS", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_UPW_InitRHS_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_InitRHS_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_Minkowski.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_Minkowski.cc
deleted file mode 100644
index 2d8ef13..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_Minkowski.cc
+++ /dev/null
@@ -1,355 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_UPW_Minkowski_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_Minkowski,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_Minkowski);
-}
-
-extern "C" void ML_BSSN_UPW_Minkowski(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_Minkowski_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_Minkowski_calc_every != ML_BSSN_UPW_Minkowski_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_Minkowski", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_UPW_Minkowski_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_Minkowski_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS1.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS1.cc
deleted file mode 100644
index dd8b70e..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS1.cc
+++ /dev/null
@@ -1,1467 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_RHS1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_UPW_RHS1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_RHS1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth11beta1;
-    CCTK_REAL_VEC PDstandardNth22beta1;
-    CCTK_REAL_VEC PDstandardNth33beta1;
-    CCTK_REAL_VEC PDstandardNth12beta1;
-    CCTK_REAL_VEC PDstandardNth13beta1;
-    CCTK_REAL_VEC PDstandardNth23beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth11beta2;
-    CCTK_REAL_VEC PDstandardNth22beta2;
-    CCTK_REAL_VEC PDstandardNth33beta2;
-    CCTK_REAL_VEC PDstandardNth12beta2;
-    CCTK_REAL_VEC PDstandardNth13beta2;
-    CCTK_REAL_VEC PDstandardNth23beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth11beta3;
-    CCTK_REAL_VEC PDstandardNth22beta3;
-    CCTK_REAL_VEC PDstandardNth33beta3;
-    CCTK_REAL_VEC PDstandardNth12beta3;
-    CCTK_REAL_VEC PDstandardNth13beta3;
-    CCTK_REAL_VEC PDstandardNth23beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder211(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder222(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder233(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder212(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder213(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder223(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder211(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder222(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder233(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder212(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder213(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder223(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder211(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder222(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder233(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder212(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder213(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder223(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder411(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder422(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder433(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder412(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder413(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder423(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder411(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder422(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder433(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder412(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder413(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder423(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder411(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder422(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder433(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder412(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder413(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder423(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder611(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder622(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder633(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder612(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder613(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder623(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder611(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder622(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder633(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder612(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder613(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder623(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder611(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder622(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder633(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder612(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder613(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder623(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth11beta1 = PDstandardNthfdOrder811(&beta1[index]);
-        PDstandardNth22beta1 = PDstandardNthfdOrder822(&beta1[index]);
-        PDstandardNth33beta1 = PDstandardNthfdOrder833(&beta1[index]);
-        PDstandardNth12beta1 = PDstandardNthfdOrder812(&beta1[index]);
-        PDstandardNth13beta1 = PDstandardNthfdOrder813(&beta1[index]);
-        PDstandardNth23beta1 = PDstandardNthfdOrder823(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth11beta2 = PDstandardNthfdOrder811(&beta2[index]);
-        PDstandardNth22beta2 = PDstandardNthfdOrder822(&beta2[index]);
-        PDstandardNth33beta2 = PDstandardNthfdOrder833(&beta2[index]);
-        PDstandardNth12beta2 = PDstandardNthfdOrder812(&beta2[index]);
-        PDstandardNth13beta2 = PDstandardNthfdOrder813(&beta2[index]);
-        PDstandardNth23beta2 = PDstandardNthfdOrder823(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth11beta3 = PDstandardNthfdOrder811(&beta3[index]);
-        PDstandardNth22beta3 = PDstandardNthfdOrder822(&beta3[index]);
-        PDstandardNth33beta3 = PDstandardNthfdOrder833(&beta3[index]);
-        PDstandardNth12beta3 = PDstandardNthfdOrder812(&beta3[index]);
-        PDstandardNth13beta3 = PDstandardNthfdOrder813(&beta3[index]);
-        PDstandardNth23beta3 = PDstandardNthfdOrder823(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11beta1;
-    CCTK_REAL_VEC JacPDstandardNth11beta2;
-    CCTK_REAL_VEC JacPDstandardNth11beta3;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12beta1;
-    CCTK_REAL_VEC JacPDstandardNth12beta2;
-    CCTK_REAL_VEC JacPDstandardNth12beta3;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13beta1;
-    CCTK_REAL_VEC JacPDstandardNth13beta2;
-    CCTK_REAL_VEC JacPDstandardNth13beta3;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth21alpha;
-    CCTK_REAL_VEC JacPDstandardNth21beta1;
-    CCTK_REAL_VEC JacPDstandardNth21beta2;
-    CCTK_REAL_VEC JacPDstandardNth21beta3;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22beta1;
-    CCTK_REAL_VEC JacPDstandardNth22beta2;
-    CCTK_REAL_VEC JacPDstandardNth22beta3;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23beta1;
-    CCTK_REAL_VEC JacPDstandardNth23beta2;
-    CCTK_REAL_VEC JacPDstandardNth23beta3;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth31alpha;
-    CCTK_REAL_VEC JacPDstandardNth31beta1;
-    CCTK_REAL_VEC JacPDstandardNth31beta2;
-    CCTK_REAL_VEC JacPDstandardNth31beta3;
-    CCTK_REAL_VEC JacPDstandardNth32alpha;
-    CCTK_REAL_VEC JacPDstandardNth32beta1;
-    CCTK_REAL_VEC JacPDstandardNth32beta2;
-    CCTK_REAL_VEC JacPDstandardNth32beta3;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33beta1;
-    CCTK_REAL_VEC JacPDstandardNth33beta2;
-    CCTK_REAL_VEC JacPDstandardNth33beta3;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta1 = 
-        kmadd(dJ111L,PDstandardNth1beta1,kmadd(dJ211L,PDstandardNth2beta1,kmadd(dJ311L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J11L),kmadd(PDstandardNth22beta1,SQR(J21L),kmadd(PDstandardNth33beta1,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1)),kmul(J21L,kmul(J31L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta2 = 
-        kmadd(dJ111L,PDstandardNth1beta2,kmadd(dJ211L,PDstandardNth2beta2,kmadd(dJ311L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J11L),kmadd(PDstandardNth22beta2,SQR(J21L),kmadd(PDstandardNth33beta2,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2)),kmul(J21L,kmul(J31L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth11beta3 = 
-        kmadd(dJ111L,PDstandardNth1beta3,kmadd(dJ211L,PDstandardNth2beta3,kmadd(dJ311L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J11L),kmadd(PDstandardNth22beta3,SQR(J21L),kmadd(PDstandardNth33beta3,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3)),kmul(J21L,kmul(J31L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta1 = 
-        kmadd(dJ122L,PDstandardNth1beta1,kmadd(dJ222L,PDstandardNth2beta1,kmadd(dJ322L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J12L),kmadd(PDstandardNth22beta1,SQR(J22L),kmadd(PDstandardNth33beta1,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmul(J22L,kmul(J32L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta2 = 
-        kmadd(dJ122L,PDstandardNth1beta2,kmadd(dJ222L,PDstandardNth2beta2,kmadd(dJ322L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J12L),kmadd(PDstandardNth22beta2,SQR(J22L),kmadd(PDstandardNth33beta2,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmul(J22L,kmul(J32L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth22beta3 = 
-        kmadd(dJ122L,PDstandardNth1beta3,kmadd(dJ222L,PDstandardNth2beta3,kmadd(dJ322L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J12L),kmadd(PDstandardNth22beta3,SQR(J22L),kmadd(PDstandardNth33beta3,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmul(J22L,kmul(J32L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta1 = 
-        kmadd(dJ133L,PDstandardNth1beta1,kmadd(dJ233L,PDstandardNth2beta1,kmadd(dJ333L,PDstandardNth3beta1,kmadd(PDstandardNth11beta1,SQR(J13L),kmadd(PDstandardNth22beta1,SQR(J23L),kmadd(PDstandardNth33beta1,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmul(J23L,kmul(J33L,PDstandardNth23beta1))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta2 = 
-        kmadd(dJ133L,PDstandardNth1beta2,kmadd(dJ233L,PDstandardNth2beta2,kmadd(dJ333L,PDstandardNth3beta2,kmadd(PDstandardNth11beta2,SQR(J13L),kmadd(PDstandardNth22beta2,SQR(J23L),kmadd(PDstandardNth33beta2,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmul(J23L,kmul(J33L,PDstandardNth23beta2))),ToReal(2))))))));
-      
-      JacPDstandardNth33beta3 = 
-        kmadd(dJ133L,PDstandardNth1beta3,kmadd(dJ233L,PDstandardNth2beta3,kmadd(dJ333L,PDstandardNth3beta3,kmadd(PDstandardNth11beta3,SQR(J13L),kmadd(PDstandardNth22beta3,SQR(J23L),kmadd(PDstandardNth33beta3,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmul(J23L,kmul(J33L,PDstandardNth23beta3))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth12beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth12beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth13beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth13beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth21alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth21beta1 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1)),kmadd(dJ112L,PDstandardNth1beta1,kmadd(J22L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ212L,PDstandardNth2beta1,kmadd(J32L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ312L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth21beta2 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2)),kmadd(dJ112L,PDstandardNth1beta2,kmadd(J22L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ212L,PDstandardNth2beta2,kmadd(J32L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ312L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth21beta3 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3)),kmadd(dJ112L,PDstandardNth1beta3,kmadd(J22L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ212L,PDstandardNth2beta3,kmadd(J32L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ312L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth23beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth23beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth31alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth31beta1 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta1,kmadd(J21L,PDstandardNth12beta1,kmul(J31L,PDstandardNth13beta1))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ113L,PDstandardNth1beta1,kmadd(J23L,kmadd(J21L,PDstandardNth22beta1,kmul(J31L,PDstandardNth23beta1)),kmadd(dJ213L,PDstandardNth2beta1,kmadd(J33L,kmadd(J21L,PDstandardNth23beta1,kmul(J31L,PDstandardNth33beta1)),kmul(dJ313L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth31beta2 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta2,kmadd(J21L,PDstandardNth12beta2,kmul(J31L,PDstandardNth13beta2))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ113L,PDstandardNth1beta2,kmadd(J23L,kmadd(J21L,PDstandardNth22beta2,kmul(J31L,PDstandardNth23beta2)),kmadd(dJ213L,PDstandardNth2beta2,kmadd(J33L,kmadd(J21L,PDstandardNth23beta2,kmul(J31L,PDstandardNth33beta2)),kmul(dJ313L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth31beta3 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11beta3,kmadd(J21L,PDstandardNth12beta3,kmul(J31L,PDstandardNth13beta3))),kmadd(J11L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ113L,PDstandardNth1beta3,kmadd(J23L,kmadd(J21L,PDstandardNth22beta3,kmul(J31L,PDstandardNth23beta3)),kmadd(dJ213L,PDstandardNth2beta3,kmadd(J33L,kmadd(J21L,PDstandardNth23beta3,kmul(J31L,PDstandardNth33beta3)),kmul(dJ313L,PDstandardNth3beta3)))))));
-      
-      JacPDstandardNth32alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth32beta1 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta1,kmadd(J22L,PDstandardNth12beta1,kmul(J32L,PDstandardNth13beta1))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta1,kmul(J33L,PDstandardNth13beta1)),kmadd(dJ123L,PDstandardNth1beta1,kmadd(J23L,kmadd(J22L,PDstandardNth22beta1,kmul(J32L,PDstandardNth23beta1)),kmadd(dJ223L,PDstandardNth2beta1,kmadd(J33L,kmadd(J22L,PDstandardNth23beta1,kmul(J32L,PDstandardNth33beta1)),kmul(dJ323L,PDstandardNth3beta1)))))));
-      
-      JacPDstandardNth32beta2 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta2,kmadd(J22L,PDstandardNth12beta2,kmul(J32L,PDstandardNth13beta2))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta2,kmul(J33L,PDstandardNth13beta2)),kmadd(dJ123L,PDstandardNth1beta2,kmadd(J23L,kmadd(J22L,PDstandardNth22beta2,kmul(J32L,PDstandardNth23beta2)),kmadd(dJ223L,PDstandardNth2beta2,kmadd(J33L,kmadd(J22L,PDstandardNth23beta2,kmul(J32L,PDstandardNth33beta2)),kmul(dJ323L,PDstandardNth3beta2)))))));
-      
-      JacPDstandardNth32beta3 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11beta3,kmadd(J22L,PDstandardNth12beta3,kmul(J32L,PDstandardNth13beta3))),kmadd(J12L,kmadd(J23L,PDstandardNth12beta3,kmul(J33L,PDstandardNth13beta3)),kmadd(dJ123L,PDstandardNth1beta3,kmadd(J23L,kmadd(J22L,PDstandardNth22beta3,kmul(J32L,PDstandardNth23beta3)),kmadd(dJ223L,PDstandardNth2beta3,kmadd(J33L,kmadd(J22L,PDstandardNth23beta3,kmul(J32L,PDstandardNth33beta3)),kmul(dJ323L,PDstandardNth3beta3)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11beta1 = PDstandardNth11beta1;
-      
-      JacPDstandardNth11beta2 = PDstandardNth11beta2;
-      
-      JacPDstandardNth11beta3 = PDstandardNth11beta3;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22beta1 = PDstandardNth22beta1;
-      
-      JacPDstandardNth22beta2 = PDstandardNth22beta2;
-      
-      JacPDstandardNth22beta3 = PDstandardNth22beta3;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33beta1 = PDstandardNth33beta1;
-      
-      JacPDstandardNth33beta2 = PDstandardNth33beta2;
-      
-      JacPDstandardNth33beta3 = PDstandardNth33beta3;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth12beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth12beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth13beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth13beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth21alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth21beta1 = PDstandardNth12beta1;
-      
-      JacPDstandardNth21beta2 = PDstandardNth12beta2;
-      
-      JacPDstandardNth21beta3 = PDstandardNth12beta3;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth23beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth23beta3 = PDstandardNth23beta3;
-      
-      JacPDstandardNth31alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth31beta1 = PDstandardNth13beta1;
-      
-      JacPDstandardNth31beta2 = PDstandardNth13beta2;
-      
-      JacPDstandardNth31beta3 = PDstandardNth13beta3;
-      
-      JacPDstandardNth32alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth32beta1 = PDstandardNth23beta1;
-      
-      JacPDstandardNth32beta2 = PDstandardNth23beta2;
-      
-      JacPDstandardNth32beta3 = PDstandardNth23beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC Atu11 = 
-      kmadd(Atm11,gtu11,kmadd(Atm12,gtu12,kmul(Atm13,gtu13)));
-    
-    CCTK_REAL_VEC Atu12 = 
-      kmadd(Atm11,gtu12,kmadd(Atm12,gtu22,kmul(Atm13,gtu23)));
-    
-    CCTK_REAL_VEC Atu13 = 
-      kmadd(Atm11,gtu13,kmadd(Atm12,gtu23,kmul(Atm13,gtu33)));
-    
-    CCTK_REAL_VEC Atu22 = 
-      kmadd(Atm21,gtu12,kmadd(Atm22,gtu22,kmul(Atm23,gtu23)));
-    
-    CCTK_REAL_VEC Atu23 = 
-      kmadd(Atm21,gtu13,kmadd(Atm22,gtu23,kmul(Atm23,gtu33)));
-    
-    CCTK_REAL_VEC Atu33 = 
-      kmadd(Atm31,gtu13,kmadd(Atm32,gtu23,kmul(Atm33,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC phirhsL = kneg(kmul(IfThen(conformalMethod == 
-      1,kmul(phiL,ToReal(0.333333333333333333333333333333)),ToReal(-0.166666666666666666666666666667)),kadd(JacPDstandardNth1beta1,kadd(JacPDstandardNth2beta2,knmsub(alphaL,trKL,JacPDstandardNth3beta3)))));
-    
-    CCTK_REAL_VEC gt11rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth1beta2,kmul(gt13L,JacPDstandardNth1beta3)),ToReal(-3),kmadd(gt11L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At11L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt12rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At12L,ToReal(-6)),kmadd(gt12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(kmadd(gt22L,JacPDstandardNth1beta2,kmadd(gt23L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth2beta1,kmul(gt13L,JacPDstandardNth2beta3)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt13rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At13L,ToReal(-6)),kmadd(gt13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt23L,JacPDstandardNth1beta2,kmadd(gt33L,JacPDstandardNth1beta3,kmadd(gt11L,JacPDstandardNth3beta1,kmul(gt12L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt22rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt12L,JacPDstandardNth2beta1,kmul(gt23L,JacPDstandardNth2beta3)),ToReal(-3),kmadd(gt22L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmul(alphaL,kmul(At22L,ToReal(3))))));
-    
-    CCTK_REAL_VEC gt23rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(alphaL,kmul(At23L,ToReal(-6)),kmadd(gt23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmul(kmadd(gt13L,JacPDstandardNth2beta1,kmadd(gt33L,JacPDstandardNth2beta3,kmadd(gt12L,JacPDstandardNth3beta1,kmul(gt22L,JacPDstandardNth3beta2)))),ToReal(3)))));
-    
-    CCTK_REAL_VEC gt33rhsL = 
-      kmul(ToReal(-0.666666666666666666666666666667),kmadd(kmadd(gt13L,JacPDstandardNth3beta1,kmul(gt23L,JacPDstandardNth3beta2)),ToReal(-3),kmadd(gt33L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmul(alphaL,kmul(At33L,ToReal(3))))));
-    
-    CCTK_REAL_VEC dotXt1 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu11,JacPDstandardNth1alpha,kmadd(Atu12,JacPDstandardNth2alpha,kmul(Atu13,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth2beta1,Xtn2,kmul(JacPDstandardNth3beta1,Xtn3)),ToReal(-3),kmadd(Xtn1,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth1beta1),kmadd(kmadd(gtu12,JacPDstandardNth12beta1,kmadd(gtu13,JacPDstandardNth13beta1,kmadd(gtu22,JacPDstandardNth22beta1,kmadd(gtu23,kadd(JacPDstandardNth23beta1,JacPDstandardNth32beta1),kmul(gtu33,JacPDstandardNth33beta1))))),ToReal(3),kmadd(gtu11,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth11beta1,ToReal(4),JacPDstandardNth13beta3)),kmadd(gtu12,kadd(JacPDstandardNth22beta2,kmadd(JacPDstandardNth21beta1,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu13,kadd(JacPDstandardNth32beta2,kmadd(JacPDstandardNth31beta1,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth2beta2,Xtn1,kmul(alphaL,kmadd(kmadd(gtu11,JacPDstandardNth1trK,kmadd(gtu12,JacPDstandardNth2trK,kmul(gtu13,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu23,Gt123,kmul(Atu12,kmadd(cdphi2,ToReal(3),Gt112))),ToReal(6),kmadd(ToReal(3),kmadd(Atu22,Gt122,kmadd(Atu33,Gt133,kmul(Atu11,kmadd(cdphi1,ToReal(6),Gt111)))),kmadd(Atu13,kmadd(Gt113,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu11,S1,kmadd(gtu12,S2,kmul(gtu13,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt2 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu12,JacPDstandardNth1alpha,kmadd(Atu22,JacPDstandardNth2alpha,kmul(Atu23,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta2,Xtn1,kmul(JacPDstandardNth3beta2,Xtn3)),ToReal(-3),kmadd(Xtn2,kmsub(JacPDstandardNth3beta3,ToReal(2),JacPDstandardNth2beta2),kmadd(kmadd(gtu11,JacPDstandardNth11beta2,kmadd(gtu23,JacPDstandardNth23beta2,kmadd(gtu13,kadd(JacPDstandardNth13beta2,JacPDstandardNth31beta2),kmul(gtu33,JacPDstandardNth33beta2)))),ToReal(3),kmadd(gtu12,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth13beta3,kmadd(JacPDstandardNth21beta2,ToReal(3),kmul(JacPDstandardNth12beta2,ToReal(4))))),kmadd(gtu22,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth22beta2,ToReal(4),JacPDstandardNth23beta3)),kmadd(gtu23,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth32beta2,ToReal(4),JacPDstandardNth33beta3)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn2,kmul(alphaL,kmadd(kmadd(gtu12,JacPDstandardNth1trK,kmadd(gtu22,JacPDstandardNth2trK,kmul(gtu23,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu13,Gt213,kmul(Atu12,kmadd(cdphi1,ToReal(3),Gt212))),ToReal(6),kmadd(ToReal(3),kmadd(Atu11,Gt211,kmadd(Atu33,Gt233,kmul(Atu22,kmadd(cdphi2,ToReal(6),Gt222)))),kmadd(Atu23,kmadd(Gt223,ToReal(6),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu12,S1,kmadd(gtu22,S2,kmul(gtu23,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC dotXt3 = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atu13,JacPDstandardNth1alpha,kmadd(Atu23,JacPDstandardNth2alpha,kmul(Atu33,JacPDstandardNth3alpha))),ToReal(-6),kmadd(kmadd(JacPDstandardNth1beta3,Xtn1,kmul(JacPDstandardNth2beta3,Xtn2)),ToReal(-3),kmadd(Xtn3,kmsub(JacPDstandardNth2beta2,ToReal(2),JacPDstandardNth3beta3),kmadd(kmadd(gtu11,JacPDstandardNth11beta3,kmadd(gtu12,kadd(JacPDstandardNth12beta3,JacPDstandardNth21beta3),kmadd(gtu22,JacPDstandardNth22beta3,kmul(gtu23,JacPDstandardNth32beta3)))),ToReal(3),kmadd(gtu13,kadd(JacPDstandardNth11beta1,kadd(JacPDstandardNth12beta2,kmadd(JacPDstandardNth31beta3,ToReal(3),kmul(JacPDstandardNth13beta3,ToReal(4))))),kmadd(gtu23,kadd(JacPDstandardNth21beta1,kmadd(JacPDstandardNth23beta3,ToReal(4),JacPDstandardNth22beta2)),kmadd(gtu33,kadd(JacPDstandardNth31beta1,kmadd(JacPDstandardNth33beta3,ToReal(4),JacPDstandardNth32beta2)),kmul(ToReal(2),kmadd(JacPDstandardNth1beta1,Xtn3,kmul(alphaL,kmadd(kmadd(gtu13,JacPDstandardNth1trK,kmadd(gtu23,JacPDstandardNth2trK,kmul(gtu33,JacPDstandardNth3trK))),ToReal(-2),kmadd(kmadd(Atu11,Gt311,kmul(Atu22,Gt322)),ToReal(3),kmadd(kmadd(Atu12,Gt312,kmadd(Atu13,kmadd(cdphi1,ToReal(3),Gt313),kmul(Atu23,kmadd(cdphi2,ToReal(3),Gt323)))),ToReal(6),kmadd(Atu33,kmadd(Gt333,ToReal(3),kmul(cdphi3,ToReal(18))),kmul(kmadd(gtu13,S1,kmadd(gtu23,S2,kmul(gtu33,S3))),kmul(ToReal(-24),ToReal(Pi))))))))))))))))));
-    
-    CCTK_REAL_VEC Xt1rhsL = dotXt1;
-    
-    CCTK_REAL_VEC Xt2rhsL = dotXt2;
-    
-    CCTK_REAL_VEC Xt3rhsL = dotXt3;
-    
-    CCTK_REAL_VEC dottrK = 
-      kmsub(alphaL,kadd(SQR(Atm11),kadd(SQR(Atm22),kadd(SQR(Atm33),kmadd(SQR(trKL),ToReal(0.333333333333333333333333333333),kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(2),kmul(kadd(rho,trS),kmul(ToReal(4),ToReal(Pi)))))))),kmul(em4phi,knmsub(JacPDstandardNth1alpha,Xtn1,knmsub(JacPDstandardNth2alpha,Xtn2,knmsub(JacPDstandardNth3alpha,Xtn3,kmadd(gtu11,kmadd(cdphi1,kmul(JacPDstandardNth1alpha,ToReal(2)),JacPDstandardNth11alpha),kmadd(gtu12,kadd(JacPDstandardNth12alpha,kadd(JacPDstandardNth21alpha,kmadd(cdphi2,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth2alpha,ToReal(2)))))),kmadd(gtu22,kmadd(cdphi2,kmul(JacPDstandardNth2alpha,ToReal(2)),JacPDstandardNth22alpha),kmadd(gtu13,kadd(JacPDstandardNth13alpha,kadd(JacPDstandardNth31alpha,kmadd(cdphi3,kmul(JacPDstandardNth1alpha,ToReal(2)),kmul(cdphi1,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmadd(gtu23,kadd(JacPDstandardNth23alpha,kadd(JacPDstandardNth32alpha,kmadd(cdphi3,kmul(JacPDstandardNth2alpha,ToReal(2)),kmul(cdphi2,kmul(JacPDstandardNth3alpha,ToReal(2)))))),kmul(gtu33,kmadd(cdphi3,kmul(JacPDstandardNth3alpha,ToReal(2)),JacPDstandardNth33alpha))))))))))));
-    
-    CCTK_REAL_VEC trKrhsL = dottrK;
-    
-    CCTK_REAL_VEC alpharhsL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(AL,ToReal(LapseACoeff),kmul(kmadd(kadd(alphaL,ToReal(-1)),ToReal(AlphaDriver),trKL),ksub(ToReal(1),ToReal(LapseACoeff)))))));
-    
-    CCTK_REAL_VEC ArhsL = 
-      kmul(knmsub(AL,ToReal(AlphaDriver),dottrK),ToReal(LapseACoeff));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC beta1rhsL;
-    CCTK_REAL_VEC beta2rhsL;
-    CCTK_REAL_VEC beta3rhsL;
-    
-    if (harmonicShift)
-    {
-      beta1rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4)))))))))))))))));
-      
-      beta2rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4))))))))))))))))));
-      
-      beta3rhsL = 
-        kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4))))))))))))))))));
-    }
-    else
-    {
-      beta1rhsL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta2rhsL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      beta3rhsL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    CCTK_REAL_VEC B1rhsL = 
-      kmul(knmsub(B1L,kmul(eta,ToReal(BetaDriver)),dotXt1),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B2rhsL = 
-      kmul(knmsub(B2L,kmul(eta,ToReal(BetaDriver)),dotXt2),ToReal(ShiftBCoeff));
-    
-    CCTK_REAL_VEC B3rhsL = 
-      kmul(knmsub(B3L,kmul(eta,ToReal(BetaDriver)),dotXt3),ToReal(ShiftBCoeff));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_RHS1);
-}
-
-extern "C" void ML_BSSN_UPW_RHS1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_RHS1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_RHS1_calc_every != ML_BSSN_UPW_RHS1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtlapserhs",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_dtshiftrhs",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_Gammarhs",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_lapserhs",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_log_confacrhs",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_metricrhs",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_shiftrhs",
-    "ML_BSSN_UPW::ML_trace_curv",
-    "ML_BSSN_UPW::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_RHS1", 19, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_RHS1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_RHS1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_RHS1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_RHS1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_UPW_RHS1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_RHS1_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS2.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS2.cc
deleted file mode 100644
index 50107ad..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS2.cc
+++ /dev/null
@@ -1,1869 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_RHS2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_UPW_RHS2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_RHS2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDstandardNth11alpha;
-    CCTK_REAL_VEC PDstandardNth22alpha;
-    CCTK_REAL_VEC PDstandardNth33alpha;
-    CCTK_REAL_VEC PDstandardNth12alpha;
-    CCTK_REAL_VEC PDstandardNth13alpha;
-    CCTK_REAL_VEC PDstandardNth23alpha;
-    CCTK_REAL_VEC PDstandardNth1beta1;
-    CCTK_REAL_VEC PDstandardNth2beta1;
-    CCTK_REAL_VEC PDstandardNth3beta1;
-    CCTK_REAL_VEC PDstandardNth1beta2;
-    CCTK_REAL_VEC PDstandardNth2beta2;
-    CCTK_REAL_VEC PDstandardNth3beta2;
-    CCTK_REAL_VEC PDstandardNth1beta3;
-    CCTK_REAL_VEC PDstandardNth2beta3;
-    CCTK_REAL_VEC PDstandardNth3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder211(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder222(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder233(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder212(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder213(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder223(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder21(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder22(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder23(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder21(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder22(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder23(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder21(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder22(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder411(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder422(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder433(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder412(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder413(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder423(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder41(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder42(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder43(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder41(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder42(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder43(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder41(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder42(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder611(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder622(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder633(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder612(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder613(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder623(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder61(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder62(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder63(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder61(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder62(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder63(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder61(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder62(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDstandardNth11alpha = PDstandardNthfdOrder811(&alpha[index]);
-        PDstandardNth22alpha = PDstandardNthfdOrder822(&alpha[index]);
-        PDstandardNth33alpha = PDstandardNthfdOrder833(&alpha[index]);
-        PDstandardNth12alpha = PDstandardNthfdOrder812(&alpha[index]);
-        PDstandardNth13alpha = PDstandardNthfdOrder813(&alpha[index]);
-        PDstandardNth23alpha = PDstandardNthfdOrder823(&alpha[index]);
-        PDstandardNth1beta1 = PDstandardNthfdOrder81(&beta1[index]);
-        PDstandardNth2beta1 = PDstandardNthfdOrder82(&beta1[index]);
-        PDstandardNth3beta1 = PDstandardNthfdOrder83(&beta1[index]);
-        PDstandardNth1beta2 = PDstandardNthfdOrder81(&beta2[index]);
-        PDstandardNth2beta2 = PDstandardNthfdOrder82(&beta2[index]);
-        PDstandardNth3beta2 = PDstandardNthfdOrder83(&beta2[index]);
-        PDstandardNth1beta3 = PDstandardNthfdOrder81(&beta3[index]);
-        PDstandardNth2beta3 = PDstandardNthfdOrder82(&beta3[index]);
-        PDstandardNth3beta3 = PDstandardNthfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth11alpha;
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12alpha;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13alpha;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1beta1;
-    CCTK_REAL_VEC JacPDstandardNth1beta2;
-    CCTK_REAL_VEC JacPDstandardNth1beta3;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22alpha;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23alpha;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2beta1;
-    CCTK_REAL_VEC JacPDstandardNth2beta2;
-    CCTK_REAL_VEC JacPDstandardNth2beta3;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33alpha;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3beta1;
-    CCTK_REAL_VEC JacPDstandardNth3beta2;
-    CCTK_REAL_VEC JacPDstandardNth3beta3;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1beta1 = 
-        kmadd(J11L,PDstandardNth1beta1,kmadd(J21L,PDstandardNth2beta1,kmul(J31L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth1beta2 = 
-        kmadd(J11L,PDstandardNth1beta2,kmadd(J21L,PDstandardNth2beta2,kmul(J31L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth1beta3 = 
-        kmadd(J11L,PDstandardNth1beta3,kmadd(J21L,PDstandardNth2beta3,kmul(J31L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2beta1 = 
-        kmadd(J12L,PDstandardNth1beta1,kmadd(J22L,PDstandardNth2beta1,kmul(J32L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth2beta2 = 
-        kmadd(J12L,PDstandardNth1beta2,kmadd(J22L,PDstandardNth2beta2,kmul(J32L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth2beta3 = 
-        kmadd(J12L,PDstandardNth1beta3,kmadd(J22L,PDstandardNth2beta3,kmul(J32L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3beta1 = 
-        kmadd(J13L,PDstandardNth1beta1,kmadd(J23L,PDstandardNth2beta1,kmul(J33L,PDstandardNth3beta1)));
-      
-      JacPDstandardNth3beta2 = 
-        kmadd(J13L,PDstandardNth1beta2,kmadd(J23L,PDstandardNth2beta2,kmul(J33L,PDstandardNth3beta2)));
-      
-      JacPDstandardNth3beta3 = 
-        kmadd(J13L,PDstandardNth1beta3,kmadd(J23L,PDstandardNth2beta3,kmul(J33L,PDstandardNth3beta3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11alpha = 
-        kmadd(dJ111L,PDstandardNth1alpha,kmadd(dJ211L,PDstandardNth2alpha,kmadd(dJ311L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J11L),kmadd(PDstandardNth22alpha,SQR(J21L),kmadd(PDstandardNth33alpha,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha)),kmul(J21L,kmul(J31L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22alpha = 
-        kmadd(dJ122L,PDstandardNth1alpha,kmadd(dJ222L,PDstandardNth2alpha,kmadd(dJ322L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J12L),kmadd(PDstandardNth22alpha,SQR(J22L),kmadd(PDstandardNth33alpha,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmul(J22L,kmul(J32L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33alpha = 
-        kmadd(dJ133L,PDstandardNth1alpha,kmadd(dJ233L,PDstandardNth2alpha,kmadd(dJ333L,PDstandardNth3alpha,kmadd(PDstandardNth11alpha,SQR(J13L),kmadd(PDstandardNth22alpha,SQR(J23L),kmadd(PDstandardNth33alpha,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmul(J23L,kmul(J33L,PDstandardNth23alpha))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12alpha = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha)),kmadd(dJ112L,PDstandardNth1alpha,kmadd(J22L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ212L,PDstandardNth2alpha,kmadd(J32L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ312L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13alpha = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11alpha,kmadd(J21L,PDstandardNth12alpha,kmul(J31L,PDstandardNth13alpha))),kmadd(J11L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ113L,PDstandardNth1alpha,kmadd(J23L,kmadd(J21L,PDstandardNth22alpha,kmul(J31L,PDstandardNth23alpha)),kmadd(dJ213L,PDstandardNth2alpha,kmadd(J33L,kmadd(J21L,PDstandardNth23alpha,kmul(J31L,PDstandardNth33alpha)),kmul(dJ313L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23alpha = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11alpha,kmadd(J22L,PDstandardNth12alpha,kmul(J32L,PDstandardNth13alpha))),kmadd(J12L,kmadd(J23L,PDstandardNth12alpha,kmul(J33L,PDstandardNth13alpha)),kmadd(dJ123L,PDstandardNth1alpha,kmadd(J23L,kmadd(J22L,PDstandardNth22alpha,kmul(J32L,PDstandardNth23alpha)),kmadd(dJ223L,PDstandardNth2alpha,kmadd(J33L,kmadd(J22L,PDstandardNth23alpha,kmul(J32L,PDstandardNth33alpha)),kmul(dJ323L,PDstandardNth3alpha)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1beta1 = PDstandardNth1beta1;
-      
-      JacPDstandardNth1beta2 = PDstandardNth1beta2;
-      
-      JacPDstandardNth1beta3 = PDstandardNth1beta3;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2beta1 = PDstandardNth2beta1;
-      
-      JacPDstandardNth2beta2 = PDstandardNth2beta2;
-      
-      JacPDstandardNth2beta3 = PDstandardNth2beta3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3beta1 = PDstandardNth3beta1;
-      
-      JacPDstandardNth3beta2 = PDstandardNth3beta2;
-      
-      JacPDstandardNth3beta3 = PDstandardNth3beta3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11alpha = PDstandardNth11alpha;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22alpha = PDstandardNth22alpha;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33alpha = PDstandardNth33alpha;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12alpha = PDstandardNth12alpha;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13alpha = PDstandardNth13alpha;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23alpha = PDstandardNth23alpha;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC g11 = kmul(gt11L,e4phi);
-    
-    CCTK_REAL_VEC g12 = kmul(gt12L,e4phi);
-    
-    CCTK_REAL_VEC g13 = kmul(gt13L,e4phi);
-    
-    CCTK_REAL_VEC g22 = kmul(gt22L,e4phi);
-    
-    CCTK_REAL_VEC g23 = kmul(gt23L,e4phi);
-    
-    CCTK_REAL_VEC g33 = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trS = 
-      kmul(em4phi,kmadd(eTxxL,gtu11,kmadd(eTyyL,gtu22,kmadd(eTzzL,gtu33,kmul(kmadd(eTxyL,gtu12,kmadd(eTxzL,gtu13,kmul(eTyzL,gtu23))),ToReal(2))))));
-    
-    CCTK_REAL_VEC Ats11 = 
-      kmadd(Gt211,JacPDstandardNth2alpha,kmadd(Gt311,JacPDstandardNth3alpha,kmadd(alphaL,R11,kmsub(JacPDstandardNth1alpha,kmadd(cdphi1,ToReal(4),Gt111),JacPDstandardNth11alpha))));
-    
-    CCTK_REAL_VEC Ats12 = 
-      kmadd(Gt312,JacPDstandardNth3alpha,kmadd(alphaL,R12,ksub(kmadd(JacPDstandardNth2alpha,kmadd(cdphi1,ToReal(2),Gt212),kmul(JacPDstandardNth1alpha,kmadd(cdphi2,ToReal(2),Gt112))),JacPDstandardNth12alpha)));
-    
-    CCTK_REAL_VEC Ats13 = 
-      kmadd(Gt213,JacPDstandardNth2alpha,kmadd(alphaL,R13,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi1,ToReal(2),Gt313),kmul(JacPDstandardNth1alpha,kmadd(cdphi3,ToReal(2),Gt113))),JacPDstandardNth13alpha)));
-    
-    CCTK_REAL_VEC Ats22 = 
-      kmadd(Gt122,JacPDstandardNth1alpha,kmadd(Gt322,JacPDstandardNth3alpha,kmadd(alphaL,R22,kmsub(JacPDstandardNth2alpha,kmadd(cdphi2,ToReal(4),Gt222),JacPDstandardNth22alpha))));
-    
-    CCTK_REAL_VEC Ats23 = 
-      kmadd(Gt123,JacPDstandardNth1alpha,kmadd(alphaL,R23,ksub(kmadd(JacPDstandardNth3alpha,kmadd(cdphi2,ToReal(2),Gt323),kmul(JacPDstandardNth2alpha,kmadd(cdphi3,ToReal(2),Gt223))),JacPDstandardNth23alpha)));
-    
-    CCTK_REAL_VEC Ats33 = 
-      kmadd(Gt133,JacPDstandardNth1alpha,kmadd(Gt233,JacPDstandardNth2alpha,kmadd(alphaL,R33,kmsub(JacPDstandardNth3alpha,kmadd(cdphi3,ToReal(4),Gt333),JacPDstandardNth33alpha))));
-    
-    CCTK_REAL_VEC trAts = 
-      kmadd(Ats11,gu11,kmadd(Ats22,gu22,kmadd(Ats33,gu33,kmul(kmadd(Ats12,gu12,kmadd(Ats13,gu13,kmul(Ats23,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats11,ToReal(3),kmul(g11,trAts)),kmadd(At11L,kmadd(kadd(JacPDstandardNth2beta2,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth1beta1,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth1beta2,kmul(At13L,JacPDstandardNth1beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm21,kmul(At13L,Atm31)),ToReal(6),kmadd(At11L,kmadd(trKL,ToReal(-3),kmul(Atm11,ToReal(6))),kmul(em4phi,kmul(kmadd(g11,kmul(trS,ToReal(-8)),kmul(eTxxL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At12rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At12L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth3beta3,ToReal(-2),JacPDstandardNth2beta2)),kmsub(kmadd(Ats12,em4phi,kmadd(At22L,JacPDstandardNth1beta2,kmadd(At23L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth2beta1,kmul(At13L,JacPDstandardNth2beta3))))),ToReal(3),kmul(em4phi,kmul(g12,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm12,kmul(At13L,Atm32)),ToReal(-2),kmadd(At12L,kmadd(Atm22,ToReal(-2),trKL),kmul(em4phi,kmadd(g12,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxyL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At13rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At13L,kadd(JacPDstandardNth1beta1,kmadd(JacPDstandardNth2beta2,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats13,em4phi,kmadd(At23L,JacPDstandardNth1beta2,kmadd(At33L,JacPDstandardNth1beta3,kmadd(At11L,JacPDstandardNth3beta1,kmul(At12L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g13,trAts)))),kmul(alphaL,kmadd(kmadd(At11L,Atm13,kmul(At12L,Atm23)),ToReal(-2),kmadd(At13L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g13,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTxzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At22rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats22,ToReal(3),kmul(g22,trAts)),kmadd(At22L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth3beta3),ToReal(-2),kmul(JacPDstandardNth2beta2,ToReal(4))),kmsub(kmadd(At12L,JacPDstandardNth2beta1,kmul(At23L,JacPDstandardNth2beta3)),ToReal(6),kmul(alphaL,kmadd(kmadd(At12L,Atm12,kmul(At23L,Atm32)),ToReal(6),kmadd(At22L,kmadd(trKL,ToReal(-3),kmul(Atm22,ToReal(6))),kmul(em4phi,kmul(kmadd(g22,kmul(trS,ToReal(-8)),kmul(eTyyL,ToReal(24))),ToReal(Pi))))))))));
-    
-    CCTK_REAL_VEC At23rhsL = 
-      kmadd(ToReal(0.333333333333333333333333333333),kmadd(At23L,kadd(JacPDstandardNth2beta2,kmadd(JacPDstandardNth1beta1,ToReal(-2),JacPDstandardNth3beta3)),kmsub(kmadd(Ats23,em4phi,kmadd(At13L,JacPDstandardNth2beta1,kmadd(At33L,JacPDstandardNth2beta3,kmadd(At12L,JacPDstandardNth3beta1,kmul(At22L,JacPDstandardNth3beta2))))),ToReal(3),kmul(em4phi,kmul(g23,trAts)))),kmul(alphaL,kmadd(kmadd(At12L,Atm13,kmul(At22L,Atm23)),ToReal(-2),kmadd(At23L,kmadd(Atm33,ToReal(-2),trKL),kmul(em4phi,kmadd(g23,kmul(trS,ToReal(8.37758040957278196923371568875)),kmul(eTyzL,kmul(ToReal(-8),ToReal(Pi)))))))));
-    
-    CCTK_REAL_VEC At33rhsL = 
-      kmul(ToReal(0.333333333333333333333333333333),kmadd(em4phi,kmsub(Ats33,ToReal(3),kmul(g33,trAts)),kmadd(At33L,kmadd(kadd(JacPDstandardNth1beta1,JacPDstandardNth2beta2),ToReal(-2),kmul(JacPDstandardNth3beta3,ToReal(4))),kmsub(kmadd(At13L,JacPDstandardNth3beta1,kmul(At23L,JacPDstandardNth3beta2)),ToReal(6),kmul(alphaL,kmadd(kmadd(At13L,Atm13,kmul(At23L,Atm23)),ToReal(6),kmadd(At33L,kmadd(trKL,ToReal(-3),kmul(Atm33,ToReal(6))),kmul(em4phi,kmul(kmadd(g33,kmul(trS,ToReal(-8)),kmul(eTzzL,ToReal(24))),ToReal(Pi))))))))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_RHS2);
-}
-
-extern "C" void ML_BSSN_UPW_RHS2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_RHS2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_RHS2_calc_every != ML_BSSN_UPW_RHS2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_curvrhs",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_RHS2", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_RHS2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_RHS2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_RHS2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_RHS2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_UPW_RHS2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_RHS2_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHSStaticBoundary.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_RHSStaticBoundary.cc
deleted file mode 100644
index 1e24ff9..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHSStaticBoundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_RHSStaticBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_curvrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtlapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtlapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtshiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtshiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_Gammarhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_Gammarhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_lapserhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_lapserhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_log_confacrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_log_confacrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_metricrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_metricrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_shiftrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_shiftrhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_trace_curvrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_trace_curvrhs.");
-  return;
-}
-
-static void ML_BSSN_UPW_RHSStaticBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_RHSStaticBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phirhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC gt33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC trKrhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At11rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At12rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At13rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At22rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At23rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC At33rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC alpharhsL = ToReal(0);
-    
-    CCTK_REAL_VEC ArhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC beta3rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B1rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B2rhsL = ToReal(0);
-    
-    CCTK_REAL_VEC B3rhsL = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpharhs[index],alpharhsL);
-    vec_store_nta_partial(Arhs[index],ArhsL);
-    vec_store_nta_partial(At11rhs[index],At11rhsL);
-    vec_store_nta_partial(At12rhs[index],At12rhsL);
-    vec_store_nta_partial(At13rhs[index],At13rhsL);
-    vec_store_nta_partial(At22rhs[index],At22rhsL);
-    vec_store_nta_partial(At23rhs[index],At23rhsL);
-    vec_store_nta_partial(At33rhs[index],At33rhsL);
-    vec_store_nta_partial(B1rhs[index],B1rhsL);
-    vec_store_nta_partial(B2rhs[index],B2rhsL);
-    vec_store_nta_partial(B3rhs[index],B3rhsL);
-    vec_store_nta_partial(beta1rhs[index],beta1rhsL);
-    vec_store_nta_partial(beta2rhs[index],beta2rhsL);
-    vec_store_nta_partial(beta3rhs[index],beta3rhsL);
-    vec_store_nta_partial(gt11rhs[index],gt11rhsL);
-    vec_store_nta_partial(gt12rhs[index],gt12rhsL);
-    vec_store_nta_partial(gt13rhs[index],gt13rhsL);
-    vec_store_nta_partial(gt22rhs[index],gt22rhsL);
-    vec_store_nta_partial(gt23rhs[index],gt23rhsL);
-    vec_store_nta_partial(gt33rhs[index],gt33rhsL);
-    vec_store_nta_partial(phirhs[index],phirhsL);
-    vec_store_nta_partial(trKrhs[index],trKrhsL);
-    vec_store_nta_partial(Xt1rhs[index],Xt1rhsL);
-    vec_store_nta_partial(Xt2rhs[index],Xt2rhsL);
-    vec_store_nta_partial(Xt3rhs[index],Xt3rhsL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_RHSStaticBoundary);
-}
-
-extern "C" void ML_BSSN_UPW_RHSStaticBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_RHSStaticBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_RHSStaticBoundary_calc_every != ML_BSSN_UPW_RHSStaticBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_curvrhs",
-    "ML_BSSN_UPW::ML_dtlapserhs",
-    "ML_BSSN_UPW::ML_dtshiftrhs",
-    "ML_BSSN_UPW::ML_Gammarhs",
-    "ML_BSSN_UPW::ML_lapserhs",
-    "ML_BSSN_UPW::ML_log_confacrhs",
-    "ML_BSSN_UPW::ML_metricrhs",
-    "ML_BSSN_UPW::ML_shiftrhs",
-    "ML_BSSN_UPW::ML_trace_curvrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_RHSStaticBoundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundary(cctkGH, ML_BSSN_UPW_RHSStaticBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_RHSStaticBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_boundary.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_boundary.cc
deleted file mode 100644
index a1a7a68..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_boundary.cc
+++ /dev/null
@@ -1,391 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_boundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_curv.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_lapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_lapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_log_confac","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_log_confac.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_metric","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_metric.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_shift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_shift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_trace_curv","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_trace_curv.");
-  return;
-}
-
-static void ML_BSSN_UPW_boundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_boundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC phiL = IfThen(conformalMethod == 1,ToReal(1),ToReal(0));
-    
-    CCTK_REAL_VEC gt11L = ToReal(1);
-    
-    CCTK_REAL_VEC gt12L = ToReal(0);
-    
-    CCTK_REAL_VEC gt13L = ToReal(0);
-    
-    CCTK_REAL_VEC gt22L = ToReal(1);
-    
-    CCTK_REAL_VEC gt23L = ToReal(0);
-    
-    CCTK_REAL_VEC gt33L = ToReal(1);
-    
-    CCTK_REAL_VEC trKL = ToReal(0);
-    
-    CCTK_REAL_VEC At11L = ToReal(0);
-    
-    CCTK_REAL_VEC At12L = ToReal(0);
-    
-    CCTK_REAL_VEC At13L = ToReal(0);
-    
-    CCTK_REAL_VEC At22L = ToReal(0);
-    
-    CCTK_REAL_VEC At23L = ToReal(0);
-    
-    CCTK_REAL_VEC At33L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt1L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt2L = ToReal(0);
-    
-    CCTK_REAL_VEC Xt3L = ToReal(0);
-    
-    CCTK_REAL_VEC alphaL = ToReal(1);
-    
-    CCTK_REAL_VEC AL = ToReal(0);
-    
-    CCTK_REAL_VEC beta1L = ToReal(0);
-    
-    CCTK_REAL_VEC beta2L = ToReal(0);
-    
-    CCTK_REAL_VEC beta3L = ToReal(0);
-    
-    CCTK_REAL_VEC B1L = ToReal(0);
-    
-    CCTK_REAL_VEC B2L = ToReal(0);
-    
-    CCTK_REAL_VEC B3L = ToReal(0);
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_boundary);
-}
-
-extern "C" void ML_BSSN_UPW_boundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_boundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_boundary_calc_every != ML_BSSN_UPW_boundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_boundary", 9, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_UPW_boundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_boundary_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints1.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints1.cc
deleted file mode 100644
index e757d1f..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints1.cc
+++ /dev/null
@@ -1,1623 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_constraints1_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_Ham","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_Ham.");
-  return;
-}
-
-static void ML_BSSN_UPW_constraints1_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_constraints1,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTttL, eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTttL = vec_load(eTtt[index]);
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTttL = ToReal(0.0);
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC dJ111L, dJ112L, dJ113L, dJ122L, dJ123L, dJ133L, dJ211L, dJ212L, dJ213L, dJ222L, dJ223L, dJ233L, dJ311L, dJ312L, dJ313L, dJ322L, dJ323L, dJ333L, J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      dJ111L = vec_load(dJ111[index]);
-      dJ112L = vec_load(dJ112[index]);
-      dJ113L = vec_load(dJ113[index]);
-      dJ122L = vec_load(dJ122[index]);
-      dJ123L = vec_load(dJ123[index]);
-      dJ133L = vec_load(dJ133[index]);
-      dJ211L = vec_load(dJ211[index]);
-      dJ212L = vec_load(dJ212[index]);
-      dJ213L = vec_load(dJ213[index]);
-      dJ222L = vec_load(dJ222[index]);
-      dJ223L = vec_load(dJ223[index]);
-      dJ233L = vec_load(dJ233[index]);
-      dJ311L = vec_load(dJ311[index]);
-      dJ312L = vec_load(dJ312[index]);
-      dJ313L = vec_load(dJ313[index]);
-      dJ322L = vec_load(dJ322[index]);
-      dJ323L = vec_load(dJ323[index]);
-      dJ333L = vec_load(dJ333[index]);
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth11gt11;
-    CCTK_REAL_VEC PDstandardNth22gt11;
-    CCTK_REAL_VEC PDstandardNth33gt11;
-    CCTK_REAL_VEC PDstandardNth12gt11;
-    CCTK_REAL_VEC PDstandardNth13gt11;
-    CCTK_REAL_VEC PDstandardNth23gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth11gt12;
-    CCTK_REAL_VEC PDstandardNth22gt12;
-    CCTK_REAL_VEC PDstandardNth33gt12;
-    CCTK_REAL_VEC PDstandardNth12gt12;
-    CCTK_REAL_VEC PDstandardNth13gt12;
-    CCTK_REAL_VEC PDstandardNth23gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth11gt13;
-    CCTK_REAL_VEC PDstandardNth22gt13;
-    CCTK_REAL_VEC PDstandardNth33gt13;
-    CCTK_REAL_VEC PDstandardNth12gt13;
-    CCTK_REAL_VEC PDstandardNth13gt13;
-    CCTK_REAL_VEC PDstandardNth23gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth11gt22;
-    CCTK_REAL_VEC PDstandardNth22gt22;
-    CCTK_REAL_VEC PDstandardNth33gt22;
-    CCTK_REAL_VEC PDstandardNth12gt22;
-    CCTK_REAL_VEC PDstandardNth13gt22;
-    CCTK_REAL_VEC PDstandardNth23gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth11gt23;
-    CCTK_REAL_VEC PDstandardNth22gt23;
-    CCTK_REAL_VEC PDstandardNth33gt23;
-    CCTK_REAL_VEC PDstandardNth12gt23;
-    CCTK_REAL_VEC PDstandardNth13gt23;
-    CCTK_REAL_VEC PDstandardNth23gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth11gt33;
-    CCTK_REAL_VEC PDstandardNth22gt33;
-    CCTK_REAL_VEC PDstandardNth33gt33;
-    CCTK_REAL_VEC PDstandardNth12gt33;
-    CCTK_REAL_VEC PDstandardNth13gt33;
-    CCTK_REAL_VEC PDstandardNth23gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth11phi;
-    CCTK_REAL_VEC PDstandardNth22phi;
-    CCTK_REAL_VEC PDstandardNth33phi;
-    CCTK_REAL_VEC PDstandardNth12phi;
-    CCTK_REAL_VEC PDstandardNth13phi;
-    CCTK_REAL_VEC PDstandardNth23phi;
-    CCTK_REAL_VEC PDstandardNth1Xt1;
-    CCTK_REAL_VEC PDstandardNth2Xt1;
-    CCTK_REAL_VEC PDstandardNth3Xt1;
-    CCTK_REAL_VEC PDstandardNth1Xt2;
-    CCTK_REAL_VEC PDstandardNth2Xt2;
-    CCTK_REAL_VEC PDstandardNth3Xt2;
-    CCTK_REAL_VEC PDstandardNth1Xt3;
-    CCTK_REAL_VEC PDstandardNth2Xt3;
-    CCTK_REAL_VEC PDstandardNth3Xt3;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder211(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder222(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder233(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder212(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder213(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder223(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder211(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder222(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder233(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder212(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder213(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder223(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder211(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder222(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder233(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder212(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder213(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder223(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder211(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder222(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder233(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder212(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder213(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder223(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder211(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder222(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder233(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder212(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder213(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder223(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder211(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder222(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder233(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder212(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder213(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder223(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder211(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder222(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder233(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder212(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder213(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder223(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder21(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder22(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder23(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder21(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder22(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder23(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder21(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder22(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder23(&Xt3[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder411(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder422(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder433(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder412(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder413(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder423(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder411(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder422(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder433(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder412(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder413(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder423(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder411(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder422(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder433(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder412(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder413(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder423(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder411(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder422(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder433(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder412(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder413(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder423(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder411(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder422(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder433(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder412(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder413(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder423(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder411(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder422(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder433(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder412(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder413(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder423(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder411(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder422(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder433(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder412(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder413(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder423(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder41(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder42(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder43(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder41(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder42(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder43(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder41(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder42(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder43(&Xt3[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder611(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder622(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder633(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder612(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder613(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder623(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder611(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder622(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder633(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder612(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder613(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder623(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder611(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder622(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder633(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder612(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder613(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder623(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder611(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder622(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder633(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder612(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder613(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder623(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder611(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder622(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder633(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder612(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder613(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder623(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder611(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder622(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder633(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder612(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder613(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder623(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder611(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder622(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder633(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder612(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder613(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder623(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder61(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder62(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder63(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder61(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder62(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder63(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder61(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder62(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder63(&Xt3[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth11gt11 = PDstandardNthfdOrder811(&gt11[index]);
-        PDstandardNth22gt11 = PDstandardNthfdOrder822(&gt11[index]);
-        PDstandardNth33gt11 = PDstandardNthfdOrder833(&gt11[index]);
-        PDstandardNth12gt11 = PDstandardNthfdOrder812(&gt11[index]);
-        PDstandardNth13gt11 = PDstandardNthfdOrder813(&gt11[index]);
-        PDstandardNth23gt11 = PDstandardNthfdOrder823(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth11gt12 = PDstandardNthfdOrder811(&gt12[index]);
-        PDstandardNth22gt12 = PDstandardNthfdOrder822(&gt12[index]);
-        PDstandardNth33gt12 = PDstandardNthfdOrder833(&gt12[index]);
-        PDstandardNth12gt12 = PDstandardNthfdOrder812(&gt12[index]);
-        PDstandardNth13gt12 = PDstandardNthfdOrder813(&gt12[index]);
-        PDstandardNth23gt12 = PDstandardNthfdOrder823(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth11gt13 = PDstandardNthfdOrder811(&gt13[index]);
-        PDstandardNth22gt13 = PDstandardNthfdOrder822(&gt13[index]);
-        PDstandardNth33gt13 = PDstandardNthfdOrder833(&gt13[index]);
-        PDstandardNth12gt13 = PDstandardNthfdOrder812(&gt13[index]);
-        PDstandardNth13gt13 = PDstandardNthfdOrder813(&gt13[index]);
-        PDstandardNth23gt13 = PDstandardNthfdOrder823(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth11gt22 = PDstandardNthfdOrder811(&gt22[index]);
-        PDstandardNth22gt22 = PDstandardNthfdOrder822(&gt22[index]);
-        PDstandardNth33gt22 = PDstandardNthfdOrder833(&gt22[index]);
-        PDstandardNth12gt22 = PDstandardNthfdOrder812(&gt22[index]);
-        PDstandardNth13gt22 = PDstandardNthfdOrder813(&gt22[index]);
-        PDstandardNth23gt22 = PDstandardNthfdOrder823(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth11gt23 = PDstandardNthfdOrder811(&gt23[index]);
-        PDstandardNth22gt23 = PDstandardNthfdOrder822(&gt23[index]);
-        PDstandardNth33gt23 = PDstandardNthfdOrder833(&gt23[index]);
-        PDstandardNth12gt23 = PDstandardNthfdOrder812(&gt23[index]);
-        PDstandardNth13gt23 = PDstandardNthfdOrder813(&gt23[index]);
-        PDstandardNth23gt23 = PDstandardNthfdOrder823(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth11gt33 = PDstandardNthfdOrder811(&gt33[index]);
-        PDstandardNth22gt33 = PDstandardNthfdOrder822(&gt33[index]);
-        PDstandardNth33gt33 = PDstandardNthfdOrder833(&gt33[index]);
-        PDstandardNth12gt33 = PDstandardNthfdOrder812(&gt33[index]);
-        PDstandardNth13gt33 = PDstandardNthfdOrder813(&gt33[index]);
-        PDstandardNth23gt33 = PDstandardNthfdOrder823(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth11phi = PDstandardNthfdOrder811(&phi[index]);
-        PDstandardNth22phi = PDstandardNthfdOrder822(&phi[index]);
-        PDstandardNth33phi = PDstandardNthfdOrder833(&phi[index]);
-        PDstandardNth12phi = PDstandardNthfdOrder812(&phi[index]);
-        PDstandardNth13phi = PDstandardNthfdOrder813(&phi[index]);
-        PDstandardNth23phi = PDstandardNthfdOrder823(&phi[index]);
-        PDstandardNth1Xt1 = PDstandardNthfdOrder81(&Xt1[index]);
-        PDstandardNth2Xt1 = PDstandardNthfdOrder82(&Xt1[index]);
-        PDstandardNth3Xt1 = PDstandardNthfdOrder83(&Xt1[index]);
-        PDstandardNth1Xt2 = PDstandardNthfdOrder81(&Xt2[index]);
-        PDstandardNth2Xt2 = PDstandardNthfdOrder82(&Xt2[index]);
-        PDstandardNth3Xt2 = PDstandardNthfdOrder83(&Xt2[index]);
-        PDstandardNth1Xt3 = PDstandardNthfdOrder81(&Xt3[index]);
-        PDstandardNth2Xt3 = PDstandardNthfdOrder82(&Xt3[index]);
-        PDstandardNth3Xt3 = PDstandardNthfdOrder83(&Xt3[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth11gt11;
-    CCTK_REAL_VEC JacPDstandardNth11gt12;
-    CCTK_REAL_VEC JacPDstandardNth11gt13;
-    CCTK_REAL_VEC JacPDstandardNth11gt22;
-    CCTK_REAL_VEC JacPDstandardNth11gt23;
-    CCTK_REAL_VEC JacPDstandardNth11gt33;
-    CCTK_REAL_VEC JacPDstandardNth11phi;
-    CCTK_REAL_VEC JacPDstandardNth12gt11;
-    CCTK_REAL_VEC JacPDstandardNth12gt12;
-    CCTK_REAL_VEC JacPDstandardNth12gt13;
-    CCTK_REAL_VEC JacPDstandardNth12gt22;
-    CCTK_REAL_VEC JacPDstandardNth12gt23;
-    CCTK_REAL_VEC JacPDstandardNth12gt33;
-    CCTK_REAL_VEC JacPDstandardNth12phi;
-    CCTK_REAL_VEC JacPDstandardNth13gt11;
-    CCTK_REAL_VEC JacPDstandardNth13gt12;
-    CCTK_REAL_VEC JacPDstandardNth13gt13;
-    CCTK_REAL_VEC JacPDstandardNth13gt22;
-    CCTK_REAL_VEC JacPDstandardNth13gt23;
-    CCTK_REAL_VEC JacPDstandardNth13gt33;
-    CCTK_REAL_VEC JacPDstandardNth13phi;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1Xt1;
-    CCTK_REAL_VEC JacPDstandardNth1Xt2;
-    CCTK_REAL_VEC JacPDstandardNth1Xt3;
-    CCTK_REAL_VEC JacPDstandardNth21gt11;
-    CCTK_REAL_VEC JacPDstandardNth21gt12;
-    CCTK_REAL_VEC JacPDstandardNth21gt13;
-    CCTK_REAL_VEC JacPDstandardNth21gt22;
-    CCTK_REAL_VEC JacPDstandardNth21gt23;
-    CCTK_REAL_VEC JacPDstandardNth21gt33;
-    CCTK_REAL_VEC JacPDstandardNth22gt11;
-    CCTK_REAL_VEC JacPDstandardNth22gt12;
-    CCTK_REAL_VEC JacPDstandardNth22gt13;
-    CCTK_REAL_VEC JacPDstandardNth22gt22;
-    CCTK_REAL_VEC JacPDstandardNth22gt23;
-    CCTK_REAL_VEC JacPDstandardNth22gt33;
-    CCTK_REAL_VEC JacPDstandardNth22phi;
-    CCTK_REAL_VEC JacPDstandardNth23gt11;
-    CCTK_REAL_VEC JacPDstandardNth23gt12;
-    CCTK_REAL_VEC JacPDstandardNth23gt13;
-    CCTK_REAL_VEC JacPDstandardNth23gt22;
-    CCTK_REAL_VEC JacPDstandardNth23gt23;
-    CCTK_REAL_VEC JacPDstandardNth23gt33;
-    CCTK_REAL_VEC JacPDstandardNth23phi;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2Xt1;
-    CCTK_REAL_VEC JacPDstandardNth2Xt2;
-    CCTK_REAL_VEC JacPDstandardNth2Xt3;
-    CCTK_REAL_VEC JacPDstandardNth31gt11;
-    CCTK_REAL_VEC JacPDstandardNth31gt12;
-    CCTK_REAL_VEC JacPDstandardNth31gt13;
-    CCTK_REAL_VEC JacPDstandardNth31gt22;
-    CCTK_REAL_VEC JacPDstandardNth31gt23;
-    CCTK_REAL_VEC JacPDstandardNth31gt33;
-    CCTK_REAL_VEC JacPDstandardNth32gt11;
-    CCTK_REAL_VEC JacPDstandardNth32gt12;
-    CCTK_REAL_VEC JacPDstandardNth32gt13;
-    CCTK_REAL_VEC JacPDstandardNth32gt22;
-    CCTK_REAL_VEC JacPDstandardNth32gt23;
-    CCTK_REAL_VEC JacPDstandardNth32gt33;
-    CCTK_REAL_VEC JacPDstandardNth33gt11;
-    CCTK_REAL_VEC JacPDstandardNth33gt12;
-    CCTK_REAL_VEC JacPDstandardNth33gt13;
-    CCTK_REAL_VEC JacPDstandardNth33gt22;
-    CCTK_REAL_VEC JacPDstandardNth33gt23;
-    CCTK_REAL_VEC JacPDstandardNth33gt33;
-    CCTK_REAL_VEC JacPDstandardNth33phi;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3Xt1;
-    CCTK_REAL_VEC JacPDstandardNth3Xt2;
-    CCTK_REAL_VEC JacPDstandardNth3Xt3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1Xt1 = 
-        kmadd(J11L,PDstandardNth1Xt1,kmadd(J21L,PDstandardNth2Xt1,kmul(J31L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth1Xt2 = 
-        kmadd(J11L,PDstandardNth1Xt2,kmadd(J21L,PDstandardNth2Xt2,kmul(J31L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth1Xt3 = 
-        kmadd(J11L,PDstandardNth1Xt3,kmadd(J21L,PDstandardNth2Xt3,kmul(J31L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2Xt1 = 
-        kmadd(J12L,PDstandardNth1Xt1,kmadd(J22L,PDstandardNth2Xt1,kmul(J32L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth2Xt2 = 
-        kmadd(J12L,PDstandardNth1Xt2,kmadd(J22L,PDstandardNth2Xt2,kmul(J32L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth2Xt3 = 
-        kmadd(J12L,PDstandardNth1Xt3,kmadd(J22L,PDstandardNth2Xt3,kmul(J32L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3Xt1 = 
-        kmadd(J13L,PDstandardNth1Xt1,kmadd(J23L,PDstandardNth2Xt1,kmul(J33L,PDstandardNth3Xt1)));
-      
-      JacPDstandardNth3Xt2 = 
-        kmadd(J13L,PDstandardNth1Xt2,kmadd(J23L,PDstandardNth2Xt2,kmul(J33L,PDstandardNth3Xt2)));
-      
-      JacPDstandardNth3Xt3 = 
-        kmadd(J13L,PDstandardNth1Xt3,kmadd(J23L,PDstandardNth2Xt3,kmul(J33L,PDstandardNth3Xt3)));
-      
-      JacPDstandardNth11gt11 = 
-        kmadd(dJ111L,PDstandardNth1gt11,kmadd(dJ211L,PDstandardNth2gt11,kmadd(dJ311L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J11L),kmadd(PDstandardNth22gt11,SQR(J21L),kmadd(PDstandardNth33gt11,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11)),kmul(J21L,kmul(J31L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt12 = 
-        kmadd(dJ111L,PDstandardNth1gt12,kmadd(dJ211L,PDstandardNth2gt12,kmadd(dJ311L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J11L),kmadd(PDstandardNth22gt12,SQR(J21L),kmadd(PDstandardNth33gt12,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12)),kmul(J21L,kmul(J31L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt13 = 
-        kmadd(dJ111L,PDstandardNth1gt13,kmadd(dJ211L,PDstandardNth2gt13,kmadd(dJ311L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J11L),kmadd(PDstandardNth22gt13,SQR(J21L),kmadd(PDstandardNth33gt13,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13)),kmul(J21L,kmul(J31L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt22 = 
-        kmadd(dJ111L,PDstandardNth1gt22,kmadd(dJ211L,PDstandardNth2gt22,kmadd(dJ311L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J11L),kmadd(PDstandardNth22gt22,SQR(J21L),kmadd(PDstandardNth33gt22,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22)),kmul(J21L,kmul(J31L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt23 = 
-        kmadd(dJ111L,PDstandardNth1gt23,kmadd(dJ211L,PDstandardNth2gt23,kmadd(dJ311L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J11L),kmadd(PDstandardNth22gt23,SQR(J21L),kmadd(PDstandardNth33gt23,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23)),kmul(J21L,kmul(J31L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth11gt33 = 
-        kmadd(dJ111L,PDstandardNth1gt33,kmadd(dJ211L,PDstandardNth2gt33,kmadd(dJ311L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J11L),kmadd(PDstandardNth22gt33,SQR(J21L),kmadd(PDstandardNth33gt33,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33)),kmul(J21L,kmul(J31L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth11phi = 
-        kmadd(dJ111L,PDstandardNth1phi,kmadd(dJ211L,PDstandardNth2phi,kmadd(dJ311L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J11L),kmadd(PDstandardNth22phi,SQR(J21L),kmadd(PDstandardNth33phi,SQR(J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi)),kmul(J21L,kmul(J31L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt11 = 
-        kmadd(dJ122L,PDstandardNth1gt11,kmadd(dJ222L,PDstandardNth2gt11,kmadd(dJ322L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J12L),kmadd(PDstandardNth22gt11,SQR(J22L),kmadd(PDstandardNth33gt11,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmul(J22L,kmul(J32L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt12 = 
-        kmadd(dJ122L,PDstandardNth1gt12,kmadd(dJ222L,PDstandardNth2gt12,kmadd(dJ322L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J12L),kmadd(PDstandardNth22gt12,SQR(J22L),kmadd(PDstandardNth33gt12,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmul(J22L,kmul(J32L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt13 = 
-        kmadd(dJ122L,PDstandardNth1gt13,kmadd(dJ222L,PDstandardNth2gt13,kmadd(dJ322L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J12L),kmadd(PDstandardNth22gt13,SQR(J22L),kmadd(PDstandardNth33gt13,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmul(J22L,kmul(J32L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt22 = 
-        kmadd(dJ122L,PDstandardNth1gt22,kmadd(dJ222L,PDstandardNth2gt22,kmadd(dJ322L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J12L),kmadd(PDstandardNth22gt22,SQR(J22L),kmadd(PDstandardNth33gt22,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmul(J22L,kmul(J32L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt23 = 
-        kmadd(dJ122L,PDstandardNth1gt23,kmadd(dJ222L,PDstandardNth2gt23,kmadd(dJ322L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J12L),kmadd(PDstandardNth22gt23,SQR(J22L),kmadd(PDstandardNth33gt23,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmul(J22L,kmul(J32L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth22gt33 = 
-        kmadd(dJ122L,PDstandardNth1gt33,kmadd(dJ222L,PDstandardNth2gt33,kmadd(dJ322L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J12L),kmadd(PDstandardNth22gt33,SQR(J22L),kmadd(PDstandardNth33gt33,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmul(J22L,kmul(J32L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth22phi = 
-        kmadd(dJ122L,PDstandardNth1phi,kmadd(dJ222L,PDstandardNth2phi,kmadd(dJ322L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J12L),kmadd(PDstandardNth22phi,SQR(J22L),kmadd(PDstandardNth33phi,SQR(J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmul(J22L,kmul(J32L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt11 = 
-        kmadd(dJ133L,PDstandardNth1gt11,kmadd(dJ233L,PDstandardNth2gt11,kmadd(dJ333L,PDstandardNth3gt11,kmadd(PDstandardNth11gt11,SQR(J13L),kmadd(PDstandardNth22gt11,SQR(J23L),kmadd(PDstandardNth33gt11,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmul(J23L,kmul(J33L,PDstandardNth23gt11))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt12 = 
-        kmadd(dJ133L,PDstandardNth1gt12,kmadd(dJ233L,PDstandardNth2gt12,kmadd(dJ333L,PDstandardNth3gt12,kmadd(PDstandardNth11gt12,SQR(J13L),kmadd(PDstandardNth22gt12,SQR(J23L),kmadd(PDstandardNth33gt12,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmul(J23L,kmul(J33L,PDstandardNth23gt12))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt13 = 
-        kmadd(dJ133L,PDstandardNth1gt13,kmadd(dJ233L,PDstandardNth2gt13,kmadd(dJ333L,PDstandardNth3gt13,kmadd(PDstandardNth11gt13,SQR(J13L),kmadd(PDstandardNth22gt13,SQR(J23L),kmadd(PDstandardNth33gt13,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmul(J23L,kmul(J33L,PDstandardNth23gt13))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt22 = 
-        kmadd(dJ133L,PDstandardNth1gt22,kmadd(dJ233L,PDstandardNth2gt22,kmadd(dJ333L,PDstandardNth3gt22,kmadd(PDstandardNth11gt22,SQR(J13L),kmadd(PDstandardNth22gt22,SQR(J23L),kmadd(PDstandardNth33gt22,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmul(J23L,kmul(J33L,PDstandardNth23gt22))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt23 = 
-        kmadd(dJ133L,PDstandardNth1gt23,kmadd(dJ233L,PDstandardNth2gt23,kmadd(dJ333L,PDstandardNth3gt23,kmadd(PDstandardNth11gt23,SQR(J13L),kmadd(PDstandardNth22gt23,SQR(J23L),kmadd(PDstandardNth33gt23,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmul(J23L,kmul(J33L,PDstandardNth23gt23))),ToReal(2))))))));
-      
-      JacPDstandardNth33gt33 = 
-        kmadd(dJ133L,PDstandardNth1gt33,kmadd(dJ233L,PDstandardNth2gt33,kmadd(dJ333L,PDstandardNth3gt33,kmadd(PDstandardNth11gt33,SQR(J13L),kmadd(PDstandardNth22gt33,SQR(J23L),kmadd(PDstandardNth33gt33,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmul(J23L,kmul(J33L,PDstandardNth23gt33))),ToReal(2))))))));
-      
-      JacPDstandardNth33phi = 
-        kmadd(dJ133L,PDstandardNth1phi,kmadd(dJ233L,PDstandardNth2phi,kmadd(dJ333L,PDstandardNth3phi,kmadd(PDstandardNth11phi,SQR(J13L),kmadd(PDstandardNth22phi,SQR(J23L),kmadd(PDstandardNth33phi,SQR(J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmul(J23L,kmul(J33L,PDstandardNth23phi))),ToReal(2))))))));
-      
-      JacPDstandardNth12gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth12gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth12gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth12gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth12gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth12gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth12phi = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi)),kmadd(dJ112L,PDstandardNth1phi,kmadd(J22L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ212L,PDstandardNth2phi,kmadd(J32L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ312L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth13gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth13gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth13gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth13gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth13gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth13gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth13phi = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11phi,kmadd(J21L,PDstandardNth12phi,kmul(J31L,PDstandardNth13phi))),kmadd(J11L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ113L,PDstandardNth1phi,kmadd(J23L,kmadd(J21L,PDstandardNth22phi,kmul(J31L,PDstandardNth23phi)),kmadd(dJ213L,PDstandardNth2phi,kmadd(J33L,kmadd(J21L,PDstandardNth23phi,kmul(J31L,PDstandardNth33phi)),kmul(dJ313L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth21gt11 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11)),kmadd(dJ112L,PDstandardNth1gt11,kmadd(J22L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ212L,PDstandardNth2gt11,kmadd(J32L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ312L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth21gt12 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12)),kmadd(dJ112L,PDstandardNth1gt12,kmadd(J22L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ212L,PDstandardNth2gt12,kmadd(J32L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ312L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth21gt13 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13)),kmadd(dJ112L,PDstandardNth1gt13,kmadd(J22L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ212L,PDstandardNth2gt13,kmadd(J32L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ312L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth21gt22 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22)),kmadd(dJ112L,PDstandardNth1gt22,kmadd(J22L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ212L,PDstandardNth2gt22,kmadd(J32L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ312L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth21gt23 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23)),kmadd(dJ112L,PDstandardNth1gt23,kmadd(J22L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ212L,PDstandardNth2gt23,kmadd(J32L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ312L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth21gt33 = 
-        kmadd(J12L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33)),kmadd(dJ112L,PDstandardNth1gt33,kmadd(J22L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ212L,PDstandardNth2gt33,kmadd(J32L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ312L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth23gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth23gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth23gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth23gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth23gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth23phi = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11phi,kmadd(J22L,PDstandardNth12phi,kmul(J32L,PDstandardNth13phi))),kmadd(J12L,kmadd(J23L,PDstandardNth12phi,kmul(J33L,PDstandardNth13phi)),kmadd(dJ123L,PDstandardNth1phi,kmadd(J23L,kmadd(J22L,PDstandardNth22phi,kmul(J32L,PDstandardNth23phi)),kmadd(dJ223L,PDstandardNth2phi,kmadd(J33L,kmadd(J22L,PDstandardNth23phi,kmul(J32L,PDstandardNth33phi)),kmul(dJ323L,PDstandardNth3phi)))))));
-      
-      JacPDstandardNth31gt11 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt11,kmadd(J21L,PDstandardNth12gt11,kmul(J31L,PDstandardNth13gt11))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ113L,PDstandardNth1gt11,kmadd(J23L,kmadd(J21L,PDstandardNth22gt11,kmul(J31L,PDstandardNth23gt11)),kmadd(dJ213L,PDstandardNth2gt11,kmadd(J33L,kmadd(J21L,PDstandardNth23gt11,kmul(J31L,PDstandardNth33gt11)),kmul(dJ313L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth31gt12 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt12,kmadd(J21L,PDstandardNth12gt12,kmul(J31L,PDstandardNth13gt12))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ113L,PDstandardNth1gt12,kmadd(J23L,kmadd(J21L,PDstandardNth22gt12,kmul(J31L,PDstandardNth23gt12)),kmadd(dJ213L,PDstandardNth2gt12,kmadd(J33L,kmadd(J21L,PDstandardNth23gt12,kmul(J31L,PDstandardNth33gt12)),kmul(dJ313L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth31gt13 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt13,kmadd(J21L,PDstandardNth12gt13,kmul(J31L,PDstandardNth13gt13))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ113L,PDstandardNth1gt13,kmadd(J23L,kmadd(J21L,PDstandardNth22gt13,kmul(J31L,PDstandardNth23gt13)),kmadd(dJ213L,PDstandardNth2gt13,kmadd(J33L,kmadd(J21L,PDstandardNth23gt13,kmul(J31L,PDstandardNth33gt13)),kmul(dJ313L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth31gt22 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt22,kmadd(J21L,PDstandardNth12gt22,kmul(J31L,PDstandardNth13gt22))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ113L,PDstandardNth1gt22,kmadd(J23L,kmadd(J21L,PDstandardNth22gt22,kmul(J31L,PDstandardNth23gt22)),kmadd(dJ213L,PDstandardNth2gt22,kmadd(J33L,kmadd(J21L,PDstandardNth23gt22,kmul(J31L,PDstandardNth33gt22)),kmul(dJ313L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth31gt23 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt23,kmadd(J21L,PDstandardNth12gt23,kmul(J31L,PDstandardNth13gt23))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ113L,PDstandardNth1gt23,kmadd(J23L,kmadd(J21L,PDstandardNth22gt23,kmul(J31L,PDstandardNth23gt23)),kmadd(dJ213L,PDstandardNth2gt23,kmadd(J33L,kmadd(J21L,PDstandardNth23gt23,kmul(J31L,PDstandardNth33gt23)),kmul(dJ313L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth31gt33 = 
-        kmadd(J13L,kmadd(J11L,PDstandardNth11gt33,kmadd(J21L,PDstandardNth12gt33,kmul(J31L,PDstandardNth13gt33))),kmadd(J11L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ113L,PDstandardNth1gt33,kmadd(J23L,kmadd(J21L,PDstandardNth22gt33,kmul(J31L,PDstandardNth23gt33)),kmadd(dJ213L,PDstandardNth2gt33,kmadd(J33L,kmadd(J21L,PDstandardNth23gt33,kmul(J31L,PDstandardNth33gt33)),kmul(dJ313L,PDstandardNth3gt33)))))));
-      
-      JacPDstandardNth32gt11 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt11,kmadd(J22L,PDstandardNth12gt11,kmul(J32L,PDstandardNth13gt11))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt11,kmul(J33L,PDstandardNth13gt11)),kmadd(dJ123L,PDstandardNth1gt11,kmadd(J23L,kmadd(J22L,PDstandardNth22gt11,kmul(J32L,PDstandardNth23gt11)),kmadd(dJ223L,PDstandardNth2gt11,kmadd(J33L,kmadd(J22L,PDstandardNth23gt11,kmul(J32L,PDstandardNth33gt11)),kmul(dJ323L,PDstandardNth3gt11)))))));
-      
-      JacPDstandardNth32gt12 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt12,kmadd(J22L,PDstandardNth12gt12,kmul(J32L,PDstandardNth13gt12))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt12,kmul(J33L,PDstandardNth13gt12)),kmadd(dJ123L,PDstandardNth1gt12,kmadd(J23L,kmadd(J22L,PDstandardNth22gt12,kmul(J32L,PDstandardNth23gt12)),kmadd(dJ223L,PDstandardNth2gt12,kmadd(J33L,kmadd(J22L,PDstandardNth23gt12,kmul(J32L,PDstandardNth33gt12)),kmul(dJ323L,PDstandardNth3gt12)))))));
-      
-      JacPDstandardNth32gt13 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt13,kmadd(J22L,PDstandardNth12gt13,kmul(J32L,PDstandardNth13gt13))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt13,kmul(J33L,PDstandardNth13gt13)),kmadd(dJ123L,PDstandardNth1gt13,kmadd(J23L,kmadd(J22L,PDstandardNth22gt13,kmul(J32L,PDstandardNth23gt13)),kmadd(dJ223L,PDstandardNth2gt13,kmadd(J33L,kmadd(J22L,PDstandardNth23gt13,kmul(J32L,PDstandardNth33gt13)),kmul(dJ323L,PDstandardNth3gt13)))))));
-      
-      JacPDstandardNth32gt22 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt22,kmadd(J22L,PDstandardNth12gt22,kmul(J32L,PDstandardNth13gt22))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt22,kmul(J33L,PDstandardNth13gt22)),kmadd(dJ123L,PDstandardNth1gt22,kmadd(J23L,kmadd(J22L,PDstandardNth22gt22,kmul(J32L,PDstandardNth23gt22)),kmadd(dJ223L,PDstandardNth2gt22,kmadd(J33L,kmadd(J22L,PDstandardNth23gt22,kmul(J32L,PDstandardNth33gt22)),kmul(dJ323L,PDstandardNth3gt22)))))));
-      
-      JacPDstandardNth32gt23 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt23,kmadd(J22L,PDstandardNth12gt23,kmul(J32L,PDstandardNth13gt23))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt23,kmul(J33L,PDstandardNth13gt23)),kmadd(dJ123L,PDstandardNth1gt23,kmadd(J23L,kmadd(J22L,PDstandardNth22gt23,kmul(J32L,PDstandardNth23gt23)),kmadd(dJ223L,PDstandardNth2gt23,kmadd(J33L,kmadd(J22L,PDstandardNth23gt23,kmul(J32L,PDstandardNth33gt23)),kmul(dJ323L,PDstandardNth3gt23)))))));
-      
-      JacPDstandardNth32gt33 = 
-        kmadd(J13L,kmadd(J12L,PDstandardNth11gt33,kmadd(J22L,PDstandardNth12gt33,kmul(J32L,PDstandardNth13gt33))),kmadd(J12L,kmadd(J23L,PDstandardNth12gt33,kmul(J33L,PDstandardNth13gt33)),kmadd(dJ123L,PDstandardNth1gt33,kmadd(J23L,kmadd(J22L,PDstandardNth22gt33,kmul(J32L,PDstandardNth23gt33)),kmadd(dJ223L,PDstandardNth2gt33,kmadd(J33L,kmadd(J22L,PDstandardNth23gt33,kmul(J32L,PDstandardNth33gt33)),kmul(dJ323L,PDstandardNth3gt33)))))));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1Xt1 = PDstandardNth1Xt1;
-      
-      JacPDstandardNth1Xt2 = PDstandardNth1Xt2;
-      
-      JacPDstandardNth1Xt3 = PDstandardNth1Xt3;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2Xt1 = PDstandardNth2Xt1;
-      
-      JacPDstandardNth2Xt2 = PDstandardNth2Xt2;
-      
-      JacPDstandardNth2Xt3 = PDstandardNth2Xt3;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3Xt1 = PDstandardNth3Xt1;
-      
-      JacPDstandardNth3Xt2 = PDstandardNth3Xt2;
-      
-      JacPDstandardNth3Xt3 = PDstandardNth3Xt3;
-      
-      JacPDstandardNth11gt11 = PDstandardNth11gt11;
-      
-      JacPDstandardNth11gt12 = PDstandardNth11gt12;
-      
-      JacPDstandardNth11gt13 = PDstandardNth11gt13;
-      
-      JacPDstandardNth11gt22 = PDstandardNth11gt22;
-      
-      JacPDstandardNth11gt23 = PDstandardNth11gt23;
-      
-      JacPDstandardNth11gt33 = PDstandardNth11gt33;
-      
-      JacPDstandardNth11phi = PDstandardNth11phi;
-      
-      JacPDstandardNth22gt11 = PDstandardNth22gt11;
-      
-      JacPDstandardNth22gt12 = PDstandardNth22gt12;
-      
-      JacPDstandardNth22gt13 = PDstandardNth22gt13;
-      
-      JacPDstandardNth22gt22 = PDstandardNth22gt22;
-      
-      JacPDstandardNth22gt23 = PDstandardNth22gt23;
-      
-      JacPDstandardNth22gt33 = PDstandardNth22gt33;
-      
-      JacPDstandardNth22phi = PDstandardNth22phi;
-      
-      JacPDstandardNth33gt11 = PDstandardNth33gt11;
-      
-      JacPDstandardNth33gt12 = PDstandardNth33gt12;
-      
-      JacPDstandardNth33gt13 = PDstandardNth33gt13;
-      
-      JacPDstandardNth33gt22 = PDstandardNth33gt22;
-      
-      JacPDstandardNth33gt23 = PDstandardNth33gt23;
-      
-      JacPDstandardNth33gt33 = PDstandardNth33gt33;
-      
-      JacPDstandardNth33phi = PDstandardNth33phi;
-      
-      JacPDstandardNth12gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth12gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth12gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth12gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth12gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth12gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth12phi = PDstandardNth12phi;
-      
-      JacPDstandardNth13gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth13gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth13gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth13gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth13gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth13gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth13phi = PDstandardNth13phi;
-      
-      JacPDstandardNth21gt11 = PDstandardNth12gt11;
-      
-      JacPDstandardNth21gt12 = PDstandardNth12gt12;
-      
-      JacPDstandardNth21gt13 = PDstandardNth12gt13;
-      
-      JacPDstandardNth21gt22 = PDstandardNth12gt22;
-      
-      JacPDstandardNth21gt23 = PDstandardNth12gt23;
-      
-      JacPDstandardNth21gt33 = PDstandardNth12gt33;
-      
-      JacPDstandardNth23gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth23gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth23gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth23gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth23gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth23gt33 = PDstandardNth23gt33;
-      
-      JacPDstandardNth23phi = PDstandardNth23phi;
-      
-      JacPDstandardNth31gt11 = PDstandardNth13gt11;
-      
-      JacPDstandardNth31gt12 = PDstandardNth13gt12;
-      
-      JacPDstandardNth31gt13 = PDstandardNth13gt13;
-      
-      JacPDstandardNth31gt22 = PDstandardNth13gt22;
-      
-      JacPDstandardNth31gt23 = PDstandardNth13gt23;
-      
-      JacPDstandardNth31gt33 = PDstandardNth13gt33;
-      
-      JacPDstandardNth32gt11 = PDstandardNth23gt11;
-      
-      JacPDstandardNth32gt12 = PDstandardNth23gt12;
-      
-      JacPDstandardNth32gt13 = PDstandardNth23gt13;
-      
-      JacPDstandardNth32gt22 = PDstandardNth23gt22;
-      
-      JacPDstandardNth32gt23 = PDstandardNth23gt23;
-      
-      JacPDstandardNth32gt33 = PDstandardNth23gt33;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtlu111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl112,gtu12,kmul(Gtl113,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu112 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl112,gtu22,kmul(Gtl113,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu113 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl112,gtu23,kmul(Gtl113,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu121 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl122,gtu12,kmul(Gtl123,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu122 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl122,gtu22,kmul(Gtl123,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu123 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl122,gtu23,kmul(Gtl123,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu131 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl123,gtu12,kmul(Gtl133,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu132 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl123,gtu22,kmul(Gtl133,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu133 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl123,gtu23,kmul(Gtl133,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu211 = 
-      kmadd(Gtl211,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl213,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu212 = 
-      kmadd(Gtl211,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl213,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu213 = 
-      kmadd(Gtl211,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl213,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu221 = 
-      kmadd(Gtl212,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl223,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu222 = 
-      kmadd(Gtl212,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl223,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu223 = 
-      kmadd(Gtl212,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl223,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu231 = 
-      kmadd(Gtl213,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl233,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu232 = 
-      kmadd(Gtl213,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl233,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu233 = 
-      kmadd(Gtl213,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl233,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu311 = 
-      kmadd(Gtl311,gtu11,kmadd(Gtl312,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu312 = 
-      kmadd(Gtl311,gtu12,kmadd(Gtl312,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu313 = 
-      kmadd(Gtl311,gtu13,kmadd(Gtl312,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu321 = 
-      kmadd(Gtl312,gtu11,kmadd(Gtl322,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu322 = 
-      kmadd(Gtl312,gtu12,kmadd(Gtl322,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu323 = 
-      kmadd(Gtl312,gtu13,kmadd(Gtl322,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gtlu331 = 
-      kmadd(Gtl313,gtu11,kmadd(Gtl323,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gtlu332 = 
-      kmadd(Gtl313,gtu12,kmadd(Gtl323,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gtlu333 = 
-      kmadd(Gtl313,gtu13,kmadd(Gtl323,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC Xtn1 = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn2 = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xtn3 = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    CCTK_REAL_VEC em4phi = INV(e4phi);
-    
-    CCTK_REAL_VEC gu11 = kmul(em4phi,gtu11);
-    
-    CCTK_REAL_VEC gu12 = kmul(em4phi,gtu12);
-    
-    CCTK_REAL_VEC gu13 = kmul(em4phi,gtu13);
-    
-    CCTK_REAL_VEC gu22 = kmul(em4phi,gtu22);
-    
-    CCTK_REAL_VEC gu23 = kmul(em4phi,gtu23);
-    
-    CCTK_REAL_VEC gu33 = kmul(em4phi,gtu33);
-    
-    CCTK_REAL_VEC Rt11 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt11,knmsub(gtu22,JacPDstandardNth22gt11,knmsub(gtu33,JacPDstandardNth33gt11,knmsub(gtu12,kadd(JacPDstandardNth21gt11,JacPDstandardNth12gt11),knmsub(gtu13,kadd(JacPDstandardNth31gt11,JacPDstandardNth13gt11),knmsub(gtu23,kadd(JacPDstandardNth32gt11,JacPDstandardNth23gt11),kmadd(kmadd(Gt211,Gtlu211,kmadd(Gt212,Gtlu212,kmadd(Gt213,Gtlu213,kmadd(Gt311,Gtlu311,kmadd(Gt312,Gtlu312,kmadd(Gt313,Gtlu313,kmul(gt11L,JacPDstandardNth1Xt1))))))),ToReal(2),kmadd(gt12L,kmul(JacPDstandardNth1Xt2,ToReal(2)),kmadd(gt13L,kmul(JacPDstandardNth1Xt3,ToReal(2)),kmadd(Gtl111,kmul(Xtn1,ToReal(2)),kmadd(Gtl112,kmul(Xtn2,ToReal(2)),kmadd(Gtl113,kmul(Xtn3,ToReal(2)),kmadd(kmadd(Gt211,Gtlu121,kmadd(Gt212,Gtlu122,kmadd(Gt213,Gtlu123,kmadd(Gt311,Gtlu131,kmadd(Gt312,Gtlu132,kmul(Gt313,Gtlu133)))))),ToReal(4),kmul(kmadd(Gt111,Gtlu111,kmadd(Gt112,Gtlu112,kmul(Gt113,Gtlu113))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt12 = 
-      kmul(ToReal(0.5),kmadd(gt12L,JacPDstandardNth1Xt1,kmadd(gt22L,JacPDstandardNth1Xt2,kmadd(gt23L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth2Xt1,kmadd(gt12L,JacPDstandardNth2Xt2,kmadd(gt13L,JacPDstandardNth2Xt3,kmadd(Gtl112,Xtn1,kmadd(Gtl211,Xtn1,kmadd(Gtl122,Xtn2,kmadd(Gtl212,Xtn2,kmadd(Gtl123,Xtn3,kmadd(Gtl213,Xtn3,knmsub(gtu11,JacPDstandardNth11gt12,knmsub(gtu22,JacPDstandardNth22gt12,knmsub(gtu33,JacPDstandardNth33gt12,knmsub(gtu12,kadd(JacPDstandardNth21gt12,JacPDstandardNth12gt12),knmsub(gtu13,kadd(JacPDstandardNth31gt12,JacPDstandardNth13gt12),knmsub(gtu23,kadd(JacPDstandardNth32gt12,JacPDstandardNth23gt12),kmadd(kmadd(Gt122,Gtlu112,kmadd(Gt123,Gtlu113,kmadd(Gt111,Gtlu121,kmadd(Gt212,Gtlu121,kmadd(Gt222,Gtlu122,kmadd(Gt113,Gtlu123,kmadd(Gt223,Gtlu123,kmadd(Gt312,Gtlu131,kmadd(Gt322,Gtlu132,kmadd(Gt323,Gtlu133,kmadd(Gt111,Gtlu211,kmadd(Gt112,kadd(Gtlu111,kadd(Gtlu122,Gtlu212)),kmadd(Gt113,Gtlu213,kmadd(Gt311,Gtlu231,kmadd(Gt312,Gtlu232,kmadd(Gt313,Gtlu233,kmadd(Gt311,Gtlu321,kmadd(Gt312,Gtlu322,kmul(Gt313,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt211,Gtlu221,kmadd(Gt212,Gtlu222,kmul(Gt213,Gtlu223))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt13 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth1Xt1,kmadd(gt23L,JacPDstandardNth1Xt2,kmadd(gt33L,JacPDstandardNth1Xt3,kmadd(gt11L,JacPDstandardNth3Xt1,kmadd(gt12L,JacPDstandardNth3Xt2,kmadd(gt13L,JacPDstandardNth3Xt3,kmadd(Gtl113,Xtn1,kmadd(Gtl311,Xtn1,kmadd(Gtl123,Xtn2,kmadd(Gtl312,Xtn2,kmadd(Gtl133,Xtn3,kmadd(Gtl313,Xtn3,knmsub(gtu11,JacPDstandardNth11gt13,knmsub(gtu22,JacPDstandardNth22gt13,knmsub(gtu33,JacPDstandardNth33gt13,knmsub(gtu12,kadd(JacPDstandardNth21gt13,JacPDstandardNth12gt13),knmsub(gtu13,kadd(JacPDstandardNth31gt13,JacPDstandardNth13gt13),knmsub(gtu23,kadd(JacPDstandardNth32gt13,JacPDstandardNth23gt13),kmadd(kmadd(Gt123,Gtlu112,kmadd(Gt133,Gtlu113,kmadd(Gt213,Gtlu121,kmadd(Gt223,Gtlu122,kmadd(Gt233,Gtlu123,kmadd(Gt111,Gtlu131,kmadd(Gt313,Gtlu131,kmadd(Gt112,Gtlu132,kmadd(Gt323,Gtlu132,kmadd(Gt333,Gtlu133,kmadd(Gt211,Gtlu231,kmadd(Gt212,Gtlu232,kmadd(Gt213,Gtlu233,kmadd(Gt111,Gtlu311,kmadd(Gt112,Gtlu312,kmadd(Gt113,kadd(Gtlu111,kadd(Gtlu133,Gtlu313)),kmadd(Gt211,Gtlu321,kmadd(Gt212,Gtlu322,kmul(Gt213,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt311,Gtlu331,kmadd(Gt312,Gtlu332,kmul(Gt313,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt22 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt22,knmsub(gtu22,JacPDstandardNth22gt22,knmsub(gtu33,JacPDstandardNth33gt22,knmsub(gtu12,kadd(JacPDstandardNth21gt22,JacPDstandardNth12gt22),knmsub(gtu13,kadd(JacPDstandardNth31gt22,JacPDstandardNth13gt22),knmsub(gtu23,kadd(JacPDstandardNth32gt22,JacPDstandardNth23gt22),kmadd(gt22L,kmul(JacPDstandardNth2Xt2,ToReal(2)),kmadd(gt23L,kmul(JacPDstandardNth2Xt3,ToReal(2)),kmadd(Gtl212,kmul(Xtn1,ToReal(2)),kmadd(Gtl222,kmul(Xtn2,ToReal(2)),kmadd(Gtl223,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt123,Gtlu123,kmadd(Gt312,Gtlu321,kmadd(Gt322,Gtlu322,kmadd(Gt323,Gtlu323,kmadd(gt12L,JacPDstandardNth2Xt1,kmadd(Gt112,kmadd(Gtlu211,ToReal(2),Gtlu121),kmul(Gt122,kmadd(Gtlu212,ToReal(2),Gtlu122)))))))),kmadd(kmadd(Gt123,Gtlu213,kmadd(Gt312,Gtlu231,kmadd(Gt322,Gtlu232,kmul(Gt323,Gtlu233)))),ToReal(4),kmul(kmadd(Gt212,Gtlu221,kmadd(Gt222,Gtlu222,kmul(Gt223,Gtlu223))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC Rt23 = 
-      kmul(ToReal(0.5),kmadd(gt13L,JacPDstandardNth2Xt1,kmadd(gt23L,JacPDstandardNth2Xt2,kmadd(gt33L,JacPDstandardNth2Xt3,kmadd(gt12L,JacPDstandardNth3Xt1,kmadd(gt22L,JacPDstandardNth3Xt2,kmadd(gt23L,JacPDstandardNth3Xt3,kmadd(Gtl213,Xtn1,kmadd(Gtl312,Xtn1,kmadd(Gtl223,Xtn2,kmadd(Gtl322,Xtn2,kmadd(Gtl233,Xtn3,kmadd(Gtl323,Xtn3,knmsub(gtu11,JacPDstandardNth11gt23,knmsub(gtu22,JacPDstandardNth22gt23,knmsub(gtu33,JacPDstandardNth33gt23,knmsub(gtu12,kadd(JacPDstandardNth21gt23,JacPDstandardNth12gt23),knmsub(gtu13,kadd(JacPDstandardNth31gt23,JacPDstandardNth13gt23),knmsub(gtu23,kadd(JacPDstandardNth32gt23,JacPDstandardNth23gt23),kmadd(kmadd(Gt123,Gtlu133,kmadd(Gt113,Gtlu211,kmadd(Gt123,Gtlu212,kmadd(Gt133,Gtlu213,kmadd(Gt213,Gtlu221,kmadd(Gt223,Gtlu222,kmadd(Gt233,Gtlu223,kmadd(Gt212,Gtlu231,kmadd(Gt313,Gtlu231,kmadd(Gt222,Gtlu232,kmadd(Gt323,Gtlu232,kmadd(Gt223,Gtlu233,kmadd(Gt333,Gtlu233,kmadd(Gt112,kadd(Gtlu131,Gtlu311),kmadd(Gt122,kadd(Gtlu132,Gtlu312),kmadd(Gt123,Gtlu313,kmadd(Gt212,Gtlu321,kmadd(Gt222,Gtlu322,kmul(Gt223,Gtlu323))))))))))))))))))),ToReal(2),kmul(kmadd(Gt312,Gtlu331,kmadd(Gt322,Gtlu332,kmul(Gt323,Gtlu333))),ToReal(4))))))))))))))))))))));
-    
-    CCTK_REAL_VEC Rt33 = 
-      kmul(ToReal(0.5),knmsub(gtu11,JacPDstandardNth11gt33,knmsub(gtu22,JacPDstandardNth22gt33,knmsub(gtu33,JacPDstandardNth33gt33,knmsub(gtu12,kadd(JacPDstandardNth21gt33,JacPDstandardNth12gt33),knmsub(gtu13,kadd(JacPDstandardNth31gt33,JacPDstandardNth13gt33),knmsub(gtu23,kadd(JacPDstandardNth32gt33,JacPDstandardNth23gt33),kmadd(gt23L,kmul(JacPDstandardNth3Xt2,ToReal(2)),kmadd(gt33L,kmul(JacPDstandardNth3Xt3,ToReal(2)),kmadd(Gtl313,kmul(Xtn1,ToReal(2)),kmadd(Gtl323,kmul(Xtn2,ToReal(2)),kmadd(Gtl333,kmul(Xtn3,ToReal(2)),kmadd(ToReal(2),kmadd(Gt133,Gtlu133,kmadd(Gt213,Gtlu231,kmadd(Gt223,Gtlu232,kmadd(Gt233,Gtlu233,kmadd(gt13L,JacPDstandardNth3Xt1,kmadd(Gt113,kmadd(Gtlu311,ToReal(2),Gtlu131),kmul(Gt123,kmadd(Gtlu312,ToReal(2),Gtlu132)))))))),kmadd(kmadd(Gt133,Gtlu313,kmadd(Gt213,Gtlu321,kmadd(Gt223,Gtlu322,kmul(Gt233,Gtlu323)))),ToReal(4),kmul(kmadd(Gt313,Gtlu331,kmadd(Gt323,Gtlu332,kmul(Gt333,Gtlu333))),ToReal(6))))))))))))))));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC fac2 = IfThen(conformalMethod == 
-      1,kmul(INV(SQR(phiL)),ToReal(0.5)),ToReal(0));
-    
-    CCTK_REAL_VEC cdphi211 = 
-      kmadd(fac2,SQR(JacPDstandardNth1phi),kmul(fac1,ksub(JacPDstandardNth11phi,kmadd(Gt111,JacPDstandardNth1phi,kmadd(Gt311,JacPDstandardNth3phi,kmul(Gt211,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi212 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth2phi),kmul(fac1,ksub(JacPDstandardNth12phi,kmadd(Gt112,JacPDstandardNth1phi,kmadd(Gt312,JacPDstandardNth3phi,kmul(Gt212,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi213 = 
-      kmadd(fac2,kmul(JacPDstandardNth1phi,JacPDstandardNth3phi),kmul(fac1,ksub(JacPDstandardNth13phi,kmadd(Gt113,JacPDstandardNth1phi,kmadd(Gt313,JacPDstandardNth3phi,kmul(Gt213,JacPDstandardNth2phi))))));
-    
-    CCTK_REAL_VEC cdphi222 = 
-      kmsub(fac2,SQR(JacPDstandardNth2phi),kmul(fac1,kmadd(Gt122,JacPDstandardNth1phi,kmadd(Gt222,JacPDstandardNth2phi,kmsub(Gt322,JacPDstandardNth3phi,JacPDstandardNth22phi)))));
-    
-    CCTK_REAL_VEC cdphi223 = 
-      kmsub(fac2,kmul(JacPDstandardNth2phi,JacPDstandardNth3phi),kmul(fac1,kmadd(Gt123,JacPDstandardNth1phi,kmadd(Gt223,JacPDstandardNth2phi,kmsub(Gt323,JacPDstandardNth3phi,JacPDstandardNth23phi)))));
-    
-    CCTK_REAL_VEC cdphi233 = 
-      kmsub(fac2,SQR(JacPDstandardNth3phi),kmul(fac1,kmadd(Gt133,JacPDstandardNth1phi,kmadd(Gt233,JacPDstandardNth2phi,kmsub(Gt333,JacPDstandardNth3phi,JacPDstandardNth33phi)))));
-    
-    CCTK_REAL_VEC Rphi11 = 
-      kmul(ToReal(-2),kadd(cdphi211,kmadd(SQR(cdphi1),kmul(kmadd(gt11L,gtu11,ToReal(-1)),ToReal(2)),kmul(gt11L,kmadd(cdphi211,gtu11,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmul(kmadd(cdphi1,kmadd(cdphi2,gtu12,kmul(cdphi3,gtu13)),kmul(cdphi2,kmul(cdphi3,gtu23))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi12 = 
-      kmul(ToReal(-2),kadd(cdphi212,kmadd(gt12L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt12L,kmul(cdphi3,kmul(gtu13,ToReal(4))),kmul(cdphi2,kmadd(gt12L,kmul(gtu12,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi13 = 
-      kmul(ToReal(-2),kadd(cdphi213,kmadd(gt13L,kmadd(cdphi211,gtu11,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu11,SQR(cdphi1))))),ToReal(2),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi2,kmul(cdphi3,kmul(gtu23,ToReal(4)))))))),kmul(cdphi1,kmadd(gt13L,kmul(cdphi2,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt13L,kmul(gtu13,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi22 = 
-      kmul(ToReal(-2),kadd(cdphi222,kmadd(SQR(cdphi2),kmul(kmadd(gt22L,gtu22,ToReal(-1)),ToReal(2)),kmul(gt22L,kmadd(cdphi222,gtu22,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu33,SQR(cdphi3))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmul(kmadd(cdphi1,kmul(cdphi3,gtu13),kmul(cdphi2,kmadd(cdphi1,gtu12,kmul(cdphi3,gtu23)))),ToReal(4))))))))));
-    
-    CCTK_REAL_VEC Rphi23 = 
-      kmul(ToReal(-2),kadd(cdphi223,kmadd(gt23L,kmadd(cdphi222,gtu22,kmadd(kmadd(cdphi212,gtu12,kmadd(cdphi213,gtu13,kmadd(cdphi223,gtu23,kmul(gtu22,SQR(cdphi2))))),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu33,kmadd(SQR(cdphi3),ToReal(2),cdphi233),kmul(cdphi1,kmul(cdphi3,kmul(gtu13,ToReal(4)))))))),kmul(cdphi2,kmadd(gt23L,kmul(cdphi1,kmul(gtu12,ToReal(4))),kmul(cdphi3,kmadd(gt23L,kmul(gtu23,ToReal(4)),ToReal(-2))))))));
-    
-    CCTK_REAL_VEC Rphi33 = 
-      kmul(ToReal(-2),kadd(cdphi233,kmadd(SQR(cdphi3),kmul(kmadd(gt33L,gtu33,ToReal(-1)),ToReal(2)),kmul(gt33L,kmadd(cdphi233,gtu33,kmadd(kmadd(cdphi213,gtu13,kmul(cdphi223,gtu23)),ToReal(2),kmadd(gtu11,kmadd(SQR(cdphi1),ToReal(2),cdphi211),kmadd(gtu22,kmadd(SQR(cdphi2),ToReal(2),cdphi222),kmadd(cdphi3,kmul(kmadd(cdphi1,gtu13,kmul(cdphi2,gtu23)),ToReal(4)),kmul(gtu12,kmadd(cdphi212,ToReal(2),kmul(cdphi1,kmul(cdphi2,ToReal(4))))))))))))));
-    
-    CCTK_REAL_VEC R11 = kadd(Rphi11,Rt11);
-    
-    CCTK_REAL_VEC R12 = kadd(Rphi12,Rt12);
-    
-    CCTK_REAL_VEC R13 = kadd(Rphi13,Rt13);
-    
-    CCTK_REAL_VEC R22 = kadd(Rphi22,Rt22);
-    
-    CCTK_REAL_VEC R23 = kadd(Rphi23,Rt23);
-    
-    CCTK_REAL_VEC R33 = kadd(Rphi33,Rt33);
-    
-    CCTK_REAL_VEC trR = 
-      kmadd(gu11,R11,kmadd(gu22,R22,kmadd(gu33,R33,kmul(kmadd(gu12,R12,kmadd(gu13,R13,kmul(gu23,R23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Atm11 = 
-      kmadd(At11L,gtu11,kmadd(At12L,gtu12,kmul(At13L,gtu13)));
-    
-    CCTK_REAL_VEC Atm21 = 
-      kmadd(At11L,gtu12,kmadd(At12L,gtu22,kmul(At13L,gtu23)));
-    
-    CCTK_REAL_VEC Atm31 = 
-      kmadd(At11L,gtu13,kmadd(At12L,gtu23,kmul(At13L,gtu33)));
-    
-    CCTK_REAL_VEC Atm12 = 
-      kmadd(At12L,gtu11,kmadd(At22L,gtu12,kmul(At23L,gtu13)));
-    
-    CCTK_REAL_VEC Atm22 = 
-      kmadd(At12L,gtu12,kmadd(At22L,gtu22,kmul(At23L,gtu23)));
-    
-    CCTK_REAL_VEC Atm32 = 
-      kmadd(At12L,gtu13,kmadd(At22L,gtu23,kmul(At23L,gtu33)));
-    
-    CCTK_REAL_VEC Atm13 = 
-      kmadd(At13L,gtu11,kmadd(At23L,gtu12,kmul(At33L,gtu13)));
-    
-    CCTK_REAL_VEC Atm23 = 
-      kmadd(At13L,gtu12,kmadd(At23L,gtu22,kmul(At33L,gtu23)));
-    
-    CCTK_REAL_VEC Atm33 = 
-      kmadd(At13L,gtu13,kmadd(At23L,gtu23,kmul(At33L,gtu33)));
-    
-    CCTK_REAL_VEC rho = 
-      kmul(INV(SQR(alphaL)),kadd(eTttL,kmadd(eTxxL,SQR(beta1L),kmadd(eTyyL,SQR(beta2L),kmadd(eTzzL,SQR(beta3L),kmadd(kmadd(beta2L,eTtyL,kmul(beta3L,eTtzL)),ToReal(-2),kmul(kmadd(beta2L,kmul(beta3L,eTyzL),kmul(beta1L,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL)))),ToReal(2))))))));
-    
-    CCTK_REAL_VEC HL = 
-      kadd(trR,kmadd(kmadd(Atm12,Atm21,kmadd(Atm13,Atm31,kmul(Atm23,Atm32))),ToReal(-2),ksub(ksub(ksub(kmadd(SQR(trKL),ToReal(0.666666666666666666666666666667),kmul(rho,kmul(ToReal(-16),ToReal(Pi)))),SQR(Atm33)),SQR(Atm22)),SQR(Atm11))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(H[index],HL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_constraints1);
-}
-
-extern "C" void ML_BSSN_UPW_constraints1(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_constraints1_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_constraints1_calc_every != ML_BSSN_UPW_constraints1_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_Ham",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_constraints1", 8, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_constraints1", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_constraints1", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_constraints1", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_constraints1", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_UPW_constraints1_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_constraints1_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints2.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints2.cc
deleted file mode 100644
index 755f8b8..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints2.cc
+++ /dev/null
@@ -1,1004 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_constraints2_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_cons_detg","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_cons_detg.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_cons_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_cons_Gamma.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_cons_traceA","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_cons_traceA.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_mom","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_mom.");
-  return;
-}
-
-static void ML_BSSN_UPW_constraints2_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_constraints2,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    CCTK_REAL_VEC eTtxL, eTtyL, eTtzL, eTxxL, eTxyL, eTxzL, eTyyL, eTyzL, eTzzL;
-    
-    if (*stress_energy_state)
-    {
-      eTtxL = vec_load(eTtx[index]);
-      eTtyL = vec_load(eTty[index]);
-      eTtzL = vec_load(eTtz[index]);
-      eTxxL = vec_load(eTxx[index]);
-      eTxyL = vec_load(eTxy[index]);
-      eTxzL = vec_load(eTxz[index]);
-      eTyyL = vec_load(eTyy[index]);
-      eTyzL = vec_load(eTyz[index]);
-      eTzzL = vec_load(eTzz[index]);
-    }
-    else
-    {
-      eTtxL = ToReal(0.0);
-      eTtyL = ToReal(0.0);
-      eTtzL = ToReal(0.0);
-      eTxxL = ToReal(0.0);
-      eTxyL = ToReal(0.0);
-      eTxzL = ToReal(0.0);
-      eTyyL = ToReal(0.0);
-      eTyzL = ToReal(0.0);
-      eTzzL = ToReal(0.0);
-    }
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1At11;
-    CCTK_REAL_VEC PDstandardNth2At11;
-    CCTK_REAL_VEC PDstandardNth3At11;
-    CCTK_REAL_VEC PDstandardNth1At12;
-    CCTK_REAL_VEC PDstandardNth2At12;
-    CCTK_REAL_VEC PDstandardNth3At12;
-    CCTK_REAL_VEC PDstandardNth1At13;
-    CCTK_REAL_VEC PDstandardNth2At13;
-    CCTK_REAL_VEC PDstandardNth3At13;
-    CCTK_REAL_VEC PDstandardNth1At22;
-    CCTK_REAL_VEC PDstandardNth2At22;
-    CCTK_REAL_VEC PDstandardNth3At22;
-    CCTK_REAL_VEC PDstandardNth1At23;
-    CCTK_REAL_VEC PDstandardNth2At23;
-    CCTK_REAL_VEC PDstandardNth3At23;
-    CCTK_REAL_VEC PDstandardNth1At33;
-    CCTK_REAL_VEC PDstandardNth2At33;
-    CCTK_REAL_VEC PDstandardNth3At33;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    CCTK_REAL_VEC PDstandardNth1trK;
-    CCTK_REAL_VEC PDstandardNth2trK;
-    CCTK_REAL_VEC PDstandardNth3trK;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1At11 = PDstandardNthfdOrder21(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder22(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder23(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder21(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder22(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder23(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder21(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder22(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder23(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder21(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder22(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder23(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder21(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder22(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder23(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder21(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder22(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder23(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder21(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder22(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder23(&trK[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1At11 = PDstandardNthfdOrder41(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder42(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder43(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder41(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder42(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder43(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder41(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder42(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder43(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder41(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder42(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder43(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder41(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder42(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder43(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder41(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder42(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder43(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder41(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder42(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder43(&trK[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1At11 = PDstandardNthfdOrder61(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder62(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder63(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder61(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder62(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder63(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder61(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder62(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder63(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder61(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder62(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder63(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder61(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder62(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder63(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder61(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder62(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder63(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder61(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder62(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder63(&trK[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1At11 = PDstandardNthfdOrder81(&At11[index]);
-        PDstandardNth2At11 = PDstandardNthfdOrder82(&At11[index]);
-        PDstandardNth3At11 = PDstandardNthfdOrder83(&At11[index]);
-        PDstandardNth1At12 = PDstandardNthfdOrder81(&At12[index]);
-        PDstandardNth2At12 = PDstandardNthfdOrder82(&At12[index]);
-        PDstandardNth3At12 = PDstandardNthfdOrder83(&At12[index]);
-        PDstandardNth1At13 = PDstandardNthfdOrder81(&At13[index]);
-        PDstandardNth2At13 = PDstandardNthfdOrder82(&At13[index]);
-        PDstandardNth3At13 = PDstandardNthfdOrder83(&At13[index]);
-        PDstandardNth1At22 = PDstandardNthfdOrder81(&At22[index]);
-        PDstandardNth2At22 = PDstandardNthfdOrder82(&At22[index]);
-        PDstandardNth3At22 = PDstandardNthfdOrder83(&At22[index]);
-        PDstandardNth1At23 = PDstandardNthfdOrder81(&At23[index]);
-        PDstandardNth2At23 = PDstandardNthfdOrder82(&At23[index]);
-        PDstandardNth3At23 = PDstandardNthfdOrder83(&At23[index]);
-        PDstandardNth1At33 = PDstandardNthfdOrder81(&At33[index]);
-        PDstandardNth2At33 = PDstandardNthfdOrder82(&At33[index]);
-        PDstandardNth3At33 = PDstandardNthfdOrder83(&At33[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        PDstandardNth1trK = PDstandardNthfdOrder81(&trK[index]);
-        PDstandardNth2trK = PDstandardNthfdOrder82(&trK[index]);
-        PDstandardNth3trK = PDstandardNthfdOrder83(&trK[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandardNth1At11;
-    CCTK_REAL_VEC JacPDstandardNth1At12;
-    CCTK_REAL_VEC JacPDstandardNth1At13;
-    CCTK_REAL_VEC JacPDstandardNth1At22;
-    CCTK_REAL_VEC JacPDstandardNth1At23;
-    CCTK_REAL_VEC JacPDstandardNth1At33;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth1trK;
-    CCTK_REAL_VEC JacPDstandardNth2At11;
-    CCTK_REAL_VEC JacPDstandardNth2At12;
-    CCTK_REAL_VEC JacPDstandardNth2At13;
-    CCTK_REAL_VEC JacPDstandardNth2At22;
-    CCTK_REAL_VEC JacPDstandardNth2At23;
-    CCTK_REAL_VEC JacPDstandardNth2At33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth2trK;
-    CCTK_REAL_VEC JacPDstandardNth3At11;
-    CCTK_REAL_VEC JacPDstandardNth3At12;
-    CCTK_REAL_VEC JacPDstandardNth3At13;
-    CCTK_REAL_VEC JacPDstandardNth3At22;
-    CCTK_REAL_VEC JacPDstandardNth3At23;
-    CCTK_REAL_VEC JacPDstandardNth3At33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDstandardNth3trK;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1At11 = 
-        kmadd(J11L,PDstandardNth1At11,kmadd(J21L,PDstandardNth2At11,kmul(J31L,PDstandardNth3At11)));
-      
-      JacPDstandardNth1At12 = 
-        kmadd(J11L,PDstandardNth1At12,kmadd(J21L,PDstandardNth2At12,kmul(J31L,PDstandardNth3At12)));
-      
-      JacPDstandardNth1At13 = 
-        kmadd(J11L,PDstandardNth1At13,kmadd(J21L,PDstandardNth2At13,kmul(J31L,PDstandardNth3At13)));
-      
-      JacPDstandardNth1At22 = 
-        kmadd(J11L,PDstandardNth1At22,kmadd(J21L,PDstandardNth2At22,kmul(J31L,PDstandardNth3At22)));
-      
-      JacPDstandardNth1At23 = 
-        kmadd(J11L,PDstandardNth1At23,kmadd(J21L,PDstandardNth2At23,kmul(J31L,PDstandardNth3At23)));
-      
-      JacPDstandardNth1At33 = 
-        kmadd(J11L,PDstandardNth1At33,kmadd(J21L,PDstandardNth2At33,kmul(J31L,PDstandardNth3At33)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth1trK = 
-        kmadd(J11L,PDstandardNth1trK,kmadd(J21L,PDstandardNth2trK,kmul(J31L,PDstandardNth3trK)));
-      
-      JacPDstandardNth2At11 = 
-        kmadd(J12L,PDstandardNth1At11,kmadd(J22L,PDstandardNth2At11,kmul(J32L,PDstandardNth3At11)));
-      
-      JacPDstandardNth2At12 = 
-        kmadd(J12L,PDstandardNth1At12,kmadd(J22L,PDstandardNth2At12,kmul(J32L,PDstandardNth3At12)));
-      
-      JacPDstandardNth2At13 = 
-        kmadd(J12L,PDstandardNth1At13,kmadd(J22L,PDstandardNth2At13,kmul(J32L,PDstandardNth3At13)));
-      
-      JacPDstandardNth2At22 = 
-        kmadd(J12L,PDstandardNth1At22,kmadd(J22L,PDstandardNth2At22,kmul(J32L,PDstandardNth3At22)));
-      
-      JacPDstandardNth2At23 = 
-        kmadd(J12L,PDstandardNth1At23,kmadd(J22L,PDstandardNth2At23,kmul(J32L,PDstandardNth3At23)));
-      
-      JacPDstandardNth2At33 = 
-        kmadd(J12L,PDstandardNth1At33,kmadd(J22L,PDstandardNth2At33,kmul(J32L,PDstandardNth3At33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2trK = 
-        kmadd(J12L,PDstandardNth1trK,kmadd(J22L,PDstandardNth2trK,kmul(J32L,PDstandardNth3trK)));
-      
-      JacPDstandardNth3At11 = 
-        kmadd(J13L,PDstandardNth1At11,kmadd(J23L,PDstandardNth2At11,kmul(J33L,PDstandardNth3At11)));
-      
-      JacPDstandardNth3At12 = 
-        kmadd(J13L,PDstandardNth1At12,kmadd(J23L,PDstandardNth2At12,kmul(J33L,PDstandardNth3At12)));
-      
-      JacPDstandardNth3At13 = 
-        kmadd(J13L,PDstandardNth1At13,kmadd(J23L,PDstandardNth2At13,kmul(J33L,PDstandardNth3At13)));
-      
-      JacPDstandardNth3At22 = 
-        kmadd(J13L,PDstandardNth1At22,kmadd(J23L,PDstandardNth2At22,kmul(J33L,PDstandardNth3At22)));
-      
-      JacPDstandardNth3At23 = 
-        kmadd(J13L,PDstandardNth1At23,kmadd(J23L,PDstandardNth2At23,kmul(J33L,PDstandardNth3At23)));
-      
-      JacPDstandardNth3At33 = 
-        kmadd(J13L,PDstandardNth1At33,kmadd(J23L,PDstandardNth2At33,kmul(J33L,PDstandardNth3At33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3trK = 
-        kmadd(J13L,PDstandardNth1trK,kmadd(J23L,PDstandardNth2trK,kmul(J33L,PDstandardNth3trK)));
-    }
-    else
-    {
-      JacPDstandardNth1At11 = PDstandardNth1At11;
-      
-      JacPDstandardNth1At12 = PDstandardNth1At12;
-      
-      JacPDstandardNth1At13 = PDstandardNth1At13;
-      
-      JacPDstandardNth1At22 = PDstandardNth1At22;
-      
-      JacPDstandardNth1At23 = PDstandardNth1At23;
-      
-      JacPDstandardNth1At33 = PDstandardNth1At33;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth1trK = PDstandardNth1trK;
-      
-      JacPDstandardNth2At11 = PDstandardNth2At11;
-      
-      JacPDstandardNth2At12 = PDstandardNth2At12;
-      
-      JacPDstandardNth2At13 = PDstandardNth2At13;
-      
-      JacPDstandardNth2At22 = PDstandardNth2At22;
-      
-      JacPDstandardNth2At23 = PDstandardNth2At23;
-      
-      JacPDstandardNth2At33 = PDstandardNth2At33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth2trK = PDstandardNth2trK;
-      
-      JacPDstandardNth3At11 = PDstandardNth3At11;
-      
-      JacPDstandardNth3At12 = PDstandardNth3At12;
-      
-      JacPDstandardNth3At13 = PDstandardNth3At13;
-      
-      JacPDstandardNth3At22 = PDstandardNth3At22;
-      
-      JacPDstandardNth3At23 = PDstandardNth3At23;
-      
-      JacPDstandardNth3At33 = PDstandardNth3At33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDstandardNth3trK = PDstandardNth3trK;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gtl111 = kmul(JacPDstandardNth1gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl112 = kmul(JacPDstandardNth2gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl113 = kmul(JacPDstandardNth3gt11,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl122 = 
-      kmadd(JacPDstandardNth1gt22,ToReal(-0.5),JacPDstandardNth2gt12);
-    
-    CCTK_REAL_VEC Gtl123 = 
-      kmul(kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl133 = 
-      kmadd(JacPDstandardNth1gt33,ToReal(-0.5),JacPDstandardNth3gt13);
-    
-    CCTK_REAL_VEC Gtl211 = 
-      kmadd(JacPDstandardNth2gt11,ToReal(-0.5),JacPDstandardNth1gt12);
-    
-    CCTK_REAL_VEC Gtl212 = kmul(JacPDstandardNth1gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl213 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl222 = kmul(JacPDstandardNth2gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl223 = kmul(JacPDstandardNth3gt22,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl233 = 
-      kmadd(JacPDstandardNth2gt33,ToReal(-0.5),JacPDstandardNth3gt23);
-    
-    CCTK_REAL_VEC Gtl311 = 
-      kmadd(JacPDstandardNth3gt11,ToReal(-0.5),JacPDstandardNth1gt13);
-    
-    CCTK_REAL_VEC Gtl312 = 
-      kmul(kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl313 = kmul(JacPDstandardNth1gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl322 = 
-      kmadd(JacPDstandardNth3gt22,ToReal(-0.5),JacPDstandardNth2gt23);
-    
-    CCTK_REAL_VEC Gtl323 = kmul(JacPDstandardNth2gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gtl333 = kmul(JacPDstandardNth3gt33,ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmadd(Gtl111,gtu11,kmadd(Gtl211,gtu12,kmul(Gtl311,gtu13)));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmadd(Gtl111,gtu12,kmadd(Gtl211,gtu22,kmul(Gtl311,gtu23)));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmadd(Gtl111,gtu13,kmadd(Gtl211,gtu23,kmul(Gtl311,gtu33)));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmadd(Gtl112,gtu11,kmadd(Gtl212,gtu12,kmul(Gtl312,gtu13)));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmadd(Gtl112,gtu12,kmadd(Gtl212,gtu22,kmul(Gtl312,gtu23)));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmadd(Gtl112,gtu13,kmadd(Gtl212,gtu23,kmul(Gtl312,gtu33)));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmadd(Gtl113,gtu11,kmadd(Gtl213,gtu12,kmul(Gtl313,gtu13)));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmadd(Gtl113,gtu12,kmadd(Gtl213,gtu22,kmul(Gtl313,gtu23)));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmadd(Gtl113,gtu13,kmadd(Gtl213,gtu23,kmul(Gtl313,gtu33)));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmadd(Gtl122,gtu11,kmadd(Gtl222,gtu12,kmul(Gtl322,gtu13)));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmadd(Gtl122,gtu12,kmadd(Gtl222,gtu22,kmul(Gtl322,gtu23)));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmadd(Gtl122,gtu13,kmadd(Gtl222,gtu23,kmul(Gtl322,gtu33)));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmadd(Gtl123,gtu11,kmadd(Gtl223,gtu12,kmul(Gtl323,gtu13)));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmadd(Gtl123,gtu12,kmadd(Gtl223,gtu22,kmul(Gtl323,gtu23)));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmadd(Gtl123,gtu13,kmadd(Gtl223,gtu23,kmul(Gtl323,gtu33)));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmadd(Gtl133,gtu11,kmadd(Gtl233,gtu12,kmul(Gtl333,gtu13)));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmadd(Gtl133,gtu12,kmadd(Gtl233,gtu22,kmul(Gtl333,gtu23)));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmadd(Gtl133,gtu13,kmadd(Gtl233,gtu23,kmul(Gtl333,gtu33)));
-    
-    CCTK_REAL_VEC fac1 = IfThen(conformalMethod == 
-      1,kmul(INV(phiL),ToReal(-0.5)),ToReal(1));
-    
-    CCTK_REAL_VEC cdphi1 = kmul(fac1,JacPDstandardNth1phi);
-    
-    CCTK_REAL_VEC cdphi2 = kmul(fac1,JacPDstandardNth2phi);
-    
-    CCTK_REAL_VEC cdphi3 = kmul(fac1,JacPDstandardNth3phi);
-    
-    CCTK_REAL_VEC S1 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxxL,kmadd(beta2L,eTxyL,kmsub(beta3L,eTxzL,eTtxL))));
-    
-    CCTK_REAL_VEC S2 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxyL,kmadd(beta2L,eTyyL,kmsub(beta3L,eTyzL,eTtyL))));
-    
-    CCTK_REAL_VEC S3 = 
-      kmul(INV(alphaL),kmadd(beta1L,eTxzL,kmadd(beta2L,eTyzL,kmsub(beta3L,eTzzL,eTtzL))));
-    
-    CCTK_REAL_VEC M1L = 
-      kmadd(gtu11,JacPDstandardNth1At11,kmadd(gtu12,JacPDstandardNth2At11,kmadd(gtu22,JacPDstandardNth2At12,kmadd(gtu23,JacPDstandardNth2At13,kmadd(gtu13,JacPDstandardNth3At11,kmadd(gtu23,JacPDstandardNth3At12,kmadd(gtu33,JacPDstandardNth3At13,kmadd(gtu12,kadd(JacPDstandardNth1At12,kmsub(At13L,kmul(Gt312,ToReal(-3)),kmul(At22L,Gt211))),kmadd(gtu13,kadd(JacPDstandardNth1At13,kmsub(At13L,kmul(Gt313,ToReal(-3)),kmul(At23L,Gt211))),knmsub(gtu22,kmadd(At23L,Gt312,kmul(At22L,Gt212)),kmadd(Gt311,kmsub(At13L,kmul(gtu11,ToReal(-2)),kmadd(At33L,gtu13,kmul(At23L,gtu12))),kmadd(At13L,kmsub(Gt323,kmul(gtu23,ToReal(-2)),kmul(Gt113,gtu33)),kmadd(JacPDstandardNth1trK,ToReal(-0.666666666666666666666666666667),knmsub(At12L,kmadd(Gt111,gtu12,kmadd(Gt112,gtu22,kmadd(Gt222,gtu22,kmadd(Gt113,gtu23,kmadd(Gt233,gtu33,kmadd(cdphi1,kmul(gtu12,ToReal(-6)),kmadd(cdphi2,kmul(gtu22,ToReal(-6)),kmadd(cdphi3,kmul(gtu23,ToReal(-6)),kmadd(Gt211,kmul(gtu11,ToReal(2)),kmadd(Gt223,kmul(gtu23,ToReal(2)),kmadd(Gt212,kmul(gtu12,ToReal(3)),kmul(Gt213,kmul(gtu13,ToReal(3)))))))))))))),kmadd(gtu23,knmsub(At22L,Gt213,knmsub(At33L,Gt312,kmsub(At13L,kmul(cdphi2,ToReal(6)),kmul(At23L,kadd(Gt313,Gt212))))),kmadd(gtu33,knmsub(At23L,Gt213,kmsub(At13L,kmul(cdphi3,ToReal(6)),kmul(At33L,Gt313))),kmadd(At11L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt111,kmul(gtu11,ToReal(-2)),kmadd(Gt123,kmul(gtu23,ToReal(-2)),knmsub(Gt122,gtu22,knmsub(Gt133,gtu33,kmadd(cdphi1,kmul(gtu11,ToReal(6)),kmadd(cdphi2,kmul(gtu12,ToReal(6)),kmul(cdphi3,kmul(gtu13,ToReal(6))))))))))),kmadd(At13L,knmsub(Gt322,gtu22,knmsub(Gt112,gtu23,kmsub(gtu13,kmsub(cdphi1,ToReal(6),Gt111),kmul(Gt333,gtu33)))),kmul(S1,kmul(ToReal(-8),ToReal(Pi)))))))))))))))))))));
-    
-    CCTK_REAL_VEC M2L = 
-      kmadd(gtu11,JacPDstandardNth1At12,kmadd(gtu12,JacPDstandardNth1At22,kmadd(gtu13,JacPDstandardNth1At23,kmadd(gtu12,JacPDstandardNth2At12,kmadd(gtu22,JacPDstandardNth2At22,kmadd(gtu23,JacPDstandardNth2At23,kmadd(gtu13,JacPDstandardNth3At12,kmadd(gtu23,JacPDstandardNth3At22,kmadd(gtu33,JacPDstandardNth3At23,kmadd(At22L,kmul(Gt222,kmul(gtu22,ToReal(-2))),knmsub(At11L,kmadd(Gt112,gtu11,kmadd(Gt122,gtu12,kmul(Gt123,gtu13))),knmsub(gtu11,kmadd(At22L,Gt211,kmadd(At13L,Gt312,kmul(At23L,Gt311))),kmadd(Gt212,kmsub(At22L,kmul(gtu12,ToReal(-3)),kmul(At23L,gtu13)),kmadd(Gt312,kmsub(At23L,kmul(gtu12,ToReal(-3)),kmul(At33L,gtu13)),kmadd(Gt322,kmsub(At23L,kmul(gtu22,ToReal(-2)),kmul(At33L,gtu23)),kmadd(Gt223,kmsub(At22L,kmul(gtu23,ToReal(-3)),kmul(At23L,gtu33)),kmadd(Gt323,kmsub(At23L,kmul(gtu23,ToReal(-3)),kmul(At33L,gtu33)),kmadd(At22L,kmsub(Gt213,kmul(gtu13,ToReal(-2)),kmul(Gt233,gtu33)),kmadd(At23L,kmsub(Gt313,kmul(gtu13,ToReal(-2)),kmadd(Gt333,gtu33,kmul(Gt222,gtu23))),kmadd(JacPDstandardNth2trK,ToReal(-0.666666666666666666666666666667),kmadd(At22L,kmul(cdphi2,kmul(gtu22,ToReal(6))),kmadd(At22L,kmul(cdphi3,kmul(gtu23,ToReal(6))),kmadd(gtu12,kmsub(At22L,kmul(cdphi1,ToReal(6)),kmul(At13L,Gt322)),kmadd(gtu13,kmsub(At23L,kmul(cdphi1,ToReal(6)),kmul(At13L,kadd(Gt323,Gt112))),kmadd(gtu23,kmsub(At23L,kmul(cdphi2,ToReal(6)),kmul(At13L,Gt122)),kmadd(gtu33,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At13L,Gt123)),kmadd(At12L,kmadd(Gt112,kmul(gtu12,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt113,kmul(gtu13,ToReal(-2)),kmadd(Gt122,kmul(gtu22,ToReal(-2)),knmsub(Gt133,gtu33,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt212),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt222),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt223))))))))),kmul(S2,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC M3L = 
-      kmadd(gtu11,JacPDstandardNth1At13,kmadd(gtu12,JacPDstandardNth1At23,kmadd(gtu13,JacPDstandardNth1At33,kmadd(gtu12,JacPDstandardNth2At13,kmadd(gtu22,JacPDstandardNth2At23,kmadd(gtu23,JacPDstandardNth2At33,kmadd(gtu13,JacPDstandardNth3At13,kmadd(gtu23,JacPDstandardNth3At23,kmadd(gtu33,JacPDstandardNth3At33,kmadd(At33L,kmul(Gt313,kmul(gtu13,ToReal(-3))),kmadd(At23L,kmul(Gt223,kmul(gtu23,ToReal(-3))),kmadd(At33L,kmul(Gt323,kmul(gtu23,ToReal(-3))),kmadd(At23L,kmul(Gt233,kmul(gtu33,ToReal(-2))),kmadd(At33L,kmul(Gt333,kmul(gtu33,ToReal(-2))),knmsub(At11L,kmadd(Gt113,gtu11,kmadd(Gt123,gtu12,kmul(Gt133,gtu13))),kmadd(gtu12,kmsub(At23L,kmul(Gt212,ToReal(-2)),kmul(At12L,Gt223)),knmsub(gtu11,kmadd(At23L,Gt211,kmadd(At33L,Gt311,kmul(At12L,Gt213))),kmadd(At33L,kmsub(Gt312,kmul(gtu12,ToReal(-2)),kmul(Gt322,gtu22)),kmadd(At23L,kmsub(Gt213,kmul(gtu13,ToReal(-3)),kmadd(Gt333,gtu23,kmul(Gt222,gtu22))),kmadd(JacPDstandardNth3trK,ToReal(-0.666666666666666666666666666667),kmadd(At33L,kmul(cdphi3,kmul(gtu33,ToReal(6))),kmadd(gtu13,kmsub(At33L,kmul(cdphi1,ToReal(6)),kmul(At12L,Gt233)),kmadd(gtu23,kmsub(At33L,kmul(cdphi2,ToReal(6)),kmul(At12L,Gt133)),kmadd(gtu23,kmsub(At23L,kmul(cdphi3,ToReal(6)),kmul(At22L,Gt233)),kmadd(gtu12,knmsub(At12L,Gt113,kmsub(At23L,kmsub(cdphi1,ToReal(6),Gt313),kmul(At22L,Gt213))),kmadd(gtu22,knmsub(At12L,Gt123,kmsub(At23L,kmsub(cdphi2,ToReal(6),Gt323),kmul(At22L,Gt223))),kmadd(At13L,kmadd(Gt113,kmul(gtu13,ToReal(-3)),kmadd(Gt123,kmul(gtu23,ToReal(-3)),kmadd(Gt112,kmul(gtu12,ToReal(-2)),kmadd(Gt133,kmul(gtu33,ToReal(-2)),knmsub(Gt122,gtu22,kmadd(gtu11,ksub(kmsub(cdphi1,ToReal(6),Gt313),Gt111),kmadd(gtu12,kmsub(cdphi2,ToReal(6),Gt323),kmul(gtu13,kmsub(cdphi3,ToReal(6),Gt333))))))))),kmul(S3,kmul(ToReal(-8),ToReal(Pi))))))))))))))))))))))))))))));
-    
-    CCTK_REAL_VEC cSL = klog(detgt);
-    
-    CCTK_REAL_VEC cXt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmsub(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2),Xt1L))));
-    
-    CCTK_REAL_VEC cXt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmsub(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2),Xt2L))));
-    
-    CCTK_REAL_VEC cXt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmsub(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2),Xt3L))));
-    
-    CCTK_REAL_VEC cAL = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(cA[index],cAL);
-    vec_store_nta_partial(cS[index],cSL);
-    vec_store_nta_partial(cXt1[index],cXt1L);
-    vec_store_nta_partial(cXt2[index],cXt2L);
-    vec_store_nta_partial(cXt3[index],cXt3L);
-    vec_store_nta_partial(M1[index],M1L);
-    vec_store_nta_partial(M2[index],M2L);
-    vec_store_nta_partial(M3[index],M3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_constraints2);
-}
-
-extern "C" void ML_BSSN_UPW_constraints2(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_constraints2_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_constraints2_calc_every != ML_BSSN_UPW_constraints2_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_cons_detg",
-    "ML_BSSN_UPW::ML_cons_Gamma",
-    "ML_BSSN_UPW::ML_cons_traceA",
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_mom",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_constraints2", 11, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_constraints2", 1, 1, 1);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_constraints2", 2, 2, 2);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_constraints2", 3, 3, 3);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_constraints2", 4, 4, 4);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_UPW_constraints2_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_constraints2_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBase.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBase.cc
deleted file mode 100644
index 92610ec..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBase.cc
+++ /dev/null
@@ -1,400 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_UPW_convertFromADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_convertFromADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alpL = vec_load(alp[index]);
-    CCTK_REAL_VEC betaxL = vec_load(betax[index]);
-    CCTK_REAL_VEC betayL = vec_load(betay[index]);
-    CCTK_REAL_VEC betazL = vec_load(betaz[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC kxxL = vec_load(kxx[index]);
-    CCTK_REAL_VEC kxyL = vec_load(kxy[index]);
-    CCTK_REAL_VEC kxzL = vec_load(kxz[index]);
-    CCTK_REAL_VEC kyyL = vec_load(kyy[index]);
-    CCTK_REAL_VEC kyzL = vec_load(kyz[index]);
-    CCTK_REAL_VEC kzzL = vec_load(kzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC g11 = gxxL;
-    
-    CCTK_REAL_VEC g12 = gxyL;
-    
-    CCTK_REAL_VEC g13 = gxzL;
-    
-    CCTK_REAL_VEC g22 = gyyL;
-    
-    CCTK_REAL_VEC g23 = gyzL;
-    
-    CCTK_REAL_VEC g33 = gzzL;
-    
-    CCTK_REAL_VEC detg = 
-      knmsub(g22,SQR(g13),knmsub(g11,SQR(g23),kmadd(g33,kmsub(g11,g22,SQR(g12)),kmul(g12,kmul(g13,kmul(g23,ToReal(2)))))));
-    
-    CCTK_REAL_VEC gu11 = kmul(INV(detg),kmsub(g22,g33,SQR(g23)));
-    
-    CCTK_REAL_VEC gu12 = kmul(INV(detg),kmsub(g13,g23,kmul(g12,g33)));
-    
-    CCTK_REAL_VEC gu13 = kmul(INV(detg),kmsub(g12,g23,kmul(g13,g22)));
-    
-    CCTK_REAL_VEC gu22 = kmul(INV(detg),kmsub(g11,g33,SQR(g13)));
-    
-    CCTK_REAL_VEC gu23 = kmul(INV(detg),kmsub(g12,g13,kmul(g11,g23)));
-    
-    CCTK_REAL_VEC gu33 = kmul(INV(detg),kmsub(g11,g22,SQR(g12)));
-    
-    CCTK_REAL_VEC em4phi;
-    
-    if (conformalMethod == 1)
-    {
-      phiL = kpow(detg,-0.166666666666666666666666666667);
-      
-      em4phi = SQR(phiL);
-    }
-    else
-    {
-      phiL = kmul(klog(detg),ToReal(0.0833333333333333333333333333333));
-      
-      em4phi = kexp(kmul(phiL,ToReal(-4)));
-    }
-    
-    CCTK_REAL_VEC gt11L = kmul(em4phi,g11);
-    
-    CCTK_REAL_VEC gt12L = kmul(em4phi,g12);
-    
-    CCTK_REAL_VEC gt13L = kmul(em4phi,g13);
-    
-    CCTK_REAL_VEC gt22L = kmul(em4phi,g22);
-    
-    CCTK_REAL_VEC gt23L = kmul(em4phi,g23);
-    
-    CCTK_REAL_VEC gt33L = kmul(em4phi,g33);
-    
-    trKL = 
-      kmadd(kxxL,gu11,kmadd(kyyL,gu22,kmadd(kzzL,gu33,kmul(kmadd(kxyL,gu12,kmadd(kxzL,gu13,kmul(kyzL,gu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC At11L = 
-      kmul(em4phi,kmadd(trKL,kmul(g11,ToReal(-0.333333333333333333333333333333)),kxxL));
-    
-    CCTK_REAL_VEC At12L = 
-      kmul(em4phi,kmadd(trKL,kmul(g12,ToReal(-0.333333333333333333333333333333)),kxyL));
-    
-    CCTK_REAL_VEC At13L = 
-      kmul(em4phi,kmadd(trKL,kmul(g13,ToReal(-0.333333333333333333333333333333)),kxzL));
-    
-    CCTK_REAL_VEC At22L = 
-      kmul(em4phi,kmadd(trKL,kmul(g22,ToReal(-0.333333333333333333333333333333)),kyyL));
-    
-    CCTK_REAL_VEC At23L = 
-      kmul(em4phi,kmadd(trKL,kmul(g23,ToReal(-0.333333333333333333333333333333)),kyzL));
-    
-    CCTK_REAL_VEC At33L = 
-      kmul(em4phi,kmadd(trKL,kmul(g33,ToReal(-0.333333333333333333333333333333)),kzzL));
-    
-    CCTK_REAL_VEC alphaL = alpL;
-    
-    CCTK_REAL_VEC beta1L = betaxL;
-    
-    CCTK_REAL_VEC beta2L = betayL;
-    
-    CCTK_REAL_VEC beta3L = betazL;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-    vec_store_nta_partial(beta1[index],beta1L);
-    vec_store_nta_partial(beta2[index],beta2L);
-    vec_store_nta_partial(beta3[index],beta3L);
-    vec_store_nta_partial(gt11[index],gt11L);
-    vec_store_nta_partial(gt12[index],gt12L);
-    vec_store_nta_partial(gt13[index],gt13L);
-    vec_store_nta_partial(gt22[index],gt22L);
-    vec_store_nta_partial(gt23[index],gt23L);
-    vec_store_nta_partial(gt33[index],gt33L);
-    vec_store_nta_partial(phi[index],phiL);
-    vec_store_nta_partial(trK[index],trKL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_convertFromADMBase);
-}
-
-extern "C" void ML_BSSN_UPW_convertFromADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_convertFromADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_convertFromADMBase_calc_every != ML_BSSN_UPW_convertFromADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_convertFromADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_UPW_convertFromADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_convertFromADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBaseGamma.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBaseGamma.cc
deleted file mode 100644
index 332de3c..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBaseGamma.cc
+++ /dev/null
@@ -1,794 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_convertFromADMBaseGamma_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_dtshift.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_UPW::ML_Gamma","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_UPW::ML_Gamma.");
-  return;
-}
-
-static void ML_BSSN_UPW_convertFromADMBaseGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_convertFromADMBaseGamma,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC dtalpL = vec_load(dtalp[index]);
-    CCTK_REAL_VEC dtbetaxL = vec_load(dtbetax[index]);
-    CCTK_REAL_VEC dtbetayL = vec_load(dtbetay[index]);
-    CCTK_REAL_VEC dtbetazL = vec_load(dtbetaz[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDupwindNth1alpha;
-    CCTK_REAL_VEC PDupwindNth2alpha;
-    CCTK_REAL_VEC PDupwindNth3alpha;
-    CCTK_REAL_VEC PDupwindNth1beta1;
-    CCTK_REAL_VEC PDupwindNth2beta1;
-    CCTK_REAL_VEC PDupwindNth3beta1;
-    CCTK_REAL_VEC PDupwindNth1beta2;
-    CCTK_REAL_VEC PDupwindNth2beta2;
-    CCTK_REAL_VEC PDupwindNth3beta2;
-    CCTK_REAL_VEC PDupwindNth1beta3;
-    CCTK_REAL_VEC PDupwindNth2beta3;
-    CCTK_REAL_VEC PDupwindNth3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDupwindNth1alpha = PDupwindNthfdOrder21(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder22(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder23(&alpha[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder21(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder22(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder23(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder21(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder22(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder23(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder21(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder22(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        break;
-      
-      case 4:
-        PDupwindNth1alpha = PDupwindNthfdOrder41(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder42(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder43(&alpha[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder41(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder42(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder43(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder41(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder42(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder43(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder41(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder42(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        break;
-      
-      case 6:
-        PDupwindNth1alpha = PDupwindNthfdOrder61(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder62(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder63(&alpha[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder61(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder62(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder63(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder61(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder62(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder63(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder61(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder62(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        break;
-      
-      case 8:
-        PDupwindNth1alpha = PDupwindNthfdOrder81(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder82(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder83(&alpha[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder81(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder82(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder83(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder81(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder82(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder83(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder81(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder82(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDupwindNth1alpha;
-    CCTK_REAL_VEC JacPDupwindNth1beta1;
-    CCTK_REAL_VEC JacPDupwindNth1beta2;
-    CCTK_REAL_VEC JacPDupwindNth1beta3;
-    CCTK_REAL_VEC JacPDupwindNth2alpha;
-    CCTK_REAL_VEC JacPDupwindNth2beta1;
-    CCTK_REAL_VEC JacPDupwindNth2beta2;
-    CCTK_REAL_VEC JacPDupwindNth2beta3;
-    CCTK_REAL_VEC JacPDupwindNth3alpha;
-    CCTK_REAL_VEC JacPDupwindNth3beta1;
-    CCTK_REAL_VEC JacPDupwindNth3beta2;
-    CCTK_REAL_VEC JacPDupwindNth3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDupwindNth1alpha = 
-        kmadd(J11L,PDupwindNth1alpha,kmadd(J21L,PDupwindNth2alpha,kmul(J31L,PDupwindNth3alpha)));
-      
-      JacPDupwindNth1beta1 = 
-        kmadd(J11L,PDupwindNth1beta1,kmadd(J21L,PDupwindNth2beta1,kmul(J31L,PDupwindNth3beta1)));
-      
-      JacPDupwindNth1beta2 = 
-        kmadd(J11L,PDupwindNth1beta2,kmadd(J21L,PDupwindNth2beta2,kmul(J31L,PDupwindNth3beta2)));
-      
-      JacPDupwindNth1beta3 = 
-        kmadd(J11L,PDupwindNth1beta3,kmadd(J21L,PDupwindNth2beta3,kmul(J31L,PDupwindNth3beta3)));
-      
-      JacPDupwindNth2alpha = 
-        kmadd(J12L,PDupwindNth1alpha,kmadd(J22L,PDupwindNth2alpha,kmul(J32L,PDupwindNth3alpha)));
-      
-      JacPDupwindNth2beta1 = 
-        kmadd(J12L,PDupwindNth1beta1,kmadd(J22L,PDupwindNth2beta1,kmul(J32L,PDupwindNth3beta1)));
-      
-      JacPDupwindNth2beta2 = 
-        kmadd(J12L,PDupwindNth1beta2,kmadd(J22L,PDupwindNth2beta2,kmul(J32L,PDupwindNth3beta2)));
-      
-      JacPDupwindNth2beta3 = 
-        kmadd(J12L,PDupwindNth1beta3,kmadd(J22L,PDupwindNth2beta3,kmul(J32L,PDupwindNth3beta3)));
-      
-      JacPDupwindNth3alpha = 
-        kmadd(J13L,PDupwindNth1alpha,kmadd(J23L,PDupwindNth2alpha,kmul(J33L,PDupwindNth3alpha)));
-      
-      JacPDupwindNth3beta1 = 
-        kmadd(J13L,PDupwindNth1beta1,kmadd(J23L,PDupwindNth2beta1,kmul(J33L,PDupwindNth3beta1)));
-      
-      JacPDupwindNth3beta2 = 
-        kmadd(J13L,PDupwindNth1beta2,kmadd(J23L,PDupwindNth2beta2,kmul(J33L,PDupwindNth3beta2)));
-      
-      JacPDupwindNth3beta3 = 
-        kmadd(J13L,PDupwindNth1beta3,kmadd(J23L,PDupwindNth2beta3,kmul(J33L,PDupwindNth3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDupwindNth1alpha = PDupwindNth1alpha;
-      
-      JacPDupwindNth1beta1 = PDupwindNth1beta1;
-      
-      JacPDupwindNth1beta2 = PDupwindNth1beta2;
-      
-      JacPDupwindNth1beta3 = PDupwindNth1beta3;
-      
-      JacPDupwindNth2alpha = PDupwindNth2alpha;
-      
-      JacPDupwindNth2beta1 = PDupwindNth2beta1;
-      
-      JacPDupwindNth2beta2 = PDupwindNth2beta2;
-      
-      JacPDupwindNth2beta3 = PDupwindNth2beta3;
-      
-      JacPDupwindNth3alpha = PDupwindNth3alpha;
-      
-      JacPDupwindNth3beta1 = PDupwindNth3beta1;
-      
-      JacPDupwindNth3beta2 = PDupwindNth3beta2;
-      
-      JacPDupwindNth3beta3 = PDupwindNth3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC Gt111 = 
-      kmul(ToReal(0.5),kmadd(gtu11,JacPDstandardNth1gt11,knmsub(gtu12,JacPDstandardNth2gt11,kmsub(kmadd(gtu12,JacPDstandardNth1gt12,kmul(gtu13,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu13,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt211 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth1gt11,knmsub(gtu22,JacPDstandardNth2gt11,kmsub(kmadd(gtu22,JacPDstandardNth1gt12,kmul(gtu23,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu23,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt311 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth1gt11,knmsub(gtu23,JacPDstandardNth2gt11,kmsub(kmadd(gtu23,JacPDstandardNth1gt12,kmul(gtu33,JacPDstandardNth1gt13)),ToReal(2),kmul(gtu33,JacPDstandardNth3gt11)))));
-    
-    CCTK_REAL_VEC Gt112 = 
-      kmul(kmadd(gtu12,JacPDstandardNth1gt22,kmadd(gtu11,JacPDstandardNth2gt11,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt212 = 
-      kmul(kmadd(gtu22,JacPDstandardNth1gt22,kmadd(gtu12,JacPDstandardNth2gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt312 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt22,kmadd(gtu13,JacPDstandardNth2gt11,kmul(gtu33,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt113 = 
-      kmul(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu11,JacPDstandardNth3gt11,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt213 = 
-      kmul(kmadd(gtu23,JacPDstandardNth1gt33,kmadd(gtu12,JacPDstandardNth3gt11,kmul(gtu22,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt313 = 
-      kmul(kmadd(gtu33,JacPDstandardNth1gt33,kmadd(gtu13,JacPDstandardNth3gt11,kmul(gtu23,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt122 = 
-      kmul(ToReal(0.5),kmadd(gtu12,JacPDstandardNth2gt22,kmadd(gtu11,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu13,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt222 = 
-      kmul(ToReal(0.5),kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu12,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu23,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt322 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth2gt22,kmadd(gtu13,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmul(gtu33,kmsub(JacPDstandardNth2gt23,ToReal(2),JacPDstandardNth3gt22)))));
-    
-    CCTK_REAL_VEC Gt123 = 
-      kmul(kmadd(gtu13,JacPDstandardNth2gt33,kmadd(gtu12,JacPDstandardNth3gt22,kmul(gtu11,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt223 = 
-      kmul(kmadd(gtu23,JacPDstandardNth2gt33,kmadd(gtu22,JacPDstandardNth3gt22,kmul(gtu12,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt323 = 
-      kmul(kmadd(gtu33,JacPDstandardNth2gt33,kmadd(gtu23,JacPDstandardNth3gt22,kmul(gtu13,kadd(JacPDstandardNth2gt13,ksub(JacPDstandardNth3gt12,JacPDstandardNth1gt23))))),ToReal(0.5));
-    
-    CCTK_REAL_VEC Gt133 = 
-      kmul(ToReal(0.5),kmadd(gtu13,JacPDstandardNth3gt33,kmadd(gtu11,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu12,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt233 = 
-      kmul(ToReal(0.5),kmadd(gtu23,JacPDstandardNth3gt33,kmadd(gtu12,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu22,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Gt333 = 
-      kmul(ToReal(0.5),kmadd(gtu33,JacPDstandardNth3gt33,kmadd(gtu13,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33)))));
-    
-    CCTK_REAL_VEC Xt1L = 
-      kmadd(Gt111,gtu11,kmadd(Gt122,gtu22,kmadd(Gt133,gtu33,kmul(kmadd(Gt112,gtu12,kmadd(Gt113,gtu13,kmul(Gt123,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt2L = 
-      kmadd(Gt211,gtu11,kmadd(Gt222,gtu22,kmadd(Gt233,gtu33,kmul(kmadd(Gt212,gtu12,kmadd(Gt213,gtu13,kmul(Gt223,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC Xt3L = 
-      kmadd(Gt311,gtu11,kmadd(Gt322,gtu22,kmadd(Gt333,gtu33,kmul(kmadd(Gt312,gtu12,kmadd(Gt313,gtu13,kmul(Gt323,gtu23))),ToReal(2)))));
-    
-    CCTK_REAL_VEC AL = IfThen(LapseACoeff != 
-      0,kmul(INV(ToReal(harmonicF)),kmul(kpow(alphaL,-harmonicN),kmsub(kmadd(beta1L,JacPDupwindNth1alpha,kmadd(beta2L,JacPDupwindNth2alpha,kmul(beta3L,JacPDupwindNth3alpha))),ToReal(LapseAdvectionCoeff),dtalpL))),ToReal(0));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC B1L;
-    CCTK_REAL_VEC B2L;
-    CCTK_REAL_VEC B3L;
-    
-    if (ShiftBCoeff*ShiftGammaCoeff != 0)
-    {
-      B1L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNth1beta1,kmadd(beta2L,JacPDupwindNth2beta1,kmul(beta3L,JacPDupwindNth3beta1))),ToReal(ShiftAdvectionCoeff),dtbetaxL));
-      
-      B2L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNth1beta2,kmadd(beta2L,JacPDupwindNth2beta2,kmul(beta3L,JacPDupwindNth3beta2))),ToReal(ShiftAdvectionCoeff),dtbetayL));
-      
-      B3L = 
-        kmul(INV(kmul(theta,ToReal(ShiftGammaCoeff))),knmsub(kmadd(beta1L,JacPDupwindNth1beta3,kmadd(beta2L,JacPDupwindNth2beta3,kmul(beta3L,JacPDupwindNth3beta3))),ToReal(ShiftAdvectionCoeff),dtbetazL));
-    }
-    else
-    {
-      B1L = ToReal(0);
-      
-      B2L = ToReal(0);
-      
-      B3L = ToReal(0);
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(A[index],AL);
-    vec_store_nta_partial(B1[index],B1L);
-    vec_store_nta_partial(B2[index],B2L);
-    vec_store_nta_partial(B3[index],B3L);
-    vec_store_nta_partial(Xt1[index],Xt1L);
-    vec_store_nta_partial(Xt2[index],Xt2L);
-    vec_store_nta_partial(Xt3[index],Xt3L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_convertFromADMBaseGamma);
-}
-
-extern "C" void ML_BSSN_UPW_convertFromADMBaseGamma(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_convertFromADMBaseGamma_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_convertFromADMBaseGamma_calc_every != ML_BSSN_UPW_convertFromADMBaseGamma_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_shift"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_convertFromADMBaseGamma", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_convertFromADMBaseGamma", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_convertFromADMBaseGamma", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_convertFromADMBaseGamma", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_convertFromADMBaseGamma", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_UPW_convertFromADMBaseGamma_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_convertFromADMBaseGamma_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBase.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBase.cc
deleted file mode 100644
index 865d18a..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBase.cc
+++ /dev/null
@@ -1,362 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_UPW_convertToADMBase_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_convertToADMBase,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC gxxL = vec_load(gxx[index]);
-    CCTK_REAL_VEC gxyL = vec_load(gxy[index]);
-    CCTK_REAL_VEC gxzL = vec_load(gxz[index]);
-    CCTK_REAL_VEC gyyL = vec_load(gyy[index]);
-    CCTK_REAL_VEC gyzL = vec_load(gyz[index]);
-    CCTK_REAL_VEC gzzL = vec_load(gzz[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC e4phi = IfThen(conformalMethod == 
-      1,INV(SQR(phiL)),kexp(kmul(phiL,ToReal(4))));
-    
-    gxxL = kmul(gt11L,e4phi);
-    
-    gxyL = kmul(gt12L,e4phi);
-    
-    gxzL = kmul(gt13L,e4phi);
-    
-    gyyL = kmul(gt22L,e4phi);
-    
-    gyzL = kmul(gt23L,e4phi);
-    
-    gzzL = kmul(gt33L,e4phi);
-    
-    CCTK_REAL_VEC kxxL = 
-      kmadd(At11L,e4phi,kmul(gxxL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxyL = 
-      kmadd(At12L,e4phi,kmul(gxyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kxzL = 
-      kmadd(At13L,e4phi,kmul(gxzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyyL = 
-      kmadd(At22L,e4phi,kmul(gyyL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kyzL = 
-      kmadd(At23L,e4phi,kmul(gyzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC kzzL = 
-      kmadd(At33L,e4phi,kmul(gzzL,kmul(trKL,ToReal(0.333333333333333333333333333333))));
-    
-    CCTK_REAL_VEC alpL = alphaL;
-    
-    CCTK_REAL_VEC betaxL = beta1L;
-    
-    CCTK_REAL_VEC betayL = beta2L;
-    
-    CCTK_REAL_VEC betazL = beta3L;
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alp[index],alpL);
-    vec_store_nta_partial(betax[index],betaxL);
-    vec_store_nta_partial(betay[index],betayL);
-    vec_store_nta_partial(betaz[index],betazL);
-    vec_store_nta_partial(gxx[index],gxxL);
-    vec_store_nta_partial(gxy[index],gxyL);
-    vec_store_nta_partial(gxz[index],gxzL);
-    vec_store_nta_partial(gyy[index],gyyL);
-    vec_store_nta_partial(gyz[index],gyzL);
-    vec_store_nta_partial(gzz[index],gzzL);
-    vec_store_nta_partial(kxx[index],kxxL);
-    vec_store_nta_partial(kxy[index],kxyL);
-    vec_store_nta_partial(kxz[index],kxzL);
-    vec_store_nta_partial(kyy[index],kyyL);
-    vec_store_nta_partial(kyz[index],kyzL);
-    vec_store_nta_partial(kzz[index],kzzL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_convertToADMBase);
-}
-
-extern "C" void ML_BSSN_UPW_convertToADMBase(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_convertToADMBase_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_convertToADMBase_calc_every != ML_BSSN_UPW_convertToADMBase_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::curv",
-    "ADMBase::lapse",
-    "ADMBase::metric",
-    "ADMBase::shift",
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_convertToADMBase", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_UPW_convertToADMBase_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_convertToADMBase_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBaseDtLapseShift.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBaseDtLapseShift.cc
deleted file mode 100644
index 4671a53..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBaseDtLapseShift.cc
+++ /dev/null
@@ -1,786 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_convertToADMBaseDtLapseShift_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_UPW_convertToADMBaseDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_convertToADMBaseDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    CCTK_REAL_VEC phiL = vec_load(phi[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    CCTK_REAL_VEC J11L, J12L, J13L, J21L, J22L, J23L, J31L, J32L, J33L;
-    
-    if (use_jacobian)
-    {
-      J11L = vec_load(J11[index]);
-      J12L = vec_load(J12[index]);
-      J13L = vec_load(J13[index]);
-      J21L = vec_load(J21[index]);
-      J22L = vec_load(J22[index]);
-      J23L = vec_load(J23[index]);
-      J31L = vec_load(J31[index]);
-      J32L = vec_load(J32[index]);
-      J33L = vec_load(J33[index]);
-    }
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL_VEC PDstandardNth1alpha;
-    CCTK_REAL_VEC PDstandardNth2alpha;
-    CCTK_REAL_VEC PDstandardNth3alpha;
-    CCTK_REAL_VEC PDupwindNth1alpha;
-    CCTK_REAL_VEC PDupwindNth2alpha;
-    CCTK_REAL_VEC PDupwindNth3alpha;
-    CCTK_REAL_VEC PDupwindNth1beta1;
-    CCTK_REAL_VEC PDupwindNth2beta1;
-    CCTK_REAL_VEC PDupwindNth3beta1;
-    CCTK_REAL_VEC PDupwindNth1beta2;
-    CCTK_REAL_VEC PDupwindNth2beta2;
-    CCTK_REAL_VEC PDupwindNth3beta2;
-    CCTK_REAL_VEC PDupwindNth1beta3;
-    CCTK_REAL_VEC PDupwindNth2beta3;
-    CCTK_REAL_VEC PDupwindNth3beta3;
-    CCTK_REAL_VEC PDstandardNth1gt11;
-    CCTK_REAL_VEC PDstandardNth2gt11;
-    CCTK_REAL_VEC PDstandardNth3gt11;
-    CCTK_REAL_VEC PDstandardNth1gt12;
-    CCTK_REAL_VEC PDstandardNth2gt12;
-    CCTK_REAL_VEC PDstandardNth3gt12;
-    CCTK_REAL_VEC PDstandardNth1gt13;
-    CCTK_REAL_VEC PDstandardNth2gt13;
-    CCTK_REAL_VEC PDstandardNth3gt13;
-    CCTK_REAL_VEC PDstandardNth1gt22;
-    CCTK_REAL_VEC PDstandardNth2gt22;
-    CCTK_REAL_VEC PDstandardNth3gt22;
-    CCTK_REAL_VEC PDstandardNth1gt23;
-    CCTK_REAL_VEC PDstandardNth2gt23;
-    CCTK_REAL_VEC PDstandardNth3gt23;
-    CCTK_REAL_VEC PDstandardNth1gt33;
-    CCTK_REAL_VEC PDstandardNth2gt33;
-    CCTK_REAL_VEC PDstandardNth3gt33;
-    CCTK_REAL_VEC PDstandardNth1phi;
-    CCTK_REAL_VEC PDstandardNth2phi;
-    CCTK_REAL_VEC PDstandardNth3phi;
-    
-    switch(fdOrder)
-    {
-      case 2:
-        PDstandardNth1alpha = PDstandardNthfdOrder21(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder22(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder23(&alpha[index]);
-        PDupwindNth1alpha = PDupwindNthfdOrder21(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder22(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder23(&alpha[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder21(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder22(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder23(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder21(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder22(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder23(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder21(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder22(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder23(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder21(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder22(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder23(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder21(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder22(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder23(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder21(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder22(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder23(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder21(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder22(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder23(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder21(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder22(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder23(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder21(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder22(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder23(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder21(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder22(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder23(&phi[index]);
-        break;
-      
-      case 4:
-        PDstandardNth1alpha = PDstandardNthfdOrder41(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder42(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder43(&alpha[index]);
-        PDupwindNth1alpha = PDupwindNthfdOrder41(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder42(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder43(&alpha[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder41(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder42(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder43(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder41(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder42(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder43(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder41(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder42(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder43(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder41(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder42(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder43(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder41(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder42(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder43(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder41(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder42(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder43(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder41(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder42(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder43(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder41(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder42(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder43(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder41(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder42(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder43(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder41(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder42(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder43(&phi[index]);
-        break;
-      
-      case 6:
-        PDstandardNth1alpha = PDstandardNthfdOrder61(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder62(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder63(&alpha[index]);
-        PDupwindNth1alpha = PDupwindNthfdOrder61(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder62(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder63(&alpha[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder61(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder62(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder63(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder61(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder62(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder63(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder61(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder62(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder63(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder61(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder62(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder63(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder61(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder62(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder63(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder61(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder62(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder63(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder61(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder62(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder63(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder61(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder62(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder63(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder61(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder62(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder63(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder61(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder62(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder63(&phi[index]);
-        break;
-      
-      case 8:
-        PDstandardNth1alpha = PDstandardNthfdOrder81(&alpha[index]);
-        PDstandardNth2alpha = PDstandardNthfdOrder82(&alpha[index]);
-        PDstandardNth3alpha = PDstandardNthfdOrder83(&alpha[index]);
-        PDupwindNth1alpha = PDupwindNthfdOrder81(&alpha[index]);
-        PDupwindNth2alpha = PDupwindNthfdOrder82(&alpha[index]);
-        PDupwindNth3alpha = PDupwindNthfdOrder83(&alpha[index]);
-        PDupwindNth1beta1 = PDupwindNthfdOrder81(&beta1[index]);
-        PDupwindNth2beta1 = PDupwindNthfdOrder82(&beta1[index]);
-        PDupwindNth3beta1 = PDupwindNthfdOrder83(&beta1[index]);
-        PDupwindNth1beta2 = PDupwindNthfdOrder81(&beta2[index]);
-        PDupwindNth2beta2 = PDupwindNthfdOrder82(&beta2[index]);
-        PDupwindNth3beta2 = PDupwindNthfdOrder83(&beta2[index]);
-        PDupwindNth1beta3 = PDupwindNthfdOrder81(&beta3[index]);
-        PDupwindNth2beta3 = PDupwindNthfdOrder82(&beta3[index]);
-        PDupwindNth3beta3 = PDupwindNthfdOrder83(&beta3[index]);
-        PDstandardNth1gt11 = PDstandardNthfdOrder81(&gt11[index]);
-        PDstandardNth2gt11 = PDstandardNthfdOrder82(&gt11[index]);
-        PDstandardNth3gt11 = PDstandardNthfdOrder83(&gt11[index]);
-        PDstandardNth1gt12 = PDstandardNthfdOrder81(&gt12[index]);
-        PDstandardNth2gt12 = PDstandardNthfdOrder82(&gt12[index]);
-        PDstandardNth3gt12 = PDstandardNthfdOrder83(&gt12[index]);
-        PDstandardNth1gt13 = PDstandardNthfdOrder81(&gt13[index]);
-        PDstandardNth2gt13 = PDstandardNthfdOrder82(&gt13[index]);
-        PDstandardNth3gt13 = PDstandardNthfdOrder83(&gt13[index]);
-        PDstandardNth1gt22 = PDstandardNthfdOrder81(&gt22[index]);
-        PDstandardNth2gt22 = PDstandardNthfdOrder82(&gt22[index]);
-        PDstandardNth3gt22 = PDstandardNthfdOrder83(&gt22[index]);
-        PDstandardNth1gt23 = PDstandardNthfdOrder81(&gt23[index]);
-        PDstandardNth2gt23 = PDstandardNthfdOrder82(&gt23[index]);
-        PDstandardNth3gt23 = PDstandardNthfdOrder83(&gt23[index]);
-        PDstandardNth1gt33 = PDstandardNthfdOrder81(&gt33[index]);
-        PDstandardNth2gt33 = PDstandardNthfdOrder82(&gt33[index]);
-        PDstandardNth3gt33 = PDstandardNthfdOrder83(&gt33[index]);
-        PDstandardNth1phi = PDstandardNthfdOrder81(&phi[index]);
-        PDstandardNth2phi = PDstandardNthfdOrder82(&phi[index]);
-        PDstandardNth3phi = PDstandardNthfdOrder83(&phi[index]);
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    ptrdiff_t dir1 = Sign(beta1L);
-    
-    ptrdiff_t dir2 = Sign(beta2L);
-    
-    ptrdiff_t dir3 = Sign(beta3L);
-    
-    CCTK_REAL_VEC JacPDstandardNth1alpha;
-    CCTK_REAL_VEC JacPDstandardNth1gt11;
-    CCTK_REAL_VEC JacPDstandardNth1gt12;
-    CCTK_REAL_VEC JacPDstandardNth1gt13;
-    CCTK_REAL_VEC JacPDstandardNth1gt22;
-    CCTK_REAL_VEC JacPDstandardNth1gt23;
-    CCTK_REAL_VEC JacPDstandardNth1gt33;
-    CCTK_REAL_VEC JacPDstandardNth1phi;
-    CCTK_REAL_VEC JacPDstandardNth2alpha;
-    CCTK_REAL_VEC JacPDstandardNth2gt11;
-    CCTK_REAL_VEC JacPDstandardNth2gt12;
-    CCTK_REAL_VEC JacPDstandardNth2gt13;
-    CCTK_REAL_VEC JacPDstandardNth2gt22;
-    CCTK_REAL_VEC JacPDstandardNth2gt23;
-    CCTK_REAL_VEC JacPDstandardNth2gt33;
-    CCTK_REAL_VEC JacPDstandardNth2phi;
-    CCTK_REAL_VEC JacPDstandardNth3alpha;
-    CCTK_REAL_VEC JacPDstandardNth3gt11;
-    CCTK_REAL_VEC JacPDstandardNth3gt12;
-    CCTK_REAL_VEC JacPDstandardNth3gt13;
-    CCTK_REAL_VEC JacPDstandardNth3gt22;
-    CCTK_REAL_VEC JacPDstandardNth3gt23;
-    CCTK_REAL_VEC JacPDstandardNth3gt33;
-    CCTK_REAL_VEC JacPDstandardNth3phi;
-    CCTK_REAL_VEC JacPDupwindNth1alpha;
-    CCTK_REAL_VEC JacPDupwindNth1beta1;
-    CCTK_REAL_VEC JacPDupwindNth1beta2;
-    CCTK_REAL_VEC JacPDupwindNth1beta3;
-    CCTK_REAL_VEC JacPDupwindNth2alpha;
-    CCTK_REAL_VEC JacPDupwindNth2beta1;
-    CCTK_REAL_VEC JacPDupwindNth2beta2;
-    CCTK_REAL_VEC JacPDupwindNth2beta3;
-    CCTK_REAL_VEC JacPDupwindNth3alpha;
-    CCTK_REAL_VEC JacPDupwindNth3beta1;
-    CCTK_REAL_VEC JacPDupwindNth3beta2;
-    CCTK_REAL_VEC JacPDupwindNth3beta3;
-    
-    if (use_jacobian)
-    {
-      JacPDstandardNth1alpha = 
-        kmadd(J11L,PDstandardNth1alpha,kmadd(J21L,PDstandardNth2alpha,kmul(J31L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth1gt11 = 
-        kmadd(J11L,PDstandardNth1gt11,kmadd(J21L,PDstandardNth2gt11,kmul(J31L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth1gt12 = 
-        kmadd(J11L,PDstandardNth1gt12,kmadd(J21L,PDstandardNth2gt12,kmul(J31L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth1gt13 = 
-        kmadd(J11L,PDstandardNth1gt13,kmadd(J21L,PDstandardNth2gt13,kmul(J31L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth1gt22 = 
-        kmadd(J11L,PDstandardNth1gt22,kmadd(J21L,PDstandardNth2gt22,kmul(J31L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth1gt23 = 
-        kmadd(J11L,PDstandardNth1gt23,kmadd(J21L,PDstandardNth2gt23,kmul(J31L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth1gt33 = 
-        kmadd(J11L,PDstandardNth1gt33,kmadd(J21L,PDstandardNth2gt33,kmul(J31L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth1phi = 
-        kmadd(J11L,PDstandardNth1phi,kmadd(J21L,PDstandardNth2phi,kmul(J31L,PDstandardNth3phi)));
-      
-      JacPDstandardNth2alpha = 
-        kmadd(J12L,PDstandardNth1alpha,kmadd(J22L,PDstandardNth2alpha,kmul(J32L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth2gt11 = 
-        kmadd(J12L,PDstandardNth1gt11,kmadd(J22L,PDstandardNth2gt11,kmul(J32L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth2gt12 = 
-        kmadd(J12L,PDstandardNth1gt12,kmadd(J22L,PDstandardNth2gt12,kmul(J32L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth2gt13 = 
-        kmadd(J12L,PDstandardNth1gt13,kmadd(J22L,PDstandardNth2gt13,kmul(J32L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth2gt22 = 
-        kmadd(J12L,PDstandardNth1gt22,kmadd(J22L,PDstandardNth2gt22,kmul(J32L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth2gt23 = 
-        kmadd(J12L,PDstandardNth1gt23,kmadd(J22L,PDstandardNth2gt23,kmul(J32L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth2gt33 = 
-        kmadd(J12L,PDstandardNth1gt33,kmadd(J22L,PDstandardNth2gt33,kmul(J32L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth2phi = 
-        kmadd(J12L,PDstandardNth1phi,kmadd(J22L,PDstandardNth2phi,kmul(J32L,PDstandardNth3phi)));
-      
-      JacPDstandardNth3alpha = 
-        kmadd(J13L,PDstandardNth1alpha,kmadd(J23L,PDstandardNth2alpha,kmul(J33L,PDstandardNth3alpha)));
-      
-      JacPDstandardNth3gt11 = 
-        kmadd(J13L,PDstandardNth1gt11,kmadd(J23L,PDstandardNth2gt11,kmul(J33L,PDstandardNth3gt11)));
-      
-      JacPDstandardNth3gt12 = 
-        kmadd(J13L,PDstandardNth1gt12,kmadd(J23L,PDstandardNth2gt12,kmul(J33L,PDstandardNth3gt12)));
-      
-      JacPDstandardNth3gt13 = 
-        kmadd(J13L,PDstandardNth1gt13,kmadd(J23L,PDstandardNth2gt13,kmul(J33L,PDstandardNth3gt13)));
-      
-      JacPDstandardNth3gt22 = 
-        kmadd(J13L,PDstandardNth1gt22,kmadd(J23L,PDstandardNth2gt22,kmul(J33L,PDstandardNth3gt22)));
-      
-      JacPDstandardNth3gt23 = 
-        kmadd(J13L,PDstandardNth1gt23,kmadd(J23L,PDstandardNth2gt23,kmul(J33L,PDstandardNth3gt23)));
-      
-      JacPDstandardNth3gt33 = 
-        kmadd(J13L,PDstandardNth1gt33,kmadd(J23L,PDstandardNth2gt33,kmul(J33L,PDstandardNth3gt33)));
-      
-      JacPDstandardNth3phi = 
-        kmadd(J13L,PDstandardNth1phi,kmadd(J23L,PDstandardNth2phi,kmul(J33L,PDstandardNth3phi)));
-      
-      JacPDupwindNth1alpha = 
-        kmadd(J11L,PDupwindNth1alpha,kmadd(J21L,PDupwindNth2alpha,kmul(J31L,PDupwindNth3alpha)));
-      
-      JacPDupwindNth1beta1 = 
-        kmadd(J11L,PDupwindNth1beta1,kmadd(J21L,PDupwindNth2beta1,kmul(J31L,PDupwindNth3beta1)));
-      
-      JacPDupwindNth1beta2 = 
-        kmadd(J11L,PDupwindNth1beta2,kmadd(J21L,PDupwindNth2beta2,kmul(J31L,PDupwindNth3beta2)));
-      
-      JacPDupwindNth1beta3 = 
-        kmadd(J11L,PDupwindNth1beta3,kmadd(J21L,PDupwindNth2beta3,kmul(J31L,PDupwindNth3beta3)));
-      
-      JacPDupwindNth2alpha = 
-        kmadd(J12L,PDupwindNth1alpha,kmadd(J22L,PDupwindNth2alpha,kmul(J32L,PDupwindNth3alpha)));
-      
-      JacPDupwindNth2beta1 = 
-        kmadd(J12L,PDupwindNth1beta1,kmadd(J22L,PDupwindNth2beta1,kmul(J32L,PDupwindNth3beta1)));
-      
-      JacPDupwindNth2beta2 = 
-        kmadd(J12L,PDupwindNth1beta2,kmadd(J22L,PDupwindNth2beta2,kmul(J32L,PDupwindNth3beta2)));
-      
-      JacPDupwindNth2beta3 = 
-        kmadd(J12L,PDupwindNth1beta3,kmadd(J22L,PDupwindNth2beta3,kmul(J32L,PDupwindNth3beta3)));
-      
-      JacPDupwindNth3alpha = 
-        kmadd(J13L,PDupwindNth1alpha,kmadd(J23L,PDupwindNth2alpha,kmul(J33L,PDupwindNth3alpha)));
-      
-      JacPDupwindNth3beta1 = 
-        kmadd(J13L,PDupwindNth1beta1,kmadd(J23L,PDupwindNth2beta1,kmul(J33L,PDupwindNth3beta1)));
-      
-      JacPDupwindNth3beta2 = 
-        kmadd(J13L,PDupwindNth1beta2,kmadd(J23L,PDupwindNth2beta2,kmul(J33L,PDupwindNth3beta2)));
-      
-      JacPDupwindNth3beta3 = 
-        kmadd(J13L,PDupwindNth1beta3,kmadd(J23L,PDupwindNth2beta3,kmul(J33L,PDupwindNth3beta3)));
-    }
-    else
-    {
-      JacPDstandardNth1alpha = PDstandardNth1alpha;
-      
-      JacPDstandardNth1gt11 = PDstandardNth1gt11;
-      
-      JacPDstandardNth1gt12 = PDstandardNth1gt12;
-      
-      JacPDstandardNth1gt13 = PDstandardNth1gt13;
-      
-      JacPDstandardNth1gt22 = PDstandardNth1gt22;
-      
-      JacPDstandardNth1gt23 = PDstandardNth1gt23;
-      
-      JacPDstandardNth1gt33 = PDstandardNth1gt33;
-      
-      JacPDstandardNth1phi = PDstandardNth1phi;
-      
-      JacPDstandardNth2alpha = PDstandardNth2alpha;
-      
-      JacPDstandardNth2gt11 = PDstandardNth2gt11;
-      
-      JacPDstandardNth2gt12 = PDstandardNth2gt12;
-      
-      JacPDstandardNth2gt13 = PDstandardNth2gt13;
-      
-      JacPDstandardNth2gt22 = PDstandardNth2gt22;
-      
-      JacPDstandardNth2gt23 = PDstandardNth2gt23;
-      
-      JacPDstandardNth2gt33 = PDstandardNth2gt33;
-      
-      JacPDstandardNth2phi = PDstandardNth2phi;
-      
-      JacPDstandardNth3alpha = PDstandardNth3alpha;
-      
-      JacPDstandardNth3gt11 = PDstandardNth3gt11;
-      
-      JacPDstandardNth3gt12 = PDstandardNth3gt12;
-      
-      JacPDstandardNth3gt13 = PDstandardNth3gt13;
-      
-      JacPDstandardNth3gt22 = PDstandardNth3gt22;
-      
-      JacPDstandardNth3gt23 = PDstandardNth3gt23;
-      
-      JacPDstandardNth3gt33 = PDstandardNth3gt33;
-      
-      JacPDstandardNth3phi = PDstandardNth3phi;
-      
-      JacPDupwindNth1alpha = PDupwindNth1alpha;
-      
-      JacPDupwindNth1beta1 = PDupwindNth1beta1;
-      
-      JacPDupwindNth1beta2 = PDupwindNth1beta2;
-      
-      JacPDupwindNth1beta3 = PDupwindNth1beta3;
-      
-      JacPDupwindNth2alpha = PDupwindNth2alpha;
-      
-      JacPDupwindNth2beta1 = PDupwindNth2beta1;
-      
-      JacPDupwindNth2beta2 = PDupwindNth2beta2;
-      
-      JacPDupwindNth2beta3 = PDupwindNth2beta3;
-      
-      JacPDupwindNth3alpha = PDupwindNth3alpha;
-      
-      JacPDupwindNth3beta1 = PDupwindNth3beta1;
-      
-      JacPDupwindNth3beta2 = PDupwindNth3beta2;
-      
-      JacPDupwindNth3beta3 = PDupwindNth3beta3;
-    }
-    
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kmsub(kmadd(beta1L,JacPDupwindNth1alpha,kmadd(beta2L,JacPDupwindNth2alpha,kmul(beta3L,JacPDupwindNth3alpha))),ToReal(LapseAdvectionCoeff),kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL = 
-      kmadd(kmadd(beta1L,JacPDupwindNth1beta1,kmadd(beta2L,JacPDupwindNth2beta1,kmul(beta3L,JacPDupwindNth3beta1))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu11,JacPDstandardNth1alpha,kmadd(gtu12,JacPDstandardNth2alpha,kmul(gtu13,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth1gt11,SQR(gtu11),kmul(JacPDstandardNth1gt22,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu13,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu13,JacPDstandardNth1gt33,kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu22,JacPDstandardNth3gt22))))),kmadd(gtu11,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu12,JacPDstandardNth2gt11,kmadd(gtu13,JacPDstandardNth3gt11,kmadd(gtu23,kmul(JacPDstandardNth1gt23,ToReal(-2)),knmsub(gtu22,JacPDstandardNth1gt22,kmadd(kmadd(gtu12,JacPDstandardNth1gt12,kmadd(gtu13,JacPDstandardNth1gt13,kmul(gtu22,JacPDstandardNth2gt12))),ToReal(2),kmadd(gtu23,kmul(JacPDstandardNth2gt13,ToReal(2)),kmadd(gtu23,kmul(JacPDstandardNth3gt12,ToReal(2)),kmul(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33))))))))))),kmul(gtu12,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu23,kmul(JacPDstandardNth3gt22,ToReal(2)),kmadd(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33),kmul(gtu13,kmul(JacPDstandardNth1gt23,ToReal(4))))))))))))))))),kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetayL = 
-      kmadd(kmadd(beta1L,JacPDupwindNth1beta2,kmadd(beta2L,JacPDupwindNth2beta2,kmul(beta3L,JacPDupwindNth3beta2))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu12,JacPDstandardNth1alpha,kmadd(gtu22,JacPDstandardNth2alpha,kmul(gtu23,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmadd(JacPDstandardNth2gt22,SQR(gtu22),kmul(JacPDstandardNth2gt11,kmul(SQR(gtu12),ToReal(2)))),kmadd(gtu23,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt13,kmadd(gtu13,JacPDstandardNth1gt33,kmul(gtu23,JacPDstandardNth2gt33))),ToReal(2),kmul(gtu11,JacPDstandardNth3gt11))))),kmadd(gtu22,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu23,JacPDstandardNth3gt22,kmadd(kmadd(gtu23,JacPDstandardNth2gt23,kmul(gtu13,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth3gt12,JacPDstandardNth2gt13)))),ToReal(2),kmadd(gtu11,kmsub(JacPDstandardNth1gt12,ToReal(2),JacPDstandardNth2gt11),kmul(gtu33,kmsub(JacPDstandardNth3gt23,ToReal(2),JacPDstandardNth2gt33))))))),kmul(gtu12,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu13,kmul(JacPDstandardNth3gt11,ToReal(2)),kmadd(gtu22,kmadd(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmsub(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth2gt13,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    CCTK_REAL_VEC dtbetazL = 
-      kmadd(kmadd(beta1L,JacPDupwindNth1beta3,kmadd(beta2L,JacPDupwindNth2beta3,kmul(beta3L,JacPDupwindNth3beta3))),ToReal(ShiftAdvectionCoeff),IfThen(harmonicShift,kmul(alphaL,kmul(phiL,kmul(ToReal(0.5),kmadd(phiL,kmul(kmadd(gtu13,JacPDstandardNth1alpha,kmadd(gtu23,JacPDstandardNth2alpha,kmul(gtu33,JacPDstandardNth3alpha))),ToReal(-2)),kmul(alphaL,kmadd(phiL,kmul(kmadd(JacPDstandardNth3gt11,SQR(gtu13),kmul(JacPDstandardNth3gt22,SQR(gtu23))),ToReal(2)),kmadd(gtu23,kmadd(JacPDstandardNth2phi,ToReal(2),kmul(phiL,kmadd(gtu22,JacPDstandardNth2gt22,kmadd(gtu33,JacPDstandardNth2gt33,kmsub(kmadd(gtu11,JacPDstandardNth1gt12,kmadd(gtu12,JacPDstandardNth1gt22,kmul(gtu33,JacPDstandardNth3gt23))),ToReal(2),kmul(gtu11,JacPDstandardNth2gt11)))))),kmadd(gtu33,kmadd(JacPDstandardNth3phi,ToReal(2),kmul(phiL,kmadd(gtu33,JacPDstandardNth3gt33,knmsub(gtu22,JacPDstandardNth3gt22,kmadd(kmadd(gtu22,JacPDstandardNth2gt23,kmul(gtu12,kadd(JacPDstandardNth1gt23,ksub(JacPDstandardNth2gt13,JacPDstandardNth3gt12)))),ToReal(2),kmul(gtu11,kmsub(JacPDstandardNth1gt13,ToReal(2),JacPDstandardNth3gt11))))))),kmul(gtu13,kmadd(JacPDstandardNth1phi,ToReal(2),kmul(phiL,kmadd(gtu11,JacPDstandardNth1gt11,kmadd(gtu12,kmul(JacPDstandardNth2gt11,ToReal(2)),kmadd(gtu22,kmsub(JacPDstandardNth2gt12,ToReal(2),JacPDstandardNth1gt22),kmadd(gtu33,kmadd(JacPDstandardNth3gt13,ToReal(2),JacPDstandardNth1gt33),kmul(gtu23,kmul(JacPDstandardNth3gt12,ToReal(4)))))))))))))))))),kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)))));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_convertToADMBaseDtLapseShift);
-}
-
-extern "C" void ML_BSSN_UPW_convertToADMBaseDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_convertToADMBaseDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_convertToADMBaseDtLapseShift_calc_every != ML_BSSN_UPW_convertToADMBaseDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_log_confac",
-    "ML_BSSN_UPW::ML_metric",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_convertToADMBaseDtLapseShift", 12, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_convertToADMBaseDtLapseShift", 2, 2, 2);
-      break;
-    
-    case 4:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_convertToADMBaseDtLapseShift", 3, 3, 3);
-      break;
-    
-    case 6:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_convertToADMBaseDtLapseShift", 4, 4, 4);
-      break;
-    
-    case 8:
-      GenericFD_EnsureStencilFits(cctkGH, "ML_BSSN_UPW_convertToADMBaseDtLapseShift", 5, 5, 5);
-      break;
-  }
-  
-  GenericFD_LoopOverInterior(cctkGH, ML_BSSN_UPW_convertToADMBaseDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_convertToADMBaseDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary.cc
deleted file mode 100644
index 723f9b0..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary.cc
+++ /dev/null
@@ -1,346 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-extern "C" void ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtlapse","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtlapse.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ADMBase::dtshift","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ADMBase::dtshift.");
-  return;
-}
-
-static void ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary);
-}
-
-extern "C" void ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_calc_every != ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverBoundaryWithGhosts(cctkGH, ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift.cc
deleted file mode 100644
index d33767f..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift.cc
+++ /dev/null
@@ -1,331 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC AL = vec_load(A[index]);
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC B1L = vec_load(B1[index]);
-    CCTK_REAL_VEC B2L = vec_load(B2[index]);
-    CCTK_REAL_VEC B3L = vec_load(B3[index]);
-    CCTK_REAL_VEC beta1L = vec_load(beta1[index]);
-    CCTK_REAL_VEC beta2L = vec_load(beta2[index]);
-    CCTK_REAL_VEC beta3L = vec_load(beta3[index]);
-    CCTK_REAL_VEC rL = vec_load(r[index]);
-    CCTK_REAL_VEC trKL = vec_load(trK[index]);
-    CCTK_REAL_VEC Xt1L = vec_load(Xt1[index]);
-    CCTK_REAL_VEC Xt2L = vec_load(Xt2[index]);
-    CCTK_REAL_VEC Xt3L = vec_load(Xt3[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC eta = 
-      kmul(INV(kfmax(rL,ToReal(SpatialBetaDriverRadius))),ToReal(SpatialBetaDriverRadius));
-    
-    CCTK_REAL_VEC theta = 
-      kfmin(ToReal(1),kexp(knmsub(rL,INV(ToReal(SpatialShiftGammaCoeffRadius)),ToReal(1))));
-    
-    CCTK_REAL_VEC dtalpL = 
-      kneg(kmul(kpow(alphaL,harmonicN),kmul(ToReal(harmonicF),kmadd(ksub(AL,trKL),ToReal(LapseACoeff),trKL))));
-    
-    CCTK_REAL_VEC dtbetaxL;
-    CCTK_REAL_VEC dtbetayL;
-    CCTK_REAL_VEC dtbetazL;
-    
-    if (harmonicShift)
-    {
-      dtbetaxL = ToReal(0);
-      
-      dtbetayL = ToReal(0);
-      
-      dtbetazL = ToReal(0);
-    }
-    else
-    {
-      dtbetaxL = 
-        kmul(theta,kmul(kadd(Xt1L,kmadd(ksub(B1L,Xt1L),ToReal(ShiftBCoeff),kmul(beta1L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetayL = 
-        kmul(theta,kmul(kadd(Xt2L,kmadd(ksub(B2L,Xt2L),ToReal(ShiftBCoeff),kmul(beta2L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-      
-      dtbetazL = 
-        kmul(theta,kmul(kadd(Xt3L,kmadd(ksub(B3L,Xt3L),ToReal(ShiftBCoeff),kmul(beta3L,kmul(eta,kmul(ToReal(BetaDriver),kadd(ToReal(-1),ToReal(ShiftBCoeff))))))),ToReal(ShiftGammaCoeff)));
-    }
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(dtalp[index],dtalpL);
-    vec_store_nta_partial(dtbetax[index],dtbetaxL);
-    vec_store_nta_partial(dtbetay[index],dtbetayL);
-    vec_store_nta_partial(dtbetaz[index],dtbetazL);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift);
-}
-
-extern "C" void ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_calc_every != ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ADMBase::dtlapse",
-    "ADMBase::dtshift",
-    "grid::coordinates",
-    "Grid::coordinates",
-    "ML_BSSN_UPW::ML_dtlapse",
-    "ML_BSSN_UPW::ML_dtshift",
-    "ML_BSSN_UPW::ML_Gamma",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_shift",
-    "ML_BSSN_UPW::ML_trace_curv"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift", 10, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_enforce.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_enforce.cc
deleted file mode 100644
index 2f87e25..0000000
--- a/ML_BSSN_UPW/src/ML_BSSN_UPW_enforce.cc
+++ /dev/null
@@ -1,337 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-#include "vectors.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) (kdiv(ToReal(1.0),x))
-#define SQR(x) (kmul(x,x))
-#define CUB(x) (kmul(x,SQR(x)))
-
-static void ML_BSSN_UPW_enforce_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL_VEC const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL_VEC const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL_VEC const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL_VEC const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL_VEC const t = ToReal(cctk_time);
-  CCTK_REAL_VEC const dxi = INV(dx);
-  CCTK_REAL_VEC const dyi = INV(dy);
-  CCTK_REAL_VEC const dzi = INV(dz);
-  CCTK_REAL_VEC const khalf = ToReal(0.5);
-  CCTK_REAL_VEC const kthird = ToReal(1.0/3.0);
-  CCTK_REAL_VEC const ktwothird = ToReal(2.0/3.0);
-  CCTK_REAL_VEC const kfourthird = ToReal(4.0/3.0);
-  CCTK_REAL_VEC const keightthird = ToReal(8.0/3.0);
-  CCTK_REAL_VEC const hdxi = kmul(ToReal(0.5), dxi);
-  CCTK_REAL_VEC const hdyi = kmul(ToReal(0.5), dyi);
-  CCTK_REAL_VEC const hdzi = kmul(ToReal(0.5), dzi);
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL_VEC const p1o1024dx = kmul(INV(dx),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dy = kmul(INV(dy),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o1024dz = kmul(INV(dz),ToReal(0.0009765625));
-  CCTK_REAL_VEC const p1o120dx = kmul(INV(dx),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dy = kmul(INV(dy),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o120dz = kmul(INV(dz),ToReal(0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dx = kmul(INV(dx),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dy = kmul(INV(dy),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o12dz = kmul(INV(dz),ToReal(0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const p1o144dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o144dydz = kmul(INV(kmul(dy,dz)),ToReal(0.00694444444444444444444444444444));
-  CCTK_REAL_VEC const p1o1680dx = kmul(INV(dx),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dy = kmul(INV(dy),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o1680dz = kmul(INV(dz),ToReal(0.000595238095238095238095238095238));
-  CCTK_REAL_VEC const p1o16dx = kmul(INV(dx),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dy = kmul(INV(dy),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o16dz = kmul(INV(dz),ToReal(0.0625));
-  CCTK_REAL_VEC const p1o180dx2 = kmul(INV(SQR(dx)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dy2 = kmul(INV(SQR(dy)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o180dz2 = kmul(INV(SQR(dz)),ToReal(0.00555555555555555555555555555556));
-  CCTK_REAL_VEC const p1o24dx = kmul(INV(dx),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dy = kmul(INV(dy),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o24dz = kmul(INV(dz),ToReal(0.0416666666666666666666666666667));
-  CCTK_REAL_VEC const p1o256dx = kmul(INV(dx),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dy = kmul(INV(dy),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o256dz = kmul(INV(dz),ToReal(0.00390625));
-  CCTK_REAL_VEC const p1o2dx = kmul(INV(dx),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dy = kmul(INV(dy),ToReal(0.5));
-  CCTK_REAL_VEC const p1o2dz = kmul(INV(dz),ToReal(0.5));
-  CCTK_REAL_VEC const p1o3600dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o3600dydz = kmul(INV(kmul(dy,dz)),ToReal(0.000277777777777777777777777777778));
-  CCTK_REAL_VEC const p1o4dx = kmul(INV(dx),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdy = kmul(INV(kmul(dx,dy)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dxdz = kmul(INV(kmul(dx,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dy = kmul(INV(dy),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dydz = kmul(INV(kmul(dy,dz)),ToReal(0.25));
-  CCTK_REAL_VEC const p1o4dz = kmul(INV(dz),ToReal(0.25));
-  CCTK_REAL_VEC const p1o5040dx2 = kmul(INV(SQR(dx)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dy2 = kmul(INV(SQR(dy)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o5040dz2 = kmul(INV(SQR(dz)),ToReal(0.000198412698412698412698412698413));
-  CCTK_REAL_VEC const p1o560dx = kmul(INV(dx),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dy = kmul(INV(dy),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o560dz = kmul(INV(dz),ToReal(0.00178571428571428571428571428571));
-  CCTK_REAL_VEC const p1o60dx = kmul(INV(dx),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dy = kmul(INV(dy),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o60dz = kmul(INV(dz),ToReal(0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const p1o64dx = kmul(INV(dx),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dy = kmul(INV(dy),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o64dz = kmul(INV(dz),ToReal(0.015625));
-  CCTK_REAL_VEC const p1o705600dxdy = kmul(INV(kmul(dx,dy)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dxdz = kmul(INV(kmul(dx,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o705600dydz = kmul(INV(kmul(dy,dz)),ToReal(1.41723356009070294784580498866e-6));
-  CCTK_REAL_VEC const p1o840dx = kmul(INV(dx),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dy = kmul(INV(dy),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1o840dz = kmul(INV(dz),ToReal(0.00119047619047619047619047619048));
-  CCTK_REAL_VEC const p1odx = INV(dx);
-  CCTK_REAL_VEC const p1odx2 = INV(SQR(dx));
-  CCTK_REAL_VEC const p1ody = INV(dy);
-  CCTK_REAL_VEC const p1ody2 = INV(SQR(dy));
-  CCTK_REAL_VEC const p1odz = INV(dz);
-  CCTK_REAL_VEC const p1odz2 = INV(SQR(dz));
-  CCTK_REAL_VEC const pm1o120dx = kmul(INV(dx),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dy = kmul(INV(dy),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o120dz = kmul(INV(dz),ToReal(-0.00833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dx2 = kmul(INV(SQR(dx)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dy2 = kmul(INV(SQR(dy)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o12dz2 = kmul(INV(SQR(dz)),ToReal(-0.0833333333333333333333333333333));
-  CCTK_REAL_VEC const pm1o2dx = kmul(INV(dx),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dy = kmul(INV(dy),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o2dz = kmul(INV(dz),ToReal(-0.5));
-  CCTK_REAL_VEC const pm1o4dx = kmul(INV(dx),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dy = kmul(INV(dy),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o4dz = kmul(INV(dz),ToReal(-0.25));
-  CCTK_REAL_VEC const pm1o60dx = kmul(INV(dx),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dy = kmul(INV(dy),ToReal(-0.0166666666666666666666666666667));
-  CCTK_REAL_VEC const pm1o60dz = kmul(INV(dz),ToReal(-0.0166666666666666666666666666667));
-  
-  /* Jacobian variable pointers */
-  bool const use_jacobian = (!CCTK_IsFunctionAliased("MultiPatch_GetMap") || MultiPatch_GetMap(cctkGH) != jacobian_identity_map)
-                       && strlen(jacobian_group) > 0;
-  if (use_jacobian && strlen(jacobian_derivative_group) == 0)
-  {
-    CCTK_WARN (1, "GenericFD::jacobian_group and GenericFD::jacobian_derivative_group must both be set to valid group names");
-  }
-  
-  CCTK_REAL const *restrict jacobian_ptrs[9];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_group,
-                                                9, jacobian_ptrs);
-  
-  CCTK_REAL const *restrict const J11 = use_jacobian ? jacobian_ptrs[0] : 0;
-  CCTK_REAL const *restrict const J12 = use_jacobian ? jacobian_ptrs[1] : 0;
-  CCTK_REAL const *restrict const J13 = use_jacobian ? jacobian_ptrs[2] : 0;
-  CCTK_REAL const *restrict const J21 = use_jacobian ? jacobian_ptrs[3] : 0;
-  CCTK_REAL const *restrict const J22 = use_jacobian ? jacobian_ptrs[4] : 0;
-  CCTK_REAL const *restrict const J23 = use_jacobian ? jacobian_ptrs[5] : 0;
-  CCTK_REAL const *restrict const J31 = use_jacobian ? jacobian_ptrs[6] : 0;
-  CCTK_REAL const *restrict const J32 = use_jacobian ? jacobian_ptrs[7] : 0;
-  CCTK_REAL const *restrict const J33 = use_jacobian ? jacobian_ptrs[8] : 0;
-  
-  CCTK_REAL const *restrict jacobian_derivative_ptrs[18];
-  if (use_jacobian) GenericFD_GroupDataPointers(cctkGH, jacobian_derivative_group,
-                                                18, jacobian_derivative_ptrs);
-  
-  CCTK_REAL const *restrict const dJ111 = use_jacobian ? jacobian_derivative_ptrs[0] : 0;
-  CCTK_REAL const *restrict const dJ112 = use_jacobian ? jacobian_derivative_ptrs[1] : 0;
-  CCTK_REAL const *restrict const dJ113 = use_jacobian ? jacobian_derivative_ptrs[2] : 0;
-  CCTK_REAL const *restrict const dJ122 = use_jacobian ? jacobian_derivative_ptrs[3] : 0;
-  CCTK_REAL const *restrict const dJ123 = use_jacobian ? jacobian_derivative_ptrs[4] : 0;
-  CCTK_REAL const *restrict const dJ133 = use_jacobian ? jacobian_derivative_ptrs[5] : 0;
-  CCTK_REAL const *restrict const dJ211 = use_jacobian ? jacobian_derivative_ptrs[6] : 0;
-  CCTK_REAL const *restrict const dJ212 = use_jacobian ? jacobian_derivative_ptrs[7] : 0;
-  CCTK_REAL const *restrict const dJ213 = use_jacobian ? jacobian_derivative_ptrs[8] : 0;
-  CCTK_REAL const *restrict const dJ222 = use_jacobian ? jacobian_derivative_ptrs[9] : 0;
-  CCTK_REAL const *restrict const dJ223 = use_jacobian ? jacobian_derivative_ptrs[10] : 0;
-  CCTK_REAL const *restrict const dJ233 = use_jacobian ? jacobian_derivative_ptrs[11] : 0;
-  CCTK_REAL const *restrict const dJ311 = use_jacobian ? jacobian_derivative_ptrs[12] : 0;
-  CCTK_REAL const *restrict const dJ312 = use_jacobian ? jacobian_derivative_ptrs[13] : 0;
-  CCTK_REAL const *restrict const dJ313 = use_jacobian ? jacobian_derivative_ptrs[14] : 0;
-  CCTK_REAL const *restrict const dJ322 = use_jacobian ? jacobian_derivative_ptrs[15] : 0;
-  CCTK_REAL const *restrict const dJ323 = use_jacobian ? jacobian_derivative_ptrs[16] : 0;
-  CCTK_REAL const *restrict const dJ333 = use_jacobian ? jacobian_derivative_ptrs[17] : 0;
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  LC_LOOP3VEC(ML_BSSN_UPW_enforce,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2],
-    CCTK_REAL_VEC_SIZE)
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL_VEC alphaL = vec_load(alpha[index]);
-    CCTK_REAL_VEC At11L = vec_load(At11[index]);
-    CCTK_REAL_VEC At12L = vec_load(At12[index]);
-    CCTK_REAL_VEC At13L = vec_load(At13[index]);
-    CCTK_REAL_VEC At22L = vec_load(At22[index]);
-    CCTK_REAL_VEC At23L = vec_load(At23[index]);
-    CCTK_REAL_VEC At33L = vec_load(At33[index]);
-    CCTK_REAL_VEC gt11L = vec_load(gt11[index]);
-    CCTK_REAL_VEC gt12L = vec_load(gt12[index]);
-    CCTK_REAL_VEC gt13L = vec_load(gt13[index]);
-    CCTK_REAL_VEC gt22L = vec_load(gt22[index]);
-    CCTK_REAL_VEC gt23L = vec_load(gt23[index]);
-    CCTK_REAL_VEC gt33L = vec_load(gt33[index]);
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    switch(fdOrder)
-    {
-      case 2:
-        break;
-      
-      case 4:
-        break;
-      
-      case 6:
-        break;
-      
-      case 8:
-        break;
-    }
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC detgt = ToReal(1);
-    
-    CCTK_REAL_VEC gtu11 = 
-      kmul(INV(detgt),kmsub(gt22L,gt33L,SQR(gt23L)));
-    
-    CCTK_REAL_VEC gtu12 = 
-      kmul(INV(detgt),kmsub(gt13L,gt23L,kmul(gt12L,gt33L)));
-    
-    CCTK_REAL_VEC gtu13 = 
-      kmul(INV(detgt),kmsub(gt12L,gt23L,kmul(gt13L,gt22L)));
-    
-    CCTK_REAL_VEC gtu22 = 
-      kmul(INV(detgt),kmsub(gt11L,gt33L,SQR(gt13L)));
-    
-    CCTK_REAL_VEC gtu23 = 
-      kmul(INV(detgt),kmsub(gt12L,gt13L,kmul(gt11L,gt23L)));
-    
-    CCTK_REAL_VEC gtu33 = 
-      kmul(INV(detgt),kmsub(gt11L,gt22L,SQR(gt12L)));
-    
-    CCTK_REAL_VEC trAt = 
-      kmadd(At11L,gtu11,kmadd(At22L,gtu22,kmadd(At33L,gtu33,kmul(kmadd(At12L,gtu12,kmadd(At13L,gtu13,kmul(At23L,gtu23))),ToReal(2)))));
-    
-    At11L = 
-      kmadd(gt11L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At11L);
-    
-    At12L = 
-      kmadd(gt12L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At12L);
-    
-    At13L = 
-      kmadd(gt13L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At13L);
-    
-    At22L = 
-      kmadd(gt22L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At22L);
-    
-    At23L = 
-      kmadd(gt23L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At23L);
-    
-    At33L = 
-      kmadd(gt33L,kmul(trAt,ToReal(-0.333333333333333333333333333333)),At33L);
-    
-    alphaL = kfmax(alphaL,ToReal(MinimumLapse));
-    
-    /* Copy local copies back to grid functions */
-    vec_store_partial_prepare(i,lc_imin,lc_imax);
-    vec_store_nta_partial(alpha[index],alphaL);
-    vec_store_nta_partial(At11[index],At11L);
-    vec_store_nta_partial(At12[index],At12L);
-    vec_store_nta_partial(At13[index],At13L);
-    vec_store_nta_partial(At22[index],At22L);
-    vec_store_nta_partial(At23[index],At23L);
-    vec_store_nta_partial(At33[index],At33L);
-  }
-  LC_ENDLOOP3VEC(ML_BSSN_UPW_enforce);
-}
-
-extern "C" void ML_BSSN_UPW_enforce(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_UPW_enforce_Body");
-  }
-  
-  if (cctk_iteration % ML_BSSN_UPW_enforce_calc_every != ML_BSSN_UPW_enforce_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_BSSN_UPW::ML_curv",
-    "ML_BSSN_UPW::ML_lapse",
-    "ML_BSSN_UPW::ML_metric"};
-  GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_UPW_enforce", 3, groups);
-  
-  switch(fdOrder)
-  {
-    case 2:
-      break;
-    
-    case 4:
-      break;
-    
-    case 6:
-      break;
-    
-    case 8:
-      break;
-  }
-  
-  GenericFD_LoopOverEverything(cctkGH, ML_BSSN_UPW_enforce_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ML_BSSN_UPW_enforce_Body");
-  }
-}
diff --git a/ML_BSSN_UPW/src/RegisterMoL.cc b/ML_BSSN_UPW/src/RegisterMoL.cc
deleted file mode 100644
index 7fdd505..0000000
--- a/ML_BSSN_UPW/src/RegisterMoL.cc
+++ /dev/null
@@ -1,43 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_BSSN_UPW_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::At11"),  CCTK_VarIndex("ML_BSSN_UPW::At11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::At12"),  CCTK_VarIndex("ML_BSSN_UPW::At12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::At13"),  CCTK_VarIndex("ML_BSSN_UPW::At13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::At22"),  CCTK_VarIndex("ML_BSSN_UPW::At22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::At23"),  CCTK_VarIndex("ML_BSSN_UPW::At23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::At33"),  CCTK_VarIndex("ML_BSSN_UPW::At33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::A"),  CCTK_VarIndex("ML_BSSN_UPW::Arhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::B1"),  CCTK_VarIndex("ML_BSSN_UPW::B1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::B2"),  CCTK_VarIndex("ML_BSSN_UPW::B2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::B3"),  CCTK_VarIndex("ML_BSSN_UPW::B3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::Xt1"),  CCTK_VarIndex("ML_BSSN_UPW::Xt1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::Xt2"),  CCTK_VarIndex("ML_BSSN_UPW::Xt2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::Xt3"),  CCTK_VarIndex("ML_BSSN_UPW::Xt3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::alpha"),  CCTK_VarIndex("ML_BSSN_UPW::alpharhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::phi"),  CCTK_VarIndex("ML_BSSN_UPW::phirhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::gt11"),  CCTK_VarIndex("ML_BSSN_UPW::gt11rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::gt12"),  CCTK_VarIndex("ML_BSSN_UPW::gt12rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::gt13"),  CCTK_VarIndex("ML_BSSN_UPW::gt13rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::gt22"),  CCTK_VarIndex("ML_BSSN_UPW::gt22rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::gt23"),  CCTK_VarIndex("ML_BSSN_UPW::gt23rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::gt33"),  CCTK_VarIndex("ML_BSSN_UPW::gt33rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::beta1"),  CCTK_VarIndex("ML_BSSN_UPW::beta1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::beta2"),  CCTK_VarIndex("ML_BSSN_UPW::beta2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::beta3"),  CCTK_VarIndex("ML_BSSN_UPW::beta3rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_BSSN_UPW::trK"),  CCTK_VarIndex("ML_BSSN_UPW::trKrhs"));
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_BSSN_UPW/src/RegisterSymmetries.cc b/ML_BSSN_UPW/src/RegisterSymmetries.cc
deleted file mode 100644
index e63fc15..0000000
--- a/ML_BSSN_UPW/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,189 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_BSSN_UPW_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::At11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::At12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::At13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::At22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::At23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::At33");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::A");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::B1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::B2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::B3");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::Xt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::Xt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::Xt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::alpha");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::phi");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::gt11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::gt12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::gt13");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::gt22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::gt23");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::gt33");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::beta1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::beta2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::beta3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::trK");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::cS");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::cXt1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::cXt2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::cXt3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::cA");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::H");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::M1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::M2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_BSSN_UPW::M3");
-  
-}
diff --git a/ML_BSSN_UPW/src/Startup.cc b/ML_BSSN_UPW/src/Startup.cc
deleted file mode 100644
index bf2d3c1..0000000
--- a/ML_BSSN_UPW/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_BSSN_UPW_Startup(void)
-{
-  const char * banner = "ML_BSSN_UPW";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_BSSN_UPW/src/make.code.defn b/ML_BSSN_UPW/src/make.code.defn
deleted file mode 100644
index f858947..0000000
--- a/ML_BSSN_UPW/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc ML_BSSN_UPW_Minkowski.cc ML_BSSN_UPW_convertFromADMBase.cc ML_BSSN_UPW_InitGamma.cc ML_BSSN_UPW_convertFromADMBaseGamma.cc ML_BSSN_UPW_RHS1.cc ML_BSSN_UPW_RHS2.cc ML_BSSN_UPW_Dissipation.cc ML_BSSN_UPW_Advect.cc ML_BSSN_UPW_InitRHS.cc ML_BSSN_UPW_RHSStaticBoundary.cc ML_BSSN_UPW_enforce.cc ML_BSSN_UPW_boundary.cc ML_BSSN_UPW_convertToADMBase.cc ML_BSSN_UPW_convertToADMBaseDtLapseShift.cc ML_BSSN_UPW_convertToADMBaseDtLapseShiftBoundary.cc ML_BSSN_UPW_convertToADMBaseFakeDtLapseShift.cc ML_BSSN_UPW_constraints1.cc ML_BSSN_UPW_constraints2.cc Boundaries.cc 
diff --git a/ML_BSSN_UPW_Helper/configuration.ccl b/ML_BSSN_UPW_Helper/configuration.ccl
deleted file mode 100644
index edaa5b7..0000000
--- a/ML_BSSN_UPW_Helper/configuration.ccl
+++ /dev/null
@@ -1 +0,0 @@
-REQUIRES THORNS: CartGrid3D CoordGauge
diff --git a/ML_BSSN_UPW_Helper/interface.ccl b/ML_BSSN_UPW_Helper/interface.ccl
deleted file mode 100644
index 5f248e3..0000000
--- a/ML_BSSN_UPW_Helper/interface.ccl
+++ /dev/null
@@ -1,38 +0,0 @@
-IMPLEMENTS: ML_BSSN_UPW_Helper
-
-INHERITS: ADMBase CoordGauge ML_BSSN_UPW
-
-USES INCLUDE: Slicing.h
-USES INCLUDE: Symmetry.h
-
-
-
-CCTK_INT FUNCTION MoLRegisterConstrainedGroup \
-    (CCTK_INT IN ConstrainedIndex)
-USES FUNCTION MoLRegisterConstrainedGroup
-
-CCTK_INT FUNCTION                         \
-    Boundary_SelectGroupForBC             \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-          CCTK_INT IN faces,              \
-          CCTK_INT IN boundary_width,     \
-          CCTK_INT IN table_handle,       \
-          CCTK_STRING IN group_name,      \
-          CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION                         \
-    ExtrapolateGammas                     \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY INOUT var)
-USES FUNCTION ExtrapolateGammas
-
-CCTK_INT FUNCTION                         \
-    NewRad_Apply                          \
-        (CCTK_POINTER_TO_CONST IN cctkGH, \
-         CCTK_REAL ARRAY IN var,          \
-         CCTK_REAL ARRAY INOUT rhs,       \
-         CCTK_REAL IN var0,               \
-         CCTK_REAL IN v0,                 \
-         CCTK_INT IN radpower)
-USES FUNCTION NewRad_Apply
diff --git a/ML_BSSN_UPW_Helper/param.ccl b/ML_BSSN_UPW_Helper/param.ccl
deleted file mode 100644
index 135b72f..0000000
--- a/ML_BSSN_UPW_Helper/param.ccl
+++ /dev/null
@@ -1,39 +0,0 @@
-SHARES: Boundary
-
-USES CCTK_INT radpower
-
-SHARES: MethodofLines
-
-USES CCTK_INT MoL_Num_Constrained_Vars
-
-SHARES: ADMBase
-
-USES KEYWORD evolution_method
-
-SHARES: GenericFD
-
-USES CCTK_INT boundary_width
-
-SHARES: ML_BSSN_UPW
-
-USES CCTK_INT timelevels
-USES CCTK_INT rhs_timelevels
-USES KEYWORD calculate_ADMBase_variables_at
-
-USES CCTK_REAL harmonicF
-
-EXTENDS KEYWORD my_initial_boundary_condition
-{
-  "extrapolate-gammas" :: "extrapolate-gammas"
-}
-EXTENDS KEYWORD my_rhs_boundary_condition
-{
-  "NewRad" :: "NewRad"
-}
-
-PRIVATE:
-
-CCTK_INT ML_BSSN_UPW_MaxNumConstrainedVars "Number of constrained variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Constrained_Vars
-{
-  20:20 :: "Number of constrained variables used by this thorn"
-} 20
diff --git a/ML_BSSN_UPW_Helper/schedule.ccl b/ML_BSSN_UPW_Helper/schedule.ccl
deleted file mode 100644
index 0ebc960..0000000
--- a/ML_BSSN_UPW_Helper/schedule.ccl
+++ /dev/null
@@ -1,161 +0,0 @@
-if (CCTK_EQUALS (evolution_method, "ML_BSSN_UPW")) {
-  
-  if (timelevels == 1) {
-    STORAGE: ADMBase::metric[1]
-    STORAGE: ADMBase::curv[1]
-    STORAGE: ADMBase::lapse[1]
-    STORAGE: ADMBase::shift[1]
-    STORAGE: ADMBase::dtlapse[1]
-    STORAGE: ADMBase::dtshift[1]
-  } else if (timelevels == 2) {
-    STORAGE: ADMBase::metric[2]
-    STORAGE: ADMBase::curv[2]
-    STORAGE: ADMBase::lapse[2]
-    STORAGE: ADMBase::shift[2]
-    STORAGE: ADMBase::dtlapse[2]
-    STORAGE: ADMBase::dtshift[2]
-  } else if (timelevels == 3) {
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  } else if (timelevels == 4) {
-    #STORAGE: ADMBase::metric[4]
-    #STORAGE: ADMBase::curv[4]
-    #STORAGE: ADMBase::lapse[4]
-    #STORAGE: ADMBase::shift[4]
-    #STORAGE: ADMBase::dtlapse[4]
-    #STORAGE: ADMBase::dtshift[4]
-    STORAGE: ADMBase::metric[3]
-    STORAGE: ADMBase::curv[3]
-    STORAGE: ADMBase::lapse[3]
-    STORAGE: ADMBase::shift[3]
-    STORAGE: ADMBase::dtlapse[3]
-    STORAGE: ADMBase::dtshift[3]
-  }
-  
-  SCHEDULE ML_BSSN_UPW_RegisterSlicing AT startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register slicing"
-  
-  SCHEDULE ML_BSSN_UPW_SetGroupTags AT startup BEFORE Driver_Startup
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Set checkpointing and prolongation group tags"
-  
-  SCHEDULE ML_BSSN_UPW_RegisterConstrained IN MoL_Register
-  {
-    LANG: C
-    OPTIONS: meta
-  } "Register ADMBase variables as constrained"
-  
-  
-  
-  # Why would any of these two be necessary?
-  #SCHEDULE GROUP ML_BSSN_UPW_evolCalcGroup AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Calculate BSSN RHS"
-  #SCHEDULE GROUP MoL_CalcRHS AT postinitial AFTER MoL_PostStep
-  #{
-  #} "Evaluate RHS"
-  
-  SCHEDULE GROUP ML_BSSN_UPW_evolCalcGroup IN MoL_CalcRHS
-  {
-  } "Calculate BSSN RHS"
-  
-  SCHEDULE GROUP ML_BSSN_UPW_evolCalcGroup AT analysis
-  {
-    TRIGGERS: ML_BSSN_UPW::ML_log_confacrhs
-    TRIGGERS: ML_BSSN_UPW::ML_metricrhs
-    TRIGGERS: ML_BSSN_UPW::ML_Gammarhs
-    TRIGGERS: ML_BSSN_UPW::ML_trace_curvrhs
-    TRIGGERS: ML_BSSN_UPW::ML_curvrhs
-    TRIGGERS: ML_BSSN_UPW::ML_lapserhs
-    TRIGGERS: ML_BSSN_UPW::ML_dtlapserhs
-    TRIGGERS: ML_BSSN_UPW::ML_shiftrhs
-    TRIGGERS: ML_BSSN_UPW::ML_dtshiftrhs
-  } "Calculate BSSN RHS"
-  
-  
-  
-  if (CCTK_EQUALS (my_initial_boundary_condition, "extrapolate-gammas"))
-  {
-    SCHEDULE ML_BSSN_UPW_ExtrapolateGammas AT initial AFTER ML_BSSN_UPW_convertFromADMBaseGamma
-    {
-      LANG: C
-      # We don't need to synchronise here because extrapolation is now filling
-      # ghost zones
-      #SYNC: ML_Gamma
-      #SYNC: ML_dtlapse
-      #SYNC: ML_dtshift
-    } "Extrapolate Gammas and time derivatives of lapse and shift"
-  }
-  
-  if (CCTK_EQUALS (my_rhs_boundary_condition, "NewRad"))
-  {
-    SCHEDULE ML_BSSN_UPW_NewRad IN ML_BSSN_UPW_evolCalcGroup AFTER ML_BSSN_UPW_RHS
-    {
-      LANG: C
-      #SYNC: ML_curvrhs
-      #SYNC: ML_dtlapserhs
-      #SYNC: ML_dtshiftrhs
-      #SYNC: ML_Gammarhs
-      #SYNC: ML_lapserhs
-      #SYNC: ML_log_confacrhs
-      #SYNC: ML_metricrhs
-      #SYNC: ML_shiftrhs
-      #SYNC: ML_trace_curvrhs
-    } "Apply NewRad boundary conditions to RHS"
-  }
-  
-  
-  
-  SCHEDULE GROUP ML_BSSN_UPW_convertToADMBaseGroup IN ML_BSSN_UPW_convertToADMBaseGroupWrapper
-  {
-    #SYNC: ADMBase::metric
-    #SYNC: ADMBase::curv
-    #SYNC: ADMBase::lapse
-    #SYNC: ADMBase::shift
-    #SYNC: ADMBase::dtlapse
-    #SYNC: ADMBase::dtshift
-  } "Calculate ADM variables"
-  
-  if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep"))
-  {
-    SCHEDULE GROUP ML_BSSN_UPW_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_UPW_ApplyBCs ML_BSSN_UPW_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_EVOL"))
-  {
-    SCHEDULE GROUP ML_BSSN_UPW_convertToADMBaseGroupWrapper IN MoL_PseudoEvolution BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-  else if  (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_ANALYSIS"))
-  {
-    SCHEDULE GROUP ML_BSSN_UPW_convertToADMBaseGroupWrapper AT post_recover_variables
-    {
-    } "Calculate ADM variables"
-    
-    SCHEDULE GROUP ML_BSSN_UPW_convertToADMBaseGroupWrapper AT analysis BEFORE (ADMBase_SetADMVars Whisky_PostStep)
-    {
-    } "Calculate ADM variables"
-  }
-
-  SCHEDULE ML_BSSN_UPW_SelectBCsADMBase IN ML_BSSN_UPW_convertToADMBaseGroupWrapper AFTER ML_BSSN_UPW_convertToADMBaseGroup
-  {
-    LANG: C
-    OPTIONS: level
-  } "Select boundary conditions for ADMBase variables"
-  
-  SCHEDULE GROUP ApplyBCs AS ML_BSSN_UPW_ApplyBCsADMBase IN ML_BSSN_UPW_convertToADMBaseGroupWrapper AFTER ML_BSSN_UPW_SelectBCsADMBase
-  {
-  } "Apply boundary conditions to ADMBase variables"
-  
-}
diff --git a/ML_BSSN_UPW_Helper/src/ExtrapolateGammas.c b/ML_BSSN_UPW_Helper/src/ExtrapolateGammas.c
deleted file mode 100644
index 853e2f8..0000000
--- a/ML_BSSN_UPW_Helper/src/ExtrapolateGammas.c
+++ /dev/null
@@ -1,29 +0,0 @@
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-extrap (cGH const * restrict cctkGH,
-        CCTK_REAL * restrict var);
-
-void
-ML_BSSN_UPW_ExtrapolateGammas (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  extrap (cctkGH, Xt1);
-  extrap (cctkGH, Xt2);
-  extrap (cctkGH, Xt3);
-  
-  extrap (cctkGH, A);
-  
-  extrap (cctkGH, B1);
-  extrap (cctkGH, B2);
-  extrap (cctkGH, B3);
-}
-
-static void
-extrap (cGH const * restrict const cctkGH,
-        CCTK_REAL * restrict const var)
-{
-  ExtrapolateGammas (cctkGH, var);
-}
diff --git a/ML_BSSN_UPW_Helper/src/NewRad.c b/ML_BSSN_UPW_Helper/src/NewRad.c
deleted file mode 100644
index 439b865..0000000
--- a/ML_BSSN_UPW_Helper/src/NewRad.c
+++ /dev/null
@@ -1,67 +0,0 @@
-#include <math.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-newrad (cGH const * restrict cctkGH,
-        CCTK_REAL const * restrict var,
-        CCTK_REAL * restrict rhs,
-        CCTK_REAL var0,
-        CCTK_REAL v0);
-
-void
-ML_BSSN_UPW_NewRad (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_REAL const v0 = sqrt (harmonicF);
-  
-  newrad (cctkGH, phi  , phirhs  , 0.0, v0 );
-  
-  newrad (cctkGH, gt11 , gt11rhs , 1.0, 1.0);
-  newrad (cctkGH, gt12 , gt12rhs , 0.0, 1.0);
-  newrad (cctkGH, gt13 , gt13rhs , 0.0, 1.0);
-  newrad (cctkGH, gt22 , gt22rhs , 1.0, 1.0);
-  newrad (cctkGH, gt23 , gt23rhs , 0.0, 1.0);
-  newrad (cctkGH, gt33 , gt33rhs , 1.0, 1.0);
-  
-  newrad (cctkGH, Xt1  , Xt1rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt2  , Xt2rhs  , 0.0, 1.0);
-  newrad (cctkGH, Xt3  , Xt3rhs  , 0.0, 1.0);
-  
-  newrad (cctkGH, trK  , trKrhs  , 0.0, v0 );
-  
-  newrad (cctkGH, At11 , At11rhs , 0.0, 1.0);
-  newrad (cctkGH, At12 , At12rhs , 0.0, 1.0);
-  newrad (cctkGH, At13 , At13rhs , 0.0, 1.0);
-  newrad (cctkGH, At22 , At22rhs , 0.0, 1.0);
-  newrad (cctkGH, At23 , At23rhs , 0.0, 1.0);
-  newrad (cctkGH, At33 , At33rhs , 0.0, 1.0);
-  
-  newrad (cctkGH, alpha, alpharhs, 1.0, v0 );
-  
-  newrad (cctkGH, A    , Arhs    , 0.0, v0 );
-  
-  newrad (cctkGH, beta1, beta1rhs, 0.0, 1.0);
-  newrad (cctkGH, beta2, beta2rhs, 0.0, 1.0);
-  newrad (cctkGH, beta3, beta3rhs, 0.0, 1.0);
-  
-  newrad (cctkGH, B1   , B1rhs   , 0.0, 1.0);
-  newrad (cctkGH, B2   , B2rhs   , 0.0, 1.0);
-  newrad (cctkGH, B3   , B3rhs   , 0.0, 1.0);
-}
-
-static void
-newrad (cGH const * restrict const cctkGH,
-        CCTK_REAL const * restrict const var,
-        CCTK_REAL * restrict const rhs,
-        CCTK_REAL const var0,
-        CCTK_REAL const v0)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  NewRad_Apply (cctkGH, var, rhs, var0, v0, radpower);
-}
diff --git a/ML_BSSN_UPW_Helper/src/RegisterConstrained.c b/ML_BSSN_UPW_Helper/src/RegisterConstrained.c
deleted file mode 100644
index df00685..0000000
--- a/ML_BSSN_UPW_Helper/src/RegisterConstrained.c
+++ /dev/null
@@ -1,32 +0,0 @@
-#include <assert.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-static void
-register_constrained (char const * restrict const gn);
-
-void
-ML_BSSN_UPW_RegisterConstrained (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  register_constrained ("ADMBase::metric");
-  register_constrained ("ADMBase::curv");
-  register_constrained ("ADMBase::lapse");
-  register_constrained ("ADMBase::shift");
-  register_constrained ("ADMBase::dtlapse");
-  register_constrained ("ADMBase::dtshift");
-}
-
-static void
-register_constrained (char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  int const ierr = MoLRegisterConstrainedGroup (gi);
-  assert (! ierr);
-}
diff --git a/ML_BSSN_UPW_Helper/src/RegisterSlicing.c b/ML_BSSN_UPW_Helper/src/RegisterSlicing.c
deleted file mode 100644
index 7d01ea1..0000000
--- a/ML_BSSN_UPW_Helper/src/RegisterSlicing.c
+++ /dev/null
@@ -1,9 +0,0 @@
-#include <cctk.h>
-#include <Slicing.h>
-
-int
-ML_BSSN_UPW_RegisterSlicing (void)
-{
-  Einstein_RegisterSlicing ("ML_BSSN_UPW");
-  return 0;
-}
diff --git a/ML_BSSN_UPW_Helper/src/SelectBCsADMBase.c b/ML_BSSN_UPW_Helper/src/SelectBCsADMBase.c
deleted file mode 100644
index 45e960e..0000000
--- a/ML_BSSN_UPW_Helper/src/SelectBCsADMBase.c
+++ /dev/null
@@ -1,31 +0,0 @@
-#include <assert.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-#include <cctk_Parameters.h>
-
-static void
-select_bcs (cGH const * restrict cctkGH, char const * restrict gn);
-
-void
-ML_BSSN_UPW_SelectBCsADMBase (CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  
-  select_bcs (cctkGH, "ADMBase::metric");
-  select_bcs (cctkGH, "ADMBase::curv");
-  select_bcs (cctkGH, "ADMBase::lapse");
-  select_bcs (cctkGH, "ADMBase::shift");
-  select_bcs (cctkGH, "ADMBase::dtlapse");
-  select_bcs (cctkGH, "ADMBase::dtshift");
-}
-
-static void
-select_bcs (cGH const * restrict const cctkGH, char const * restrict const gn)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const ierr = Boundary_SelectGroupForBC
-    (cctkGH, CCTK_ALL_FACES, boundary_width, -1, gn, "none");
-  assert (! ierr);
-}
diff --git a/ML_BSSN_UPW_Helper/src/SetGroupTags.c b/ML_BSSN_UPW_Helper/src/SetGroupTags.c
deleted file mode 100644
index 3ca87a9..0000000
--- a/ML_BSSN_UPW_Helper/src/SetGroupTags.c
+++ /dev/null
@@ -1,76 +0,0 @@
-#include <cctk.h>
-#include <cctk_Parameters.h>
-#include <util_Table.h>
-
-#include <assert.h>
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn);
-
-int
-ML_BSSN_UPW_SetGroupTags (void)
-{
-  DECLARE_CCTK_PARAMETERS;
-  
-  int const checkpoint = timelevels > 1;
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::metric");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::curv");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::lapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::shift");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtlapse");
-  set_group_tags (checkpoint, checkpoint, 1, "ADMBase::dtshift");
-  
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_UPW::ML_cons_detg");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_UPW::ML_cons_Gamma");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_UPW::ML_cons_traceA");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_UPW::ML_Ham");
-  set_group_tags (checkpoint, checkpoint, 0, "ML_BSSN_UPW::ML_mom");
-  
-  int const rhs_checkpoint = rhs_timelevels > 1;
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_UPW::ML_log_confacrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_UPW::ML_metricrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_UPW::ML_Gammarhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_UPW::ML_trace_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_UPW::ML_curvrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_UPW::ML_lapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_UPW::ML_dtlapserhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_UPW::ML_shiftrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_BSSN_UPW::ML_dtshiftrhs");
-  
-  return 0;
-}
-
-static void
-set_group_tags (int const checkpoint,
-                int const persistent,
-                int const prolongate,
-                char const * restrict const gn)
-{
-  assert (gn);
-  
-  int const gi = CCTK_GroupIndex (gn);
-  assert (gi >= 0);
-  
-  int const table = CCTK_GroupTagsTableI (gi);
-  assert (table >= 0);
-  
-  if (! checkpoint) {
-    int const ierr = Util_TableSetString (table, "no", "Checkpoint");
-    assert (! ierr);
-  }
-  
-  if (! persistent) {
-    int const ierr = Util_TableSetString (table, "no", "Persistent");
-    assert (! ierr);
-  }
-  
-  if (! prolongate) {
-    int const iret = Util_TableDeleteKey (table, "ProlongationParameter");
-    assert (iret == 0 || iret == UTIL_ERROR_TABLE_NO_SUCH_KEY);
-    int const ierr = Util_TableSetString (table, "none", "Prolongation");
-    assert (! ierr);
-  }
-}
diff --git a/ML_BSSN_UPW_Helper/src/make.code.defn b/ML_BSSN_UPW_Helper/src/make.code.defn
deleted file mode 100644
index a3ac433..0000000
--- a/ML_BSSN_UPW_Helper/src/make.code.defn
+++ /dev/null
@@ -1,2 +0,0 @@
-# -*-Makefile-*-
-SRCS = ExtrapolateGammas.c NewRad.c RegisterConstrained.c RegisterSlicing.c SelectBCsADMBase.c SetGroupTags.c
diff --git a/ML_CCZ4/schedule.ccl b/ML_CCZ4/schedule.ccl
index ae25c0e..ca5cbeb 100644
--- a/ML_CCZ4/schedule.ccl
+++ b/ML_CCZ4/schedule.ccl
@@ -304,16 +304,32 @@ if (CCTK_EQUALS(my_initial_data, "Minkowski"))
   schedule ML_CCZ4_Minkowski IN ADMBase_InitialData
   {
     LANG: C
-    WRITES:   ML_CCZ4::ML_curv
-    WRITES:   ML_CCZ4::ML_dtlapse
-    WRITES:   ML_CCZ4::ML_dtshift
-    WRITES:   ML_CCZ4::ML_Gamma
-    WRITES:   ML_CCZ4::ML_lapse
-    WRITES:   ML_CCZ4::ML_log_confac
-    WRITES:   ML_CCZ4::ML_metric
-    WRITES:   ML_CCZ4::ML_shift
-    WRITES:   ML_CCZ4::ML_Theta
-    WRITES:   ML_CCZ4::ML_trace_curv
+    WRITES:   ML_CCZ4::A
+    WRITES:   ML_CCZ4::alpha
+    WRITES:   ML_CCZ4::At11
+    WRITES:   ML_CCZ4::At12
+    WRITES:   ML_CCZ4::At13
+    WRITES:   ML_CCZ4::At22
+    WRITES:   ML_CCZ4::At23
+    WRITES:   ML_CCZ4::At33
+    WRITES:   ML_CCZ4::B1
+    WRITES:   ML_CCZ4::B2
+    WRITES:   ML_CCZ4::B3
+    WRITES:   ML_CCZ4::beta1
+    WRITES:   ML_CCZ4::beta2
+    WRITES:   ML_CCZ4::beta3
+    WRITES:   ML_CCZ4::gt11
+    WRITES:   ML_CCZ4::gt12
+    WRITES:   ML_CCZ4::gt13
+    WRITES:   ML_CCZ4::gt22
+    WRITES:   ML_CCZ4::gt23
+    WRITES:   ML_CCZ4::gt33
+    WRITES:   ML_CCZ4::phi
+    WRITES:   ML_CCZ4::Theta
+    WRITES:   ML_CCZ4::trK
+    WRITES:   ML_CCZ4::Xt1
+    WRITES:   ML_CCZ4::Xt2
+    WRITES:   ML_CCZ4::Xt3
   } "ML_CCZ4_Minkowski"
 }
 
@@ -323,19 +339,43 @@ if (CCTK_EQUALS(my_initial_data, "ADMBase"))
   schedule ML_CCZ4_convertFromADMBase AT initial AFTER ADMBase_PostInitial
   {
     LANG: C
-    READS:    ADMBase::curv
-    READS:    ADMBase::lapse
-    READS:    ADMBase::metric
-    READS:    ADMBase::shift
-    READS:    ML_CCZ4::ML_log_confac
-    READS:    ML_CCZ4::ML_trace_curv
-    WRITES:   ML_CCZ4::ML_curv
-    WRITES:   ML_CCZ4::ML_lapse
-    WRITES:   ML_CCZ4::ML_log_confac
-    WRITES:   ML_CCZ4::ML_metric
-    WRITES:   ML_CCZ4::ML_shift
-    WRITES:   ML_CCZ4::ML_Theta
-    WRITES:   ML_CCZ4::ML_trace_curv
+    READS:    ADMBase::alp
+    READS:    ADMBase::betax
+    READS:    ADMBase::betay
+    READS:    ADMBase::betaz
+    READS:    ADMBase::gxx
+    READS:    ADMBase::gxy
+    READS:    ADMBase::gxz
+    READS:    ADMBase::gyy
+    READS:    ADMBase::gyz
+    READS:    ADMBase::gzz
+    READS:    ADMBase::kxx
+    READS:    ADMBase::kxy
+    READS:    ADMBase::kxz
+    READS:    ADMBase::kyy
+    READS:    ADMBase::kyz
+    READS:    ADMBase::kzz
+    READS:    ML_CCZ4::phi
+    READS:    ML_CCZ4::trK
+    WRITES:   ML_CCZ4::alpha
+    WRITES:   ML_CCZ4::At11
+    WRITES:   ML_CCZ4::At12
+    WRITES:   ML_CCZ4::At13
+    WRITES:   ML_CCZ4::At22
+    WRITES:   ML_CCZ4::At23
+    WRITES:   ML_CCZ4::At33
+    WRITES:   ML_CCZ4::beta1
+    WRITES:   ML_CCZ4::beta2
+    WRITES:   ML_CCZ4::beta3
+    WRITES:   ML_CCZ4::gt11
+    WRITES:   ML_CCZ4::gt12
+    WRITES:   ML_CCZ4::gt13
+    WRITES:   ML_CCZ4::gt22
+    WRITES:   ML_CCZ4::gt23
+    WRITES:   ML_CCZ4::gt33
+    WRITES:   ML_CCZ4::phi
+    WRITES:   ML_CCZ4::Theta
+    WRITES:   ML_CCZ4::trK
   } "ML_CCZ4_convertFromADMBase"
 }
 
@@ -345,9 +385,13 @@ if (CCTK_EQUALS(my_initial_data, "ADMBase"))
   schedule ML_CCZ4_InitGamma AT initial BEFORE ML_CCZ4_convertFromADMBaseGamma
   {
     LANG: C
-    WRITES:   ML_CCZ4::ML_dtlapse
-    WRITES:   ML_CCZ4::ML_dtshift
-    WRITES:   ML_CCZ4::ML_Gamma
+    WRITES:   ML_CCZ4::A
+    WRITES:   ML_CCZ4::B1
+    WRITES:   ML_CCZ4::B2
+    WRITES:   ML_CCZ4::B3
+    WRITES:   ML_CCZ4::Xt1
+    WRITES:   ML_CCZ4::Xt2
+    WRITES:   ML_CCZ4::Xt3
   } "ML_CCZ4_InitGamma"
 }
 
@@ -360,65 +404,135 @@ if (CCTK_EQUALS(my_initial_data, "ADMBase"))
     SYNC: ML_dtlapse
     SYNC: ML_dtshift
     SYNC: ML_Gamma
-    READS:    ADMBase::dtlapse
-    READS:    ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_CCZ4::ML_lapse
-    READS:    ML_CCZ4::ML_metric
-    READS:    ML_CCZ4::ML_shift
-    WRITES:   ML_CCZ4::ML_dtlapse
-    WRITES:   ML_CCZ4::ML_dtshift
-    WRITES:   ML_CCZ4::ML_Gamma
+    READS:    ML_CCZ4::alpha
+    READS:    ML_CCZ4::beta1
+    READS:    ML_CCZ4::beta2
+    READS:    ML_CCZ4::beta3
+    READS:    ADMBase::dtalp
+    READS:    ADMBase::dtbetax
+    READS:    ADMBase::dtbetay
+    READS:    ADMBase::dtbetaz
+    READS:    ML_CCZ4::gt11
+    READS:    ML_CCZ4::gt12
+    READS:    ML_CCZ4::gt13
+    READS:    ML_CCZ4::gt22
+    READS:    ML_CCZ4::gt23
+    READS:    ML_CCZ4::gt33
+    READS:    grid::r
+    WRITES:   ML_CCZ4::A
+    WRITES:   ML_CCZ4::B1
+    WRITES:   ML_CCZ4::B2
+    WRITES:   ML_CCZ4::B3
+    WRITES:   ML_CCZ4::Xt1
+    WRITES:   ML_CCZ4::Xt2
+    WRITES:   ML_CCZ4::Xt3
   } "ML_CCZ4_convertFromADMBaseGamma"
 }
 
 schedule ML_CCZ4_RHS1 IN ML_CCZ4_evolCalcGroup
 {
   LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_CCZ4::ML_curv
-  READS:    ML_CCZ4::ML_dtlapse
-  READS:    ML_CCZ4::ML_dtshift
-  READS:    ML_CCZ4::ML_Gamma
-  READS:    ML_CCZ4::ML_lapse
-  READS:    ML_CCZ4::ML_log_confac
-  READS:    ML_CCZ4::ML_metric
-  READS:    ML_CCZ4::ML_shift
-  READS:    ML_CCZ4::ML_Theta
-  READS:    ML_CCZ4::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_CCZ4::ML_dtlapserhs
-  WRITES:   ML_CCZ4::ML_dtshiftrhs
-  WRITES:   ML_CCZ4::ML_Gammarhs
-  WRITES:   ML_CCZ4::ML_lapserhs
-  WRITES:   ML_CCZ4::ML_log_confacrhs
-  WRITES:   ML_CCZ4::ML_metricrhs
-  WRITES:   ML_CCZ4::ML_shiftrhs
-  WRITES:   ML_CCZ4::ML_Thetarhs
-  WRITES:   ML_CCZ4::ML_trace_curvrhs
+  READS:    ML_CCZ4::A
+  READS:    ML_CCZ4::alpha
+  READS:    ML_CCZ4::At11
+  READS:    ML_CCZ4::At12
+  READS:    ML_CCZ4::At13
+  READS:    ML_CCZ4::At22
+  READS:    ML_CCZ4::At23
+  READS:    ML_CCZ4::At33
+  READS:    ML_CCZ4::B1
+  READS:    ML_CCZ4::B2
+  READS:    ML_CCZ4::B3
+  READS:    ML_CCZ4::beta1
+  READS:    ML_CCZ4::beta2
+  READS:    ML_CCZ4::beta3
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ML_CCZ4::gt11
+  READS:    ML_CCZ4::gt12
+  READS:    ML_CCZ4::gt13
+  READS:    ML_CCZ4::gt22
+  READS:    ML_CCZ4::gt23
+  READS:    ML_CCZ4::gt33
+  READS:    ML_CCZ4::phi
+  READS:    grid::r
+  READS:    ML_CCZ4::Theta
+  READS:    ML_CCZ4::trK
+  READS:    ML_CCZ4::Xt1
+  READS:    ML_CCZ4::Xt2
+  READS:    ML_CCZ4::Xt3
+  WRITES:   ML_CCZ4::alpharhs
+  WRITES:   ML_CCZ4::Arhs
+  WRITES:   ML_CCZ4::B1rhs
+  WRITES:   ML_CCZ4::B2rhs
+  WRITES:   ML_CCZ4::B3rhs
+  WRITES:   ML_CCZ4::beta1rhs
+  WRITES:   ML_CCZ4::beta2rhs
+  WRITES:   ML_CCZ4::beta3rhs
+  WRITES:   ML_CCZ4::gt11rhs
+  WRITES:   ML_CCZ4::gt12rhs
+  WRITES:   ML_CCZ4::gt13rhs
+  WRITES:   ML_CCZ4::gt22rhs
+  WRITES:   ML_CCZ4::gt23rhs
+  WRITES:   ML_CCZ4::gt33rhs
+  WRITES:   ML_CCZ4::phirhs
+  WRITES:   ML_CCZ4::Thetarhs
+  WRITES:   ML_CCZ4::trKrhs
+  WRITES:   ML_CCZ4::Xt1rhs
+  WRITES:   ML_CCZ4::Xt2rhs
+  WRITES:   ML_CCZ4::Xt3rhs
 } "ML_CCZ4_RHS1"
 
 schedule ML_CCZ4_RHS2 IN ML_CCZ4_evolCalcGroup
 {
   LANG: C
-  READS:    grid::coordinates
-  READS:    Grid::coordinates
-  READS:    ML_CCZ4::ML_curv
-  READS:    ML_CCZ4::ML_Gamma
-  READS:    ML_CCZ4::ML_lapse
-  READS:    ML_CCZ4::ML_log_confac
-  READS:    ML_CCZ4::ML_metric
-  READS:    ML_CCZ4::ML_shift
-  READS:    ML_CCZ4::ML_Theta
-  READS:    ML_CCZ4::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_CCZ4::ML_curvrhs
+  READS:    ML_CCZ4::alpha
+  READS:    ML_CCZ4::At11
+  READS:    ML_CCZ4::At12
+  READS:    ML_CCZ4::At13
+  READS:    ML_CCZ4::At22
+  READS:    ML_CCZ4::At23
+  READS:    ML_CCZ4::At33
+  READS:    ML_CCZ4::beta1
+  READS:    ML_CCZ4::beta2
+  READS:    ML_CCZ4::beta3
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ML_CCZ4::gt11
+  READS:    ML_CCZ4::gt12
+  READS:    ML_CCZ4::gt13
+  READS:    ML_CCZ4::gt22
+  READS:    ML_CCZ4::gt23
+  READS:    ML_CCZ4::gt33
+  READS:    ML_CCZ4::phi
+  READS:    grid::r
+  READS:    ML_CCZ4::Theta
+  READS:    ML_CCZ4::trK
+  READS:    ML_CCZ4::Xt1
+  READS:    ML_CCZ4::Xt2
+  READS:    ML_CCZ4::Xt3
+  WRITES:   ML_CCZ4::At11rhs
+  WRITES:   ML_CCZ4::At12rhs
+  WRITES:   ML_CCZ4::At13rhs
+  WRITES:   ML_CCZ4::At22rhs
+  WRITES:   ML_CCZ4::At23rhs
+  WRITES:   ML_CCZ4::At33rhs
 } "ML_CCZ4_RHS2"
 
 
@@ -427,87 +541,199 @@ if (CCTK_EQUALS(apply_dissipation, "always"))
   schedule ML_CCZ4_Dissipation IN ML_CCZ4_evolCalcGroup AFTER (ML_CCZ4_RHS1 ML_CCZ4_RHS2)
   {
     LANG: C
-    READS:    ML_CCZ4::ML_curv
-    READS:    ML_CCZ4::ML_curvrhs
-    READS:    ML_CCZ4::ML_dtlapse
-    READS:    ML_CCZ4::ML_dtlapserhs
-    READS:    ML_CCZ4::ML_dtshift
-    READS:    ML_CCZ4::ML_dtshiftrhs
-    READS:    ML_CCZ4::ML_Gamma
-    READS:    ML_CCZ4::ML_Gammarhs
-    READS:    ML_CCZ4::ML_lapse
-    READS:    ML_CCZ4::ML_lapserhs
-    READS:    ML_CCZ4::ML_log_confac
-    READS:    ML_CCZ4::ML_log_confacrhs
-    READS:    ML_CCZ4::ML_metric
-    READS:    ML_CCZ4::ML_metricrhs
-    READS:    ML_CCZ4::ML_shift
-    READS:    ML_CCZ4::ML_shiftrhs
-    READS:    ML_CCZ4::ML_Theta
-    READS:    ML_CCZ4::ML_Thetarhs
-    READS:    ML_CCZ4::ML_trace_curv
-    READS:    ML_CCZ4::ML_trace_curvrhs
-    WRITES:   ML_CCZ4::ML_curvrhs
-    WRITES:   ML_CCZ4::ML_dtlapserhs
-    WRITES:   ML_CCZ4::ML_dtshiftrhs
-    WRITES:   ML_CCZ4::ML_Gammarhs
-    WRITES:   ML_CCZ4::ML_lapserhs
-    WRITES:   ML_CCZ4::ML_log_confacrhs
-    WRITES:   ML_CCZ4::ML_metricrhs
-    WRITES:   ML_CCZ4::ML_shiftrhs
-    WRITES:   ML_CCZ4::ML_Thetarhs
-    WRITES:   ML_CCZ4::ML_trace_curvrhs
+    READS:    ML_CCZ4::A
+    READS:    ML_CCZ4::alpha
+    READS:    ML_CCZ4::alpharhs
+    READS:    ML_CCZ4::Arhs
+    READS:    ML_CCZ4::At11
+    READS:    ML_CCZ4::At11rhs
+    READS:    ML_CCZ4::At12
+    READS:    ML_CCZ4::At12rhs
+    READS:    ML_CCZ4::At13
+    READS:    ML_CCZ4::At13rhs
+    READS:    ML_CCZ4::At22
+    READS:    ML_CCZ4::At22rhs
+    READS:    ML_CCZ4::At23
+    READS:    ML_CCZ4::At23rhs
+    READS:    ML_CCZ4::At33
+    READS:    ML_CCZ4::At33rhs
+    READS:    ML_CCZ4::B1
+    READS:    ML_CCZ4::B1rhs
+    READS:    ML_CCZ4::B2
+    READS:    ML_CCZ4::B2rhs
+    READS:    ML_CCZ4::B3
+    READS:    ML_CCZ4::B3rhs
+    READS:    ML_CCZ4::beta1
+    READS:    ML_CCZ4::beta1rhs
+    READS:    ML_CCZ4::beta2
+    READS:    ML_CCZ4::beta2rhs
+    READS:    ML_CCZ4::beta3
+    READS:    ML_CCZ4::beta3rhs
+    READS:    ML_CCZ4::gt11
+    READS:    ML_CCZ4::gt11rhs
+    READS:    ML_CCZ4::gt12
+    READS:    ML_CCZ4::gt12rhs
+    READS:    ML_CCZ4::gt13
+    READS:    ML_CCZ4::gt13rhs
+    READS:    ML_CCZ4::gt22
+    READS:    ML_CCZ4::gt22rhs
+    READS:    ML_CCZ4::gt23
+    READS:    ML_CCZ4::gt23rhs
+    READS:    ML_CCZ4::gt33
+    READS:    ML_CCZ4::gt33rhs
+    READS:    ML_CCZ4::phi
+    READS:    ML_CCZ4::phirhs
+    READS:    ML_CCZ4::Theta
+    READS:    ML_CCZ4::Thetarhs
+    READS:    ML_CCZ4::trK
+    READS:    ML_CCZ4::trKrhs
+    READS:    ML_CCZ4::Xt1
+    READS:    ML_CCZ4::Xt1rhs
+    READS:    ML_CCZ4::Xt2
+    READS:    ML_CCZ4::Xt2rhs
+    READS:    ML_CCZ4::Xt3
+    READS:    ML_CCZ4::Xt3rhs
+    WRITES:   ML_CCZ4::alpharhs
+    WRITES:   ML_CCZ4::Arhs
+    WRITES:   ML_CCZ4::At11rhs
+    WRITES:   ML_CCZ4::At12rhs
+    WRITES:   ML_CCZ4::At13rhs
+    WRITES:   ML_CCZ4::At22rhs
+    WRITES:   ML_CCZ4::At23rhs
+    WRITES:   ML_CCZ4::At33rhs
+    WRITES:   ML_CCZ4::B1rhs
+    WRITES:   ML_CCZ4::B2rhs
+    WRITES:   ML_CCZ4::B3rhs
+    WRITES:   ML_CCZ4::beta1rhs
+    WRITES:   ML_CCZ4::beta2rhs
+    WRITES:   ML_CCZ4::beta3rhs
+    WRITES:   ML_CCZ4::gt11rhs
+    WRITES:   ML_CCZ4::gt12rhs
+    WRITES:   ML_CCZ4::gt13rhs
+    WRITES:   ML_CCZ4::gt22rhs
+    WRITES:   ML_CCZ4::gt23rhs
+    WRITES:   ML_CCZ4::gt33rhs
+    WRITES:   ML_CCZ4::phirhs
+    WRITES:   ML_CCZ4::Thetarhs
+    WRITES:   ML_CCZ4::trKrhs
+    WRITES:   ML_CCZ4::Xt1rhs
+    WRITES:   ML_CCZ4::Xt2rhs
+    WRITES:   ML_CCZ4::Xt3rhs
   } "ML_CCZ4_Dissipation"
 }
 
 schedule ML_CCZ4_Advect IN ML_CCZ4_evolCalcGroup AFTER (ML_CCZ4_RHS1 ML_CCZ4_RHS2)
 {
   LANG: C
-  READS:    ML_CCZ4::ML_curv
-  READS:    ML_CCZ4::ML_curvrhs
-  READS:    ML_CCZ4::ML_dtlapse
-  READS:    ML_CCZ4::ML_dtlapserhs
-  READS:    ML_CCZ4::ML_dtshift
-  READS:    ML_CCZ4::ML_dtshiftrhs
-  READS:    ML_CCZ4::ML_Gamma
-  READS:    ML_CCZ4::ML_Gammarhs
-  READS:    ML_CCZ4::ML_lapse
-  READS:    ML_CCZ4::ML_lapserhs
-  READS:    ML_CCZ4::ML_log_confac
-  READS:    ML_CCZ4::ML_log_confacrhs
-  READS:    ML_CCZ4::ML_metric
-  READS:    ML_CCZ4::ML_metricrhs
-  READS:    ML_CCZ4::ML_shift
-  READS:    ML_CCZ4::ML_shiftrhs
-  READS:    ML_CCZ4::ML_Theta
-  READS:    ML_CCZ4::ML_Thetarhs
-  READS:    ML_CCZ4::ML_trace_curv
-  READS:    ML_CCZ4::ML_trace_curvrhs
-  WRITES:   ML_CCZ4::ML_curvrhs
-  WRITES:   ML_CCZ4::ML_dtlapserhs
-  WRITES:   ML_CCZ4::ML_dtshiftrhs
-  WRITES:   ML_CCZ4::ML_Gammarhs
-  WRITES:   ML_CCZ4::ML_lapserhs
-  WRITES:   ML_CCZ4::ML_log_confacrhs
-  WRITES:   ML_CCZ4::ML_metricrhs
-  WRITES:   ML_CCZ4::ML_shiftrhs
-  WRITES:   ML_CCZ4::ML_Thetarhs
-  WRITES:   ML_CCZ4::ML_trace_curvrhs
+  READS:    ML_CCZ4::A
+  READS:    ML_CCZ4::alpha
+  READS:    ML_CCZ4::alpharhs
+  READS:    ML_CCZ4::Arhs
+  READS:    ML_CCZ4::At11
+  READS:    ML_CCZ4::At11rhs
+  READS:    ML_CCZ4::At12
+  READS:    ML_CCZ4::At12rhs
+  READS:    ML_CCZ4::At13
+  READS:    ML_CCZ4::At13rhs
+  READS:    ML_CCZ4::At22
+  READS:    ML_CCZ4::At22rhs
+  READS:    ML_CCZ4::At23
+  READS:    ML_CCZ4::At23rhs
+  READS:    ML_CCZ4::At33
+  READS:    ML_CCZ4::At33rhs
+  READS:    ML_CCZ4::B1
+  READS:    ML_CCZ4::B1rhs
+  READS:    ML_CCZ4::B2
+  READS:    ML_CCZ4::B2rhs
+  READS:    ML_CCZ4::B3
+  READS:    ML_CCZ4::B3rhs
+  READS:    ML_CCZ4::beta1
+  READS:    ML_CCZ4::beta1rhs
+  READS:    ML_CCZ4::beta2
+  READS:    ML_CCZ4::beta2rhs
+  READS:    ML_CCZ4::beta3
+  READS:    ML_CCZ4::beta3rhs
+  READS:    ML_CCZ4::gt11
+  READS:    ML_CCZ4::gt11rhs
+  READS:    ML_CCZ4::gt12
+  READS:    ML_CCZ4::gt12rhs
+  READS:    ML_CCZ4::gt13
+  READS:    ML_CCZ4::gt13rhs
+  READS:    ML_CCZ4::gt22
+  READS:    ML_CCZ4::gt22rhs
+  READS:    ML_CCZ4::gt23
+  READS:    ML_CCZ4::gt23rhs
+  READS:    ML_CCZ4::gt33
+  READS:    ML_CCZ4::gt33rhs
+  READS:    ML_CCZ4::phi
+  READS:    ML_CCZ4::phirhs
+  READS:    ML_CCZ4::Theta
+  READS:    ML_CCZ4::Thetarhs
+  READS:    ML_CCZ4::trK
+  READS:    ML_CCZ4::trKrhs
+  READS:    ML_CCZ4::Xt1
+  READS:    ML_CCZ4::Xt1rhs
+  READS:    ML_CCZ4::Xt2
+  READS:    ML_CCZ4::Xt2rhs
+  READS:    ML_CCZ4::Xt3
+  READS:    ML_CCZ4::Xt3rhs
+  WRITES:   ML_CCZ4::alpharhs
+  WRITES:   ML_CCZ4::Arhs
+  WRITES:   ML_CCZ4::At11rhs
+  WRITES:   ML_CCZ4::At12rhs
+  WRITES:   ML_CCZ4::At13rhs
+  WRITES:   ML_CCZ4::At22rhs
+  WRITES:   ML_CCZ4::At23rhs
+  WRITES:   ML_CCZ4::At33rhs
+  WRITES:   ML_CCZ4::B1rhs
+  WRITES:   ML_CCZ4::B2rhs
+  WRITES:   ML_CCZ4::B3rhs
+  WRITES:   ML_CCZ4::beta1rhs
+  WRITES:   ML_CCZ4::beta2rhs
+  WRITES:   ML_CCZ4::beta3rhs
+  WRITES:   ML_CCZ4::gt11rhs
+  WRITES:   ML_CCZ4::gt12rhs
+  WRITES:   ML_CCZ4::gt13rhs
+  WRITES:   ML_CCZ4::gt22rhs
+  WRITES:   ML_CCZ4::gt23rhs
+  WRITES:   ML_CCZ4::gt33rhs
+  WRITES:   ML_CCZ4::phirhs
+  WRITES:   ML_CCZ4::Thetarhs
+  WRITES:   ML_CCZ4::trKrhs
+  WRITES:   ML_CCZ4::Xt1rhs
+  WRITES:   ML_CCZ4::Xt2rhs
+  WRITES:   ML_CCZ4::Xt3rhs
 } "ML_CCZ4_Advect"
 
 schedule ML_CCZ4_InitRHS AT analysis BEFORE ML_CCZ4_evolCalcGroup
 {
   LANG: C
-  WRITES:   ML_CCZ4::ML_curvrhs
-  WRITES:   ML_CCZ4::ML_dtlapserhs
-  WRITES:   ML_CCZ4::ML_dtshiftrhs
-  WRITES:   ML_CCZ4::ML_Gammarhs
-  WRITES:   ML_CCZ4::ML_lapserhs
-  WRITES:   ML_CCZ4::ML_log_confacrhs
-  WRITES:   ML_CCZ4::ML_metricrhs
-  WRITES:   ML_CCZ4::ML_shiftrhs
-  WRITES:   ML_CCZ4::ML_Thetarhs
-  WRITES:   ML_CCZ4::ML_trace_curvrhs
+  WRITES:   ML_CCZ4::alpharhs
+  WRITES:   ML_CCZ4::Arhs
+  WRITES:   ML_CCZ4::At11rhs
+  WRITES:   ML_CCZ4::At12rhs
+  WRITES:   ML_CCZ4::At13rhs
+  WRITES:   ML_CCZ4::At22rhs
+  WRITES:   ML_CCZ4::At23rhs
+  WRITES:   ML_CCZ4::At33rhs
+  WRITES:   ML_CCZ4::B1rhs
+  WRITES:   ML_CCZ4::B2rhs
+  WRITES:   ML_CCZ4::B3rhs
+  WRITES:   ML_CCZ4::beta1rhs
+  WRITES:   ML_CCZ4::beta2rhs
+  WRITES:   ML_CCZ4::beta3rhs
+  WRITES:   ML_CCZ4::gt11rhs
+  WRITES:   ML_CCZ4::gt12rhs
+  WRITES:   ML_CCZ4::gt13rhs
+  WRITES:   ML_CCZ4::gt22rhs
+  WRITES:   ML_CCZ4::gt23rhs
+  WRITES:   ML_CCZ4::gt33rhs
+  WRITES:   ML_CCZ4::phirhs
+  WRITES:   ML_CCZ4::Thetarhs
+  WRITES:   ML_CCZ4::trKrhs
+  WRITES:   ML_CCZ4::Xt1rhs
+  WRITES:   ML_CCZ4::Xt2rhs
+  WRITES:   ML_CCZ4::Xt3rhs
 } "ML_CCZ4_InitRHS"
 
 
@@ -516,27 +742,58 @@ if (CCTK_EQUALS(my_rhs_boundary_condition, "static"))
   schedule ML_CCZ4_RHSStaticBoundary IN MoL_CalcRHS
   {
     LANG: C
-    WRITES:   ML_CCZ4::ML_curvrhs
-    WRITES:   ML_CCZ4::ML_dtlapserhs
-    WRITES:   ML_CCZ4::ML_dtshiftrhs
-    WRITES:   ML_CCZ4::ML_Gammarhs
-    WRITES:   ML_CCZ4::ML_lapserhs
-    WRITES:   ML_CCZ4::ML_log_confacrhs
-    WRITES:   ML_CCZ4::ML_metricrhs
-    WRITES:   ML_CCZ4::ML_shiftrhs
-    WRITES:   ML_CCZ4::ML_Thetarhs
-    WRITES:   ML_CCZ4::ML_trace_curvrhs
+    WRITES:   ML_CCZ4::alpharhs
+    WRITES:   ML_CCZ4::Arhs
+    WRITES:   ML_CCZ4::At11rhs
+    WRITES:   ML_CCZ4::At12rhs
+    WRITES:   ML_CCZ4::At13rhs
+    WRITES:   ML_CCZ4::At22rhs
+    WRITES:   ML_CCZ4::At23rhs
+    WRITES:   ML_CCZ4::At33rhs
+    WRITES:   ML_CCZ4::B1rhs
+    WRITES:   ML_CCZ4::B2rhs
+    WRITES:   ML_CCZ4::B3rhs
+    WRITES:   ML_CCZ4::beta1rhs
+    WRITES:   ML_CCZ4::beta2rhs
+    WRITES:   ML_CCZ4::beta3rhs
+    WRITES:   ML_CCZ4::gt11rhs
+    WRITES:   ML_CCZ4::gt12rhs
+    WRITES:   ML_CCZ4::gt13rhs
+    WRITES:   ML_CCZ4::gt22rhs
+    WRITES:   ML_CCZ4::gt23rhs
+    WRITES:   ML_CCZ4::gt33rhs
+    WRITES:   ML_CCZ4::phirhs
+    WRITES:   ML_CCZ4::Thetarhs
+    WRITES:   ML_CCZ4::trKrhs
+    WRITES:   ML_CCZ4::Xt1rhs
+    WRITES:   ML_CCZ4::Xt2rhs
+    WRITES:   ML_CCZ4::Xt3rhs
   } "ML_CCZ4_RHSStaticBoundary"
 }
 
 schedule ML_CCZ4_enforce IN MoL_PostStepModify
 {
   LANG: C
-  READS:    ML_CCZ4::ML_curv
-  READS:    ML_CCZ4::ML_lapse
-  READS:    ML_CCZ4::ML_metric
-  WRITES:   ML_CCZ4::ML_curv
-  WRITES:   ML_CCZ4::ML_lapse
+  READS:    ML_CCZ4::alpha
+  READS:    ML_CCZ4::At11
+  READS:    ML_CCZ4::At12
+  READS:    ML_CCZ4::At13
+  READS:    ML_CCZ4::At22
+  READS:    ML_CCZ4::At23
+  READS:    ML_CCZ4::At33
+  READS:    ML_CCZ4::gt11
+  READS:    ML_CCZ4::gt12
+  READS:    ML_CCZ4::gt13
+  READS:    ML_CCZ4::gt22
+  READS:    ML_CCZ4::gt23
+  READS:    ML_CCZ4::gt33
+  WRITES:   ML_CCZ4::alpha
+  WRITES:   ML_CCZ4::At11
+  WRITES:   ML_CCZ4::At12
+  WRITES:   ML_CCZ4::At13
+  WRITES:   ML_CCZ4::At22
+  WRITES:   ML_CCZ4::At23
+  WRITES:   ML_CCZ4::At33
 } "ML_CCZ4_enforce"
 
 
@@ -545,33 +802,78 @@ if (CCTK_EQUALS(my_boundary_condition, "Minkowski"))
   schedule ML_CCZ4_boundary IN MoL_PostStep
   {
     LANG: C
-    WRITES:   ML_CCZ4::ML_curv
-    WRITES:   ML_CCZ4::ML_dtlapse
-    WRITES:   ML_CCZ4::ML_dtshift
-    WRITES:   ML_CCZ4::ML_Gamma
-    WRITES:   ML_CCZ4::ML_lapse
-    WRITES:   ML_CCZ4::ML_log_confac
-    WRITES:   ML_CCZ4::ML_metric
-    WRITES:   ML_CCZ4::ML_shift
-    WRITES:   ML_CCZ4::ML_Theta
-    WRITES:   ML_CCZ4::ML_trace_curv
+    WRITES:   ML_CCZ4::A
+    WRITES:   ML_CCZ4::alpha
+    WRITES:   ML_CCZ4::At11
+    WRITES:   ML_CCZ4::At12
+    WRITES:   ML_CCZ4::At13
+    WRITES:   ML_CCZ4::At22
+    WRITES:   ML_CCZ4::At23
+    WRITES:   ML_CCZ4::At33
+    WRITES:   ML_CCZ4::B1
+    WRITES:   ML_CCZ4::B2
+    WRITES:   ML_CCZ4::B3
+    WRITES:   ML_CCZ4::beta1
+    WRITES:   ML_CCZ4::beta2
+    WRITES:   ML_CCZ4::beta3
+    WRITES:   ML_CCZ4::gt11
+    WRITES:   ML_CCZ4::gt12
+    WRITES:   ML_CCZ4::gt13
+    WRITES:   ML_CCZ4::gt22
+    WRITES:   ML_CCZ4::gt23
+    WRITES:   ML_CCZ4::gt33
+    WRITES:   ML_CCZ4::phi
+    WRITES:   ML_CCZ4::Theta
+    WRITES:   ML_CCZ4::trK
+    WRITES:   ML_CCZ4::Xt1
+    WRITES:   ML_CCZ4::Xt2
+    WRITES:   ML_CCZ4::Xt3
   } "ML_CCZ4_boundary"
 }
 
 schedule ML_CCZ4_convertToADMBase IN ML_CCZ4_convertToADMBaseGroup
 {
   LANG: C
-  READS:    ADMBase::metric
-  READS:    ML_CCZ4::ML_curv
-  READS:    ML_CCZ4::ML_lapse
-  READS:    ML_CCZ4::ML_log_confac
-  READS:    ML_CCZ4::ML_metric
-  READS:    ML_CCZ4::ML_shift
-  READS:    ML_CCZ4::ML_trace_curv
-  WRITES:   ADMBase::curv
-  WRITES:   ADMBase::lapse
-  WRITES:   ADMBase::metric
-  WRITES:   ADMBase::shift
+  READS:    ML_CCZ4::alpha
+  READS:    ML_CCZ4::At11
+  READS:    ML_CCZ4::At12
+  READS:    ML_CCZ4::At13
+  READS:    ML_CCZ4::At22
+  READS:    ML_CCZ4::At23
+  READS:    ML_CCZ4::At33
+  READS:    ML_CCZ4::beta1
+  READS:    ML_CCZ4::beta2
+  READS:    ML_CCZ4::beta3
+  READS:    ML_CCZ4::gt11
+  READS:    ML_CCZ4::gt12
+  READS:    ML_CCZ4::gt13
+  READS:    ML_CCZ4::gt22
+  READS:    ML_CCZ4::gt23
+  READS:    ML_CCZ4::gt33
+  READS:    ADMBase::gxx
+  READS:    ADMBase::gxy
+  READS:    ADMBase::gxz
+  READS:    ADMBase::gyy
+  READS:    ADMBase::gyz
+  READS:    ADMBase::gzz
+  READS:    ML_CCZ4::phi
+  READS:    ML_CCZ4::trK
+  WRITES:   ADMBase::alp
+  WRITES:   ADMBase::betax
+  WRITES:   ADMBase::betay
+  WRITES:   ADMBase::betaz
+  WRITES:   ADMBase::gxx
+  WRITES:   ADMBase::gxy
+  WRITES:   ADMBase::gxz
+  WRITES:   ADMBase::gyy
+  WRITES:   ADMBase::gyz
+  WRITES:   ADMBase::gzz
+  WRITES:   ADMBase::kxx
+  WRITES:   ADMBase::kxy
+  WRITES:   ADMBase::kxz
+  WRITES:   ADMBase::kyy
+  WRITES:   ADMBase::kyz
+  WRITES:   ADMBase::kzz
 } "ML_CCZ4_convertToADMBase"
 
 
@@ -582,19 +884,31 @@ if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
     LANG: C
     SYNC: ADMBase::dtlapse
     SYNC: ADMBase::dtshift
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_CCZ4::ML_dtlapse
-    READS:    ML_CCZ4::ML_dtshift
-    READS:    ML_CCZ4::ML_Gamma
-    READS:    ML_CCZ4::ML_lapse
-    READS:    ML_CCZ4::ML_log_confac
-    READS:    ML_CCZ4::ML_metric
-    READS:    ML_CCZ4::ML_shift
-    READS:    ML_CCZ4::ML_Theta
-    READS:    ML_CCZ4::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
+    READS:    ML_CCZ4::A
+    READS:    ML_CCZ4::alpha
+    READS:    ML_CCZ4::B1
+    READS:    ML_CCZ4::B2
+    READS:    ML_CCZ4::B3
+    READS:    ML_CCZ4::beta1
+    READS:    ML_CCZ4::beta2
+    READS:    ML_CCZ4::beta3
+    READS:    ML_CCZ4::gt11
+    READS:    ML_CCZ4::gt12
+    READS:    ML_CCZ4::gt13
+    READS:    ML_CCZ4::gt22
+    READS:    ML_CCZ4::gt23
+    READS:    ML_CCZ4::gt33
+    READS:    ML_CCZ4::phi
+    READS:    grid::r
+    READS:    ML_CCZ4::Theta
+    READS:    ML_CCZ4::trK
+    READS:    ML_CCZ4::Xt1
+    READS:    ML_CCZ4::Xt2
+    READS:    ML_CCZ4::Xt3
+    WRITES:   ADMBase::dtalp
+    WRITES:   ADMBase::dtbetax
+    WRITES:   ADMBase::dtbetay
+    WRITES:   ADMBase::dtbetaz
   } "ML_CCZ4_convertToADMBaseDtLapseShift"
 }
 
@@ -604,18 +918,30 @@ if (CCTK_EQUALS(dt_lapse_shift_method, "correct"))
   schedule ML_CCZ4_convertToADMBaseDtLapseShiftBoundary IN ML_CCZ4_convertToADMBaseGroup
   {
     LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_CCZ4::ML_dtlapse
-    READS:    ML_CCZ4::ML_dtshift
-    READS:    ML_CCZ4::ML_Gamma
-    READS:    ML_CCZ4::ML_lapse
-    READS:    ML_CCZ4::ML_metric
-    READS:    ML_CCZ4::ML_shift
-    READS:    ML_CCZ4::ML_Theta
-    READS:    ML_CCZ4::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
+    READS:    ML_CCZ4::A
+    READS:    ML_CCZ4::alpha
+    READS:    ML_CCZ4::B1
+    READS:    ML_CCZ4::B2
+    READS:    ML_CCZ4::B3
+    READS:    ML_CCZ4::beta1
+    READS:    ML_CCZ4::beta2
+    READS:    ML_CCZ4::beta3
+    READS:    ML_CCZ4::gt11
+    READS:    ML_CCZ4::gt12
+    READS:    ML_CCZ4::gt13
+    READS:    ML_CCZ4::gt22
+    READS:    ML_CCZ4::gt23
+    READS:    ML_CCZ4::gt33
+    READS:    grid::r
+    READS:    ML_CCZ4::Theta
+    READS:    ML_CCZ4::trK
+    READS:    ML_CCZ4::Xt1
+    READS:    ML_CCZ4::Xt2
+    READS:    ML_CCZ4::Xt3
+    WRITES:   ADMBase::dtalp
+    WRITES:   ADMBase::dtbetax
+    WRITES:   ADMBase::dtbetay
+    WRITES:   ADMBase::dtbetaz
   } "ML_CCZ4_convertToADMBaseDtLapseShiftBoundary"
 }
 
@@ -625,18 +951,30 @@ if (CCTK_EQUALS(dt_lapse_shift_method, "noLapseShiftAdvection"))
   schedule ML_CCZ4_convertToADMBaseFakeDtLapseShift IN ML_CCZ4_convertToADMBaseGroup
   {
     LANG: C
-    READS:    grid::coordinates
-    READS:    Grid::coordinates
-    READS:    ML_CCZ4::ML_dtlapse
-    READS:    ML_CCZ4::ML_dtshift
-    READS:    ML_CCZ4::ML_Gamma
-    READS:    ML_CCZ4::ML_lapse
-    READS:    ML_CCZ4::ML_metric
-    READS:    ML_CCZ4::ML_shift
-    READS:    ML_CCZ4::ML_Theta
-    READS:    ML_CCZ4::ML_trace_curv
-    WRITES:   ADMBase::dtlapse
-    WRITES:   ADMBase::dtshift
+    READS:    ML_CCZ4::A
+    READS:    ML_CCZ4::alpha
+    READS:    ML_CCZ4::B1
+    READS:    ML_CCZ4::B2
+    READS:    ML_CCZ4::B3
+    READS:    ML_CCZ4::beta1
+    READS:    ML_CCZ4::beta2
+    READS:    ML_CCZ4::beta3
+    READS:    ML_CCZ4::gt11
+    READS:    ML_CCZ4::gt12
+    READS:    ML_CCZ4::gt13
+    READS:    ML_CCZ4::gt22
+    READS:    ML_CCZ4::gt23
+    READS:    ML_CCZ4::gt33
+    READS:    grid::r
+    READS:    ML_CCZ4::Theta
+    READS:    ML_CCZ4::trK
+    READS:    ML_CCZ4::Xt1
+    READS:    ML_CCZ4::Xt2
+    READS:    ML_CCZ4::Xt3
+    WRITES:   ADMBase::dtalp
+    WRITES:   ADMBase::dtbetax
+    WRITES:   ADMBase::dtbetay
+    WRITES:   ADMBase::dtbetaz
   } "ML_CCZ4_convertToADMBaseFakeDtLapseShift"
 }
 
@@ -648,17 +986,38 @@ schedule group ML_CCZ4_constraints1_group in MoL_PseudoEvolution after MoL_PostS
 schedule ML_CCZ4_constraints1 in ML_CCZ4_constraints1_group
 {
   LANG: C
-  READS:    ML_CCZ4::ML_curv
-  READS:    ML_CCZ4::ML_Gamma
-  READS:    ML_CCZ4::ML_lapse
-  READS:    ML_CCZ4::ML_log_confac
-  READS:    ML_CCZ4::ML_metric
-  READS:    ML_CCZ4::ML_shift
-  READS:    ML_CCZ4::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_CCZ4::ML_Ham
+  READS:    ML_CCZ4::alpha
+  READS:    ML_CCZ4::At11
+  READS:    ML_CCZ4::At12
+  READS:    ML_CCZ4::At13
+  READS:    ML_CCZ4::At22
+  READS:    ML_CCZ4::At23
+  READS:    ML_CCZ4::At33
+  READS:    ML_CCZ4::beta1
+  READS:    ML_CCZ4::beta2
+  READS:    ML_CCZ4::beta3
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ML_CCZ4::gt11
+  READS:    ML_CCZ4::gt12
+  READS:    ML_CCZ4::gt13
+  READS:    ML_CCZ4::gt22
+  READS:    ML_CCZ4::gt23
+  READS:    ML_CCZ4::gt33
+  READS:    ML_CCZ4::phi
+  READS:    ML_CCZ4::trK
+  READS:    ML_CCZ4::Xt1
+  READS:    ML_CCZ4::Xt2
+  READS:    ML_CCZ4::Xt3
+  WRITES:   ML_CCZ4::H
 } "ML_CCZ4_constraints1"
 
 schedule ML_CCZ4_constraints1_SelectBCs in ML_CCZ4_constraints1_bc_group
@@ -691,20 +1050,45 @@ schedule group ML_CCZ4_constraints2_group in MoL_PseudoEvolution after MoL_PostS
 schedule ML_CCZ4_constraints2 in ML_CCZ4_constraints2_group
 {
   LANG: C
-  READS:    ML_CCZ4::ML_curv
-  READS:    ML_CCZ4::ML_Gamma
-  READS:    ML_CCZ4::ML_lapse
-  READS:    ML_CCZ4::ML_log_confac
-  READS:    ML_CCZ4::ML_metric
-  READS:    ML_CCZ4::ML_shift
-  READS:    ML_CCZ4::ML_trace_curv
-  READS:    TmunuBase::stress_energy_scalar
-  READS:    TmunuBase::stress_energy_tensor
-  READS:    TmunuBase::stress_energy_vector
-  WRITES:   ML_CCZ4::ML_cons_detg
-  WRITES:   ML_CCZ4::ML_cons_Gamma
-  WRITES:   ML_CCZ4::ML_cons_traceA
-  WRITES:   ML_CCZ4::ML_mom
+  READS:    ML_CCZ4::alpha
+  READS:    ML_CCZ4::At11
+  READS:    ML_CCZ4::At12
+  READS:    ML_CCZ4::At13
+  READS:    ML_CCZ4::At22
+  READS:    ML_CCZ4::At23
+  READS:    ML_CCZ4::At33
+  READS:    ML_CCZ4::beta1
+  READS:    ML_CCZ4::beta2
+  READS:    ML_CCZ4::beta3
+  READS:    TmunuBase::eTtt
+  READS:    TmunuBase::eTtx
+  READS:    TmunuBase::eTty
+  READS:    TmunuBase::eTtz
+  READS:    TmunuBase::eTxx
+  READS:    TmunuBase::eTxy
+  READS:    TmunuBase::eTxz
+  READS:    TmunuBase::eTyy
+  READS:    TmunuBase::eTyz
+  READS:    TmunuBase::eTzz
+  READS:    ML_CCZ4::gt11
+  READS:    ML_CCZ4::gt12
+  READS:    ML_CCZ4::gt13
+  READS:    ML_CCZ4::gt22
+  READS:    ML_CCZ4::gt23
+  READS:    ML_CCZ4::gt33
+  READS:    ML_CCZ4::phi
+  READS:    ML_CCZ4::trK
+  READS:    ML_CCZ4::Xt1
+  READS:    ML_CCZ4::Xt2
+  READS:    ML_CCZ4::Xt3
+  WRITES:   ML_CCZ4::cA
+  WRITES:   ML_CCZ4::cS
+  WRITES:   ML_CCZ4::cXt1
+  WRITES:   ML_CCZ4::cXt2
+  WRITES:   ML_CCZ4::cXt3
+  WRITES:   ML_CCZ4::M1
+  WRITES:   ML_CCZ4::M2
+  WRITES:   ML_CCZ4::M3
 } "ML_CCZ4_constraints2"
 
 schedule ML_CCZ4_constraints2_SelectBCs in ML_CCZ4_constraints2_bc_group
diff --git a/ML_CCZ4_Helper/src/NewRad.c b/ML_CCZ4_Helper/src/NewRad.c
index 756e5bf..20dffa5 100644
--- a/ML_CCZ4_Helper/src/NewRad.c
+++ b/ML_CCZ4_Helper/src/NewRad.c
@@ -52,8 +52,6 @@ ML_CCZ4_NewRad (CCTK_ARGUMENTS)
   newrad (cctkGH, B1   , B1rhs   , 0.0, 1.0);
   newrad (cctkGH, B2   , B2rhs   , 0.0, 1.0);
   newrad (cctkGH, B3   , B3rhs   , 0.0, 1.0);
-
-  newrad (cctkGH, Theta, Thetarhs, 0.0, 1.0);
 }
 
 static void
diff --git a/ML_CCZ4_Helper/src/SetGroupTags.c b/ML_CCZ4_Helper/src/SetGroupTags.c
index 00878ee..b2f3105 100644
--- a/ML_CCZ4_Helper/src/SetGroupTags.c
+++ b/ML_CCZ4_Helper/src/SetGroupTags.c
@@ -39,7 +39,6 @@ ML_CCZ4_SetGroupTags (void)
   set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_CCZ4::ML_dtlapserhs");
   set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_CCZ4::ML_shiftrhs");
   set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_CCZ4::ML_dtshiftrhs");
-  set_group_tags (rhs_checkpoint, rhs_checkpoint, 0, "ML_CCZ4::ML_Thetarhs");
   
   return 0;
 }
diff --git a/ML_WaveToy/configuration.ccl b/ML_WaveToy/configuration.ccl
deleted file mode 100644
index 0a66ec2..0000000
--- a/ML_WaveToy/configuration.ccl
+++ /dev/null
@@ -1,6 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-OPTIONAL LoopControl
-{
-}
diff --git a/ML_WaveToy/interface.ccl b/ML_WaveToy/interface.ccl
deleted file mode 100644
index cda1f02..0000000
--- a/ML_WaveToy/interface.ccl
+++ /dev/null
@@ -1,52 +0,0 @@
-# File produced by Kranc
-
-implements: ML_WaveToy
-
-inherits:   Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL WT_rho type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  rho
-} "WT_rho"
-
-public:
-CCTK_REAL WT_u type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  u
-} "WT_u"
-
-public:
-CCTK_REAL WT_rhorhs type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  rhorhs
-} "WT_rhorhs"
-
-public:
-CCTK_REAL WT_urhs type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  urhs
-} "WT_urhs"
diff --git a/ML_WaveToy/param.ccl b/ML_WaveToy/param.ccl
deleted file mode 100644
index dec4281..0000000
--- a/ML_WaveToy/param.ccl
+++ /dev/null
@@ -1,192 +0,0 @@
-# File produced by Kranc
-
-
-shares: GenericFD
-
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_WaveToy_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  2:2 :: "Number of evolved variables used by this thorn"
-} 2
-
-restricted:
-CCTK_INT ML_WaveToy_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:2 :: ""
-} 2
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:2 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:2 :: ""
-} 1
-
-restricted:
-CCTK_INT WT_Gaussian_calc_every "WT_Gaussian_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT WT_RHS_calc_every "WT_RHS_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT WT_Gaussian_calc_offset "WT_Gaussian_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT WT_RHS_calc_offset "WT_RHS_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD rho_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD u_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD WT_rho_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD WT_u_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-CCTK_REAL rho_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL u_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL WT_rho_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL WT_u_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL rho_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL u_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_rho_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_u_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL rho_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL u_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_rho_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_u_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
diff --git a/ML_WaveToy/schedule.ccl b/ML_WaveToy/schedule.ccl
deleted file mode 100644
index 20b055e..0000000
--- a/ML_WaveToy/schedule.ccl
+++ /dev/null
@@ -1,102 +0,0 @@
-# File produced by Kranc
-
-
-if (timelevels == 1)
-{
-  STORAGE: WT_rho[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: WT_rho[2]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: WT_u[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: WT_u[2]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: WT_rhorhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: WT_rhorhs[2]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: WT_urhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: WT_urhs[2]
-}
-
-schedule ML_WaveToy_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_WaveToy_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-schedule WT_Gaussian AT initial
-{
-  LANG: C
-  WRITES:   ML_WaveToy::WT_rho
-  WRITES:   ML_WaveToy::WT_u
-} "WT_Gaussian"
-
-schedule WT_RHS IN MoL_CalcRHS
-{
-  LANG: C
-  READS:    ML_WaveToy::WT_rho
-  READS:    ML_WaveToy::WT_u
-  WRITES:   ML_WaveToy::WT_rhorhs
-  WRITES:   ML_WaveToy::WT_urhs
-} "WT_RHS"
-
-schedule WT_RHS AT analysis
-{
-  LANG: C
-  SYNC: WT_rhorhs
-  SYNC: WT_urhs
-  READS:    ML_WaveToy::WT_rho
-  READS:    ML_WaveToy::WT_u
-  WRITES:   ML_WaveToy::WT_rhorhs
-  WRITES:   ML_WaveToy::WT_urhs
-} "WT_RHS"
-
-schedule ML_WaveToy_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: WT_rho
-  SYNC: WT_u
-} "select boundary conditions"
-
-schedule ML_WaveToy_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_WaveToy_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_WaveToy_ApplyBCs in MoL_PostStep after ML_WaveToy_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_WaveToy/src/Boundaries.cc b/ML_WaveToy/src/Boundaries.cc
deleted file mode 100644
index 1e5f99e..0000000
--- a/ML_WaveToy/src/Boundaries.cc
+++ /dev/null
@@ -1,249 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_WaveToy_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_WaveToy_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  if (CCTK_EQUALS(WT_rho_bound, "none"  ) ||
-      CCTK_EQUALS(WT_rho_bound, "static") ||
-      CCTK_EQUALS(WT_rho_bound, "flat"  ) ||
-      CCTK_EQUALS(WT_rho_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToy::WT_rho", WT_rho_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register WT_rho_bound BC for ML_WaveToy::WT_rho!");
-  }
-  
-  if (CCTK_EQUALS(WT_u_bound, "none"  ) ||
-      CCTK_EQUALS(WT_u_bound, "static") ||
-      CCTK_EQUALS(WT_u_bound, "flat"  ) ||
-      CCTK_EQUALS(WT_u_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToy::WT_u", WT_u_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register WT_u_bound BC for ML_WaveToy::WT_u!");
-  }
-  
-  if (CCTK_EQUALS(rho_bound, "none"  ) ||
-      CCTK_EQUALS(rho_bound, "static") ||
-      CCTK_EQUALS(rho_bound, "flat"  ) ||
-      CCTK_EQUALS(rho_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToy::rho", rho_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register rho_bound BC for ML_WaveToy::rho!");
-  }
-  
-  if (CCTK_EQUALS(u_bound, "none"  ) ||
-      CCTK_EQUALS(u_bound, "static") ||
-      CCTK_EQUALS(u_bound, "flat"  ) ||
-      CCTK_EQUALS(u_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToy::u", u_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register u_bound BC for ML_WaveToy::u!");
-  }
-  
-  if (CCTK_EQUALS(WT_rho_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_WT_rho_bound = -1;
-    if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_rho_bound , WT_rho_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, 
-                      "ML_WaveToy::WT_rho", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::WT_rho!");
-  
-  }
-  
-  if (CCTK_EQUALS(WT_u_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_WT_u_bound = -1;
-    if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_u_bound , WT_u_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, 
-                      "ML_WaveToy::WT_u", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::WT_u!");
-  
-  }
-  
-  if (CCTK_EQUALS(rho_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_rho_bound = -1;
-    if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_rho_bound , rho_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_rho_bound ,rho_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, 
-                      "ML_WaveToy::rho", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::rho!");
-  
-  }
-  
-  if (CCTK_EQUALS(u_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_u_bound = -1;
-    if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_u_bound , u_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_u_bound ,u_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, 
-                      "ML_WaveToy::u", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToy::u!");
-  
-  }
-  
-  if (CCTK_EQUALS(WT_rho_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_WT_rho_bound = -1;
-    if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, 
-                      "ML_WaveToy::WT_rho", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_WaveToy::WT_rho!");
-  
-  }
-  
-  if (CCTK_EQUALS(WT_u_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_WT_u_bound = -1;
-    if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, 
-                      "ML_WaveToy::WT_u", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_WaveToy::WT_u!");
-  
-  }
-  
-  if (CCTK_EQUALS(rho_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_rho_bound = -1;
-    if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_rho_bound ,rho_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, 
-                      "ML_WaveToy::rho", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToy::rho!");
-  
-  }
-  
-  if (CCTK_EQUALS(u_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_u_bound = -1;
-    if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_u_bound ,u_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, 
-                      "ML_WaveToy::u", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToy::u!");
-  
-  }
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-#$bound$#ML_WaveToy::WT_rho_bound       = "skip"
-#$bound$#ML_WaveToy::WT_rho_bound_speed = 1.0
-#$bound$#ML_WaveToy::WT_rho_bound_limit = 0.0
-#$bound$#ML_WaveToy::WT_rho_bound_scalar = 0.0
-
-#$bound$#ML_WaveToy::WT_u_bound       = "skip"
-#$bound$#ML_WaveToy::WT_u_bound_speed = 1.0
-#$bound$#ML_WaveToy::WT_u_bound_limit = 0.0
-#$bound$#ML_WaveToy::WT_u_bound_scalar = 0.0
-
-#$bound$#ML_WaveToy::rho_bound       = "skip"
-#$bound$#ML_WaveToy::rho_bound_speed = 1.0
-#$bound$#ML_WaveToy::rho_bound_limit = 0.0
-#$bound$#ML_WaveToy::rho_bound_scalar = 0.0
-
-#$bound$#ML_WaveToy::u_bound       = "skip"
-#$bound$#ML_WaveToy::u_bound_speed = 1.0
-#$bound$#ML_WaveToy::u_bound_limit = 0.0
-#$bound$#ML_WaveToy::u_bound_scalar = 0.0
-
-*/
-
diff --git a/ML_WaveToy/src/Differencing.h b/ML_WaveToy/src/Differencing.h
deleted file mode 100644
index b27ce50..0000000
--- a/ML_WaveToy/src/Differencing.h
+++ /dev/null
@@ -1,144 +0,0 @@
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth1(u) ((-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx)
-#else
-#  define PDstandardNth1(u) (PDstandardNth1_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth2(u) ((-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy)
-#else
-#  define PDstandardNth2(u) (PDstandardNth2_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth3(u) ((-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz)
-#else
-#  define PDstandardNth3(u) (PDstandardNth3_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth11(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2)
-#else
-#  define PDstandardNth11(u) (PDstandardNth11_impl(u,pm1o12dx2,cdj,cdk))
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth22(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2)
-#else
-#  define PDstandardNth22(u) (PDstandardNth22_impl(u,pm1o12dy2,cdj,cdk))
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth33(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2)
-#else
-#  define PDstandardNth33(u) (PDstandardNth33_impl(u,pm1o12dz2,cdj,cdk))
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth12(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy)
-#else
-#  define PDstandardNth12(u) (PDstandardNth12_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth13(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz)
-#else
-#  define PDstandardNth13(u) (PDstandardNth13_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth21(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy)
-#else
-#  define PDstandardNth21(u) (PDstandardNth21_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth23(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz)
-#else
-#  define PDstandardNth23(u) (PDstandardNth23_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth31(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz)
-#else
-#  define PDstandardNth31(u) (PDstandardNth31_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth32(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz)
-#else
-#  define PDstandardNth32(u) (PDstandardNth32_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz;
-}
-#endif
-
diff --git a/ML_WaveToy/src/RegisterMoL.cc b/ML_WaveToy/src/RegisterMoL.cc
deleted file mode 100644
index 8881277..0000000
--- a/ML_WaveToy/src/RegisterMoL.cc
+++ /dev/null
@@ -1,20 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_WaveToy_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToy::rho"),  CCTK_VarIndex("ML_WaveToy::rhorhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToy::u"),  CCTK_VarIndex("ML_WaveToy::urhs"));
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_WaveToy/src/RegisterSymmetries.cc b/ML_WaveToy/src/RegisterSymmetries.cc
deleted file mode 100644
index ae89b96..0000000
--- a/ML_WaveToy/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,29 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_WaveToy_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToy::rho");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToy::u");
-  
-}
diff --git a/ML_WaveToy/src/Startup.cc b/ML_WaveToy/src/Startup.cc
deleted file mode 100644
index 5f3d2bd..0000000
--- a/ML_WaveToy/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_WaveToy_Startup(void)
-{
-  const char * banner = "ML_WaveToy";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_WaveToy/src/WT_Gaussian.cc b/ML_WaveToy/src/WT_Gaussian.cc
deleted file mode 100644
index c88259e..0000000
--- a/ML_WaveToy/src/WT_Gaussian.cc
+++ /dev/null
@@ -1,132 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-static void WT_Gaussian_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx);
-  CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy);
-  CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz);
-  CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy);
-  CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz);
-  CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz);
-  CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx));
-  CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy));
-  CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(WT_Gaussian,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL uL = 0;
-    
-    CCTK_REAL rhoL = 0;
-    
-    /* Copy local copies back to grid functions */
-    rho[index] = rhoL;
-    u[index] = uL;
-  }
-  CCTK_ENDLOOP3(WT_Gaussian);
-}
-
-extern "C" void WT_Gaussian(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering WT_Gaussian_Body");
-  }
-  
-  if (cctk_iteration % WT_Gaussian_calc_every != WT_Gaussian_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_WaveToy::WT_rho",
-    "ML_WaveToy::WT_u"};
-  GenericFD_AssertGroupStorage(cctkGH, "WT_Gaussian", 2, groups);
-  
-  
-  GenericFD_LoopOverEverything(cctkGH, WT_Gaussian_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving WT_Gaussian_Body");
-  }
-}
diff --git a/ML_WaveToy/src/WT_RHS.cc b/ML_WaveToy/src/WT_RHS.cc
deleted file mode 100644
index 2dd39f9..0000000
--- a/ML_WaveToy/src/WT_RHS.cc
+++ /dev/null
@@ -1,156 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-extern "C" void WT_RHS_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_WaveToy::WT_rhorhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy::WT_rhorhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_WaveToy::WT_urhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_WaveToy::WT_urhs.");
-  return;
-}
-
-static void WT_RHS_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx);
-  CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy);
-  CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz);
-  CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy);
-  CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz);
-  CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz);
-  CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx));
-  CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy));
-  CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(WT_RHS,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL rhoL = rho[index];
-    CCTK_REAL uL = u[index];
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL const PDstandardNth11u = PDstandardNth11(&u[index]);
-    CCTK_REAL const PDstandardNth22u = PDstandardNth22(&u[index]);
-    CCTK_REAL const PDstandardNth33u = PDstandardNth33(&u[index]);
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL urhsL = rhoL;
-    
-    CCTK_REAL rhorhsL = PDstandardNth11u + PDstandardNth22u + 
-      PDstandardNth33u;
-    
-    /* Copy local copies back to grid functions */
-    rhorhs[index] = rhorhsL;
-    urhs[index] = urhsL;
-  }
-  CCTK_ENDLOOP3(WT_RHS);
-}
-
-extern "C" void WT_RHS(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering WT_RHS_Body");
-  }
-  
-  if (cctk_iteration % WT_RHS_calc_every != WT_RHS_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_WaveToy::WT_rho",
-    "ML_WaveToy::WT_rhorhs",
-    "ML_WaveToy::WT_u",
-    "ML_WaveToy::WT_urhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "WT_RHS", 4, groups);
-  
-  GenericFD_EnsureStencilFits(cctkGH, "WT_RHS", 2, 2, 2);
-  
-  GenericFD_LoopOverInterior(cctkGH, WT_RHS_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving WT_RHS_Body");
-  }
-}
diff --git a/ML_WaveToy/src/make.code.defn b/ML_WaveToy/src/make.code.defn
deleted file mode 100644
index a36e2d9..0000000
--- a/ML_WaveToy/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc WT_Gaussian.cc WT_RHS.cc Boundaries.cc 
diff --git a/ML_WaveToyFO/configuration.ccl b/ML_WaveToyFO/configuration.ccl
deleted file mode 100644
index 0a66ec2..0000000
--- a/ML_WaveToyFO/configuration.ccl
+++ /dev/null
@@ -1,6 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-OPTIONAL LoopControl
-{
-}
diff --git a/ML_WaveToyFO/interface.ccl b/ML_WaveToyFO/interface.ccl
deleted file mode 100644
index 20aaeb3..0000000
--- a/ML_WaveToyFO/interface.ccl
+++ /dev/null
@@ -1,76 +0,0 @@
-# File produced by Kranc
-
-implements: ML_WaveToyFO
-
-inherits:   Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL WT_w type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0'
-{
-  w1,
-  w2,
-  w3
-} "WT_w"
-
-public:
-CCTK_REAL WT_rho type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  rho
-} "WT_rho"
-
-public:
-CCTK_REAL WT_u type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  u
-} "WT_u"
-
-public:
-CCTK_REAL WT_v type=GF timelevels=2 tags='tensortypealias="D" tensorweight=0'
-{
-  v1,
-  v2,
-  v3
-} "WT_v"
-
-public:
-CCTK_REAL WT_rhorhs type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  rhorhs
-} "WT_rhorhs"
-
-public:
-CCTK_REAL WT_urhs type=GF timelevels=2 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  urhs
-} "WT_urhs"
-
-public:
-CCTK_REAL WT_vrhs type=GF timelevels=2 tags='tensortypealias="D" tensorweight=0'
-{
-  v1rhs,
-  v2rhs,
-  v3rhs
-} "WT_vrhs"
diff --git a/ML_WaveToyFO/param.ccl b/ML_WaveToyFO/param.ccl
deleted file mode 100644
index 5bfa8b8..0000000
--- a/ML_WaveToyFO/param.ccl
+++ /dev/null
@@ -1,324 +0,0 @@
-# File produced by Kranc
-
-
-shares: GenericFD
-
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT ML_WaveToyFO_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  5:5 :: "Number of evolved variables used by this thorn"
-} 5
-
-restricted:
-CCTK_INT ML_WaveToyFO_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:2 :: ""
-} 2
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:2 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:2 :: ""
-} 1
-
-restricted:
-CCTK_INT WTFO_Gaussian_calc_every "WTFO_Gaussian_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT WTFO_RHS_calc_every "WTFO_RHS_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT WTFO_constraints_calc_every "WTFO_constraints_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT WTFO_Gaussian_calc_offset "WTFO_Gaussian_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT WTFO_RHS_calc_offset "WTFO_RHS_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT WTFO_constraints_calc_offset "WTFO_constraints_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD rho_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD u_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD v1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD v2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD v3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD WT_rho_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD WT_u_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD WT_v_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-CCTK_REAL rho_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL u_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL v1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL v2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL v3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL WT_rho_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL WT_u_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL WT_v_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL rho_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL u_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL v1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL v2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL v3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_rho_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_u_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_v_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL rho_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL u_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL v1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL v2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL v3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_rho_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_u_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL WT_v_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
diff --git a/ML_WaveToyFO/schedule.ccl b/ML_WaveToyFO/schedule.ccl
deleted file mode 100644
index f294545..0000000
--- a/ML_WaveToyFO/schedule.ccl
+++ /dev/null
@@ -1,138 +0,0 @@
-# File produced by Kranc
-
-
-if (other_timelevels == 1)
-{
-  STORAGE: WT_w[1]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: WT_rho[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: WT_rho[2]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: WT_u[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: WT_u[2]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: WT_v[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: WT_v[2]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: WT_rhorhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: WT_rhorhs[2]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: WT_urhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: WT_urhs[2]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: WT_vrhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: WT_vrhs[2]
-}
-
-schedule ML_WaveToyFO_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_WaveToyFO_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-schedule WTFO_Gaussian AT initial
-{
-  LANG: C
-  WRITES:   ML_WaveToyFO::WT_rho
-  WRITES:   ML_WaveToyFO::WT_u
-  WRITES:   ML_WaveToyFO::WT_v
-} "WTFO_Gaussian"
-
-schedule WTFO_RHS IN MoL_CalcRHS
-{
-  LANG: C
-  READS:    ML_WaveToyFO::WT_rho
-  READS:    ML_WaveToyFO::WT_v
-  WRITES:   ML_WaveToyFO::WT_rhorhs
-  WRITES:   ML_WaveToyFO::WT_urhs
-  WRITES:   ML_WaveToyFO::WT_vrhs
-} "WTFO_RHS"
-
-schedule WTFO_RHS AT analysis
-{
-  LANG: C
-  SYNC: WT_rhorhs
-  SYNC: WT_urhs
-  SYNC: WT_vrhs
-  READS:    ML_WaveToyFO::WT_rho
-  READS:    ML_WaveToyFO::WT_v
-  WRITES:   ML_WaveToyFO::WT_rhorhs
-  WRITES:   ML_WaveToyFO::WT_urhs
-  WRITES:   ML_WaveToyFO::WT_vrhs
-} "WTFO_RHS"
-
-schedule WTFO_constraints AT analysis
-{
-  LANG: C
-  SYNC: WT_w
-  READS:    ML_WaveToyFO::WT_v
-  WRITES:   ML_WaveToyFO::WT_w
-} "WTFO_constraints"
-
-schedule ML_WaveToyFO_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: WT_rho
-  SYNC: WT_u
-  SYNC: WT_v
-} "select boundary conditions"
-
-schedule ML_WaveToyFO_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_WaveToyFO_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_WaveToyFO_ApplyBCs in MoL_PostStep after ML_WaveToyFO_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_WaveToyFO/src/Boundaries.cc b/ML_WaveToyFO/src/Boundaries.cc
deleted file mode 100644
index 0e812f1..0000000
--- a/ML_WaveToyFO/src/Boundaries.cc
+++ /dev/null
@@ -1,457 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_WaveToyFO_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_WaveToyFO_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  if (CCTK_EQUALS(WT_rho_bound, "none"  ) ||
-      CCTK_EQUALS(WT_rho_bound, "static") ||
-      CCTK_EQUALS(WT_rho_bound, "flat"  ) ||
-      CCTK_EQUALS(WT_rho_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToyFO::WT_rho", WT_rho_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register WT_rho_bound BC for ML_WaveToyFO::WT_rho!");
-  }
-  
-  if (CCTK_EQUALS(WT_u_bound, "none"  ) ||
-      CCTK_EQUALS(WT_u_bound, "static") ||
-      CCTK_EQUALS(WT_u_bound, "flat"  ) ||
-      CCTK_EQUALS(WT_u_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToyFO::WT_u", WT_u_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register WT_u_bound BC for ML_WaveToyFO::WT_u!");
-  }
-  
-  if (CCTK_EQUALS(WT_v_bound, "none"  ) ||
-      CCTK_EQUALS(WT_v_bound, "static") ||
-      CCTK_EQUALS(WT_v_bound, "flat"  ) ||
-      CCTK_EQUALS(WT_v_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToyFO::WT_v", WT_v_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register WT_v_bound BC for ML_WaveToyFO::WT_v!");
-  }
-  
-  if (CCTK_EQUALS(rho_bound, "none"  ) ||
-      CCTK_EQUALS(rho_bound, "static") ||
-      CCTK_EQUALS(rho_bound, "flat"  ) ||
-      CCTK_EQUALS(rho_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToyFO::rho", rho_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register rho_bound BC for ML_WaveToyFO::rho!");
-  }
-  
-  if (CCTK_EQUALS(u_bound, "none"  ) ||
-      CCTK_EQUALS(u_bound, "static") ||
-      CCTK_EQUALS(u_bound, "flat"  ) ||
-      CCTK_EQUALS(u_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToyFO::u", u_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register u_bound BC for ML_WaveToyFO::u!");
-  }
-  
-  if (CCTK_EQUALS(v1_bound, "none"  ) ||
-      CCTK_EQUALS(v1_bound, "static") ||
-      CCTK_EQUALS(v1_bound, "flat"  ) ||
-      CCTK_EQUALS(v1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToyFO::v1", v1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register v1_bound BC for ML_WaveToyFO::v1!");
-  }
-  
-  if (CCTK_EQUALS(v2_bound, "none"  ) ||
-      CCTK_EQUALS(v2_bound, "static") ||
-      CCTK_EQUALS(v2_bound, "flat"  ) ||
-      CCTK_EQUALS(v2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToyFO::v2", v2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register v2_bound BC for ML_WaveToyFO::v2!");
-  }
-  
-  if (CCTK_EQUALS(v3_bound, "none"  ) ||
-      CCTK_EQUALS(v3_bound, "static") ||
-      CCTK_EQUALS(v3_bound, "flat"  ) ||
-      CCTK_EQUALS(v3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_WaveToyFO::v3", v3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register v3_bound BC for ML_WaveToyFO::v3!");
-  }
-  
-  if (CCTK_EQUALS(WT_rho_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_WT_rho_bound = -1;
-    if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_rho_bound , WT_rho_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, 
-                      "ML_WaveToyFO::WT_rho", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToyFO::WT_rho!");
-  
-  }
-  
-  if (CCTK_EQUALS(WT_u_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_WT_u_bound = -1;
-    if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_u_bound , WT_u_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, 
-                      "ML_WaveToyFO::WT_u", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToyFO::WT_u!");
-  
-  }
-  
-  if (CCTK_EQUALS(WT_v_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_WT_v_bound = -1;
-    if (handle_WT_v_bound < 0) handle_WT_v_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_v_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_v_bound , WT_v_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_WT_v_bound ,WT_v_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_v_bound, 
-                      "ML_WaveToyFO::WT_v", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToyFO::WT_v!");
-  
-  }
-  
-  if (CCTK_EQUALS(rho_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_rho_bound = -1;
-    if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_rho_bound , rho_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_rho_bound ,rho_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, 
-                      "ML_WaveToyFO::rho", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToyFO::rho!");
-  
-  }
-  
-  if (CCTK_EQUALS(u_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_u_bound = -1;
-    if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_u_bound , u_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_u_bound ,u_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, 
-                      "ML_WaveToyFO::u", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToyFO::u!");
-  
-  }
-  
-  if (CCTK_EQUALS(v1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_v1_bound = -1;
-    if (handle_v1_bound < 0) handle_v1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_v1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_v1_bound , v1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_v1_bound ,v1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v1_bound, 
-                      "ML_WaveToyFO::v1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToyFO::v1!");
-  
-  }
-  
-  if (CCTK_EQUALS(v2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_v2_bound = -1;
-    if (handle_v2_bound < 0) handle_v2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_v2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_v2_bound , v2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_v2_bound ,v2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v2_bound, 
-                      "ML_WaveToyFO::v2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToyFO::v2!");
-  
-  }
-  
-  if (CCTK_EQUALS(v3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_v3_bound = -1;
-    if (handle_v3_bound < 0) handle_v3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_v3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_v3_bound , v3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_v3_bound ,v3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v3_bound, 
-                      "ML_WaveToyFO::v3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_WaveToyFO::v3!");
-  
-  }
-  
-  if (CCTK_EQUALS(WT_rho_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_WT_rho_bound = -1;
-    if (handle_WT_rho_bound < 0) handle_WT_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_rho_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_rho_bound ,WT_rho_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_rho_bound, 
-                      "ML_WaveToyFO::WT_rho", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_WaveToyFO::WT_rho!");
-  
-  }
-  
-  if (CCTK_EQUALS(WT_u_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_WT_u_bound = -1;
-    if (handle_WT_u_bound < 0) handle_WT_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_u_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_u_bound ,WT_u_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_u_bound, 
-                      "ML_WaveToyFO::WT_u", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_WaveToyFO::WT_u!");
-  
-  }
-  
-  if (CCTK_EQUALS(WT_v_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_WT_v_bound = -1;
-    if (handle_WT_v_bound < 0) handle_WT_v_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_WT_v_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_WT_v_bound ,WT_v_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_WT_v_bound, 
-                      "ML_WaveToyFO::WT_v", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_WaveToyFO::WT_v!");
-  
-  }
-  
-  if (CCTK_EQUALS(rho_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_rho_bound = -1;
-    if (handle_rho_bound < 0) handle_rho_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_rho_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_rho_bound ,rho_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_rho_bound, 
-                      "ML_WaveToyFO::rho", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToyFO::rho!");
-  
-  }
-  
-  if (CCTK_EQUALS(u_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_u_bound = -1;
-    if (handle_u_bound < 0) handle_u_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_u_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_u_bound ,u_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_u_bound, 
-                      "ML_WaveToyFO::u", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToyFO::u!");
-  
-  }
-  
-  if (CCTK_EQUALS(v1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_v1_bound = -1;
-    if (handle_v1_bound < 0) handle_v1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_v1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_v1_bound ,v1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v1_bound, 
-                      "ML_WaveToyFO::v1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToyFO::v1!");
-  
-  }
-  
-  if (CCTK_EQUALS(v2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_v2_bound = -1;
-    if (handle_v2_bound < 0) handle_v2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_v2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_v2_bound ,v2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v2_bound, 
-                      "ML_WaveToyFO::v2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToyFO::v2!");
-  
-  }
-  
-  if (CCTK_EQUALS(v3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_v3_bound = -1;
-    if (handle_v3_bound < 0) handle_v3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_v3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_v3_bound ,v3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_v3_bound, 
-                      "ML_WaveToyFO::v3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_WaveToyFO::v3!");
-  
-  }
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-#$bound$#ML_WaveToyFO::WT_rho_bound       = "skip"
-#$bound$#ML_WaveToyFO::WT_rho_bound_speed = 1.0
-#$bound$#ML_WaveToyFO::WT_rho_bound_limit = 0.0
-#$bound$#ML_WaveToyFO::WT_rho_bound_scalar = 0.0
-
-#$bound$#ML_WaveToyFO::WT_u_bound       = "skip"
-#$bound$#ML_WaveToyFO::WT_u_bound_speed = 1.0
-#$bound$#ML_WaveToyFO::WT_u_bound_limit = 0.0
-#$bound$#ML_WaveToyFO::WT_u_bound_scalar = 0.0
-
-#$bound$#ML_WaveToyFO::WT_v_bound       = "skip"
-#$bound$#ML_WaveToyFO::WT_v_bound_speed = 1.0
-#$bound$#ML_WaveToyFO::WT_v_bound_limit = 0.0
-#$bound$#ML_WaveToyFO::WT_v_bound_scalar = 0.0
-
-#$bound$#ML_WaveToyFO::rho_bound       = "skip"
-#$bound$#ML_WaveToyFO::rho_bound_speed = 1.0
-#$bound$#ML_WaveToyFO::rho_bound_limit = 0.0
-#$bound$#ML_WaveToyFO::rho_bound_scalar = 0.0
-
-#$bound$#ML_WaveToyFO::u_bound       = "skip"
-#$bound$#ML_WaveToyFO::u_bound_speed = 1.0
-#$bound$#ML_WaveToyFO::u_bound_limit = 0.0
-#$bound$#ML_WaveToyFO::u_bound_scalar = 0.0
-
-#$bound$#ML_WaveToyFO::v1_bound       = "skip"
-#$bound$#ML_WaveToyFO::v1_bound_speed = 1.0
-#$bound$#ML_WaveToyFO::v1_bound_limit = 0.0
-#$bound$#ML_WaveToyFO::v1_bound_scalar = 0.0
-
-#$bound$#ML_WaveToyFO::v2_bound       = "skip"
-#$bound$#ML_WaveToyFO::v2_bound_speed = 1.0
-#$bound$#ML_WaveToyFO::v2_bound_limit = 0.0
-#$bound$#ML_WaveToyFO::v2_bound_scalar = 0.0
-
-#$bound$#ML_WaveToyFO::v3_bound       = "skip"
-#$bound$#ML_WaveToyFO::v3_bound_speed = 1.0
-#$bound$#ML_WaveToyFO::v3_bound_limit = 0.0
-#$bound$#ML_WaveToyFO::v3_bound_scalar = 0.0
-
-*/
-
diff --git a/ML_WaveToyFO/src/Differencing.h b/ML_WaveToyFO/src/Differencing.h
deleted file mode 100644
index b27ce50..0000000
--- a/ML_WaveToyFO/src/Differencing.h
+++ /dev/null
@@ -1,144 +0,0 @@
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth1(u) ((-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx)
-#else
-#  define PDstandardNth1(u) (PDstandardNth1_impl(u,p1o12dx,cdj,cdk))
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,-1,0,0) + 8*KRANC_GFOFFSET3D(u,1,0,0) + KRANC_GFOFFSET3D(u,-2,0,0) - KRANC_GFOFFSET3D(u,2,0,0))*p1o12dx;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth2(u) ((-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy)
-#else
-#  define PDstandardNth2(u) (PDstandardNth2_impl(u,p1o12dy,cdj,cdk))
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,0,-1,0) + 8*KRANC_GFOFFSET3D(u,0,1,0) + KRANC_GFOFFSET3D(u,0,-2,0) - KRANC_GFOFFSET3D(u,0,2,0))*p1o12dy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth3(u) ((-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz)
-#else
-#  define PDstandardNth3(u) (PDstandardNth3_impl(u,p1o12dz,cdj,cdk))
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-8*KRANC_GFOFFSET3D(u,0,0,-1) + 8*KRANC_GFOFFSET3D(u,0,0,1) + KRANC_GFOFFSET3D(u,0,0,-2) - KRANC_GFOFFSET3D(u,0,0,2))*p1o12dz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth11(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2)
-#else
-#  define PDstandardNth11(u) (PDstandardNth11_impl(u,pm1o12dx2,cdj,cdk))
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0)) + KRANC_GFOFFSET3D(u,-2,0,0) + KRANC_GFOFFSET3D(u,2,0,0))*pm1o12dx2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth22(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2)
-#else
-#  define PDstandardNth22(u) (PDstandardNth22_impl(u,pm1o12dy2,cdj,cdk))
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0)) + KRANC_GFOFFSET3D(u,0,-2,0) + KRANC_GFOFFSET3D(u,0,2,0))*pm1o12dy2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth33(u) ((30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2)
-#else
-#  define PDstandardNth33(u) (PDstandardNth33_impl(u,pm1o12dz2,cdj,cdk))
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (30*KRANC_GFOFFSET3D(u,0,0,0) - 16*(KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1)) + KRANC_GFOFFSET3D(u,0,0,-2) + KRANC_GFOFFSET3D(u,0,0,2))*pm1o12dz2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth12(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy)
-#else
-#  define PDstandardNth12(u) (PDstandardNth12_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth13(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz)
-#else
-#  define PDstandardNth13(u) (PDstandardNth13_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth21(u) ((-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy)
-#else
-#  define PDstandardNth21(u) (PDstandardNth21_impl(u,p1o144dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,1,0) + KRANC_GFOFFSET3D(u,1,-1,0)) + 64*(KRANC_GFOFFSET3D(u,-1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0)) + 8*(KRANC_GFOFFSET3D(u,-1,2,0) + KRANC_GFOFFSET3D(u,1,-2,0) + KRANC_GFOFFSET3D(u,-2,1,0) + KRANC_GFOFFSET3D(u,2,-1,0)) - 8*(KRANC_GFOFFSET3D(u,-1,-2,0) + KRANC_GFOFFSET3D(u,1,2,0) + KRANC_GFOFFSET3D(u,-2,-1,0) + KRANC_GFOFFSET3D(u,2,1,0)) + KRANC_GFOFFSET3D(u,-2,-2,0) - KRANC_GFOFFSET3D(u,-2,2,0) - KRANC_GFOFFSET3D(u,2,-2,0) + KRANC_GFOFFSET3D(u,2,2,0))*p1o144dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth23(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz)
-#else
-#  define PDstandardNth23(u) (PDstandardNth23_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth31(u) ((-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz)
-#else
-#  define PDstandardNth31(u) (PDstandardNth31_impl(u,p1o144dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,-1,0,1) + KRANC_GFOFFSET3D(u,1,0,-1)) + 64*(KRANC_GFOFFSET3D(u,-1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1)) + 8*(KRANC_GFOFFSET3D(u,-1,0,2) + KRANC_GFOFFSET3D(u,1,0,-2) + KRANC_GFOFFSET3D(u,-2,0,1) + KRANC_GFOFFSET3D(u,2,0,-1)) - 8*(KRANC_GFOFFSET3D(u,-1,0,-2) + KRANC_GFOFFSET3D(u,1,0,2) + KRANC_GFOFFSET3D(u,-2,0,-1) + KRANC_GFOFFSET3D(u,2,0,1)) + KRANC_GFOFFSET3D(u,-2,0,-2) - KRANC_GFOFFSET3D(u,-2,0,2) - KRANC_GFOFFSET3D(u,2,0,-2) + KRANC_GFOFFSET3D(u,2,0,2))*p1o144dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth32(u) ((-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz)
-#else
-#  define PDstandardNth32(u) (PDstandardNth32_impl(u,p1o144dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-64*(KRANC_GFOFFSET3D(u,0,-1,1) + KRANC_GFOFFSET3D(u,0,1,-1)) + 64*(KRANC_GFOFFSET3D(u,0,-1,-1) + KRANC_GFOFFSET3D(u,0,1,1)) + 8*(KRANC_GFOFFSET3D(u,0,-1,2) + KRANC_GFOFFSET3D(u,0,1,-2) + KRANC_GFOFFSET3D(u,0,-2,1) + KRANC_GFOFFSET3D(u,0,2,-1)) - 8*(KRANC_GFOFFSET3D(u,0,-1,-2) + KRANC_GFOFFSET3D(u,0,1,2) + KRANC_GFOFFSET3D(u,0,-2,-1) + KRANC_GFOFFSET3D(u,0,2,1)) + KRANC_GFOFFSET3D(u,0,-2,-2) - KRANC_GFOFFSET3D(u,0,-2,2) - KRANC_GFOFFSET3D(u,0,2,-2) + KRANC_GFOFFSET3D(u,0,2,2))*p1o144dydz;
-}
-#endif
-
diff --git a/ML_WaveToyFO/src/RegisterMoL.cc b/ML_WaveToyFO/src/RegisterMoL.cc
deleted file mode 100644
index f10b453..0000000
--- a/ML_WaveToyFO/src/RegisterMoL.cc
+++ /dev/null
@@ -1,23 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_WaveToyFO_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToyFO::rho"),  CCTK_VarIndex("ML_WaveToyFO::rhorhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToyFO::u"),  CCTK_VarIndex("ML_WaveToyFO::urhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToyFO::v1"),  CCTK_VarIndex("ML_WaveToyFO::v1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToyFO::v2"),  CCTK_VarIndex("ML_WaveToyFO::v2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_WaveToyFO::v3"),  CCTK_VarIndex("ML_WaveToyFO::v3rhs"));
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_WaveToyFO/src/RegisterSymmetries.cc b/ML_WaveToyFO/src/RegisterSymmetries.cc
deleted file mode 100644
index 1f1e844..0000000
--- a/ML_WaveToyFO/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,59 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_WaveToyFO_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToyFO::rho");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToyFO::u");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToyFO::v1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToyFO::v2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToyFO::v3");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToyFO::w1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToyFO::w2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_WaveToyFO::w3");
-  
-}
diff --git a/ML_WaveToyFO/src/Startup.cc b/ML_WaveToyFO/src/Startup.cc
deleted file mode 100644
index 0775453..0000000
--- a/ML_WaveToyFO/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_WaveToyFO_Startup(void)
-{
-  const char * banner = "ML_WaveToyFO";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_WaveToyFO/src/WTFO_Gaussian.cc b/ML_WaveToyFO/src/WTFO_Gaussian.cc
deleted file mode 100644
index 560f59b..0000000
--- a/ML_WaveToyFO/src/WTFO_Gaussian.cc
+++ /dev/null
@@ -1,142 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-static void WTFO_Gaussian_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx);
-  CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy);
-  CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz);
-  CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy);
-  CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz);
-  CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz);
-  CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx));
-  CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy));
-  CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(WTFO_Gaussian,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL uL = 0;
-    
-    CCTK_REAL v1L = 0;
-    
-    CCTK_REAL v2L = 0;
-    
-    CCTK_REAL v3L = 0;
-    
-    CCTK_REAL rhoL = 0;
-    
-    /* Copy local copies back to grid functions */
-    rho[index] = rhoL;
-    u[index] = uL;
-    v1[index] = v1L;
-    v2[index] = v2L;
-    v3[index] = v3L;
-  }
-  CCTK_ENDLOOP3(WTFO_Gaussian);
-}
-
-extern "C" void WTFO_Gaussian(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering WTFO_Gaussian_Body");
-  }
-  
-  if (cctk_iteration % WTFO_Gaussian_calc_every != WTFO_Gaussian_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_WaveToyFO::WT_rho",
-    "ML_WaveToyFO::WT_u",
-    "ML_WaveToyFO::WT_v"};
-  GenericFD_AssertGroupStorage(cctkGH, "WTFO_Gaussian", 3, groups);
-  
-  
-  GenericFD_LoopOverEverything(cctkGH, WTFO_Gaussian_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving WTFO_Gaussian_Body");
-  }
-}
diff --git a/ML_WaveToyFO/src/WTFO_RHS.cc b/ML_WaveToyFO/src/WTFO_RHS.cc
deleted file mode 100644
index d197632..0000000
--- a/ML_WaveToyFO/src/WTFO_RHS.cc
+++ /dev/null
@@ -1,174 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-extern "C" void WTFO_RHS_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_WaveToyFO::WT_rhorhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_WaveToyFO::WT_rhorhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_WaveToyFO::WT_urhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_WaveToyFO::WT_urhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_WaveToyFO::WT_vrhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_WaveToyFO::WT_vrhs.");
-  return;
-}
-
-static void WTFO_RHS_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx);
-  CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy);
-  CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz);
-  CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy);
-  CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz);
-  CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz);
-  CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx));
-  CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy));
-  CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(WTFO_RHS,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL rhoL = rho[index];
-    CCTK_REAL v1L = v1[index];
-    CCTK_REAL v2L = v2[index];
-    CCTK_REAL v3L = v3[index];
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL const PDstandardNth1rho = PDstandardNth1(&rho[index]);
-    CCTK_REAL const PDstandardNth2rho = PDstandardNth2(&rho[index]);
-    CCTK_REAL const PDstandardNth3rho = PDstandardNth3(&rho[index]);
-    CCTK_REAL const PDstandardNth1v1 = PDstandardNth1(&v1[index]);
-    CCTK_REAL const PDstandardNth2v2 = PDstandardNth2(&v2[index]);
-    CCTK_REAL const PDstandardNth3v3 = PDstandardNth3(&v3[index]);
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL urhsL = rhoL;
-    
-    CCTK_REAL rhorhsL = PDstandardNth1v1 + PDstandardNth2v2 + 
-      PDstandardNth3v3;
-    
-    CCTK_REAL v1rhsL = PDstandardNth1rho;
-    
-    CCTK_REAL v2rhsL = PDstandardNth2rho;
-    
-    CCTK_REAL v3rhsL = PDstandardNth3rho;
-    
-    /* Copy local copies back to grid functions */
-    rhorhs[index] = rhorhsL;
-    urhs[index] = urhsL;
-    v1rhs[index] = v1rhsL;
-    v2rhs[index] = v2rhsL;
-    v3rhs[index] = v3rhsL;
-  }
-  CCTK_ENDLOOP3(WTFO_RHS);
-}
-
-extern "C" void WTFO_RHS(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering WTFO_RHS_Body");
-  }
-  
-  if (cctk_iteration % WTFO_RHS_calc_every != WTFO_RHS_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_WaveToyFO::WT_rho",
-    "ML_WaveToyFO::WT_rhorhs",
-    "ML_WaveToyFO::WT_urhs",
-    "ML_WaveToyFO::WT_v",
-    "ML_WaveToyFO::WT_vrhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "WTFO_RHS", 5, groups);
-  
-  GenericFD_EnsureStencilFits(cctkGH, "WTFO_RHS", 2, 2, 2);
-  
-  GenericFD_LoopOverInterior(cctkGH, WTFO_RHS_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving WTFO_RHS_Body");
-  }
-}
diff --git a/ML_WaveToyFO/src/WTFO_constraints.cc b/ML_WaveToyFO/src/WTFO_constraints.cc
deleted file mode 100644
index fe58e77..0000000
--- a/ML_WaveToyFO/src/WTFO_constraints.cc
+++ /dev/null
@@ -1,157 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-extern "C" void WTFO_constraints_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_WaveToyFO::WT_w","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_WaveToyFO::WT_w.");
-  return;
-}
-
-static void WTFO_constraints_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o12dx = 0.0833333333333333333333333333333*INV(dx);
-  CCTK_REAL const p1o12dy = 0.0833333333333333333333333333333*INV(dy);
-  CCTK_REAL const p1o12dz = 0.0833333333333333333333333333333*INV(dz);
-  CCTK_REAL const p1o144dxdy = 0.00694444444444444444444444444444*INV(dx*dy);
-  CCTK_REAL const p1o144dxdz = 0.00694444444444444444444444444444*INV(dx*dz);
-  CCTK_REAL const p1o144dydz = 0.00694444444444444444444444444444*INV(dy*dz);
-  CCTK_REAL const pm1o12dx2 = -0.0833333333333333333333333333333*INV(SQR(dx));
-  CCTK_REAL const pm1o12dy2 = -0.0833333333333333333333333333333*INV(SQR(dy));
-  CCTK_REAL const pm1o12dz2 = -0.0833333333333333333333333333333*INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(WTFO_constraints,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL v1L = v1[index];
-    CCTK_REAL v2L = v2[index];
-    CCTK_REAL v3L = v3[index];
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL const PDstandardNth2v1 = PDstandardNth2(&v1[index]);
-    CCTK_REAL const PDstandardNth3v1 = PDstandardNth3(&v1[index]);
-    CCTK_REAL const PDstandardNth1v2 = PDstandardNth1(&v2[index]);
-    CCTK_REAL const PDstandardNth3v2 = PDstandardNth3(&v2[index]);
-    CCTK_REAL const PDstandardNth1v3 = PDstandardNth1(&v3[index]);
-    CCTK_REAL const PDstandardNth2v3 = PDstandardNth2(&v3[index]);
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL w1L = -PDstandardNth2v3 + PDstandardNth3v2;
-    
-    CCTK_REAL w2L = PDstandardNth1v3 - PDstandardNth3v1;
-    
-    CCTK_REAL w3L = -PDstandardNth1v2 + PDstandardNth2v1;
-    
-    /* Copy local copies back to grid functions */
-    w1[index] = w1L;
-    w2[index] = w2L;
-    w3[index] = w3L;
-  }
-  CCTK_ENDLOOP3(WTFO_constraints);
-}
-
-extern "C" void WTFO_constraints(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering WTFO_constraints_Body");
-  }
-  
-  if (cctk_iteration % WTFO_constraints_calc_every != WTFO_constraints_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_WaveToyFO::WT_v",
-    "ML_WaveToyFO::WT_w"};
-  GenericFD_AssertGroupStorage(cctkGH, "WTFO_constraints", 2, groups);
-  
-  GenericFD_EnsureStencilFits(cctkGH, "WTFO_constraints", 2, 2, 2);
-  
-  GenericFD_LoopOverInterior(cctkGH, WTFO_constraints_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving WTFO_constraints_Body");
-  }
-}
diff --git a/ML_WaveToyFO/src/make.code.defn b/ML_WaveToyFO/src/make.code.defn
deleted file mode 100644
index 1b30d1c..0000000
--- a/ML_WaveToyFO/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc WTFO_Gaussian.cc WTFO_RHS.cc WTFO_constraints.cc Boundaries.cc 
diff --git a/ML_hydro/configuration.ccl b/ML_hydro/configuration.ccl
deleted file mode 100644
index 0a66ec2..0000000
--- a/ML_hydro/configuration.ccl
+++ /dev/null
@@ -1,6 +0,0 @@
-# File produced by Kranc
-
-REQUIRES GenericFD
-OPTIONAL LoopControl
-{
-}
diff --git a/ML_hydro/interface.ccl b/ML_hydro/interface.ccl
deleted file mode 100644
index db80dc2..0000000
--- a/ML_hydro/interface.ccl
+++ /dev/null
@@ -1,130 +0,0 @@
-# File produced by Kranc
-
-implements: ML_hydro
-
-inherits:   Grid GenericFD Boundary
-
-
-
-USES INCLUDE: GenericFD.h
-USES INCLUDE: Symmetry.h
-USES INCLUDE: sbp_calc_coeffs.h
-USES INCLUDE: Boundary.h
-USES INCLUDE: loopcontrol.h
-
-CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex)
-USES FUNCTION MoLRegisterEvolved
-
-SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle)
-USES FUNCTION Diff_coeff
-
-CCTK_INT FUNCTION MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH)
-USES FUNCTION MultiPatch_GetMap
-
-CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectGroupForBC
-
-CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name)
-USES FUNCTION Boundary_SelectVarForBC
-
-public:
-CCTK_REAL eneflux_group type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0'
-{
-  eneflux1,
-  eneflux2,
-  eneflux3
-} "eneflux_group"
-
-public:
-CCTK_REAL eps_group type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  eps
-} "eps_group"
-
-public:
-CCTK_REAL massflux_group type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0'
-{
-  massflux1,
-  massflux2,
-  massflux3
-} "massflux_group"
-
-public:
-CCTK_REAL momflux_group type=GF timelevels=1 tags='tensortypealias="DU" tensorweight=0'
-{
-  momflux11,
-  momflux12,
-  momflux13,
-  momflux21,
-  momflux22,
-  momflux23,
-  momflux31,
-  momflux32,
-  momflux33
-} "momflux_group"
-
-public:
-CCTK_REAL press_group type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  press
-} "press_group"
-
-public:
-CCTK_REAL rho_group type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  rho
-} "rho_group"
-
-public:
-CCTK_REAL vel_group type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0'
-{
-  vel1,
-  vel2,
-  vel3
-} "vel_group"
-
-public:
-CCTK_REAL vol_group type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  vol
-} "vol_group"
-
-public:
-CCTK_REAL ene_group type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  ene
-} "ene_group"
-
-public:
-CCTK_REAL mass_group type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  mass
-} "mass_group"
-
-public:
-CCTK_REAL mom_group type=GF timelevels=3 tags='tensortypealias="D" tensorweight=0'
-{
-  mom1,
-  mom2,
-  mom3
-} "mom_group"
-
-public:
-CCTK_REAL ene_grouprhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  enerhs
-} "ene_grouprhs"
-
-public:
-CCTK_REAL mass_grouprhs type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=0'
-{
-  massrhs
-} "mass_grouprhs"
-
-public:
-CCTK_REAL mom_grouprhs type=GF timelevels=3 tags='tensortypealias="D" tensorweight=0'
-{
-  mom1rhs,
-  mom2rhs,
-  mom3rhs
-} "mom_grouprhs"
diff --git a/ML_hydro/param.ccl b/ML_hydro/param.ccl
deleted file mode 100644
index be6c2a8..0000000
--- a/ML_hydro/param.ccl
+++ /dev/null
@@ -1,385 +0,0 @@
-# File produced by Kranc
-
-
-shares: GenericFD
-
-
-
-shares: MethodOfLines
-
-USES CCTK_INT MoL_Num_Evolved_Vars
-USES CCTK_INT MoL_Num_ArrayEvolved_Vars
-
-restricted:
-CCTK_INT verbose "verbose" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_REAL h "grid spacing"
-{
-  "*:*" :: ""
-} 0.01
-
-restricted:
-CCTK_REAL A "sound wave amplitude"
-{
-  "*:*" :: ""
-} 0.001
-
-restricted:
-CCTK_REAL L "sound wave wavelength"
-{
-  "*:*" :: ""
-} 1
-
-restricted:
-CCTK_REAL alpha "artificial viscosity coefficient"
-{
-  "*:*" :: ""
-} 0
-
-restricted:
-CCTK_REAL Gamma "polytropic exponent"
-{
-  "*:*" :: ""
-} 1.3333333333333333
-
-private:
-KEYWORD initial_data "initial_data"
-{
-  "vacuum" :: "vacuum"
-  "sound wave" :: "sound wave"
-} "vacuum"
-
-restricted:
-CCTK_INT ML_hydro_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars STEERABLE=RECOVER
-{
-  5:5 :: "Number of evolved variables used by this thorn"
-} 5
-
-restricted:
-CCTK_INT ML_hydro_MaxNumArrayEvolvedVars "Number of Array evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_ArrayEvolved_Vars STEERABLE=RECOVER
-{
-  0:0 :: "Number of Array evolved variables used by this thorn"
-} 0
-
-restricted:
-CCTK_INT timelevels "Number of active timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 3
-
-restricted:
-CCTK_INT rhs_timelevels "Number of active RHS timelevels" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
-{
-  0:3 :: ""
-} 1
-
-restricted:
-CCTK_INT hydro_vacuum_calc_every "hydro_vacuum_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT hydro_soundWave_calc_every "hydro_soundWave_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT hydro_prim2con_calc_every "hydro_prim2con_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT hydro_con2prim_calc_every "hydro_con2prim_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT hydro_RHS_calc_every "hydro_RHS_calc_every" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 1
-
-restricted:
-CCTK_INT hydro_vacuum_calc_offset "hydro_vacuum_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT hydro_soundWave_calc_offset "hydro_soundWave_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT hydro_prim2con_calc_offset "hydro_prim2con_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT hydro_con2prim_calc_offset "hydro_con2prim_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-restricted:
-CCTK_INT hydro_RHS_calc_offset "hydro_RHS_calc_offset" STEERABLE=ALWAYS
-{
-  *:* :: ""
-} 0
-
-private:
-KEYWORD ene_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD mass_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD mom1_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD mom2_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD mom3_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD ene_group_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD mass_group_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-KEYWORD mom_group_bound "Boundary condition to implement" STEERABLE=ALWAYS
-{
-  "flat" :: "Flat boundary condition"
-  "none" :: "No boundary condition"
-  "static" :: "Boundaries held fixed"
-  "radiative" :: "Radiation boundary condition"
-  "scalar" :: "Dirichlet boundary condition"
-  "newrad" :: "Improved radiative boundary condition"
-  "skip" :: "skip boundary condition code"
-} "none"
-
-private:
-CCTK_REAL ene_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL mass_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL mom1_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL mom2_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL mom3_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ene_group_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL mass_group_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL mom_group_bound_speed "characteristic speed at boundary" STEERABLE=ALWAYS
-{
-  "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL ene_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL mass_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL mom1_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL mom2_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL mom3_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ene_group_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL mass_group_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL mom_group_bound_limit "limit value for r -> infinity" STEERABLE=ALWAYS
-{
-  "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL ene_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL mass_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL mom1_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL mom2_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL mom3_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL ene_group_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL mass_group_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL mom_group_bound_scalar "Dirichlet boundary value" STEERABLE=ALWAYS
-{
-  "*:*" :: "unrestricted"
-} 0.
-
diff --git a/ML_hydro/schedule.ccl b/ML_hydro/schedule.ccl
deleted file mode 100644
index 055b0ff..0000000
--- a/ML_hydro/schedule.ccl
+++ /dev/null
@@ -1,227 +0,0 @@
-# File produced by Kranc
-
-
-if (other_timelevels == 1)
-{
-  STORAGE: eneflux_group[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: eps_group[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: massflux_group[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: momflux_group[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: press_group[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: rho_group[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: vel_group[1]
-}
-
-if (other_timelevels == 1)
-{
-  STORAGE: vol_group[1]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: ene_group[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: ene_group[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: ene_group[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: mass_group[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: mass_group[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: mass_group[3]
-}
-
-if (timelevels == 1)
-{
-  STORAGE: mom_group[1]
-}
-if (timelevels == 2)
-{
-  STORAGE: mom_group[2]
-}
-if (timelevels == 3)
-{
-  STORAGE: mom_group[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: ene_grouprhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: ene_grouprhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: ene_grouprhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: mass_grouprhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: mass_grouprhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: mass_grouprhs[3]
-}
-
-if (rhs_timelevels == 1)
-{
-  STORAGE: mom_grouprhs[1]
-}
-if (rhs_timelevels == 2)
-{
-  STORAGE: mom_grouprhs[2]
-}
-if (rhs_timelevels == 3)
-{
-  STORAGE: mom_grouprhs[3]
-}
-
-schedule ML_hydro_Startup at STARTUP
-{
-  LANG: C
-  OPTIONS: meta
-} "create banner"
-
-schedule ML_hydro_RegisterSymmetries in SymmetryRegister
-{
-  LANG: C
-  OPTIONS: meta
-} "register symmetries"
-
-
-if (CCTK_EQUALS(initial_data, "vacuum"))
-{
-  schedule hydro_vacuum IN ADMBase_InitialData
-  {
-    LANG: C
-    WRITES:   ML_hydro::eps_group
-    WRITES:   ML_hydro::rho_group
-    WRITES:   ML_hydro::vel_group
-  } "hydro_vacuum"
-}
-
-
-if (CCTK_EQUALS(initial_data, "sound wave"))
-{
-  schedule hydro_soundWave IN ADMBase_InitialData
-  {
-    LANG: C
-    READS:    grid::coordinates
-    WRITES:   ML_hydro::eps_group
-    WRITES:   ML_hydro::rho_group
-    WRITES:   ML_hydro::vel_group
-  } "hydro_soundWave"
-}
-
-schedule hydro_prim2con AT initial AFTER ADMBase_PostInitial
-{
-  LANG: C
-  READS:    ML_hydro::eps_group
-  READS:    ML_hydro::mass_group
-  READS:    ML_hydro::rho_group
-  READS:    ML_hydro::vel_group
-  READS:    ML_hydro::vol_group
-  WRITES:   ML_hydro::ene_group
-  WRITES:   ML_hydro::mass_group
-  WRITES:   ML_hydro::mom_group
-  WRITES:   ML_hydro::vol_group
-} "hydro_prim2con"
-
-schedule hydro_con2prim IN hydro_con2primGroup
-{
-  LANG: C
-  READS:    ML_hydro::ene_group
-  READS:    ML_hydro::eps_group
-  READS:    ML_hydro::mass_group
-  READS:    ML_hydro::mom_group
-  READS:    ML_hydro::rho_group
-  READS:    ML_hydro::vel_group
-  READS:    ML_hydro::vol_group
-  WRITES:   ML_hydro::eps_group
-  WRITES:   ML_hydro::press_group
-  WRITES:   ML_hydro::rho_group
-  WRITES:   ML_hydro::vel_group
-} "hydro_con2prim"
-
-schedule hydro_RHS IN hydro_evolCalcGroup AFTER hydro_fluxes
-{
-  LANG: C
-  SYNC: ene_grouprhs
-  SYNC: mass_grouprhs
-  SYNC: mom_grouprhs
-  READS:    ML_hydro::eneflux_group
-  READS:    ML_hydro::massflux_group
-  READS:    ML_hydro::momflux_group
-  WRITES:   ML_hydro::ene_grouprhs
-  WRITES:   ML_hydro::mass_grouprhs
-  WRITES:   ML_hydro::mom_grouprhs
-} "hydro_RHS"
-
-schedule ML_hydro_SelectBoundConds in MoL_PostStep
-{
-  LANG: C
-  OPTIONS: level
-  SYNC: ene_group
-  SYNC: mass_group
-  SYNC: mom_group
-} "select boundary conditions"
-
-schedule ML_hydro_CheckBoundaries at BASEGRID
-{
-  LANG: C
-  OPTIONS: meta
-} "check boundaries treatment"
-
-schedule ML_hydro_RegisterVars in MoL_Register
-{
-  LANG: C
-  OPTIONS: meta
-} "Register Variables for MoL"
-
-schedule group ApplyBCs as ML_hydro_ApplyBCs in MoL_PostStep after ML_hydro_SelectBoundConds
-{
-  # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
diff --git a/ML_hydro/src/Boundaries.cc b/ML_hydro/src/Boundaries.cc
deleted file mode 100644
index ff96482..0000000
--- a/ML_hydro/src/Boundaries.cc
+++ /dev/null
@@ -1,457 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "cctk_Faces.h"
-#include "util_Table.h"
-#include "Symmetry.h"
-
-
-/* the boundary treatment is split into 3 steps:    */
-/* 1. excision                                      */
-/* 2. symmetries                                    */
-/* 3. "other" boundary conditions, e.g. radiative */
-
-/* to simplify scheduling and testing, the 3 steps  */
-/* are currently applied in separate functions      */
-
-
-extern "C" void ML_hydro_CheckBoundaries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  return;
-}
-
-extern "C" void ML_hydro_SelectBoundConds(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  if (CCTK_EQUALS(ene_group_bound, "none"  ) ||
-      CCTK_EQUALS(ene_group_bound, "static") ||
-      CCTK_EQUALS(ene_group_bound, "flat"  ) ||
-      CCTK_EQUALS(ene_group_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_hydro::ene_group", ene_group_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ene_group_bound BC for ML_hydro::ene_group!");
-  }
-  
-  if (CCTK_EQUALS(mass_group_bound, "none"  ) ||
-      CCTK_EQUALS(mass_group_bound, "static") ||
-      CCTK_EQUALS(mass_group_bound, "flat"  ) ||
-      CCTK_EQUALS(mass_group_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_hydro::mass_group", mass_group_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register mass_group_bound BC for ML_hydro::mass_group!");
-  }
-  
-  if (CCTK_EQUALS(mom_group_bound, "none"  ) ||
-      CCTK_EQUALS(mom_group_bound, "static") ||
-      CCTK_EQUALS(mom_group_bound, "flat"  ) ||
-      CCTK_EQUALS(mom_group_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_hydro::mom_group", mom_group_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register mom_group_bound BC for ML_hydro::mom_group!");
-  }
-  
-  if (CCTK_EQUALS(ene_bound, "none"  ) ||
-      CCTK_EQUALS(ene_bound, "static") ||
-      CCTK_EQUALS(ene_bound, "flat"  ) ||
-      CCTK_EQUALS(ene_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_hydro::ene", ene_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register ene_bound BC for ML_hydro::ene!");
-  }
-  
-  if (CCTK_EQUALS(mass_bound, "none"  ) ||
-      CCTK_EQUALS(mass_bound, "static") ||
-      CCTK_EQUALS(mass_bound, "flat"  ) ||
-      CCTK_EQUALS(mass_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_hydro::mass", mass_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register mass_bound BC for ML_hydro::mass!");
-  }
-  
-  if (CCTK_EQUALS(mom1_bound, "none"  ) ||
-      CCTK_EQUALS(mom1_bound, "static") ||
-      CCTK_EQUALS(mom1_bound, "flat"  ) ||
-      CCTK_EQUALS(mom1_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_hydro::mom1", mom1_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register mom1_bound BC for ML_hydro::mom1!");
-  }
-  
-  if (CCTK_EQUALS(mom2_bound, "none"  ) ||
-      CCTK_EQUALS(mom2_bound, "static") ||
-      CCTK_EQUALS(mom2_bound, "flat"  ) ||
-      CCTK_EQUALS(mom2_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_hydro::mom2", mom2_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register mom2_bound BC for ML_hydro::mom2!");
-  }
-  
-  if (CCTK_EQUALS(mom3_bound, "none"  ) ||
-      CCTK_EQUALS(mom3_bound, "static") ||
-      CCTK_EQUALS(mom3_bound, "flat"  ) ||
-      CCTK_EQUALS(mom3_bound, "zero"  ) )
-  {
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
-                      "ML_hydro::mom3", mom3_bound);
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register mom3_bound BC for ML_hydro::mom3!");
-  }
-  
-  if (CCTK_EQUALS(ene_group_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ene_group_bound = -1;
-    if (handle_ene_group_bound < 0) handle_ene_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ene_group_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ene_group_bound , ene_group_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ene_group_bound ,ene_group_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ene_group_bound, 
-                      "ML_hydro::ene_group", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_hydro::ene_group!");
-  
-  }
-  
-  if (CCTK_EQUALS(mass_group_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_mass_group_bound = -1;
-    if (handle_mass_group_bound < 0) handle_mass_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mass_group_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mass_group_bound , mass_group_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_mass_group_bound ,mass_group_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mass_group_bound, 
-                      "ML_hydro::mass_group", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_hydro::mass_group!");
-  
-  }
-  
-  if (CCTK_EQUALS(mom_group_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_mom_group_bound = -1;
-    if (handle_mom_group_bound < 0) handle_mom_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mom_group_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mom_group_bound , mom_group_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_mom_group_bound ,mom_group_bound_speed, "SPEED") < 0)
-       CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mom_group_bound, 
-                      "ML_hydro::mom_group", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_hydro::mom_group!");
-  
-  }
-  
-  if (CCTK_EQUALS(ene_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_ene_bound = -1;
-    if (handle_ene_bound < 0) handle_ene_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ene_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ene_bound , ene_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_ene_bound ,ene_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ene_bound, 
-                      "ML_hydro::ene", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_hydro::ene!");
-  
-  }
-  
-  if (CCTK_EQUALS(mass_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_mass_bound = -1;
-    if (handle_mass_bound < 0) handle_mass_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mass_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mass_bound , mass_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_mass_bound ,mass_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mass_bound, 
-                      "ML_hydro::mass", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_hydro::mass!");
-  
-  }
-  
-  if (CCTK_EQUALS(mom1_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_mom1_bound = -1;
-    if (handle_mom1_bound < 0) handle_mom1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mom1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mom1_bound , mom1_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_mom1_bound ,mom1_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mom1_bound, 
-                      "ML_hydro::mom1", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_hydro::mom1!");
-  
-  }
-  
-  if (CCTK_EQUALS(mom2_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_mom2_bound = -1;
-    if (handle_mom2_bound < 0) handle_mom2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mom2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mom2_bound , mom2_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_mom2_bound ,mom2_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mom2_bound, 
-                      "ML_hydro::mom2", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_hydro::mom2!");
-  
-  }
-  
-  if (CCTK_EQUALS(mom3_bound, "radiative"))
-  {
-   /* select radiation boundary condition */
-    static CCTK_INT handle_mom3_bound = -1;
-    if (handle_mom3_bound < 0) handle_mom3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mom3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mom3_bound , mom3_bound_limit, "LIMIT") < 0)
-       CCTK_WARN(0, "could not set LIMIT value in table!");
-    if (Util_TableSetReal(handle_mom3_bound ,mom3_bound_speed, "SPEED") < 0)
-        CCTK_WARN(0, "could not set SPEED value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mom3_bound, 
-                      "ML_hydro::mom3", "Radiation");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Radiation BC for ML_hydro::mom3!");
-  
-  }
-  
-  if (CCTK_EQUALS(ene_group_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ene_group_bound = -1;
-    if (handle_ene_group_bound < 0) handle_ene_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ene_group_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ene_group_bound ,ene_group_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ene_group_bound, 
-                      "ML_hydro::ene_group", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_hydro::ene_group!");
-  
-  }
-  
-  if (CCTK_EQUALS(mass_group_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_mass_group_bound = -1;
-    if (handle_mass_group_bound < 0) handle_mass_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mass_group_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mass_group_bound ,mass_group_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mass_group_bound, 
-                      "ML_hydro::mass_group", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_hydro::mass_group!");
-  
-  }
-  
-  if (CCTK_EQUALS(mom_group_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_mom_group_bound = -1;
-    if (handle_mom_group_bound < 0) handle_mom_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mom_group_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mom_group_bound ,mom_group_bound_scalar, "SCALAR") < 0)
-        CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mom_group_bound, 
-                      "ML_hydro::mom_group", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Failed to register Scalar BC for ML_hydro::mom_group!");
-  
-  }
-  
-  if (CCTK_EQUALS(ene_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_ene_bound = -1;
-    if (handle_ene_bound < 0) handle_ene_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_ene_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_ene_bound ,ene_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_ene_bound, 
-                      "ML_hydro::ene", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_hydro::ene!");
-  
-  }
-  
-  if (CCTK_EQUALS(mass_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_mass_bound = -1;
-    if (handle_mass_bound < 0) handle_mass_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mass_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mass_bound ,mass_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mass_bound, 
-                      "ML_hydro::mass", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_hydro::mass!");
-  
-  }
-  
-  if (CCTK_EQUALS(mom1_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_mom1_bound = -1;
-    if (handle_mom1_bound < 0) handle_mom1_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mom1_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mom1_bound ,mom1_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mom1_bound, 
-                      "ML_hydro::mom1", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_hydro::mom1!");
-  
-  }
-  
-  if (CCTK_EQUALS(mom2_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_mom2_bound = -1;
-    if (handle_mom2_bound < 0) handle_mom2_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mom2_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mom2_bound ,mom2_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mom2_bound, 
-                      "ML_hydro::mom2", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_hydro::mom2!");
-  
-  }
-  
-  if (CCTK_EQUALS(mom3_bound, "scalar"))
-  {
-   /* select scalar boundary condition */
-    static CCTK_INT handle_mom3_bound = -1;
-    if (handle_mom3_bound < 0) handle_mom3_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
-    if (handle_mom3_bound < 0) CCTK_WARN(0, "could not create table!");
-    if (Util_TableSetReal(handle_mom3_bound ,mom3_bound_scalar, "SCALAR") < 0)
-      CCTK_WARN(0, "could not set SCALAR value in table!");
-  
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_mom3_bound, 
-                      "ML_hydro::mom3", "scalar");
-  
-    if (ierr < 0)
-       CCTK_WARN(0, "Error in registering Scalar BC for ML_hydro::mom3!");
-  
-  }
-  return;
-}
-
-
-
-/* template for entries in parameter file:
-#$bound$#ML_hydro::ene_group_bound       = "skip"
-#$bound$#ML_hydro::ene_group_bound_speed = 1.0
-#$bound$#ML_hydro::ene_group_bound_limit = 0.0
-#$bound$#ML_hydro::ene_group_bound_scalar = 0.0
-
-#$bound$#ML_hydro::mass_group_bound       = "skip"
-#$bound$#ML_hydro::mass_group_bound_speed = 1.0
-#$bound$#ML_hydro::mass_group_bound_limit = 0.0
-#$bound$#ML_hydro::mass_group_bound_scalar = 0.0
-
-#$bound$#ML_hydro::mom_group_bound       = "skip"
-#$bound$#ML_hydro::mom_group_bound_speed = 1.0
-#$bound$#ML_hydro::mom_group_bound_limit = 0.0
-#$bound$#ML_hydro::mom_group_bound_scalar = 0.0
-
-#$bound$#ML_hydro::ene_bound       = "skip"
-#$bound$#ML_hydro::ene_bound_speed = 1.0
-#$bound$#ML_hydro::ene_bound_limit = 0.0
-#$bound$#ML_hydro::ene_bound_scalar = 0.0
-
-#$bound$#ML_hydro::mass_bound       = "skip"
-#$bound$#ML_hydro::mass_bound_speed = 1.0
-#$bound$#ML_hydro::mass_bound_limit = 0.0
-#$bound$#ML_hydro::mass_bound_scalar = 0.0
-
-#$bound$#ML_hydro::mom1_bound       = "skip"
-#$bound$#ML_hydro::mom1_bound_speed = 1.0
-#$bound$#ML_hydro::mom1_bound_limit = 0.0
-#$bound$#ML_hydro::mom1_bound_scalar = 0.0
-
-#$bound$#ML_hydro::mom2_bound       = "skip"
-#$bound$#ML_hydro::mom2_bound_speed = 1.0
-#$bound$#ML_hydro::mom2_bound_limit = 0.0
-#$bound$#ML_hydro::mom2_bound_scalar = 0.0
-
-#$bound$#ML_hydro::mom3_bound       = "skip"
-#$bound$#ML_hydro::mom3_bound_speed = 1.0
-#$bound$#ML_hydro::mom3_bound_limit = 0.0
-#$bound$#ML_hydro::mom3_bound_scalar = 0.0
-
-*/
-
diff --git a/ML_hydro/src/Differencing.h b/ML_hydro/src/Differencing.h
deleted file mode 100644
index 6e7b849..0000000
--- a/ML_hydro/src/Differencing.h
+++ /dev/null
@@ -1,144 +0,0 @@
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth1(u) ((-KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1o2dx)
-#else
-#  define PDstandardNth1(u) (PDstandardNth1_impl(u,p1o2dx,cdj,cdk))
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dx, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1o2dx;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth2(u) ((-KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1o2dy)
-#else
-#  define PDstandardNth2(u) (PDstandardNth2_impl(u,p1o2dy,cdj,cdk))
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1o2dy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth3(u) ((-KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1o2dz)
-#else
-#  define PDstandardNth3(u) (PDstandardNth3_impl(u,p1o2dz,cdj,cdk))
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o2dz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1o2dz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth11(u) ((-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1odx2)
-#else
-#  define PDstandardNth11(u) (PDstandardNth11_impl(u,p1odx2,cdj,cdk))
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odx2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,-1,0,0) + KRANC_GFOFFSET3D(u,1,0,0))*p1odx2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth22(u) ((-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1ody2)
-#else
-#  define PDstandardNth22(u) (PDstandardNth22_impl(u,p1ody2,cdj,cdk))
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1ody2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,-1,0) + KRANC_GFOFFSET3D(u,0,1,0))*p1ody2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth33(u) ((-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1odz2)
-#else
-#  define PDstandardNth33(u) (PDstandardNth33_impl(u,p1odz2,cdj,cdk))
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1odz2, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (-2*KRANC_GFOFFSET3D(u,0,0,0) + KRANC_GFOFFSET3D(u,0,0,-1) + KRANC_GFOFFSET3D(u,0,0,1))*p1odz2;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth12(u) ((KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy)
-#else
-#  define PDstandardNth12(u) (PDstandardNth12_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth13(u) ((KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz)
-#else
-#  define PDstandardNth13(u) (PDstandardNth13_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth21(u) ((KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy)
-#else
-#  define PDstandardNth21(u) (PDstandardNth21_impl(u,p1o4dxdy,cdj,cdk))
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,-1,0) - KRANC_GFOFFSET3D(u,-1,1,0) - KRANC_GFOFFSET3D(u,1,-1,0) + KRANC_GFOFFSET3D(u,1,1,0))*p1o4dxdy;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth23(u) ((KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz)
-#else
-#  define PDstandardNth23(u) (PDstandardNth23_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth31(u) ((KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz)
-#else
-#  define PDstandardNth31(u) (PDstandardNth31_impl(u,p1o4dxdz,cdj,cdk))
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,-1,0,-1) - KRANC_GFOFFSET3D(u,-1,0,1) - KRANC_GFOFFSET3D(u,1,0,-1) + KRANC_GFOFFSET3D(u,1,0,1))*p1o4dxdz;
-}
-#endif
-
-#ifndef KRANC_DIFF_FUNCTIONS
-#  define PDstandardNth32(u) ((KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz)
-#else
-#  define PDstandardNth32(u) (PDstandardNth32_impl(u,p1o4dydz,cdj,cdk))
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED;
-static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o4dydz, ptrdiff_t const cdj, ptrdiff_t const cdk)
-{
-  ptrdiff_t const cdi=sizeof(CCTK_REAL);
-  return (KRANC_GFOFFSET3D(u,0,-1,-1) - KRANC_GFOFFSET3D(u,0,-1,1) - KRANC_GFOFFSET3D(u,0,1,-1) + KRANC_GFOFFSET3D(u,0,1,1))*p1o4dydz;
-}
-#endif
-
diff --git a/ML_hydro/src/RegisterMoL.cc b/ML_hydro/src/RegisterMoL.cc
deleted file mode 100644
index 15b0ebc..0000000
--- a/ML_hydro/src/RegisterMoL.cc
+++ /dev/null
@@ -1,23 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-
-extern "C" void ML_hydro_RegisterVars(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  
-  /* Register all the evolved grid functions with MoL */
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_hydro::ene"),  CCTK_VarIndex("ML_hydro::enerhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_hydro::mass"),  CCTK_VarIndex("ML_hydro::massrhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_hydro::mom1"),  CCTK_VarIndex("ML_hydro::mom1rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_hydro::mom2"),  CCTK_VarIndex("ML_hydro::mom2rhs"));
-  ierr += MoLRegisterEvolved(CCTK_VarIndex("ML_hydro::mom3"),  CCTK_VarIndex("ML_hydro::mom3rhs"));
-  
-  /* Register all the evolved Array functions with MoL */
-  return;
-}
diff --git a/ML_hydro/src/RegisterSymmetries.cc b/ML_hydro/src/RegisterSymmetries.cc
deleted file mode 100644
index efe3c53..0000000
--- a/ML_hydro/src/RegisterSymmetries.cc
+++ /dev/null
@@ -1,154 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "Symmetry.h"
-
-extern "C" void ML_hydro_RegisterSymmetries(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* array holding symmetry definitions */
-  CCTK_INT sym[3];
-  
-  
-  /* Register symmetries of grid functions */
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::ene");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::mass");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::mom1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::mom2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::mom3");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::eneflux1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::eneflux2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::eneflux3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::eps");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::massflux1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::massflux2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::massflux3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::momflux11");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::momflux12");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::momflux13");
-  
-  sym[0] = -1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::momflux21");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::momflux22");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::momflux23");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::momflux31");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::momflux32");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::momflux33");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::press");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::rho");
-  
-  sym[0] = -1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::vel1");
-  
-  sym[0] = 1;
-  sym[1] = -1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::vel2");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = -1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::vel3");
-  
-  sym[0] = 1;
-  sym[1] = 1;
-  sym[2] = 1;
-  SetCartSymVN(cctkGH, sym, "ML_hydro::vol");
-  
-}
diff --git a/ML_hydro/src/Startup.cc b/ML_hydro/src/Startup.cc
deleted file mode 100644
index deacf63..0000000
--- a/ML_hydro/src/Startup.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-/*  File produced by Kranc */
-
-#include "cctk.h"
-
-extern "C" int ML_hydro_Startup(void)
-{
-  const char * banner = "ML_hydro";
-  CCTK_RegisterBanner(banner);
-  return 0;
-}
diff --git a/ML_hydro/src/hydro_RHS.cc b/ML_hydro/src/hydro_RHS.cc
deleted file mode 100644
index 3f41d0f..0000000
--- a/ML_hydro/src/hydro_RHS.cc
+++ /dev/null
@@ -1,199 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-extern "C" void hydro_RHS_SelectBCs(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  CCTK_INT ierr = 0;
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_hydro::ene_grouprhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_hydro::ene_grouprhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_hydro::mass_grouprhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_hydro::mass_grouprhs.");
-  ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_hydro::mom_grouprhs","flat");
-  if (ierr < 0)
-    CCTK_WARN(1, "Failed to register flat BC for ML_hydro::mom_grouprhs.");
-  return;
-}
-
-static void hydro_RHS_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o2dx = 0.5*INV(dx);
-  CCTK_REAL const p1o2dy = 0.5*INV(dy);
-  CCTK_REAL const p1o2dz = 0.5*INV(dz);
-  CCTK_REAL const p1o4dxdy = 0.25*INV(dx*dy);
-  CCTK_REAL const p1o4dxdz = 0.25*INV(dx*dz);
-  CCTK_REAL const p1o4dydz = 0.25*INV(dy*dz);
-  CCTK_REAL const p1odx2 = INV(SQR(dx));
-  CCTK_REAL const p1ody2 = INV(SQR(dy));
-  CCTK_REAL const p1odz2 = INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(hydro_RHS,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL eneflux1L = eneflux1[index];
-    CCTK_REAL eneflux2L = eneflux2[index];
-    CCTK_REAL eneflux3L = eneflux3[index];
-    CCTK_REAL massflux1L = massflux1[index];
-    CCTK_REAL massflux2L = massflux2[index];
-    CCTK_REAL massflux3L = massflux3[index];
-    CCTK_REAL momflux11L = momflux11[index];
-    CCTK_REAL momflux12L = momflux12[index];
-    CCTK_REAL momflux13L = momflux13[index];
-    CCTK_REAL momflux21L = momflux21[index];
-    CCTK_REAL momflux22L = momflux22[index];
-    CCTK_REAL momflux23L = momflux23[index];
-    CCTK_REAL momflux31L = momflux31[index];
-    CCTK_REAL momflux32L = momflux32[index];
-    CCTK_REAL momflux33L = momflux33[index];
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    CCTK_REAL const PDstandardNth1eneflux1 = PDstandardNth1(&eneflux1[index]);
-    CCTK_REAL const PDstandardNth2eneflux2 = PDstandardNth2(&eneflux2[index]);
-    CCTK_REAL const PDstandardNth3eneflux3 = PDstandardNth3(&eneflux3[index]);
-    CCTK_REAL const PDstandardNth1massflux1 = PDstandardNth1(&massflux1[index]);
-    CCTK_REAL const PDstandardNth2massflux2 = PDstandardNth2(&massflux2[index]);
-    CCTK_REAL const PDstandardNth3massflux3 = PDstandardNth3(&massflux3[index]);
-    CCTK_REAL const PDstandardNth1momflux11 = PDstandardNth1(&momflux11[index]);
-    CCTK_REAL const PDstandardNth2momflux12 = PDstandardNth2(&momflux12[index]);
-    CCTK_REAL const PDstandardNth3momflux13 = PDstandardNth3(&momflux13[index]);
-    CCTK_REAL const PDstandardNth1momflux21 = PDstandardNth1(&momflux21[index]);
-    CCTK_REAL const PDstandardNth2momflux22 = PDstandardNth2(&momflux22[index]);
-    CCTK_REAL const PDstandardNth3momflux23 = PDstandardNth3(&momflux23[index]);
-    CCTK_REAL const PDstandardNth1momflux31 = PDstandardNth1(&momflux31[index]);
-    CCTK_REAL const PDstandardNth2momflux32 = PDstandardNth2(&momflux32[index]);
-    CCTK_REAL const PDstandardNth3momflux33 = PDstandardNth3(&momflux33[index]);
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL massrhsL = -PDstandardNth1massflux1 - 
-      PDstandardNth2massflux2 - PDstandardNth3massflux3;
-    
-    CCTK_REAL mom1rhsL = -PDstandardNth1momflux11 - 
-      PDstandardNth2momflux12 - PDstandardNth3momflux13;
-    
-    CCTK_REAL mom2rhsL = -PDstandardNth1momflux21 - 
-      PDstandardNth2momflux22 - PDstandardNth3momflux23;
-    
-    CCTK_REAL mom3rhsL = -PDstandardNth1momflux31 - 
-      PDstandardNth2momflux32 - PDstandardNth3momflux33;
-    
-    CCTK_REAL enerhsL = -PDstandardNth1eneflux1 - PDstandardNth2eneflux2 - 
-      PDstandardNth3eneflux3;
-    
-    /* Copy local copies back to grid functions */
-    enerhs[index] = enerhsL;
-    massrhs[index] = massrhsL;
-    mom1rhs[index] = mom1rhsL;
-    mom2rhs[index] = mom2rhsL;
-    mom3rhs[index] = mom3rhsL;
-  }
-  CCTK_ENDLOOP3(hydro_RHS);
-}
-
-extern "C" void hydro_RHS(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering hydro_RHS_Body");
-  }
-  
-  if (cctk_iteration % hydro_RHS_calc_every != hydro_RHS_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_hydro::eneflux_group",
-    "ML_hydro::ene_grouprhs",
-    "ML_hydro::massflux_group",
-    "ML_hydro::mass_grouprhs",
-    "ML_hydro::momflux_group",
-    "ML_hydro::mom_grouprhs"};
-  GenericFD_AssertGroupStorage(cctkGH, "hydro_RHS", 6, groups);
-  
-  GenericFD_EnsureStencilFits(cctkGH, "hydro_RHS", 1, 1, 1);
-  
-  GenericFD_LoopOverInterior(cctkGH, hydro_RHS_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving hydro_RHS_Body");
-  }
-}
diff --git a/ML_hydro/src/hydro_con2prim.cc b/ML_hydro/src/hydro_con2prim.cc
deleted file mode 100644
index 716321d..0000000
--- a/ML_hydro/src/hydro_con2prim.cc
+++ /dev/null
@@ -1,162 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-static void hydro_con2prim_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o2dx = 0.5*INV(dx);
-  CCTK_REAL const p1o2dy = 0.5*INV(dy);
-  CCTK_REAL const p1o2dz = 0.5*INV(dz);
-  CCTK_REAL const p1o4dxdy = 0.25*INV(dx*dy);
-  CCTK_REAL const p1o4dxdz = 0.25*INV(dx*dz);
-  CCTK_REAL const p1o4dydz = 0.25*INV(dy*dz);
-  CCTK_REAL const p1odx2 = INV(SQR(dx));
-  CCTK_REAL const p1ody2 = INV(SQR(dy));
-  CCTK_REAL const p1odz2 = INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(hydro_con2prim,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL eneL = ene[index];
-    CCTK_REAL epsL = eps[index];
-    CCTK_REAL massL = mass[index];
-    CCTK_REAL mom1L = mom1[index];
-    CCTK_REAL mom2L = mom2[index];
-    CCTK_REAL mom3L = mom3[index];
-    CCTK_REAL rhoL = rho[index];
-    CCTK_REAL vel1L = vel1[index];
-    CCTK_REAL vel2L = vel2[index];
-    CCTK_REAL vel3L = vel3[index];
-    CCTK_REAL volL = vol[index];
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    /* Calculate temporaries and grid functions */
-    rhoL = massL*INV(volL);
-    
-    vel1L = mom1L*INV(massL);
-    
-    vel2L = mom2L*INV(massL);
-    
-    vel3L = mom3L*INV(massL);
-    
-    epsL = 0.5*INV(massL)*(2*eneL - massL*(SQR(vel1L) + 
-      SQR(vel2L) + SQR(vel3L)));
-    
-    CCTK_REAL pressL = epsL*rhoL*ToReal(Gamma);
-    
-    /* Copy local copies back to grid functions */
-    eps[index] = epsL;
-    press[index] = pressL;
-    rho[index] = rhoL;
-    vel1[index] = vel1L;
-    vel2[index] = vel2L;
-    vel3[index] = vel3L;
-  }
-  CCTK_ENDLOOP3(hydro_con2prim);
-}
-
-extern "C" void hydro_con2prim(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering hydro_con2prim_Body");
-  }
-  
-  if (cctk_iteration % hydro_con2prim_calc_every != hydro_con2prim_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_hydro::ene_group",
-    "ML_hydro::eps_group",
-    "ML_hydro::mass_group",
-    "ML_hydro::mom_group",
-    "ML_hydro::press_group",
-    "ML_hydro::rho_group",
-    "ML_hydro::vel_group",
-    "ML_hydro::vol_group"};
-  GenericFD_AssertGroupStorage(cctkGH, "hydro_con2prim", 8, groups);
-  
-  
-  GenericFD_LoopOverEverything(cctkGH, hydro_con2prim_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving hydro_con2prim_Body");
-  }
-}
diff --git a/ML_hydro/src/hydro_prim2con.cc b/ML_hydro/src/hydro_prim2con.cc
deleted file mode 100644
index d9aa747..0000000
--- a/ML_hydro/src/hydro_prim2con.cc
+++ /dev/null
@@ -1,157 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-static void hydro_prim2con_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o2dx = 0.5*INV(dx);
-  CCTK_REAL const p1o2dy = 0.5*INV(dy);
-  CCTK_REAL const p1o2dz = 0.5*INV(dz);
-  CCTK_REAL const p1o4dxdy = 0.25*INV(dx*dy);
-  CCTK_REAL const p1o4dxdz = 0.25*INV(dx*dz);
-  CCTK_REAL const p1o4dydz = 0.25*INV(dy*dz);
-  CCTK_REAL const p1odx2 = INV(SQR(dx));
-  CCTK_REAL const p1ody2 = INV(SQR(dy));
-  CCTK_REAL const p1odz2 = INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(hydro_prim2con,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL epsL = eps[index];
-    CCTK_REAL massL = mass[index];
-    CCTK_REAL rhoL = rho[index];
-    CCTK_REAL vel1L = vel1[index];
-    CCTK_REAL vel2L = vel2[index];
-    CCTK_REAL vel3L = vel3[index];
-    CCTK_REAL volL = vol[index];
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    /* Calculate temporaries and grid functions */
-    volL = CUB(ToReal(h));
-    
-    massL = rhoL*volL;
-    
-    CCTK_REAL mom1L = massL*vel1L;
-    
-    CCTK_REAL mom2L = massL*vel2L;
-    
-    CCTK_REAL mom3L = massL*vel3L;
-    
-    CCTK_REAL eneL = 0.5*massL*(2*epsL + SQR(vel1L) + SQR(vel2L) + 
-      SQR(vel3L));
-    
-    /* Copy local copies back to grid functions */
-    ene[index] = eneL;
-    mass[index] = massL;
-    mom1[index] = mom1L;
-    mom2[index] = mom2L;
-    mom3[index] = mom3L;
-    vol[index] = volL;
-  }
-  CCTK_ENDLOOP3(hydro_prim2con);
-}
-
-extern "C" void hydro_prim2con(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering hydro_prim2con_Body");
-  }
-  
-  if (cctk_iteration % hydro_prim2con_calc_every != hydro_prim2con_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_hydro::ene_group",
-    "ML_hydro::eps_group",
-    "ML_hydro::mass_group",
-    "ML_hydro::mom_group",
-    "ML_hydro::rho_group",
-    "ML_hydro::vel_group",
-    "ML_hydro::vol_group"};
-  GenericFD_AssertGroupStorage(cctkGH, "hydro_prim2con", 7, groups);
-  
-  
-  GenericFD_LoopOverEverything(cctkGH, hydro_prim2con_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving hydro_prim2con_Body");
-  }
-}
diff --git a/ML_hydro/src/hydro_soundWave.cc b/ML_hydro/src/hydro_soundWave.cc
deleted file mode 100644
index 64f5d15..0000000
--- a/ML_hydro/src/hydro_soundWave.cc
+++ /dev/null
@@ -1,144 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-static void hydro_soundWave_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o2dx = 0.5*INV(dx);
-  CCTK_REAL const p1o2dy = 0.5*INV(dy);
-  CCTK_REAL const p1o2dz = 0.5*INV(dz);
-  CCTK_REAL const p1o4dxdy = 0.25*INV(dx*dy);
-  CCTK_REAL const p1o4dxdz = 0.25*INV(dx*dz);
-  CCTK_REAL const p1o4dydz = 0.25*INV(dy*dz);
-  CCTK_REAL const p1odx2 = INV(SQR(dx));
-  CCTK_REAL const p1ody2 = INV(SQR(dy));
-  CCTK_REAL const p1odz2 = INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(hydro_soundWave,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    CCTK_REAL xL = x[index];
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL rhoL = 1.;
-    
-    CCTK_REAL vel1L = sin(2*xL*Pi*INV(ToReal(L)))*ToReal(A);
-    
-    CCTK_REAL vel2L = sin(2*xL*Pi*INV(ToReal(L)))*ToReal(A);
-    
-    CCTK_REAL vel3L = sin(2*xL*Pi*INV(ToReal(L)))*ToReal(A);
-    
-    CCTK_REAL epsL = 1.;
-    
-    /* Copy local copies back to grid functions */
-    eps[index] = epsL;
-    rho[index] = rhoL;
-    vel1[index] = vel1L;
-    vel2[index] = vel2L;
-    vel3[index] = vel3L;
-  }
-  CCTK_ENDLOOP3(hydro_soundWave);
-}
-
-extern "C" void hydro_soundWave(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering hydro_soundWave_Body");
-  }
-  
-  if (cctk_iteration % hydro_soundWave_calc_every != hydro_soundWave_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_hydro::eps_group",
-    "grid::coordinates",
-    "ML_hydro::rho_group",
-    "ML_hydro::vel_group"};
-  GenericFD_AssertGroupStorage(cctkGH, "hydro_soundWave", 4, groups);
-  
-  
-  GenericFD_LoopOverEverything(cctkGH, hydro_soundWave_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving hydro_soundWave_Body");
-  }
-}
diff --git a/ML_hydro/src/hydro_vacuum.cc b/ML_hydro/src/hydro_vacuum.cc
deleted file mode 100644
index 5878b58..0000000
--- a/ML_hydro/src/hydro_vacuum.cc
+++ /dev/null
@@ -1,142 +0,0 @@
-/*  File produced by Kranc */
-
-#define KRANC_C
-
-#include <assert.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include "cctk.h"
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-#include "Differencing.h"
-#include "cctk_Loop.h"
-#include "loopcontrol.h"
-
-/* Define macros used in calculations */
-#define INITVALUE (42)
-#define QAD(x) (SQR(SQR(x)))
-#define INV(x) ((1.0) / (x))
-#define SQR(x) ((x) * (x))
-#define CUB(x) ((x) * (x) * (x))
-
-static void hydro_vacuum_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const imin[3], int const imax[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  /* Include user-supplied include files */
-  
-  /* Initialise finite differencing variables */
-  ptrdiff_t const di = 1;
-  ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
-  ptrdiff_t const cdi = sizeof(CCTK_REAL) * di;
-  ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj;
-  ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk;
-  CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0));
-  CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1));
-  CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2));
-  CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME);
-  CCTK_REAL const t = ToReal(cctk_time);
-  CCTK_REAL const dxi = INV(dx);
-  CCTK_REAL const dyi = INV(dy);
-  CCTK_REAL const dzi = INV(dz);
-  CCTK_REAL const khalf = 0.5;
-  CCTK_REAL const kthird = 1/3.0;
-  CCTK_REAL const ktwothird = 2.0/3.0;
-  CCTK_REAL const kfourthird = 4.0/3.0;
-  CCTK_REAL const keightthird = 8.0/3.0;
-  CCTK_REAL const hdxi = 0.5 * dxi;
-  CCTK_REAL const hdyi = 0.5 * dyi;
-  CCTK_REAL const hdzi = 0.5 * dzi;
-  
-  /* Initialize predefined quantities */
-  CCTK_REAL const p1o2dx = 0.5*INV(dx);
-  CCTK_REAL const p1o2dy = 0.5*INV(dy);
-  CCTK_REAL const p1o2dz = 0.5*INV(dz);
-  CCTK_REAL const p1o4dxdy = 0.25*INV(dx*dy);
-  CCTK_REAL const p1o4dxdz = 0.25*INV(dx*dz);
-  CCTK_REAL const p1o4dydz = 0.25*INV(dy*dz);
-  CCTK_REAL const p1odx2 = INV(SQR(dx));
-  CCTK_REAL const p1ody2 = INV(SQR(dy));
-  CCTK_REAL const p1odz2 = INV(SQR(dz));
-  
-  /* Assign local copies of arrays functions */
-  
-  
-  
-  /* Calculate temporaries and arrays functions */
-  
-  /* Copy local copies back to grid functions */
-  
-  /* Loop over the grid points */
-  #pragma omp parallel
-  CCTK_LOOP3(hydro_vacuum,
-    i,j,k, imin[0],imin[1],imin[2], imax[0],imax[1],imax[2],
-    cctk_lsh[0],cctk_lsh[1],cctk_lsh[2])
-  {
-    ptrdiff_t const index = di*i + dj*j + dk*k;
-    
-    /* Assign local copies of grid functions */
-    
-    
-    
-    /* Include user supplied include files */
-    
-    /* Precompute derivatives */
-    
-    /* Calculate temporaries and grid functions */
-    CCTK_REAL rhoL = 0;
-    
-    CCTK_REAL vel1L = 0;
-    
-    CCTK_REAL vel2L = 0;
-    
-    CCTK_REAL vel3L = 0;
-    
-    CCTK_REAL epsL = 0;
-    
-    /* Copy local copies back to grid functions */
-    eps[index] = epsL;
-    rho[index] = rhoL;
-    vel1[index] = vel1L;
-    vel2[index] = vel2L;
-    vel3[index] = vel3L;
-  }
-  CCTK_ENDLOOP3(hydro_vacuum);
-}
-
-extern "C" void hydro_vacuum(CCTK_ARGUMENTS)
-{
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
-  
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Entering hydro_vacuum_Body");
-  }
-  
-  if (cctk_iteration % hydro_vacuum_calc_every != hydro_vacuum_calc_offset)
-  {
-    return;
-  }
-  
-  const char *const groups[] = {
-    "ML_hydro::eps_group",
-    "ML_hydro::rho_group",
-    "ML_hydro::vel_group"};
-  GenericFD_AssertGroupStorage(cctkGH, "hydro_vacuum", 3, groups);
-  
-  
-  GenericFD_LoopOverEverything(cctkGH, hydro_vacuum_Body);
-  
-  if (verbose > 1)
-  {
-    CCTK_VInfo(CCTK_THORNSTRING,"Leaving hydro_vacuum_Body");
-  }
-}
diff --git a/ML_hydro/src/make.code.defn b/ML_hydro/src/make.code.defn
deleted file mode 100644
index f7c60fa..0000000
--- a/ML_hydro/src/make.code.defn
+++ /dev/null
@@ -1,3 +0,0 @@
-# File produced by Kranc
-
-SRCS = Startup.cc RegisterSymmetries.cc RegisterMoL.cc hydro_vacuum.cc hydro_soundWave.cc hydro_prim2con.cc hydro_con2prim.cc hydro_RHS.cc Boundaries.cc