Task: Implement ModifiedSchwarzschildBL_exact.cc for EinsteinExact/ModifiedSchwarzschildBL thorn

thorn_name: EinsteinExact/ModifiedSchwarzschildBL
src_filename: ModifiedSchwarzschildBL_exact.cc
interface: # File produced by Kranc

implements: ModifiedSchwarzschildBL

inherits:   admbase Boundary GenericFD Grid



USES INCLUDE: loopcontrol.h
USES INCLUDE: Symmetry.h
USES INCLUDE: Boundary.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 MultiPatch_GetBbox(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN size, CCTK_INT OUT ARRAY bbox)
USES FUNCTION MultiPatch_GetBbox

CCTK_INT FUNCTION GetBoundarySpecification(CCTK_INT IN size, CCTK_INT OUT ARRAY nboundaryzones, CCTK_INT OUT ARRAY is_internal, CCTK_INT OUT ARRAY is_staggered, CCTK_INT OUT ARRAY shiftout)
USES FUNCTION GetBoundarySpecification

CCTK_INT FUNCTION MultiPatch_GetBoundarySpecification(CCTK_INT IN map, CCTK_INT IN size, CCTK_INT OUT ARRAY nboundaryzones, CCTK_INT OUT ARRAY is_internal, CCTK_INT OUT ARRAY is_staggered, CCTK_INT OUT ARRAY shiftout)
USES FUNCTION MultiPatch_GetBoundarySpecification

CCTK_INT FUNCTION SymmetryTableHandleForGrid(CCTK_POINTER_TO_CONST IN cctkGH)
USES FUNCTION SymmetryTableHandleForGrid

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 metric_exact type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorweight=0'
{
  gExact11,
  gExact12,
  gExact13,
  gExact22,
  gExact23,
  gExact33
} "metric_exact"

public:
CCTK_REAL curv_exact type=GF timelevels=1 tags='tensortypealias="DD_sym" tensorweight=0'
{
  kExact11,
  kExact12,
  kExact13,
  kExact22,
  kExact23,
  kExact33
} "curv_exact"

public:
CCTK_REAL lapse_exact type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
{
  alpExact
} "lapse_exact"

public:
CCTK_REAL dtlapse_exact type=GF timelevels=1 tags='tensortypealias="Scalar" tensorweight=0'
{
  dtalpExact
} "dtlapse_exact"

public:
CCTK_REAL shift_exact type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0'
{
  betaExact1,
  betaExact2,
  betaExact3
} "shift_exact"

public:
CCTK_REAL dtshift_exact type=GF timelevels=1 tags='tensortypealias="U" tensorweight=0'
{
  dtbetaExact1,
  dtbetaExact2,
  dtbetaExact3
} "dtshift_exact"

schedule: # File produced by Kranc

STORAGE: metric_exact[other_timelevels]

STORAGE: curv_exact[other_timelevels]

STORAGE: lapse_exact[other_timelevels]

STORAGE: dtlapse_exact[other_timelevels]

STORAGE: shift_exact[other_timelevels]

STORAGE: dtshift_exact[other_timelevels]
schedule ModifiedSchwarzschildBL_Startup at STARTUP
{
  LANG: C
  OPTIONS: meta
} "create banner"

schedule ModifiedSchwarzschildBL_RegisterSymmetries in SymmetryRegister
{
  LANG: C
  OPTIONS: meta
} "register symmetries"

if (CCTK_EQUALS(initial_data, "ModifiedSchwarzschildBL"))
{
  schedule ModifiedSchwarzschildBL_initial in ADMBase_InitialData
  {
    LANG: C
    READS: grid::x(Everywhere)
    READS: grid::y(Everywhere)
    READS: grid::z(Everywhere)
    WRITES: admbase::alp(Everywhere)
    WRITES: admbase::betax(Everywhere)
    WRITES: admbase::betay(Everywhere)
    WRITES: admbase::betaz(Everywhere)
    WRITES: admbase::dtalp(Everywhere)
    WRITES: admbase::dtbetax(Everywhere)
    WRITES: admbase::dtbetay(Everywhere)
    WRITES: admbase::dtbetaz(Everywhere)
    WRITES: admbase::gxx(Everywhere)
    WRITES: admbase::gxy(Everywhere)
    WRITES: admbase::gxz(Everywhere)
    WRITES: admbase::gyy(Everywhere)
    WRITES: admbase::gyz(Everywhere)
    WRITES: admbase::gzz(Everywhere)
    WRITES: admbase::kxx(Everywhere)
    WRITES: admbase::kxy(Everywhere)
    WRITES: admbase::kxz(Everywhere)
    WRITES: admbase::kyy(Everywhere)
    WRITES: admbase::kyz(Everywhere)
    WRITES: admbase::kzz(Everywhere)
  } "ModifiedSchwarzschildBL_initial"
}

if (CCTK_EQUALS(evolution_method, "ModifiedSchwarzschildBL"))
{
  schedule ModifiedSchwarzschildBL_always at CCTK_PRESTEP
  {
    LANG: C
    READS: grid::x(Everywhere)
    READS: grid::y(Everywhere)
    READS: grid::z(Everywhere)
    WRITES: admbase::alp(Everywhere)
    WRITES: admbase::betax(Everywhere)
    WRITES: admbase::betay(Everywhere)
    WRITES: admbase::betaz(Everywhere)
    WRITES: admbase::dtalp(Everywhere)
    WRITES: admbase::dtbetax(Everywhere)
    WRITES: admbase::dtbetay(Everywhere)
    WRITES: admbase::dtbetaz(Everywhere)
    WRITES: admbase::gxx(Everywhere)
    WRITES: admbase::gxy(Everywhere)
    WRITES: admbase::gxz(Everywhere)
    WRITES: admbase::gyy(Everywhere)
    WRITES: admbase::gyz(Everywhere)
    WRITES: admbase::gzz(Everywhere)
    WRITES: admbase::kxx(Everywhere)
    WRITES: admbase::kxy(Everywhere)
    WRITES: admbase::kxz(Everywhere)
    WRITES: admbase::kyy(Everywhere)
    WRITES: admbase::kyz(Everywhere)
    WRITES: admbase::kzz(Everywhere)
  } "ModifiedSchwarzschildBL_always"
}

if (CCTK_EQUALS(exact_method, "ModifiedSchwarzschildBL"))
{
  schedule ModifiedSchwarzschildBL_exact at CCTK_ANALYSIS
  {
    LANG: C
    READS: admbase::gxx(Everywhere)
    READS: admbase::gxy(Everywhere)
    READS: admbase::gxz(Everywhere)
    READS: admbase::gyy(Everywhere)
    READS: admbase::gyz(Everywhere)
    READS: admbase::gzz(Everywhere)
    READS: grid::x(Everywhere)
    READS: grid::y(Everywhere)
    READS: grid::z(Everywhere)
    WRITES: ModifiedSchwarzschildBL::alpExact(Everywhere)
    WRITES: ModifiedSchwarzschildBL::betaExact1(Everywhere)
    WRITES: ModifiedSchwarzschildBL::betaExact2(Everywhere)
    WRITES: ModifiedSchwarzschildBL::betaExact3(Everywhere)
    WRITES: ModifiedSchwarzschildBL::dtalpExact(Everywhere)
    WRITES: ModifiedSchwarzschildBL::dtbetaExact1(Everywhere)
    WRITES: ModifiedSchwarzschildBL::dtbetaExact2(Everywhere)
    WRITES: ModifiedSchwarzschildBL::dtbetaExact3(Everywhere)
    WRITES: ModifiedSchwarzschildBL::gExact11(Everywhere)
    WRITES: ModifiedSchwarzschildBL::gExact12(Everywhere)
    WRITES: ModifiedSchwarzschildBL::gExact13(Everywhere)
    WRITES: ModifiedSchwarzschildBL::gExact22(Everywhere)
    WRITES: ModifiedSchwarzschildBL::gExact23(Everywhere)
    WRITES: ModifiedSchwarzschildBL::gExact33(Everywhere)
    WRITES: ModifiedSchwarzschildBL::kExact11(Everywhere)
    WRITES: ModifiedSchwarzschildBL::kExact12(Everywhere)
    WRITES: ModifiedSchwarzschildBL::kExact13(Everywhere)
    WRITES: ModifiedSchwarzschildBL::kExact22(Everywhere)
    WRITES: ModifiedSchwarzschildBL::kExact23(Everywhere)
    WRITES: ModifiedSchwarzschildBL::kExact33(Everywhere)
  } "ModifiedSchwarzschildBL_exact"
}

schedule ModifiedSchwarzschildBL_SelectBoundConds in MoL_PostStep
{
  LANG: C
  OPTIONS: level
} "select boundary conditions"

schedule ModifiedSchwarzschildBL_CheckBoundaries at BASEGRID
{
  LANG: C
  OPTIONS: meta
} "check boundaries treatment"

schedule ModifiedSchwarzschildBL_RegisterVars in MoL_Register
{
  LANG: C
  OPTIONS: meta
} "Register Variables for MoL"

schedule ModifiedSchwarzschildBL_ParamCheck at PARAMCHECK
{
  LANG: C
  OPTIONS: global
} "Check parameter consistency"
schedule group ApplyBCs as ModifiedSchwarzschildBL_ApplyBCs in MoL_PostStep after ModifiedSchwarzschildBL_SelectBoundConds
{
} "Apply boundary conditions controlled by thorn Boundary"

param: # File produced by Kranc


shares: ADMBase


EXTENDS CCTK_KEYWORD initial_data "initial_data"
{
  "ModifiedSchwarzschildBL" :: ""
} 


EXTENDS CCTK_KEYWORD initial_lapse "initial_lapse"
{
  "ModifiedSchwarzschildBL" :: ""
} 


EXTENDS CCTK_KEYWORD initial_shift "initial_shift"
{
  "ModifiedSchwarzschildBL" :: ""
} 


EXTENDS CCTK_KEYWORD initial_dtlapse "initial_dtlapse"
{
  "ModifiedSchwarzschildBL" :: ""
} 


EXTENDS CCTK_KEYWORD initial_dtshift "initial_dtshift"
{
  "ModifiedSchwarzschildBL" :: ""
} 


EXTENDS CCTK_KEYWORD evolution_method "evolution_method"
{
  "ModifiedSchwarzschildBL" :: ""
} 



shares: GenericFD

USES CCTK_INT assume_stress_energy_state


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 other_timelevels "Number of active timelevels for non-evolved grid functions" STEERABLE=RECOVER
{
  0:3 :: ""
} 1

restricted:
CCTK_REAL timeoffset "timeoffset"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL positionx "positionx"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL positiony "positiony"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL positionz "positionz"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL theta "theta"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL phi "phi"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL psi "psi"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL lapsefactor "lapsefactor"
{
  *:* :: ""
} 1

restricted:
CCTK_REAL boostx "boostx"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL boosty "boosty"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL boostz "boostz"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL shiftaddx "shiftaddx"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL shiftaddy "shiftaddy"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL shiftaddz "shiftaddz"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL M "M"
{
  *:* :: ""
} 0

restricted:
CCTK_REAL epsilon "epsilon"
{
  *:* :: ""
} 0

restricted:
CCTK_INT tile_size "Loop tile size"
{
  *:* :: ""
} -1

private:
CCTK_KEYWORD exact_method "exact_method"
{
  "none" :: ""
  "ModifiedSchwarzschildBL" :: ""
} "none"

restricted:
CCTK_INT ModifiedSchwarzschildBL_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 ModifiedSchwarzschildBL_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 ModifiedSchwarzschildBL_initial_calc_every "ModifiedSchwarzschildBL_initial_calc_every" STEERABLE=ALWAYS
{
  *:* :: ""
} 1

restricted:
CCTK_INT ModifiedSchwarzschildBL_always_calc_every "ModifiedSchwarzschildBL_always_calc_every" STEERABLE=ALWAYS
{
  *:* :: ""
} 1

restricted:
CCTK_INT ModifiedSchwarzschildBL_exact_calc_every "ModifiedSchwarzschildBL_exact_calc_every" STEERABLE=ALWAYS
{
  *:* :: ""
} 1

restricted:
CCTK_INT ModifiedSchwarzschildBL_initial_calc_offset "ModifiedSchwarzschildBL_initial_calc_offset" STEERABLE=ALWAYS
{
  *:* :: ""
} 0

restricted:
CCTK_INT ModifiedSchwarzschildBL_always_calc_offset "ModifiedSchwarzschildBL_always_calc_offset" STEERABLE=ALWAYS
{
  *:* :: ""
} 0

restricted:
CCTK_INT ModifiedSchwarzschildBL_exact_calc_offset "ModifiedSchwarzschildBL_exact_calc_offset" STEERABLE=ALWAYS
{
  *:* :: ""
} 0


configuration: # File produced by Kranc

REQUIRES GenericFD
OPTIONAL LoopControl
{
}

context: ModifiedSchwarzschildBL_error.cc:
```
/*  File produced by Kranc */

#define KRANC_C

#include <algorithm>
#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 "Kranc.hh"
#include "Differencing.h"
#include "loopcontrol.h"

/* Define macros used in calculations */
#define INITVALUE (42)
#define INV(x) ((CCTK_REAL)1.0 / (x))
#define SQR(x) ((x) * (x))
#define CUB(x) ((x) * SQR(x))
#define QAD(x) (SQR(SQR(x)))

namespace ModifiedSchwarzschildBL {


static void ModifiedSchwarzschildBL_error_Body(const cGH* restrict const cctkGH, const int dir, const int face, const CCTK_REAL normal[3], const CCTK_REAL tangentA[3], const CCTK_REAL tangentB[3], const int imin[3], const int imax[3], const int n_subblock_gfs, CCTK_REAL* restrict const subblock_gfs[])
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  /* Include user-supplied include files */
  /* Initialise finite differencing variables */
  const ptrdiff_t di CCTK_ATTRIBUTE_UNUSED = 1;
  const ptrdiff_t dj CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
  const ptrdiff_t dk CCTK_ATTRIBUTE_UNUSED = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
  const ptrdiff_t cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;
  const ptrdiff_t cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;
  const ptrdiff_t cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;
  const ptrdiff_t cctkLbnd1 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[0];
  const ptrdiff_t cctkLbnd2 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[1];
  const ptrdiff_t cctkLbnd3 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[2];
  const CCTK_REAL t CCTK_ATTRIBUTE_UNUSED = ToReal(cctk_time);
  const CCTK_REAL cctkOriginSpace1 CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_ORIGIN_SPACE(0));
  const CCTK_REAL cctkOriginSpace2 CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_ORIGIN_SPACE(1));
  const CCTK_REAL cctkOriginSpace3 CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_ORIGIN_SPACE(2));
  const CCTK_REAL dt CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_TIME);
  const CCTK_REAL dx CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(0));
  const CCTK_REAL dy CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(1));
  const CCTK_REAL dz CCTK_ATTRIBUTE_UNUSED = ToReal(CCTK_DELTA_SPACE(2));
  const CCTK_REAL dxi CCTK_ATTRIBUTE_UNUSED = INV(dx);
  const CCTK_REAL dyi CCTK_ATTRIBUTE_UNUSED = INV(dy);
  const CCTK_REAL dzi CCTK_ATTRIBUTE_UNUSED = INV(dz);
  const CCTK_REAL khalf CCTK_ATTRIBUTE_UNUSED = 0.5;
  const CCTK_REAL kthird CCTK_ATTRIBUTE_UNUSED = 
    0.333333333333333333333333333333;
  const CCTK_REAL ktwothird CCTK_ATTRIBUTE_UNUSED = 
    0.666666666666666666666666666667;
  const CCTK_REAL kfourthird CCTK_ATTRIBUTE_UNUSED = 
    1.33333333333333333333333333333;
  const CCTK_REAL hdxi CCTK_ATTRIBUTE_UNUSED = 0.5*dxi;
  const CCTK_REAL hdyi CCTK_ATTRIBUTE_UNUSED = 0.5*dyi;
  const CCTK_REAL hdzi CCTK_ATTRIBUTE_UNUSED = 0.5*dzi;
  /* Initialize predefined quantities */
  /* Assign local copies of arrays functions */
  
  
  /* Calculate temporaries and arrays functions */
  /* Copy local copies back to grid functions */
  /* Loop over the grid points */
  const int imin0=imin[0];
  const int imin1=imin[1];
  const int imin2=imin[2];
  const int imax0=imax[0];
  const int imax1=imax[1];
  const int imax2=imax[2];
  #pragma omp parallel
  CCTK_LOOP3(ModifiedSchwarzschildBL_error,
    i,j,k, imin0,imin1,imin2, imax0,imax1,imax2,
    cctk_ash[0],cctk_ash[1],cctk_ash[2])
  {
    const ptrdiff_t index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;
    /* Assign local copies of grid functions */
    
    CCTK_REAL alpL CCTK_ATTRIBUTE_UNUSED = alp[index];
    CCTK_REAL betaxL CCTK_ATTRIBUTE_UNUSED = betax[index];
    CCTK_REAL betayL CCTK_ATTRIBUTE_UNUSED = betay[index];
    CCTK_REAL betazL CCTK_ATTRIBUTE_UNUSED = betaz[index];
    CCTK_REAL dtalpL CCTK_ATTRIBUTE_UNUSED = dtalp[index];
    CCTK_REAL dtbetaxL CCTK_ATTRIBUTE_UNUSED = dtbetax[index];
    CCTK_REAL dtbetayL CCTK_ATTRIBUTE_UNUSED = dtbetay[index];
    CCTK_REAL dtbetazL CCTK_ATTRIBUTE_UNUSED = dtbetaz[index];
    CCTK_REAL gxxL CCTK_ATTRIBUTE_UNUSED = gxx[index];
    CCTK_REAL gxyL CCTK_ATTRIBUTE_UNUSED = gxy[index];
    CCTK_REAL gxzL CCTK_ATTRIBUTE_UNUSED = gxz[index];
    CCTK_REAL gyyL CCTK_ATTRIBUTE_UNUSED = gyy[index];
    CCTK_REAL gyzL CCTK_ATTRIBUTE_UNUSED = gyz[index];
    CCTK_REAL gzzL CCTK_ATTRIBUTE_UNUSED = gzz[index];
    CCTK_REAL kxxL CCTK_ATTRIBUTE_UNUSED = kxx[index];
    CCTK_REAL kxyL CCTK_ATTRIBUTE_UNUSED = kxy[index];
    CCTK_REAL kxzL CCTK_ATTRIBUTE_UNUSED = kxz[index];
    CCTK_REAL kyyL CCTK_ATTRIBUTE_UNUSED = kyy[index];
    CCTK_REAL kyzL CCTK_ATTRIBUTE_UNUSED = kyz[index];
    CCTK_REAL kzzL CCTK_ATTRIBUTE_UNUSED = kzz[index];
    CCTK_REAL xL CCTK_ATTRIBUTE_UNUSED = x[index];
    CCTK_REAL yL CCTK_ATTRIBUTE_UNUSED = y[index];
    CCTK_REAL zL CCTK_ATTRIBUTE_UNUSED = z[index];
    
    /* Include user supplied include files */
    /* Precompute derivatives */
    /* Calculate temporaries and grid functions */
    CCTK_REAL xform1L00 CCTK_ATTRIBUTE_UNUSED = 1;
    
    CCTK_REAL xform1L01 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L02 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L03 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L10 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp0 CCTK_ATTRIBUTE_UNUSED = cos(ToReal(phi));
    
    CCTK_REAL csetemp1 CCTK_ATTRIBUTE_UNUSED = cos(ToReal(psi));
    
    CCTK_REAL csetemp2 CCTK_ATTRIBUTE_UNUSED = cos(ToReal(theta));
    
    CCTK_REAL csetemp3 CCTK_ATTRIBUTE_UNUSED = sin(ToReal(phi));
    
    CCTK_REAL csetemp4 CCTK_ATTRIBUTE_UNUSED = sin(ToReal(psi));
    
    CCTK_REAL xform1L11 CCTK_ATTRIBUTE_UNUSED = csetemp0*csetemp1 - 
      csetemp2*csetemp3*csetemp4;
    
    CCTK_REAL xform1L12 CCTK_ATTRIBUTE_UNUSED = csetemp1*csetemp3 + 
      csetemp0*csetemp2*csetemp4;
    
    CCTK_REAL csetemp5 CCTK_ATTRIBUTE_UNUSED = sin(ToReal(theta));
    
    CCTK_REAL xform1L13 CCTK_ATTRIBUTE_UNUSED = csetemp4*csetemp5;
    
    CCTK_REAL xform1L20 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L21 CCTK_ATTRIBUTE_UNUSED = 
      -(csetemp1*csetemp2*csetemp3) - csetemp0*csetemp4;
    
    CCTK_REAL xform1L22 CCTK_ATTRIBUTE_UNUSED = csetemp0*csetemp1*csetemp2 
      - csetemp3*csetemp4;
    
    CCTK_REAL xform1L23 CCTK_ATTRIBUTE_UNUSED = csetemp1*csetemp5;
    
    CCTK_REAL xform1L30 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L31 CCTK_ATTRIBUTE_UNUSED = csetemp3*csetemp5;
    
    CCTK_REAL xform1L32 CCTK_ATTRIBUTE_UNUSED = -(csetemp0*csetemp5);
    
    CCTK_REAL xform1L33 CCTK_ATTRIBUTE_UNUSED = csetemp2;
    
    CCTK_REAL csetemp6 CCTK_ATTRIBUTE_UNUSED = SQR(ToReal(boostx));
    
    CCTK_REAL csetemp7 CCTK_ATTRIBUTE_UNUSED = SQR(ToReal(boosty));
    
    CCTK_REAL csetemp8 CCTK_ATTRIBUTE_UNUSED = SQR(ToReal(boostz));
    
    CCTK_REAL csetemp9 CCTK_ATTRIBUTE_UNUSED = INV(ToReal(lapsefactor));
    
    CCTK_REAL xform2L00 CCTK_ATTRIBUTE_UNUSED = csetemp9*INV((-1 + 
      csetemp6 + csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*(1 - csetemp6 - csetemp7 - csetemp8 + sqrt(1 - csetemp6 - 
      csetemp7 - csetemp8))*(-1 + ToReal(boostx)*ToReal(shiftaddx) + 
      ToReal(boosty)*ToReal(shiftaddy) + ToReal(boostz)*ToReal(shiftaddz));
    
    CCTK_REAL xform2L01 CCTK_ATTRIBUTE_UNUSED = csetemp9*INV((-1 + 
      csetemp6 + csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*(1 - csetemp6 - csetemp7 - csetemp8 + sqrt(1 - csetemp6 - 
      csetemp7 - csetemp8))*ToReal(boostx);
    
    CCTK_REAL xform2L02 CCTK_ATTRIBUTE_UNUSED = csetemp9*INV((-1 + 
      csetemp6 + csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*(1 - csetemp6 - csetemp7 - csetemp8 + sqrt(1 - csetemp6 - 
      csetemp7 - csetemp8))*ToReal(boosty);
    
    CCTK_REAL xform2L03 CCTK_ATTRIBUTE_UNUSED = csetemp9*INV((-1 + 
      csetemp6 + csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*(1 - csetemp6 - csetemp7 - csetemp8 + sqrt(1 - csetemp6 - 
      csetemp7 - csetemp8))*ToReal(boostz);
    
    CCTK_REAL xform2L10 CCTK_ATTRIBUTE_UNUSED = INV((-1 + csetemp6 + 
      csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*((csetemp6 + (-1 + csetemp7 + csetemp8)*(1 + sqrt(1 - 
      csetemp6 - csetemp7 - csetemp8)))*ToReal(shiftaddx) - 
      ToReal(boostx)*(-1 + csetemp6 + csetemp7 + csetemp8 + sqrt(1 - csetemp6 
      - csetemp7 - csetemp8)*(-1 + ToReal(boosty)*ToReal(shiftaddy) + 
      ToReal(boostz)*ToReal(shiftaddz))));
    
    CCTK_REAL xform2L11 CCTK_ATTRIBUTE_UNUSED = INV((-1 + csetemp6 + 
      csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*(csetemp6 + (-1 + csetemp7 + csetemp8)*(1 + sqrt(1 - 
      csetemp6 - csetemp7 - csetemp8)));
    
    CCTK_REAL xform2L12 CCTK_ATTRIBUTE_UNUSED = -(INV(-1 + csetemp6 + 
      csetemp7 + csetemp8 - sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8))*ToReal(boostx)*ToReal(boosty));
    
    CCTK_REAL xform2L13 CCTK_ATTRIBUTE_UNUSED = -(INV(-1 + csetemp6 + 
      csetemp7 + csetemp8 - sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8))*ToReal(boostx)*ToReal(boostz));
    
    CCTK_REAL xform2L20 CCTK_ATTRIBUTE_UNUSED = INV((-1 + csetemp6 + 
      csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*((csetemp7 + (-1 + csetemp6 + csetemp8)*(1 + sqrt(1 - 
      csetemp6 - csetemp7 - csetemp8)))*ToReal(shiftaddy) - 
      ToReal(boosty)*(-1 + csetemp6 + csetemp7 + csetemp8 + sqrt(1 - csetemp6 
      - csetemp7 - csetemp8)*(-1 + ToReal(boostx)*ToReal(shiftaddx) + 
      ToReal(boostz)*ToReal(shiftaddz))));
    
    CCTK_REAL xform2L21 CCTK_ATTRIBUTE_UNUSED = -(INV(-1 + csetemp6 + 
      csetemp7 + csetemp8 - sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8))*ToReal(boostx)*ToReal(boosty));
    
    CCTK_REAL xform2L22 CCTK_ATTRIBUTE_UNUSED = INV((-1 + csetemp6 + 
      csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*(csetemp7 + (-1 + csetemp6 + csetemp8)*(1 + sqrt(1 - 
      csetemp6 - csetemp7 - csetemp8)));
    
    CCTK_REAL xform2L23 CCTK_ATTRIBUTE_UNUSED = -(INV(-1 + csetemp6 + 
      csetemp7 + csetemp8 - sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8))*ToReal(boosty)*ToReal(boostz));
    
    CCTK_REAL xform2L30 CCTK_ATTRIBUTE_UNUSED = INV((-1 + csetemp6 + 
      csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*(-(ToReal(boostz)*(-1 + csetemp6 + csetemp7 + csetemp8 + 
      sqrt(1 - csetemp6 - csetemp7 - csetemp8)*(-1 + 
      ToReal(boostx)*ToReal(shiftaddx) + ToReal(boosty)*ToReal(shiftaddy)))) 
      + (-1 + csetemp6 + csetemp7 + csetemp8 + (-1 + csetemp6 + 
      csetemp7)*sqrt(1 - csetemp6 - csetemp7 - csetemp8))*ToReal(shiftaddz));
    
    CCTK_REAL xform2L31 CCTK_ATTRIBUTE_UNUSED = -(INV(-1 + csetemp6 + 
      csetemp7 + csetemp8 - sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8))*ToReal(boostx)*ToReal(boostz));
    
    CCTK_REAL xform2L32 CCTK_ATTRIBUTE_UNUSED = -(INV(-1 + csetemp6 + 
      csetemp7 + csetemp8 - sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8))*ToReal(boosty)*ToReal(boostz));
    
    CCTK_REAL xform2L33 CCTK_ATTRIBUTE_UNUSED = INV((-1 + csetemp6 + 
      csetemp7 + csetemp8)*(1 + sqrt(1 - csetemp6 - csetemp7 - 
      csetemp8)))*(-1 + csetemp6 + csetemp7 + csetemp8 + (-1 + csetemp6 + 
      csetemp7)*sqrt(1 - csetemp6 - csetemp7 - csetemp8));
    
    CCTK_REAL xformL00 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L00 + 
      xform1L01*xform2L10 + xform1L02*xform2L20 + xform1L03*xform2L30;
    
    CCTK_REAL xformL01 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L01 + 
      xform1L01*xform2L11 + xform1L02*xform2L21 + xform1L03*xform2L31;
    
    CCTK_REAL xformL02 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L02 + 
      xform1L01*xform2L12 + xform1L02*xform2L22 + xform1L03*xform2L32;
    
    CCTK_REAL xformL03 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L03 + 
      xform1L01*xform2L13 + xform1L02*xform2L23 + xform1L03*xform2L33;
    
    CCTK_REAL xformL10 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L00 + 
      xform1L11*xform2L10 + xform1L12*xform2L20 + xform1L13*xform2L30;
    
    CCTK_REAL xformL11 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L01 + 
      xform1L11*xform2L11 + xform1L12*xform2L21 + xform1L13*xform2L31;
    
    CCTK_REAL xformL12 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L02 + 
      xform1L11*xform2L12 + xform1L12*xform2L22 + xform1L13*xform2L32;
    
    CCTK_REAL xformL13 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L03 + 
      xform1L11*xform2L13 + xform1L12*xform2L23 + xform1L13*xform2L33;
    
    CCTK_REAL xformL20 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L00 + 
      xform1L21*xform2L10 + xform1L22*xform2L20 + xform1L23*xform2L30;
    
    CCTK_REAL xformL21 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L01 + 
      xform1L21*xform2L11 + xform1L22*xform2L21 + xform1L23*xform2L31;
    
    CCTK_REAL xformL22 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L02 + 
      xform1L21*xform2L12 + xform1L22*xform2L22 + xform1L23*xform2L32;
    
    CCTK_REAL xformL23 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L03 + 
      xform1L21*xform2L13 + xform1L22*xform2L23 + xform1L23*xform2L33;
    
    CCTK_REAL xformL30 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L00 + 
      xform1L31*xform2L10 + xform1L32*xform2L20 + xform1L33*xform2L30;
    
    CCTK_REAL xformL31 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L01 + 
      xform1L31*xform2L11 + xform1L32*xform2L21 + xform1L33*xform2L31;
    
    CCTK_REAL xformL32 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L02 + 
      xform1L31*xform2L12 + xform1L32*xform2L22 + xform1L33*xform2L32;
    
    CCTK_REAL xformL33 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L03 + 
      xform1L31*xform2L13 + xform1L32*xform2L23 + xform1L33*xform2L33;
    
    CCTK_REAL xx0 CCTK_ATTRIBUTE_UNUSED = t - ToReal(timeoffset);
    
    CCTK_REAL xx1 CCTK_ATTRIBUTE_UNUSED = xL - ToReal(positionx);
    
    CCTK_REAL xx2 CCTK_ATTRIBUTE_UNUSED = yL - ToReal(positiony);
    
    CCTK_REAL xx3 CCTK_ATTRIBUTE_UNUSED = zL - ToReal(positionz);
    
    CCTK_REAL txx1 CCTK_ATTRIBUTE_UNUSED = xformL10*xx0 + xformL11*xx1 + 
      xformL12*xx2 + xformL13*xx3;
    
    CCTK_REAL txx2 CCTK_ATTRIBUTE_UNUSED = xformL20*xx0 + xformL21*xx1 + 
      xformL22*xx2 + xformL23*xx3;
    
    CCTK_REAL txx3 CCTK_ATTRIBUTE_UNUSED = xformL30*xx0 + xformL31*xx1 + 
      xformL32*xx2 + xformL33*xx3;
    
    CCTK_REAL X CCTK_ATTRIBUTE_UNUSED = txx1;
    
    CCTK_REAL Y CCTK_ATTRIBUTE_UNUSED = txx2;
    
    CCTK_REAL Z CCTK_ATTRIBUTE_UNUSED = txx3;
    
    CCTK_REAL rXYZ CCTK_ATTRIBUTE_UNUSED = sqrt(SQR(X) + SQR(Y) + SQR(Z));
    
    CCTK_REAL tg400 CCTK_ATTRIBUTE_UNUSED = -1;
    
    CCTK_REAL tg401 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg402 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg403 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp10 CCTK_ATTRIBUTE_UNUSED = 0.5*ToReal(M);
    
    CCTK_REAL csetemp11 CCTK_ATTRIBUTE_UNUSED = INV(rXYZ);
    
    CCTK_REAL csetemp12 CCTK_ATTRIBUTE_UNUSED = INV(ToReal(M));
    
    CCTK_REAL csetemp13 CCTK_ATTRIBUTE_UNUSED = SQR(ToReal(M));
    
    CCTK_REAL csetemp14 CCTK_ATTRIBUTE_UNUSED = INV(SQR(Pi));
    
    CCTK_REAL tg411 CCTK_ATTRIBUTE_UNUSED = 0.00390625*QAD(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*SQR(fmin(csetemp10,rXYZ)))));
    
    CCTK_REAL tg412 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg413 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg422 CCTK_ATTRIBUTE_UNUSED = 0.00390625*QAD(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*SQR(fmin(csetemp10,rXYZ)))));
    
    CCTK_REAL tg423 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg433 CCTK_ATTRIBUTE_UNUSED = 0.00390625*QAD(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*SQR(fmin(csetemp10,rXYZ)))));
    
    CCTK_REAL tdg4000 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4001 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4002 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4003 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4010 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4011 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4012 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4013 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4020 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4021 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4022 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4023 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4030 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4031 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4032 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4033 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4110 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp15 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,-6);
    
    CCTK_REAL csetemp16 CCTK_ATTRIBUTE_UNUSED = 2*rXYZ;
    
    CCTK_REAL csetemp17 CCTK_ATTRIBUTE_UNUSED = INV(QAD(ToReal(M)));
    
    CCTK_REAL csetemp18 CCTK_ATTRIBUTE_UNUSED = pow(Pi,-8);
    
    CCTK_REAL csetemp19 CCTK_ATTRIBUTE_UNUSED = SQR(Pi);
    
    CCTK_REAL csetemp20 CCTK_ATTRIBUTE_UNUSED = SQR(rXYZ);
    
    CCTK_REAL tdg4111 CCTK_ATTRIBUTE_UNUSED = IfThen(ToReal(M) <= 
      csetemp16,-0.25*csetemp15*X*CUB(csetemp16 + 
      ToReal(M))*ToReal(M),-0.25*csetemp15*csetemp17*csetemp18*X*CUB(csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) 
      + csetemp19*(-4*csetemp20 + 6*rXYZ*ToReal(M)))*(4*csetemp19*csetemp20 + 
      csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) - 
      2*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)*ToReal(M)));
    
    CCTK_REAL tdg4112 CCTK_ATTRIBUTE_UNUSED = IfThen(ToReal(M) <= 
      csetemp16,-0.25*csetemp15*Y*CUB(csetemp16 + 
      ToReal(M))*ToReal(M),-0.25*csetemp15*csetemp17*csetemp18*Y*CUB(csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) 
      + csetemp19*(-4*csetemp20 + 6*rXYZ*ToReal(M)))*(4*csetemp19*csetemp20 + 
      csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) - 
      2*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)*ToReal(M)));
    
    CCTK_REAL tdg4113 CCTK_ATTRIBUTE_UNUSED = IfThen(ToReal(M) <= 
      csetemp16,-0.25*csetemp15*Z*CUB(csetemp16 + 
      ToReal(M))*ToReal(M),-0.25*csetemp15*csetemp17*csetemp18*Z*CUB(csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) 
      + csetemp19*(-4*csetemp20 + 6*rXYZ*ToReal(M)))*(4*csetemp19*csetemp20 + 
      csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) - 
      2*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)*ToReal(M)));
    
    CCTK_REAL tdg4120 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4121 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4122 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4123 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4130 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4131 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4132 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4133 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4220 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4221 CCTK_ATTRIBUTE_UNUSED = IfThen(ToReal(M) <= 
      csetemp16,-0.25*csetemp15*X*CUB(csetemp16 + 
      ToReal(M))*ToReal(M),-0.25*csetemp15*csetemp17*csetemp18*X*CUB(csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) 
      + csetemp19*(-4*csetemp20 + 6*rXYZ*ToReal(M)))*(4*csetemp19*csetemp20 + 
      csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) - 
      2*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)*ToReal(M)));
    
    CCTK_REAL tdg4222 CCTK_ATTRIBUTE_UNUSED = IfThen(ToReal(M) <= 
      csetemp16,-0.25*csetemp15*Y*CUB(csetemp16 + 
      ToReal(M))*ToReal(M),-0.25*csetemp15*csetemp17*csetemp18*Y*CUB(csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) 
      + csetemp19*(-4*csetemp20 + 6*rXYZ*ToReal(M)))*(4*csetemp19*csetemp20 + 
      csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) - 
      2*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)*ToReal(M)));
    
    CCTK_REAL tdg4223 CCTK_ATTRIBUTE_UNUSED = IfThen(ToReal(M) <= 
      csetemp16,-0.25*csetemp15*Z*CUB(csetemp16 + 
      ToReal(M))*ToReal(M),-0.25*csetemp15*csetemp17*csetemp18*Z*CUB(csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) 
      + csetemp19*(-4*csetemp20 + 6*rXYZ*ToReal(M)))*(4*csetemp19*csetemp20 + 
      csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) - 
      2*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)*ToReal(M)));
    
    CCTK_REAL tdg4230 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4231 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4232 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4233 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4330 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4331 CCTK_ATTRIBUTE_UNUSED = IfThen(ToReal(M) <= 
      csetemp16,-0.25*csetemp15*X*CUB(csetemp16 + 
      ToReal(M))*ToReal(M),-0.25*csetemp15*csetemp17*csetemp18*X*CUB(csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) 
      + csetemp19*(-4*csetemp20 + 6*rXYZ*ToReal(M)))*(4*csetemp19*csetemp20 + 
      csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) - 
      2*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)*ToReal(M)));
    
    CCTK_REAL tdg4332 CCTK_ATTRIBUTE_UNUSED = IfThen(ToReal(M) <= 
      csetemp16,-0.25*csetemp15*Y*CUB(csetemp16 + 
      ToReal(M))*ToReal(M),-0.25*csetemp15*csetemp17*csetemp18*Y*CUB(csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) 
      + csetemp19*(-4*csetemp20 + 6*rXYZ*ToReal(M)))*(4*csetemp19*csetemp20 + 
      csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) - 
      2*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)*ToReal(M)));
    
    CCTK_REAL tdg4333 CCTK_ATTRIBUTE_UNUSED = IfThen(ToReal(M) <= 
      csetemp16,-0.25*csetemp15*Z*CUB(csetemp16 + 
      ToReal(M))*ToReal(M),-0.25*csetemp15*csetemp17*csetemp18*Z*CUB(csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) 
      + csetemp19*(-4*csetemp20 + 6*rXYZ*ToReal(M)))*(4*csetemp19*csetemp20 + 
      csetemp13*SQR(sin(2*csetemp12*Pi*rXYZ)) - 
      2*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)*ToReal(M)));
    
    CCTK_REAL g400 CCTK_ATTRIBUTE_UNUSED = 2*(tg423*xformL20*xformL30 + 
      xformL00*(tg401*xformL10 + tg402*xformL20 + tg403*xformL30) + 
      xformL10*(tg412*xformL20 + tg413*xformL30)) + tg400*SQR(xformL00) + 
      tg411*SQR(xformL10) + tg422*SQR(xformL20) + tg433*SQR(xformL30);
    
    CCTK_REAL csetemp21 CCTK_ATTRIBUTE_UNUSED = tg400*xformL01;
    
    CCTK_REAL csetemp22 CCTK_ATTRIBUTE_UNUSED = tg401*xformL11;
    
    CCTK_REAL csetemp23 CCTK_ATTRIBUTE_UNUSED = tg402*xformL21;
    
    CCTK_REAL csetemp24 CCTK_ATTRIBUTE_UNUSED = tg403*xformL31;
    
    CCTK_REAL csetemp25 CCTK_ATTRIBUTE_UNUSED = tg401*xformL01;
    
    CCTK_REAL csetemp26 CCTK_ATTRIBUTE_UNUSED = tg411*xformL11;
    
    CCTK_REAL csetemp27 CCTK_ATTRIBUTE_UNUSED = tg412*xformL21;
    
    CCTK_REAL csetemp28 CCTK_ATTRIBUTE_UNUSED = tg413*xformL31;
    
    CCTK_REAL csetemp29 CCTK_ATTRIBUTE_UNUSED = tg402*xformL01;
    
    CCTK_REAL csetemp30 CCTK_ATTRIBUTE_UNUSED = tg412*xformL11;
    
    CCTK_REAL csetemp31 CCTK_ATTRIBUTE_UNUSED = tg422*xformL21;
    
    CCTK_REAL csetemp32 CCTK_ATTRIBUTE_UNUSED = tg423*xformL31;
    
    CCTK_REAL csetemp33 CCTK_ATTRIBUTE_UNUSED = tg403*xformL01;
    
    CCTK_REAL csetemp34 CCTK_ATTRIBUTE_UNUSED = tg413*xformL11;
    
    CCTK_REAL csetemp35 CCTK_ATTRIBUTE_UNUSED = tg423*xformL21;
    
    CCTK_REAL csetemp36 CCTK_ATTRIBUTE_UNUSED = tg433*xformL31;
    
    CCTK_REAL g401 CCTK_ATTRIBUTE_UNUSED = (csetemp21 + csetemp22 + 
      csetemp23 + csetemp24)*xformL00 + (csetemp25 + csetemp26 + csetemp27 + 
      csetemp28)*xformL10 + (csetemp29 + csetemp30 + csetemp31 + 
      csetemp32)*xformL20 + (csetemp33 + csetemp34 + csetemp35 + 
      csetemp36)*xformL30;
    
    CCTK_REAL csetemp37 CCTK_ATTRIBUTE_UNUSED = tg400*xformL02;
    
    CCTK_REAL csetemp38 CCTK_ATTRIBUTE_UNUSED = tg401*xformL12;
    
    CCTK_REAL csetemp39 CCTK_ATTRIBUTE_UNUSED = tg402*xformL22;
    
    CCTK_REAL csetemp40 CCTK_ATTRIBUTE_UNUSED = tg403*xformL32;
    
    CCTK_REAL csetemp41 CCTK_ATTRIBUTE_UNUSED = tg401*xformL02;
    
    CCTK_REAL csetemp42 CCTK_ATTRIBUTE_UNUSED = tg411*xformL12;
    
    CCTK_REAL csetemp43 CCTK_ATTRIBUTE_UNUSED = tg412*xformL22;
    
    CCTK_REAL csetemp44 CCTK_ATTRIBUTE_UNUSED = tg413*xformL32;
    
    CCTK_REAL csetemp45 CCTK_ATTRIBUTE_UNUSED = tg402*xformL02;
    
    CCTK_REAL csetemp46 CCTK_ATTRIBUTE_UNUSED = tg412*xformL12;
    
    CCTK_REAL csetemp47 CCTK_ATTRIBUTE_UNUSED = tg422*xformL22;
    
    CCTK_REAL csetemp48 CCTK_ATTRIBUTE_UNUSED = tg423*xformL32;
    
    CCTK_REAL csetemp49 CCTK_ATTRIBUTE_UNUSED = tg403*xformL02;
    
    CCTK_REAL csetemp50 CCTK_ATTRIBUTE_UNUSED = tg413*xformL12;
    
    CCTK_REAL csetemp51 CCTK_ATTRIBUTE_UNUSED = tg423*xformL22;
    
    CCTK_REAL csetemp52 CCTK_ATTRIBUTE_UNUSED = tg433*xformL32;
    
    CCTK_REAL g402 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL00 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL10 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL20 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL30;
    
    CCTK_REAL csetemp53 CCTK_ATTRIBUTE_UNUSED = tg400*xformL03;
    
    CCTK_REAL csetemp54 CCTK_ATTRIBUTE_UNUSED = tg401*xformL13;
    
    CCTK_REAL csetemp55 CCTK_ATTRIBUTE_UNUSED = tg402*xformL23;
    
    CCTK_REAL csetemp56 CCTK_ATTRIBUTE_UNUSED = tg403*xformL33;
    
    CCTK_REAL csetemp57 CCTK_ATTRIBUTE_UNUSED = tg401*xformL03;
    
    CCTK_REAL csetemp58 CCTK_ATTRIBUTE_UNUSED = tg411*xformL13;
    
    CCTK_REAL csetemp59 CCTK_ATTRIBUTE_UNUSED = tg412*xformL23;
    
    CCTK_REAL csetemp60 CCTK_ATTRIBUTE_UNUSED = tg413*xformL33;
    
    CCTK_REAL csetemp61 CCTK_ATTRIBUTE_UNUSED = tg402*xformL03;
    
    CCTK_REAL csetemp62 CCTK_ATTRIBUTE_UNUSED = tg412*xformL13;
    
    CCTK_REAL csetemp63 CCTK_ATTRIBUTE_UNUSED = tg422*xformL23;
    
    CCTK_REAL csetemp64 CCTK_ATTRIBUTE_UNUSED = tg423*xformL33;
    
    CCTK_REAL csetemp65 CCTK_ATTRIBUTE_UNUSED = tg403*xformL03;
    
    CCTK_REAL csetemp66 CCTK_ATTRIBUTE_UNUSED = tg413*xformL13;
    
    CCTK_REAL csetemp67 CCTK_ATTRIBUTE_UNUSED = tg423*xformL23;
    
    CCTK_REAL csetemp68 CCTK_ATTRIBUTE_UNUSED = tg433*xformL33;
    
    CCTK_REAL g403 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL00 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL10 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL20 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL30;
    
    CCTK_REAL g411 CCTK_ATTRIBUTE_UNUSED = (csetemp21 + csetemp22 + 
      csetemp23 + csetemp24)*xformL01 + (csetemp25 + csetemp26 + csetemp27 + 
      csetemp28)*xformL11 + (csetemp29 + csetemp30 + csetemp31 + 
      csetemp32)*xformL21 + (csetemp33 + csetemp34 + csetemp35 + 
      csetemp36)*xformL31;
    
    CCTK_REAL g412 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL01 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL11 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL21 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL31;
    
    CCTK_REAL g413 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL01 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL11 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL21 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL31;
    
    CCTK_REAL g422 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL02 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL12 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL22 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL32;
    
    CCTK_REAL g423 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL02 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL12 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL22 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL32;
    
    CCTK_REAL g433 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL03 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL13 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL23 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL33;
    
    CCTK_REAL csetemp69 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL00;
    
    CCTK_REAL csetemp70 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL10;
    
    CCTK_REAL csetemp71 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL20;
    
    CCTK_REAL csetemp72 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL30;
    
    CCTK_REAL csetemp73 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL00;
    
    CCTK_REAL csetemp74 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL10;
    
    CCTK_REAL csetemp75 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL20;
    
    CCTK_REAL csetemp76 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL30;
    
    CCTK_REAL csetemp77 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL00;
    
    CCTK_REAL csetemp78 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL10;
    
    CCTK_REAL csetemp79 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL20;
    
    CCTK_REAL csetemp80 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL30;
    
    CCTK_REAL csetemp81 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL00;
    
    CCTK_REAL csetemp82 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL10;
    
    CCTK_REAL csetemp83 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL20;
    
    CCTK_REAL csetemp84 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL30;
    
    CCTK_REAL csetemp85 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL00;
    
    CCTK_REAL csetemp86 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL10;
    
    CCTK_REAL csetemp87 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL20;
    
    CCTK_REAL csetemp88 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL30;
    
    CCTK_REAL csetemp89 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL00;
    
    CCTK_REAL csetemp90 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL10;
    
    CCTK_REAL csetemp91 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL20;
    
    CCTK_REAL csetemp92 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL30;
    
    CCTK_REAL csetemp93 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL00;
    
    CCTK_REAL csetemp94 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL10;
    
    CCTK_REAL csetemp95 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL20;
    
    CCTK_REAL csetemp96 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL30;
    
    CCTK_REAL csetemp97 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL00;
    
    CCTK_REAL csetemp98 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL10;
    
    CCTK_REAL csetemp99 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL20;
    
    CCTK_REAL csetemp100 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL30;
    
    CCTK_REAL csetemp101 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL00;
    
    CCTK_REAL csetemp102 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL10;
    
    CCTK_REAL csetemp103 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL20;
    
    CCTK_REAL csetemp104 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL30;
    
    CCTK_REAL csetemp105 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL00;
    
    CCTK_REAL csetemp106 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL10;
    
    CCTK_REAL csetemp107 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL20;
    
    CCTK_REAL csetemp108 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL30;
    
    CCTK_REAL dg4000 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL00 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL10 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL20 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL30) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL00 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL10 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL20 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL30) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL00 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL10 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL20 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL30) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL00 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL10 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL20 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL30);
    
    CCTK_REAL dg4010 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL01 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL11 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL21 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL31) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL01 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL11 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL21 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL31) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL01 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL11 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL21 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL31) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL01 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL11 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL21 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL31);
    
    CCTK_REAL csetemp109 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL01;
    
    CCTK_REAL csetemp110 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL11;
    
    CCTK_REAL csetemp111 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL21;
    
    CCTK_REAL csetemp112 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL31;
    
    CCTK_REAL csetemp113 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL01;
    
    CCTK_REAL csetemp114 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL11;
    
    CCTK_REAL csetemp115 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL21;
    
    CCTK_REAL csetemp116 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL31;
    
    CCTK_REAL csetemp117 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL01;
    
    CCTK_REAL csetemp118 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL11;
    
    CCTK_REAL csetemp119 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL21;
    
    CCTK_REAL csetemp120 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL31;
    
    CCTK_REAL csetemp121 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL01;
    
    CCTK_REAL csetemp122 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL11;
    
    CCTK_REAL csetemp123 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL21;
    
    CCTK_REAL csetemp124 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL31;
    
    CCTK_REAL csetemp125 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL01;
    
    CCTK_REAL csetemp126 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL11;
    
    CCTK_REAL csetemp127 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL21;
    
    CCTK_REAL csetemp128 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL31;
    
    CCTK_REAL csetemp129 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL01;
    
    CCTK_REAL csetemp130 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL11;
    
    CCTK_REAL csetemp131 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL21;
    
    CCTK_REAL csetemp132 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL31;
    
    CCTK_REAL csetemp133 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL01;
    
    CCTK_REAL csetemp134 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL11;
    
    CCTK_REAL csetemp135 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL21;
    
    CCTK_REAL csetemp136 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL31;
    
    CCTK_REAL csetemp137 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL01;
    
    CCTK_REAL csetemp138 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL11;
    
    CCTK_REAL csetemp139 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL21;
    
    CCTK_REAL csetemp140 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL31;
    
    CCTK_REAL csetemp141 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL01;
    
    CCTK_REAL csetemp142 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL11;
    
    CCTK_REAL csetemp143 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL21;
    
    CCTK_REAL csetemp144 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL31;
    
    CCTK_REAL csetemp145 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL01;
    
    CCTK_REAL csetemp146 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL11;
    
    CCTK_REAL csetemp147 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL21;
    
    CCTK_REAL csetemp148 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL31;
    
    CCTK_REAL dg4011 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL01 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL11 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL21 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL31) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL01 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL11 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL21 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL31) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL01 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL11 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL21 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL31) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL01 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL11 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL21 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL31);
    
    CCTK_REAL csetemp149 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL02;
    
    CCTK_REAL csetemp150 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL12;
    
    CCTK_REAL csetemp151 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL22;
    
    CCTK_REAL csetemp152 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL32;
    
    CCTK_REAL csetemp153 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL02;
    
    CCTK_REAL csetemp154 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL12;
    
    CCTK_REAL csetemp155 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL22;
    
    CCTK_REAL csetemp156 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL32;
    
    CCTK_REAL csetemp157 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL02;
    
    CCTK_REAL csetemp158 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL12;
    
    CCTK_REAL csetemp159 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL22;
    
    CCTK_REAL csetemp160 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL32;
    
    CCTK_REAL csetemp161 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL02;
    
    CCTK_REAL csetemp162 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL12;
    
    CCTK_REAL csetemp163 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL22;
    
    CCTK_REAL csetemp164 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL32;
    
    CCTK_REAL csetemp165 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL02;
    
    CCTK_REAL csetemp166 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL12;
    
    CCTK_REAL csetemp167 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL22;
    
    CCTK_REAL csetemp168 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL32;
    
    CCTK_REAL csetemp169 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL02;
    
    CCTK_REAL csetemp170 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL12;
    
    CCTK_REAL csetemp171 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL22;
    
    CCTK_REAL csetemp172 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL32;
    
    CCTK_REAL csetemp173 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL02;
    
    CCTK_REAL csetemp174 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL12;
    
    CCTK_REAL csetemp175 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL22;
    
    CCTK_REAL csetemp176 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL32;
    
    CCTK_REAL csetemp177 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL02;
    
    CCTK_REAL csetemp178 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL12;
    
    CCTK_REAL csetemp179 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL22;
    
    CCTK_REAL csetemp180 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL32;
    
    CCTK_REAL csetemp181 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL02;
    
    CCTK_REAL csetemp182 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL12;
    
    CCTK_REAL csetemp183 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL22;
    
    CCTK_REAL csetemp184 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL32;
    
    CCTK_REAL csetemp185 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL02;
    
    CCTK_REAL csetemp186 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL12;
    
    CCTK_REAL csetemp187 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL22;
    
    CCTK_REAL csetemp188 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL32;
    
    CCTK_REAL dg4012 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL01 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL11 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL21 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL31) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL01 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL11 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL21 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL31) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL01 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL11 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL21 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL31) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL01 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL11 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL21 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL31);
    
    CCTK_REAL csetemp189 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL03;
    
    CCTK_REAL csetemp190 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL13;
    
    CCTK_REAL csetemp191 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL23;
    
    CCTK_REAL csetemp192 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL33;
    
    CCTK_REAL csetemp193 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL03;
    
    CCTK_REAL csetemp194 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL13;
    
    CCTK_REAL csetemp195 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL23;
    
    CCTK_REAL csetemp196 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL33;
    
    CCTK_REAL csetemp197 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL03;
    
    CCTK_REAL csetemp198 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL13;
    
    CCTK_REAL csetemp199 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL23;
    
    CCTK_REAL csetemp200 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL33;
    
    CCTK_REAL csetemp201 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL03;
    
    CCTK_REAL csetemp202 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL13;
    
    CCTK_REAL csetemp203 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL23;
    
    CCTK_REAL csetemp204 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL33;
    
    CCTK_REAL csetemp205 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL03;
    
    CCTK_REAL csetemp206 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL13;
    
    CCTK_REAL csetemp207 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL23;
    
    CCTK_REAL csetemp208 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL33;
    
    CCTK_REAL csetemp209 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL03;
    
    CCTK_REAL csetemp210 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL13;
    
    CCTK_REAL csetemp211 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL23;
    
    CCTK_REAL csetemp212 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL33;
    
    CCTK_REAL csetemp213 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL03;
    
    CCTK_REAL csetemp214 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL13;
    
    CCTK_REAL csetemp215 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL23;
    
    CCTK_REAL csetemp216 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL33;
    
    CCTK_REAL csetemp217 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL03;
    
    CCTK_REAL csetemp218 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL13;
    
    CCTK_REAL csetemp219 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL23;
    
    CCTK_REAL csetemp220 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL33;
    
    CCTK_REAL csetemp221 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL03;
    
    CCTK_REAL csetemp222 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL13;
    
    CCTK_REAL csetemp223 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL23;
    
    CCTK_REAL csetemp224 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL33;
    
    CCTK_REAL csetemp225 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL03;
    
    CCTK_REAL csetemp226 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL13;
    
    CCTK_REAL csetemp227 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL23;
    
    CCTK_REAL csetemp228 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL33;
    
    CCTK_REAL dg4013 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL01 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL11 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL21 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL31) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL01 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL11 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL21 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL31) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL01 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL11 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL21 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL31) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL01 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL11 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL21 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL31);
    
    CCTK_REAL dg4020 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4021 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4022 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4023 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4030 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4031 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4032 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4033 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4110 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL01 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL11 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL21 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL31) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL01 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL11 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL21 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL31) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL01 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL11 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL21 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL31) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL01 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL11 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL21 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL31);
    
    CCTK_REAL dg4111 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL01 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL11 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL21 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL31) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL01 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL11 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL21 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL31) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL01 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL11 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL21 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL31) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL01 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL11 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL21 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL31);
    
    CCTK_REAL dg4112 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL01 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL11 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL21 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL31) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL01 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL11 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL21 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL31) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL01 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL11 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL21 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL31) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL01 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL11 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL21 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL31);
    
    CCTK_REAL dg4113 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL01 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL11 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL21 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL31) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL01 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL11 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL21 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL31) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL01 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL11 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL21 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL31) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL01 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL11 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL21 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL31);
    
    CCTK_REAL dg4120 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4121 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4122 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4123 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4130 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4131 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4132 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4133 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4220 CCTK_ATTRIBUTE_UNUSED = xformL22*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL32*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL02*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL12*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4221 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL12*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL22*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL32*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4222 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL12*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL22*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL32*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4223 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL12*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL22*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL32*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4230 CCTK_ATTRIBUTE_UNUSED = xformL22*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL32*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL02*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL12*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4231 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL12*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL22*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL32*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4232 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL12*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL22*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL32*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4233 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL12*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL22*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL32*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4330 CCTK_ATTRIBUTE_UNUSED = xformL23*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL33*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL03*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL13*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4331 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL13*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL23*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL33*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4332 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL13*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL23*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL33*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4333 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL13*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL23*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL33*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL betal1 CCTK_ATTRIBUTE_UNUSED = g401;
    
    CCTK_REAL betal2 CCTK_ATTRIBUTE_UNUSED = g402;
    
    CCTK_REAL betal3 CCTK_ATTRIBUTE_UNUSED = g403;
    
    CCTK_REAL gerr11L CCTK_ATTRIBUTE_UNUSED = gxxL - g411;
    
    CCTK_REAL gerr12L CCTK_ATTRIBUTE_UNUSED = gxyL - g412;
    
    CCTK_REAL gerr13L CCTK_ATTRIBUTE_UNUSED = gxzL - g413;
    
    CCTK_REAL gerr22L CCTK_ATTRIBUTE_UNUSED = gyyL - g422;
    
    CCTK_REAL gerr23L CCTK_ATTRIBUTE_UNUSED = gyzL - g423;
    
    CCTK_REAL gerr33L CCTK_ATTRIBUTE_UNUSED = gzzL - g433;
    
    CCTK_REAL csetemp229 CCTK_ATTRIBUTE_UNUSED = SQR(gxzL);
    
    CCTK_REAL csetemp230 CCTK_ATTRIBUTE_UNUSED = SQR(gyzL);
    
    CCTK_REAL csetemp231 CCTK_ATTRIBUTE_UNUSED = SQR(gxyL);
    
    CCTK_REAL detg CCTK_ATTRIBUTE_UNUSED = 2*gxyL*gxzL*gyzL + 
      gyyL*(gxxL*gzzL - csetemp229) - gxxL*csetemp230 - gzzL*csetemp231;
    
    CCTK_REAL csetemp232 CCTK_ATTRIBUTE_UNUSED = INV(detg);
    
    CCTK_REAL gu11 CCTK_ATTRIBUTE_UNUSED = (gyyL*gzzL - 
      csetemp230)*csetemp232;
    
    CCTK_REAL gu12 CCTK_ATTRIBUTE_UNUSED = (gxzL*gyzL - 
      gxyL*gzzL)*csetemp232;
    
    CCTK_REAL gu13 CCTK_ATTRIBUTE_UNUSED = (-(gxzL*gyyL) + 
      gxyL*gyzL)*csetemp232;
    
    CCTK_REAL gu22 CCTK_ATTRIBUTE_UNUSED = (gxxL*gzzL - 
      csetemp229)*csetemp232;
    
    CCTK_REAL gu23 CCTK_ATTRIBUTE_UNUSED = (gxyL*gxzL - 
      gxxL*gyzL)*csetemp232;
    
    CCTK_REAL gu33 CCTK_ATTRIBUTE_UNUSED = (gxxL*gyyL - 
      csetemp231)*csetemp232;
    
    CCTK_REAL betaerr1L CCTK_ATTRIBUTE_UNUSED = betaxL - betal1*gu11 - 
      betal2*gu12 - betal3*gu13;
    
    CCTK_REAL betaerr2L CCTK_ATTRIBUTE_UNUSED = betayL - betal1*gu12 - 
      betal2*gu22 - betal3*gu23;
    
    CCTK_REAL betaerr3L CCTK_ATTRIBUTE_UNUSED = betazL - betal1*gu13 - 
      betal2*gu23 - betal3*gu33;
    
    CCTK_REAL betasq CCTK_ATTRIBUTE_UNUSED = betaxL*betal1 + betayL*betal2 
      + betazL*betal3;
    
    CCTK_REAL alperrL CCTK_ATTRIBUTE_UNUSED = alpL - sqrt(betasq - g400);
    
    CCTK_REAL dtg11 CCTK_ATTRIBUTE_UNUSED = dg4110;
    
    CCTK_REAL dtg12 CCTK_ATTRIBUTE_UNUSED = dg4120;
    
    CCTK_REAL dtg13 CCTK_ATTRIBUTE_UNUSED = dg4130;
    
    CCTK_REAL dtg22 CCTK_ATTRIBUTE_UNUSED = dg4220;
    
    CCTK_REAL dtg23 CCTK_ATTRIBUTE_UNUSED = dg4230;
    
    CCTK_REAL dtg33 CCTK_ATTRIBUTE_UNUSED = dg4330;
    
    CCTK_REAL dg111 CCTK_ATTRIBUTE_UNUSED = dg4111;
    
    CCTK_REAL dg112 CCTK_ATTRIBUTE_UNUSED = dg4112;
    
    CCTK_REAL dg113 CCTK_ATTRIBUTE_UNUSED = dg4113;
    
    CCTK_REAL dg121 CCTK_ATTRIBUTE_UNUSED = dg4121;
    
    CCTK_REAL dg122 CCTK_ATTRIBUTE_UNUSED = dg4122;
    
    CCTK_REAL dg123 CCTK_ATTRIBUTE_UNUSED = dg4123;
    
    CCTK_REAL dg131 CCTK_ATTRIBUTE_UNUSED = dg4131;
    
    CCTK_REAL dg132 CCTK_ATTRIBUTE_UNUSED = dg4132;
    
    CCTK_REAL dg133 CCTK_ATTRIBUTE_UNUSED = dg4133;
    
    CCTK_REAL dg221 CCTK_ATTRIBUTE_UNUSED = dg4221;
    
    CCTK_REAL dg222 CCTK_ATTRIBUTE_UNUSED = dg4222;
    
    CCTK_REAL dg223 CCTK_ATTRIBUTE_UNUSED = dg4223;
    
    CCTK_REAL dg231 CCTK_ATTRIBUTE_UNUSED = dg4231;
    
    CCTK_REAL dg232 CCTK_ATTRIBUTE_UNUSED = dg4232;
    
    CCTK_REAL dg233 CCTK_ATTRIBUTE_UNUSED = dg4233;
    
    CCTK_REAL dg331 CCTK_ATTRIBUTE_UNUSED = dg4331;
    
    CCTK_REAL dg332 CCTK_ATTRIBUTE_UNUSED = dg4332;
    
    CCTK_REAL dg333 CCTK_ATTRIBUTE_UNUSED = dg4333;
    
    CCTK_REAL csetemp233 CCTK_ATTRIBUTE_UNUSED = dtg11*gu11;
    
    CCTK_REAL csetemp234 CCTK_ATTRIBUTE_UNUSED = dtg12*gu12;
    
    CCTK_REAL csetemp235 CCTK_ATTRIBUTE_UNUSED = dtg13*gu13;
    
    CCTK_REAL csetemp236 CCTK_ATTRIBUTE_UNUSED = dtg12*gu11;
    
    CCTK_REAL csetemp237 CCTK_ATTRIBUTE_UNUSED = dtg22*gu12;
    
    CCTK_REAL csetemp238 CCTK_ATTRIBUTE_UNUSED = dtg23*gu13;
    
    CCTK_REAL csetemp239 CCTK_ATTRIBUTE_UNUSED = dtg13*gu11;
    
    CCTK_REAL csetemp240 CCTK_ATTRIBUTE_UNUSED = dtg23*gu12;
    
    CCTK_REAL csetemp241 CCTK_ATTRIBUTE_UNUSED = dtg33*gu13;
    
    CCTK_REAL dtgu11 CCTK_ATTRIBUTE_UNUSED = -((csetemp233 + csetemp234 + 
      csetemp235)*gu11) - (csetemp236 + csetemp237 + csetemp238)*gu12 - 
      (csetemp239 + csetemp240 + csetemp241)*gu13;
    
    CCTK_REAL dtgu12 CCTK_ATTRIBUTE_UNUSED = -((csetemp233 + csetemp234 + 
      csetemp235)*gu12) - (csetemp236 + csetemp237 + csetemp238)*gu22 - 
      (csetemp239 + csetemp240 + csetemp241)*gu23;
    
    CCTK_REAL dtgu13 CCTK_ATTRIBUTE_UNUSED = -((csetemp233 + csetemp234 + 
      csetemp235)*gu13) - (csetemp236 + csetemp237 + csetemp238)*gu23 - 
      (csetemp239 + csetemp240 + csetemp241)*gu33;
    
    CCTK_REAL csetemp242 CCTK_ATTRIBUTE_UNUSED = dtg11*gu12;
    
    CCTK_REAL csetemp243 CCTK_ATTRIBUTE_UNUSED = dtg12*gu22;
    
    CCTK_REAL csetemp244 CCTK_ATTRIBUTE_UNUSED = dtg13*gu23;
    
    CCTK_REAL csetemp245 CCTK_ATTRIBUTE_UNUSED = dtg22*gu22;
    
    CCTK_REAL csetemp246 CCTK_ATTRIBUTE_UNUSED = dtg23*gu23;
    
    CCTK_REAL csetemp247 CCTK_ATTRIBUTE_UNUSED = dtg13*gu12;
    
    CCTK_REAL csetemp248 CCTK_ATTRIBUTE_UNUSED = dtg23*gu22;
    
    CCTK_REAL csetemp249 CCTK_ATTRIBUTE_UNUSED = dtg33*gu23;
    
    CCTK_REAL dtgu22 CCTK_ATTRIBUTE_UNUSED = -((csetemp242 + csetemp243 + 
      csetemp244)*gu12) - (csetemp234 + csetemp245 + csetemp246)*gu22 - 
      (csetemp247 + csetemp248 + csetemp249)*gu23;
    
    CCTK_REAL dtgu23 CCTK_ATTRIBUTE_UNUSED = -((csetemp242 + csetemp243 + 
      csetemp244)*gu13) - (csetemp234 + csetemp245 + csetemp246)*gu23 - 
      (csetemp247 + csetemp248 + csetemp249)*gu33;
    
    CCTK_REAL dtgu33 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dtg11*gu13 + 
      dtg12*gu23 + dtg13*gu33)) - gu23*(dtg12*gu13 + dtg22*gu23 + dtg23*gu33) 
      - gu33*(csetemp235 + csetemp246 + dtg33*gu33);
    
    CCTK_REAL csetemp250 CCTK_ATTRIBUTE_UNUSED = dg111*gu11;
    
    CCTK_REAL csetemp251 CCTK_ATTRIBUTE_UNUSED = dg121*gu12;
    
    CCTK_REAL csetemp252 CCTK_ATTRIBUTE_UNUSED = dg131*gu13;
    
    CCTK_REAL csetemp253 CCTK_ATTRIBUTE_UNUSED = dg121*gu11;
    
    CCTK_REAL csetemp254 CCTK_ATTRIBUTE_UNUSED = dg221*gu12;
    
    CCTK_REAL csetemp255 CCTK_ATTRIBUTE_UNUSED = dg231*gu13;
    
    CCTK_REAL csetemp256 CCTK_ATTRIBUTE_UNUSED = dg131*gu11;
    
    CCTK_REAL csetemp257 CCTK_ATTRIBUTE_UNUSED = dg231*gu12;
    
    CCTK_REAL csetemp258 CCTK_ATTRIBUTE_UNUSED = dg331*gu13;
    
    CCTK_REAL dgu111 CCTK_ATTRIBUTE_UNUSED = -((csetemp250 + csetemp251 + 
      csetemp252)*gu11) - (csetemp253 + csetemp254 + csetemp255)*gu12 - 
      (csetemp256 + csetemp257 + csetemp258)*gu13;
    
    CCTK_REAL dgu121 CCTK_ATTRIBUTE_UNUSED = -((csetemp250 + csetemp251 + 
      csetemp252)*gu12) - (csetemp253 + csetemp254 + csetemp255)*gu22 - 
      (csetemp256 + csetemp257 + csetemp258)*gu23;
    
    CCTK_REAL dgu131 CCTK_ATTRIBUTE_UNUSED = -((csetemp250 + csetemp251 + 
      csetemp252)*gu13) - (csetemp253 + csetemp254 + csetemp255)*gu23 - 
      (csetemp256 + csetemp257 + csetemp258)*gu33;
    
    CCTK_REAL csetemp259 CCTK_ATTRIBUTE_UNUSED = dg111*gu12;
    
    CCTK_REAL csetemp260 CCTK_ATTRIBUTE_UNUSED = dg121*gu22;
    
    CCTK_REAL csetemp261 CCTK_ATTRIBUTE_UNUSED = dg131*gu23;
    
    CCTK_REAL csetemp262 CCTK_ATTRIBUTE_UNUSED = dg221*gu22;
    
    CCTK_REAL csetemp263 CCTK_ATTRIBUTE_UNUSED = dg231*gu23;
    
    CCTK_REAL csetemp264 CCTK_ATTRIBUTE_UNUSED = dg131*gu12;
    
    CCTK_REAL csetemp265 CCTK_ATTRIBUTE_UNUSED = dg231*gu22;
    
    CCTK_REAL csetemp266 CCTK_ATTRIBUTE_UNUSED = dg331*gu23;
    
    CCTK_REAL dgu221 CCTK_ATTRIBUTE_UNUSED = -((csetemp259 + csetemp260 + 
      csetemp261)*gu12) - (csetemp251 + csetemp262 + csetemp263)*gu22 - 
      (csetemp264 + csetemp265 + csetemp266)*gu23;
    
    CCTK_REAL dgu231 CCTK_ATTRIBUTE_UNUSED = -((csetemp259 + csetemp260 + 
      csetemp261)*gu13) - (csetemp251 + csetemp262 + csetemp263)*gu23 - 
      (csetemp264 + csetemp265 + csetemp266)*gu33;
    
    CCTK_REAL dgu331 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg111*gu13 + 
      dg121*gu23 + dg131*gu33)) - gu23*(dg121*gu13 + dg221*gu23 + dg231*gu33) 
      - gu33*(csetemp252 + csetemp263 + dg331*gu33);
    
    CCTK_REAL csetemp267 CCTK_ATTRIBUTE_UNUSED = dg112*gu11;
    
    CCTK_REAL csetemp268 CCTK_ATTRIBUTE_UNUSED = dg122*gu12;
    
    CCTK_REAL csetemp269 CCTK_ATTRIBUTE_UNUSED = dg132*gu13;
    
    CCTK_REAL csetemp270 CCTK_ATTRIBUTE_UNUSED = dg122*gu11;
    
    CCTK_REAL csetemp271 CCTK_ATTRIBUTE_UNUSED = dg222*gu12;
    
    CCTK_REAL csetemp272 CCTK_ATTRIBUTE_UNUSED = dg232*gu13;
    
    CCTK_REAL csetemp273 CCTK_ATTRIBUTE_UNUSED = dg132*gu11;
    
    CCTK_REAL csetemp274 CCTK_ATTRIBUTE_UNUSED = dg232*gu12;
    
    CCTK_REAL csetemp275 CCTK_ATTRIBUTE_UNUSED = dg332*gu13;
    
    CCTK_REAL dgu112 CCTK_ATTRIBUTE_UNUSED = -((csetemp267 + csetemp268 + 
      csetemp269)*gu11) - (csetemp270 + csetemp271 + csetemp272)*gu12 - 
      (csetemp273 + csetemp274 + csetemp275)*gu13;
    
    CCTK_REAL dgu122 CCTK_ATTRIBUTE_UNUSED = -((csetemp267 + csetemp268 + 
      csetemp269)*gu12) - (csetemp270 + csetemp271 + csetemp272)*gu22 - 
      (csetemp273 + csetemp274 + csetemp275)*gu23;
    
    CCTK_REAL dgu132 CCTK_ATTRIBUTE_UNUSED = -((csetemp267 + csetemp268 + 
      csetemp269)*gu13) - (csetemp270 + csetemp271 + csetemp272)*gu23 - 
      (csetemp273 + csetemp274 + csetemp275)*gu33;
    
    CCTK_REAL csetemp276 CCTK_ATTRIBUTE_UNUSED = dg112*gu12;
    
    CCTK_REAL csetemp277 CCTK_ATTRIBUTE_UNUSED = dg122*gu22;
    
    CCTK_REAL csetemp278 CCTK_ATTRIBUTE_UNUSED = dg132*gu23;
    
    CCTK_REAL csetemp279 CCTK_ATTRIBUTE_UNUSED = dg222*gu22;
    
    CCTK_REAL csetemp280 CCTK_ATTRIBUTE_UNUSED = dg232*gu23;
    
    CCTK_REAL csetemp281 CCTK_ATTRIBUTE_UNUSED = dg132*gu12;
    
    CCTK_REAL csetemp282 CCTK_ATTRIBUTE_UNUSED = dg232*gu22;
    
    CCTK_REAL csetemp283 CCTK_ATTRIBUTE_UNUSED = dg332*gu23;
    
    CCTK_REAL dgu222 CCTK_ATTRIBUTE_UNUSED = -((csetemp276 + csetemp277 + 
      csetemp278)*gu12) - (csetemp268 + csetemp279 + csetemp280)*gu22 - 
      (csetemp281 + csetemp282 + csetemp283)*gu23;
    
    CCTK_REAL dgu232 CCTK_ATTRIBUTE_UNUSED = -((csetemp276 + csetemp277 + 
      csetemp278)*gu13) - (csetemp268 + csetemp279 + csetemp280)*gu23 - 
      (csetemp281 + csetemp282 + csetemp283)*gu33;
    
    CCTK_REAL dgu332 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg112*gu13 + 
      dg122*gu23 + dg132*gu33)) - gu23*(dg122*gu13 + dg222*gu23 + dg232*gu33) 
      - gu33*(csetemp269 + csetemp280 + dg332*gu33);
    
    CCTK_REAL csetemp284 CCTK_ATTRIBUTE_UNUSED = dg113*gu11;
    
    CCTK_REAL csetemp285 CCTK_ATTRIBUTE_UNUSED = dg123*gu12;
    
    CCTK_REAL csetemp286 CCTK_ATTRIBUTE_UNUSED = dg133*gu13;
    
    CCTK_REAL csetemp287 CCTK_ATTRIBUTE_UNUSED = dg123*gu11;
    
    CCTK_REAL csetemp288 CCTK_ATTRIBUTE_UNUSED = dg223*gu12;
    
    CCTK_REAL csetemp289 CCTK_ATTRIBUTE_UNUSED = dg233*gu13;
    
    CCTK_REAL csetemp290 CCTK_ATTRIBUTE_UNUSED = dg133*gu11;
    
    CCTK_REAL csetemp291 CCTK_ATTRIBUTE_UNUSED = dg233*gu12;
    
    CCTK_REAL csetemp292 CCTK_ATTRIBUTE_UNUSED = dg333*gu13;
    
    CCTK_REAL dgu113 CCTK_ATTRIBUTE_UNUSED = -((csetemp284 + csetemp285 + 
      csetemp286)*gu11) - (csetemp287 + csetemp288 + csetemp289)*gu12 - 
      (csetemp290 + csetemp291 + csetemp292)*gu13;
    
    CCTK_REAL dgu123 CCTK_ATTRIBUTE_UNUSED = -((csetemp284 + csetemp285 + 
      csetemp286)*gu12) - (csetemp287 + csetemp288 + csetemp289)*gu22 - 
      (csetemp290 + csetemp291 + csetemp292)*gu23;
    
    CCTK_REAL dgu133 CCTK_ATTRIBUTE_UNUSED = -((csetemp284 + csetemp285 + 
      csetemp286)*gu13) - (csetemp287 + csetemp288 + csetemp289)*gu23 - 
      (csetemp290 + csetemp291 + csetemp292)*gu33;
    
    CCTK_REAL csetemp293 CCTK_ATTRIBUTE_UNUSED = dg113*gu12;
    
    CCTK_REAL csetemp294 CCTK_ATTRIBUTE_UNUSED = dg123*gu22;
    
    CCTK_REAL csetemp295 CCTK_ATTRIBUTE_UNUSED = dg133*gu23;
    
    CCTK_REAL csetemp296 CCTK_ATTRIBUTE_UNUSED = dg223*gu22;
    
    CCTK_REAL csetemp297 CCTK_ATTRIBUTE_UNUSED = dg233*gu23;
    
    CCTK_REAL csetemp298 CCTK_ATTRIBUTE_UNUSED = dg133*gu12;
    
    CCTK_REAL csetemp299 CCTK_ATTRIBUTE_UNUSED = dg233*gu22;
    
    CCTK_REAL csetemp300 CCTK_ATTRIBUTE_UNUSED = dg333*gu23;
    
    CCTK_REAL dgu223 CCTK_ATTRIBUTE_UNUSED = -((csetemp293 + csetemp294 + 
      csetemp295)*gu12) - (csetemp285 + csetemp296 + csetemp297)*gu22 - 
      (csetemp298 + csetemp299 + csetemp300)*gu23;
    
    CCTK_REAL dgu233 CCTK_ATTRIBUTE_UNUSED = -((csetemp293 + csetemp294 + 
      csetemp295)*gu13) - (csetemp285 + csetemp296 + csetemp297)*gu23 - 
      (csetemp298 + csetemp299 + csetemp300)*gu33;
    
    CCTK_REAL dgu333 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg113*gu13 + 
      dg123*gu23 + dg133*gu33)) - gu23*(dg123*gu13 + dg223*gu23 + dg233*gu33) 
      - gu33*(csetemp286 + csetemp297 + dg333*gu33);
    
    CCTK_REAL dtbetal1 CCTK_ATTRIBUTE_UNUSED = dg4010;
    
    CCTK_REAL dtbetal2 CCTK_ATTRIBUTE_UNUSED = dg4020;
    
    CCTK_REAL dtbetal3 CCTK_ATTRIBUTE_UNUSED = dg4030;
    
    CCTK_REAL dbetal11 CCTK_ATTRIBUTE_UNUSED = dg4011;
    
    CCTK_REAL dbetal12 CCTK_ATTRIBUTE_UNUSED = dg4012;
    
    CCTK_REAL dbetal13 CCTK_ATTRIBUTE_UNUSED = dg4013;
    
    CCTK_REAL dbetal21 CCTK_ATTRIBUTE_UNUSED = dg4021;
    
    CCTK_REAL dbetal22 CCTK_ATTRIBUTE_UNUSED = dg4022;
    
    CCTK_REAL dbetal23 CCTK_ATTRIBUTE_UNUSED = dg4023;
    
    CCTK_REAL dbetal31 CCTK_ATTRIBUTE_UNUSED = dg4031;
    
    CCTK_REAL dbetal32 CCTK_ATTRIBUTE_UNUSED = dg4032;
    
    CCTK_REAL dbetal33 CCTK_ATTRIBUTE_UNUSED = dg4033;
    
    CCTK_REAL dtbetaerr1L CCTK_ATTRIBUTE_UNUSED = dtbetaxL - betal1*dtgu11 
      - betal2*dtgu12 - betal3*dtgu13 - dtbetal1*gu11 - dtbetal2*gu12 - 
      dtbetal3*gu13;
    
    CCTK_REAL dtbetaerr2L CCTK_ATTRIBUTE_UNUSED = dtbetayL - betal1*dtgu12 
      - betal2*dtgu22 - betal3*dtgu23 - dtbetal1*gu12 - dtbetal2*gu22 - 
      dtbetal3*gu23;
    
    CCTK_REAL dtbetaerr3L CCTK_ATTRIBUTE_UNUSED = dtbetazL - betal1*dtgu13 
      - betal2*dtgu23 - betal3*dtgu33 - dtbetal1*gu13 - dtbetal2*gu23 - 
      dtbetal3*gu33;
    
    CCTK_REAL dbeta11 CCTK_ATTRIBUTE_UNUSED = betal1*dgu111 + 
      betal2*dgu121 + betal3*dgu131 + dbetal11*gu11 + dbetal21*gu12 + 
      dbetal31*gu13;
    
    CCTK_REAL dbeta21 CCTK_ATTRIBUTE_UNUSED = betal1*dgu121 + 
      betal2*dgu221 + betal3*dgu231 + dbetal11*gu12 + dbetal21*gu22 + 
      dbetal31*gu23;
    
    CCTK_REAL dbeta31 CCTK_ATTRIBUTE_UNUSED = betal1*dgu131 + 
      betal2*dgu231 + betal3*dgu331 + dbetal11*gu13 + dbetal21*gu23 + 
      dbetal31*gu33;
    
    CCTK_REAL dbeta12 CCTK_ATTRIBUTE_UNUSED = betal1*dgu112 + 
      betal2*dgu122 + betal3*dgu132 + dbetal12*gu11 + dbetal22*gu12 + 
      dbetal32*gu13;
    
    CCTK_REAL dbeta22 CCTK_ATTRIBUTE_UNUSED = betal1*dgu122 + 
      betal2*dgu222 + betal3*dgu232 + dbetal12*gu12 + dbetal22*gu22 + 
      dbetal32*gu23;
    
    CCTK_REAL dbeta32 CCTK_ATTRIBUTE_UNUSED = betal1*dgu132 + 
      betal2*dgu232 + betal3*dgu332 + dbetal12*gu13 + dbetal22*gu23 + 
      dbetal32*gu33;
    
    CCTK_REAL dbeta13 CCTK_ATTRIBUTE_UNUSED = betal1*dgu113 + 
      betal2*dgu123 + betal3*dgu133 + dbetal13*gu11 + dbetal23*gu12 + 
      dbetal33*gu13;
    
    CCTK_REAL dbeta23 CCTK_ATTRIBUTE_UNUSED = betal1*dgu123 + 
      betal2*dgu223 + betal3*dgu233 + dbetal13*gu12 + dbetal23*gu22 + 
      dbetal33*gu23;
    
    CCTK_REAL dbeta33 CCTK_ATTRIBUTE_UNUSED = betal1*dgu133 + 
      betal2*dgu233 + betal3*dgu333 + dbetal13*gu13 + dbetal23*gu23 + 
      dbetal33*gu33;
    
    CCTK_REAL dtbetasq CCTK_ATTRIBUTE_UNUSED = dtbetaxL*betal1 + 
      dtbetayL*betal2 + dtbetazL*betal3 + betaxL*dtbetal1 + betayL*dtbetal2 + 
      betazL*dtbetal3;
    
    CCTK_REAL csetemp301 CCTK_ATTRIBUTE_UNUSED = INV(alpL);
    
    CCTK_REAL dtalperrL CCTK_ATTRIBUTE_UNUSED = dtalpL + 
      0.5*csetemp301*(dg4000 - dtbetasq);
    
    CCTK_REAL kerr11L CCTK_ATTRIBUTE_UNUSED = kxxL - 
      0.5*csetemp301*(2*(gxxL*dbeta11 + gxyL*dbeta21 + gxzL*dbeta31) + 
      betaxL*dg111 + betayL*dg112 + betazL*dg113 - dtg11);
    
    CCTK_REAL kerr12L CCTK_ATTRIBUTE_UNUSED = kxyL - 
      0.5*csetemp301*(gxxL*dbeta12 + gyyL*dbeta21 + gxyL*(dbeta11 + dbeta22) 
      + gyzL*dbeta31 + gxzL*dbeta32 + betaxL*dg121 + betayL*dg122 + 
      betazL*dg123 - dtg12);
    
    CCTK_REAL kerr13L CCTK_ATTRIBUTE_UNUSED = kxzL - 
      0.5*csetemp301*(gxxL*dbeta13 + gyzL*dbeta21 + gxyL*dbeta23 + 
      gzzL*dbeta31 + gxzL*(dbeta11 + dbeta33) + betaxL*dg131 + betayL*dg132 + 
      betazL*dg133 - dtg13);
    
    CCTK_REAL kerr22L CCTK_ATTRIBUTE_UNUSED = kyyL - 
      0.5*csetemp301*(2*(gxyL*dbeta12 + gyyL*dbeta22 + gyzL*dbeta32) + 
      betaxL*dg221 + betayL*dg222 + betazL*dg223 - dtg22);
    
    CCTK_REAL kerr23L CCTK_ATTRIBUTE_UNUSED = kyzL - 
      0.5*csetemp301*(gxzL*dbeta12 + gxyL*dbeta13 + gyyL*dbeta23 + 
      gzzL*dbeta32 + gyzL*(dbeta22 + dbeta33) + betaxL*dg231 + betayL*dg232 + 
      betazL*dg233 - dtg23);
    
    CCTK_REAL kerr33L CCTK_ATTRIBUTE_UNUSED = kzzL - 
      0.5*csetemp301*(2*(gxzL*dbeta13 + gyzL*dbeta23 + gzzL*dbeta33) + 
      betaxL*dg331 + betayL*dg332 + betazL*dg333 - dtg33);
    /* Copy local copies back to grid functions */
    alperr[index] = alperrL;
    betaerr1[index] = betaerr1L;
    betaerr2[index] = betaerr2L;
    betaerr3[index] = betaerr3L;
    dtalperr[index] = dtalperrL;
    dtbetaerr1[index] = dtbetaerr1L;
    dtbetaerr2[index] = dtbetaerr2L;
    dtbetaerr3[index] = dtbetaerr3L;
    gerr11[index] = gerr11L;
    gerr12[index] = gerr12L;
    gerr13[index] = gerr13L;
    gerr22[index] = gerr22L;
    gerr23[index] = gerr23L;
    gerr33[index] = gerr33L;
    kerr11[index] = kerr11L;
    kerr12[index] = kerr12L;
    kerr13[index] = kerr13L;
    kerr22[index] = kerr22L;
    kerr23[index] = kerr23L;
    kerr33[index] = kerr33L;
  }
  CCTK_ENDLOOP3(ModifiedSchwarzschildBL_error);
}
extern "C" void ModifiedSchwarzschildBL_error(CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  if (verbose > 1)
  {
    CCTK_VInfo(CCTK_THORNSTRING,"Entering ModifiedSchwarzschildBL_error_Body");
  }
  if (cctk_iteration % ModifiedSchwarzschildBL_error_calc_every != ModifiedSchwarzschildBL_error_calc_offset)
  {
    return;
  }
  
  const char* const groups[] = {
    "admbase::curv",
    "admbase::dtlapse",
    "admbase::dtshift",
    "admbase::lapse",
    "admbase::metric",
    "admbase::shift",
    "ModifiedSchwarzschildBL::curv_error",
    "ModifiedSchwarzschildBL::dtlapse_error",
    "ModifiedSchwarzschildBL::dtshift_error",
    "grid::coordinates",
    "ModifiedSchwarzschildBL::lapse_error",
    "ModifiedSchwarzschildBL::metric_error",
    "ModifiedSchwarzschildBL::shift_error"};
  AssertGroupStorage(cctkGH, "ModifiedSchwarzschildBL_error", 13, groups);
  
  
  LoopOverEverything(cctkGH, ModifiedSchwarzschildBL_error_Body);
  if (verbose > 1)
  {
    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ModifiedSchwarzschildBL_error_Body");
  }
}

} // namespace ModifiedSchwarzschildBL

```

ModifiedSchwarzschildBL_always.cc:
```
/*  File produced by Kranc */

#define KRANC_C

#include <algorithm>
#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 "Kranc.hh"
#include "Differencing.h"
#include "loopcontrol.h"

namespace ModifiedSchwarzschildBL {


static void ModifiedSchwarzschildBL_always_Body(const cGH* restrict const cctkGH, const int dir, const int face, const CCTK_REAL normal[3], const CCTK_REAL tangentA[3], const CCTK_REAL tangentB[3], const int imin[3], const int imax[3], const int n_subblock_gfs, CCTK_REAL* restrict const subblock_gfs[])
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  /* Include user-supplied include files */
  /* Initialise finite differencing variables */
  const ptrdiff_t di CCTK_ATTRIBUTE_UNUSED = 1;
  const ptrdiff_t dj CCTK_ATTRIBUTE_UNUSED = 
    CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
  const ptrdiff_t dk CCTK_ATTRIBUTE_UNUSED = 
    CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
  const ptrdiff_t cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;
  const ptrdiff_t cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;
  const ptrdiff_t cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;
  const ptrdiff_t cctkLbnd1 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[0];
  const ptrdiff_t cctkLbnd2 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[1];
  const ptrdiff_t cctkLbnd3 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[2];
  const CCTK_REAL t CCTK_ATTRIBUTE_UNUSED = cctk_time;
  const CCTK_REAL cctkOriginSpace1 CCTK_ATTRIBUTE_UNUSED = 
    CCTK_ORIGIN_SPACE(0);
  const CCTK_REAL cctkOriginSpace2 CCTK_ATTRIBUTE_UNUSED = 
    CCTK_ORIGIN_SPACE(1);
  const CCTK_REAL cctkOriginSpace3 CCTK_ATTRIBUTE_UNUSED = 
    CCTK_ORIGIN_SPACE(2);
  const CCTK_REAL dt CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_TIME;
  const CCTK_REAL dx CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_SPACE(0);
  const CCTK_REAL dy CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_SPACE(1);
  const CCTK_REAL dz CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_SPACE(2);
  const CCTK_REAL dxi CCTK_ATTRIBUTE_UNUSED = pow(dx,-1);
  const CCTK_REAL dyi CCTK_ATTRIBUTE_UNUSED = pow(dy,-1);
  const CCTK_REAL dzi CCTK_ATTRIBUTE_UNUSED = pow(dz,-1);
  const CCTK_REAL khalf CCTK_ATTRIBUTE_UNUSED = 0.5;
  const CCTK_REAL kthird CCTK_ATTRIBUTE_UNUSED = 
    0.333333333333333333333333333333;
  const CCTK_REAL ktwothird CCTK_ATTRIBUTE_UNUSED = 
    0.666666666666666666666666666667;
  const CCTK_REAL kfourthird CCTK_ATTRIBUTE_UNUSED = 
    1.33333333333333333333333333333;
  const CCTK_REAL hdxi CCTK_ATTRIBUTE_UNUSED = 0.5*dxi;
  const CCTK_REAL hdyi CCTK_ATTRIBUTE_UNUSED = 0.5*dyi;
  const CCTK_REAL hdzi CCTK_ATTRIBUTE_UNUSED = 0.5*dzi;
  /* Initialize predefined quantities */
  /* Assign local copies of arrays functions */
  
  
  /* Calculate temporaries and arrays functions */
  /* Copy local copies back to grid functions */
  /* Loop over the grid points */
  const int imin0=imin[0];
  const int imin1=imin[1];
  const int imin2=imin[2];
  const int imax0=imax[0];
  const int imax1=imax[1];
  const int imax2=imax[2];
  #pragma omp parallel
  CCTK_LOOP3(ModifiedSchwarzschildBL_always,
    i,j,k, imin0,imin1,imin2, imax0,imax1,imax2,
    cctk_ash[0],cctk_ash[1],cctk_ash[2])
  {
    const ptrdiff_t index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;
    /* Assign local copies of grid functions */
    
    CCTK_REAL alpL CCTK_ATTRIBUTE_UNUSED = alp[index];
    CCTK_REAL betaxL CCTK_ATTRIBUTE_UNUSED = betax[index];
    CCTK_REAL betayL CCTK_ATTRIBUTE_UNUSED = betay[index];
    CCTK_REAL betazL CCTK_ATTRIBUTE_UNUSED = betaz[index];
    CCTK_REAL dtbetaxL CCTK_ATTRIBUTE_UNUSED = dtbetax[index];
    CCTK_REAL dtbetayL CCTK_ATTRIBUTE_UNUSED = dtbetay[index];
    CCTK_REAL dtbetazL CCTK_ATTRIBUTE_UNUSED = dtbetaz[index];
    CCTK_REAL gxxL CCTK_ATTRIBUTE_UNUSED = gxx[index];
    CCTK_REAL gxyL CCTK_ATTRIBUTE_UNUSED = gxy[index];
    CCTK_REAL gxzL CCTK_ATTRIBUTE_UNUSED = gxz[index];
    CCTK_REAL gyyL CCTK_ATTRIBUTE_UNUSED = gyy[index];
    CCTK_REAL gyzL CCTK_ATTRIBUTE_UNUSED = gyz[index];
    CCTK_REAL gzzL CCTK_ATTRIBUTE_UNUSED = gzz[index];
    CCTK_REAL xL CCTK_ATTRIBUTE_UNUSED = x[index];
    CCTK_REAL yL CCTK_ATTRIBUTE_UNUSED = y[index];
    CCTK_REAL zL CCTK_ATTRIBUTE_UNUSED = z[index];
    
    /* Include user supplied include files */
    /* Precompute derivatives */
    /* Calculate temporaries and grid functions */
    CCTK_REAL xform1L00 CCTK_ATTRIBUTE_UNUSED = 1;
    
    CCTK_REAL xform1L01 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L02 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L03 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L10 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp0 CCTK_ATTRIBUTE_UNUSED = cos(phi);
    
    CCTK_REAL csetemp1 CCTK_ATTRIBUTE_UNUSED = cos(psi);
    
    CCTK_REAL csetemp2 CCTK_ATTRIBUTE_UNUSED = cos(theta);
    
    CCTK_REAL csetemp3 CCTK_ATTRIBUTE_UNUSED = sin(phi);
    
    CCTK_REAL csetemp4 CCTK_ATTRIBUTE_UNUSED = sin(psi);
    
    CCTK_REAL xform1L11 CCTK_ATTRIBUTE_UNUSED = csetemp0*csetemp1 - 
      csetemp2*csetemp3*csetemp4;
    
    CCTK_REAL xform1L12 CCTK_ATTRIBUTE_UNUSED = csetemp1*csetemp3 + 
      csetemp0*csetemp2*csetemp4;
    
    CCTK_REAL csetemp5 CCTK_ATTRIBUTE_UNUSED = sin(theta);
    
    CCTK_REAL xform1L13 CCTK_ATTRIBUTE_UNUSED = csetemp4*csetemp5;
    
    CCTK_REAL xform1L20 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L21 CCTK_ATTRIBUTE_UNUSED = 
      -(csetemp1*csetemp2*csetemp3) - csetemp0*csetemp4;
    
    CCTK_REAL xform1L22 CCTK_ATTRIBUTE_UNUSED = csetemp0*csetemp1*csetemp2 
      - csetemp3*csetemp4;
    
    CCTK_REAL xform1L23 CCTK_ATTRIBUTE_UNUSED = csetemp1*csetemp5;
    
    CCTK_REAL xform1L30 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L31 CCTK_ATTRIBUTE_UNUSED = csetemp3*csetemp5;
    
    CCTK_REAL xform1L32 CCTK_ATTRIBUTE_UNUSED = -(csetemp0*csetemp5);
    
    CCTK_REAL xform1L33 CCTK_ATTRIBUTE_UNUSED = csetemp2;
    
    CCTK_REAL csetemp6 CCTK_ATTRIBUTE_UNUSED = pow(boostx,2);
    
    CCTK_REAL csetemp7 CCTK_ATTRIBUTE_UNUSED = pow(boosty,2);
    
    CCTK_REAL csetemp8 CCTK_ATTRIBUTE_UNUSED = pow(boostz,2);
    
    CCTK_REAL csetemp9 CCTK_ATTRIBUTE_UNUSED = pow(lapsefactor,-1);
    
    CCTK_REAL xform2L00 CCTK_ATTRIBUTE_UNUSED = csetemp9*(-1 + 
      boostx*shiftaddx + boosty*shiftaddy + boostz*shiftaddz)*(1 - csetemp6 - 
      csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L01 CCTK_ATTRIBUTE_UNUSED = boostx*csetemp9*(1 - 
      csetemp6 - csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L02 CCTK_ATTRIBUTE_UNUSED = boosty*csetemp9*(1 - 
      csetemp6 - csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L03 CCTK_ATTRIBUTE_UNUSED = boostz*csetemp9*(1 - 
      csetemp6 - csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L10 CCTK_ATTRIBUTE_UNUSED = (-(boostx*(-1 + csetemp6 + 
      csetemp7 + csetemp8 + (-1 + boosty*shiftaddy + boostz*shiftaddz)*pow(1 
      - csetemp6 - csetemp7 - csetemp8,0.5))) + shiftaddx*(csetemp6 + (-1 + 
      csetemp7 + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L11 CCTK_ATTRIBUTE_UNUSED = (csetemp6 + (-1 + csetemp7 
      + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - csetemp8,0.5)))*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + pow(1 - csetemp6 - csetemp7 
      - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L12 CCTK_ATTRIBUTE_UNUSED = -(boostx*boosty*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L13 CCTK_ATTRIBUTE_UNUSED = -(boostx*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L20 CCTK_ATTRIBUTE_UNUSED = (-(boosty*(-1 + csetemp6 + 
      csetemp7 + csetemp8 + (-1 + boostx*shiftaddx + boostz*shiftaddz)*pow(1 
      - csetemp6 - csetemp7 - csetemp8,0.5))) + shiftaddy*(csetemp7 + (-1 + 
      csetemp6 + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L21 CCTK_ATTRIBUTE_UNUSED = -(boostx*boosty*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L22 CCTK_ATTRIBUTE_UNUSED = (csetemp7 + (-1 + csetemp6 
      + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - csetemp8,0.5)))*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + pow(1 - csetemp6 - csetemp7 
      - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L23 CCTK_ATTRIBUTE_UNUSED = -(boosty*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L30 CCTK_ATTRIBUTE_UNUSED = (shiftaddz*(-1 + csetemp6 
      + csetemp7 + csetemp8 + (-1 + csetemp6 + csetemp7)*pow(1 - csetemp6 - 
      csetemp7 - csetemp8,0.5)) - boostz*(-1 + csetemp6 + csetemp7 + csetemp8 
      + (-1 + boostx*shiftaddx + boosty*shiftaddy)*pow(1 - csetemp6 - 
      csetemp7 - csetemp8,0.5)))*pow(-1 + csetemp6 + csetemp7 + 
      csetemp8,-1)*pow(1 + pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L31 CCTK_ATTRIBUTE_UNUSED = -(boostx*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L32 CCTK_ATTRIBUTE_UNUSED = -(boosty*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L33 CCTK_ATTRIBUTE_UNUSED = (-1 + csetemp6 + csetemp7 
      + csetemp8 + (-1 + csetemp6 + csetemp7)*pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xformL00 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L00 + 
      xform1L01*xform2L10 + xform1L02*xform2L20 + xform1L03*xform2L30;
    
    CCTK_REAL xformL01 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L01 + 
      xform1L01*xform2L11 + xform1L02*xform2L21 + xform1L03*xform2L31;
    
    CCTK_REAL xformL02 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L02 + 
      xform1L01*xform2L12 + xform1L02*xform2L22 + xform1L03*xform2L32;
    
    CCTK_REAL xformL03 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L03 + 
      xform1L01*xform2L13 + xform1L02*xform2L23 + xform1L03*xform2L33;
    
    CCTK_REAL xformL10 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L00 + 
      xform1L11*xform2L10 + xform1L12*xform2L20 + xform1L13*xform2L30;
    
    CCTK_REAL xformL11 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L01 + 
      xform1L11*xform2L11 + xform1L12*xform2L21 + xform1L13*xform2L31;
    
    CCTK_REAL xformL12 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L02 + 
      xform1L11*xform2L12 + xform1L12*xform2L22 + xform1L13*xform2L32;
    
    CCTK_REAL xformL13 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L03 + 
      xform1L11*xform2L13 + xform1L12*xform2L23 + xform1L13*xform2L33;
    
    CCTK_REAL xformL20 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L00 + 
      xform1L21*xform2L10 + xform1L22*xform2L20 + xform1L23*xform2L30;
    
    CCTK_REAL xformL21 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L01 + 
      xform1L21*xform2L11 + xform1L22*xform2L21 + xform1L23*xform2L31;
    
    CCTK_REAL xformL22 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L02 + 
      xform1L21*xform2L12 + xform1L22*xform2L22 + xform1L23*xform2L32;
    
    CCTK_REAL xformL23 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L03 + 
      xform1L21*xform2L13 + xform1L22*xform2L23 + xform1L23*xform2L33;
    
    CCTK_REAL xformL30 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L00 + 
      xform1L31*xform2L10 + xform1L32*xform2L20 + xform1L33*xform2L30;
    
    CCTK_REAL xformL31 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L01 + 
      xform1L31*xform2L11 + xform1L32*xform2L21 + xform1L33*xform2L31;
    
    CCTK_REAL xformL32 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L02 + 
      xform1L31*xform2L12 + xform1L32*xform2L22 + xform1L33*xform2L32;
    
    CCTK_REAL xformL33 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L03 + 
      xform1L31*xform2L13 + xform1L32*xform2L23 + xform1L33*xform2L33;
    
    CCTK_REAL xx0 CCTK_ATTRIBUTE_UNUSED = t - timeoffset;
    
    CCTK_REAL xx1 CCTK_ATTRIBUTE_UNUSED = xL - positionx;
    
    CCTK_REAL xx2 CCTK_ATTRIBUTE_UNUSED = yL - positiony;
    
    CCTK_REAL xx3 CCTK_ATTRIBUTE_UNUSED = zL - positionz;
    
    CCTK_REAL txx1 CCTK_ATTRIBUTE_UNUSED = xformL10*xx0 + xformL11*xx1 + 
      xformL12*xx2 + xformL13*xx3;
    
    CCTK_REAL txx2 CCTK_ATTRIBUTE_UNUSED = xformL20*xx0 + xformL21*xx1 + 
      xformL22*xx2 + xformL23*xx3;
    
    CCTK_REAL txx3 CCTK_ATTRIBUTE_UNUSED = xformL30*xx0 + xformL31*xx1 + 
      xformL32*xx2 + xformL33*xx3;
    
    CCTK_REAL X CCTK_ATTRIBUTE_UNUSED = txx1;
    
    CCTK_REAL Y CCTK_ATTRIBUTE_UNUSED = txx2;
    
    CCTK_REAL Z CCTK_ATTRIBUTE_UNUSED = txx3;
    
    CCTK_REAL rXYZ CCTK_ATTRIBUTE_UNUSED = pow(pow(X,2) + pow(Y,2) + 
      pow(Z,2),0.5);
    
    CCTK_REAL tg400 CCTK_ATTRIBUTE_UNUSED = -1;
    
    CCTK_REAL tg401 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg402 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg403 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp10 CCTK_ATTRIBUTE_UNUSED = 0.5*M;
    
    CCTK_REAL csetemp11 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,-1);
    
    CCTK_REAL csetemp12 CCTK_ATTRIBUTE_UNUSED = pow(M,-1);
    
    CCTK_REAL csetemp13 CCTK_ATTRIBUTE_UNUSED = pow(M,2);
    
    CCTK_REAL csetemp14 CCTK_ATTRIBUTE_UNUSED = pow(Pi,-2);
    
    CCTK_REAL tg411 CCTK_ATTRIBUTE_UNUSED = 0.00390625*pow(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*pow(fmin(csetemp10,rXYZ),2))),4);
    
    CCTK_REAL tg412 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg413 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg422 CCTK_ATTRIBUTE_UNUSED = 0.00390625*pow(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*pow(fmin(csetemp10,rXYZ),2))),4);
    
    CCTK_REAL tg423 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg433 CCTK_ATTRIBUTE_UNUSED = 0.00390625*pow(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*pow(fmin(csetemp10,rXYZ),2))),4);
    
    CCTK_REAL tdg4000 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4001 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4002 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4003 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4010 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4011 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4012 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4013 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4020 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4021 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4022 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4023 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4030 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4031 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4032 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4033 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4110 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp15 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,-6);
    
    CCTK_REAL csetemp16 CCTK_ATTRIBUTE_UNUSED = 2*rXYZ;
    
    CCTK_REAL csetemp17 CCTK_ATTRIBUTE_UNUSED = pow(M,-4);
    
    CCTK_REAL csetemp18 CCTK_ATTRIBUTE_UNUSED = pow(Pi,-8);
    
    CCTK_REAL csetemp19 CCTK_ATTRIBUTE_UNUSED = pow(Pi,2);
    
    CCTK_REAL csetemp20 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,2);
    
    CCTK_REAL tdg4111 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*X*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*X*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4112 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Y*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Y*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4113 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Z*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Z*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4120 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4121 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4122 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4123 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4130 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4131 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4132 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4133 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4220 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4221 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*X*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*X*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4222 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Y*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Y*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4223 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Z*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Z*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4230 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4231 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4232 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4233 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4330 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4331 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*X*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*X*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4332 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Y*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Y*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4333 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Z*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Z*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL g400 CCTK_ATTRIBUTE_UNUSED = 2*(tg423*xformL20*xformL30 + 
      xformL00*(tg401*xformL10 + tg402*xformL20 + tg403*xformL30) + 
      xformL10*(tg412*xformL20 + tg413*xformL30)) + tg400*pow(xformL00,2) + 
      tg411*pow(xformL10,2) + tg422*pow(xformL20,2) + tg433*pow(xformL30,2);
    
    CCTK_REAL csetemp21 CCTK_ATTRIBUTE_UNUSED = tg400*xformL01;
    
    CCTK_REAL csetemp22 CCTK_ATTRIBUTE_UNUSED = tg401*xformL11;
    
    CCTK_REAL csetemp23 CCTK_ATTRIBUTE_UNUSED = tg402*xformL21;
    
    CCTK_REAL csetemp24 CCTK_ATTRIBUTE_UNUSED = tg403*xformL31;
    
    CCTK_REAL csetemp25 CCTK_ATTRIBUTE_UNUSED = tg401*xformL01;
    
    CCTK_REAL csetemp26 CCTK_ATTRIBUTE_UNUSED = tg411*xformL11;
    
    CCTK_REAL csetemp27 CCTK_ATTRIBUTE_UNUSED = tg412*xformL21;
    
    CCTK_REAL csetemp28 CCTK_ATTRIBUTE_UNUSED = tg413*xformL31;
    
    CCTK_REAL csetemp29 CCTK_ATTRIBUTE_UNUSED = tg402*xformL01;
    
    CCTK_REAL csetemp30 CCTK_ATTRIBUTE_UNUSED = tg412*xformL11;
    
    CCTK_REAL csetemp31 CCTK_ATTRIBUTE_UNUSED = tg422*xformL21;
    
    CCTK_REAL csetemp32 CCTK_ATTRIBUTE_UNUSED = tg423*xformL31;
    
    CCTK_REAL csetemp33 CCTK_ATTRIBUTE_UNUSED = tg403*xformL01;
    
    CCTK_REAL csetemp34 CCTK_ATTRIBUTE_UNUSED = tg413*xformL11;
    
    CCTK_REAL csetemp35 CCTK_ATTRIBUTE_UNUSED = tg423*xformL21;
    
    CCTK_REAL csetemp36 CCTK_ATTRIBUTE_UNUSED = tg433*xformL31;
    
    CCTK_REAL g401 CCTK_ATTRIBUTE_UNUSED = (csetemp21 + csetemp22 + 
      csetemp23 + csetemp24)*xformL00 + (csetemp25 + csetemp26 + csetemp27 + 
      csetemp28)*xformL10 + (csetemp29 + csetemp30 + csetemp31 + 
      csetemp32)*xformL20 + (csetemp33 + csetemp34 + csetemp35 + 
      csetemp36)*xformL30;
    
    CCTK_REAL csetemp37 CCTK_ATTRIBUTE_UNUSED = tg400*xformL02;
    
    CCTK_REAL csetemp38 CCTK_ATTRIBUTE_UNUSED = tg401*xformL12;
    
    CCTK_REAL csetemp39 CCTK_ATTRIBUTE_UNUSED = tg402*xformL22;
    
    CCTK_REAL csetemp40 CCTK_ATTRIBUTE_UNUSED = tg403*xformL32;
    
    CCTK_REAL csetemp41 CCTK_ATTRIBUTE_UNUSED = tg401*xformL02;
    
    CCTK_REAL csetemp42 CCTK_ATTRIBUTE_UNUSED = tg411*xformL12;
    
    CCTK_REAL csetemp43 CCTK_ATTRIBUTE_UNUSED = tg412*xformL22;
    
    CCTK_REAL csetemp44 CCTK_ATTRIBUTE_UNUSED = tg413*xformL32;
    
    CCTK_REAL csetemp45 CCTK_ATTRIBUTE_UNUSED = tg402*xformL02;
    
    CCTK_REAL csetemp46 CCTK_ATTRIBUTE_UNUSED = tg412*xformL12;
    
    CCTK_REAL csetemp47 CCTK_ATTRIBUTE_UNUSED = tg422*xformL22;
    
    CCTK_REAL csetemp48 CCTK_ATTRIBUTE_UNUSED = tg423*xformL32;
    
    CCTK_REAL csetemp49 CCTK_ATTRIBUTE_UNUSED = tg403*xformL02;
    
    CCTK_REAL csetemp50 CCTK_ATTRIBUTE_UNUSED = tg413*xformL12;
    
    CCTK_REAL csetemp51 CCTK_ATTRIBUTE_UNUSED = tg423*xformL22;
    
    CCTK_REAL csetemp52 CCTK_ATTRIBUTE_UNUSED = tg433*xformL32;
    
    CCTK_REAL g402 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL00 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL10 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL20 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL30;
    
    CCTK_REAL csetemp53 CCTK_ATTRIBUTE_UNUSED = tg400*xformL03;
    
    CCTK_REAL csetemp54 CCTK_ATTRIBUTE_UNUSED = tg401*xformL13;
    
    CCTK_REAL csetemp55 CCTK_ATTRIBUTE_UNUSED = tg402*xformL23;
    
    CCTK_REAL csetemp56 CCTK_ATTRIBUTE_UNUSED = tg403*xformL33;
    
    CCTK_REAL csetemp57 CCTK_ATTRIBUTE_UNUSED = tg401*xformL03;
    
    CCTK_REAL csetemp58 CCTK_ATTRIBUTE_UNUSED = tg411*xformL13;
    
    CCTK_REAL csetemp59 CCTK_ATTRIBUTE_UNUSED = tg412*xformL23;
    
    CCTK_REAL csetemp60 CCTK_ATTRIBUTE_UNUSED = tg413*xformL33;
    
    CCTK_REAL csetemp61 CCTK_ATTRIBUTE_UNUSED = tg402*xformL03;
    
    CCTK_REAL csetemp62 CCTK_ATTRIBUTE_UNUSED = tg412*xformL13;
    
    CCTK_REAL csetemp63 CCTK_ATTRIBUTE_UNUSED = tg422*xformL23;
    
    CCTK_REAL csetemp64 CCTK_ATTRIBUTE_UNUSED = tg423*xformL33;
    
    CCTK_REAL csetemp65 CCTK_ATTRIBUTE_UNUSED = tg403*xformL03;
    
    CCTK_REAL csetemp66 CCTK_ATTRIBUTE_UNUSED = tg413*xformL13;
    
    CCTK_REAL csetemp67 CCTK_ATTRIBUTE_UNUSED = tg423*xformL23;
    
    CCTK_REAL csetemp68 CCTK_ATTRIBUTE_UNUSED = tg433*xformL33;
    
    CCTK_REAL g403 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL00 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL10 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL20 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL30;
    
    CCTK_REAL g411 CCTK_ATTRIBUTE_UNUSED = (csetemp21 + csetemp22 + 
      csetemp23 + csetemp24)*xformL01 + (csetemp25 + csetemp26 + csetemp27 + 
      csetemp28)*xformL11 + (csetemp29 + csetemp30 + csetemp31 + 
      csetemp32)*xformL21 + (csetemp33 + csetemp34 + csetemp35 + 
      csetemp36)*xformL31;
    
    CCTK_REAL g412 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL01 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL11 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL21 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL31;
    
    CCTK_REAL g413 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL01 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL11 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL21 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL31;
    
    CCTK_REAL g422 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL02 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL12 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL22 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL32;
    
    CCTK_REAL g423 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL02 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL12 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL22 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL32;
    
    CCTK_REAL g433 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL03 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL13 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL23 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL33;
    
    CCTK_REAL csetemp69 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL00;
    
    CCTK_REAL csetemp70 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL10;
    
    CCTK_REAL csetemp71 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL20;
    
    CCTK_REAL csetemp72 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL30;
    
    CCTK_REAL csetemp73 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL00;
    
    CCTK_REAL csetemp74 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL10;
    
    CCTK_REAL csetemp75 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL20;
    
    CCTK_REAL csetemp76 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL30;
    
    CCTK_REAL csetemp77 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL00;
    
    CCTK_REAL csetemp78 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL10;
    
    CCTK_REAL csetemp79 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL20;
    
    CCTK_REAL csetemp80 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL30;
    
    CCTK_REAL csetemp81 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL00;
    
    CCTK_REAL csetemp82 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL10;
    
    CCTK_REAL csetemp83 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL20;
    
    CCTK_REAL csetemp84 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL30;
    
    CCTK_REAL csetemp85 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL00;
    
    CCTK_REAL csetemp86 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL10;
    
    CCTK_REAL csetemp87 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL20;
    
    CCTK_REAL csetemp88 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL30;
    
    CCTK_REAL csetemp89 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL00;
    
    CCTK_REAL csetemp90 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL10;
    
    CCTK_REAL csetemp91 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL20;
    
    CCTK_REAL csetemp92 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL30;
    
    CCTK_REAL csetemp93 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL00;
    
    CCTK_REAL csetemp94 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL10;
    
    CCTK_REAL csetemp95 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL20;
    
    CCTK_REAL csetemp96 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL30;
    
    CCTK_REAL csetemp97 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL00;
    
    CCTK_REAL csetemp98 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL10;
    
    CCTK_REAL csetemp99 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL20;
    
    CCTK_REAL csetemp100 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL30;
    
    CCTK_REAL csetemp101 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL00;
    
    CCTK_REAL csetemp102 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL10;
    
    CCTK_REAL csetemp103 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL20;
    
    CCTK_REAL csetemp104 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL30;
    
    CCTK_REAL csetemp105 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL00;
    
    CCTK_REAL csetemp106 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL10;
    
    CCTK_REAL csetemp107 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL20;
    
    CCTK_REAL csetemp108 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL30;
    
    CCTK_REAL dg4000 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL00 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL10 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL20 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL30) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL00 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL10 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL20 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL30) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL00 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL10 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL20 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL30) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL00 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL10 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL20 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL30);
    
    CCTK_REAL dg4010 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL01 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL11 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL21 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL31) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL01 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL11 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL21 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL31) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL01 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL11 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL21 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL31) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL01 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL11 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL21 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL31);
    
    CCTK_REAL csetemp109 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL01;
    
    CCTK_REAL csetemp110 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL11;
    
    CCTK_REAL csetemp111 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL21;
    
    CCTK_REAL csetemp112 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL31;
    
    CCTK_REAL csetemp113 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL01;
    
    CCTK_REAL csetemp114 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL11;
    
    CCTK_REAL csetemp115 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL21;
    
    CCTK_REAL csetemp116 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL31;
    
    CCTK_REAL csetemp117 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL01;
    
    CCTK_REAL csetemp118 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL11;
    
    CCTK_REAL csetemp119 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL21;
    
    CCTK_REAL csetemp120 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL31;
    
    CCTK_REAL csetemp121 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL01;
    
    CCTK_REAL csetemp122 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL11;
    
    CCTK_REAL csetemp123 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL21;
    
    CCTK_REAL csetemp124 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL31;
    
    CCTK_REAL csetemp125 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL01;
    
    CCTK_REAL csetemp126 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL11;
    
    CCTK_REAL csetemp127 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL21;
    
    CCTK_REAL csetemp128 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL31;
    
    CCTK_REAL csetemp129 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL01;
    
    CCTK_REAL csetemp130 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL11;
    
    CCTK_REAL csetemp131 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL21;
    
    CCTK_REAL csetemp132 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL31;
    
    CCTK_REAL csetemp133 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL01;
    
    CCTK_REAL csetemp134 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL11;
    
    CCTK_REAL csetemp135 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL21;
    
    CCTK_REAL csetemp136 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL31;
    
    CCTK_REAL csetemp137 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL01;
    
    CCTK_REAL csetemp138 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL11;
    
    CCTK_REAL csetemp139 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL21;
    
    CCTK_REAL csetemp140 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL31;
    
    CCTK_REAL csetemp141 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL01;
    
    CCTK_REAL csetemp142 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL11;
    
    CCTK_REAL csetemp143 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL21;
    
    CCTK_REAL csetemp144 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL31;
    
    CCTK_REAL csetemp145 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL01;
    
    CCTK_REAL csetemp146 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL11;
    
    CCTK_REAL csetemp147 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL21;
    
    CCTK_REAL csetemp148 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL31;
    
    CCTK_REAL dg4011 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL01 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL11 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL21 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL31) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL01 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL11 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL21 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL31) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL01 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL11 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL21 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL31) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL01 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL11 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL21 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL31);
    
    CCTK_REAL csetemp149 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL02;
    
    CCTK_REAL csetemp150 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL12;
    
    CCTK_REAL csetemp151 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL22;
    
    CCTK_REAL csetemp152 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL32;
    
    CCTK_REAL csetemp153 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL02;
    
    CCTK_REAL csetemp154 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL12;
    
    CCTK_REAL csetemp155 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL22;
    
    CCTK_REAL csetemp156 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL32;
    
    CCTK_REAL csetemp157 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL02;
    
    CCTK_REAL csetemp158 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL12;
    
    CCTK_REAL csetemp159 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL22;
    
    CCTK_REAL csetemp160 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL32;
    
    CCTK_REAL csetemp161 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL02;
    
    CCTK_REAL csetemp162 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL12;
    
    CCTK_REAL csetemp163 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL22;
    
    CCTK_REAL csetemp164 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL32;
    
    CCTK_REAL csetemp165 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL02;
    
    CCTK_REAL csetemp166 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL12;
    
    CCTK_REAL csetemp167 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL22;
    
    CCTK_REAL csetemp168 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL32;
    
    CCTK_REAL csetemp169 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL02;
    
    CCTK_REAL csetemp170 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL12;
    
    CCTK_REAL csetemp171 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL22;
    
    CCTK_REAL csetemp172 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL32;
    
    CCTK_REAL csetemp173 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL02;
    
    CCTK_REAL csetemp174 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL12;
    
    CCTK_REAL csetemp175 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL22;
    
    CCTK_REAL csetemp176 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL32;
    
    CCTK_REAL csetemp177 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL02;
    
    CCTK_REAL csetemp178 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL12;
    
    CCTK_REAL csetemp179 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL22;
    
    CCTK_REAL csetemp180 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL32;
    
    CCTK_REAL csetemp181 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL02;
    
    CCTK_REAL csetemp182 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL12;
    
    CCTK_REAL csetemp183 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL22;
    
    CCTK_REAL csetemp184 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL32;
    
    CCTK_REAL csetemp185 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL02;
    
    CCTK_REAL csetemp186 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL12;
    
    CCTK_REAL csetemp187 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL22;
    
    CCTK_REAL csetemp188 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL32;
    
    CCTK_REAL dg4012 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL01 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL11 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL21 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL31) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL01 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL11 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL21 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL31) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL01 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL11 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL21 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL31) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL01 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL11 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL21 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL31);
    
    CCTK_REAL csetemp189 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL03;
    
    CCTK_REAL csetemp190 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL13;
    
    CCTK_REAL csetemp191 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL23;
    
    CCTK_REAL csetemp192 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL33;
    
    CCTK_REAL csetemp193 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL03;
    
    CCTK_REAL csetemp194 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL13;
    
    CCTK_REAL csetemp195 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL23;
    
    CCTK_REAL csetemp196 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL33;
    
    CCTK_REAL csetemp197 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL03;
    
    CCTK_REAL csetemp198 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL13;
    
    CCTK_REAL csetemp199 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL23;
    
    CCTK_REAL csetemp200 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL33;
    
    CCTK_REAL csetemp201 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL03;
    
    CCTK_REAL csetemp202 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL13;
    
    CCTK_REAL csetemp203 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL23;
    
    CCTK_REAL csetemp204 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL33;
    
    CCTK_REAL csetemp205 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL03;
    
    CCTK_REAL csetemp206 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL13;
    
    CCTK_REAL csetemp207 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL23;
    
    CCTK_REAL csetemp208 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL33;
    
    CCTK_REAL csetemp209 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL03;
    
    CCTK_REAL csetemp210 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL13;
    
    CCTK_REAL csetemp211 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL23;
    
    CCTK_REAL csetemp212 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL33;
    
    CCTK_REAL csetemp213 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL03;
    
    CCTK_REAL csetemp214 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL13;
    
    CCTK_REAL csetemp215 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL23;
    
    CCTK_REAL csetemp216 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL33;
    
    CCTK_REAL csetemp217 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL03;
    
    CCTK_REAL csetemp218 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL13;
    
    CCTK_REAL csetemp219 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL23;
    
    CCTK_REAL csetemp220 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL33;
    
    CCTK_REAL csetemp221 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL03;
    
    CCTK_REAL csetemp222 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL13;
    
    CCTK_REAL csetemp223 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL23;
    
    CCTK_REAL csetemp224 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL33;
    
    CCTK_REAL csetemp225 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL03;
    
    CCTK_REAL csetemp226 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL13;
    
    CCTK_REAL csetemp227 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL23;
    
    CCTK_REAL csetemp228 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL33;
    
    CCTK_REAL dg4013 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL01 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL11 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL21 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL31) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL01 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL11 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL21 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL31) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL01 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL11 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL21 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL31) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL01 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL11 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL21 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL31);
    
    CCTK_REAL dg4020 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4021 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4022 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4023 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4030 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4031 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4032 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4033 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4110 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL01 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL11 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL21 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL31) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL01 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL11 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL21 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL31) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL01 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL11 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL21 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL31) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL01 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL11 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL21 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL31);
    
    CCTK_REAL dg4111 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL01 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL11 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL21 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL31) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL01 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL11 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL21 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL31) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL01 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL11 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL21 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL31) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL01 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL11 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL21 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL31);
    
    CCTK_REAL dg4112 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL01 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL11 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL21 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL31) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL01 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL11 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL21 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL31) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL01 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL11 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL21 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL31) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL01 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL11 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL21 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL31);
    
    CCTK_REAL dg4113 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL01 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL11 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL21 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL31) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL01 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL11 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL21 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL31) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL01 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL11 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL21 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL31) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL01 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL11 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL21 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL31);
    
    CCTK_REAL dg4120 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4121 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4122 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4123 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4130 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4131 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4132 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4133 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4220 CCTK_ATTRIBUTE_UNUSED = xformL22*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL32*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL02*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL12*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4221 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL12*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL22*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL32*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4222 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL12*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL22*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL32*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4223 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL12*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL22*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL32*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4230 CCTK_ATTRIBUTE_UNUSED = xformL22*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL32*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL02*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL12*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4231 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL12*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL22*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL32*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4232 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL12*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL22*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL32*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4233 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL12*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL22*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL32*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4330 CCTK_ATTRIBUTE_UNUSED = xformL23*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL33*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL03*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL13*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4331 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL13*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL23*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL33*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4332 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL13*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL23*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL33*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4333 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL13*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL23*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL33*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL betal1 CCTK_ATTRIBUTE_UNUSED = g401;
    
    CCTK_REAL betal2 CCTK_ATTRIBUTE_UNUSED = g402;
    
    CCTK_REAL betal3 CCTK_ATTRIBUTE_UNUSED = g403;
    
    gxxL = g411;
    
    gxyL = g412;
    
    gxzL = g413;
    
    gyyL = g422;
    
    gyzL = g423;
    
    gzzL = g433;
    
    CCTK_REAL csetemp229 CCTK_ATTRIBUTE_UNUSED = pow(gxzL,2);
    
    CCTK_REAL csetemp230 CCTK_ATTRIBUTE_UNUSED = pow(gyzL,2);
    
    CCTK_REAL csetemp231 CCTK_ATTRIBUTE_UNUSED = pow(gxyL,2);
    
    CCTK_REAL detg CCTK_ATTRIBUTE_UNUSED = 2*gxyL*gxzL*gyzL + 
      gyyL*(gxxL*gzzL - csetemp229) - gxxL*csetemp230 - gzzL*csetemp231;
    
    CCTK_REAL csetemp232 CCTK_ATTRIBUTE_UNUSED = pow(detg,-1);
    
    CCTK_REAL gu11 CCTK_ATTRIBUTE_UNUSED = (gyyL*gzzL - 
      csetemp230)*csetemp232;
    
    CCTK_REAL gu12 CCTK_ATTRIBUTE_UNUSED = (gxzL*gyzL - 
      gxyL*gzzL)*csetemp232;
    
    CCTK_REAL gu13 CCTK_ATTRIBUTE_UNUSED = (-(gxzL*gyyL) + 
      gxyL*gyzL)*csetemp232;
    
    CCTK_REAL gu22 CCTK_ATTRIBUTE_UNUSED = (gxxL*gzzL - 
      csetemp229)*csetemp232;
    
    CCTK_REAL gu23 CCTK_ATTRIBUTE_UNUSED = (gxyL*gxzL - 
      gxxL*gyzL)*csetemp232;
    
    CCTK_REAL gu33 CCTK_ATTRIBUTE_UNUSED = (gxxL*gyyL - 
      csetemp231)*csetemp232;
    
    betaxL = betal1*gu11 + betal2*gu12 + betal3*gu13;
    
    betayL = betal1*gu12 + betal2*gu22 + betal3*gu23;
    
    betazL = betal1*gu13 + betal2*gu23 + betal3*gu33;
    
    CCTK_REAL betasq CCTK_ATTRIBUTE_UNUSED = betaxL*betal1 + betayL*betal2 
      + betazL*betal3;
    
    alpL = pow(betasq - g400,0.5);
    
    CCTK_REAL dtg11 CCTK_ATTRIBUTE_UNUSED = dg4110;
    
    CCTK_REAL dtg12 CCTK_ATTRIBUTE_UNUSED = dg4120;
    
    CCTK_REAL dtg13 CCTK_ATTRIBUTE_UNUSED = dg4130;
    
    CCTK_REAL dtg22 CCTK_ATTRIBUTE_UNUSED = dg4220;
    
    CCTK_REAL dtg23 CCTK_ATTRIBUTE_UNUSED = dg4230;
    
    CCTK_REAL dtg33 CCTK_ATTRIBUTE_UNUSED = dg4330;
    
    CCTK_REAL dg111 CCTK_ATTRIBUTE_UNUSED = dg4111;
    
    CCTK_REAL dg112 CCTK_ATTRIBUTE_UNUSED = dg4112;
    
    CCTK_REAL dg113 CCTK_ATTRIBUTE_UNUSED = dg4113;
    
    CCTK_REAL dg121 CCTK_ATTRIBUTE_UNUSED = dg4121;
    
    CCTK_REAL dg122 CCTK_ATTRIBUTE_UNUSED = dg4122;
    
    CCTK_REAL dg123 CCTK_ATTRIBUTE_UNUSED = dg4123;
    
    CCTK_REAL dg131 CCTK_ATTRIBUTE_UNUSED = dg4131;
    
    CCTK_REAL dg132 CCTK_ATTRIBUTE_UNUSED = dg4132;
    
    CCTK_REAL dg133 CCTK_ATTRIBUTE_UNUSED = dg4133;
    
    CCTK_REAL dg221 CCTK_ATTRIBUTE_UNUSED = dg4221;
    
    CCTK_REAL dg222 CCTK_ATTRIBUTE_UNUSED = dg4222;
    
    CCTK_REAL dg223 CCTK_ATTRIBUTE_UNUSED = dg4223;
    
    CCTK_REAL dg231 CCTK_ATTRIBUTE_UNUSED = dg4231;
    
    CCTK_REAL dg232 CCTK_ATTRIBUTE_UNUSED = dg4232;
    
    CCTK_REAL dg233 CCTK_ATTRIBUTE_UNUSED = dg4233;
    
    CCTK_REAL dg331 CCTK_ATTRIBUTE_UNUSED = dg4331;
    
    CCTK_REAL dg332 CCTK_ATTRIBUTE_UNUSED = dg4332;
    
    CCTK_REAL dg333 CCTK_ATTRIBUTE_UNUSED = dg4333;
    
    CCTK_REAL csetemp233 CCTK_ATTRIBUTE_UNUSED = dtg11*gu11;
    
    CCTK_REAL csetemp234 CCTK_ATTRIBUTE_UNUSED = dtg12*gu12;
    
    CCTK_REAL csetemp235 CCTK_ATTRIBUTE_UNUSED = dtg13*gu13;
    
    CCTK_REAL csetemp236 CCTK_ATTRIBUTE_UNUSED = dtg12*gu11;
    
    CCTK_REAL csetemp237 CCTK_ATTRIBUTE_UNUSED = dtg22*gu12;
    
    CCTK_REAL csetemp238 CCTK_ATTRIBUTE_UNUSED = dtg23*gu13;
    
    CCTK_REAL csetemp239 CCTK_ATTRIBUTE_UNUSED = dtg13*gu11;
    
    CCTK_REAL csetemp240 CCTK_ATTRIBUTE_UNUSED = dtg23*gu12;
    
    CCTK_REAL csetemp241 CCTK_ATTRIBUTE_UNUSED = dtg33*gu13;
    
    CCTK_REAL dtgu11 CCTK_ATTRIBUTE_UNUSED = -((csetemp233 + csetemp234 + 
      csetemp235)*gu11) - (csetemp236 + csetemp237 + csetemp238)*gu12 - 
      (csetemp239 + csetemp240 + csetemp241)*gu13;
    
    CCTK_REAL dtgu12 CCTK_ATTRIBUTE_UNUSED = -((csetemp233 + csetemp234 + 
      csetemp235)*gu12) - (csetemp236 + csetemp237 + csetemp238)*gu22 - 
      (csetemp239 + csetemp240 + csetemp241)*gu23;
    
    CCTK_REAL dtgu13 CCTK_ATTRIBUTE_UNUSED = -((csetemp233 + csetemp234 + 
      csetemp235)*gu13) - (csetemp236 + csetemp237 + csetemp238)*gu23 - 
      (csetemp239 + csetemp240 + csetemp241)*gu33;
    
    CCTK_REAL csetemp242 CCTK_ATTRIBUTE_UNUSED = dtg11*gu12;
    
    CCTK_REAL csetemp243 CCTK_ATTRIBUTE_UNUSED = dtg12*gu22;
    
    CCTK_REAL csetemp244 CCTK_ATTRIBUTE_UNUSED = dtg13*gu23;
    
    CCTK_REAL csetemp245 CCTK_ATTRIBUTE_UNUSED = dtg22*gu22;
    
    CCTK_REAL csetemp246 CCTK_ATTRIBUTE_UNUSED = dtg23*gu23;
    
    CCTK_REAL csetemp247 CCTK_ATTRIBUTE_UNUSED = dtg13*gu12;
    
    CCTK_REAL csetemp248 CCTK_ATTRIBUTE_UNUSED = dtg23*gu22;
    
    CCTK_REAL csetemp249 CCTK_ATTRIBUTE_UNUSED = dtg33*gu23;
    
    CCTK_REAL dtgu22 CCTK_ATTRIBUTE_UNUSED = -((csetemp242 + csetemp243 + 
      csetemp244)*gu12) - (csetemp234 + csetemp245 + csetemp246)*gu22 - 
      (csetemp247 + csetemp248 + csetemp249)*gu23;
    
    CCTK_REAL dtgu23 CCTK_ATTRIBUTE_UNUSED = -((csetemp242 + csetemp243 + 
      csetemp244)*gu13) - (csetemp234 + csetemp245 + csetemp246)*gu23 - 
      (csetemp247 + csetemp248 + csetemp249)*gu33;
    
    CCTK_REAL dtgu33 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dtg11*gu13 + 
      dtg12*gu23 + dtg13*gu33)) - gu23*(dtg12*gu13 + dtg22*gu23 + dtg23*gu33) 
      - gu33*(csetemp235 + csetemp246 + dtg33*gu33);
    
    CCTK_REAL csetemp250 CCTK_ATTRIBUTE_UNUSED = dg111*gu11;
    
    CCTK_REAL csetemp251 CCTK_ATTRIBUTE_UNUSED = dg121*gu12;
    
    CCTK_REAL csetemp252 CCTK_ATTRIBUTE_UNUSED = dg131*gu13;
    
    CCTK_REAL csetemp253 CCTK_ATTRIBUTE_UNUSED = dg121*gu11;
    
    CCTK_REAL csetemp254 CCTK_ATTRIBUTE_UNUSED = dg221*gu12;
    
    CCTK_REAL csetemp255 CCTK_ATTRIBUTE_UNUSED = dg231*gu13;
    
    CCTK_REAL csetemp256 CCTK_ATTRIBUTE_UNUSED = dg131*gu11;
    
    CCTK_REAL csetemp257 CCTK_ATTRIBUTE_UNUSED = dg231*gu12;
    
    CCTK_REAL csetemp258 CCTK_ATTRIBUTE_UNUSED = dg331*gu13;
    
    CCTK_REAL dgu111 CCTK_ATTRIBUTE_UNUSED = -((csetemp250 + csetemp251 + 
      csetemp252)*gu11) - (csetemp253 + csetemp254 + csetemp255)*gu12 - 
      (csetemp256 + csetemp257 + csetemp258)*gu13;
    
    CCTK_REAL dgu121 CCTK_ATTRIBUTE_UNUSED = -((csetemp250 + csetemp251 + 
      csetemp252)*gu12) - (csetemp253 + csetemp254 + csetemp255)*gu22 - 
      (csetemp256 + csetemp257 + csetemp258)*gu23;
    
    CCTK_REAL dgu131 CCTK_ATTRIBUTE_UNUSED = -((csetemp250 + csetemp251 + 
      csetemp252)*gu13) - (csetemp253 + csetemp254 + csetemp255)*gu23 - 
      (csetemp256 + csetemp257 + csetemp258)*gu33;
    
    CCTK_REAL csetemp259 CCTK_ATTRIBUTE_UNUSED = dg111*gu12;
    
    CCTK_REAL csetemp260 CCTK_ATTRIBUTE_UNUSED = dg121*gu22;
    
    CCTK_REAL csetemp261 CCTK_ATTRIBUTE_UNUSED = dg131*gu23;
    
    CCTK_REAL csetemp262 CCTK_ATTRIBUTE_UNUSED = dg221*gu22;
    
    CCTK_REAL csetemp263 CCTK_ATTRIBUTE_UNUSED = dg231*gu23;
    
    CCTK_REAL csetemp264 CCTK_ATTRIBUTE_UNUSED = dg131*gu12;
    
    CCTK_REAL csetemp265 CCTK_ATTRIBUTE_UNUSED = dg231*gu22;
    
    CCTK_REAL csetemp266 CCTK_ATTRIBUTE_UNUSED = dg331*gu23;
    
    CCTK_REAL dgu221 CCTK_ATTRIBUTE_UNUSED = -((csetemp259 + csetemp260 + 
      csetemp261)*gu12) - (csetemp251 + csetemp262 + csetemp263)*gu22 - 
      (csetemp264 + csetemp265 + csetemp266)*gu23;
    
    CCTK_REAL dgu231 CCTK_ATTRIBUTE_UNUSED = -((csetemp259 + csetemp260 + 
      csetemp261)*gu13) - (csetemp251 + csetemp262 + csetemp263)*gu23 - 
      (csetemp264 + csetemp265 + csetemp266)*gu33;
    
    CCTK_REAL dgu331 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg111*gu13 + 
      dg121*gu23 + dg131*gu33)) - gu23*(dg121*gu13 + dg221*gu23 + dg231*gu33) 
      - gu33*(csetemp252 + csetemp263 + dg331*gu33);
    
    CCTK_REAL csetemp267 CCTK_ATTRIBUTE_UNUSED = dg112*gu11;
    
    CCTK_REAL csetemp268 CCTK_ATTRIBUTE_UNUSED = dg122*gu12;
    
    CCTK_REAL csetemp269 CCTK_ATTRIBUTE_UNUSED = dg132*gu13;
    
    CCTK_REAL csetemp270 CCTK_ATTRIBUTE_UNUSED = dg122*gu11;
    
    CCTK_REAL csetemp271 CCTK_ATTRIBUTE_UNUSED = dg222*gu12;
    
    CCTK_REAL csetemp272 CCTK_ATTRIBUTE_UNUSED = dg232*gu13;
    
    CCTK_REAL csetemp273 CCTK_ATTRIBUTE_UNUSED = dg132*gu11;
    
    CCTK_REAL csetemp274 CCTK_ATTRIBUTE_UNUSED = dg232*gu12;
    
    CCTK_REAL csetemp275 CCTK_ATTRIBUTE_UNUSED = dg332*gu13;
    
    CCTK_REAL dgu112 CCTK_ATTRIBUTE_UNUSED = -((csetemp267 + csetemp268 + 
      csetemp269)*gu11) - (csetemp270 + csetemp271 + csetemp272)*gu12 - 
      (csetemp273 + csetemp274 + csetemp275)*gu13;
    
    CCTK_REAL dgu122 CCTK_ATTRIBUTE_UNUSED = -((csetemp267 + csetemp268 + 
      csetemp269)*gu12) - (csetemp270 + csetemp271 + csetemp272)*gu22 - 
      (csetemp273 + csetemp274 + csetemp275)*gu23;
    
    CCTK_REAL dgu132 CCTK_ATTRIBUTE_UNUSED = -((csetemp267 + csetemp268 + 
      csetemp269)*gu13) - (csetemp270 + csetemp271 + csetemp272)*gu23 - 
      (csetemp273 + csetemp274 + csetemp275)*gu33;
    
    CCTK_REAL csetemp276 CCTK_ATTRIBUTE_UNUSED = dg112*gu12;
    
    CCTK_REAL csetemp277 CCTK_ATTRIBUTE_UNUSED = dg122*gu22;
    
    CCTK_REAL csetemp278 CCTK_ATTRIBUTE_UNUSED = dg132*gu23;
    
    CCTK_REAL csetemp279 CCTK_ATTRIBUTE_UNUSED = dg222*gu22;
    
    CCTK_REAL csetemp280 CCTK_ATTRIBUTE_UNUSED = dg232*gu23;
    
    CCTK_REAL csetemp281 CCTK_ATTRIBUTE_UNUSED = dg132*gu12;
    
    CCTK_REAL csetemp282 CCTK_ATTRIBUTE_UNUSED = dg232*gu22;
    
    CCTK_REAL csetemp283 CCTK_ATTRIBUTE_UNUSED = dg332*gu23;
    
    CCTK_REAL dgu222 CCTK_ATTRIBUTE_UNUSED = -((csetemp276 + csetemp277 + 
      csetemp278)*gu12) - (csetemp268 + csetemp279 + csetemp280)*gu22 - 
      (csetemp281 + csetemp282 + csetemp283)*gu23;
    
    CCTK_REAL dgu232 CCTK_ATTRIBUTE_UNUSED = -((csetemp276 + csetemp277 + 
      csetemp278)*gu13) - (csetemp268 + csetemp279 + csetemp280)*gu23 - 
      (csetemp281 + csetemp282 + csetemp283)*gu33;
    
    CCTK_REAL dgu332 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg112*gu13 + 
      dg122*gu23 + dg132*gu33)) - gu23*(dg122*gu13 + dg222*gu23 + dg232*gu33) 
      - gu33*(csetemp269 + csetemp280 + dg332*gu33);
    
    CCTK_REAL csetemp284 CCTK_ATTRIBUTE_UNUSED = dg113*gu11;
    
    CCTK_REAL csetemp285 CCTK_ATTRIBUTE_UNUSED = dg123*gu12;
    
    CCTK_REAL csetemp286 CCTK_ATTRIBUTE_UNUSED = dg133*gu13;
    
    CCTK_REAL csetemp287 CCTK_ATTRIBUTE_UNUSED = dg123*gu11;
    
    CCTK_REAL csetemp288 CCTK_ATTRIBUTE_UNUSED = dg223*gu12;
    
    CCTK_REAL csetemp289 CCTK_ATTRIBUTE_UNUSED = dg233*gu13;
    
    CCTK_REAL csetemp290 CCTK_ATTRIBUTE_UNUSED = dg133*gu11;
    
    CCTK_REAL csetemp291 CCTK_ATTRIBUTE_UNUSED = dg233*gu12;
    
    CCTK_REAL csetemp292 CCTK_ATTRIBUTE_UNUSED = dg333*gu13;
    
    CCTK_REAL dgu113 CCTK_ATTRIBUTE_UNUSED = -((csetemp284 + csetemp285 + 
      csetemp286)*gu11) - (csetemp287 + csetemp288 + csetemp289)*gu12 - 
      (csetemp290 + csetemp291 + csetemp292)*gu13;
    
    CCTK_REAL dgu123 CCTK_ATTRIBUTE_UNUSED = -((csetemp284 + csetemp285 + 
      csetemp286)*gu12) - (csetemp287 + csetemp288 + csetemp289)*gu22 - 
      (csetemp290 + csetemp291 + csetemp292)*gu23;
    
    CCTK_REAL dgu133 CCTK_ATTRIBUTE_UNUSED = -((csetemp284 + csetemp285 + 
      csetemp286)*gu13) - (csetemp287 + csetemp288 + csetemp289)*gu23 - 
      (csetemp290 + csetemp291 + csetemp292)*gu33;
    
    CCTK_REAL csetemp293 CCTK_ATTRIBUTE_UNUSED = dg113*gu12;
    
    CCTK_REAL csetemp294 CCTK_ATTRIBUTE_UNUSED = dg123*gu22;
    
    CCTK_REAL csetemp295 CCTK_ATTRIBUTE_UNUSED = dg133*gu23;
    
    CCTK_REAL csetemp296 CCTK_ATTRIBUTE_UNUSED = dg223*gu22;
    
    CCTK_REAL csetemp297 CCTK_ATTRIBUTE_UNUSED = dg233*gu23;
    
    CCTK_REAL csetemp298 CCTK_ATTRIBUTE_UNUSED = dg133*gu12;
    
    CCTK_REAL csetemp299 CCTK_ATTRIBUTE_UNUSED = dg233*gu22;
    
    CCTK_REAL csetemp300 CCTK_ATTRIBUTE_UNUSED = dg333*gu23;
    
    CCTK_REAL dgu223 CCTK_ATTRIBUTE_UNUSED = -((csetemp293 + csetemp294 + 
      csetemp295)*gu12) - (csetemp285 + csetemp296 + csetemp297)*gu22 - 
      (csetemp298 + csetemp299 + csetemp300)*gu23;
    
    CCTK_REAL dgu233 CCTK_ATTRIBUTE_UNUSED = -((csetemp293 + csetemp294 + 
      csetemp295)*gu13) - (csetemp285 + csetemp296 + csetemp297)*gu23 - 
      (csetemp298 + csetemp299 + csetemp300)*gu33;
    
    CCTK_REAL dgu333 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg113*gu13 + 
      dg123*gu23 + dg133*gu33)) - gu23*(dg123*gu13 + dg223*gu23 + dg233*gu33) 
      - gu33*(csetemp286 + csetemp297 + dg333*gu33);
    
    CCTK_REAL dtbetal1 CCTK_ATTRIBUTE_UNUSED = dg4010;
    
    CCTK_REAL dtbetal2 CCTK_ATTRIBUTE_UNUSED = dg4020;
    
    CCTK_REAL dtbetal3 CCTK_ATTRIBUTE_UNUSED = dg4030;
    
    CCTK_REAL dbetal11 CCTK_ATTRIBUTE_UNUSED = dg4011;
    
    CCTK_REAL dbetal12 CCTK_ATTRIBUTE_UNUSED = dg4012;
    
    CCTK_REAL dbetal13 CCTK_ATTRIBUTE_UNUSED = dg4013;
    
    CCTK_REAL dbetal21 CCTK_ATTRIBUTE_UNUSED = dg4021;
    
    CCTK_REAL dbetal22 CCTK_ATTRIBUTE_UNUSED = dg4022;
    
    CCTK_REAL dbetal23 CCTK_ATTRIBUTE_UNUSED = dg4023;
    
    CCTK_REAL dbetal31 CCTK_ATTRIBUTE_UNUSED = dg4031;
    
    CCTK_REAL dbetal32 CCTK_ATTRIBUTE_UNUSED = dg4032;
    
    CCTK_REAL dbetal33 CCTK_ATTRIBUTE_UNUSED = dg4033;
    
    dtbetaxL = betal1*dtgu11 + betal2*dtgu12 + betal3*dtgu13 + 
      dtbetal1*gu11 + dtbetal2*gu12 + dtbetal3*gu13;
    
    dtbetayL = betal1*dtgu12 + betal2*dtgu22 + betal3*dtgu23 + 
      dtbetal1*gu12 + dtbetal2*gu22 + dtbetal3*gu23;
    
    dtbetazL = betal1*dtgu13 + betal2*dtgu23 + betal3*dtgu33 + 
      dtbetal1*gu13 + dtbetal2*gu23 + dtbetal3*gu33;
    
    CCTK_REAL dbeta11 CCTK_ATTRIBUTE_UNUSED = betal1*dgu111 + 
      betal2*dgu121 + betal3*dgu131 + dbetal11*gu11 + dbetal21*gu12 + 
      dbetal31*gu13;
    
    CCTK_REAL dbeta21 CCTK_ATTRIBUTE_UNUSED = betal1*dgu121 + 
      betal2*dgu221 + betal3*dgu231 + dbetal11*gu12 + dbetal21*gu22 + 
      dbetal31*gu23;
    
    CCTK_REAL dbeta31 CCTK_ATTRIBUTE_UNUSED = betal1*dgu131 + 
      betal2*dgu231 + betal3*dgu331 + dbetal11*gu13 + dbetal21*gu23 + 
      dbetal31*gu33;
    
    CCTK_REAL dbeta12 CCTK_ATTRIBUTE_UNUSED = betal1*dgu112 + 
      betal2*dgu122 + betal3*dgu132 + dbetal12*gu11 + dbetal22*gu12 + 
      dbetal32*gu13;
    
    CCTK_REAL dbeta22 CCTK_ATTRIBUTE_UNUSED = betal1*dgu122 + 
      betal2*dgu222 + betal3*dgu232 + dbetal12*gu12 + dbetal22*gu22 + 
      dbetal32*gu23;
    
    CCTK_REAL dbeta32 CCTK_ATTRIBUTE_UNUSED = betal1*dgu132 + 
      betal2*dgu232 + betal3*dgu332 + dbetal12*gu13 + dbetal22*gu23 + 
      dbetal32*gu33;
    
    CCTK_REAL dbeta13 CCTK_ATTRIBUTE_UNUSED = betal1*dgu113 + 
      betal2*dgu123 + betal3*dgu133 + dbetal13*gu11 + dbetal23*gu12 + 
      dbetal33*gu13;
    
    CCTK_REAL dbeta23 CCTK_ATTRIBUTE_UNUSED = betal1*dgu123 + 
      betal2*dgu223 + betal3*dgu233 + dbetal13*gu12 + dbetal23*gu22 + 
      dbetal33*gu23;
    
    CCTK_REAL dbeta33 CCTK_ATTRIBUTE_UNUSED = betal1*dgu133 + 
      betal2*dgu233 + betal3*dgu333 + dbetal13*gu13 + dbetal23*gu23 + 
      dbetal33*gu33;
    
    CCTK_REAL dtbetasq CCTK_ATTRIBUTE_UNUSED = dtbetaxL*betal1 + 
      dtbetayL*betal2 + dtbetazL*betal3 + betaxL*dtbetal1 + betayL*dtbetal2 + 
      betazL*dtbetal3;
    
    CCTK_REAL csetemp301 CCTK_ATTRIBUTE_UNUSED = pow(alpL,-1);
    
    CCTK_REAL dtalpL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(-dg4000 + 
      dtbetasq);
    
    CCTK_REAL kxxL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(2*(gxxL*dbeta11 
      + gxyL*dbeta21 + gxzL*dbeta31) + betaxL*dg111 + betayL*dg112 + 
      betazL*dg113 - dtg11);
    
    CCTK_REAL kxyL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(gxxL*dbeta12 + 
      gyyL*dbeta21 + gxyL*(dbeta11 + dbeta22) + gyzL*dbeta31 + gxzL*dbeta32 + 
      betaxL*dg121 + betayL*dg122 + betazL*dg123 - dtg12);
    
    CCTK_REAL kxzL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(gxxL*dbeta13 + 
      gyzL*dbeta21 + gxyL*dbeta23 + gzzL*dbeta31 + gxzL*(dbeta11 + dbeta33) + 
      betaxL*dg131 + betayL*dg132 + betazL*dg133 - dtg13);
    
    CCTK_REAL kyyL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(2*(gxyL*dbeta12 
      + gyyL*dbeta22 + gyzL*dbeta32) + betaxL*dg221 + betayL*dg222 + 
      betazL*dg223 - dtg22);
    
    CCTK_REAL kyzL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(gxzL*dbeta12 + 
      gxyL*dbeta13 + gyyL*dbeta23 + gzzL*dbeta32 + gyzL*(dbeta22 + dbeta33) + 
      betaxL*dg231 + betayL*dg232 + betazL*dg233 - dtg23);
    
    CCTK_REAL kzzL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(2*(gxzL*dbeta13 
      + gyzL*dbeta23 + gzzL*dbeta33) + betaxL*dg331 + betayL*dg332 + 
      betazL*dg333 - dtg33);
    /* Copy local copies back to grid functions */
    alp[index] = alpL;
    betax[index] = betaxL;
    betay[index] = betayL;
    betaz[index] = betazL;
    dtalp[index] = dtalpL;
    dtbetax[index] = dtbetaxL;
    dtbetay[index] = dtbetayL;
    dtbetaz[index] = dtbetazL;
    gxx[index] = gxxL;
    gxy[index] = gxyL;
    gxz[index] = gxzL;
    gyy[index] = gyyL;
    gyz[index] = gyzL;
    gzz[index] = gzzL;
    kxx[index] = kxxL;
    kxy[index] = kxyL;
    kxz[index] = kxzL;
    kyy[index] = kyyL;
    kyz[index] = kyzL;
    kzz[index] = kzzL;
  }
  CCTK_ENDLOOP3(ModifiedSchwarzschildBL_always);
}
extern "C" void ModifiedSchwarzschildBL_always(CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  if (verbose > 1)
  {
    CCTK_VInfo(CCTK_THORNSTRING,"Entering ModifiedSchwarzschildBL_always_Body");
  }
  if (cctk_iteration % ModifiedSchwarzschildBL_always_calc_every != ModifiedSchwarzschildBL_always_calc_offset)
  {
    return;
  }
  
  const char* const groups[] = {
    "admbase::curv",
    "admbase::dtlapse",
    "admbase::dtshift",
    "admbase::lapse",
    "admbase::metric",
    "admbase::shift",
    "grid::coordinates"};
  AssertGroupStorage(cctkGH, "ModifiedSchwarzschildBL_always", 7, groups);
  
  
  LoopOverEverything(cctkGH, ModifiedSchwarzschildBL_always_Body);
  if (verbose > 1)
  {
    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ModifiedSchwarzschildBL_always_Body");
  }
}

} // namespace ModifiedSchwarzschildBL

```

Kranc.cc:
```

/*  Copyright 2014 Ian Hinder

    This file is part of Kranc.

    Kranc is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    Kranc is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with Kranc; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/
                                             
#include <assert.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>

#include <cctk.h>
#include <cctk_Arguments.h>
#include <cctk_Parameters.h>
#include <util_Table.h>

#include <Symmetry.h>
            
#include "Kranc.hh"

namespace ModifiedSchwarzschildBL {

/*********************************************************************
 * GetBoundaryWidths
 *********************************************************************/

void GetBoundaryWidths(cGH const * restrict const cctkGH, CCTK_INT nboundaryzones[6])
{
  CCTK_INT is_internal[6];
  CCTK_INT is_staggered[6];
  CCTK_INT shiftout[6];
  int ierr = -1;

  if (CCTK_IsFunctionAliased ("MultiPatch_GetBoundarySpecification")) {
    int const map = MultiPatch_GetMap (cctkGH);
    /* This doesn't make sense in level mode */
    if (map < 0)
    {
      static int have_warned = 0;
      if (!have_warned)
      {
        CCTK_WARN(1, "GetBoundaryWidths: Could not determine current map (can be caused by calling in LEVEL mode)");
        have_warned = 1;
      }
      for (int i = 0; i < 6; i++)
        nboundaryzones[i] = 0;
      return;
    }
    ierr = MultiPatch_GetBoundarySpecification
      (map, 6, nboundaryzones, is_internal, is_staggered, shiftout);
    if (ierr != 0)
      CCTK_WARN(0, "Could not obtain boundary specification");
  } else if (CCTK_IsFunctionAliased ("GetBoundarySpecification")) {
    ierr = GetBoundarySpecification
      (6, nboundaryzones, is_internal, is_staggered, shiftout);
    if (ierr != 0)
      CCTK_WARN(0, "Could not obtain boundary specification");
  } else {
    CCTK_WARN(0, "Could not obtain boundary specification");
  }
}

/*********************************************************************
 * GetBoundaryWidth
 *********************************************************************/

int GetBoundaryWidth(cGH const * restrict const cctkGH)
{
  CCTK_INT nboundaryzones[6];
  GetBoundaryWidths(cctkGH, nboundaryzones);

  int bw = nboundaryzones[0];

  for (int i = 1; i < 6; i++)
    if (nboundaryzones[i] != bw)
    CCTK_WARN(0, "Number of boundary points is different on different faces");

  return bw;
}

/*********************************************************************
 * GetBoundaryInfo
 *********************************************************************/

/* Return the array indices in imin and imax for looping over the
   interior of the grid. imin is the index of the first grid point.
   imax is the index of the last grid point plus 1.  So a loop over
   the interior of the grid would be

   for (i = imin; i < imax; i++)

   The indexing is C-style. Also return whether the boundary is a
   symmetry, physical or interprocessor boundary.  Carpet refinement
   boundaries are treated as interprocessor boundaries.
*/
void GetBoundaryInfo(cGH const * restrict const cctkGH,
                               int const * restrict const cctk_ash,
                               int const * restrict const cctk_lsh,
                               int const * restrict const cctk_bbox,
			       int const * restrict const cctk_nghostzones,
                               int * restrict const imin, 
			       int * restrict const imax,
                               int * restrict const is_symbnd, 
			       int * restrict const is_physbnd,
                               int * restrict const is_ipbnd)
{
  CCTK_INT bbox[6];
  CCTK_INT nboundaryzones[6];
  CCTK_INT is_internal[6];
  CCTK_INT is_staggered[6];
  CCTK_INT shiftout[6];
  CCTK_INT symbnd[6];

  int symtable = 0;
  int dir = 0;
  int face = 0;
  int npoints = 0;
  int iret = 0;
  int ierr = 0;

  if (CCTK_IsFunctionAliased ("MultiPatch_GetBbox")) {
    ierr = MultiPatch_GetBbox (cctkGH, 6, bbox);
    if (ierr != 0)
      CCTK_WARN(0, "Could not obtain bbox specification");
  } else {
    for (dir = 0; dir < 6; dir++)
    {
      bbox[dir] = 0;
    }
  }

  if (CCTK_IsFunctionAliased ("MultiPatch_GetBoundarySpecification")) {
    int const map = MultiPatch_GetMap (cctkGH);
    if (map < 0)
      CCTK_WARN(0, "Could not obtain boundary specification");
    ierr = MultiPatch_GetBoundarySpecification
      (map, 6, nboundaryzones, is_internal, is_staggered, shiftout);
    if (ierr != 0)
      CCTK_WARN(0, "Could not obtain boundary specification");
  } else if (CCTK_IsFunctionAliased ("GetBoundarySpecification")) {
    ierr = GetBoundarySpecification
      (6, nboundaryzones, is_internal, is_staggered, shiftout);
    if (ierr != 0)
      CCTK_WARN(0, "Could not obtain boundary specification");
  } else {
    CCTK_WARN(0, "Could not obtain boundary specification");
  }

  symtable = SymmetryTableHandleForGrid(cctkGH);
  if (symtable < 0) 
  {
    CCTK_WARN(0, "Could not obtain symmetry table");
  }  
  
  iret = Util_TableGetIntArray(symtable, 6, symbnd, "symmetry_handle");
  if (iret != 6) CCTK_WARN (0, "Could not obtain symmetry information");

  for (dir = 0; dir < 6; dir++)
  {
    is_ipbnd[dir] = (!cctk_bbox[dir]);
    is_symbnd[dir] = (!is_ipbnd[dir] && symbnd[dir] >= 0 && !bbox[dir]);
    is_physbnd[dir] = (!is_ipbnd[dir] && !is_symbnd[dir]);
  }

  for (dir = 0; dir < 3; dir++)
  {
    for (face = 0; face < 2; face++)
    {
      int index = dir*2 + face;
      if (is_ipbnd[index])
      {
	/* Inter-processor boundary */
	npoints = cctk_nghostzones[dir];
      }
      else
      {
	/* Symmetry or physical boundary */
	npoints = nboundaryzones[index];
             
	if (is_symbnd[index])
	{
	  /* Ensure that the number of symmetry zones is the same
	     as the number of ghost zones */
	  if (npoints != cctk_nghostzones[dir])
	  {
	    CCTK_WARN (1, "The number of symmetry points is different from the number of ghost points; this is probably an error");
	  }
	}
      }

      switch(face)
      {
      case 0: /* Lower boundary */
	imin[dir] = npoints;
	break;
      case 1: /* Upper boundary */
	imax[dir] = cctk_lsh[dir] - npoints;
	break;
      default:
	CCTK_WARN(0, "internal error");
      }
    }
  }
}

/*********************************************************************
 * LoopOverEverything
 *********************************************************************/

void LoopOverEverything(cGH const * restrict const cctkGH, Kranc_Calculation const calc)
{
  DECLARE_CCTK_ARGUMENTS

  int   dir = 0;
  int   face = 0;
  CCTK_REAL  normal[] = {0,0,0};
  CCTK_REAL  tangentA[] = {0,0,0};
  CCTK_REAL  tangentB[] = {0,0,0};
  int   bmin[] = {0,0,0};
  int   bmax[] = {cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]};

  calc(cctkGH, dir, face, normal, tangentA, tangentB, bmin, bmax, 0, NULL);
  return;
}

/*********************************************************************
 * LoopOverBoundary
 *********************************************************************/

void LoopOverBoundary(cGH const * restrict const cctkGH, Kranc_Calculation const calc)
{
  DECLARE_CCTK_ARGUMENTS

  int   dir1, dir2, dir3;
  int   dir[3];
  CCTK_REAL  normal[3];
  CCTK_REAL  tangentA[3];
  CCTK_REAL  tangentB[3];
  int   bmin[3];
  int   bmax[3];
  int   have_bnd;
  int   all_physbnd;
  int   d;

  int   is_symbnd[6], is_physbnd[6], is_ipbnd[6];
  int   imin[3], imax[3];
  int        old_dir = 0;
  int        old_face = 0;

  GetBoundaryInfo(cctkGH, cctk_ash, cctk_lsh, cctk_bbox,
                  cctk_nghostzones, 
                  imin, imax, is_symbnd, is_physbnd, is_ipbnd);

 /* Loop over all faces */
  for (dir3 = -1; dir3 <= +1; dir3++)
  {
    for (dir2 = -1; dir2 <= +1; dir2++)
    {
      for (dir1 = -1; dir1 <= +1; dir1++)
      {
        dir[0] = dir1;
        dir[1] = dir2;
        dir[2] = dir3;

        have_bnd = 0;          /* one of the faces is a boundary */
        all_physbnd = 1;       /* all boundary faces are physical
                                  boundaries */

        for (d = 0; d < 3; d++)
        {
          switch(dir[d])
          {
          case -1:
            bmin[d] = 0;
            bmax[d] = imin[d];
            have_bnd = 1;
            all_physbnd = all_physbnd && is_physbnd[2*d+0];
            break;
          case 0:
            bmin[d] = imin[d];
            bmax[d] = imax[d];
            break;
          case +1:
            bmin[d] = imax[d];
            bmax[d] = cctk_lsh[d];
            have_bnd = 1;
            all_physbnd = all_physbnd && is_physbnd[2*d+1];
            break;
          }

          /* Choose a basis */
          normal[d] = dir[d];
          tangentA[d] = dir[(d+1)%3];
          tangentB[d] = dir[(d+2)%3];
        }

        if (have_bnd && all_physbnd)
        {
#if 0
          CCTK_REAL normal_norm = 0.0;
          for (d = 0; d < 3; d++)
          {
            normal_norm += pow(normal[d], 2);
          }
          normal_norm = sqrt(normal_norm);
          for (d = 0; d < 3; d++)
          {
            normal[d] /= normal_norm;
          }
#endif
          
          calc(cctkGH, old_dir, old_face, normal, tangentA, tangentB, bmin, bmax, 0, NULL);
        }

      }
    }
  }
  
  return;
}

/*********************************************************************
 * LoopOverBoundaryWithGhosts
 *********************************************************************/

void LoopOverBoundaryWithGhosts(cGH const * restrict const cctkGH, Kranc_Calculation const calc)
{
  DECLARE_CCTK_ARGUMENTS

  int   dir1, dir2, dir3;
  int   dir[3];
  CCTK_REAL  normal[3];
  CCTK_REAL  tangentA[3];
  CCTK_REAL  tangentB[3];
  int   bmin[3];
  int   bmax[3];
  int   have_bnd;
  int   have_physbnd;
  int   d;

  int   is_symbnd[6], is_physbnd[6], is_ipbnd[6];
  int   imin[3], imax[3];
  int        old_dir = 0;
  int        old_face = 0;

  GetBoundaryInfo(cctkGH, cctk_ash, cctk_lsh, cctk_bbox,
                  cctk_nghostzones, 
                  imin, imax, is_symbnd, is_physbnd, is_ipbnd);

 /* Loop over all faces */
  for (dir3 = -1; dir3 <= +1; dir3++)
  {
    for (dir2 = -1; dir2 <= +1; dir2++)
    {
      for (dir1 = -1; dir1 <= +1; dir1++)
      {
        dir[0] = dir1;
        dir[1] = dir2;
        dir[2] = dir3;

        have_bnd = 0;          /* one of the faces is a boundary */
        have_physbnd = 0;      /* one of the boundary faces is a physical
                                  boundary */

        for (d = 0; d < 3; d++)
        {
          switch(dir[d])
          {
          case -1:
            bmin[d] = 0;
            bmax[d] = imin[d];
            have_bnd = 1;
            have_physbnd = have_physbnd || is_physbnd[2*d+0];
            break;
          case 0:
            bmin[d] = imin[d];
            bmax[d] = imax[d];
            break;
          case +1:
            bmin[d] = imax[d];
            bmax[d] = cctk_lsh[d];
            have_bnd = 1;
            have_physbnd = have_physbnd || is_physbnd[2*d+1];
            break;
          }

          /* Choose a basis */
          normal[d] = dir[d];
          tangentA[d] = dir[(d+1)%3];
          tangentB[d] = dir[(d+2)%3];
        }

        if (have_bnd && have_physbnd)
        {
#if 0
          CCTK_REAL normal_norm = 0.0;
          for (d = 0; d < 3; d++)
          {
            normal_norm += pow(normal[d], 2);
          }
          normal_norm = sqrt(normal_norm);
          for (d = 0; d < 3; d++)
          {
            normal[d] /= normal_norm;
          }
#endif
          
          calc(cctkGH, old_dir, old_face, normal, tangentA, tangentB, bmin, bmax, 0, NULL);
        }

      }
    }
  }
  
  return;
}

/*********************************************************************
 * LoopOverInterior
 *********************************************************************/

void LoopOverInterior(cGH const * restrict const cctkGH, Kranc_Calculation const calc)
{
  DECLARE_CCTK_ARGUMENTS

  CCTK_REAL  normal[] = {0,0,0};
  CCTK_REAL  tangentA[] = {0,0,0};
  CCTK_REAL  tangentB[] = {0,0,0};

  int   is_symbnd[6], is_physbnd[6], is_ipbnd[6];
  int   imin[3], imax[3];
  int        dir = 0;
  int        face = 0;

  GetBoundaryInfo(cctkGH, cctk_ash, cctk_lsh, cctk_bbox,
                            cctk_nghostzones, 
                            imin, imax, is_symbnd, is_physbnd, is_ipbnd);

  calc(cctkGH, dir, face, normal, tangentA, tangentB, imin, imax, 0, NULL);
  
  return;
}

/*********************************************************************
 * AssertGroupStorage
 *********************************************************************/

void AssertGroupStorage(cGH const * restrict const cctkGH, const char *calc,
                                  int ngroups, const char *const group_names[])
{
  for (int i = 0; i < ngroups; i++)
  {
    int result = CCTK_QueryGroupStorage(cctkGH, group_names[i]);
    if (result == 0)
    {
      CCTK_VWarn(CCTK_WARN_ABORT, __LINE__, __FILE__, CCTK_THORNSTRING,
                 "Error in %s: Group \"%s\" does not have storage", calc, group_names[i]);
    }
    else if (result < 0)
    {
      CCTK_VWarn(CCTK_WARN_ABORT, __LINE__, __FILE__, CCTK_THORNSTRING,
                 "Error in %s: Invalid group name \"%s\"", calc, group_names[i]);
    }
  }
}

/*********************************************************************
 * GroupDataPointers
 *********************************************************************/

/* Return a list of pointers to the members of a named group */
void GroupDataPointers(cGH const * restrict const cctkGH, const char *group_name,
                                 int nvars, CCTK_REAL const *restrict *ptrs)
{
  int group_index, status;
  cGroup  group_info;

  group_index = CCTK_GroupIndex(group_name);
  if (group_index < 0)
    CCTK_VWarn(CCTK_WARN_ABORT,   __LINE__, __FILE__, CCTK_THORNSTRING,
               "Error return %d trying to get group index for group \'%s\'",
               group_index,
               group_name);

  status = CCTK_GroupData(group_index, &group_info);
  if (status < 0)
    CCTK_VWarn(CCTK_WARN_ABORT,   __LINE__, __FILE__, CCTK_THORNSTRING,
               "Error return %d trying to get info for group \'%s\'",
               status,
               group_name);

  if (group_info.numvars != nvars)
  {
    CCTK_VWarn(CCTK_WARN_ABORT,   __LINE__, __FILE__, CCTK_THORNSTRING,
               "Group \'%s\' has %d variables but %d were expected",
               group_name, group_info.numvars, nvars);
  }

  int v1 = CCTK_FirstVarIndex(group_name);

  for (int v = 0; v < nvars; v++)
  {
    ptrs[v] = (CCTK_REAL const *) CCTK_VarDataPtrI(cctkGH, 0 /* timelevel */, v1+v);
  }
}

/*********************************************************************
 * EnsureStencilFits
 *********************************************************************/

void EnsureStencilFits(cGH const * restrict const cctkGH, const char *calc, int ni, int nj, int nk)
{
  DECLARE_CCTK_ARGUMENTS

  CCTK_INT bws[6];
  GetBoundaryWidths(cctkGH, bws);

  int ns[] = {ni, nj, nk};
  const char *dirs[] = {"x", "y", "z"};
  const char *faces[] = {"lower", "upper"};
  int abort = 0;

  for (int dir = 0; dir < 3; dir++)
  {
    for (int face = 0; face < 2; face++)
    {
      int bw = bws[2*dir+face];
      if (bw < ns[dir])
      {
        CCTK_VInfo(CCTK_THORNSTRING,
                   "The stencil for %s requires %d points, but the %s %s boundary has only %d points.",
                   calc, ns[dir], faces[face], dirs[dir], bw);
        abort = 1;
      }
    }
    int gz = cctk_nghostzones[dir];
    if (gz < ns[dir])
    {
      CCTK_VInfo(CCTK_THORNSTRING,
                 "The stencil for %s requires %d points, but there are only %d ghost zones in the %s direction.",
                 calc, ns[dir], gz, dirs[dir]);
      abort = 1;
    }
  }

  if (abort)
  {
    CCTK_VWarn(CCTK_WARN_ABORT, __LINE__, __FILE__, CCTK_THORNSTRING,
               "Insufficient ghost or boundary points for %s", calc);
  }
}

/*********************************************************************
 * idiv
 *********************************************************************/

// Divide, rounding to minus infinity
static int idiv(int x, int y)
{
  // round down manually if the result is negative
  return (x^y) >= 0 ? x/y : (x-y+1)/y;
}

/*********************************************************************
 * imod
 *********************************************************************/

// // Modulo, rounding to minus infinity
// static int imod(int x, int y)
// {
//   return (x^y) >= 0 ? x%y : (x-y+1)%y + y-1;
// }

/*********************************************************************
 * ialign
 *********************************************************************/

// Align x to a multiple of y
static int ialign(int x, int y)
{
  return idiv(x, y) * y;
}

/*********************************************************************
 * TiledLoop
 *********************************************************************/

void TiledLoop(
  cGH const * restrict const cctkGH,
  const KrancData & restrict kd_coarse,
  void (calc)(const cGH* restrict const cctkGH,
              const KrancData & restrict kd))
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;

  // Interior region
  int imin[3], imax[3];
  // Boundary types
  int is_symbnd[6], is_physbnd[6], is_ipbnd[6];

  GetBoundaryInfo(cctkGH, cctk_ash, cctk_lsh, cctk_bbox,
                            cctk_nghostzones, 
                            imin, imax, is_symbnd, is_physbnd, is_ipbnd);

  // Tile size
  int tile_size_l[3];
  // Loop bounds covered by tiles (may be larger)
  int tiled_imin[3];
  int tiled_imax[3];

  if (tile_size == -1)
  {
    for (int d = 0; d < 3; d++)
    {
      // Loop in a single tile
      tiled_imin[d] = kd_coarse.imin[d];
      tiled_imax[d] = kd_coarse.imax[d];
      tile_size_l[d] = tiled_imax[d] - tiled_imin[d];
    }
  }
  else
  {
    for (int d = 0; d < 3; d++)
    {
      tile_size_l[d] = tile_size;
      // Align with beginning of interior of domain
      tiled_imin[d] =
        imin[d] + ialign(kd_coarse.imin[d] - imin[d], tile_size_l[d]);
      tiled_imax[d] = kd_coarse.imax[d];
    }
  }

  const int dti = tile_size_l[0];
  const int dtj = tile_size_l[1];
  const int dtk = tile_size_l[2];
#pragma omp parallel for collapse(3)
  for (int tk = tiled_imin[2]; tk < tiled_imax[2]; tk += dtk)
  {
    for (int tj = tiled_imin[1]; tj < tiled_imax[1]; tj += dtj)
    {
      for (int ti = tiled_imin[0]; ti < tiled_imax[0]; ti += dti)
      {
        KrancData kd = kd_coarse;

        kd.dir = 0;
        kd.face = 0;
        // TODO: initialise the rest, or use a constructor

        kd.tile_imin[0] = ti;
        kd.tile_imax[0] = ti + dti;
        kd.tile_imin[1] = tj;
        kd.tile_imax[1] = tj + dtj;
        kd.tile_imin[2] = tk;
        kd.tile_imax[2] = tk + dtk;

        calc(cctkGH, kd);
      }
    }
  }
}

/*********************************************************************
 * TiledLoopOverEverything
 *********************************************************************/

void TiledLoopOverEverything(
  cGH const * restrict const cctkGH,
  void (calc)(const cGH* restrict const cctkGH,
              const KrancData & restrict kd))
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;

  KrancData kd_coarse;

  for (int d = 0; d < 3; d++)
  {
    kd_coarse.imin[d] = 0;
    kd_coarse.imax[d] = cctk_lsh[d];
  }

  TiledLoop(cctkGH, kd_coarse, calc);
}

/*********************************************************************
 * TiledLoopOverInterior
 *********************************************************************/

void TiledLoopOverInterior(
  cGH const * restrict const cctkGH,
  void (calc)(const cGH* restrict const cctkGH,
              const KrancData & restrict kd))
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;

  // Interior region
  int imin[3], imax[3];
  // Boundary types
  int is_symbnd[6], is_physbnd[6], is_ipbnd[6];

  GetBoundaryInfo(cctkGH, cctk_ash, cctk_lsh, cctk_bbox,
                            cctk_nghostzones, 
                            imin, imax, is_symbnd, is_physbnd, is_ipbnd);

  KrancData kd_coarse;

  for (int d = 0; d < 3; d++)
  {
    kd_coarse.imin[d] = imin[d];
    kd_coarse.imax[d] = imax[d];
  }

  TiledLoop(cctkGH, kd_coarse, calc);
}

} // namespace ModifiedSchwarzschildBL
```

Kranc.hh:
```
#ifndef KRANC_HH
#define KRANC_HH

#include <cmath>
#include <math.h>
#include <sys/time.h>

#include <cctk.h>

namespace ModifiedSchwarzschildBL {

/*********************************************************************
 * Types
 *********************************************************************/

struct KrancData
{
  // Actual loop bounds
  int imin[3];
  int imax[3];
  // Region covered by this tile
  int tile_imin[3];
  int tile_imax[3];
  // Boundary information
  int dir;
  int face;
  CCTK_REAL normal[3];
  CCTK_REAL tangentA[3];
  CCTK_REAL tangentB[3];
};

typedef void(*Kranc_Calculation)(cGH const * restrict cctkGH,
                                 int eir,
                                 int face,
                                 CCTK_REAL const normal[3],
                                 CCTK_REAL const tangentA[3],
                                 CCTK_REAL const tangentB[3],
                                 int const min[3],
                                 int const max[3], 
                                 int n_subblock_gfs, 
                                 CCTK_REAL * restrict const subblock_gfs[]);

/*********************************************************************
 * Function declarations
 *********************************************************************/

// Boundary information

int GetBoundaryWidth(cGH const * restrict const cctkGH);

void GetBoundaryInfo(cGH const * restrict cctkGH,
                                  int const * restrict cctk_ash,
                                  int const * restrict cctk_lsh,
                                  int const * restrict cctk_bbox,
                                  int const * restrict cctk_nghostzones,
                                  int * restrict imin, 
                                  int * restrict imax,
                                  int * restrict is_symbnd, 
                                  int * restrict is_physbnd,
                                  int * restrict is_ipbnd);

// Looping

void LoopOverEverything(cGH const * restrict cctkGH,
                                     Kranc_Calculation calc);
void LoopOverBoundary(cGH const * restrict cctkGH,
                                   Kranc_Calculation calc);
void LoopOverBoundaryWithGhosts(cGH const * restrict cctkGH,
                                             Kranc_Calculation calc);
void LoopOverInterior(cGH const * restrict cctkGH,
                                   Kranc_Calculation calc);

// Tiled looping

void TiledLoop(
  cGH const * restrict const cctkGH,
  const KrancData & restrict kd_coarse,
  void (calc)(const cGH* restrict const cctkGH,
              const KrancData & restrict kd));

void TiledLoopOverEverything(
  cGH const * restrict const cctkGH,
  void (calc)(const cGH* restrict const cctkGH,
              const KrancData & restrict kd));

void TiledLoopOverInterior(
  cGH const * restrict const cctkGH,
  void (calc)(const cGH* restrict const cctkGH,
              const KrancData & restrict kd));

// void TiledLoopOverBoundary(
//   cGH const * restrict const cctkGH,
//   void (calc)(const cGH* restrict const cctkGH,
//               const KrancData & restrict kd));

// Runtime checks

void EnsureStencilFits(cGH const * restrict const cctkGH,
                                    const char *calc, int ni, int nj, int nk);
void GroupDataPointers(cGH const * restrict const cctkGH,
                                    const char *group_name, int nvars,
                                    CCTK_REAL const *restrict *ptrs);
void AssertGroupStorage(cGH const * restrict const cctkGH,
                                     const char *calc, int ngroups,
                                     const char *const group_names[]);


/*********************************************************************
 * Gridfunction access macros
 *********************************************************************/

  /* Grid function access */
  /* var is a pointer to a grid point, i,j,k are offsets with respect
     to that point.
     For example: KRANC_GFINDEX3D_OFFSET(&u[ind3d],-1,-1,0) */
  /* simple implementation */
  /* #define KRANC_GFOFFSET3D(var,i,j,k) ((var)[di*(i)+dj*(j)+dk*(k)]) */
  /* more efficient implementation for some compilers */
#define KRANC_GFOFFSET3D(var,i,j,k)                                     \
  (*(CCTK_REAL const*)&((char const*)(var))[cdi*(i)+cdj*(j)+cdk*(k)])

#define GFOffset(u,di,dj,dk) KRANC_GFOFFSET3D(&(u)[index],di,dj,dk)

/*********************************************************************
 * Macros used in Kranc expressions
 *********************************************************************/

#define IfThen(x,y,z) ((x) ? (y) : (z))
#define MinMod(x, y)  ((x) * (y) < 0 ? 0 : (fabs((x)) < fabs((y)) ? (x) : (y)))
#define VanLeer(x, y)  ((x) * (y) < 0 ? 0 : (Min3(2*fabs(x),2*fabs(y),0.5*(fabs(x)+fabs(y)))*Sign((x)+(y))))
#define StepFunction(x) ((x)>0)

/*********************************************************************
 * Numerical constants not defined in C++
 *********************************************************************/

#define E           M_E
#define Pi          M_PI

/*********************************************************************
 * Declare functions on the device if compiled for CUDA
 *********************************************************************/

#ifdef __CUDACC__
#define KRANC_WHERE __device__
#else
#define KRANC_WHERE
#endif

/*********************************************************************
 * Implement the signum function, used for Mathematica's Sign function
 *********************************************************************/

KRANC_WHERE static inline CCTK_REAL sgn(CCTK_REAL x)
{
#ifdef __cplusplus
  using namespace std;
#endif
  return x==(CCTK_REAL)0.0 ? (CCTK_REAL)0.0 : copysign((CCTK_REAL)1.0, x);
}

KRANC_WHERE static inline int isgn(CCTK_REAL x)
{
  if (x == (CCTK_REAL)0.0) return 0;
#ifdef __cplusplus
  using namespace std;
  int s = signbit(x);
#else
  int s = signbit(x);
#endif
  return s ? -1 : +1;
}

} // namespace ModifiedSchwarzschildBL

#endif  // #ifndef KRANC_HH
```

ParamCheck.cc:
```
#include "cctk.h"
#include "cctk_Arguments.h"
#include "cctk_Parameters.h"
extern "C" void ModifiedSchwarzschildBL_ParamCheck(CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  if (CCTK_MyProc(cctkGH) == 0)
  {
    if (((CCTK_EQUALS(initial_data,"ModifiedSchwarzschildBL")) || (CCTK_EQUALS(initial_lapse,"ModifiedSchwarzschildBL")) || (CCTK_EQUALS(initial_shift,"ModifiedSchwarzschildBL")) || (CCTK_EQUALS(initial_dtlapse,"ModifiedSchwarzschildBL")) || (CCTK_EQUALS(initial_dtshift,"ModifiedSchwarzschildBL"))) && ((!CCTK_EQUALS(initial_data,"ModifiedSchwarzschildBL")) || (!CCTK_EQUALS(initial_lapse,"ModifiedSchwarzschildBL")) || (!CCTK_EQUALS(initial_shift,"ModifiedSchwarzschildBL")) || (!CCTK_EQUALS(initial_dtlapse,"ModifiedSchwarzschildBL")) || (!CCTK_EQUALS(initial_dtshift,"ModifiedSchwarzschildBL"))))
    {
      CCTK_ERROR("If one of the parameters ADMBase::initial_data, ADMBase::initial_lapse, ADMBase::initial_shift, ADMBase::initial_dtlapse, and ADMBase::initial_dtshift are set to \"ModifiedSchwarzschildBL\", then all must be set to this value");
    }
  }
}

```

Differencing.h:
```

```

RegisterMoL.cc:
```
/*  File produced by Kranc */

#include "cctk.h"
#include "cctk_Arguments.h"
#include "cctk_Parameters.h"

extern "C" void ModifiedSchwarzschildBL_RegisterVars(CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0;
  /* Register all the evolved grid functions with MoL */
  /* Register all the evolved Array functions with MoL */
  return;
}

```

ModifiedSchwarzschildBL_initial.cc:
```
/*  File produced by Kranc */

#define KRANC_C

#include <algorithm>
#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 "Kranc.hh"
#include "Differencing.h"
#include "loopcontrol.h"

namespace ModifiedSchwarzschildBL {


static void ModifiedSchwarzschildBL_initial_Body(const cGH* restrict const cctkGH, const int dir, const int face, const CCTK_REAL normal[3], const CCTK_REAL tangentA[3], const CCTK_REAL tangentB[3], const int imin[3], const int imax[3], const int n_subblock_gfs, CCTK_REAL* restrict const subblock_gfs[])
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  /* Include user-supplied include files */
  /* Initialise finite differencing variables */
  const ptrdiff_t di CCTK_ATTRIBUTE_UNUSED = 1;
  const ptrdiff_t dj CCTK_ATTRIBUTE_UNUSED = 
    CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
  const ptrdiff_t dk CCTK_ATTRIBUTE_UNUSED = 
    CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
  const ptrdiff_t cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;
  const ptrdiff_t cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;
  const ptrdiff_t cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;
  const ptrdiff_t cctkLbnd1 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[0];
  const ptrdiff_t cctkLbnd2 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[1];
  const ptrdiff_t cctkLbnd3 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[2];
  const CCTK_REAL t CCTK_ATTRIBUTE_UNUSED = cctk_time;
  const CCTK_REAL cctkOriginSpace1 CCTK_ATTRIBUTE_UNUSED = 
    CCTK_ORIGIN_SPACE(0);
  const CCTK_REAL cctkOriginSpace2 CCTK_ATTRIBUTE_UNUSED = 
    CCTK_ORIGIN_SPACE(1);
  const CCTK_REAL cctkOriginSpace3 CCTK_ATTRIBUTE_UNUSED = 
    CCTK_ORIGIN_SPACE(2);
  const CCTK_REAL dt CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_TIME;
  const CCTK_REAL dx CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_SPACE(0);
  const CCTK_REAL dy CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_SPACE(1);
  const CCTK_REAL dz CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_SPACE(2);
  const CCTK_REAL dxi CCTK_ATTRIBUTE_UNUSED = pow(dx,-1);
  const CCTK_REAL dyi CCTK_ATTRIBUTE_UNUSED = pow(dy,-1);
  const CCTK_REAL dzi CCTK_ATTRIBUTE_UNUSED = pow(dz,-1);
  const CCTK_REAL khalf CCTK_ATTRIBUTE_UNUSED = 0.5;
  const CCTK_REAL kthird CCTK_ATTRIBUTE_UNUSED = 
    0.333333333333333333333333333333;
  const CCTK_REAL ktwothird CCTK_ATTRIBUTE_UNUSED = 
    0.666666666666666666666666666667;
  const CCTK_REAL kfourthird CCTK_ATTRIBUTE_UNUSED = 
    1.33333333333333333333333333333;
  const CCTK_REAL hdxi CCTK_ATTRIBUTE_UNUSED = 0.5*dxi;
  const CCTK_REAL hdyi CCTK_ATTRIBUTE_UNUSED = 0.5*dyi;
  const CCTK_REAL hdzi CCTK_ATTRIBUTE_UNUSED = 0.5*dzi;
  /* Initialize predefined quantities */
  /* Assign local copies of arrays functions */
  
  
  /* Calculate temporaries and arrays functions */
  /* Copy local copies back to grid functions */
  /* Loop over the grid points */
  const int imin0=imin[0];
  const int imin1=imin[1];
  const int imin2=imin[2];
  const int imax0=imax[0];
  const int imax1=imax[1];
  const int imax2=imax[2];
  #pragma omp parallel
  CCTK_LOOP3(ModifiedSchwarzschildBL_initial,
    i,j,k, imin0,imin1,imin2, imax0,imax1,imax2,
    cctk_ash[0],cctk_ash[1],cctk_ash[2])
  {
    const ptrdiff_t index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;
    /* Assign local copies of grid functions */
    
    CCTK_REAL alpL CCTK_ATTRIBUTE_UNUSED = alp[index];
    CCTK_REAL betaxL CCTK_ATTRIBUTE_UNUSED = betax[index];
    CCTK_REAL betayL CCTK_ATTRIBUTE_UNUSED = betay[index];
    CCTK_REAL betazL CCTK_ATTRIBUTE_UNUSED = betaz[index];
    CCTK_REAL dtbetaxL CCTK_ATTRIBUTE_UNUSED = dtbetax[index];
    CCTK_REAL dtbetayL CCTK_ATTRIBUTE_UNUSED = dtbetay[index];
    CCTK_REAL dtbetazL CCTK_ATTRIBUTE_UNUSED = dtbetaz[index];
    CCTK_REAL gxxL CCTK_ATTRIBUTE_UNUSED = gxx[index];
    CCTK_REAL gxyL CCTK_ATTRIBUTE_UNUSED = gxy[index];
    CCTK_REAL gxzL CCTK_ATTRIBUTE_UNUSED = gxz[index];
    CCTK_REAL gyyL CCTK_ATTRIBUTE_UNUSED = gyy[index];
    CCTK_REAL gyzL CCTK_ATTRIBUTE_UNUSED = gyz[index];
    CCTK_REAL gzzL CCTK_ATTRIBUTE_UNUSED = gzz[index];
    CCTK_REAL xL CCTK_ATTRIBUTE_UNUSED = x[index];
    CCTK_REAL yL CCTK_ATTRIBUTE_UNUSED = y[index];
    CCTK_REAL zL CCTK_ATTRIBUTE_UNUSED = z[index];
    
    /* Include user supplied include files */
    /* Precompute derivatives */
    /* Calculate temporaries and grid functions */
    CCTK_REAL xform1L00 CCTK_ATTRIBUTE_UNUSED = 1;
    
    CCTK_REAL xform1L01 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L02 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L03 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L10 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp0 CCTK_ATTRIBUTE_UNUSED = cos(phi);
    
    CCTK_REAL csetemp1 CCTK_ATTRIBUTE_UNUSED = cos(psi);
    
    CCTK_REAL csetemp2 CCTK_ATTRIBUTE_UNUSED = cos(theta);
    
    CCTK_REAL csetemp3 CCTK_ATTRIBUTE_UNUSED = sin(phi);
    
    CCTK_REAL csetemp4 CCTK_ATTRIBUTE_UNUSED = sin(psi);
    
    CCTK_REAL xform1L11 CCTK_ATTRIBUTE_UNUSED = csetemp0*csetemp1 - 
      csetemp2*csetemp3*csetemp4;
    
    CCTK_REAL xform1L12 CCTK_ATTRIBUTE_UNUSED = csetemp1*csetemp3 + 
      csetemp0*csetemp2*csetemp4;
    
    CCTK_REAL csetemp5 CCTK_ATTRIBUTE_UNUSED = sin(theta);
    
    CCTK_REAL xform1L13 CCTK_ATTRIBUTE_UNUSED = csetemp4*csetemp5;
    
    CCTK_REAL xform1L20 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L21 CCTK_ATTRIBUTE_UNUSED = 
      -(csetemp1*csetemp2*csetemp3) - csetemp0*csetemp4;
    
    CCTK_REAL xform1L22 CCTK_ATTRIBUTE_UNUSED = csetemp0*csetemp1*csetemp2 
      - csetemp3*csetemp4;
    
    CCTK_REAL xform1L23 CCTK_ATTRIBUTE_UNUSED = csetemp1*csetemp5;
    
    CCTK_REAL xform1L30 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L31 CCTK_ATTRIBUTE_UNUSED = csetemp3*csetemp5;
    
    CCTK_REAL xform1L32 CCTK_ATTRIBUTE_UNUSED = -(csetemp0*csetemp5);
    
    CCTK_REAL xform1L33 CCTK_ATTRIBUTE_UNUSED = csetemp2;
    
    CCTK_REAL csetemp6 CCTK_ATTRIBUTE_UNUSED = pow(boostx,2);
    
    CCTK_REAL csetemp7 CCTK_ATTRIBUTE_UNUSED = pow(boosty,2);
    
    CCTK_REAL csetemp8 CCTK_ATTRIBUTE_UNUSED = pow(boostz,2);
    
    CCTK_REAL csetemp9 CCTK_ATTRIBUTE_UNUSED = pow(lapsefactor,-1);
    
    CCTK_REAL xform2L00 CCTK_ATTRIBUTE_UNUSED = csetemp9*(-1 + 
      boostx*shiftaddx + boosty*shiftaddy + boostz*shiftaddz)*(1 - csetemp6 - 
      csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L01 CCTK_ATTRIBUTE_UNUSED = boostx*csetemp9*(1 - 
      csetemp6 - csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L02 CCTK_ATTRIBUTE_UNUSED = boosty*csetemp9*(1 - 
      csetemp6 - csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L03 CCTK_ATTRIBUTE_UNUSED = boostz*csetemp9*(1 - 
      csetemp6 - csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L10 CCTK_ATTRIBUTE_UNUSED = (-(boostx*(-1 + csetemp6 + 
      csetemp7 + csetemp8 + (-1 + boosty*shiftaddy + boostz*shiftaddz)*pow(1 
      - csetemp6 - csetemp7 - csetemp8,0.5))) + shiftaddx*(csetemp6 + (-1 + 
      csetemp7 + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L11 CCTK_ATTRIBUTE_UNUSED = (csetemp6 + (-1 + csetemp7 
      + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - csetemp8,0.5)))*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + pow(1 - csetemp6 - csetemp7 
      - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L12 CCTK_ATTRIBUTE_UNUSED = -(boostx*boosty*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L13 CCTK_ATTRIBUTE_UNUSED = -(boostx*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L20 CCTK_ATTRIBUTE_UNUSED = (-(boosty*(-1 + csetemp6 + 
      csetemp7 + csetemp8 + (-1 + boostx*shiftaddx + boostz*shiftaddz)*pow(1 
      - csetemp6 - csetemp7 - csetemp8,0.5))) + shiftaddy*(csetemp7 + (-1 + 
      csetemp6 + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L21 CCTK_ATTRIBUTE_UNUSED = -(boostx*boosty*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L22 CCTK_ATTRIBUTE_UNUSED = (csetemp7 + (-1 + csetemp6 
      + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - csetemp8,0.5)))*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + pow(1 - csetemp6 - csetemp7 
      - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L23 CCTK_ATTRIBUTE_UNUSED = -(boosty*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L30 CCTK_ATTRIBUTE_UNUSED = (shiftaddz*(-1 + csetemp6 
      + csetemp7 + csetemp8 + (-1 + csetemp6 + csetemp7)*pow(1 - csetemp6 - 
      csetemp7 - csetemp8,0.5)) - boostz*(-1 + csetemp6 + csetemp7 + csetemp8 
      + (-1 + boostx*shiftaddx + boosty*shiftaddy)*pow(1 - csetemp6 - 
      csetemp7 - csetemp8,0.5)))*pow(-1 + csetemp6 + csetemp7 + 
      csetemp8,-1)*pow(1 + pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L31 CCTK_ATTRIBUTE_UNUSED = -(boostx*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L32 CCTK_ATTRIBUTE_UNUSED = -(boosty*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L33 CCTK_ATTRIBUTE_UNUSED = (-1 + csetemp6 + csetemp7 
      + csetemp8 + (-1 + csetemp6 + csetemp7)*pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xformL00 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L00 + 
      xform1L01*xform2L10 + xform1L02*xform2L20 + xform1L03*xform2L30;
    
    CCTK_REAL xformL01 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L01 + 
      xform1L01*xform2L11 + xform1L02*xform2L21 + xform1L03*xform2L31;
    
    CCTK_REAL xformL02 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L02 + 
      xform1L01*xform2L12 + xform1L02*xform2L22 + xform1L03*xform2L32;
    
    CCTK_REAL xformL03 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L03 + 
      xform1L01*xform2L13 + xform1L02*xform2L23 + xform1L03*xform2L33;
    
    CCTK_REAL xformL10 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L00 + 
      xform1L11*xform2L10 + xform1L12*xform2L20 + xform1L13*xform2L30;
    
    CCTK_REAL xformL11 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L01 + 
      xform1L11*xform2L11 + xform1L12*xform2L21 + xform1L13*xform2L31;
    
    CCTK_REAL xformL12 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L02 + 
      xform1L11*xform2L12 + xform1L12*xform2L22 + xform1L13*xform2L32;
    
    CCTK_REAL xformL13 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L03 + 
      xform1L11*xform2L13 + xform1L12*xform2L23 + xform1L13*xform2L33;
    
    CCTK_REAL xformL20 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L00 + 
      xform1L21*xform2L10 + xform1L22*xform2L20 + xform1L23*xform2L30;
    
    CCTK_REAL xformL21 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L01 + 
      xform1L21*xform2L11 + xform1L22*xform2L21 + xform1L23*xform2L31;
    
    CCTK_REAL xformL22 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L02 + 
      xform1L21*xform2L12 + xform1L22*xform2L22 + xform1L23*xform2L32;
    
    CCTK_REAL xformL23 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L03 + 
      xform1L21*xform2L13 + xform1L22*xform2L23 + xform1L23*xform2L33;
    
    CCTK_REAL xformL30 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L00 + 
      xform1L31*xform2L10 + xform1L32*xform2L20 + xform1L33*xform2L30;
    
    CCTK_REAL xformL31 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L01 + 
      xform1L31*xform2L11 + xform1L32*xform2L21 + xform1L33*xform2L31;
    
    CCTK_REAL xformL32 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L02 + 
      xform1L31*xform2L12 + xform1L32*xform2L22 + xform1L33*xform2L32;
    
    CCTK_REAL xformL33 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L03 + 
      xform1L31*xform2L13 + xform1L32*xform2L23 + xform1L33*xform2L33;
    
    CCTK_REAL xx0 CCTK_ATTRIBUTE_UNUSED = t - timeoffset;
    
    CCTK_REAL xx1 CCTK_ATTRIBUTE_UNUSED = xL - positionx;
    
    CCTK_REAL xx2 CCTK_ATTRIBUTE_UNUSED = yL - positiony;
    
    CCTK_REAL xx3 CCTK_ATTRIBUTE_UNUSED = zL - positionz;
    
    CCTK_REAL txx1 CCTK_ATTRIBUTE_UNUSED = xformL10*xx0 + xformL11*xx1 + 
      xformL12*xx2 + xformL13*xx3;
    
    CCTK_REAL txx2 CCTK_ATTRIBUTE_UNUSED = xformL20*xx0 + xformL21*xx1 + 
      xformL22*xx2 + xformL23*xx3;
    
    CCTK_REAL txx3 CCTK_ATTRIBUTE_UNUSED = xformL30*xx0 + xformL31*xx1 + 
      xformL32*xx2 + xformL33*xx3;
    
    CCTK_REAL X CCTK_ATTRIBUTE_UNUSED = txx1;
    
    CCTK_REAL Y CCTK_ATTRIBUTE_UNUSED = txx2;
    
    CCTK_REAL Z CCTK_ATTRIBUTE_UNUSED = txx3;
    
    CCTK_REAL rXYZ CCTK_ATTRIBUTE_UNUSED = pow(pow(X,2) + pow(Y,2) + 
      pow(Z,2),0.5);
    
    CCTK_REAL tg400 CCTK_ATTRIBUTE_UNUSED = -1;
    
    CCTK_REAL tg401 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg402 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg403 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp10 CCTK_ATTRIBUTE_UNUSED = 0.5*M;
    
    CCTK_REAL csetemp11 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,-1);
    
    CCTK_REAL csetemp12 CCTK_ATTRIBUTE_UNUSED = pow(M,-1);
    
    CCTK_REAL csetemp13 CCTK_ATTRIBUTE_UNUSED = pow(M,2);
    
    CCTK_REAL csetemp14 CCTK_ATTRIBUTE_UNUSED = pow(Pi,-2);
    
    CCTK_REAL tg411 CCTK_ATTRIBUTE_UNUSED = 0.00390625*pow(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*pow(fmin(csetemp10,rXYZ),2))),4);
    
    CCTK_REAL tg412 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg413 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg422 CCTK_ATTRIBUTE_UNUSED = 0.00390625*pow(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*pow(fmin(csetemp10,rXYZ),2))),4);
    
    CCTK_REAL tg423 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg433 CCTK_ATTRIBUTE_UNUSED = 0.00390625*pow(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*pow(fmin(csetemp10,rXYZ),2))),4);
    
    CCTK_REAL tdg4000 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4001 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4002 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4003 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4010 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4011 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4012 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4013 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4020 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4021 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4022 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4023 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4030 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4031 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4032 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4033 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4110 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp15 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,-6);
    
    CCTK_REAL csetemp16 CCTK_ATTRIBUTE_UNUSED = 2*rXYZ;
    
    CCTK_REAL csetemp17 CCTK_ATTRIBUTE_UNUSED = pow(M,-4);
    
    CCTK_REAL csetemp18 CCTK_ATTRIBUTE_UNUSED = pow(Pi,-8);
    
    CCTK_REAL csetemp19 CCTK_ATTRIBUTE_UNUSED = pow(Pi,2);
    
    CCTK_REAL csetemp20 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,2);
    
    CCTK_REAL tdg4111 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*X*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*X*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4112 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Y*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Y*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4113 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Z*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Z*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4120 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4121 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4122 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4123 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4130 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4131 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4132 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4133 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4220 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4221 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*X*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*X*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4222 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Y*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Y*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4223 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Z*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Z*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4230 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4231 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4232 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4233 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4330 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4331 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*X*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*X*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4332 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Y*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Y*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4333 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Z*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Z*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL g400 CCTK_ATTRIBUTE_UNUSED = 2*(tg423*xformL20*xformL30 + 
      xformL00*(tg401*xformL10 + tg402*xformL20 + tg403*xformL30) + 
      xformL10*(tg412*xformL20 + tg413*xformL30)) + tg400*pow(xformL00,2) + 
      tg411*pow(xformL10,2) + tg422*pow(xformL20,2) + tg433*pow(xformL30,2);
    
    CCTK_REAL csetemp21 CCTK_ATTRIBUTE_UNUSED = tg400*xformL01;
    
    CCTK_REAL csetemp22 CCTK_ATTRIBUTE_UNUSED = tg401*xformL11;
    
    CCTK_REAL csetemp23 CCTK_ATTRIBUTE_UNUSED = tg402*xformL21;
    
    CCTK_REAL csetemp24 CCTK_ATTRIBUTE_UNUSED = tg403*xformL31;
    
    CCTK_REAL csetemp25 CCTK_ATTRIBUTE_UNUSED = tg401*xformL01;
    
    CCTK_REAL csetemp26 CCTK_ATTRIBUTE_UNUSED = tg411*xformL11;
    
    CCTK_REAL csetemp27 CCTK_ATTRIBUTE_UNUSED = tg412*xformL21;
    
    CCTK_REAL csetemp28 CCTK_ATTRIBUTE_UNUSED = tg413*xformL31;
    
    CCTK_REAL csetemp29 CCTK_ATTRIBUTE_UNUSED = tg402*xformL01;
    
    CCTK_REAL csetemp30 CCTK_ATTRIBUTE_UNUSED = tg412*xformL11;
    
    CCTK_REAL csetemp31 CCTK_ATTRIBUTE_UNUSED = tg422*xformL21;
    
    CCTK_REAL csetemp32 CCTK_ATTRIBUTE_UNUSED = tg423*xformL31;
    
    CCTK_REAL csetemp33 CCTK_ATTRIBUTE_UNUSED = tg403*xformL01;
    
    CCTK_REAL csetemp34 CCTK_ATTRIBUTE_UNUSED = tg413*xformL11;
    
    CCTK_REAL csetemp35 CCTK_ATTRIBUTE_UNUSED = tg423*xformL21;
    
    CCTK_REAL csetemp36 CCTK_ATTRIBUTE_UNUSED = tg433*xformL31;
    
    CCTK_REAL g401 CCTK_ATTRIBUTE_UNUSED = (csetemp21 + csetemp22 + 
      csetemp23 + csetemp24)*xformL00 + (csetemp25 + csetemp26 + csetemp27 + 
      csetemp28)*xformL10 + (csetemp29 + csetemp30 + csetemp31 + 
      csetemp32)*xformL20 + (csetemp33 + csetemp34 + csetemp35 + 
      csetemp36)*xformL30;
    
    CCTK_REAL csetemp37 CCTK_ATTRIBUTE_UNUSED = tg400*xformL02;
    
    CCTK_REAL csetemp38 CCTK_ATTRIBUTE_UNUSED = tg401*xformL12;
    
    CCTK_REAL csetemp39 CCTK_ATTRIBUTE_UNUSED = tg402*xformL22;
    
    CCTK_REAL csetemp40 CCTK_ATTRIBUTE_UNUSED = tg403*xformL32;
    
    CCTK_REAL csetemp41 CCTK_ATTRIBUTE_UNUSED = tg401*xformL02;
    
    CCTK_REAL csetemp42 CCTK_ATTRIBUTE_UNUSED = tg411*xformL12;
    
    CCTK_REAL csetemp43 CCTK_ATTRIBUTE_UNUSED = tg412*xformL22;
    
    CCTK_REAL csetemp44 CCTK_ATTRIBUTE_UNUSED = tg413*xformL32;
    
    CCTK_REAL csetemp45 CCTK_ATTRIBUTE_UNUSED = tg402*xformL02;
    
    CCTK_REAL csetemp46 CCTK_ATTRIBUTE_UNUSED = tg412*xformL12;
    
    CCTK_REAL csetemp47 CCTK_ATTRIBUTE_UNUSED = tg422*xformL22;
    
    CCTK_REAL csetemp48 CCTK_ATTRIBUTE_UNUSED = tg423*xformL32;
    
    CCTK_REAL csetemp49 CCTK_ATTRIBUTE_UNUSED = tg403*xformL02;
    
    CCTK_REAL csetemp50 CCTK_ATTRIBUTE_UNUSED = tg413*xformL12;
    
    CCTK_REAL csetemp51 CCTK_ATTRIBUTE_UNUSED = tg423*xformL22;
    
    CCTK_REAL csetemp52 CCTK_ATTRIBUTE_UNUSED = tg433*xformL32;
    
    CCTK_REAL g402 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL00 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL10 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL20 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL30;
    
    CCTK_REAL csetemp53 CCTK_ATTRIBUTE_UNUSED = tg400*xformL03;
    
    CCTK_REAL csetemp54 CCTK_ATTRIBUTE_UNUSED = tg401*xformL13;
    
    CCTK_REAL csetemp55 CCTK_ATTRIBUTE_UNUSED = tg402*xformL23;
    
    CCTK_REAL csetemp56 CCTK_ATTRIBUTE_UNUSED = tg403*xformL33;
    
    CCTK_REAL csetemp57 CCTK_ATTRIBUTE_UNUSED = tg401*xformL03;
    
    CCTK_REAL csetemp58 CCTK_ATTRIBUTE_UNUSED = tg411*xformL13;
    
    CCTK_REAL csetemp59 CCTK_ATTRIBUTE_UNUSED = tg412*xformL23;
    
    CCTK_REAL csetemp60 CCTK_ATTRIBUTE_UNUSED = tg413*xformL33;
    
    CCTK_REAL csetemp61 CCTK_ATTRIBUTE_UNUSED = tg402*xformL03;
    
    CCTK_REAL csetemp62 CCTK_ATTRIBUTE_UNUSED = tg412*xformL13;
    
    CCTK_REAL csetemp63 CCTK_ATTRIBUTE_UNUSED = tg422*xformL23;
    
    CCTK_REAL csetemp64 CCTK_ATTRIBUTE_UNUSED = tg423*xformL33;
    
    CCTK_REAL csetemp65 CCTK_ATTRIBUTE_UNUSED = tg403*xformL03;
    
    CCTK_REAL csetemp66 CCTK_ATTRIBUTE_UNUSED = tg413*xformL13;
    
    CCTK_REAL csetemp67 CCTK_ATTRIBUTE_UNUSED = tg423*xformL23;
    
    CCTK_REAL csetemp68 CCTK_ATTRIBUTE_UNUSED = tg433*xformL33;
    
    CCTK_REAL g403 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL00 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL10 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL20 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL30;
    
    CCTK_REAL g411 CCTK_ATTRIBUTE_UNUSED = (csetemp21 + csetemp22 + 
      csetemp23 + csetemp24)*xformL01 + (csetemp25 + csetemp26 + csetemp27 + 
      csetemp28)*xformL11 + (csetemp29 + csetemp30 + csetemp31 + 
      csetemp32)*xformL21 + (csetemp33 + csetemp34 + csetemp35 + 
      csetemp36)*xformL31;
    
    CCTK_REAL g412 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL01 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL11 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL21 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL31;
    
    CCTK_REAL g413 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL01 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL11 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL21 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL31;
    
    CCTK_REAL g422 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL02 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL12 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL22 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL32;
    
    CCTK_REAL g423 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL02 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL12 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL22 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL32;
    
    CCTK_REAL g433 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL03 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL13 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL23 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL33;
    
    CCTK_REAL csetemp69 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL00;
    
    CCTK_REAL csetemp70 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL10;
    
    CCTK_REAL csetemp71 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL20;
    
    CCTK_REAL csetemp72 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL30;
    
    CCTK_REAL csetemp73 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL00;
    
    CCTK_REAL csetemp74 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL10;
    
    CCTK_REAL csetemp75 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL20;
    
    CCTK_REAL csetemp76 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL30;
    
    CCTK_REAL csetemp77 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL00;
    
    CCTK_REAL csetemp78 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL10;
    
    CCTK_REAL csetemp79 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL20;
    
    CCTK_REAL csetemp80 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL30;
    
    CCTK_REAL csetemp81 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL00;
    
    CCTK_REAL csetemp82 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL10;
    
    CCTK_REAL csetemp83 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL20;
    
    CCTK_REAL csetemp84 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL30;
    
    CCTK_REAL csetemp85 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL00;
    
    CCTK_REAL csetemp86 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL10;
    
    CCTK_REAL csetemp87 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL20;
    
    CCTK_REAL csetemp88 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL30;
    
    CCTK_REAL csetemp89 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL00;
    
    CCTK_REAL csetemp90 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL10;
    
    CCTK_REAL csetemp91 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL20;
    
    CCTK_REAL csetemp92 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL30;
    
    CCTK_REAL csetemp93 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL00;
    
    CCTK_REAL csetemp94 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL10;
    
    CCTK_REAL csetemp95 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL20;
    
    CCTK_REAL csetemp96 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL30;
    
    CCTK_REAL csetemp97 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL00;
    
    CCTK_REAL csetemp98 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL10;
    
    CCTK_REAL csetemp99 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL20;
    
    CCTK_REAL csetemp100 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL30;
    
    CCTK_REAL csetemp101 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL00;
    
    CCTK_REAL csetemp102 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL10;
    
    CCTK_REAL csetemp103 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL20;
    
    CCTK_REAL csetemp104 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL30;
    
    CCTK_REAL csetemp105 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL00;
    
    CCTK_REAL csetemp106 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL10;
    
    CCTK_REAL csetemp107 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL20;
    
    CCTK_REAL csetemp108 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL30;
    
    CCTK_REAL dg4000 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL00 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL10 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL20 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL30) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL00 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL10 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL20 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL30) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL00 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL10 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL20 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL30) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL00 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL10 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL20 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL30);
    
    CCTK_REAL dg4010 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL01 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL11 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL21 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL31) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL01 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL11 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL21 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL31) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL01 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL11 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL21 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL31) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL01 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL11 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL21 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL31);
    
    CCTK_REAL csetemp109 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL01;
    
    CCTK_REAL csetemp110 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL11;
    
    CCTK_REAL csetemp111 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL21;
    
    CCTK_REAL csetemp112 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL31;
    
    CCTK_REAL csetemp113 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL01;
    
    CCTK_REAL csetemp114 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL11;
    
    CCTK_REAL csetemp115 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL21;
    
    CCTK_REAL csetemp116 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL31;
    
    CCTK_REAL csetemp117 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL01;
    
    CCTK_REAL csetemp118 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL11;
    
    CCTK_REAL csetemp119 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL21;
    
    CCTK_REAL csetemp120 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL31;
    
    CCTK_REAL csetemp121 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL01;
    
    CCTK_REAL csetemp122 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL11;
    
    CCTK_REAL csetemp123 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL21;
    
    CCTK_REAL csetemp124 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL31;
    
    CCTK_REAL csetemp125 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL01;
    
    CCTK_REAL csetemp126 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL11;
    
    CCTK_REAL csetemp127 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL21;
    
    CCTK_REAL csetemp128 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL31;
    
    CCTK_REAL csetemp129 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL01;
    
    CCTK_REAL csetemp130 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL11;
    
    CCTK_REAL csetemp131 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL21;
    
    CCTK_REAL csetemp132 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL31;
    
    CCTK_REAL csetemp133 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL01;
    
    CCTK_REAL csetemp134 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL11;
    
    CCTK_REAL csetemp135 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL21;
    
    CCTK_REAL csetemp136 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL31;
    
    CCTK_REAL csetemp137 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL01;
    
    CCTK_REAL csetemp138 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL11;
    
    CCTK_REAL csetemp139 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL21;
    
    CCTK_REAL csetemp140 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL31;
    
    CCTK_REAL csetemp141 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL01;
    
    CCTK_REAL csetemp142 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL11;
    
    CCTK_REAL csetemp143 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL21;
    
    CCTK_REAL csetemp144 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL31;
    
    CCTK_REAL csetemp145 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL01;
    
    CCTK_REAL csetemp146 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL11;
    
    CCTK_REAL csetemp147 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL21;
    
    CCTK_REAL csetemp148 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL31;
    
    CCTK_REAL dg4011 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL01 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL11 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL21 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL31) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL01 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL11 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL21 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL31) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL01 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL11 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL21 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL31) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL01 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL11 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL21 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL31);
    
    CCTK_REAL csetemp149 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL02;
    
    CCTK_REAL csetemp150 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL12;
    
    CCTK_REAL csetemp151 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL22;
    
    CCTK_REAL csetemp152 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL32;
    
    CCTK_REAL csetemp153 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL02;
    
    CCTK_REAL csetemp154 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL12;
    
    CCTK_REAL csetemp155 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL22;
    
    CCTK_REAL csetemp156 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL32;
    
    CCTK_REAL csetemp157 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL02;
    
    CCTK_REAL csetemp158 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL12;
    
    CCTK_REAL csetemp159 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL22;
    
    CCTK_REAL csetemp160 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL32;
    
    CCTK_REAL csetemp161 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL02;
    
    CCTK_REAL csetemp162 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL12;
    
    CCTK_REAL csetemp163 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL22;
    
    CCTK_REAL csetemp164 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL32;
    
    CCTK_REAL csetemp165 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL02;
    
    CCTK_REAL csetemp166 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL12;
    
    CCTK_REAL csetemp167 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL22;
    
    CCTK_REAL csetemp168 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL32;
    
    CCTK_REAL csetemp169 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL02;
    
    CCTK_REAL csetemp170 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL12;
    
    CCTK_REAL csetemp171 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL22;
    
    CCTK_REAL csetemp172 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL32;
    
    CCTK_REAL csetemp173 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL02;
    
    CCTK_REAL csetemp174 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL12;
    
    CCTK_REAL csetemp175 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL22;
    
    CCTK_REAL csetemp176 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL32;
    
    CCTK_REAL csetemp177 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL02;
    
    CCTK_REAL csetemp178 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL12;
    
    CCTK_REAL csetemp179 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL22;
    
    CCTK_REAL csetemp180 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL32;
    
    CCTK_REAL csetemp181 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL02;
    
    CCTK_REAL csetemp182 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL12;
    
    CCTK_REAL csetemp183 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL22;
    
    CCTK_REAL csetemp184 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL32;
    
    CCTK_REAL csetemp185 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL02;
    
    CCTK_REAL csetemp186 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL12;
    
    CCTK_REAL csetemp187 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL22;
    
    CCTK_REAL csetemp188 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL32;
    
    CCTK_REAL dg4012 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL01 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL11 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL21 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL31) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL01 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL11 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL21 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL31) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL01 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL11 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL21 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL31) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL01 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL11 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL21 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL31);
    
    CCTK_REAL csetemp189 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL03;
    
    CCTK_REAL csetemp190 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL13;
    
    CCTK_REAL csetemp191 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL23;
    
    CCTK_REAL csetemp192 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL33;
    
    CCTK_REAL csetemp193 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL03;
    
    CCTK_REAL csetemp194 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL13;
    
    CCTK_REAL csetemp195 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL23;
    
    CCTK_REAL csetemp196 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL33;
    
    CCTK_REAL csetemp197 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL03;
    
    CCTK_REAL csetemp198 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL13;
    
    CCTK_REAL csetemp199 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL23;
    
    CCTK_REAL csetemp200 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL33;
    
    CCTK_REAL csetemp201 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL03;
    
    CCTK_REAL csetemp202 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL13;
    
    CCTK_REAL csetemp203 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL23;
    
    CCTK_REAL csetemp204 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL33;
    
    CCTK_REAL csetemp205 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL03;
    
    CCTK_REAL csetemp206 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL13;
    
    CCTK_REAL csetemp207 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL23;
    
    CCTK_REAL csetemp208 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL33;
    
    CCTK_REAL csetemp209 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL03;
    
    CCTK_REAL csetemp210 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL13;
    
    CCTK_REAL csetemp211 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL23;
    
    CCTK_REAL csetemp212 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL33;
    
    CCTK_REAL csetemp213 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL03;
    
    CCTK_REAL csetemp214 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL13;
    
    CCTK_REAL csetemp215 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL23;
    
    CCTK_REAL csetemp216 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL33;
    
    CCTK_REAL csetemp217 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL03;
    
    CCTK_REAL csetemp218 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL13;
    
    CCTK_REAL csetemp219 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL23;
    
    CCTK_REAL csetemp220 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL33;
    
    CCTK_REAL csetemp221 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL03;
    
    CCTK_REAL csetemp222 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL13;
    
    CCTK_REAL csetemp223 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL23;
    
    CCTK_REAL csetemp224 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL33;
    
    CCTK_REAL csetemp225 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL03;
    
    CCTK_REAL csetemp226 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL13;
    
    CCTK_REAL csetemp227 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL23;
    
    CCTK_REAL csetemp228 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL33;
    
    CCTK_REAL dg4013 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL01 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL11 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL21 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL31) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL01 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL11 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL21 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL31) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL01 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL11 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL21 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL31) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL01 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL11 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL21 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL31);
    
    CCTK_REAL dg4020 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4021 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4022 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4023 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4030 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4031 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4032 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4033 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4110 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL01 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL11 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL21 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL31) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL01 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL11 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL21 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL31) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL01 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL11 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL21 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL31) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL01 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL11 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL21 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL31);
    
    CCTK_REAL dg4111 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL01 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL11 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL21 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL31) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL01 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL11 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL21 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL31) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL01 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL11 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL21 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL31) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL01 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL11 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL21 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL31);
    
    CCTK_REAL dg4112 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL01 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL11 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL21 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL31) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL01 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL11 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL21 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL31) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL01 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL11 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL21 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL31) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL01 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL11 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL21 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL31);
    
    CCTK_REAL dg4113 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL01 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL11 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL21 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL31) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL01 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL11 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL21 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL31) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL01 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL11 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL21 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL31) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL01 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL11 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL21 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL31);
    
    CCTK_REAL dg4120 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4121 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4122 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4123 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4130 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4131 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4132 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4133 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4220 CCTK_ATTRIBUTE_UNUSED = xformL22*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL32*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL02*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL12*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4221 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL12*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL22*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL32*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4222 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL12*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL22*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL32*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4223 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL12*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL22*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL32*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4230 CCTK_ATTRIBUTE_UNUSED = xformL22*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL32*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL02*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL12*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4231 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL12*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL22*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL32*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4232 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL12*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL22*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL32*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4233 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL12*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL22*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL32*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4330 CCTK_ATTRIBUTE_UNUSED = xformL23*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL33*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL03*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL13*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4331 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL13*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL23*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL33*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4332 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL13*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL23*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL33*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4333 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL13*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL23*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL33*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL betal1 CCTK_ATTRIBUTE_UNUSED = g401;
    
    CCTK_REAL betal2 CCTK_ATTRIBUTE_UNUSED = g402;
    
    CCTK_REAL betal3 CCTK_ATTRIBUTE_UNUSED = g403;
    
    gxxL = g411;
    
    gxyL = g412;
    
    gxzL = g413;
    
    gyyL = g422;
    
    gyzL = g423;
    
    gzzL = g433;
    
    CCTK_REAL csetemp229 CCTK_ATTRIBUTE_UNUSED = pow(gxzL,2);
    
    CCTK_REAL csetemp230 CCTK_ATTRIBUTE_UNUSED = pow(gyzL,2);
    
    CCTK_REAL csetemp231 CCTK_ATTRIBUTE_UNUSED = pow(gxyL,2);
    
    CCTK_REAL detg CCTK_ATTRIBUTE_UNUSED = 2*gxyL*gxzL*gyzL + 
      gyyL*(gxxL*gzzL - csetemp229) - gxxL*csetemp230 - gzzL*csetemp231;
    
    CCTK_REAL csetemp232 CCTK_ATTRIBUTE_UNUSED = pow(detg,-1);
    
    CCTK_REAL gu11 CCTK_ATTRIBUTE_UNUSED = (gyyL*gzzL - 
      csetemp230)*csetemp232;
    
    CCTK_REAL gu12 CCTK_ATTRIBUTE_UNUSED = (gxzL*gyzL - 
      gxyL*gzzL)*csetemp232;
    
    CCTK_REAL gu13 CCTK_ATTRIBUTE_UNUSED = (-(gxzL*gyyL) + 
      gxyL*gyzL)*csetemp232;
    
    CCTK_REAL gu22 CCTK_ATTRIBUTE_UNUSED = (gxxL*gzzL - 
      csetemp229)*csetemp232;
    
    CCTK_REAL gu23 CCTK_ATTRIBUTE_UNUSED = (gxyL*gxzL - 
      gxxL*gyzL)*csetemp232;
    
    CCTK_REAL gu33 CCTK_ATTRIBUTE_UNUSED = (gxxL*gyyL - 
      csetemp231)*csetemp232;
    
    betaxL = betal1*gu11 + betal2*gu12 + betal3*gu13;
    
    betayL = betal1*gu12 + betal2*gu22 + betal3*gu23;
    
    betazL = betal1*gu13 + betal2*gu23 + betal3*gu33;
    
    CCTK_REAL betasq CCTK_ATTRIBUTE_UNUSED = betaxL*betal1 + betayL*betal2 
      + betazL*betal3;
    
    alpL = pow(betasq - g400,0.5);
    
    CCTK_REAL dtg11 CCTK_ATTRIBUTE_UNUSED = dg4110;
    
    CCTK_REAL dtg12 CCTK_ATTRIBUTE_UNUSED = dg4120;
    
    CCTK_REAL dtg13 CCTK_ATTRIBUTE_UNUSED = dg4130;
    
    CCTK_REAL dtg22 CCTK_ATTRIBUTE_UNUSED = dg4220;
    
    CCTK_REAL dtg23 CCTK_ATTRIBUTE_UNUSED = dg4230;
    
    CCTK_REAL dtg33 CCTK_ATTRIBUTE_UNUSED = dg4330;
    
    CCTK_REAL dg111 CCTK_ATTRIBUTE_UNUSED = dg4111;
    
    CCTK_REAL dg112 CCTK_ATTRIBUTE_UNUSED = dg4112;
    
    CCTK_REAL dg113 CCTK_ATTRIBUTE_UNUSED = dg4113;
    
    CCTK_REAL dg121 CCTK_ATTRIBUTE_UNUSED = dg4121;
    
    CCTK_REAL dg122 CCTK_ATTRIBUTE_UNUSED = dg4122;
    
    CCTK_REAL dg123 CCTK_ATTRIBUTE_UNUSED = dg4123;
    
    CCTK_REAL dg131 CCTK_ATTRIBUTE_UNUSED = dg4131;
    
    CCTK_REAL dg132 CCTK_ATTRIBUTE_UNUSED = dg4132;
    
    CCTK_REAL dg133 CCTK_ATTRIBUTE_UNUSED = dg4133;
    
    CCTK_REAL dg221 CCTK_ATTRIBUTE_UNUSED = dg4221;
    
    CCTK_REAL dg222 CCTK_ATTRIBUTE_UNUSED = dg4222;
    
    CCTK_REAL dg223 CCTK_ATTRIBUTE_UNUSED = dg4223;
    
    CCTK_REAL dg231 CCTK_ATTRIBUTE_UNUSED = dg4231;
    
    CCTK_REAL dg232 CCTK_ATTRIBUTE_UNUSED = dg4232;
    
    CCTK_REAL dg233 CCTK_ATTRIBUTE_UNUSED = dg4233;
    
    CCTK_REAL dg331 CCTK_ATTRIBUTE_UNUSED = dg4331;
    
    CCTK_REAL dg332 CCTK_ATTRIBUTE_UNUSED = dg4332;
    
    CCTK_REAL dg333 CCTK_ATTRIBUTE_UNUSED = dg4333;
    
    CCTK_REAL csetemp233 CCTK_ATTRIBUTE_UNUSED = dtg11*gu11;
    
    CCTK_REAL csetemp234 CCTK_ATTRIBUTE_UNUSED = dtg12*gu12;
    
    CCTK_REAL csetemp235 CCTK_ATTRIBUTE_UNUSED = dtg13*gu13;
    
    CCTK_REAL csetemp236 CCTK_ATTRIBUTE_UNUSED = dtg12*gu11;
    
    CCTK_REAL csetemp237 CCTK_ATTRIBUTE_UNUSED = dtg22*gu12;
    
    CCTK_REAL csetemp238 CCTK_ATTRIBUTE_UNUSED = dtg23*gu13;
    
    CCTK_REAL csetemp239 CCTK_ATTRIBUTE_UNUSED = dtg13*gu11;
    
    CCTK_REAL csetemp240 CCTK_ATTRIBUTE_UNUSED = dtg23*gu12;
    
    CCTK_REAL csetemp241 CCTK_ATTRIBUTE_UNUSED = dtg33*gu13;
    
    CCTK_REAL dtgu11 CCTK_ATTRIBUTE_UNUSED = -((csetemp233 + csetemp234 + 
      csetemp235)*gu11) - (csetemp236 + csetemp237 + csetemp238)*gu12 - 
      (csetemp239 + csetemp240 + csetemp241)*gu13;
    
    CCTK_REAL dtgu12 CCTK_ATTRIBUTE_UNUSED = -((csetemp233 + csetemp234 + 
      csetemp235)*gu12) - (csetemp236 + csetemp237 + csetemp238)*gu22 - 
      (csetemp239 + csetemp240 + csetemp241)*gu23;
    
    CCTK_REAL dtgu13 CCTK_ATTRIBUTE_UNUSED = -((csetemp233 + csetemp234 + 
      csetemp235)*gu13) - (csetemp236 + csetemp237 + csetemp238)*gu23 - 
      (csetemp239 + csetemp240 + csetemp241)*gu33;
    
    CCTK_REAL csetemp242 CCTK_ATTRIBUTE_UNUSED = dtg11*gu12;
    
    CCTK_REAL csetemp243 CCTK_ATTRIBUTE_UNUSED = dtg12*gu22;
    
    CCTK_REAL csetemp244 CCTK_ATTRIBUTE_UNUSED = dtg13*gu23;
    
    CCTK_REAL csetemp245 CCTK_ATTRIBUTE_UNUSED = dtg22*gu22;
    
    CCTK_REAL csetemp246 CCTK_ATTRIBUTE_UNUSED = dtg23*gu23;
    
    CCTK_REAL csetemp247 CCTK_ATTRIBUTE_UNUSED = dtg13*gu12;
    
    CCTK_REAL csetemp248 CCTK_ATTRIBUTE_UNUSED = dtg23*gu22;
    
    CCTK_REAL csetemp249 CCTK_ATTRIBUTE_UNUSED = dtg33*gu23;
    
    CCTK_REAL dtgu22 CCTK_ATTRIBUTE_UNUSED = -((csetemp242 + csetemp243 + 
      csetemp244)*gu12) - (csetemp234 + csetemp245 + csetemp246)*gu22 - 
      (csetemp247 + csetemp248 + csetemp249)*gu23;
    
    CCTK_REAL dtgu23 CCTK_ATTRIBUTE_UNUSED = -((csetemp242 + csetemp243 + 
      csetemp244)*gu13) - (csetemp234 + csetemp245 + csetemp246)*gu23 - 
      (csetemp247 + csetemp248 + csetemp249)*gu33;
    
    CCTK_REAL dtgu33 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dtg11*gu13 + 
      dtg12*gu23 + dtg13*gu33)) - gu23*(dtg12*gu13 + dtg22*gu23 + dtg23*gu33) 
      - gu33*(csetemp235 + csetemp246 + dtg33*gu33);
    
    CCTK_REAL csetemp250 CCTK_ATTRIBUTE_UNUSED = dg111*gu11;
    
    CCTK_REAL csetemp251 CCTK_ATTRIBUTE_UNUSED = dg121*gu12;
    
    CCTK_REAL csetemp252 CCTK_ATTRIBUTE_UNUSED = dg131*gu13;
    
    CCTK_REAL csetemp253 CCTK_ATTRIBUTE_UNUSED = dg121*gu11;
    
    CCTK_REAL csetemp254 CCTK_ATTRIBUTE_UNUSED = dg221*gu12;
    
    CCTK_REAL csetemp255 CCTK_ATTRIBUTE_UNUSED = dg231*gu13;
    
    CCTK_REAL csetemp256 CCTK_ATTRIBUTE_UNUSED = dg131*gu11;
    
    CCTK_REAL csetemp257 CCTK_ATTRIBUTE_UNUSED = dg231*gu12;
    
    CCTK_REAL csetemp258 CCTK_ATTRIBUTE_UNUSED = dg331*gu13;
    
    CCTK_REAL dgu111 CCTK_ATTRIBUTE_UNUSED = -((csetemp250 + csetemp251 + 
      csetemp252)*gu11) - (csetemp253 + csetemp254 + csetemp255)*gu12 - 
      (csetemp256 + csetemp257 + csetemp258)*gu13;
    
    CCTK_REAL dgu121 CCTK_ATTRIBUTE_UNUSED = -((csetemp250 + csetemp251 + 
      csetemp252)*gu12) - (csetemp253 + csetemp254 + csetemp255)*gu22 - 
      (csetemp256 + csetemp257 + csetemp258)*gu23;
    
    CCTK_REAL dgu131 CCTK_ATTRIBUTE_UNUSED = -((csetemp250 + csetemp251 + 
      csetemp252)*gu13) - (csetemp253 + csetemp254 + csetemp255)*gu23 - 
      (csetemp256 + csetemp257 + csetemp258)*gu33;
    
    CCTK_REAL csetemp259 CCTK_ATTRIBUTE_UNUSED = dg111*gu12;
    
    CCTK_REAL csetemp260 CCTK_ATTRIBUTE_UNUSED = dg121*gu22;
    
    CCTK_REAL csetemp261 CCTK_ATTRIBUTE_UNUSED = dg131*gu23;
    
    CCTK_REAL csetemp262 CCTK_ATTRIBUTE_UNUSED = dg221*gu22;
    
    CCTK_REAL csetemp263 CCTK_ATTRIBUTE_UNUSED = dg231*gu23;
    
    CCTK_REAL csetemp264 CCTK_ATTRIBUTE_UNUSED = dg131*gu12;
    
    CCTK_REAL csetemp265 CCTK_ATTRIBUTE_UNUSED = dg231*gu22;
    
    CCTK_REAL csetemp266 CCTK_ATTRIBUTE_UNUSED = dg331*gu23;
    
    CCTK_REAL dgu221 CCTK_ATTRIBUTE_UNUSED = -((csetemp259 + csetemp260 + 
      csetemp261)*gu12) - (csetemp251 + csetemp262 + csetemp263)*gu22 - 
      (csetemp264 + csetemp265 + csetemp266)*gu23;
    
    CCTK_REAL dgu231 CCTK_ATTRIBUTE_UNUSED = -((csetemp259 + csetemp260 + 
      csetemp261)*gu13) - (csetemp251 + csetemp262 + csetemp263)*gu23 - 
      (csetemp264 + csetemp265 + csetemp266)*gu33;
    
    CCTK_REAL dgu331 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg111*gu13 + 
      dg121*gu23 + dg131*gu33)) - gu23*(dg121*gu13 + dg221*gu23 + dg231*gu33) 
      - gu33*(csetemp252 + csetemp263 + dg331*gu33);
    
    CCTK_REAL csetemp267 CCTK_ATTRIBUTE_UNUSED = dg112*gu11;
    
    CCTK_REAL csetemp268 CCTK_ATTRIBUTE_UNUSED = dg122*gu12;
    
    CCTK_REAL csetemp269 CCTK_ATTRIBUTE_UNUSED = dg132*gu13;
    
    CCTK_REAL csetemp270 CCTK_ATTRIBUTE_UNUSED = dg122*gu11;
    
    CCTK_REAL csetemp271 CCTK_ATTRIBUTE_UNUSED = dg222*gu12;
    
    CCTK_REAL csetemp272 CCTK_ATTRIBUTE_UNUSED = dg232*gu13;
    
    CCTK_REAL csetemp273 CCTK_ATTRIBUTE_UNUSED = dg132*gu11;
    
    CCTK_REAL csetemp274 CCTK_ATTRIBUTE_UNUSED = dg232*gu12;
    
    CCTK_REAL csetemp275 CCTK_ATTRIBUTE_UNUSED = dg332*gu13;
    
    CCTK_REAL dgu112 CCTK_ATTRIBUTE_UNUSED = -((csetemp267 + csetemp268 + 
      csetemp269)*gu11) - (csetemp270 + csetemp271 + csetemp272)*gu12 - 
      (csetemp273 + csetemp274 + csetemp275)*gu13;
    
    CCTK_REAL dgu122 CCTK_ATTRIBUTE_UNUSED = -((csetemp267 + csetemp268 + 
      csetemp269)*gu12) - (csetemp270 + csetemp271 + csetemp272)*gu22 - 
      (csetemp273 + csetemp274 + csetemp275)*gu23;
    
    CCTK_REAL dgu132 CCTK_ATTRIBUTE_UNUSED = -((csetemp267 + csetemp268 + 
      csetemp269)*gu13) - (csetemp270 + csetemp271 + csetemp272)*gu23 - 
      (csetemp273 + csetemp274 + csetemp275)*gu33;
    
    CCTK_REAL csetemp276 CCTK_ATTRIBUTE_UNUSED = dg112*gu12;
    
    CCTK_REAL csetemp277 CCTK_ATTRIBUTE_UNUSED = dg122*gu22;
    
    CCTK_REAL csetemp278 CCTK_ATTRIBUTE_UNUSED = dg132*gu23;
    
    CCTK_REAL csetemp279 CCTK_ATTRIBUTE_UNUSED = dg222*gu22;
    
    CCTK_REAL csetemp280 CCTK_ATTRIBUTE_UNUSED = dg232*gu23;
    
    CCTK_REAL csetemp281 CCTK_ATTRIBUTE_UNUSED = dg132*gu12;
    
    CCTK_REAL csetemp282 CCTK_ATTRIBUTE_UNUSED = dg232*gu22;
    
    CCTK_REAL csetemp283 CCTK_ATTRIBUTE_UNUSED = dg332*gu23;
    
    CCTK_REAL dgu222 CCTK_ATTRIBUTE_UNUSED = -((csetemp276 + csetemp277 + 
      csetemp278)*gu12) - (csetemp268 + csetemp279 + csetemp280)*gu22 - 
      (csetemp281 + csetemp282 + csetemp283)*gu23;
    
    CCTK_REAL dgu232 CCTK_ATTRIBUTE_UNUSED = -((csetemp276 + csetemp277 + 
      csetemp278)*gu13) - (csetemp268 + csetemp279 + csetemp280)*gu23 - 
      (csetemp281 + csetemp282 + csetemp283)*gu33;
    
    CCTK_REAL dgu332 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg112*gu13 + 
      dg122*gu23 + dg132*gu33)) - gu23*(dg122*gu13 + dg222*gu23 + dg232*gu33) 
      - gu33*(csetemp269 + csetemp280 + dg332*gu33);
    
    CCTK_REAL csetemp284 CCTK_ATTRIBUTE_UNUSED = dg113*gu11;
    
    CCTK_REAL csetemp285 CCTK_ATTRIBUTE_UNUSED = dg123*gu12;
    
    CCTK_REAL csetemp286 CCTK_ATTRIBUTE_UNUSED = dg133*gu13;
    
    CCTK_REAL csetemp287 CCTK_ATTRIBUTE_UNUSED = dg123*gu11;
    
    CCTK_REAL csetemp288 CCTK_ATTRIBUTE_UNUSED = dg223*gu12;
    
    CCTK_REAL csetemp289 CCTK_ATTRIBUTE_UNUSED = dg233*gu13;
    
    CCTK_REAL csetemp290 CCTK_ATTRIBUTE_UNUSED = dg133*gu11;
    
    CCTK_REAL csetemp291 CCTK_ATTRIBUTE_UNUSED = dg233*gu12;
    
    CCTK_REAL csetemp292 CCTK_ATTRIBUTE_UNUSED = dg333*gu13;
    
    CCTK_REAL dgu113 CCTK_ATTRIBUTE_UNUSED = -((csetemp284 + csetemp285 + 
      csetemp286)*gu11) - (csetemp287 + csetemp288 + csetemp289)*gu12 - 
      (csetemp290 + csetemp291 + csetemp292)*gu13;
    
    CCTK_REAL dgu123 CCTK_ATTRIBUTE_UNUSED = -((csetemp284 + csetemp285 + 
      csetemp286)*gu12) - (csetemp287 + csetemp288 + csetemp289)*gu22 - 
      (csetemp290 + csetemp291 + csetemp292)*gu23;
    
    CCTK_REAL dgu133 CCTK_ATTRIBUTE_UNUSED = -((csetemp284 + csetemp285 + 
      csetemp286)*gu13) - (csetemp287 + csetemp288 + csetemp289)*gu23 - 
      (csetemp290 + csetemp291 + csetemp292)*gu33;
    
    CCTK_REAL csetemp293 CCTK_ATTRIBUTE_UNUSED = dg113*gu12;
    
    CCTK_REAL csetemp294 CCTK_ATTRIBUTE_UNUSED = dg123*gu22;
    
    CCTK_REAL csetemp295 CCTK_ATTRIBUTE_UNUSED = dg133*gu23;
    
    CCTK_REAL csetemp296 CCTK_ATTRIBUTE_UNUSED = dg223*gu22;
    
    CCTK_REAL csetemp297 CCTK_ATTRIBUTE_UNUSED = dg233*gu23;
    
    CCTK_REAL csetemp298 CCTK_ATTRIBUTE_UNUSED = dg133*gu12;
    
    CCTK_REAL csetemp299 CCTK_ATTRIBUTE_UNUSED = dg233*gu22;
    
    CCTK_REAL csetemp300 CCTK_ATTRIBUTE_UNUSED = dg333*gu23;
    
    CCTK_REAL dgu223 CCTK_ATTRIBUTE_UNUSED = -((csetemp293 + csetemp294 + 
      csetemp295)*gu12) - (csetemp285 + csetemp296 + csetemp297)*gu22 - 
      (csetemp298 + csetemp299 + csetemp300)*gu23;
    
    CCTK_REAL dgu233 CCTK_ATTRIBUTE_UNUSED = -((csetemp293 + csetemp294 + 
      csetemp295)*gu13) - (csetemp285 + csetemp296 + csetemp297)*gu23 - 
      (csetemp298 + csetemp299 + csetemp300)*gu33;
    
    CCTK_REAL dgu333 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg113*gu13 + 
      dg123*gu23 + dg133*gu33)) - gu23*(dg123*gu13 + dg223*gu23 + dg233*gu33) 
      - gu33*(csetemp286 + csetemp297 + dg333*gu33);
    
    CCTK_REAL dtbetal1 CCTK_ATTRIBUTE_UNUSED = dg4010;
    
    CCTK_REAL dtbetal2 CCTK_ATTRIBUTE_UNUSED = dg4020;
    
    CCTK_REAL dtbetal3 CCTK_ATTRIBUTE_UNUSED = dg4030;
    
    CCTK_REAL dbetal11 CCTK_ATTRIBUTE_UNUSED = dg4011;
    
    CCTK_REAL dbetal12 CCTK_ATTRIBUTE_UNUSED = dg4012;
    
    CCTK_REAL dbetal13 CCTK_ATTRIBUTE_UNUSED = dg4013;
    
    CCTK_REAL dbetal21 CCTK_ATTRIBUTE_UNUSED = dg4021;
    
    CCTK_REAL dbetal22 CCTK_ATTRIBUTE_UNUSED = dg4022;
    
    CCTK_REAL dbetal23 CCTK_ATTRIBUTE_UNUSED = dg4023;
    
    CCTK_REAL dbetal31 CCTK_ATTRIBUTE_UNUSED = dg4031;
    
    CCTK_REAL dbetal32 CCTK_ATTRIBUTE_UNUSED = dg4032;
    
    CCTK_REAL dbetal33 CCTK_ATTRIBUTE_UNUSED = dg4033;
    
    dtbetaxL = betal1*dtgu11 + betal2*dtgu12 + betal3*dtgu13 + 
      dtbetal1*gu11 + dtbetal2*gu12 + dtbetal3*gu13;
    
    dtbetayL = betal1*dtgu12 + betal2*dtgu22 + betal3*dtgu23 + 
      dtbetal1*gu12 + dtbetal2*gu22 + dtbetal3*gu23;
    
    dtbetazL = betal1*dtgu13 + betal2*dtgu23 + betal3*dtgu33 + 
      dtbetal1*gu13 + dtbetal2*gu23 + dtbetal3*gu33;
    
    CCTK_REAL dbeta11 CCTK_ATTRIBUTE_UNUSED = betal1*dgu111 + 
      betal2*dgu121 + betal3*dgu131 + dbetal11*gu11 + dbetal21*gu12 + 
      dbetal31*gu13;
    
    CCTK_REAL dbeta21 CCTK_ATTRIBUTE_UNUSED = betal1*dgu121 + 
      betal2*dgu221 + betal3*dgu231 + dbetal11*gu12 + dbetal21*gu22 + 
      dbetal31*gu23;
    
    CCTK_REAL dbeta31 CCTK_ATTRIBUTE_UNUSED = betal1*dgu131 + 
      betal2*dgu231 + betal3*dgu331 + dbetal11*gu13 + dbetal21*gu23 + 
      dbetal31*gu33;
    
    CCTK_REAL dbeta12 CCTK_ATTRIBUTE_UNUSED = betal1*dgu112 + 
      betal2*dgu122 + betal3*dgu132 + dbetal12*gu11 + dbetal22*gu12 + 
      dbetal32*gu13;
    
    CCTK_REAL dbeta22 CCTK_ATTRIBUTE_UNUSED = betal1*dgu122 + 
      betal2*dgu222 + betal3*dgu232 + dbetal12*gu12 + dbetal22*gu22 + 
      dbetal32*gu23;
    
    CCTK_REAL dbeta32 CCTK_ATTRIBUTE_UNUSED = betal1*dgu132 + 
      betal2*dgu232 + betal3*dgu332 + dbetal12*gu13 + dbetal22*gu23 + 
      dbetal32*gu33;
    
    CCTK_REAL dbeta13 CCTK_ATTRIBUTE_UNUSED = betal1*dgu113 + 
      betal2*dgu123 + betal3*dgu133 + dbetal13*gu11 + dbetal23*gu12 + 
      dbetal33*gu13;
    
    CCTK_REAL dbeta23 CCTK_ATTRIBUTE_UNUSED = betal1*dgu123 + 
      betal2*dgu223 + betal3*dgu233 + dbetal13*gu12 + dbetal23*gu22 + 
      dbetal33*gu23;
    
    CCTK_REAL dbeta33 CCTK_ATTRIBUTE_UNUSED = betal1*dgu133 + 
      betal2*dgu233 + betal3*dgu333 + dbetal13*gu13 + dbetal23*gu23 + 
      dbetal33*gu33;
    
    CCTK_REAL dtbetasq CCTK_ATTRIBUTE_UNUSED = dtbetaxL*betal1 + 
      dtbetayL*betal2 + dtbetazL*betal3 + betaxL*dtbetal1 + betayL*dtbetal2 + 
      betazL*dtbetal3;
    
    CCTK_REAL csetemp301 CCTK_ATTRIBUTE_UNUSED = pow(alpL,-1);
    
    CCTK_REAL dtalpL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(-dg4000 + 
      dtbetasq);
    
    CCTK_REAL kxxL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(2*(gxxL*dbeta11 
      + gxyL*dbeta21 + gxzL*dbeta31) + betaxL*dg111 + betayL*dg112 + 
      betazL*dg113 - dtg11);
    
    CCTK_REAL kxyL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(gxxL*dbeta12 + 
      gyyL*dbeta21 + gxyL*(dbeta11 + dbeta22) + gyzL*dbeta31 + gxzL*dbeta32 + 
      betaxL*dg121 + betayL*dg122 + betazL*dg123 - dtg12);
    
    CCTK_REAL kxzL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(gxxL*dbeta13 + 
      gyzL*dbeta21 + gxyL*dbeta23 + gzzL*dbeta31 + gxzL*(dbeta11 + dbeta33) + 
      betaxL*dg131 + betayL*dg132 + betazL*dg133 - dtg13);
    
    CCTK_REAL kyyL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(2*(gxyL*dbeta12 
      + gyyL*dbeta22 + gyzL*dbeta32) + betaxL*dg221 + betayL*dg222 + 
      betazL*dg223 - dtg22);
    
    CCTK_REAL kyzL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(gxzL*dbeta12 + 
      gxyL*dbeta13 + gyyL*dbeta23 + gzzL*dbeta32 + gyzL*(dbeta22 + dbeta33) + 
      betaxL*dg231 + betayL*dg232 + betazL*dg233 - dtg23);
    
    CCTK_REAL kzzL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp301*(2*(gxzL*dbeta13 
      + gyzL*dbeta23 + gzzL*dbeta33) + betaxL*dg331 + betayL*dg332 + 
      betazL*dg333 - dtg33);
    /* Copy local copies back to grid functions */
    alp[index] = alpL;
    betax[index] = betaxL;
    betay[index] = betayL;
    betaz[index] = betazL;
    dtalp[index] = dtalpL;
    dtbetax[index] = dtbetaxL;
    dtbetay[index] = dtbetayL;
    dtbetaz[index] = dtbetazL;
    gxx[index] = gxxL;
    gxy[index] = gxyL;
    gxz[index] = gxzL;
    gyy[index] = gyyL;
    gyz[index] = gyzL;
    gzz[index] = gzzL;
    kxx[index] = kxxL;
    kxy[index] = kxyL;
    kxz[index] = kxzL;
    kyy[index] = kyyL;
    kyz[index] = kyzL;
    kzz[index] = kzzL;
  }
  CCTK_ENDLOOP3(ModifiedSchwarzschildBL_initial);
}
extern "C" void ModifiedSchwarzschildBL_initial(CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  if (verbose > 1)
  {
    CCTK_VInfo(CCTK_THORNSTRING,"Entering ModifiedSchwarzschildBL_initial_Body");
  }
  if (cctk_iteration % ModifiedSchwarzschildBL_initial_calc_every != ModifiedSchwarzschildBL_initial_calc_offset)
  {
    return;
  }
  
  const char* const groups[] = {
    "admbase::curv",
    "admbase::dtlapse",
    "admbase::dtshift",
    "admbase::lapse",
    "admbase::metric",
    "admbase::shift",
    "grid::coordinates"};
  AssertGroupStorage(cctkGH, "ModifiedSchwarzschildBL_initial", 7, groups);
  
  
  LoopOverEverything(cctkGH, ModifiedSchwarzschildBL_initial_Body);
  if (verbose > 1)
  {
    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ModifiedSchwarzschildBL_initial_Body");
  }
}

} // namespace ModifiedSchwarzschildBL

```

make.code.defn:
```
# File produced by Kranc

SRCS = Boundaries.cc Kranc.cc ModifiedSchwarzschildBL_always.cc ModifiedSchwarzschildBL_exact.cc ModifiedSchwarzschildBL_initial.cc ParamCheck.cc RegisterMoL.cc RegisterSymmetries.cc Startup.cc 

```

RegisterSymmetries.cc:
```
/*  File produced by Kranc */

#include "cctk.h"
#include "cctk_Arguments.h"
#include "cctk_Parameters.h"
#include "Symmetry.h"

extern "C" void ModifiedSchwarzschildBL_RegisterSymmetries(CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  /* array holding symmetry definitions */
  int sym[3];
  
  /* Register symmetries of grid functions */
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::gExact11");
  
  sym[0] = -1;
  sym[1] = -1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::gExact12");
  
  sym[0] = -1;
  sym[1] = 1;
  sym[2] = -1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::gExact13");
  
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::gExact22");
  
  sym[0] = 1;
  sym[1] = -1;
  sym[2] = -1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::gExact23");
  
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::gExact33");
  
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::kExact11");
  
  sym[0] = -1;
  sym[1] = -1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::kExact12");
  
  sym[0] = -1;
  sym[1] = 1;
  sym[2] = -1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::kExact13");
  
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::kExact22");
  
  sym[0] = 1;
  sym[1] = -1;
  sym[2] = -1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::kExact23");
  
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::kExact33");
  
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::alpExact");
  
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::dtalpExact");
  
  sym[0] = -1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::betaExact1");
  
  sym[0] = 1;
  sym[1] = -1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::betaExact2");
  
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = -1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::betaExact3");
  
  sym[0] = -1;
  sym[1] = 1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::dtbetaExact1");
  
  sym[0] = 1;
  sym[1] = -1;
  sym[2] = 1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::dtbetaExact2");
  
  sym[0] = 1;
  sym[1] = 1;
  sym[2] = -1;
  SetCartSymVN(cctkGH, sym, "ModifiedSchwarzschildBL::dtbetaExact3");
  
}

```

Startup.cc:
```
/*  File produced by Kranc */

#include "cctk.h"

extern "C" int ModifiedSchwarzschildBL_Startup(void)
{
  const char* banner CCTK_ATTRIBUTE_UNUSED = "ModifiedSchwarzschildBL";
  CCTK_RegisterBanner(banner);
  return 0;
}

```

Boundaries.cc:
```
/*  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 ModifiedSchwarzschildBL_CheckBoundaries(CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  return;
}

extern "C" void ModifiedSchwarzschildBL_SelectBoundConds(CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  CCTK_INT ierr CCTK_ATTRIBUTE_UNUSED = 0;
  return;
}



/* template for entries in parameter file:
*/


```



Reference solution:
src_code: /*  File produced by Kranc */

#define KRANC_C

#include <algorithm>
#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 "Kranc.hh"
#include "Differencing.h"
#include "loopcontrol.h"

namespace ModifiedSchwarzschildBL {


static void ModifiedSchwarzschildBL_exact_Body(const cGH* restrict const cctkGH, const int dir, const int face, const CCTK_REAL normal[3], const CCTK_REAL tangentA[3], const CCTK_REAL tangentB[3], const int imin[3], const int imax[3], const int n_subblock_gfs, CCTK_REAL* restrict const subblock_gfs[])
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  /* Include user-supplied include files */
  /* Initialise finite differencing variables */
  const ptrdiff_t di CCTK_ATTRIBUTE_UNUSED = 1;
  const ptrdiff_t dj CCTK_ATTRIBUTE_UNUSED = 
    CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0);
  const ptrdiff_t dk CCTK_ATTRIBUTE_UNUSED = 
    CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0);
  const ptrdiff_t cdi CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * di;
  const ptrdiff_t cdj CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dj;
  const ptrdiff_t cdk CCTK_ATTRIBUTE_UNUSED = sizeof(CCTK_REAL) * dk;
  const ptrdiff_t cctkLbnd1 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[0];
  const ptrdiff_t cctkLbnd2 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[1];
  const ptrdiff_t cctkLbnd3 CCTK_ATTRIBUTE_UNUSED = cctk_lbnd[2];
  const CCTK_REAL t CCTK_ATTRIBUTE_UNUSED = cctk_time;
  const CCTK_REAL cctkOriginSpace1 CCTK_ATTRIBUTE_UNUSED = 
    CCTK_ORIGIN_SPACE(0);
  const CCTK_REAL cctkOriginSpace2 CCTK_ATTRIBUTE_UNUSED = 
    CCTK_ORIGIN_SPACE(1);
  const CCTK_REAL cctkOriginSpace3 CCTK_ATTRIBUTE_UNUSED = 
    CCTK_ORIGIN_SPACE(2);
  const CCTK_REAL dt CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_TIME;
  const CCTK_REAL dx CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_SPACE(0);
  const CCTK_REAL dy CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_SPACE(1);
  const CCTK_REAL dz CCTK_ATTRIBUTE_UNUSED = CCTK_DELTA_SPACE(2);
  const CCTK_REAL dxi CCTK_ATTRIBUTE_UNUSED = pow(dx,-1);
  const CCTK_REAL dyi CCTK_ATTRIBUTE_UNUSED = pow(dy,-1);
  const CCTK_REAL dzi CCTK_ATTRIBUTE_UNUSED = pow(dz,-1);
  const CCTK_REAL khalf CCTK_ATTRIBUTE_UNUSED = 0.5;
  const CCTK_REAL kthird CCTK_ATTRIBUTE_UNUSED = 
    0.333333333333333333333333333333;
  const CCTK_REAL ktwothird CCTK_ATTRIBUTE_UNUSED = 
    0.666666666666666666666666666667;
  const CCTK_REAL kfourthird CCTK_ATTRIBUTE_UNUSED = 
    1.33333333333333333333333333333;
  const CCTK_REAL hdxi CCTK_ATTRIBUTE_UNUSED = 0.5*dxi;
  const CCTK_REAL hdyi CCTK_ATTRIBUTE_UNUSED = 0.5*dyi;
  const CCTK_REAL hdzi CCTK_ATTRIBUTE_UNUSED = 0.5*dzi;
  /* Initialize predefined quantities */
  /* Assign local copies of arrays functions */
  
  
  /* Calculate temporaries and arrays functions */
  /* Copy local copies back to grid functions */
  /* Loop over the grid points */
  const int imin0=imin[0];
  const int imin1=imin[1];
  const int imin2=imin[2];
  const int imax0=imax[0];
  const int imax1=imax[1];
  const int imax2=imax[2];
  #pragma omp parallel
  CCTK_LOOP3(ModifiedSchwarzschildBL_exact,
    i,j,k, imin0,imin1,imin2, imax0,imax1,imax2,
    cctk_ash[0],cctk_ash[1],cctk_ash[2])
  {
    const ptrdiff_t index CCTK_ATTRIBUTE_UNUSED = di*i + dj*j + dk*k;
    /* Assign local copies of grid functions */
    
    CCTK_REAL alpExactL CCTK_ATTRIBUTE_UNUSED = alpExact[index];
    CCTK_REAL betaExact1L CCTK_ATTRIBUTE_UNUSED = betaExact1[index];
    CCTK_REAL betaExact2L CCTK_ATTRIBUTE_UNUSED = betaExact2[index];
    CCTK_REAL betaExact3L CCTK_ATTRIBUTE_UNUSED = betaExact3[index];
    CCTK_REAL dtbetaExact1L CCTK_ATTRIBUTE_UNUSED = dtbetaExact1[index];
    CCTK_REAL dtbetaExact2L CCTK_ATTRIBUTE_UNUSED = dtbetaExact2[index];
    CCTK_REAL dtbetaExact3L CCTK_ATTRIBUTE_UNUSED = dtbetaExact3[index];
    CCTK_REAL gExact11L CCTK_ATTRIBUTE_UNUSED = gExact11[index];
    CCTK_REAL gExact12L CCTK_ATTRIBUTE_UNUSED = gExact12[index];
    CCTK_REAL gExact13L CCTK_ATTRIBUTE_UNUSED = gExact13[index];
    CCTK_REAL gExact22L CCTK_ATTRIBUTE_UNUSED = gExact22[index];
    CCTK_REAL gExact23L CCTK_ATTRIBUTE_UNUSED = gExact23[index];
    CCTK_REAL gExact33L CCTK_ATTRIBUTE_UNUSED = gExact33[index];
    CCTK_REAL gxxL CCTK_ATTRIBUTE_UNUSED = gxx[index];
    CCTK_REAL gxyL CCTK_ATTRIBUTE_UNUSED = gxy[index];
    CCTK_REAL gxzL CCTK_ATTRIBUTE_UNUSED = gxz[index];
    CCTK_REAL gyyL CCTK_ATTRIBUTE_UNUSED = gyy[index];
    CCTK_REAL gyzL CCTK_ATTRIBUTE_UNUSED = gyz[index];
    CCTK_REAL gzzL CCTK_ATTRIBUTE_UNUSED = gzz[index];
    CCTK_REAL xL CCTK_ATTRIBUTE_UNUSED = x[index];
    CCTK_REAL yL CCTK_ATTRIBUTE_UNUSED = y[index];
    CCTK_REAL zL CCTK_ATTRIBUTE_UNUSED = z[index];
    
    /* Include user supplied include files */
    /* Precompute derivatives */
    /* Calculate temporaries and grid functions */
    CCTK_REAL xform1L00 CCTK_ATTRIBUTE_UNUSED = 1;
    
    CCTK_REAL xform1L01 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L02 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L03 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L10 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp0 CCTK_ATTRIBUTE_UNUSED = cos(phi);
    
    CCTK_REAL csetemp1 CCTK_ATTRIBUTE_UNUSED = cos(psi);
    
    CCTK_REAL csetemp2 CCTK_ATTRIBUTE_UNUSED = cos(theta);
    
    CCTK_REAL csetemp3 CCTK_ATTRIBUTE_UNUSED = sin(phi);
    
    CCTK_REAL csetemp4 CCTK_ATTRIBUTE_UNUSED = sin(psi);
    
    CCTK_REAL xform1L11 CCTK_ATTRIBUTE_UNUSED = csetemp0*csetemp1 - 
      csetemp2*csetemp3*csetemp4;
    
    CCTK_REAL xform1L12 CCTK_ATTRIBUTE_UNUSED = csetemp1*csetemp3 + 
      csetemp0*csetemp2*csetemp4;
    
    CCTK_REAL csetemp5 CCTK_ATTRIBUTE_UNUSED = sin(theta);
    
    CCTK_REAL xform1L13 CCTK_ATTRIBUTE_UNUSED = csetemp4*csetemp5;
    
    CCTK_REAL xform1L20 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L21 CCTK_ATTRIBUTE_UNUSED = 
      -(csetemp1*csetemp2*csetemp3) - csetemp0*csetemp4;
    
    CCTK_REAL xform1L22 CCTK_ATTRIBUTE_UNUSED = csetemp0*csetemp1*csetemp2 
      - csetemp3*csetemp4;
    
    CCTK_REAL xform1L23 CCTK_ATTRIBUTE_UNUSED = csetemp1*csetemp5;
    
    CCTK_REAL xform1L30 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL xform1L31 CCTK_ATTRIBUTE_UNUSED = csetemp3*csetemp5;
    
    CCTK_REAL xform1L32 CCTK_ATTRIBUTE_UNUSED = -(csetemp0*csetemp5);
    
    CCTK_REAL xform1L33 CCTK_ATTRIBUTE_UNUSED = csetemp2;
    
    CCTK_REAL csetemp6 CCTK_ATTRIBUTE_UNUSED = pow(boostx,2);
    
    CCTK_REAL csetemp7 CCTK_ATTRIBUTE_UNUSED = pow(boosty,2);
    
    CCTK_REAL csetemp8 CCTK_ATTRIBUTE_UNUSED = pow(boostz,2);
    
    CCTK_REAL csetemp9 CCTK_ATTRIBUTE_UNUSED = pow(lapsefactor,-1);
    
    CCTK_REAL xform2L00 CCTK_ATTRIBUTE_UNUSED = csetemp9*(-1 + 
      boostx*shiftaddx + boosty*shiftaddy + boostz*shiftaddz)*(1 - csetemp6 - 
      csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L01 CCTK_ATTRIBUTE_UNUSED = boostx*csetemp9*(1 - 
      csetemp6 - csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L02 CCTK_ATTRIBUTE_UNUSED = boosty*csetemp9*(1 - 
      csetemp6 - csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L03 CCTK_ATTRIBUTE_UNUSED = boostz*csetemp9*(1 - 
      csetemp6 - csetemp7 - csetemp8 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L10 CCTK_ATTRIBUTE_UNUSED = (-(boostx*(-1 + csetemp6 + 
      csetemp7 + csetemp8 + (-1 + boosty*shiftaddy + boostz*shiftaddz)*pow(1 
      - csetemp6 - csetemp7 - csetemp8,0.5))) + shiftaddx*(csetemp6 + (-1 + 
      csetemp7 + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L11 CCTK_ATTRIBUTE_UNUSED = (csetemp6 + (-1 + csetemp7 
      + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - csetemp8,0.5)))*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + pow(1 - csetemp6 - csetemp7 
      - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L12 CCTK_ATTRIBUTE_UNUSED = -(boostx*boosty*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L13 CCTK_ATTRIBUTE_UNUSED = -(boostx*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L20 CCTK_ATTRIBUTE_UNUSED = (-(boosty*(-1 + csetemp6 + 
      csetemp7 + csetemp8 + (-1 + boostx*shiftaddx + boostz*shiftaddz)*pow(1 
      - csetemp6 - csetemp7 - csetemp8,0.5))) + shiftaddy*(csetemp7 + (-1 + 
      csetemp6 + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L21 CCTK_ATTRIBUTE_UNUSED = -(boostx*boosty*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L22 CCTK_ATTRIBUTE_UNUSED = (csetemp7 + (-1 + csetemp6 
      + csetemp8)*(1 + pow(1 - csetemp6 - csetemp7 - csetemp8,0.5)))*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + pow(1 - csetemp6 - csetemp7 
      - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L23 CCTK_ATTRIBUTE_UNUSED = -(boosty*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L30 CCTK_ATTRIBUTE_UNUSED = (shiftaddz*(-1 + csetemp6 
      + csetemp7 + csetemp8 + (-1 + csetemp6 + csetemp7)*pow(1 - csetemp6 - 
      csetemp7 - csetemp8,0.5)) - boostz*(-1 + csetemp6 + csetemp7 + csetemp8 
      + (-1 + boostx*shiftaddx + boosty*shiftaddy)*pow(1 - csetemp6 - 
      csetemp7 - csetemp8,0.5)))*pow(-1 + csetemp6 + csetemp7 + 
      csetemp8,-1)*pow(1 + pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xform2L31 CCTK_ATTRIBUTE_UNUSED = -(boostx*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L32 CCTK_ATTRIBUTE_UNUSED = -(boosty*boostz*pow(-1 + 
      csetemp6 + csetemp7 + csetemp8 - pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5),-1));
    
    CCTK_REAL xform2L33 CCTK_ATTRIBUTE_UNUSED = (-1 + csetemp6 + csetemp7 
      + csetemp8 + (-1 + csetemp6 + csetemp7)*pow(1 - csetemp6 - csetemp7 - 
      csetemp8,0.5))*pow(-1 + csetemp6 + csetemp7 + csetemp8,-1)*pow(1 + 
      pow(1 - csetemp6 - csetemp7 - csetemp8,0.5),-1);
    
    CCTK_REAL xformL00 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L00 + 
      xform1L01*xform2L10 + xform1L02*xform2L20 + xform1L03*xform2L30;
    
    CCTK_REAL xformL01 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L01 + 
      xform1L01*xform2L11 + xform1L02*xform2L21 + xform1L03*xform2L31;
    
    CCTK_REAL xformL02 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L02 + 
      xform1L01*xform2L12 + xform1L02*xform2L22 + xform1L03*xform2L32;
    
    CCTK_REAL xformL03 CCTK_ATTRIBUTE_UNUSED = xform1L00*xform2L03 + 
      xform1L01*xform2L13 + xform1L02*xform2L23 + xform1L03*xform2L33;
    
    CCTK_REAL xformL10 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L00 + 
      xform1L11*xform2L10 + xform1L12*xform2L20 + xform1L13*xform2L30;
    
    CCTK_REAL xformL11 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L01 + 
      xform1L11*xform2L11 + xform1L12*xform2L21 + xform1L13*xform2L31;
    
    CCTK_REAL xformL12 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L02 + 
      xform1L11*xform2L12 + xform1L12*xform2L22 + xform1L13*xform2L32;
    
    CCTK_REAL xformL13 CCTK_ATTRIBUTE_UNUSED = xform1L10*xform2L03 + 
      xform1L11*xform2L13 + xform1L12*xform2L23 + xform1L13*xform2L33;
    
    CCTK_REAL xformL20 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L00 + 
      xform1L21*xform2L10 + xform1L22*xform2L20 + xform1L23*xform2L30;
    
    CCTK_REAL xformL21 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L01 + 
      xform1L21*xform2L11 + xform1L22*xform2L21 + xform1L23*xform2L31;
    
    CCTK_REAL xformL22 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L02 + 
      xform1L21*xform2L12 + xform1L22*xform2L22 + xform1L23*xform2L32;
    
    CCTK_REAL xformL23 CCTK_ATTRIBUTE_UNUSED = xform1L20*xform2L03 + 
      xform1L21*xform2L13 + xform1L22*xform2L23 + xform1L23*xform2L33;
    
    CCTK_REAL xformL30 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L00 + 
      xform1L31*xform2L10 + xform1L32*xform2L20 + xform1L33*xform2L30;
    
    CCTK_REAL xformL31 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L01 + 
      xform1L31*xform2L11 + xform1L32*xform2L21 + xform1L33*xform2L31;
    
    CCTK_REAL xformL32 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L02 + 
      xform1L31*xform2L12 + xform1L32*xform2L22 + xform1L33*xform2L32;
    
    CCTK_REAL xformL33 CCTK_ATTRIBUTE_UNUSED = xform1L30*xform2L03 + 
      xform1L31*xform2L13 + xform1L32*xform2L23 + xform1L33*xform2L33;
    
    CCTK_REAL xx0 CCTK_ATTRIBUTE_UNUSED = t - timeoffset;
    
    CCTK_REAL xx1 CCTK_ATTRIBUTE_UNUSED = xL - positionx;
    
    CCTK_REAL xx2 CCTK_ATTRIBUTE_UNUSED = yL - positiony;
    
    CCTK_REAL xx3 CCTK_ATTRIBUTE_UNUSED = zL - positionz;
    
    CCTK_REAL txx1 CCTK_ATTRIBUTE_UNUSED = xformL10*xx0 + xformL11*xx1 + 
      xformL12*xx2 + xformL13*xx3;
    
    CCTK_REAL txx2 CCTK_ATTRIBUTE_UNUSED = xformL20*xx0 + xformL21*xx1 + 
      xformL22*xx2 + xformL23*xx3;
    
    CCTK_REAL txx3 CCTK_ATTRIBUTE_UNUSED = xformL30*xx0 + xformL31*xx1 + 
      xformL32*xx2 + xformL33*xx3;
    
    CCTK_REAL X CCTK_ATTRIBUTE_UNUSED = txx1;
    
    CCTK_REAL Y CCTK_ATTRIBUTE_UNUSED = txx2;
    
    CCTK_REAL Z CCTK_ATTRIBUTE_UNUSED = txx3;
    
    CCTK_REAL rXYZ CCTK_ATTRIBUTE_UNUSED = pow(pow(X,2) + pow(Y,2) + 
      pow(Z,2),0.5);
    
    CCTK_REAL tg400 CCTK_ATTRIBUTE_UNUSED = -1;
    
    CCTK_REAL tg401 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg402 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg403 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp10 CCTK_ATTRIBUTE_UNUSED = 0.5*M;
    
    CCTK_REAL csetemp11 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,-1);
    
    CCTK_REAL csetemp12 CCTK_ATTRIBUTE_UNUSED = pow(M,-1);
    
    CCTK_REAL csetemp13 CCTK_ATTRIBUTE_UNUSED = pow(M,2);
    
    CCTK_REAL csetemp14 CCTK_ATTRIBUTE_UNUSED = pow(Pi,-2);
    
    CCTK_REAL tg411 CCTK_ATTRIBUTE_UNUSED = 0.00390625*pow(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*pow(fmin(csetemp10,rXYZ),2))),4);
    
    CCTK_REAL tg412 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg413 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg422 CCTK_ATTRIBUTE_UNUSED = 0.00390625*pow(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*pow(fmin(csetemp10,rXYZ),2))),4);
    
    CCTK_REAL tg423 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tg433 CCTK_ATTRIBUTE_UNUSED = 0.00390625*pow(4 + 
      csetemp11*(8*fmin(csetemp10,rXYZ) + csetemp12*(csetemp13*(csetemp14 - 
      csetemp14*cos(4*csetemp12*Pi*fmin(csetemp10,rXYZ))) - 
      8*pow(fmin(csetemp10,rXYZ),2))),4);
    
    CCTK_REAL tdg4000 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4001 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4002 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4003 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4010 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4011 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4012 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4013 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4020 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4021 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4022 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4023 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4030 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4031 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4032 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4033 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4110 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL csetemp15 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,-6);
    
    CCTK_REAL csetemp16 CCTK_ATTRIBUTE_UNUSED = 2*rXYZ;
    
    CCTK_REAL csetemp17 CCTK_ATTRIBUTE_UNUSED = pow(M,-4);
    
    CCTK_REAL csetemp18 CCTK_ATTRIBUTE_UNUSED = pow(Pi,-8);
    
    CCTK_REAL csetemp19 CCTK_ATTRIBUTE_UNUSED = pow(Pi,2);
    
    CCTK_REAL csetemp20 CCTK_ATTRIBUTE_UNUSED = pow(rXYZ,2);
    
    CCTK_REAL tdg4111 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*X*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*X*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4112 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Y*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Y*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4113 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Z*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Z*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4120 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4121 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4122 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4123 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4130 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4131 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4132 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4133 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4220 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4221 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*X*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*X*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4222 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Y*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Y*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4223 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Z*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Z*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4230 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4231 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4232 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4233 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4330 CCTK_ATTRIBUTE_UNUSED = 0;
    
    CCTK_REAL tdg4331 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*X*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*X*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4332 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Y*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Y*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL tdg4333 CCTK_ATTRIBUTE_UNUSED = IfThen(M <= 
      csetemp16,-0.25*csetemp15*M*Z*pow(csetemp16 + 
      M,3),-0.25*csetemp15*csetemp17*csetemp18*Z*pow(csetemp19*(-4*csetemp20 
      + 6*M*rXYZ) + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2),3)*(4*csetemp19*csetemp20 + 
      csetemp13*pow(sin(2*csetemp12*Pi*rXYZ),2) - 
      2*M*Pi*rXYZ*sin(4*csetemp12*Pi*rXYZ)));
    
    CCTK_REAL g400 CCTK_ATTRIBUTE_UNUSED = 2*(tg423*xformL20*xformL30 + 
      xformL00*(tg401*xformL10 + tg402*xformL20 + tg403*xformL30) + 
      xformL10*(tg412*xformL20 + tg413*xformL30)) + tg400*pow(xformL00,2) + 
      tg411*pow(xformL10,2) + tg422*pow(xformL20,2) + tg433*pow(xformL30,2);
    
    CCTK_REAL csetemp21 CCTK_ATTRIBUTE_UNUSED = tg400*xformL01;
    
    CCTK_REAL csetemp22 CCTK_ATTRIBUTE_UNUSED = tg401*xformL11;
    
    CCTK_REAL csetemp23 CCTK_ATTRIBUTE_UNUSED = tg402*xformL21;
    
    CCTK_REAL csetemp24 CCTK_ATTRIBUTE_UNUSED = tg403*xformL31;
    
    CCTK_REAL csetemp25 CCTK_ATTRIBUTE_UNUSED = tg401*xformL01;
    
    CCTK_REAL csetemp26 CCTK_ATTRIBUTE_UNUSED = tg411*xformL11;
    
    CCTK_REAL csetemp27 CCTK_ATTRIBUTE_UNUSED = tg412*xformL21;
    
    CCTK_REAL csetemp28 CCTK_ATTRIBUTE_UNUSED = tg413*xformL31;
    
    CCTK_REAL csetemp29 CCTK_ATTRIBUTE_UNUSED = tg402*xformL01;
    
    CCTK_REAL csetemp30 CCTK_ATTRIBUTE_UNUSED = tg412*xformL11;
    
    CCTK_REAL csetemp31 CCTK_ATTRIBUTE_UNUSED = tg422*xformL21;
    
    CCTK_REAL csetemp32 CCTK_ATTRIBUTE_UNUSED = tg423*xformL31;
    
    CCTK_REAL csetemp33 CCTK_ATTRIBUTE_UNUSED = tg403*xformL01;
    
    CCTK_REAL csetemp34 CCTK_ATTRIBUTE_UNUSED = tg413*xformL11;
    
    CCTK_REAL csetemp35 CCTK_ATTRIBUTE_UNUSED = tg423*xformL21;
    
    CCTK_REAL csetemp36 CCTK_ATTRIBUTE_UNUSED = tg433*xformL31;
    
    CCTK_REAL g401 CCTK_ATTRIBUTE_UNUSED = (csetemp21 + csetemp22 + 
      csetemp23 + csetemp24)*xformL00 + (csetemp25 + csetemp26 + csetemp27 + 
      csetemp28)*xformL10 + (csetemp29 + csetemp30 + csetemp31 + 
      csetemp32)*xformL20 + (csetemp33 + csetemp34 + csetemp35 + 
      csetemp36)*xformL30;
    
    CCTK_REAL csetemp37 CCTK_ATTRIBUTE_UNUSED = tg400*xformL02;
    
    CCTK_REAL csetemp38 CCTK_ATTRIBUTE_UNUSED = tg401*xformL12;
    
    CCTK_REAL csetemp39 CCTK_ATTRIBUTE_UNUSED = tg402*xformL22;
    
    CCTK_REAL csetemp40 CCTK_ATTRIBUTE_UNUSED = tg403*xformL32;
    
    CCTK_REAL csetemp41 CCTK_ATTRIBUTE_UNUSED = tg401*xformL02;
    
    CCTK_REAL csetemp42 CCTK_ATTRIBUTE_UNUSED = tg411*xformL12;
    
    CCTK_REAL csetemp43 CCTK_ATTRIBUTE_UNUSED = tg412*xformL22;
    
    CCTK_REAL csetemp44 CCTK_ATTRIBUTE_UNUSED = tg413*xformL32;
    
    CCTK_REAL csetemp45 CCTK_ATTRIBUTE_UNUSED = tg402*xformL02;
    
    CCTK_REAL csetemp46 CCTK_ATTRIBUTE_UNUSED = tg412*xformL12;
    
    CCTK_REAL csetemp47 CCTK_ATTRIBUTE_UNUSED = tg422*xformL22;
    
    CCTK_REAL csetemp48 CCTK_ATTRIBUTE_UNUSED = tg423*xformL32;
    
    CCTK_REAL csetemp49 CCTK_ATTRIBUTE_UNUSED = tg403*xformL02;
    
    CCTK_REAL csetemp50 CCTK_ATTRIBUTE_UNUSED = tg413*xformL12;
    
    CCTK_REAL csetemp51 CCTK_ATTRIBUTE_UNUSED = tg423*xformL22;
    
    CCTK_REAL csetemp52 CCTK_ATTRIBUTE_UNUSED = tg433*xformL32;
    
    CCTK_REAL g402 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL00 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL10 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL20 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL30;
    
    CCTK_REAL csetemp53 CCTK_ATTRIBUTE_UNUSED = tg400*xformL03;
    
    CCTK_REAL csetemp54 CCTK_ATTRIBUTE_UNUSED = tg401*xformL13;
    
    CCTK_REAL csetemp55 CCTK_ATTRIBUTE_UNUSED = tg402*xformL23;
    
    CCTK_REAL csetemp56 CCTK_ATTRIBUTE_UNUSED = tg403*xformL33;
    
    CCTK_REAL csetemp57 CCTK_ATTRIBUTE_UNUSED = tg401*xformL03;
    
    CCTK_REAL csetemp58 CCTK_ATTRIBUTE_UNUSED = tg411*xformL13;
    
    CCTK_REAL csetemp59 CCTK_ATTRIBUTE_UNUSED = tg412*xformL23;
    
    CCTK_REAL csetemp60 CCTK_ATTRIBUTE_UNUSED = tg413*xformL33;
    
    CCTK_REAL csetemp61 CCTK_ATTRIBUTE_UNUSED = tg402*xformL03;
    
    CCTK_REAL csetemp62 CCTK_ATTRIBUTE_UNUSED = tg412*xformL13;
    
    CCTK_REAL csetemp63 CCTK_ATTRIBUTE_UNUSED = tg422*xformL23;
    
    CCTK_REAL csetemp64 CCTK_ATTRIBUTE_UNUSED = tg423*xformL33;
    
    CCTK_REAL csetemp65 CCTK_ATTRIBUTE_UNUSED = tg403*xformL03;
    
    CCTK_REAL csetemp66 CCTK_ATTRIBUTE_UNUSED = tg413*xformL13;
    
    CCTK_REAL csetemp67 CCTK_ATTRIBUTE_UNUSED = tg423*xformL23;
    
    CCTK_REAL csetemp68 CCTK_ATTRIBUTE_UNUSED = tg433*xformL33;
    
    CCTK_REAL g403 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL00 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL10 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL20 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL30;
    
    CCTK_REAL g411 CCTK_ATTRIBUTE_UNUSED = (csetemp21 + csetemp22 + 
      csetemp23 + csetemp24)*xformL01 + (csetemp25 + csetemp26 + csetemp27 + 
      csetemp28)*xformL11 + (csetemp29 + csetemp30 + csetemp31 + 
      csetemp32)*xformL21 + (csetemp33 + csetemp34 + csetemp35 + 
      csetemp36)*xformL31;
    
    CCTK_REAL g412 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL01 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL11 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL21 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL31;
    
    CCTK_REAL g413 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL01 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL11 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL21 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL31;
    
    CCTK_REAL g422 CCTK_ATTRIBUTE_UNUSED = (csetemp37 + csetemp38 + 
      csetemp39 + csetemp40)*xformL02 + (csetemp41 + csetemp42 + csetemp43 + 
      csetemp44)*xformL12 + (csetemp45 + csetemp46 + csetemp47 + 
      csetemp48)*xformL22 + (csetemp49 + csetemp50 + csetemp51 + 
      csetemp52)*xformL32;
    
    CCTK_REAL g423 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL02 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL12 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL22 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL32;
    
    CCTK_REAL g433 CCTK_ATTRIBUTE_UNUSED = (csetemp53 + csetemp54 + 
      csetemp55 + csetemp56)*xformL03 + (csetemp57 + csetemp58 + csetemp59 + 
      csetemp60)*xformL13 + (csetemp61 + csetemp62 + csetemp63 + 
      csetemp64)*xformL23 + (csetemp65 + csetemp66 + csetemp67 + 
      csetemp68)*xformL33;
    
    CCTK_REAL csetemp69 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL00;
    
    CCTK_REAL csetemp70 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL10;
    
    CCTK_REAL csetemp71 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL20;
    
    CCTK_REAL csetemp72 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL30;
    
    CCTK_REAL csetemp73 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL00;
    
    CCTK_REAL csetemp74 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL10;
    
    CCTK_REAL csetemp75 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL20;
    
    CCTK_REAL csetemp76 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL30;
    
    CCTK_REAL csetemp77 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL00;
    
    CCTK_REAL csetemp78 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL10;
    
    CCTK_REAL csetemp79 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL20;
    
    CCTK_REAL csetemp80 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL30;
    
    CCTK_REAL csetemp81 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL00;
    
    CCTK_REAL csetemp82 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL10;
    
    CCTK_REAL csetemp83 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL20;
    
    CCTK_REAL csetemp84 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL30;
    
    CCTK_REAL csetemp85 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL00;
    
    CCTK_REAL csetemp86 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL10;
    
    CCTK_REAL csetemp87 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL20;
    
    CCTK_REAL csetemp88 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL30;
    
    CCTK_REAL csetemp89 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL00;
    
    CCTK_REAL csetemp90 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL10;
    
    CCTK_REAL csetemp91 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL20;
    
    CCTK_REAL csetemp92 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL30;
    
    CCTK_REAL csetemp93 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL00;
    
    CCTK_REAL csetemp94 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL10;
    
    CCTK_REAL csetemp95 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL20;
    
    CCTK_REAL csetemp96 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL30;
    
    CCTK_REAL csetemp97 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL00;
    
    CCTK_REAL csetemp98 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL10;
    
    CCTK_REAL csetemp99 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL20;
    
    CCTK_REAL csetemp100 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL30;
    
    CCTK_REAL csetemp101 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL00;
    
    CCTK_REAL csetemp102 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL10;
    
    CCTK_REAL csetemp103 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL20;
    
    CCTK_REAL csetemp104 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL30;
    
    CCTK_REAL csetemp105 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL00;
    
    CCTK_REAL csetemp106 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL10;
    
    CCTK_REAL csetemp107 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL20;
    
    CCTK_REAL csetemp108 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL30;
    
    CCTK_REAL dg4000 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL00 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL10 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL20 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL30) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL00 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL10 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL20 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL30) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL00 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL10 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL20 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL30) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL00 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL10 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL20 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL30);
    
    CCTK_REAL dg4010 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL01 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL11 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL21 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL31) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL01 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL11 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL21 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL31) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL01 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL11 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL21 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL31) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL01 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL11 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL21 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL31);
    
    CCTK_REAL csetemp109 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL01;
    
    CCTK_REAL csetemp110 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL11;
    
    CCTK_REAL csetemp111 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL21;
    
    CCTK_REAL csetemp112 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL31;
    
    CCTK_REAL csetemp113 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL01;
    
    CCTK_REAL csetemp114 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL11;
    
    CCTK_REAL csetemp115 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL21;
    
    CCTK_REAL csetemp116 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL31;
    
    CCTK_REAL csetemp117 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL01;
    
    CCTK_REAL csetemp118 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL11;
    
    CCTK_REAL csetemp119 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL21;
    
    CCTK_REAL csetemp120 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL31;
    
    CCTK_REAL csetemp121 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL01;
    
    CCTK_REAL csetemp122 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL11;
    
    CCTK_REAL csetemp123 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL21;
    
    CCTK_REAL csetemp124 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL31;
    
    CCTK_REAL csetemp125 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL01;
    
    CCTK_REAL csetemp126 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL11;
    
    CCTK_REAL csetemp127 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL21;
    
    CCTK_REAL csetemp128 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL31;
    
    CCTK_REAL csetemp129 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL01;
    
    CCTK_REAL csetemp130 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL11;
    
    CCTK_REAL csetemp131 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL21;
    
    CCTK_REAL csetemp132 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL31;
    
    CCTK_REAL csetemp133 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL01;
    
    CCTK_REAL csetemp134 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL11;
    
    CCTK_REAL csetemp135 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL21;
    
    CCTK_REAL csetemp136 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL31;
    
    CCTK_REAL csetemp137 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL01;
    
    CCTK_REAL csetemp138 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL11;
    
    CCTK_REAL csetemp139 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL21;
    
    CCTK_REAL csetemp140 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL31;
    
    CCTK_REAL csetemp141 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL01;
    
    CCTK_REAL csetemp142 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL11;
    
    CCTK_REAL csetemp143 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL21;
    
    CCTK_REAL csetemp144 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL31;
    
    CCTK_REAL csetemp145 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL01;
    
    CCTK_REAL csetemp146 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL11;
    
    CCTK_REAL csetemp147 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL21;
    
    CCTK_REAL csetemp148 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL31;
    
    CCTK_REAL dg4011 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL01 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL11 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL21 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL31) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL01 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL11 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL21 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL31) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL01 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL11 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL21 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL31) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL01 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL11 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL21 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL31);
    
    CCTK_REAL csetemp149 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL02;
    
    CCTK_REAL csetemp150 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL12;
    
    CCTK_REAL csetemp151 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL22;
    
    CCTK_REAL csetemp152 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL32;
    
    CCTK_REAL csetemp153 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL02;
    
    CCTK_REAL csetemp154 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL12;
    
    CCTK_REAL csetemp155 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL22;
    
    CCTK_REAL csetemp156 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL32;
    
    CCTK_REAL csetemp157 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL02;
    
    CCTK_REAL csetemp158 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL12;
    
    CCTK_REAL csetemp159 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL22;
    
    CCTK_REAL csetemp160 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL32;
    
    CCTK_REAL csetemp161 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL02;
    
    CCTK_REAL csetemp162 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL12;
    
    CCTK_REAL csetemp163 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL22;
    
    CCTK_REAL csetemp164 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL32;
    
    CCTK_REAL csetemp165 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL02;
    
    CCTK_REAL csetemp166 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL12;
    
    CCTK_REAL csetemp167 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL22;
    
    CCTK_REAL csetemp168 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL32;
    
    CCTK_REAL csetemp169 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL02;
    
    CCTK_REAL csetemp170 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL12;
    
    CCTK_REAL csetemp171 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL22;
    
    CCTK_REAL csetemp172 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL32;
    
    CCTK_REAL csetemp173 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL02;
    
    CCTK_REAL csetemp174 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL12;
    
    CCTK_REAL csetemp175 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL22;
    
    CCTK_REAL csetemp176 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL32;
    
    CCTK_REAL csetemp177 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL02;
    
    CCTK_REAL csetemp178 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL12;
    
    CCTK_REAL csetemp179 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL22;
    
    CCTK_REAL csetemp180 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL32;
    
    CCTK_REAL csetemp181 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL02;
    
    CCTK_REAL csetemp182 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL12;
    
    CCTK_REAL csetemp183 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL22;
    
    CCTK_REAL csetemp184 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL32;
    
    CCTK_REAL csetemp185 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL02;
    
    CCTK_REAL csetemp186 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL12;
    
    CCTK_REAL csetemp187 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL22;
    
    CCTK_REAL csetemp188 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL32;
    
    CCTK_REAL dg4012 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL01 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL11 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL21 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL31) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL01 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL11 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL21 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL31) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL01 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL11 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL21 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL31) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL01 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL11 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL21 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL31);
    
    CCTK_REAL csetemp189 CCTK_ATTRIBUTE_UNUSED = tdg4000*xformL03;
    
    CCTK_REAL csetemp190 CCTK_ATTRIBUTE_UNUSED = tdg4001*xformL13;
    
    CCTK_REAL csetemp191 CCTK_ATTRIBUTE_UNUSED = tdg4002*xformL23;
    
    CCTK_REAL csetemp192 CCTK_ATTRIBUTE_UNUSED = tdg4003*xformL33;
    
    CCTK_REAL csetemp193 CCTK_ATTRIBUTE_UNUSED = tdg4010*xformL03;
    
    CCTK_REAL csetemp194 CCTK_ATTRIBUTE_UNUSED = tdg4011*xformL13;
    
    CCTK_REAL csetemp195 CCTK_ATTRIBUTE_UNUSED = tdg4012*xformL23;
    
    CCTK_REAL csetemp196 CCTK_ATTRIBUTE_UNUSED = tdg4013*xformL33;
    
    CCTK_REAL csetemp197 CCTK_ATTRIBUTE_UNUSED = tdg4020*xformL03;
    
    CCTK_REAL csetemp198 CCTK_ATTRIBUTE_UNUSED = tdg4021*xformL13;
    
    CCTK_REAL csetemp199 CCTK_ATTRIBUTE_UNUSED = tdg4022*xformL23;
    
    CCTK_REAL csetemp200 CCTK_ATTRIBUTE_UNUSED = tdg4023*xformL33;
    
    CCTK_REAL csetemp201 CCTK_ATTRIBUTE_UNUSED = tdg4030*xformL03;
    
    CCTK_REAL csetemp202 CCTK_ATTRIBUTE_UNUSED = tdg4031*xformL13;
    
    CCTK_REAL csetemp203 CCTK_ATTRIBUTE_UNUSED = tdg4032*xformL23;
    
    CCTK_REAL csetemp204 CCTK_ATTRIBUTE_UNUSED = tdg4033*xformL33;
    
    CCTK_REAL csetemp205 CCTK_ATTRIBUTE_UNUSED = tdg4110*xformL03;
    
    CCTK_REAL csetemp206 CCTK_ATTRIBUTE_UNUSED = tdg4111*xformL13;
    
    CCTK_REAL csetemp207 CCTK_ATTRIBUTE_UNUSED = tdg4112*xformL23;
    
    CCTK_REAL csetemp208 CCTK_ATTRIBUTE_UNUSED = tdg4113*xformL33;
    
    CCTK_REAL csetemp209 CCTK_ATTRIBUTE_UNUSED = tdg4120*xformL03;
    
    CCTK_REAL csetemp210 CCTK_ATTRIBUTE_UNUSED = tdg4121*xformL13;
    
    CCTK_REAL csetemp211 CCTK_ATTRIBUTE_UNUSED = tdg4122*xformL23;
    
    CCTK_REAL csetemp212 CCTK_ATTRIBUTE_UNUSED = tdg4123*xformL33;
    
    CCTK_REAL csetemp213 CCTK_ATTRIBUTE_UNUSED = tdg4130*xformL03;
    
    CCTK_REAL csetemp214 CCTK_ATTRIBUTE_UNUSED = tdg4131*xformL13;
    
    CCTK_REAL csetemp215 CCTK_ATTRIBUTE_UNUSED = tdg4132*xformL23;
    
    CCTK_REAL csetemp216 CCTK_ATTRIBUTE_UNUSED = tdg4133*xformL33;
    
    CCTK_REAL csetemp217 CCTK_ATTRIBUTE_UNUSED = tdg4220*xformL03;
    
    CCTK_REAL csetemp218 CCTK_ATTRIBUTE_UNUSED = tdg4221*xformL13;
    
    CCTK_REAL csetemp219 CCTK_ATTRIBUTE_UNUSED = tdg4222*xformL23;
    
    CCTK_REAL csetemp220 CCTK_ATTRIBUTE_UNUSED = tdg4223*xformL33;
    
    CCTK_REAL csetemp221 CCTK_ATTRIBUTE_UNUSED = tdg4230*xformL03;
    
    CCTK_REAL csetemp222 CCTK_ATTRIBUTE_UNUSED = tdg4231*xformL13;
    
    CCTK_REAL csetemp223 CCTK_ATTRIBUTE_UNUSED = tdg4232*xformL23;
    
    CCTK_REAL csetemp224 CCTK_ATTRIBUTE_UNUSED = tdg4233*xformL33;
    
    CCTK_REAL csetemp225 CCTK_ATTRIBUTE_UNUSED = tdg4330*xformL03;
    
    CCTK_REAL csetemp226 CCTK_ATTRIBUTE_UNUSED = tdg4331*xformL13;
    
    CCTK_REAL csetemp227 CCTK_ATTRIBUTE_UNUSED = tdg4332*xformL23;
    
    CCTK_REAL csetemp228 CCTK_ATTRIBUTE_UNUSED = tdg4333*xformL33;
    
    CCTK_REAL dg4013 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL01 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL11 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL21 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL31) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL01 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL11 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL21 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL31) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL01 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL11 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL21 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL31) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL01 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL11 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL21 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL31);
    
    CCTK_REAL dg4020 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4021 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4022 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4023 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4030 CCTK_ATTRIBUTE_UNUSED = xformL20*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL30*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL00*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL10*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4031 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL10*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL20*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL30*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4032 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL10*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL20*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL30*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4033 CCTK_ATTRIBUTE_UNUSED = xformL00*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL10*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL20*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL30*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4110 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL01 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL11 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL21 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL31) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL01 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL11 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL21 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL31) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL01 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL11 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL21 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL31) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL01 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL11 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL21 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL31);
    
    CCTK_REAL dg4111 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL01 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL11 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL21 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL31) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL01 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL11 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL21 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL31) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL01 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL11 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL21 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL31) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL01 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL11 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL21 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL31);
    
    CCTK_REAL dg4112 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL01 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL11 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL21 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL31) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL01 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL11 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL21 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL31) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL01 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL11 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL21 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL31) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL01 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL11 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL21 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL31);
    
    CCTK_REAL dg4113 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL01 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL11 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL21 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL31) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL01 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL11 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL21 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL31) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL01 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL11 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL21 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL31) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL01 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL11 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL21 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL31);
    
    CCTK_REAL dg4120 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4121 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4122 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4123 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4130 CCTK_ATTRIBUTE_UNUSED = xformL21*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL31*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL01*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL11*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4131 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL11*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL21*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL31*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4132 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL11*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL21*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL31*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4133 CCTK_ATTRIBUTE_UNUSED = xformL01*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL11*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL21*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL31*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4220 CCTK_ATTRIBUTE_UNUSED = xformL22*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL02 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL12 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL22 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL32) + xformL32*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL02 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL12 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL22 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL32) + xformL02*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL02 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL12 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL22 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL32) + xformL12*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL02 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL12 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL22 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL32);
    
    CCTK_REAL dg4221 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL02 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL12 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL22 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL32) + xformL12*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL02 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL12 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL22 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL32) + xformL22*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL02 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL12 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL22 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL32) + xformL32*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL02 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL12 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL22 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL32);
    
    CCTK_REAL dg4222 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL02 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL12 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL22 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL32) + xformL12*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL02 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL12 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL22 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL32) + xformL22*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL02 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL12 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL22 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL32) + xformL32*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL02 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL12 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL22 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL32);
    
    CCTK_REAL dg4223 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL02 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL12 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL22 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL32) + xformL12*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL02 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL12 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL22 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL32) + xformL22*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL02 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL12 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL22 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL32) + xformL32*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL02 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL12 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL22 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL32);
    
    CCTK_REAL dg4230 CCTK_ATTRIBUTE_UNUSED = xformL22*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL32*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL02*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL12*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4231 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL12*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL22*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL32*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4232 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL12*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL22*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL32*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4233 CCTK_ATTRIBUTE_UNUSED = xformL02*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL12*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL22*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL32*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL dg4330 CCTK_ATTRIBUTE_UNUSED = xformL23*((csetemp77 + 
      csetemp78 + csetemp79 + csetemp80)*xformL03 + (csetemp89 + csetemp90 + 
      csetemp91 + csetemp92)*xformL13 + (csetemp100 + csetemp97 + csetemp98 + 
      csetemp99)*xformL23 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL33) + xformL33*((csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL03 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL13 + (csetemp101 + csetemp102 + csetemp103 + 
      csetemp104)*xformL23 + (csetemp105 + csetemp106 + csetemp107 + 
      csetemp108)*xformL33) + xformL03*((csetemp69 + csetemp70 + csetemp71 + 
      csetemp72)*xformL03 + (csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL13 + (csetemp77 + csetemp78 + csetemp79 + 
      csetemp80)*xformL23 + (csetemp81 + csetemp82 + csetemp83 + 
      csetemp84)*xformL33) + xformL13*((csetemp73 + csetemp74 + csetemp75 + 
      csetemp76)*xformL03 + (csetemp85 + csetemp86 + csetemp87 + 
      csetemp88)*xformL13 + (csetemp89 + csetemp90 + csetemp91 + 
      csetemp92)*xformL23 + (csetemp93 + csetemp94 + csetemp95 + 
      csetemp96)*xformL33);
    
    CCTK_REAL dg4331 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp109 + 
      csetemp110 + csetemp111 + csetemp112)*xformL03 + (csetemp113 + 
      csetemp114 + csetemp115 + csetemp116)*xformL13 + (csetemp117 + 
      csetemp118 + csetemp119 + csetemp120)*xformL23 + (csetemp121 + 
      csetemp122 + csetemp123 + csetemp124)*xformL33) + xformL13*((csetemp113 
      + csetemp114 + csetemp115 + csetemp116)*xformL03 + (csetemp125 + 
      csetemp126 + csetemp127 + csetemp128)*xformL13 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL23 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL33) + xformL23*((csetemp117 
      + csetemp118 + csetemp119 + csetemp120)*xformL03 + (csetemp129 + 
      csetemp130 + csetemp131 + csetemp132)*xformL13 + (csetemp137 + 
      csetemp138 + csetemp139 + csetemp140)*xformL23 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL33) + xformL33*((csetemp121 
      + csetemp122 + csetemp123 + csetemp124)*xformL03 + (csetemp133 + 
      csetemp134 + csetemp135 + csetemp136)*xformL13 + (csetemp141 + 
      csetemp142 + csetemp143 + csetemp144)*xformL23 + (csetemp145 + 
      csetemp146 + csetemp147 + csetemp148)*xformL33);
    
    CCTK_REAL dg4332 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp149 + 
      csetemp150 + csetemp151 + csetemp152)*xformL03 + (csetemp153 + 
      csetemp154 + csetemp155 + csetemp156)*xformL13 + (csetemp157 + 
      csetemp158 + csetemp159 + csetemp160)*xformL23 + (csetemp161 + 
      csetemp162 + csetemp163 + csetemp164)*xformL33) + xformL13*((csetemp153 
      + csetemp154 + csetemp155 + csetemp156)*xformL03 + (csetemp165 + 
      csetemp166 + csetemp167 + csetemp168)*xformL13 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL23 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL33) + xformL23*((csetemp157 
      + csetemp158 + csetemp159 + csetemp160)*xformL03 + (csetemp169 + 
      csetemp170 + csetemp171 + csetemp172)*xformL13 + (csetemp177 + 
      csetemp178 + csetemp179 + csetemp180)*xformL23 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL33) + xformL33*((csetemp161 
      + csetemp162 + csetemp163 + csetemp164)*xformL03 + (csetemp173 + 
      csetemp174 + csetemp175 + csetemp176)*xformL13 + (csetemp181 + 
      csetemp182 + csetemp183 + csetemp184)*xformL23 + (csetemp185 + 
      csetemp186 + csetemp187 + csetemp188)*xformL33);
    
    CCTK_REAL dg4333 CCTK_ATTRIBUTE_UNUSED = xformL03*((csetemp189 + 
      csetemp190 + csetemp191 + csetemp192)*xformL03 + (csetemp193 + 
      csetemp194 + csetemp195 + csetemp196)*xformL13 + (csetemp197 + 
      csetemp198 + csetemp199 + csetemp200)*xformL23 + (csetemp201 + 
      csetemp202 + csetemp203 + csetemp204)*xformL33) + xformL13*((csetemp193 
      + csetemp194 + csetemp195 + csetemp196)*xformL03 + (csetemp205 + 
      csetemp206 + csetemp207 + csetemp208)*xformL13 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL23 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL33) + xformL23*((csetemp197 
      + csetemp198 + csetemp199 + csetemp200)*xformL03 + (csetemp209 + 
      csetemp210 + csetemp211 + csetemp212)*xformL13 + (csetemp217 + 
      csetemp218 + csetemp219 + csetemp220)*xformL23 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL33) + xformL33*((csetemp201 
      + csetemp202 + csetemp203 + csetemp204)*xformL03 + (csetemp213 + 
      csetemp214 + csetemp215 + csetemp216)*xformL13 + (csetemp221 + 
      csetemp222 + csetemp223 + csetemp224)*xformL23 + (csetemp225 + 
      csetemp226 + csetemp227 + csetemp228)*xformL33);
    
    CCTK_REAL betal1 CCTK_ATTRIBUTE_UNUSED = g401;
    
    CCTK_REAL betal2 CCTK_ATTRIBUTE_UNUSED = g402;
    
    CCTK_REAL betal3 CCTK_ATTRIBUTE_UNUSED = g403;
    
    gExact11L = g411;
    
    gExact12L = g412;
    
    gExact13L = g413;
    
    gExact22L = g422;
    
    gExact23L = g423;
    
    gExact33L = g433;
    
    CCTK_REAL csetemp229 CCTK_ATTRIBUTE_UNUSED = 2*gxyL*gxzL*gyzL;
    
    CCTK_REAL csetemp230 CCTK_ATTRIBUTE_UNUSED = gxxL*gyyL*gzzL;
    
    CCTK_REAL csetemp231 CCTK_ATTRIBUTE_UNUSED = pow(gxzL,2);
    
    CCTK_REAL csetemp232 CCTK_ATTRIBUTE_UNUSED = pow(gyzL,2);
    
    CCTK_REAL csetemp233 CCTK_ATTRIBUTE_UNUSED = pow(gxyL,2);
    
    CCTK_REAL detg CCTK_ATTRIBUTE_UNUSED = csetemp229 + csetemp230 - 
      gyyL*csetemp231 - gxxL*csetemp232 - gzzL*csetemp233;
    
    CCTK_REAL csetemp234 CCTK_ATTRIBUTE_UNUSED = 
      2*gExact12L*gExact13L*gExact23L;
    
    CCTK_REAL csetemp235 CCTK_ATTRIBUTE_UNUSED = 
      gExact11L*gExact22L*gExact33L;
    
    CCTK_REAL csetemp236 CCTK_ATTRIBUTE_UNUSED = pow(detg,-1);
    
    CCTK_REAL csetemp237 CCTK_ATTRIBUTE_UNUSED = pow(gExact23L,2);
    
    CCTK_REAL csetemp238 CCTK_ATTRIBUTE_UNUSED = pow(gExact13L,2);
    
    CCTK_REAL csetemp239 CCTK_ATTRIBUTE_UNUSED = pow(gExact12L,2);
    
    CCTK_REAL gu11 CCTK_ATTRIBUTE_UNUSED = (csetemp229 + csetemp230 - 
      gyyL*csetemp231 - gxxL*csetemp232 - 
      gzzL*csetemp233)*csetemp236*(-(gExact22L*gExact33L) + 
      csetemp237)*pow(-csetemp234 - csetemp235 + gExact11L*csetemp237 + 
      gExact22L*csetemp238 + gExact33L*csetemp239,-1);
    
    CCTK_REAL gu12 CCTK_ATTRIBUTE_UNUSED = (gExact13L*gExact23L - 
      gExact12L*gExact33L)*(csetemp229 + csetemp230 - gyyL*csetemp231 - 
      gxxL*csetemp232 - gzzL*csetemp233)*csetemp236*pow(csetemp234 + 
      csetemp235 - gExact11L*csetemp237 - gExact22L*csetemp238 - 
      gExact33L*csetemp239,-1);
    
    CCTK_REAL gu13 CCTK_ATTRIBUTE_UNUSED = (gExact13L*gExact22L - 
      gExact12L*gExact23L)*(csetemp229 + csetemp230 - gyyL*csetemp231 - 
      gxxL*csetemp232 - gzzL*csetemp233)*csetemp236*pow(-csetemp234 - 
      csetemp235 + gExact11L*csetemp237 + gExact22L*csetemp238 + 
      gExact33L*csetemp239,-1);
    
    CCTK_REAL gu22 CCTK_ATTRIBUTE_UNUSED = (csetemp229 + csetemp230 - 
      gyyL*csetemp231 - gxxL*csetemp232 - 
      gzzL*csetemp233)*csetemp236*(-(gExact11L*gExact33L) + 
      csetemp238)*pow(-csetemp234 - csetemp235 + gExact11L*csetemp237 + 
      gExact22L*csetemp238 + gExact33L*csetemp239,-1);
    
    CCTK_REAL gu23 CCTK_ATTRIBUTE_UNUSED = (gExact12L*gExact13L - 
      gExact11L*gExact23L)*(csetemp229 + csetemp230 - gyyL*csetemp231 - 
      gxxL*csetemp232 - gzzL*csetemp233)*csetemp236*pow(csetemp234 + 
      csetemp235 - gExact11L*csetemp237 - gExact22L*csetemp238 - 
      gExact33L*csetemp239,-1);
    
    CCTK_REAL gu33 CCTK_ATTRIBUTE_UNUSED = (csetemp229 + csetemp230 - 
      gyyL*csetemp231 - gxxL*csetemp232 - 
      gzzL*csetemp233)*csetemp236*(-(gExact11L*gExact22L) + 
      csetemp239)*pow(-csetemp234 - csetemp235 + gExact11L*csetemp237 + 
      gExact22L*csetemp238 + gExact33L*csetemp239,-1);
    
    betaExact1L = betal1*gu11 + betal2*gu12 + betal3*gu13;
    
    betaExact2L = betal1*gu12 + betal2*gu22 + betal3*gu23;
    
    betaExact3L = betal1*gu13 + betal2*gu23 + betal3*gu33;
    
    CCTK_REAL betasq CCTK_ATTRIBUTE_UNUSED = betaExact1L*betal1 + 
      betaExact2L*betal2 + betaExact3L*betal3;
    
    alpExactL = pow(betasq - g400,0.5);
    
    CCTK_REAL dtg11 CCTK_ATTRIBUTE_UNUSED = dg4110;
    
    CCTK_REAL dtg12 CCTK_ATTRIBUTE_UNUSED = dg4120;
    
    CCTK_REAL dtg13 CCTK_ATTRIBUTE_UNUSED = dg4130;
    
    CCTK_REAL dtg22 CCTK_ATTRIBUTE_UNUSED = dg4220;
    
    CCTK_REAL dtg23 CCTK_ATTRIBUTE_UNUSED = dg4230;
    
    CCTK_REAL dtg33 CCTK_ATTRIBUTE_UNUSED = dg4330;
    
    CCTK_REAL dg111 CCTK_ATTRIBUTE_UNUSED = dg4111;
    
    CCTK_REAL dg112 CCTK_ATTRIBUTE_UNUSED = dg4112;
    
    CCTK_REAL dg113 CCTK_ATTRIBUTE_UNUSED = dg4113;
    
    CCTK_REAL dg121 CCTK_ATTRIBUTE_UNUSED = dg4121;
    
    CCTK_REAL dg122 CCTK_ATTRIBUTE_UNUSED = dg4122;
    
    CCTK_REAL dg123 CCTK_ATTRIBUTE_UNUSED = dg4123;
    
    CCTK_REAL dg131 CCTK_ATTRIBUTE_UNUSED = dg4131;
    
    CCTK_REAL dg132 CCTK_ATTRIBUTE_UNUSED = dg4132;
    
    CCTK_REAL dg133 CCTK_ATTRIBUTE_UNUSED = dg4133;
    
    CCTK_REAL dg221 CCTK_ATTRIBUTE_UNUSED = dg4221;
    
    CCTK_REAL dg222 CCTK_ATTRIBUTE_UNUSED = dg4222;
    
    CCTK_REAL dg223 CCTK_ATTRIBUTE_UNUSED = dg4223;
    
    CCTK_REAL dg231 CCTK_ATTRIBUTE_UNUSED = dg4231;
    
    CCTK_REAL dg232 CCTK_ATTRIBUTE_UNUSED = dg4232;
    
    CCTK_REAL dg233 CCTK_ATTRIBUTE_UNUSED = dg4233;
    
    CCTK_REAL dg331 CCTK_ATTRIBUTE_UNUSED = dg4331;
    
    CCTK_REAL dg332 CCTK_ATTRIBUTE_UNUSED = dg4332;
    
    CCTK_REAL dg333 CCTK_ATTRIBUTE_UNUSED = dg4333;
    
    CCTK_REAL csetemp240 CCTK_ATTRIBUTE_UNUSED = dtg11*gu11;
    
    CCTK_REAL csetemp241 CCTK_ATTRIBUTE_UNUSED = dtg12*gu12;
    
    CCTK_REAL csetemp242 CCTK_ATTRIBUTE_UNUSED = dtg13*gu13;
    
    CCTK_REAL csetemp243 CCTK_ATTRIBUTE_UNUSED = dtg12*gu11;
    
    CCTK_REAL csetemp244 CCTK_ATTRIBUTE_UNUSED = dtg22*gu12;
    
    CCTK_REAL csetemp245 CCTK_ATTRIBUTE_UNUSED = dtg23*gu13;
    
    CCTK_REAL csetemp246 CCTK_ATTRIBUTE_UNUSED = dtg13*gu11;
    
    CCTK_REAL csetemp247 CCTK_ATTRIBUTE_UNUSED = dtg23*gu12;
    
    CCTK_REAL csetemp248 CCTK_ATTRIBUTE_UNUSED = dtg33*gu13;
    
    CCTK_REAL dtgu11 CCTK_ATTRIBUTE_UNUSED = -((csetemp240 + csetemp241 + 
      csetemp242)*gu11) - (csetemp243 + csetemp244 + csetemp245)*gu12 - 
      (csetemp246 + csetemp247 + csetemp248)*gu13;
    
    CCTK_REAL dtgu12 CCTK_ATTRIBUTE_UNUSED = -((csetemp240 + csetemp241 + 
      csetemp242)*gu12) - (csetemp243 + csetemp244 + csetemp245)*gu22 - 
      (csetemp246 + csetemp247 + csetemp248)*gu23;
    
    CCTK_REAL dtgu13 CCTK_ATTRIBUTE_UNUSED = -((csetemp240 + csetemp241 + 
      csetemp242)*gu13) - (csetemp243 + csetemp244 + csetemp245)*gu23 - 
      (csetemp246 + csetemp247 + csetemp248)*gu33;
    
    CCTK_REAL csetemp249 CCTK_ATTRIBUTE_UNUSED = dtg11*gu12;
    
    CCTK_REAL csetemp250 CCTK_ATTRIBUTE_UNUSED = dtg12*gu22;
    
    CCTK_REAL csetemp251 CCTK_ATTRIBUTE_UNUSED = dtg13*gu23;
    
    CCTK_REAL csetemp252 CCTK_ATTRIBUTE_UNUSED = dtg22*gu22;
    
    CCTK_REAL csetemp253 CCTK_ATTRIBUTE_UNUSED = dtg23*gu23;
    
    CCTK_REAL csetemp254 CCTK_ATTRIBUTE_UNUSED = dtg13*gu12;
    
    CCTK_REAL csetemp255 CCTK_ATTRIBUTE_UNUSED = dtg23*gu22;
    
    CCTK_REAL csetemp256 CCTK_ATTRIBUTE_UNUSED = dtg33*gu23;
    
    CCTK_REAL dtgu22 CCTK_ATTRIBUTE_UNUSED = -((csetemp249 + csetemp250 + 
      csetemp251)*gu12) - (csetemp241 + csetemp252 + csetemp253)*gu22 - 
      (csetemp254 + csetemp255 + csetemp256)*gu23;
    
    CCTK_REAL dtgu23 CCTK_ATTRIBUTE_UNUSED = -((csetemp249 + csetemp250 + 
      csetemp251)*gu13) - (csetemp241 + csetemp252 + csetemp253)*gu23 - 
      (csetemp254 + csetemp255 + csetemp256)*gu33;
    
    CCTK_REAL dtgu33 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dtg11*gu13 + 
      dtg12*gu23 + dtg13*gu33)) - gu23*(dtg12*gu13 + dtg22*gu23 + dtg23*gu33) 
      - gu33*(csetemp242 + csetemp253 + dtg33*gu33);
    
    CCTK_REAL csetemp257 CCTK_ATTRIBUTE_UNUSED = dg111*gu11;
    
    CCTK_REAL csetemp258 CCTK_ATTRIBUTE_UNUSED = dg121*gu12;
    
    CCTK_REAL csetemp259 CCTK_ATTRIBUTE_UNUSED = dg131*gu13;
    
    CCTK_REAL csetemp260 CCTK_ATTRIBUTE_UNUSED = dg121*gu11;
    
    CCTK_REAL csetemp261 CCTK_ATTRIBUTE_UNUSED = dg221*gu12;
    
    CCTK_REAL csetemp262 CCTK_ATTRIBUTE_UNUSED = dg231*gu13;
    
    CCTK_REAL csetemp263 CCTK_ATTRIBUTE_UNUSED = dg131*gu11;
    
    CCTK_REAL csetemp264 CCTK_ATTRIBUTE_UNUSED = dg231*gu12;
    
    CCTK_REAL csetemp265 CCTK_ATTRIBUTE_UNUSED = dg331*gu13;
    
    CCTK_REAL dgu111 CCTK_ATTRIBUTE_UNUSED = -((csetemp257 + csetemp258 + 
      csetemp259)*gu11) - (csetemp260 + csetemp261 + csetemp262)*gu12 - 
      (csetemp263 + csetemp264 + csetemp265)*gu13;
    
    CCTK_REAL dgu121 CCTK_ATTRIBUTE_UNUSED = -((csetemp257 + csetemp258 + 
      csetemp259)*gu12) - (csetemp260 + csetemp261 + csetemp262)*gu22 - 
      (csetemp263 + csetemp264 + csetemp265)*gu23;
    
    CCTK_REAL dgu131 CCTK_ATTRIBUTE_UNUSED = -((csetemp257 + csetemp258 + 
      csetemp259)*gu13) - (csetemp260 + csetemp261 + csetemp262)*gu23 - 
      (csetemp263 + csetemp264 + csetemp265)*gu33;
    
    CCTK_REAL csetemp266 CCTK_ATTRIBUTE_UNUSED = dg111*gu12;
    
    CCTK_REAL csetemp267 CCTK_ATTRIBUTE_UNUSED = dg121*gu22;
    
    CCTK_REAL csetemp268 CCTK_ATTRIBUTE_UNUSED = dg131*gu23;
    
    CCTK_REAL csetemp269 CCTK_ATTRIBUTE_UNUSED = dg221*gu22;
    
    CCTK_REAL csetemp270 CCTK_ATTRIBUTE_UNUSED = dg231*gu23;
    
    CCTK_REAL csetemp271 CCTK_ATTRIBUTE_UNUSED = dg131*gu12;
    
    CCTK_REAL csetemp272 CCTK_ATTRIBUTE_UNUSED = dg231*gu22;
    
    CCTK_REAL csetemp273 CCTK_ATTRIBUTE_UNUSED = dg331*gu23;
    
    CCTK_REAL dgu221 CCTK_ATTRIBUTE_UNUSED = -((csetemp266 + csetemp267 + 
      csetemp268)*gu12) - (csetemp258 + csetemp269 + csetemp270)*gu22 - 
      (csetemp271 + csetemp272 + csetemp273)*gu23;
    
    CCTK_REAL dgu231 CCTK_ATTRIBUTE_UNUSED = -((csetemp266 + csetemp267 + 
      csetemp268)*gu13) - (csetemp258 + csetemp269 + csetemp270)*gu23 - 
      (csetemp271 + csetemp272 + csetemp273)*gu33;
    
    CCTK_REAL dgu331 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg111*gu13 + 
      dg121*gu23 + dg131*gu33)) - gu23*(dg121*gu13 + dg221*gu23 + dg231*gu33) 
      - gu33*(csetemp259 + csetemp270 + dg331*gu33);
    
    CCTK_REAL csetemp274 CCTK_ATTRIBUTE_UNUSED = dg112*gu11;
    
    CCTK_REAL csetemp275 CCTK_ATTRIBUTE_UNUSED = dg122*gu12;
    
    CCTK_REAL csetemp276 CCTK_ATTRIBUTE_UNUSED = dg132*gu13;
    
    CCTK_REAL csetemp277 CCTK_ATTRIBUTE_UNUSED = dg122*gu11;
    
    CCTK_REAL csetemp278 CCTK_ATTRIBUTE_UNUSED = dg222*gu12;
    
    CCTK_REAL csetemp279 CCTK_ATTRIBUTE_UNUSED = dg232*gu13;
    
    CCTK_REAL csetemp280 CCTK_ATTRIBUTE_UNUSED = dg132*gu11;
    
    CCTK_REAL csetemp281 CCTK_ATTRIBUTE_UNUSED = dg232*gu12;
    
    CCTK_REAL csetemp282 CCTK_ATTRIBUTE_UNUSED = dg332*gu13;
    
    CCTK_REAL dgu112 CCTK_ATTRIBUTE_UNUSED = -((csetemp274 + csetemp275 + 
      csetemp276)*gu11) - (csetemp277 + csetemp278 + csetemp279)*gu12 - 
      (csetemp280 + csetemp281 + csetemp282)*gu13;
    
    CCTK_REAL dgu122 CCTK_ATTRIBUTE_UNUSED = -((csetemp274 + csetemp275 + 
      csetemp276)*gu12) - (csetemp277 + csetemp278 + csetemp279)*gu22 - 
      (csetemp280 + csetemp281 + csetemp282)*gu23;
    
    CCTK_REAL dgu132 CCTK_ATTRIBUTE_UNUSED = -((csetemp274 + csetemp275 + 
      csetemp276)*gu13) - (csetemp277 + csetemp278 + csetemp279)*gu23 - 
      (csetemp280 + csetemp281 + csetemp282)*gu33;
    
    CCTK_REAL csetemp283 CCTK_ATTRIBUTE_UNUSED = dg112*gu12;
    
    CCTK_REAL csetemp284 CCTK_ATTRIBUTE_UNUSED = dg122*gu22;
    
    CCTK_REAL csetemp285 CCTK_ATTRIBUTE_UNUSED = dg132*gu23;
    
    CCTK_REAL csetemp286 CCTK_ATTRIBUTE_UNUSED = dg222*gu22;
    
    CCTK_REAL csetemp287 CCTK_ATTRIBUTE_UNUSED = dg232*gu23;
    
    CCTK_REAL csetemp288 CCTK_ATTRIBUTE_UNUSED = dg132*gu12;
    
    CCTK_REAL csetemp289 CCTK_ATTRIBUTE_UNUSED = dg232*gu22;
    
    CCTK_REAL csetemp290 CCTK_ATTRIBUTE_UNUSED = dg332*gu23;
    
    CCTK_REAL dgu222 CCTK_ATTRIBUTE_UNUSED = -((csetemp283 + csetemp284 + 
      csetemp285)*gu12) - (csetemp275 + csetemp286 + csetemp287)*gu22 - 
      (csetemp288 + csetemp289 + csetemp290)*gu23;
    
    CCTK_REAL dgu232 CCTK_ATTRIBUTE_UNUSED = -((csetemp283 + csetemp284 + 
      csetemp285)*gu13) - (csetemp275 + csetemp286 + csetemp287)*gu23 - 
      (csetemp288 + csetemp289 + csetemp290)*gu33;
    
    CCTK_REAL dgu332 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg112*gu13 + 
      dg122*gu23 + dg132*gu33)) - gu23*(dg122*gu13 + dg222*gu23 + dg232*gu33) 
      - gu33*(csetemp276 + csetemp287 + dg332*gu33);
    
    CCTK_REAL csetemp291 CCTK_ATTRIBUTE_UNUSED = dg113*gu11;
    
    CCTK_REAL csetemp292 CCTK_ATTRIBUTE_UNUSED = dg123*gu12;
    
    CCTK_REAL csetemp293 CCTK_ATTRIBUTE_UNUSED = dg133*gu13;
    
    CCTK_REAL csetemp294 CCTK_ATTRIBUTE_UNUSED = dg123*gu11;
    
    CCTK_REAL csetemp295 CCTK_ATTRIBUTE_UNUSED = dg223*gu12;
    
    CCTK_REAL csetemp296 CCTK_ATTRIBUTE_UNUSED = dg233*gu13;
    
    CCTK_REAL csetemp297 CCTK_ATTRIBUTE_UNUSED = dg133*gu11;
    
    CCTK_REAL csetemp298 CCTK_ATTRIBUTE_UNUSED = dg233*gu12;
    
    CCTK_REAL csetemp299 CCTK_ATTRIBUTE_UNUSED = dg333*gu13;
    
    CCTK_REAL dgu113 CCTK_ATTRIBUTE_UNUSED = -((csetemp291 + csetemp292 + 
      csetemp293)*gu11) - (csetemp294 + csetemp295 + csetemp296)*gu12 - 
      (csetemp297 + csetemp298 + csetemp299)*gu13;
    
    CCTK_REAL dgu123 CCTK_ATTRIBUTE_UNUSED = -((csetemp291 + csetemp292 + 
      csetemp293)*gu12) - (csetemp294 + csetemp295 + csetemp296)*gu22 - 
      (csetemp297 + csetemp298 + csetemp299)*gu23;
    
    CCTK_REAL dgu133 CCTK_ATTRIBUTE_UNUSED = -((csetemp291 + csetemp292 + 
      csetemp293)*gu13) - (csetemp294 + csetemp295 + csetemp296)*gu23 - 
      (csetemp297 + csetemp298 + csetemp299)*gu33;
    
    CCTK_REAL csetemp300 CCTK_ATTRIBUTE_UNUSED = dg113*gu12;
    
    CCTK_REAL csetemp301 CCTK_ATTRIBUTE_UNUSED = dg123*gu22;
    
    CCTK_REAL csetemp302 CCTK_ATTRIBUTE_UNUSED = dg133*gu23;
    
    CCTK_REAL csetemp303 CCTK_ATTRIBUTE_UNUSED = dg223*gu22;
    
    CCTK_REAL csetemp304 CCTK_ATTRIBUTE_UNUSED = dg233*gu23;
    
    CCTK_REAL csetemp305 CCTK_ATTRIBUTE_UNUSED = dg133*gu12;
    
    CCTK_REAL csetemp306 CCTK_ATTRIBUTE_UNUSED = dg233*gu22;
    
    CCTK_REAL csetemp307 CCTK_ATTRIBUTE_UNUSED = dg333*gu23;
    
    CCTK_REAL dgu223 CCTK_ATTRIBUTE_UNUSED = -((csetemp300 + csetemp301 + 
      csetemp302)*gu12) - (csetemp292 + csetemp303 + csetemp304)*gu22 - 
      (csetemp305 + csetemp306 + csetemp307)*gu23;
    
    CCTK_REAL dgu233 CCTK_ATTRIBUTE_UNUSED = -((csetemp300 + csetemp301 + 
      csetemp302)*gu13) - (csetemp292 + csetemp303 + csetemp304)*gu23 - 
      (csetemp305 + csetemp306 + csetemp307)*gu33;
    
    CCTK_REAL dgu333 CCTK_ATTRIBUTE_UNUSED = -(gu13*(dg113*gu13 + 
      dg123*gu23 + dg133*gu33)) - gu23*(dg123*gu13 + dg223*gu23 + dg233*gu33) 
      - gu33*(csetemp293 + csetemp304 + dg333*gu33);
    
    CCTK_REAL dtbetal1 CCTK_ATTRIBUTE_UNUSED = dg4010;
    
    CCTK_REAL dtbetal2 CCTK_ATTRIBUTE_UNUSED = dg4020;
    
    CCTK_REAL dtbetal3 CCTK_ATTRIBUTE_UNUSED = dg4030;
    
    CCTK_REAL dbetal11 CCTK_ATTRIBUTE_UNUSED = dg4011;
    
    CCTK_REAL dbetal12 CCTK_ATTRIBUTE_UNUSED = dg4012;
    
    CCTK_REAL dbetal13 CCTK_ATTRIBUTE_UNUSED = dg4013;
    
    CCTK_REAL dbetal21 CCTK_ATTRIBUTE_UNUSED = dg4021;
    
    CCTK_REAL dbetal22 CCTK_ATTRIBUTE_UNUSED = dg4022;
    
    CCTK_REAL dbetal23 CCTK_ATTRIBUTE_UNUSED = dg4023;
    
    CCTK_REAL dbetal31 CCTK_ATTRIBUTE_UNUSED = dg4031;
    
    CCTK_REAL dbetal32 CCTK_ATTRIBUTE_UNUSED = dg4032;
    
    CCTK_REAL dbetal33 CCTK_ATTRIBUTE_UNUSED = dg4033;
    
    dtbetaExact1L = betal1*dtgu11 + betal2*dtgu12 + betal3*dtgu13 + 
      dtbetal1*gu11 + dtbetal2*gu12 + dtbetal3*gu13;
    
    dtbetaExact2L = betal1*dtgu12 + betal2*dtgu22 + betal3*dtgu23 + 
      dtbetal1*gu12 + dtbetal2*gu22 + dtbetal3*gu23;
    
    dtbetaExact3L = betal1*dtgu13 + betal2*dtgu23 + betal3*dtgu33 + 
      dtbetal1*gu13 + dtbetal2*gu23 + dtbetal3*gu33;
    
    CCTK_REAL dbeta11 CCTK_ATTRIBUTE_UNUSED = betal1*dgu111 + 
      betal2*dgu121 + betal3*dgu131 + dbetal11*gu11 + dbetal21*gu12 + 
      dbetal31*gu13;
    
    CCTK_REAL dbeta21 CCTK_ATTRIBUTE_UNUSED = betal1*dgu121 + 
      betal2*dgu221 + betal3*dgu231 + dbetal11*gu12 + dbetal21*gu22 + 
      dbetal31*gu23;
    
    CCTK_REAL dbeta31 CCTK_ATTRIBUTE_UNUSED = betal1*dgu131 + 
      betal2*dgu231 + betal3*dgu331 + dbetal11*gu13 + dbetal21*gu23 + 
      dbetal31*gu33;
    
    CCTK_REAL dbeta12 CCTK_ATTRIBUTE_UNUSED = betal1*dgu112 + 
      betal2*dgu122 + betal3*dgu132 + dbetal12*gu11 + dbetal22*gu12 + 
      dbetal32*gu13;
    
    CCTK_REAL dbeta22 CCTK_ATTRIBUTE_UNUSED = betal1*dgu122 + 
      betal2*dgu222 + betal3*dgu232 + dbetal12*gu12 + dbetal22*gu22 + 
      dbetal32*gu23;
    
    CCTK_REAL dbeta32 CCTK_ATTRIBUTE_UNUSED = betal1*dgu132 + 
      betal2*dgu232 + betal3*dgu332 + dbetal12*gu13 + dbetal22*gu23 + 
      dbetal32*gu33;
    
    CCTK_REAL dbeta13 CCTK_ATTRIBUTE_UNUSED = betal1*dgu113 + 
      betal2*dgu123 + betal3*dgu133 + dbetal13*gu11 + dbetal23*gu12 + 
      dbetal33*gu13;
    
    CCTK_REAL dbeta23 CCTK_ATTRIBUTE_UNUSED = betal1*dgu123 + 
      betal2*dgu223 + betal3*dgu233 + dbetal13*gu12 + dbetal23*gu22 + 
      dbetal33*gu23;
    
    CCTK_REAL dbeta33 CCTK_ATTRIBUTE_UNUSED = betal1*dgu133 + 
      betal2*dgu233 + betal3*dgu333 + dbetal13*gu13 + dbetal23*gu23 + 
      dbetal33*gu33;
    
    CCTK_REAL dtbetasq CCTK_ATTRIBUTE_UNUSED = dtbetaExact1L*betal1 + 
      dtbetaExact2L*betal2 + dtbetaExact3L*betal3 + betaExact1L*dtbetal1 + 
      betaExact2L*dtbetal2 + betaExact3L*dtbetal3;
    
    CCTK_REAL csetemp308 CCTK_ATTRIBUTE_UNUSED = pow(alpExactL,-1);
    
    CCTK_REAL dtalpExactL CCTK_ATTRIBUTE_UNUSED = 0.5*csetemp308*(-dg4000 
      + dtbetasq);
    
    CCTK_REAL kExact11L CCTK_ATTRIBUTE_UNUSED = 
      0.5*csetemp308*(2*(gExact11L*dbeta11 + gExact12L*dbeta21 + 
      gExact13L*dbeta31) + betaExact1L*dg111 + betaExact2L*dg112 + 
      betaExact3L*dg113 - dtg11);
    
    CCTK_REAL kExact12L CCTK_ATTRIBUTE_UNUSED = 
      0.5*csetemp308*(gExact11L*dbeta12 + gExact22L*dbeta21 + 
      gExact12L*(dbeta11 + dbeta22) + gExact23L*dbeta31 + gExact13L*dbeta32 + 
      betaExact1L*dg121 + betaExact2L*dg122 + betaExact3L*dg123 - dtg12);
    
    CCTK_REAL kExact13L CCTK_ATTRIBUTE_UNUSED = 
      0.5*csetemp308*(gExact11L*dbeta13 + gExact23L*dbeta21 + 
      gExact12L*dbeta23 + gExact33L*dbeta31 + gExact13L*(dbeta11 + dbeta33) + 
      betaExact1L*dg131 + betaExact2L*dg132 + betaExact3L*dg133 - dtg13);
    
    CCTK_REAL kExact22L CCTK_ATTRIBUTE_UNUSED = 
      0.5*csetemp308*(2*(gExact12L*dbeta12 + gExact22L*dbeta22 + 
      gExact23L*dbeta32) + betaExact1L*dg221 + betaExact2L*dg222 + 
      betaExact3L*dg223 - dtg22);
    
    CCTK_REAL kExact23L CCTK_ATTRIBUTE_UNUSED = 
      0.5*csetemp308*(gExact13L*dbeta12 + gExact12L*dbeta13 + 
      gExact22L*dbeta23 + gExact33L*dbeta32 + gExact23L*(dbeta22 + dbeta33) + 
      betaExact1L*dg231 + betaExact2L*dg232 + betaExact3L*dg233 - dtg23);
    
    CCTK_REAL kExact33L CCTK_ATTRIBUTE_UNUSED = 
      0.5*csetemp308*(2*(gExact13L*dbeta13 + gExact23L*dbeta23 + 
      gExact33L*dbeta33) + betaExact1L*dg331 + betaExact2L*dg332 + 
      betaExact3L*dg333 - dtg33);
    /* Copy local copies back to grid functions */
    alpExact[index] = alpExactL;
    betaExact1[index] = betaExact1L;
    betaExact2[index] = betaExact2L;
    betaExact3[index] = betaExact3L;
    dtalpExact[index] = dtalpExactL;
    dtbetaExact1[index] = dtbetaExact1L;
    dtbetaExact2[index] = dtbetaExact2L;
    dtbetaExact3[index] = dtbetaExact3L;
    gExact11[index] = gExact11L;
    gExact12[index] = gExact12L;
    gExact13[index] = gExact13L;
    gExact22[index] = gExact22L;
    gExact23[index] = gExact23L;
    gExact33[index] = gExact33L;
    kExact11[index] = kExact11L;
    kExact12[index] = kExact12L;
    kExact13[index] = kExact13L;
    kExact22[index] = kExact22L;
    kExact23[index] = kExact23L;
    kExact33[index] = kExact33L;
  }
  CCTK_ENDLOOP3(ModifiedSchwarzschildBL_exact);
}
extern "C" void ModifiedSchwarzschildBL_exact(CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  DECLARE_CCTK_PARAMETERS;
  
  if (verbose > 1)
  {
    CCTK_VInfo(CCTK_THORNSTRING,"Entering ModifiedSchwarzschildBL_exact_Body");
  }
  if (cctk_iteration % ModifiedSchwarzschildBL_exact_calc_every != ModifiedSchwarzschildBL_exact_calc_offset)
  {
    return;
  }
  
  const char* const groups[] = {
    "admbase::metric",
    "ModifiedSchwarzschildBL::curv_exact",
    "ModifiedSchwarzschildBL::dtlapse_exact",
    "ModifiedSchwarzschildBL::dtshift_exact",
    "grid::coordinates",
    "ModifiedSchwarzschildBL::lapse_exact",
    "ModifiedSchwarzschildBL::metric_exact",
    "ModifiedSchwarzschildBL::shift_exact"};
  AssertGroupStorage(cctkGH, "ModifiedSchwarzschildBL_exact", 8, groups);
  
  
  LoopOverEverything(cctkGH, ModifiedSchwarzschildBL_exact_Body);
  if (verbose > 1)
  {
    CCTK_VInfo(CCTK_THORNSTRING,"Leaving ModifiedSchwarzschildBL_exact_Body");
  }
}

} // namespace ModifiedSchwarzschildBL