Regenerate code

Kranc commit 4707e0c3f03cc52d82f88735e602c52cf74f0cbe.  Tests pass.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/WeylScal4/trunk@122 4f5cb9a8-4dd8-4c2d-9bbd-173fa4467843

6 files changed, 90 insertions, 3462 deletions

diff --git a/src/psi4_calc_2nd.cc b/src/psi4_calc_2nd.cc
index 5baa955..9559164 100644
--- a/src/psi4_calc_2nd.cc
+++ b/src/psi4_calc_2nd.cc
@@ -606,23 +606,14 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     }
     
     /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandard2nd11gxy;
-    CCTK_REAL_VEC JacPDstandard2nd11gxz;
     CCTK_REAL_VEC JacPDstandard2nd11gyy;
     CCTK_REAL_VEC JacPDstandard2nd11gyz;
     CCTK_REAL_VEC JacPDstandard2nd11gzz;
-    CCTK_REAL_VEC JacPDstandard2nd12gxx;
     CCTK_REAL_VEC JacPDstandard2nd12gxy;
     CCTK_REAL_VEC JacPDstandard2nd12gxz;
-    CCTK_REAL_VEC JacPDstandard2nd12gyy;
     CCTK_REAL_VEC JacPDstandard2nd12gyz;
     CCTK_REAL_VEC JacPDstandard2nd12gzz;
-    CCTK_REAL_VEC JacPDstandard2nd13gxx;
-    CCTK_REAL_VEC JacPDstandard2nd13gxy;
     CCTK_REAL_VEC JacPDstandard2nd13gxz;
-    CCTK_REAL_VEC JacPDstandard2nd13gyy;
-    CCTK_REAL_VEC JacPDstandard2nd13gyz;
-    CCTK_REAL_VEC JacPDstandard2nd13gzz;
     CCTK_REAL_VEC JacPDstandard2nd1gxx;
     CCTK_REAL_VEC JacPDstandard2nd1gxy;
     CCTK_REAL_VEC JacPDstandard2nd1gxz;
@@ -634,23 +625,14 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard2nd1kyy;
     CCTK_REAL_VEC JacPDstandard2nd1kyz;
     CCTK_REAL_VEC JacPDstandard2nd1kzz;
-    CCTK_REAL_VEC JacPDstandard2nd21gxx;
     CCTK_REAL_VEC JacPDstandard2nd21gxy;
-    CCTK_REAL_VEC JacPDstandard2nd21gxz;
-    CCTK_REAL_VEC JacPDstandard2nd21gyy;
-    CCTK_REAL_VEC JacPDstandard2nd21gyz;
-    CCTK_REAL_VEC JacPDstandard2nd21gzz;
     CCTK_REAL_VEC JacPDstandard2nd22gxx;
-    CCTK_REAL_VEC JacPDstandard2nd22gxy;
     CCTK_REAL_VEC JacPDstandard2nd22gxz;
-    CCTK_REAL_VEC JacPDstandard2nd22gyz;
     CCTK_REAL_VEC JacPDstandard2nd22gzz;
     CCTK_REAL_VEC JacPDstandard2nd23gxx;
     CCTK_REAL_VEC JacPDstandard2nd23gxy;
     CCTK_REAL_VEC JacPDstandard2nd23gxz;
-    CCTK_REAL_VEC JacPDstandard2nd23gyy;
     CCTK_REAL_VEC JacPDstandard2nd23gyz;
-    CCTK_REAL_VEC JacPDstandard2nd23gzz;
     CCTK_REAL_VEC JacPDstandard2nd2gxx;
     CCTK_REAL_VEC JacPDstandard2nd2gxy;
     CCTK_REAL_VEC JacPDstandard2nd2gxz;
@@ -662,23 +644,14 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard2nd2kxz;
     CCTK_REAL_VEC JacPDstandard2nd2kyz;
     CCTK_REAL_VEC JacPDstandard2nd2kzz;
-    CCTK_REAL_VEC JacPDstandard2nd31gxx;
     CCTK_REAL_VEC JacPDstandard2nd31gxy;
     CCTK_REAL_VEC JacPDstandard2nd31gxz;
     CCTK_REAL_VEC JacPDstandard2nd31gyy;
     CCTK_REAL_VEC JacPDstandard2nd31gyz;
-    CCTK_REAL_VEC JacPDstandard2nd31gzz;
-    CCTK_REAL_VEC JacPDstandard2nd32gxx;
-    CCTK_REAL_VEC JacPDstandard2nd32gxy;
-    CCTK_REAL_VEC JacPDstandard2nd32gxz;
-    CCTK_REAL_VEC JacPDstandard2nd32gyy;
     CCTK_REAL_VEC JacPDstandard2nd32gyz;
-    CCTK_REAL_VEC JacPDstandard2nd32gzz;
     CCTK_REAL_VEC JacPDstandard2nd33gxx;
     CCTK_REAL_VEC JacPDstandard2nd33gxy;
-    CCTK_REAL_VEC JacPDstandard2nd33gxz;
     CCTK_REAL_VEC JacPDstandard2nd33gyy;
-    CCTK_REAL_VEC JacPDstandard2nd33gyz;
     CCTK_REAL_VEC JacPDstandard2nd3gxx;
     CCTK_REAL_VEC JacPDstandard2nd3gxy;
     CCTK_REAL_VEC JacPDstandard2nd3gxz;
@@ -792,12 +765,6 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd3kyz = 
         kmadd(J13L,PDstandard2nd1kyz,kmadd(J23L,PDstandard2nd2kyz,kmul(J33L,PDstandard2nd3kyz)));
       
-      JacPDstandard2nd11gxy = 
-        kmadd(dJ111L,PDstandard2nd1gxy,kmadd(dJ211L,PDstandard2nd2gxy,kmadd(dJ311L,PDstandard2nd3gxy,kmadd(PDstandard2nd11gxy,kmul(J11L,J11L),kmadd(PDstandard2nd22gxy,kmul(J21L,J21L),kmadd(PDstandard2nd33gxy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy)),kmul(J21L,kmul(J31L,PDstandard2nd23gxy))),ToReal(2.))))))));
-      
-      JacPDstandard2nd11gxz = 
-        kmadd(dJ111L,PDstandard2nd1gxz,kmadd(dJ211L,PDstandard2nd2gxz,kmadd(dJ311L,PDstandard2nd3gxz,kmadd(PDstandard2nd11gxz,kmul(J11L,J11L),kmadd(PDstandard2nd22gxz,kmul(J21L,J21L),kmadd(PDstandard2nd33gxz,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard2nd12gxz,kmul(J31L,PDstandard2nd13gxz)),kmul(J21L,kmul(J31L,PDstandard2nd23gxz))),ToReal(2.))))))));
-      
       JacPDstandard2nd11gyy = 
         kmadd(dJ111L,PDstandard2nd1gyy,kmadd(dJ211L,PDstandard2nd2gyy,kmadd(dJ311L,PDstandard2nd3gyy,kmadd(PDstandard2nd11gyy,kmul(J11L,J11L),kmadd(PDstandard2nd22gyy,kmul(J21L,J21L),kmadd(PDstandard2nd33gyy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard2nd12gyy,kmul(J31L,PDstandard2nd13gyy)),kmul(J21L,kmul(J31L,PDstandard2nd23gyy))),ToReal(2.))))))));
       
@@ -810,15 +777,9 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd22gxx = 
         kmadd(dJ122L,PDstandard2nd1gxx,kmadd(dJ222L,PDstandard2nd2gxx,kmadd(dJ322L,PDstandard2nd3gxx,kmadd(PDstandard2nd11gxx,kmul(J12L,J12L),kmadd(PDstandard2nd22gxx,kmul(J22L,J22L),kmadd(PDstandard2nd33gxx,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx)),kmul(J22L,kmul(J32L,PDstandard2nd23gxx))),ToReal(2.))))))));
       
-      JacPDstandard2nd22gxy = 
-        kmadd(dJ122L,PDstandard2nd1gxy,kmadd(dJ222L,PDstandard2nd2gxy,kmadd(dJ322L,PDstandard2nd3gxy,kmadd(PDstandard2nd11gxy,kmul(J12L,J12L),kmadd(PDstandard2nd22gxy,kmul(J22L,J22L),kmadd(PDstandard2nd33gxy,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gxy,kmul(J32L,PDstandard2nd13gxy)),kmul(J22L,kmul(J32L,PDstandard2nd23gxy))),ToReal(2.))))))));
-      
       JacPDstandard2nd22gxz = 
         kmadd(dJ122L,PDstandard2nd1gxz,kmadd(dJ222L,PDstandard2nd2gxz,kmadd(dJ322L,PDstandard2nd3gxz,kmadd(PDstandard2nd11gxz,kmul(J12L,J12L),kmadd(PDstandard2nd22gxz,kmul(J22L,J22L),kmadd(PDstandard2nd33gxz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz)),kmul(J22L,kmul(J32L,PDstandard2nd23gxz))),ToReal(2.))))))));
       
-      JacPDstandard2nd22gyz = 
-        kmadd(dJ122L,PDstandard2nd1gyz,kmadd(dJ222L,PDstandard2nd2gyz,kmadd(dJ322L,PDstandard2nd3gyz,kmadd(PDstandard2nd11gyz,kmul(J12L,J12L),kmadd(PDstandard2nd22gyz,kmul(J22L,J22L),kmadd(PDstandard2nd33gyz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz)),kmul(J22L,kmul(J32L,PDstandard2nd23gyz))),ToReal(2.))))))));
-      
       JacPDstandard2nd22gzz = 
         kmadd(dJ122L,PDstandard2nd1gzz,kmadd(dJ222L,PDstandard2nd2gzz,kmadd(dJ322L,PDstandard2nd3gzz,kmadd(PDstandard2nd11gzz,kmul(J12L,J12L),kmadd(PDstandard2nd22gzz,kmul(J22L,J22L),kmadd(PDstandard2nd33gzz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz)),kmul(J22L,kmul(J32L,PDstandard2nd23gzz))),ToReal(2.))))))));
       
@@ -828,69 +789,27 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd33gxy = 
         kmadd(dJ133L,PDstandard2nd1gxy,kmadd(dJ233L,PDstandard2nd2gxy,kmadd(dJ333L,PDstandard2nd3gxy,kmadd(PDstandard2nd11gxy,kmul(J13L,J13L),kmadd(PDstandard2nd22gxy,kmul(J23L,J23L),kmadd(PDstandard2nd33gxy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard2nd12gxy,kmul(J33L,PDstandard2nd13gxy)),kmul(J23L,kmul(J33L,PDstandard2nd23gxy))),ToReal(2.))))))));
       
-      JacPDstandard2nd33gxz = 
-        kmadd(dJ133L,PDstandard2nd1gxz,kmadd(dJ233L,PDstandard2nd2gxz,kmadd(dJ333L,PDstandard2nd3gxz,kmadd(PDstandard2nd11gxz,kmul(J13L,J13L),kmadd(PDstandard2nd22gxz,kmul(J23L,J23L),kmadd(PDstandard2nd33gxz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard2nd12gxz,kmul(J33L,PDstandard2nd13gxz)),kmul(J23L,kmul(J33L,PDstandard2nd23gxz))),ToReal(2.))))))));
-      
       JacPDstandard2nd33gyy = 
         kmadd(dJ133L,PDstandard2nd1gyy,kmadd(dJ233L,PDstandard2nd2gyy,kmadd(dJ333L,PDstandard2nd3gyy,kmadd(PDstandard2nd11gyy,kmul(J13L,J13L),kmadd(PDstandard2nd22gyy,kmul(J23L,J23L),kmadd(PDstandard2nd33gyy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard2nd12gyy,kmul(J33L,PDstandard2nd13gyy)),kmul(J23L,kmul(J33L,PDstandard2nd23gyy))),ToReal(2.))))))));
       
-      JacPDstandard2nd33gyz = 
-        kmadd(dJ133L,PDstandard2nd1gyz,kmadd(dJ233L,PDstandard2nd2gyz,kmadd(dJ333L,PDstandard2nd3gyz,kmadd(PDstandard2nd11gyz,kmul(J13L,J13L),kmadd(PDstandard2nd22gyz,kmul(J23L,J23L),kmadd(PDstandard2nd33gyz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmul(J23L,kmul(J33L,PDstandard2nd23gyz))),ToReal(2.))))))));
-      
-      JacPDstandard2nd12gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gxx,kmadd(J21L,PDstandard2nd12gxx,kmul(J31L,PDstandard2nd13gxx))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx)),kmadd(dJ112L,PDstandard2nd1gxx,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxx,kmul(J31L,PDstandard2nd23gxx)),kmadd(dJ212L,PDstandard2nd2gxx,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxx,kmul(J31L,PDstandard2nd33gxx)),kmul(dJ312L,PDstandard2nd3gxx)))))));
-      
       JacPDstandard2nd12gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gxy,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxy,kmul(J32L,PDstandard2nd13gxy)),kmadd(dJ112L,PDstandard2nd1gxy,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxy,kmul(J31L,PDstandard2nd23gxy)),kmadd(dJ212L,PDstandard2nd2gxy,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxy,kmul(J31L,PDstandard2nd33gxy)),kmul(dJ312L,PDstandard2nd3gxy)))))));
       
       JacPDstandard2nd12gxz = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gxz,kmadd(J21L,PDstandard2nd12gxz,kmul(J31L,PDstandard2nd13gxz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz)),kmadd(dJ112L,PDstandard2nd1gxz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxz,kmul(J31L,PDstandard2nd23gxz)),kmadd(dJ212L,PDstandard2nd2gxz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxz,kmul(J31L,PDstandard2nd33gxz)),kmul(dJ312L,PDstandard2nd3gxz)))))));
       
-      JacPDstandard2nd12gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gyy,kmadd(J21L,PDstandard2nd12gyy,kmul(J31L,PDstandard2nd13gyy))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gyy,kmul(J32L,PDstandard2nd13gyy)),kmadd(dJ112L,PDstandard2nd1gyy,kmadd(J22L,kmadd(J21L,PDstandard2nd22gyy,kmul(J31L,PDstandard2nd23gyy)),kmadd(dJ212L,PDstandard2nd2gyy,kmadd(J32L,kmadd(J21L,PDstandard2nd23gyy,kmul(J31L,PDstandard2nd33gyy)),kmul(dJ312L,PDstandard2nd3gyy)))))));
-      
       JacPDstandard2nd12gyz = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gyz,kmadd(J21L,PDstandard2nd12gyz,kmul(J31L,PDstandard2nd13gyz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz)),kmadd(dJ112L,PDstandard2nd1gyz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gyz,kmul(J31L,PDstandard2nd23gyz)),kmadd(dJ212L,PDstandard2nd2gyz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gyz,kmul(J31L,PDstandard2nd33gyz)),kmul(dJ312L,PDstandard2nd3gyz)))))));
       
       JacPDstandard2nd12gzz = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gzz,kmadd(J21L,PDstandard2nd12gzz,kmul(J31L,PDstandard2nd13gzz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz)),kmadd(dJ112L,PDstandard2nd1gzz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gzz,kmul(J31L,PDstandard2nd23gzz)),kmadd(dJ212L,PDstandard2nd2gzz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gzz,kmul(J31L,PDstandard2nd33gzz)),kmul(dJ312L,PDstandard2nd3gzz)))))));
       
-      JacPDstandard2nd13gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gxx,kmadd(J21L,PDstandard2nd12gxx,kmul(J31L,PDstandard2nd13gxx))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxx,kmul(J33L,PDstandard2nd13gxx)),kmadd(dJ113L,PDstandard2nd1gxx,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxx,kmul(J31L,PDstandard2nd23gxx)),kmadd(dJ213L,PDstandard2nd2gxx,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxx,kmul(J31L,PDstandard2nd33gxx)),kmul(dJ313L,PDstandard2nd3gxx)))))));
-      
-      JacPDstandard2nd13gxy = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gxy,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxy,kmul(J33L,PDstandard2nd13gxy)),kmadd(dJ113L,PDstandard2nd1gxy,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxy,kmul(J31L,PDstandard2nd23gxy)),kmadd(dJ213L,PDstandard2nd2gxy,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxy,kmul(J31L,PDstandard2nd33gxy)),kmul(dJ313L,PDstandard2nd3gxy)))))));
-      
       JacPDstandard2nd13gxz = 
         kmadd(J13L,kmadd(J11L,PDstandard2nd11gxz,kmadd(J21L,PDstandard2nd12gxz,kmul(J31L,PDstandard2nd13gxz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxz,kmul(J33L,PDstandard2nd13gxz)),kmadd(dJ113L,PDstandard2nd1gxz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxz,kmul(J31L,PDstandard2nd23gxz)),kmadd(dJ213L,PDstandard2nd2gxz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxz,kmul(J31L,PDstandard2nd33gxz)),kmul(dJ313L,PDstandard2nd3gxz)))))));
       
-      JacPDstandard2nd13gyy = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gyy,kmadd(J21L,PDstandard2nd12gyy,kmul(J31L,PDstandard2nd13gyy))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gyy,kmul(J33L,PDstandard2nd13gyy)),kmadd(dJ113L,PDstandard2nd1gyy,kmadd(J23L,kmadd(J21L,PDstandard2nd22gyy,kmul(J31L,PDstandard2nd23gyy)),kmadd(dJ213L,PDstandard2nd2gyy,kmadd(J33L,kmadd(J21L,PDstandard2nd23gyy,kmul(J31L,PDstandard2nd33gyy)),kmul(dJ313L,PDstandard2nd3gyy)))))));
-      
-      JacPDstandard2nd13gyz = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gyz,kmadd(J21L,PDstandard2nd12gyz,kmul(J31L,PDstandard2nd13gyz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmadd(dJ113L,PDstandard2nd1gyz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gyz,kmul(J31L,PDstandard2nd23gyz)),kmadd(dJ213L,PDstandard2nd2gyz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gyz,kmul(J31L,PDstandard2nd33gyz)),kmul(dJ313L,PDstandard2nd3gyz)))))));
-      
-      JacPDstandard2nd13gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gzz,kmadd(J21L,PDstandard2nd12gzz,kmul(J31L,PDstandard2nd13gzz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gzz,kmul(J33L,PDstandard2nd13gzz)),kmadd(dJ113L,PDstandard2nd1gzz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gzz,kmul(J31L,PDstandard2nd23gzz)),kmadd(dJ213L,PDstandard2nd2gzz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gzz,kmul(J31L,PDstandard2nd33gzz)),kmul(dJ313L,PDstandard2nd3gzz)))))));
-      
-      JacPDstandard2nd21gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gxx,kmadd(J21L,PDstandard2nd12gxx,kmul(J31L,PDstandard2nd13gxx))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx)),kmadd(dJ112L,PDstandard2nd1gxx,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxx,kmul(J31L,PDstandard2nd23gxx)),kmadd(dJ212L,PDstandard2nd2gxx,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxx,kmul(J31L,PDstandard2nd33gxx)),kmul(dJ312L,PDstandard2nd3gxx)))))));
-      
       JacPDstandard2nd21gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gxy,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxy,kmul(J32L,PDstandard2nd13gxy)),kmadd(dJ112L,PDstandard2nd1gxy,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxy,kmul(J31L,PDstandard2nd23gxy)),kmadd(dJ212L,PDstandard2nd2gxy,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxy,kmul(J31L,PDstandard2nd33gxy)),kmul(dJ312L,PDstandard2nd3gxy)))))));
       
-      JacPDstandard2nd21gxz = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gxz,kmadd(J21L,PDstandard2nd12gxz,kmul(J31L,PDstandard2nd13gxz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz)),kmadd(dJ112L,PDstandard2nd1gxz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxz,kmul(J31L,PDstandard2nd23gxz)),kmadd(dJ212L,PDstandard2nd2gxz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxz,kmul(J31L,PDstandard2nd33gxz)),kmul(dJ312L,PDstandard2nd3gxz)))))));
-      
-      JacPDstandard2nd21gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gyy,kmadd(J21L,PDstandard2nd12gyy,kmul(J31L,PDstandard2nd13gyy))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gyy,kmul(J32L,PDstandard2nd13gyy)),kmadd(dJ112L,PDstandard2nd1gyy,kmadd(J22L,kmadd(J21L,PDstandard2nd22gyy,kmul(J31L,PDstandard2nd23gyy)),kmadd(dJ212L,PDstandard2nd2gyy,kmadd(J32L,kmadd(J21L,PDstandard2nd23gyy,kmul(J31L,PDstandard2nd33gyy)),kmul(dJ312L,PDstandard2nd3gyy)))))));
-      
-      JacPDstandard2nd21gyz = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gyz,kmadd(J21L,PDstandard2nd12gyz,kmul(J31L,PDstandard2nd13gyz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz)),kmadd(dJ112L,PDstandard2nd1gyz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gyz,kmul(J31L,PDstandard2nd23gyz)),kmadd(dJ212L,PDstandard2nd2gyz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gyz,kmul(J31L,PDstandard2nd33gyz)),kmul(dJ312L,PDstandard2nd3gyz)))))));
-      
-      JacPDstandard2nd21gzz = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gzz,kmadd(J21L,PDstandard2nd12gzz,kmul(J31L,PDstandard2nd13gzz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz)),kmadd(dJ112L,PDstandard2nd1gzz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gzz,kmul(J31L,PDstandard2nd23gzz)),kmadd(dJ212L,PDstandard2nd2gzz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gzz,kmul(J31L,PDstandard2nd33gzz)),kmul(dJ312L,PDstandard2nd3gzz)))))));
-      
       JacPDstandard2nd23gxx = 
         kmadd(J13L,kmadd(J12L,PDstandard2nd11gxx,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxx,kmul(J33L,PDstandard2nd13gxx)),kmadd(dJ123L,PDstandard2nd1gxx,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxx,kmul(J32L,PDstandard2nd23gxx)),kmadd(dJ223L,PDstandard2nd2gxx,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxx,kmul(J32L,PDstandard2nd33gxx)),kmul(dJ323L,PDstandard2nd3gxx)))))));
       
@@ -900,18 +819,9 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd23gxz = 
         kmadd(J13L,kmadd(J12L,PDstandard2nd11gxz,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxz,kmul(J33L,PDstandard2nd13gxz)),kmadd(dJ123L,PDstandard2nd1gxz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxz,kmul(J32L,PDstandard2nd23gxz)),kmadd(dJ223L,PDstandard2nd2gxz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxz,kmul(J32L,PDstandard2nd33gxz)),kmul(dJ323L,PDstandard2nd3gxz)))))));
       
-      JacPDstandard2nd23gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gyy,kmadd(J22L,PDstandard2nd12gyy,kmul(J32L,PDstandard2nd13gyy))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gyy,kmul(J33L,PDstandard2nd13gyy)),kmadd(dJ123L,PDstandard2nd1gyy,kmadd(J23L,kmadd(J22L,PDstandard2nd22gyy,kmul(J32L,PDstandard2nd23gyy)),kmadd(dJ223L,PDstandard2nd2gyy,kmadd(J33L,kmadd(J22L,PDstandard2nd23gyy,kmul(J32L,PDstandard2nd33gyy)),kmul(dJ323L,PDstandard2nd3gyy)))))));
-      
       JacPDstandard2nd23gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard2nd11gyz,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmadd(dJ123L,PDstandard2nd1gyz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gyz,kmul(J32L,PDstandard2nd23gyz)),kmadd(dJ223L,PDstandard2nd2gyz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gyz,kmul(J32L,PDstandard2nd33gyz)),kmul(dJ323L,PDstandard2nd3gyz)))))));
       
-      JacPDstandard2nd23gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gzz,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gzz,kmul(J33L,PDstandard2nd13gzz)),kmadd(dJ123L,PDstandard2nd1gzz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gzz,kmul(J32L,PDstandard2nd23gzz)),kmadd(dJ223L,PDstandard2nd2gzz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gzz,kmul(J32L,PDstandard2nd33gzz)),kmul(dJ323L,PDstandard2nd3gzz)))))));
-      
-      JacPDstandard2nd31gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gxx,kmadd(J21L,PDstandard2nd12gxx,kmul(J31L,PDstandard2nd13gxx))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxx,kmul(J33L,PDstandard2nd13gxx)),kmadd(dJ113L,PDstandard2nd1gxx,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxx,kmul(J31L,PDstandard2nd23gxx)),kmadd(dJ213L,PDstandard2nd2gxx,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxx,kmul(J31L,PDstandard2nd33gxx)),kmul(dJ313L,PDstandard2nd3gxx)))))));
-      
       JacPDstandard2nd31gxy = 
         kmadd(J13L,kmadd(J11L,PDstandard2nd11gxy,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxy,kmul(J33L,PDstandard2nd13gxy)),kmadd(dJ113L,PDstandard2nd1gxy,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxy,kmul(J31L,PDstandard2nd23gxy)),kmadd(dJ213L,PDstandard2nd2gxy,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxy,kmul(J31L,PDstandard2nd33gxy)),kmul(dJ313L,PDstandard2nd3gxy)))))));
       
@@ -924,26 +834,8 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd31gyz = 
         kmadd(J13L,kmadd(J11L,PDstandard2nd11gyz,kmadd(J21L,PDstandard2nd12gyz,kmul(J31L,PDstandard2nd13gyz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmadd(dJ113L,PDstandard2nd1gyz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gyz,kmul(J31L,PDstandard2nd23gyz)),kmadd(dJ213L,PDstandard2nd2gyz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gyz,kmul(J31L,PDstandard2nd33gyz)),kmul(dJ313L,PDstandard2nd3gyz)))))));
       
-      JacPDstandard2nd31gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gzz,kmadd(J21L,PDstandard2nd12gzz,kmul(J31L,PDstandard2nd13gzz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gzz,kmul(J33L,PDstandard2nd13gzz)),kmadd(dJ113L,PDstandard2nd1gzz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gzz,kmul(J31L,PDstandard2nd23gzz)),kmadd(dJ213L,PDstandard2nd2gzz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gzz,kmul(J31L,PDstandard2nd33gzz)),kmul(dJ313L,PDstandard2nd3gzz)))))));
-      
-      JacPDstandard2nd32gxx = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gxx,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxx,kmul(J33L,PDstandard2nd13gxx)),kmadd(dJ123L,PDstandard2nd1gxx,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxx,kmul(J32L,PDstandard2nd23gxx)),kmadd(dJ223L,PDstandard2nd2gxx,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxx,kmul(J32L,PDstandard2nd33gxx)),kmul(dJ323L,PDstandard2nd3gxx)))))));
-      
-      JacPDstandard2nd32gxy = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gxy,kmadd(J22L,PDstandard2nd12gxy,kmul(J32L,PDstandard2nd13gxy))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxy,kmul(J33L,PDstandard2nd13gxy)),kmadd(dJ123L,PDstandard2nd1gxy,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxy,kmul(J32L,PDstandard2nd23gxy)),kmadd(dJ223L,PDstandard2nd2gxy,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxy,kmul(J32L,PDstandard2nd33gxy)),kmul(dJ323L,PDstandard2nd3gxy)))))));
-      
-      JacPDstandard2nd32gxz = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gxz,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxz,kmul(J33L,PDstandard2nd13gxz)),kmadd(dJ123L,PDstandard2nd1gxz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxz,kmul(J32L,PDstandard2nd23gxz)),kmadd(dJ223L,PDstandard2nd2gxz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxz,kmul(J32L,PDstandard2nd33gxz)),kmul(dJ323L,PDstandard2nd3gxz)))))));
-      
-      JacPDstandard2nd32gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gyy,kmadd(J22L,PDstandard2nd12gyy,kmul(J32L,PDstandard2nd13gyy))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gyy,kmul(J33L,PDstandard2nd13gyy)),kmadd(dJ123L,PDstandard2nd1gyy,kmadd(J23L,kmadd(J22L,PDstandard2nd22gyy,kmul(J32L,PDstandard2nd23gyy)),kmadd(dJ223L,PDstandard2nd2gyy,kmadd(J33L,kmadd(J22L,PDstandard2nd23gyy,kmul(J32L,PDstandard2nd33gyy)),kmul(dJ323L,PDstandard2nd3gyy)))))));
-      
       JacPDstandard2nd32gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard2nd11gyz,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmadd(dJ123L,PDstandard2nd1gyz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gyz,kmul(J32L,PDstandard2nd23gyz)),kmadd(dJ223L,PDstandard2nd2gyz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gyz,kmul(J32L,PDstandard2nd33gyz)),kmul(dJ323L,PDstandard2nd3gyz)))))));
-      
-      JacPDstandard2nd32gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gzz,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gzz,kmul(J33L,PDstandard2nd13gzz)),kmadd(dJ123L,PDstandard2nd1gzz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gzz,kmul(J32L,PDstandard2nd23gzz)),kmadd(dJ223L,PDstandard2nd2gzz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gzz,kmul(J32L,PDstandard2nd33gzz)),kmul(dJ323L,PDstandard2nd3gzz)))))));
     }
     else
     {
@@ -1013,10 +905,6 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard2nd3kyz = PDstandard2nd3kyz;
       
-      JacPDstandard2nd11gxy = PDstandard2nd11gxy;
-      
-      JacPDstandard2nd11gxz = PDstandard2nd11gxz;
-      
       JacPDstandard2nd11gyy = PDstandard2nd11gyy;
       
       JacPDstandard2nd11gyz = PDstandard2nd11gyz;
@@ -1025,74 +913,36 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard2nd22gxx = PDstandard2nd22gxx;
       
-      JacPDstandard2nd22gxy = PDstandard2nd22gxy;
-      
       JacPDstandard2nd22gxz = PDstandard2nd22gxz;
       
-      JacPDstandard2nd22gyz = PDstandard2nd22gyz;
-      
       JacPDstandard2nd22gzz = PDstandard2nd22gzz;
       
       JacPDstandard2nd33gxx = PDstandard2nd33gxx;
       
       JacPDstandard2nd33gxy = PDstandard2nd33gxy;
       
-      JacPDstandard2nd33gxz = PDstandard2nd33gxz;
-      
       JacPDstandard2nd33gyy = PDstandard2nd33gyy;
       
-      JacPDstandard2nd33gyz = PDstandard2nd33gyz;
-      
-      JacPDstandard2nd12gxx = PDstandard2nd12gxx;
-      
       JacPDstandard2nd12gxy = PDstandard2nd12gxy;
       
       JacPDstandard2nd12gxz = PDstandard2nd12gxz;
       
-      JacPDstandard2nd12gyy = PDstandard2nd12gyy;
-      
       JacPDstandard2nd12gyz = PDstandard2nd12gyz;
       
       JacPDstandard2nd12gzz = PDstandard2nd12gzz;
       
-      JacPDstandard2nd13gxx = PDstandard2nd13gxx;
-      
-      JacPDstandard2nd13gxy = PDstandard2nd13gxy;
-      
       JacPDstandard2nd13gxz = PDstandard2nd13gxz;
       
-      JacPDstandard2nd13gyy = PDstandard2nd13gyy;
-      
-      JacPDstandard2nd13gyz = PDstandard2nd13gyz;
-      
-      JacPDstandard2nd13gzz = PDstandard2nd13gzz;
-      
-      JacPDstandard2nd21gxx = PDstandard2nd12gxx;
-      
       JacPDstandard2nd21gxy = PDstandard2nd12gxy;
       
-      JacPDstandard2nd21gxz = PDstandard2nd12gxz;
-      
-      JacPDstandard2nd21gyy = PDstandard2nd12gyy;
-      
-      JacPDstandard2nd21gyz = PDstandard2nd12gyz;
-      
-      JacPDstandard2nd21gzz = PDstandard2nd12gzz;
-      
       JacPDstandard2nd23gxx = PDstandard2nd23gxx;
       
       JacPDstandard2nd23gxy = PDstandard2nd23gxy;
       
       JacPDstandard2nd23gxz = PDstandard2nd23gxz;
       
-      JacPDstandard2nd23gyy = PDstandard2nd23gyy;
-      
       JacPDstandard2nd23gyz = PDstandard2nd23gyz;
       
-      JacPDstandard2nd23gzz = PDstandard2nd23gzz;
-      
-      JacPDstandard2nd31gxx = PDstandard2nd13gxx;
-      
       JacPDstandard2nd31gxy = PDstandard2nd13gxy;
       
       JacPDstandard2nd31gxz = PDstandard2nd13gxz;
@@ -1101,19 +951,7 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard2nd31gyz = PDstandard2nd13gyz;
       
-      JacPDstandard2nd31gzz = PDstandard2nd13gzz;
-      
-      JacPDstandard2nd32gxx = PDstandard2nd23gxx;
-      
-      JacPDstandard2nd32gxy = PDstandard2nd23gxy;
-      
-      JacPDstandard2nd32gxz = PDstandard2nd23gxz;
-      
-      JacPDstandard2nd32gyy = PDstandard2nd23gyy;
-      
       JacPDstandard2nd32gyz = PDstandard2nd23gyz;
-      
-      JacPDstandard2nd32gzz = PDstandard2nd23gzz;
     }
     
     CCTK_REAL_VEC detg = 
@@ -1317,444 +1155,42 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     
     CCTK_REAL_VEC nn = isqrt2;
     
-    CCTK_REAL_VEC R1111 = ToReal(0.);
-    
-    CCTK_REAL_VEC R1112 = 
-      kmul(ksub(JacPDstandard2nd21gxx,JacPDstandard2nd12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1113 = 
-      kmul(ksub(JacPDstandard2nd31gxx,JacPDstandard2nd13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1121 = 
-      kmul(ksub(JacPDstandard2nd21gxx,JacPDstandard2nd12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1122 = 
-      ksub(JacPDstandard2nd21gxy,JacPDstandard2nd12gxy);
-    
-    CCTK_REAL_VEC R1123 = 
-      kmul(kadd(JacPDstandard2nd21gxz,ksub(JacPDstandard2nd31gxy,kadd(JacPDstandard2nd13gxy,JacPDstandard2nd12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1131 = 
-      kmul(ksub(JacPDstandard2nd31gxx,JacPDstandard2nd13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1132 = 
-      kmul(kadd(JacPDstandard2nd21gxz,ksub(JacPDstandard2nd31gxy,kadd(JacPDstandard2nd13gxy,JacPDstandard2nd12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1133 = 
-      ksub(JacPDstandard2nd31gxz,JacPDstandard2nd13gxz);
-    
-    CCTK_REAL_VEC R1211 = 
-      kmul(ksub(JacPDstandard2nd12gxx,JacPDstandard2nd21gxx),ToReal(0.5));
-    
     CCTK_REAL_VEC R1212 = 
       kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy)))));
     
     CCTK_REAL_VEC R1213 = 
       kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz))))));
     
-    CCTK_REAL_VEC R1221 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R1222 = 
-      kmul(ksub(JacPDstandard2nd21gyy,JacPDstandard2nd12gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R1223 = 
       kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz))))));
     
-    CCTK_REAL_VEC R1231 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1232 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1233 = 
-      kmul(kadd(JacPDstandard2nd31gyz,ksub(JacPDstandard2nd32gxz,kadd(JacPDstandard2nd23gxz,JacPDstandard2nd13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1311 = 
-      kmul(ksub(JacPDstandard2nd13gxx,JacPDstandard2nd31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1312 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz))))));
-    
     CCTK_REAL_VEC R1313 = 
       kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz)))));
     
-    CCTK_REAL_VEC R1321 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1322 = 
-      kmul(kadd(JacPDstandard2nd21gyz,ksub(JacPDstandard2nd23gxy,kadd(JacPDstandard2nd32gxy,JacPDstandard2nd12gyz))),ToReal(0.5));
-    
     CCTK_REAL_VEC R1323 = 
       kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz))))));
     
-    CCTK_REAL_VEC R1331 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R1332 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R1333 = 
-      kmul(ksub(JacPDstandard2nd31gzz,JacPDstandard2nd13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2111 = 
-      kmul(ksub(JacPDstandard2nd12gxx,JacPDstandard2nd21gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R2113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2121 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy)))));
-    
-    CCTK_REAL_VEC R2122 = 
-      kmul(ksub(JacPDstandard2nd21gyy,JacPDstandard2nd12gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2131 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz))))));
-    
-    CCTK_REAL_VEC R2132 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz))))));
-    
-    CCTK_REAL_VEC R2133 = 
-      kmul(kadd(JacPDstandard2nd31gyz,ksub(JacPDstandard2nd32gxz,kadd(JacPDstandard2nd23gxz,JacPDstandard2nd13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2211 = 
-      ksub(JacPDstandard2nd12gxy,JacPDstandard2nd21gxy);
-    
-    CCTK_REAL_VEC R2212 = 
-      kmul(ksub(JacPDstandard2nd12gyy,JacPDstandard2nd21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2213 = 
-      kmul(kadd(JacPDstandard2nd12gyz,ksub(JacPDstandard2nd32gxy,kadd(JacPDstandard2nd23gxy,JacPDstandard2nd21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2221 = 
-      kmul(ksub(JacPDstandard2nd12gyy,JacPDstandard2nd21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2222 = ToReal(0.);
-    
-    CCTK_REAL_VEC R2223 = 
-      kmul(ksub(JacPDstandard2nd32gyy,JacPDstandard2nd23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2231 = 
-      kmul(kadd(JacPDstandard2nd12gyz,ksub(JacPDstandard2nd32gxy,kadd(JacPDstandard2nd23gxy,JacPDstandard2nd21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2232 = 
-      kmul(ksub(JacPDstandard2nd32gyy,JacPDstandard2nd23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2233 = 
-      ksub(JacPDstandard2nd32gyz,JacPDstandard2nd23gyz);
-    
-    CCTK_REAL_VEC R2311 = 
-      kmul(kadd(JacPDstandard2nd12gxz,ksub(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd31gxy,JacPDstandard2nd21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2312 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz))))));
-    
-    CCTK_REAL_VEC R2313 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz))))));
-    
-    CCTK_REAL_VEC R2321 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2322 = 
-      kmul(ksub(JacPDstandard2nd23gyy,JacPDstandard2nd32gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R2323 = 
       kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz)))));
     
-    CCTK_REAL_VEC R2331 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R2332 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R2333 = 
-      kmul(ksub(JacPDstandard2nd32gzz,JacPDstandard2nd23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3111 = 
-      kmul(ksub(JacPDstandard2nd13gxx,JacPDstandard2nd31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R3121 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz))))));
-    
-    CCTK_REAL_VEC R3122 = 
-      kmul(kadd(JacPDstandard2nd21gyz,ksub(JacPDstandard2nd23gxy,kadd(JacPDstandard2nd32gxy,JacPDstandard2nd12gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3131 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz)))));
-    
-    CCTK_REAL_VEC R3132 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz))))));
-    
-    CCTK_REAL_VEC R3133 = 
-      kmul(ksub(JacPDstandard2nd31gzz,JacPDstandard2nd13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3211 = 
-      kmul(kadd(JacPDstandard2nd12gxz,ksub(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd31gxy,JacPDstandard2nd21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3212 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3213 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3221 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz))))));
-    
-    CCTK_REAL_VEC R3222 = 
-      kmul(ksub(JacPDstandard2nd23gyy,JacPDstandard2nd32gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3223 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R3231 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz))))));
-    
-    CCTK_REAL_VEC R3232 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz)))));
-    
-    CCTK_REAL_VEC R3233 = 
-      kmul(ksub(JacPDstandard2nd32gzz,JacPDstandard2nd23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3311 = 
-      ksub(JacPDstandard2nd13gxz,JacPDstandard2nd31gxz);
-    
-    CCTK_REAL_VEC R3312 = 
-      kmul(kadd(JacPDstandard2nd13gyz,ksub(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd32gxz,JacPDstandard2nd31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3313 = 
-      kmul(ksub(JacPDstandard2nd13gzz,JacPDstandard2nd31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3321 = 
-      kmul(kadd(JacPDstandard2nd13gyz,ksub(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd32gxz,JacPDstandard2nd31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3322 = 
-      ksub(JacPDstandard2nd23gyz,JacPDstandard2nd32gyz);
-    
-    CCTK_REAL_VEC R3323 = 
-      kmul(ksub(JacPDstandard2nd23gzz,JacPDstandard2nd32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3331 = 
-      kmul(ksub(JacPDstandard2nd13gzz,JacPDstandard2nd31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3332 = 
-      kmul(ksub(JacPDstandard2nd23gzz,JacPDstandard2nd32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3333 = ToReal(0.);
-    
-    CCTK_REAL_VEC R4p1111 = R1111;
-    
-    CCTK_REAL_VEC R4p1112 = R1112;
-    
-    CCTK_REAL_VEC R4p1113 = R1113;
-    
-    CCTK_REAL_VEC R4p1121 = R1121;
-    
-    CCTK_REAL_VEC R4p1122 = R1122;
-    
-    CCTK_REAL_VEC R4p1123 = R1123;
-    
-    CCTK_REAL_VEC R4p1131 = R1131;
-    
-    CCTK_REAL_VEC R4p1132 = R1132;
-    
-    CCTK_REAL_VEC R4p1133 = R1133;
-    
-    CCTK_REAL_VEC R4p1211 = R1211;
-    
     CCTK_REAL_VEC R4p1212 = 
       kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212));
     
     CCTK_REAL_VEC R4p1213 = 
       kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213));
     
-    CCTK_REAL_VEC R4p1221 = 
-      kadd(R1221,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p1222 = R1222;
-    
     CCTK_REAL_VEC R4p1223 = 
       kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223));
     
-    CCTK_REAL_VEC R4p1231 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231));
-    
-    CCTK_REAL_VEC R4p1232 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232));
-    
-    CCTK_REAL_VEC R4p1233 = R1233;
-    
-    CCTK_REAL_VEC R4p1311 = R1311;
-    
-    CCTK_REAL_VEC R4p1312 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312));
-    
     CCTK_REAL_VEC R4p1313 = 
       kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313));
     
-    CCTK_REAL_VEC R4p1321 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321));
-    
-    CCTK_REAL_VEC R4p1322 = R1322;
-    
     CCTK_REAL_VEC R4p1323 = 
       kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323));
     
-    CCTK_REAL_VEC R4p1331 = 
-      kadd(R1331,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p1332 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332));
-    
-    CCTK_REAL_VEC R4p1333 = R1333;
-    
-    CCTK_REAL_VEC R4p2111 = R2111;
-    
-    CCTK_REAL_VEC R4p2112 = 
-      kadd(R2112,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p2113 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113));
-    
-    CCTK_REAL_VEC R4p2121 = 
-      kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121));
-    
-    CCTK_REAL_VEC R4p2122 = R2122;
-    
-    CCTK_REAL_VEC R4p2123 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123));
-    
-    CCTK_REAL_VEC R4p2131 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131));
-    
-    CCTK_REAL_VEC R4p2132 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132));
-    
-    CCTK_REAL_VEC R4p2133 = R2133;
-    
-    CCTK_REAL_VEC R4p2211 = R2211;
-    
-    CCTK_REAL_VEC R4p2212 = R2212;
-    
-    CCTK_REAL_VEC R4p2213 = R2213;
-    
-    CCTK_REAL_VEC R4p2221 = R2221;
-    
-    CCTK_REAL_VEC R4p2222 = R2222;
-    
-    CCTK_REAL_VEC R4p2223 = R2223;
-    
-    CCTK_REAL_VEC R4p2231 = R2231;
-    
-    CCTK_REAL_VEC R4p2232 = R2232;
-    
-    CCTK_REAL_VEC R4p2233 = R2233;
-    
-    CCTK_REAL_VEC R4p2311 = R2311;
-    
-    CCTK_REAL_VEC R4p2312 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312));
-    
-    CCTK_REAL_VEC R4p2313 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313));
-    
-    CCTK_REAL_VEC R4p2321 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321));
-    
-    CCTK_REAL_VEC R4p2322 = R2322;
-    
     CCTK_REAL_VEC R4p2323 = 
       kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323));
     
-    CCTK_REAL_VEC R4p2331 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331));
-    
-    CCTK_REAL_VEC R4p2332 = 
-      kadd(R2332,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p2333 = R2333;
-    
-    CCTK_REAL_VEC R4p3111 = R3111;
-    
-    CCTK_REAL_VEC R4p3112 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112));
-    
-    CCTK_REAL_VEC R4p3113 = 
-      kadd(R3113,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3121 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121));
-    
-    CCTK_REAL_VEC R4p3122 = R3122;
-    
-    CCTK_REAL_VEC R4p3123 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123));
-    
-    CCTK_REAL_VEC R4p3131 = 
-      kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131));
-    
-    CCTK_REAL_VEC R4p3132 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132));
-    
-    CCTK_REAL_VEC R4p3133 = R3133;
-    
-    CCTK_REAL_VEC R4p3211 = R3211;
-    
-    CCTK_REAL_VEC R4p3212 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212));
-    
-    CCTK_REAL_VEC R4p3213 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213));
-    
-    CCTK_REAL_VEC R4p3221 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221));
-    
-    CCTK_REAL_VEC R4p3222 = R3222;
-    
-    CCTK_REAL_VEC R4p3223 = 
-      kadd(R3223,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3231 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231));
-    
-    CCTK_REAL_VEC R4p3232 = 
-      kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232));
-    
-    CCTK_REAL_VEC R4p3233 = R3233;
-    
-    CCTK_REAL_VEC R4p3311 = R3311;
-    
-    CCTK_REAL_VEC R4p3312 = R3312;
-    
-    CCTK_REAL_VEC R4p3313 = R3313;
-    
-    CCTK_REAL_VEC R4p3321 = R3321;
-    
-    CCTK_REAL_VEC R4p3322 = R3322;
-    
-    CCTK_REAL_VEC R4p3323 = R3323;
-    
-    CCTK_REAL_VEC R4p3331 = R3331;
-    
-    CCTK_REAL_VEC R4p3332 = R3332;
-    
-    CCTK_REAL_VEC R4p3333 = R3333;
-    
     CCTK_REAL_VEC Ro111 = ToReal(0.);
     
     CCTK_REAL_VEC Ro112 = 
@@ -1828,37 +1264,37 @@ static void psi4_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC Ro333 = ToReal(0.);
     
     CCTK_REAL_VEC Rojo11 = 
-      kmadd(gInv11,R1111,kmadd(gInv12,R1112,kmadd(gInv13,R1113,kmadd(gInv21,R1211,kmadd(gInv31,R1311,kmadd(gInv23,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv32,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))))))))));
+      kmadd(kadd(gInv23,gInv32),kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))));
     
     CCTK_REAL_VEC Rojo12 = 
-      kmadd(gInv11,R1121,kmadd(gInv21,R1221,kmadd(gInv22,R1222,kmadd(gInv23,R1223,kmadd(gInv31,R1321,kmadd(gInv12,kadd(R1122,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv32,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1322)),kmadd(gInv13,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1123)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))))));
+      kmadd(gInv23,R1223,knmsub(gInv21,R1212,knmsub(gInv31,R1213,kmadd(gInv12,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv32,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo13 = 
-      kmadd(gInv11,R1131,kmadd(gInv21,R1231,kmadd(gInv31,R1331,kmadd(gInv32,R1332,kmadd(gInv33,R1333,kmadd(gInv12,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1132)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)),kmadd(gInv13,kadd(R1133,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv23,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1233)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv23),kmadd(gInv13,kmul(kxzL,kxzL),knmsub(gInv21,R1213,knmsub(gInv31,R1313,knmsub(gInv32,R1323,kmadd(gInv12,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv23,kmul(kxxL,gInv13))))))))));
     
     CCTK_REAL_VEC Rojo21 = 
-      kmadd(gInv11,R2111,kmadd(gInv12,R2112,kmadd(gInv13,R2113,kmadd(gInv22,R2212,kmadd(gInv32,R2312,kmadd(gInv21,kadd(R2211,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv23,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2213)),kmadd(gInv31,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2311)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)))))))))));
+      kmadd(gInv32,R1223,knmsub(gInv12,R1212,knmsub(gInv13,R1213,kmadd(gInv21,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv23,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo22 = 
-      kmadd(gInv12,R2122,kmadd(gInv21,R2221,kmadd(gInv22,R2222,kmadd(gInv23,R2223,kmadd(gInv32,R2322,kmadd(gInv13,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)),kmadd(gInv31,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))))))))));
+      kmadd(kadd(gInv13,gInv31),kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Rojo23 = 
-      kmadd(gInv12,R2132,kmadd(gInv22,R2232,kmadd(gInv31,R2331,kmadd(gInv32,R2332,kmadd(gInv33,R2333,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)),kmadd(gInv21,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2231)),kmadd(gInv13,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2133)),kmul(gInv23,kadd(R2233,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv12,R1223,knmsub(gInv31,R1323,knmsub(gInv32,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv21,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv23,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo31 = 
-      kmadd(gInv11,R3111,kmadd(gInv12,R3112,kmadd(gInv13,R3113,kmadd(gInv23,R3213,kmadd(gInv33,R3313,kmadd(gInv21,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3211)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)),kmadd(gInv31,kadd(R3311,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv32,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3312)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv32),kmadd(gInv31,kmul(kxzL,kxzL),knmsub(gInv12,R1213,knmsub(gInv13,R1313,knmsub(gInv23,R1323,kmadd(gInv21,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv32,kmul(kxxL,gInv31))))))))));
     
     CCTK_REAL_VEC Rojo32 = 
-      kmadd(gInv13,R3123,kmadd(gInv21,R3221,kmadd(gInv22,R3222,kmadd(gInv23,R3223,kmadd(gInv33,R3323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)),kmadd(gInv12,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3122)),kmadd(gInv31,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3321)),kmul(gInv32,kadd(R3322,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv21,R1223,knmsub(gInv13,R1323,knmsub(gInv23,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv12,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv32,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo33 = 
-      kmadd(gInv13,R3133,kmadd(gInv23,R3233,kmadd(gInv31,R3331,kmadd(gInv32,R3332,kmadd(gInv33,R3333,kmadd(gInv12,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)),kmadd(gInv21,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232)))))))))));
+      kmadd(kadd(gInv12,gInv21),kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Psi4rL = 
-      kmadd(R4p1112,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1211,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1113,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1311,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1312,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p2122,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2221,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2123,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2321,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2223,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2322,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p3132,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3231,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3133,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3331,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3233,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3332,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(n1,kmul(n2,kmul(R4p1121,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p1131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n2,kmul(R4p2111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p2131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p3111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p3121,kmul(rmbar1,rmbar1))),kmadd(R4p1111,kmul(kmul(n1,n1),kmul(rmbar1,rmbar1)),kmadd(R4p2121,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(R4p3131,kmul(kmul(n3,n3),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(n1,kmul(n2,kmul(R4p1222,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n2,kmul(R4p2212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p2232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p3212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p3222,kmul(rmbar2,rmbar2))),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(R4p2222,kmul(kmul(n2,n2),kmul(rmbar2,rmbar2)),kmadd(R4p3232,kmul(kmul(n3,n3),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p2313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p3313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p3323,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),knmsub(n3,kmul(kmul(imbar3,imbar3),kmadd(n1,R4p3313,kmul(n2,R4p2333))),kmadd(kmul(imbar3,imbar3),kmsub(n1,kmul(nn,kmul(Ro313,ToReal(-2.))),kmul(n2,kmul(n3,R4p3323))),kmadd(R4p1313,kmsub(kmul(n1,n1),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n2,n2),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(R4p3333,kmsub(kmul(n3,n3),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n3,n3))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmadd(n3,kmul(R4p1132,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1221,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p1231,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1123,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1331,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2113,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1233,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p1322,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p1332,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p2213,kmul(rmbar2,rmbar3)),kmadd(n2,kmsub(R4p1122,kmul(rmbar1,rmbar2),kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro112,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro113,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro211,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro213,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro311,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro312,ToReal(2.))))))))))))))))))))),kmadd(n2,kmadd(n3,kmul(R4p2132,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p2211,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p2231,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1321,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p2133,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p2311,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p3321,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p1223,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p2233,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p2312,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p2112,kmul(rmbar1,rmbar2),kmul(R4p2313,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro123,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro223,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro322,ToReal(2.))))))))))))))))))))),kmsub(n3,kmadd(n2,kmul(R4p3122,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p3211,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p3221,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1133,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2331,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3113,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p3123,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3311,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2332,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3213,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3223,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3312,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3322,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p3112,kmul(rmbar1,rmbar2),kmul(R4p1333,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro132,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro133,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro231,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro233,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro331,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro332,ToReal(2.)))))))))))))))))))))))),kmadd(kmul(imbar1,imbar1),kmadd(n2,kmul(n3,R4p2131),kmadd(n2,kmul(n3,R4p3121),kmadd(R4p1111,kmul(n1,n1),kmadd(R4p2121,kmul(n2,n2),kmadd(R4p3131,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro121,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1121,R4p2111),kmadd(n3,kadd(R4p1131,R4p3111),kmul(nn,kmul(Ro111,ToReal(2.)))))))))))))),kmadd(kmul(imbar2,imbar2),kmadd(n2,kmul(n3,R4p2232),kmadd(n2,kmul(n3,R4p3222),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2222,kmul(n2,n2),kmadd(R4p3232,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro232,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1222,R4p2212),kmadd(n3,kadd(R4p1232,R4p3212),kmul(nn,kmul(Ro212,ToReal(2.)))))))))))))),kmadd(imbar2,kmul(imbar3,kmadd(kadd(R4p1213,R4p1312),kmul(n1,n1),kmadd(kadd(R4p2223,R4p2322),kmul(n2,n2),kmadd(R4p3233,kmul(n3,n3),kmadd(R4p3332,kmul(n3,n3),kmadd(Rojo23,kmul(nn,nn),kmadd(Rojo32,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro233,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro332,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),kmadd(n3,kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),kmul(nn,kmul(kadd(Ro213,Ro312),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.))))))))))))))),kmul(imbar1,kmadd(imbar2,kmadd(kadd(R4p1112,R4p1211),kmul(n1,n1),kmadd(kadd(R4p2122,R4p2221),kmul(n2,n2),kmadd(R4p3132,kmul(n3,n3),kmadd(R4p3231,kmul(n3,n3),kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),kmadd(n3,kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),kmul(nn,kmul(kadd(Ro112,Ro211),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),kmul(nn,kmul(kadd(Ro122,Ro221),ToReal(2.)))))))))))))),kmul(imbar3,kmadd(kadd(R4p1113,R4p1311),kmul(n1,n1),kmadd(kadd(R4p2123,R4p2321),kmul(n2,n2),kmadd(R4p3133,kmul(n3,n3),kmadd(R4p3331,kmul(n3,n3),kmadd(Rojo13,kmul(nn,nn),kmadd(Rojo31,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro133,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro331,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),kmadd(n3,kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),kmul(nn,kmul(kadd(Ro113,Ro311),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),kmul(nn,kmul(kadd(Ro123,Ro321),ToReal(2.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(R4p1212,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(R4p1313,kmul(kmul(n1,n1),kmul(rmbar3,rmbar3)),kmadd(R4p2323,kmul(kmul(n2,n2),kmul(rmbar3,rmbar3)),kmadd(kmadd(n1,kmul(n2,kmul(R4p1212,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1213,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1313,kmul(rmbar1,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1323,kmul(rmbar2,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2323,kmul(rmbar2,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(imbar3,imbar3))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(imbar3,imbar3))),kmul(R4p1223,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2)))))))))))),ToReal(-2.),kmadd(n1,kmul(n3,kmul(R4p1223,kmul(kmul(rmbar2,rmbar2),ToReal(-2.)))),kmadd(R4p1313,kmsub(kmul(n3,n3),kmul(rmbar1,rmbar1),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n3,n3),kmul(rmbar2,rmbar2),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro112))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro113))),kmadd(n2,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro123))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro132))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro133))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro211))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro213))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro223))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro231))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro233))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro311))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro312))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro322))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro331))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro332))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmul(R4p1323,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3)))))))))))))))))))),ToReal(2.),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),knmsub(kmul(imbar2,imbar2),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2323,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n1,kmul(n3,kmul(R4p1223,ToReal(-2.))),kmadd(n1,kmul(nn,kmul(Ro212,ToReal(2.))),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmul(n3,kmul(nn,kmul(Ro232,ToReal(2.)))))))))),kmadd(n2,kmadd(n1,kmul(R4p1213,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(n3,kmul(R4p1323,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.))),kmadd(n3,kmul(R4p1223,kmul(rmbar1,kmul(rmbar2,ToReal(2.)))),kmadd(n1,kmul(R4p1223,kmul(rmbar2,kmul(rmbar3,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(n3,kmul(R4p1213,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))))))))))),knmsub(kmul(imbar1,imbar1),kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(n2,kmul(kmadd(n3,R4p1213,kmul(nn,Ro121)),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(nn,kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.))))))))),kmsub(imbar1,kmul(imbar3,kmadd(R4p1223,kmul(kmul(n2,n2),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1213,kmsub(n3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),ToReal(2.)),kmsub(n2,kmul(kmsub(n3,R4p1323,kmul(nn,kadd(Ro123,Ro321))),ToReal(2.)),kmul(nn,kmadd(nn,kadd(Rojo13,Rojo31),kmul(n3,kmul(kadd(Ro133,Ro331),ToReal(2.))))))))),kmul(imbar2,kmadd(imbar3,kmadd(R4p1213,kmul(kmul(n1,n1),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1223,kmsub(nn,kadd(Ro213,Ro312),kmul(n3,R4p1323))),ToReal(2.)),kmadd(n2,kmadd(n3,kmul(R4p2323,ToReal(-2.)),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.)))),kmul(nn,kmadd(nn,kadd(Rojo23,Rojo32),kmul(n3,kmul(kadd(Ro233,Ro332),ToReal(2.)))))))),kmul(imbar1,kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n1,kmul(ToReal(-2.),kmadd(n2,R4p1212,kmsub(n3,R4p1213,kmul(nn,kadd(Ro112,Ro211))))),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n2,kmul(kmadd(n3,R4p1223,kmul(nn,kadd(Ro122,Ro221))),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmul(R4p1323,kmul(kmul(n3,n3),ToReal(2.))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi4iL = 
-      knmadd(im1,kmadd(R4p3132,kmul(rm2,kmul(n3,n3)),kmadd(R4p3231,kmul(rm2,kmul(n3,n3)),kmadd(R4p3133,kmul(rm3,kmul(n3,n3)),kmadd(R4p3331,kmul(rm3,kmul(n3,n3)),kmadd(rm2,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro331,ToReal(2.)))),kmadd(R4p3131,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm1,kmul(Rojo11,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm2,kmadd(R4p1211,rm2,kmadd(R4p1113,rm3,kmadd(R4p1311,rm3,kmul(R4p1111,kmul(rm1,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm2,kmadd(R4p2221,rm2,kmadd(R4p2123,rm3,kmadd(R4p2321,rm3,kmul(R4p2121,kmul(rm1,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm2,kmadd(R4p1221,rm2,kmadd(R4p2112,rm2,kmadd(R4p2211,rm2,kmadd(R4p1123,rm3,kmadd(R4p1321,rm3,kmadd(R4p2113,rm3,kmadd(R4p2311,rm3,kmadd(R4p1121,kmul(rm1,ToReal(2.)),kmul(R4p2111,kmul(rm1,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm2,kmadd(R4p1231,rm2,kmadd(R4p3112,rm2,kmadd(R4p3211,rm2,kmadd(R4p1133,rm3,kmadd(R4p1331,rm3,kmadd(R4p3113,rm3,kmadd(R4p3311,rm3,kmadd(R4p1131,kmul(rm1,ToReal(2.)),kmul(R4p3111,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm2,kmadd(R4p2231,rm2,kmadd(R4p3122,rm2,kmadd(R4p3221,rm2,kmadd(R4p2133,rm3,kmadd(R4p2331,rm3,kmadd(R4p3123,rm3,kmadd(R4p3321,rm3,kmadd(R4p2131,kmul(rm1,ToReal(2.)),kmul(R4p3121,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm1,kmul(Ro131,ToReal(4.))))))))))))))))))))))),kmadd(im3,kmadd(R4p3133,kmul(rm1,kmul(n3,n3)),kmadd(R4p3331,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm2,kmul(n3,n3)),kmadd(R4p3332,kmul(rm2,kmul(n3,n3)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(rm1,kmul(Rojo31,kmul(nn,nn)),kmadd(rm2,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro331,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro332,ToReal(2.)))),kmadd(R4p3333,kmul(rm3,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm3,kmul(Rojo33,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1113,rm1,kmadd(R4p1311,rm1,kmadd(R4p1213,rm2,kmadd(R4p1312,rm2,kmul(R4p1313,kmul(rm3,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2123,rm1,kmadd(R4p2321,rm1,kmadd(R4p2223,rm2,kmadd(R4p2322,rm2,kmul(R4p2323,kmul(rm3,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1123,rm1,kmadd(R4p1321,rm1,kmadd(R4p2113,rm1,kmadd(R4p2311,rm1,kmadd(R4p1223,rm2,kmadd(R4p1322,rm2,kmadd(R4p2213,rm2,kmadd(R4p2312,rm2,kmadd(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p2313,kmul(rm3,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1133,rm1,kmadd(R4p1331,rm1,kmadd(R4p3113,rm1,kmadd(R4p3311,rm1,kmadd(R4p1233,rm2,kmadd(R4p1332,rm2,kmadd(R4p3213,rm2,kmadd(R4p3312,rm2,kmadd(R4p1333,kmul(rm3,ToReal(2.)),kmul(R4p3313,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2133,rm1,kmadd(R4p2331,rm1,kmadd(R4p3123,rm1,kmadd(R4p3321,rm1,kmadd(R4p2233,rm2,kmadd(R4p2332,rm2,kmadd(R4p3223,rm2,kmadd(R4p3322,rm2,kmadd(R4p2333,kmul(rm3,ToReal(2.)),kmul(R4p3323,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm3,kmul(Ro333,ToReal(4.))))))))))))))))))))))),kmul(im2,kmadd(R4p3132,kmul(rm1,kmul(n3,n3)),kmadd(R4p3231,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm3,kmul(n3,n3)),kmadd(R4p3332,kmul(rm3,kmul(n3,n3)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(R4p3232,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm1,kmadd(R4p1211,rm1,kmadd(R4p1213,rm3,kmadd(R4p1312,rm3,kmul(R4p1212,kmul(rm2,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm1,kmadd(R4p2221,rm1,kmadd(R4p2223,rm3,kmadd(R4p2322,rm3,kmul(R4p2222,kmul(rm2,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm1,kmadd(R4p1221,rm1,kmadd(R4p2112,rm1,kmadd(R4p2211,rm1,kmadd(R4p1223,rm3,kmadd(R4p1322,rm3,kmadd(R4p2213,rm3,kmadd(R4p2312,rm3,kmadd(R4p1222,kmul(rm2,ToReal(2.)),kmul(R4p2212,kmul(rm2,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm1,kmadd(R4p1231,rm1,kmadd(R4p3112,rm1,kmadd(R4p3211,rm1,kmadd(R4p1233,rm3,kmadd(R4p1332,rm3,kmadd(R4p3213,rm3,kmadd(R4p3312,rm3,kmadd(R4p1232,kmul(rm2,ToReal(2.)),kmul(R4p3212,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm1,kmadd(R4p2231,rm1,kmadd(R4p3122,rm1,kmadd(R4p3221,rm1,kmadd(R4p2233,rm3,kmadd(R4p2332,rm3,kmadd(R4p3223,rm3,kmadd(R4p3322,rm3,kmadd(R4p2232,kmul(rm2,ToReal(2.)),kmul(R4p3222,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))))))))));
+      knmadd(im1,kmadd(kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmul(kmul(n3,n3),ToReal(2.)),kmadd(kmul(n2,n2),kmul(kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),ToReal(2.)),kmadd(n2,kmul(ToReal(2.),knmsub(n1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmadd(n3,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(nn,kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.))))))))),kmadd(n3,kmul(ToReal(2.),kmsub(nn,kmadd(rm2,kadd(Ro132,Ro231),kmadd(rm3,kadd(Ro133,Ro331),kmul(rm1,kmul(Ro131,ToReal(2.))))),kmul(n1,kmadd(R4p1213,rm2,kmul(R4p1313,rm3))))),kmul(nn,kmadd(n1,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.)))))),kmul(nn,kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.)))))))))))),kmadd(im2,kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(R4p1323,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(R4p2323,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(n1,kmul(ToReal(2.),kmadd(n2,kmsub(R4p1223,rm3,kmul(R4p1212,rm1)),kmsub(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))),kmul(n3,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmadd(n3,kmsub(R4p1223,rm1,kmul(R4p2323,rm3)),kmul(nn,kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))),kmul(im3,kmadd(kmadd(R4p1213,rm2,kmul(R4p1313,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(kmul(n2,n2),kmadd(R4p1223,kmul(rm1,ToReal(-2.)),kmul(R4p2323,kmul(rm3,ToReal(2.)))),kmadd(n1,kmul(ToReal(2.),knmsub(n3,kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmadd(n2,kmadd(R4p1223,rm2,kmsub(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p1213,rm1))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmsub(nn,kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.))))),kmul(n3,kmadd(R4p1323,rm1,kmul(R4p2323,rm2))))),kmul(nn,kmadd(n3,kmul(ToReal(2.),kmadd(rm1,kadd(Ro133,Ro331),kmadd(rm2,kadd(Ro233,Ro332),kmul(rm3,kmul(Ro333,ToReal(2.)))))),kmul(nn,kmadd(rm1,kadd(Rojo13,Rojo31),kmadd(rm2,kadd(Rojo23,Rojo32),kmul(rm3,kmul(Rojo33,ToReal(2.)))))))))))))));
     
     /* Copy local copies back to grid functions */
     vec_store_partial_prepare(i,lc_imin,lc_imax);
diff --git a/src/psi4_calc_4th.cc b/src/psi4_calc_4th.cc
index 48b61d6..8f307ec 100644
--- a/src/psi4_calc_4th.cc
+++ b/src/psi4_calc_4th.cc
@@ -606,23 +606,14 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     }
     
     /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandard4th11gxy;
-    CCTK_REAL_VEC JacPDstandard4th11gxz;
     CCTK_REAL_VEC JacPDstandard4th11gyy;
     CCTK_REAL_VEC JacPDstandard4th11gyz;
     CCTK_REAL_VEC JacPDstandard4th11gzz;
-    CCTK_REAL_VEC JacPDstandard4th12gxx;
     CCTK_REAL_VEC JacPDstandard4th12gxy;
     CCTK_REAL_VEC JacPDstandard4th12gxz;
-    CCTK_REAL_VEC JacPDstandard4th12gyy;
     CCTK_REAL_VEC JacPDstandard4th12gyz;
     CCTK_REAL_VEC JacPDstandard4th12gzz;
-    CCTK_REAL_VEC JacPDstandard4th13gxx;
-    CCTK_REAL_VEC JacPDstandard4th13gxy;
     CCTK_REAL_VEC JacPDstandard4th13gxz;
-    CCTK_REAL_VEC JacPDstandard4th13gyy;
-    CCTK_REAL_VEC JacPDstandard4th13gyz;
-    CCTK_REAL_VEC JacPDstandard4th13gzz;
     CCTK_REAL_VEC JacPDstandard4th1gxx;
     CCTK_REAL_VEC JacPDstandard4th1gxy;
     CCTK_REAL_VEC JacPDstandard4th1gxz;
@@ -634,23 +625,14 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard4th1kyy;
     CCTK_REAL_VEC JacPDstandard4th1kyz;
     CCTK_REAL_VEC JacPDstandard4th1kzz;
-    CCTK_REAL_VEC JacPDstandard4th21gxx;
     CCTK_REAL_VEC JacPDstandard4th21gxy;
-    CCTK_REAL_VEC JacPDstandard4th21gxz;
-    CCTK_REAL_VEC JacPDstandard4th21gyy;
-    CCTK_REAL_VEC JacPDstandard4th21gyz;
-    CCTK_REAL_VEC JacPDstandard4th21gzz;
     CCTK_REAL_VEC JacPDstandard4th22gxx;
-    CCTK_REAL_VEC JacPDstandard4th22gxy;
     CCTK_REAL_VEC JacPDstandard4th22gxz;
-    CCTK_REAL_VEC JacPDstandard4th22gyz;
     CCTK_REAL_VEC JacPDstandard4th22gzz;
     CCTK_REAL_VEC JacPDstandard4th23gxx;
     CCTK_REAL_VEC JacPDstandard4th23gxy;
     CCTK_REAL_VEC JacPDstandard4th23gxz;
-    CCTK_REAL_VEC JacPDstandard4th23gyy;
     CCTK_REAL_VEC JacPDstandard4th23gyz;
-    CCTK_REAL_VEC JacPDstandard4th23gzz;
     CCTK_REAL_VEC JacPDstandard4th2gxx;
     CCTK_REAL_VEC JacPDstandard4th2gxy;
     CCTK_REAL_VEC JacPDstandard4th2gxz;
@@ -662,23 +644,14 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard4th2kxz;
     CCTK_REAL_VEC JacPDstandard4th2kyz;
     CCTK_REAL_VEC JacPDstandard4th2kzz;
-    CCTK_REAL_VEC JacPDstandard4th31gxx;
     CCTK_REAL_VEC JacPDstandard4th31gxy;
     CCTK_REAL_VEC JacPDstandard4th31gxz;
     CCTK_REAL_VEC JacPDstandard4th31gyy;
     CCTK_REAL_VEC JacPDstandard4th31gyz;
-    CCTK_REAL_VEC JacPDstandard4th31gzz;
-    CCTK_REAL_VEC JacPDstandard4th32gxx;
-    CCTK_REAL_VEC JacPDstandard4th32gxy;
-    CCTK_REAL_VEC JacPDstandard4th32gxz;
-    CCTK_REAL_VEC JacPDstandard4th32gyy;
     CCTK_REAL_VEC JacPDstandard4th32gyz;
-    CCTK_REAL_VEC JacPDstandard4th32gzz;
     CCTK_REAL_VEC JacPDstandard4th33gxx;
     CCTK_REAL_VEC JacPDstandard4th33gxy;
-    CCTK_REAL_VEC JacPDstandard4th33gxz;
     CCTK_REAL_VEC JacPDstandard4th33gyy;
-    CCTK_REAL_VEC JacPDstandard4th33gyz;
     CCTK_REAL_VEC JacPDstandard4th3gxx;
     CCTK_REAL_VEC JacPDstandard4th3gxy;
     CCTK_REAL_VEC JacPDstandard4th3gxz;
@@ -792,12 +765,6 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th3kyz = 
         kmadd(J13L,PDstandard4th1kyz,kmadd(J23L,PDstandard4th2kyz,kmul(J33L,PDstandard4th3kyz)));
       
-      JacPDstandard4th11gxy = 
-        kmadd(dJ111L,PDstandard4th1gxy,kmadd(dJ211L,PDstandard4th2gxy,kmadd(dJ311L,PDstandard4th3gxy,kmadd(PDstandard4th11gxy,kmul(J11L,J11L),kmadd(PDstandard4th22gxy,kmul(J21L,J21L),kmadd(PDstandard4th33gxy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy)),kmul(J21L,kmul(J31L,PDstandard4th23gxy))),ToReal(2.))))))));
-      
-      JacPDstandard4th11gxz = 
-        kmadd(dJ111L,PDstandard4th1gxz,kmadd(dJ211L,PDstandard4th2gxz,kmadd(dJ311L,PDstandard4th3gxz,kmadd(PDstandard4th11gxz,kmul(J11L,J11L),kmadd(PDstandard4th22gxz,kmul(J21L,J21L),kmadd(PDstandard4th33gxz,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard4th12gxz,kmul(J31L,PDstandard4th13gxz)),kmul(J21L,kmul(J31L,PDstandard4th23gxz))),ToReal(2.))))))));
-      
       JacPDstandard4th11gyy = 
         kmadd(dJ111L,PDstandard4th1gyy,kmadd(dJ211L,PDstandard4th2gyy,kmadd(dJ311L,PDstandard4th3gyy,kmadd(PDstandard4th11gyy,kmul(J11L,J11L),kmadd(PDstandard4th22gyy,kmul(J21L,J21L),kmadd(PDstandard4th33gyy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard4th12gyy,kmul(J31L,PDstandard4th13gyy)),kmul(J21L,kmul(J31L,PDstandard4th23gyy))),ToReal(2.))))))));
       
@@ -810,15 +777,9 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th22gxx = 
         kmadd(dJ122L,PDstandard4th1gxx,kmadd(dJ222L,PDstandard4th2gxx,kmadd(dJ322L,PDstandard4th3gxx,kmadd(PDstandard4th11gxx,kmul(J12L,J12L),kmadd(PDstandard4th22gxx,kmul(J22L,J22L),kmadd(PDstandard4th33gxx,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx)),kmul(J22L,kmul(J32L,PDstandard4th23gxx))),ToReal(2.))))))));
       
-      JacPDstandard4th22gxy = 
-        kmadd(dJ122L,PDstandard4th1gxy,kmadd(dJ222L,PDstandard4th2gxy,kmadd(dJ322L,PDstandard4th3gxy,kmadd(PDstandard4th11gxy,kmul(J12L,J12L),kmadd(PDstandard4th22gxy,kmul(J22L,J22L),kmadd(PDstandard4th33gxy,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gxy,kmul(J32L,PDstandard4th13gxy)),kmul(J22L,kmul(J32L,PDstandard4th23gxy))),ToReal(2.))))))));
-      
       JacPDstandard4th22gxz = 
         kmadd(dJ122L,PDstandard4th1gxz,kmadd(dJ222L,PDstandard4th2gxz,kmadd(dJ322L,PDstandard4th3gxz,kmadd(PDstandard4th11gxz,kmul(J12L,J12L),kmadd(PDstandard4th22gxz,kmul(J22L,J22L),kmadd(PDstandard4th33gxz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz)),kmul(J22L,kmul(J32L,PDstandard4th23gxz))),ToReal(2.))))))));
       
-      JacPDstandard4th22gyz = 
-        kmadd(dJ122L,PDstandard4th1gyz,kmadd(dJ222L,PDstandard4th2gyz,kmadd(dJ322L,PDstandard4th3gyz,kmadd(PDstandard4th11gyz,kmul(J12L,J12L),kmadd(PDstandard4th22gyz,kmul(J22L,J22L),kmadd(PDstandard4th33gyz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz)),kmul(J22L,kmul(J32L,PDstandard4th23gyz))),ToReal(2.))))))));
-      
       JacPDstandard4th22gzz = 
         kmadd(dJ122L,PDstandard4th1gzz,kmadd(dJ222L,PDstandard4th2gzz,kmadd(dJ322L,PDstandard4th3gzz,kmadd(PDstandard4th11gzz,kmul(J12L,J12L),kmadd(PDstandard4th22gzz,kmul(J22L,J22L),kmadd(PDstandard4th33gzz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz)),kmul(J22L,kmul(J32L,PDstandard4th23gzz))),ToReal(2.))))))));
       
@@ -828,69 +789,27 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th33gxy = 
         kmadd(dJ133L,PDstandard4th1gxy,kmadd(dJ233L,PDstandard4th2gxy,kmadd(dJ333L,PDstandard4th3gxy,kmadd(PDstandard4th11gxy,kmul(J13L,J13L),kmadd(PDstandard4th22gxy,kmul(J23L,J23L),kmadd(PDstandard4th33gxy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard4th12gxy,kmul(J33L,PDstandard4th13gxy)),kmul(J23L,kmul(J33L,PDstandard4th23gxy))),ToReal(2.))))))));
       
-      JacPDstandard4th33gxz = 
-        kmadd(dJ133L,PDstandard4th1gxz,kmadd(dJ233L,PDstandard4th2gxz,kmadd(dJ333L,PDstandard4th3gxz,kmadd(PDstandard4th11gxz,kmul(J13L,J13L),kmadd(PDstandard4th22gxz,kmul(J23L,J23L),kmadd(PDstandard4th33gxz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard4th12gxz,kmul(J33L,PDstandard4th13gxz)),kmul(J23L,kmul(J33L,PDstandard4th23gxz))),ToReal(2.))))))));
-      
       JacPDstandard4th33gyy = 
         kmadd(dJ133L,PDstandard4th1gyy,kmadd(dJ233L,PDstandard4th2gyy,kmadd(dJ333L,PDstandard4th3gyy,kmadd(PDstandard4th11gyy,kmul(J13L,J13L),kmadd(PDstandard4th22gyy,kmul(J23L,J23L),kmadd(PDstandard4th33gyy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard4th12gyy,kmul(J33L,PDstandard4th13gyy)),kmul(J23L,kmul(J33L,PDstandard4th23gyy))),ToReal(2.))))))));
       
-      JacPDstandard4th33gyz = 
-        kmadd(dJ133L,PDstandard4th1gyz,kmadd(dJ233L,PDstandard4th2gyz,kmadd(dJ333L,PDstandard4th3gyz,kmadd(PDstandard4th11gyz,kmul(J13L,J13L),kmadd(PDstandard4th22gyz,kmul(J23L,J23L),kmadd(PDstandard4th33gyz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmul(J23L,kmul(J33L,PDstandard4th23gyz))),ToReal(2.))))))));
-      
-      JacPDstandard4th12gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gxx,kmadd(J21L,PDstandard4th12gxx,kmul(J31L,PDstandard4th13gxx))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx)),kmadd(dJ112L,PDstandard4th1gxx,kmadd(J22L,kmadd(J21L,PDstandard4th22gxx,kmul(J31L,PDstandard4th23gxx)),kmadd(dJ212L,PDstandard4th2gxx,kmadd(J32L,kmadd(J21L,PDstandard4th23gxx,kmul(J31L,PDstandard4th33gxx)),kmul(dJ312L,PDstandard4th3gxx)))))));
-      
       JacPDstandard4th12gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gxy,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxy,kmul(J32L,PDstandard4th13gxy)),kmadd(dJ112L,PDstandard4th1gxy,kmadd(J22L,kmadd(J21L,PDstandard4th22gxy,kmul(J31L,PDstandard4th23gxy)),kmadd(dJ212L,PDstandard4th2gxy,kmadd(J32L,kmadd(J21L,PDstandard4th23gxy,kmul(J31L,PDstandard4th33gxy)),kmul(dJ312L,PDstandard4th3gxy)))))));
       
       JacPDstandard4th12gxz = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gxz,kmadd(J21L,PDstandard4th12gxz,kmul(J31L,PDstandard4th13gxz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz)),kmadd(dJ112L,PDstandard4th1gxz,kmadd(J22L,kmadd(J21L,PDstandard4th22gxz,kmul(J31L,PDstandard4th23gxz)),kmadd(dJ212L,PDstandard4th2gxz,kmadd(J32L,kmadd(J21L,PDstandard4th23gxz,kmul(J31L,PDstandard4th33gxz)),kmul(dJ312L,PDstandard4th3gxz)))))));
       
-      JacPDstandard4th12gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gyy,kmadd(J21L,PDstandard4th12gyy,kmul(J31L,PDstandard4th13gyy))),kmadd(J11L,kmadd(J22L,PDstandard4th12gyy,kmul(J32L,PDstandard4th13gyy)),kmadd(dJ112L,PDstandard4th1gyy,kmadd(J22L,kmadd(J21L,PDstandard4th22gyy,kmul(J31L,PDstandard4th23gyy)),kmadd(dJ212L,PDstandard4th2gyy,kmadd(J32L,kmadd(J21L,PDstandard4th23gyy,kmul(J31L,PDstandard4th33gyy)),kmul(dJ312L,PDstandard4th3gyy)))))));
-      
       JacPDstandard4th12gyz = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gyz,kmadd(J21L,PDstandard4th12gyz,kmul(J31L,PDstandard4th13gyz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz)),kmadd(dJ112L,PDstandard4th1gyz,kmadd(J22L,kmadd(J21L,PDstandard4th22gyz,kmul(J31L,PDstandard4th23gyz)),kmadd(dJ212L,PDstandard4th2gyz,kmadd(J32L,kmadd(J21L,PDstandard4th23gyz,kmul(J31L,PDstandard4th33gyz)),kmul(dJ312L,PDstandard4th3gyz)))))));
       
       JacPDstandard4th12gzz = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gzz,kmadd(J21L,PDstandard4th12gzz,kmul(J31L,PDstandard4th13gzz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz)),kmadd(dJ112L,PDstandard4th1gzz,kmadd(J22L,kmadd(J21L,PDstandard4th22gzz,kmul(J31L,PDstandard4th23gzz)),kmadd(dJ212L,PDstandard4th2gzz,kmadd(J32L,kmadd(J21L,PDstandard4th23gzz,kmul(J31L,PDstandard4th33gzz)),kmul(dJ312L,PDstandard4th3gzz)))))));
       
-      JacPDstandard4th13gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gxx,kmadd(J21L,PDstandard4th12gxx,kmul(J31L,PDstandard4th13gxx))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxx,kmul(J33L,PDstandard4th13gxx)),kmadd(dJ113L,PDstandard4th1gxx,kmadd(J23L,kmadd(J21L,PDstandard4th22gxx,kmul(J31L,PDstandard4th23gxx)),kmadd(dJ213L,PDstandard4th2gxx,kmadd(J33L,kmadd(J21L,PDstandard4th23gxx,kmul(J31L,PDstandard4th33gxx)),kmul(dJ313L,PDstandard4th3gxx)))))));
-      
-      JacPDstandard4th13gxy = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gxy,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxy,kmul(J33L,PDstandard4th13gxy)),kmadd(dJ113L,PDstandard4th1gxy,kmadd(J23L,kmadd(J21L,PDstandard4th22gxy,kmul(J31L,PDstandard4th23gxy)),kmadd(dJ213L,PDstandard4th2gxy,kmadd(J33L,kmadd(J21L,PDstandard4th23gxy,kmul(J31L,PDstandard4th33gxy)),kmul(dJ313L,PDstandard4th3gxy)))))));
-      
       JacPDstandard4th13gxz = 
         kmadd(J13L,kmadd(J11L,PDstandard4th11gxz,kmadd(J21L,PDstandard4th12gxz,kmul(J31L,PDstandard4th13gxz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxz,kmul(J33L,PDstandard4th13gxz)),kmadd(dJ113L,PDstandard4th1gxz,kmadd(J23L,kmadd(J21L,PDstandard4th22gxz,kmul(J31L,PDstandard4th23gxz)),kmadd(dJ213L,PDstandard4th2gxz,kmadd(J33L,kmadd(J21L,PDstandard4th23gxz,kmul(J31L,PDstandard4th33gxz)),kmul(dJ313L,PDstandard4th3gxz)))))));
       
-      JacPDstandard4th13gyy = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gyy,kmadd(J21L,PDstandard4th12gyy,kmul(J31L,PDstandard4th13gyy))),kmadd(J11L,kmadd(J23L,PDstandard4th12gyy,kmul(J33L,PDstandard4th13gyy)),kmadd(dJ113L,PDstandard4th1gyy,kmadd(J23L,kmadd(J21L,PDstandard4th22gyy,kmul(J31L,PDstandard4th23gyy)),kmadd(dJ213L,PDstandard4th2gyy,kmadd(J33L,kmadd(J21L,PDstandard4th23gyy,kmul(J31L,PDstandard4th33gyy)),kmul(dJ313L,PDstandard4th3gyy)))))));
-      
-      JacPDstandard4th13gyz = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gyz,kmadd(J21L,PDstandard4th12gyz,kmul(J31L,PDstandard4th13gyz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmadd(dJ113L,PDstandard4th1gyz,kmadd(J23L,kmadd(J21L,PDstandard4th22gyz,kmul(J31L,PDstandard4th23gyz)),kmadd(dJ213L,PDstandard4th2gyz,kmadd(J33L,kmadd(J21L,PDstandard4th23gyz,kmul(J31L,PDstandard4th33gyz)),kmul(dJ313L,PDstandard4th3gyz)))))));
-      
-      JacPDstandard4th13gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gzz,kmadd(J21L,PDstandard4th12gzz,kmul(J31L,PDstandard4th13gzz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gzz,kmul(J33L,PDstandard4th13gzz)),kmadd(dJ113L,PDstandard4th1gzz,kmadd(J23L,kmadd(J21L,PDstandard4th22gzz,kmul(J31L,PDstandard4th23gzz)),kmadd(dJ213L,PDstandard4th2gzz,kmadd(J33L,kmadd(J21L,PDstandard4th23gzz,kmul(J31L,PDstandard4th33gzz)),kmul(dJ313L,PDstandard4th3gzz)))))));
-      
-      JacPDstandard4th21gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gxx,kmadd(J21L,PDstandard4th12gxx,kmul(J31L,PDstandard4th13gxx))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx)),kmadd(dJ112L,PDstandard4th1gxx,kmadd(J22L,kmadd(J21L,PDstandard4th22gxx,kmul(J31L,PDstandard4th23gxx)),kmadd(dJ212L,PDstandard4th2gxx,kmadd(J32L,kmadd(J21L,PDstandard4th23gxx,kmul(J31L,PDstandard4th33gxx)),kmul(dJ312L,PDstandard4th3gxx)))))));
-      
       JacPDstandard4th21gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gxy,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxy,kmul(J32L,PDstandard4th13gxy)),kmadd(dJ112L,PDstandard4th1gxy,kmadd(J22L,kmadd(J21L,PDstandard4th22gxy,kmul(J31L,PDstandard4th23gxy)),kmadd(dJ212L,PDstandard4th2gxy,kmadd(J32L,kmadd(J21L,PDstandard4th23gxy,kmul(J31L,PDstandard4th33gxy)),kmul(dJ312L,PDstandard4th3gxy)))))));
       
-      JacPDstandard4th21gxz = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gxz,kmadd(J21L,PDstandard4th12gxz,kmul(J31L,PDstandard4th13gxz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz)),kmadd(dJ112L,PDstandard4th1gxz,kmadd(J22L,kmadd(J21L,PDstandard4th22gxz,kmul(J31L,PDstandard4th23gxz)),kmadd(dJ212L,PDstandard4th2gxz,kmadd(J32L,kmadd(J21L,PDstandard4th23gxz,kmul(J31L,PDstandard4th33gxz)),kmul(dJ312L,PDstandard4th3gxz)))))));
-      
-      JacPDstandard4th21gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gyy,kmadd(J21L,PDstandard4th12gyy,kmul(J31L,PDstandard4th13gyy))),kmadd(J11L,kmadd(J22L,PDstandard4th12gyy,kmul(J32L,PDstandard4th13gyy)),kmadd(dJ112L,PDstandard4th1gyy,kmadd(J22L,kmadd(J21L,PDstandard4th22gyy,kmul(J31L,PDstandard4th23gyy)),kmadd(dJ212L,PDstandard4th2gyy,kmadd(J32L,kmadd(J21L,PDstandard4th23gyy,kmul(J31L,PDstandard4th33gyy)),kmul(dJ312L,PDstandard4th3gyy)))))));
-      
-      JacPDstandard4th21gyz = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gyz,kmadd(J21L,PDstandard4th12gyz,kmul(J31L,PDstandard4th13gyz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz)),kmadd(dJ112L,PDstandard4th1gyz,kmadd(J22L,kmadd(J21L,PDstandard4th22gyz,kmul(J31L,PDstandard4th23gyz)),kmadd(dJ212L,PDstandard4th2gyz,kmadd(J32L,kmadd(J21L,PDstandard4th23gyz,kmul(J31L,PDstandard4th33gyz)),kmul(dJ312L,PDstandard4th3gyz)))))));
-      
-      JacPDstandard4th21gzz = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gzz,kmadd(J21L,PDstandard4th12gzz,kmul(J31L,PDstandard4th13gzz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz)),kmadd(dJ112L,PDstandard4th1gzz,kmadd(J22L,kmadd(J21L,PDstandard4th22gzz,kmul(J31L,PDstandard4th23gzz)),kmadd(dJ212L,PDstandard4th2gzz,kmadd(J32L,kmadd(J21L,PDstandard4th23gzz,kmul(J31L,PDstandard4th33gzz)),kmul(dJ312L,PDstandard4th3gzz)))))));
-      
       JacPDstandard4th23gxx = 
         kmadd(J13L,kmadd(J12L,PDstandard4th11gxx,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxx,kmul(J33L,PDstandard4th13gxx)),kmadd(dJ123L,PDstandard4th1gxx,kmadd(J23L,kmadd(J22L,PDstandard4th22gxx,kmul(J32L,PDstandard4th23gxx)),kmadd(dJ223L,PDstandard4th2gxx,kmadd(J33L,kmadd(J22L,PDstandard4th23gxx,kmul(J32L,PDstandard4th33gxx)),kmul(dJ323L,PDstandard4th3gxx)))))));
       
@@ -900,18 +819,9 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th23gxz = 
         kmadd(J13L,kmadd(J12L,PDstandard4th11gxz,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxz,kmul(J33L,PDstandard4th13gxz)),kmadd(dJ123L,PDstandard4th1gxz,kmadd(J23L,kmadd(J22L,PDstandard4th22gxz,kmul(J32L,PDstandard4th23gxz)),kmadd(dJ223L,PDstandard4th2gxz,kmadd(J33L,kmadd(J22L,PDstandard4th23gxz,kmul(J32L,PDstandard4th33gxz)),kmul(dJ323L,PDstandard4th3gxz)))))));
       
-      JacPDstandard4th23gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gyy,kmadd(J22L,PDstandard4th12gyy,kmul(J32L,PDstandard4th13gyy))),kmadd(J12L,kmadd(J23L,PDstandard4th12gyy,kmul(J33L,PDstandard4th13gyy)),kmadd(dJ123L,PDstandard4th1gyy,kmadd(J23L,kmadd(J22L,PDstandard4th22gyy,kmul(J32L,PDstandard4th23gyy)),kmadd(dJ223L,PDstandard4th2gyy,kmadd(J33L,kmadd(J22L,PDstandard4th23gyy,kmul(J32L,PDstandard4th33gyy)),kmul(dJ323L,PDstandard4th3gyy)))))));
-      
       JacPDstandard4th23gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard4th11gyz,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmadd(dJ123L,PDstandard4th1gyz,kmadd(J23L,kmadd(J22L,PDstandard4th22gyz,kmul(J32L,PDstandard4th23gyz)),kmadd(dJ223L,PDstandard4th2gyz,kmadd(J33L,kmadd(J22L,PDstandard4th23gyz,kmul(J32L,PDstandard4th33gyz)),kmul(dJ323L,PDstandard4th3gyz)))))));
       
-      JacPDstandard4th23gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gzz,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gzz,kmul(J33L,PDstandard4th13gzz)),kmadd(dJ123L,PDstandard4th1gzz,kmadd(J23L,kmadd(J22L,PDstandard4th22gzz,kmul(J32L,PDstandard4th23gzz)),kmadd(dJ223L,PDstandard4th2gzz,kmadd(J33L,kmadd(J22L,PDstandard4th23gzz,kmul(J32L,PDstandard4th33gzz)),kmul(dJ323L,PDstandard4th3gzz)))))));
-      
-      JacPDstandard4th31gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gxx,kmadd(J21L,PDstandard4th12gxx,kmul(J31L,PDstandard4th13gxx))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxx,kmul(J33L,PDstandard4th13gxx)),kmadd(dJ113L,PDstandard4th1gxx,kmadd(J23L,kmadd(J21L,PDstandard4th22gxx,kmul(J31L,PDstandard4th23gxx)),kmadd(dJ213L,PDstandard4th2gxx,kmadd(J33L,kmadd(J21L,PDstandard4th23gxx,kmul(J31L,PDstandard4th33gxx)),kmul(dJ313L,PDstandard4th3gxx)))))));
-      
       JacPDstandard4th31gxy = 
         kmadd(J13L,kmadd(J11L,PDstandard4th11gxy,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxy,kmul(J33L,PDstandard4th13gxy)),kmadd(dJ113L,PDstandard4th1gxy,kmadd(J23L,kmadd(J21L,PDstandard4th22gxy,kmul(J31L,PDstandard4th23gxy)),kmadd(dJ213L,PDstandard4th2gxy,kmadd(J33L,kmadd(J21L,PDstandard4th23gxy,kmul(J31L,PDstandard4th33gxy)),kmul(dJ313L,PDstandard4th3gxy)))))));
       
@@ -924,26 +834,8 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th31gyz = 
         kmadd(J13L,kmadd(J11L,PDstandard4th11gyz,kmadd(J21L,PDstandard4th12gyz,kmul(J31L,PDstandard4th13gyz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmadd(dJ113L,PDstandard4th1gyz,kmadd(J23L,kmadd(J21L,PDstandard4th22gyz,kmul(J31L,PDstandard4th23gyz)),kmadd(dJ213L,PDstandard4th2gyz,kmadd(J33L,kmadd(J21L,PDstandard4th23gyz,kmul(J31L,PDstandard4th33gyz)),kmul(dJ313L,PDstandard4th3gyz)))))));
       
-      JacPDstandard4th31gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gzz,kmadd(J21L,PDstandard4th12gzz,kmul(J31L,PDstandard4th13gzz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gzz,kmul(J33L,PDstandard4th13gzz)),kmadd(dJ113L,PDstandard4th1gzz,kmadd(J23L,kmadd(J21L,PDstandard4th22gzz,kmul(J31L,PDstandard4th23gzz)),kmadd(dJ213L,PDstandard4th2gzz,kmadd(J33L,kmadd(J21L,PDstandard4th23gzz,kmul(J31L,PDstandard4th33gzz)),kmul(dJ313L,PDstandard4th3gzz)))))));
-      
-      JacPDstandard4th32gxx = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gxx,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxx,kmul(J33L,PDstandard4th13gxx)),kmadd(dJ123L,PDstandard4th1gxx,kmadd(J23L,kmadd(J22L,PDstandard4th22gxx,kmul(J32L,PDstandard4th23gxx)),kmadd(dJ223L,PDstandard4th2gxx,kmadd(J33L,kmadd(J22L,PDstandard4th23gxx,kmul(J32L,PDstandard4th33gxx)),kmul(dJ323L,PDstandard4th3gxx)))))));
-      
-      JacPDstandard4th32gxy = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gxy,kmadd(J22L,PDstandard4th12gxy,kmul(J32L,PDstandard4th13gxy))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxy,kmul(J33L,PDstandard4th13gxy)),kmadd(dJ123L,PDstandard4th1gxy,kmadd(J23L,kmadd(J22L,PDstandard4th22gxy,kmul(J32L,PDstandard4th23gxy)),kmadd(dJ223L,PDstandard4th2gxy,kmadd(J33L,kmadd(J22L,PDstandard4th23gxy,kmul(J32L,PDstandard4th33gxy)),kmul(dJ323L,PDstandard4th3gxy)))))));
-      
-      JacPDstandard4th32gxz = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gxz,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxz,kmul(J33L,PDstandard4th13gxz)),kmadd(dJ123L,PDstandard4th1gxz,kmadd(J23L,kmadd(J22L,PDstandard4th22gxz,kmul(J32L,PDstandard4th23gxz)),kmadd(dJ223L,PDstandard4th2gxz,kmadd(J33L,kmadd(J22L,PDstandard4th23gxz,kmul(J32L,PDstandard4th33gxz)),kmul(dJ323L,PDstandard4th3gxz)))))));
-      
-      JacPDstandard4th32gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gyy,kmadd(J22L,PDstandard4th12gyy,kmul(J32L,PDstandard4th13gyy))),kmadd(J12L,kmadd(J23L,PDstandard4th12gyy,kmul(J33L,PDstandard4th13gyy)),kmadd(dJ123L,PDstandard4th1gyy,kmadd(J23L,kmadd(J22L,PDstandard4th22gyy,kmul(J32L,PDstandard4th23gyy)),kmadd(dJ223L,PDstandard4th2gyy,kmadd(J33L,kmadd(J22L,PDstandard4th23gyy,kmul(J32L,PDstandard4th33gyy)),kmul(dJ323L,PDstandard4th3gyy)))))));
-      
       JacPDstandard4th32gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard4th11gyz,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmadd(dJ123L,PDstandard4th1gyz,kmadd(J23L,kmadd(J22L,PDstandard4th22gyz,kmul(J32L,PDstandard4th23gyz)),kmadd(dJ223L,PDstandard4th2gyz,kmadd(J33L,kmadd(J22L,PDstandard4th23gyz,kmul(J32L,PDstandard4th33gyz)),kmul(dJ323L,PDstandard4th3gyz)))))));
-      
-      JacPDstandard4th32gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gzz,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gzz,kmul(J33L,PDstandard4th13gzz)),kmadd(dJ123L,PDstandard4th1gzz,kmadd(J23L,kmadd(J22L,PDstandard4th22gzz,kmul(J32L,PDstandard4th23gzz)),kmadd(dJ223L,PDstandard4th2gzz,kmadd(J33L,kmadd(J22L,PDstandard4th23gzz,kmul(J32L,PDstandard4th33gzz)),kmul(dJ323L,PDstandard4th3gzz)))))));
     }
     else
     {
@@ -1013,10 +905,6 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard4th3kyz = PDstandard4th3kyz;
       
-      JacPDstandard4th11gxy = PDstandard4th11gxy;
-      
-      JacPDstandard4th11gxz = PDstandard4th11gxz;
-      
       JacPDstandard4th11gyy = PDstandard4th11gyy;
       
       JacPDstandard4th11gyz = PDstandard4th11gyz;
@@ -1025,74 +913,36 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard4th22gxx = PDstandard4th22gxx;
       
-      JacPDstandard4th22gxy = PDstandard4th22gxy;
-      
       JacPDstandard4th22gxz = PDstandard4th22gxz;
       
-      JacPDstandard4th22gyz = PDstandard4th22gyz;
-      
       JacPDstandard4th22gzz = PDstandard4th22gzz;
       
       JacPDstandard4th33gxx = PDstandard4th33gxx;
       
       JacPDstandard4th33gxy = PDstandard4th33gxy;
       
-      JacPDstandard4th33gxz = PDstandard4th33gxz;
-      
       JacPDstandard4th33gyy = PDstandard4th33gyy;
       
-      JacPDstandard4th33gyz = PDstandard4th33gyz;
-      
-      JacPDstandard4th12gxx = PDstandard4th12gxx;
-      
       JacPDstandard4th12gxy = PDstandard4th12gxy;
       
       JacPDstandard4th12gxz = PDstandard4th12gxz;
       
-      JacPDstandard4th12gyy = PDstandard4th12gyy;
-      
       JacPDstandard4th12gyz = PDstandard4th12gyz;
       
       JacPDstandard4th12gzz = PDstandard4th12gzz;
       
-      JacPDstandard4th13gxx = PDstandard4th13gxx;
-      
-      JacPDstandard4th13gxy = PDstandard4th13gxy;
-      
       JacPDstandard4th13gxz = PDstandard4th13gxz;
       
-      JacPDstandard4th13gyy = PDstandard4th13gyy;
-      
-      JacPDstandard4th13gyz = PDstandard4th13gyz;
-      
-      JacPDstandard4th13gzz = PDstandard4th13gzz;
-      
-      JacPDstandard4th21gxx = PDstandard4th12gxx;
-      
       JacPDstandard4th21gxy = PDstandard4th12gxy;
       
-      JacPDstandard4th21gxz = PDstandard4th12gxz;
-      
-      JacPDstandard4th21gyy = PDstandard4th12gyy;
-      
-      JacPDstandard4th21gyz = PDstandard4th12gyz;
-      
-      JacPDstandard4th21gzz = PDstandard4th12gzz;
-      
       JacPDstandard4th23gxx = PDstandard4th23gxx;
       
       JacPDstandard4th23gxy = PDstandard4th23gxy;
       
       JacPDstandard4th23gxz = PDstandard4th23gxz;
       
-      JacPDstandard4th23gyy = PDstandard4th23gyy;
-      
       JacPDstandard4th23gyz = PDstandard4th23gyz;
       
-      JacPDstandard4th23gzz = PDstandard4th23gzz;
-      
-      JacPDstandard4th31gxx = PDstandard4th13gxx;
-      
       JacPDstandard4th31gxy = PDstandard4th13gxy;
       
       JacPDstandard4th31gxz = PDstandard4th13gxz;
@@ -1101,19 +951,7 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard4th31gyz = PDstandard4th13gyz;
       
-      JacPDstandard4th31gzz = PDstandard4th13gzz;
-      
-      JacPDstandard4th32gxx = PDstandard4th23gxx;
-      
-      JacPDstandard4th32gxy = PDstandard4th23gxy;
-      
-      JacPDstandard4th32gxz = PDstandard4th23gxz;
-      
-      JacPDstandard4th32gyy = PDstandard4th23gyy;
-      
       JacPDstandard4th32gyz = PDstandard4th23gyz;
-      
-      JacPDstandard4th32gzz = PDstandard4th23gzz;
     }
     
     CCTK_REAL_VEC detg = 
@@ -1317,444 +1155,42 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     
     CCTK_REAL_VEC nn = isqrt2;
     
-    CCTK_REAL_VEC R1111 = ToReal(0.);
-    
-    CCTK_REAL_VEC R1112 = 
-      kmul(ksub(JacPDstandard4th21gxx,JacPDstandard4th12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1113 = 
-      kmul(ksub(JacPDstandard4th31gxx,JacPDstandard4th13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1121 = 
-      kmul(ksub(JacPDstandard4th21gxx,JacPDstandard4th12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1122 = 
-      ksub(JacPDstandard4th21gxy,JacPDstandard4th12gxy);
-    
-    CCTK_REAL_VEC R1123 = 
-      kmul(kadd(JacPDstandard4th21gxz,ksub(JacPDstandard4th31gxy,kadd(JacPDstandard4th13gxy,JacPDstandard4th12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1131 = 
-      kmul(ksub(JacPDstandard4th31gxx,JacPDstandard4th13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1132 = 
-      kmul(kadd(JacPDstandard4th21gxz,ksub(JacPDstandard4th31gxy,kadd(JacPDstandard4th13gxy,JacPDstandard4th12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1133 = 
-      ksub(JacPDstandard4th31gxz,JacPDstandard4th13gxz);
-    
-    CCTK_REAL_VEC R1211 = 
-      kmul(ksub(JacPDstandard4th12gxx,JacPDstandard4th21gxx),ToReal(0.5));
-    
     CCTK_REAL_VEC R1212 = 
       kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy)))));
     
     CCTK_REAL_VEC R1213 = 
       kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard4th23gxx),JacPDstandard4th11gyz))))));
     
-    CCTK_REAL_VEC R1221 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard4th21gxy),JacPDstandard4th12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R1222 = 
-      kmul(ksub(JacPDstandard4th21gyy,JacPDstandard4th12gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R1223 = 
       kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard4th23gxy),JacPDstandard4th12gyz))))));
     
-    CCTK_REAL_VEC R1231 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1232 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1233 = 
-      kmul(kadd(JacPDstandard4th31gyz,ksub(JacPDstandard4th32gxz,kadd(JacPDstandard4th23gxz,JacPDstandard4th13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1311 = 
-      kmul(ksub(JacPDstandard4th13gxx,JacPDstandard4th31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1312 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard4th32gxx),JacPDstandard4th11gyz))))));
-    
     CCTK_REAL_VEC R1313 = 
       kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz)))));
     
-    CCTK_REAL_VEC R1321 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1322 = 
-      kmul(kadd(JacPDstandard4th21gyz,ksub(JacPDstandard4th23gxy,kadd(JacPDstandard4th32gxy,JacPDstandard4th12gyz))),ToReal(0.5));
-    
     CCTK_REAL_VEC R1323 = 
       kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard4th33gxy),JacPDstandard4th12gzz))))));
     
-    CCTK_REAL_VEC R1331 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard4th31gxz),JacPDstandard4th13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R1332 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R1333 = 
-      kmul(ksub(JacPDstandard4th31gzz,JacPDstandard4th13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2111 = 
-      kmul(ksub(JacPDstandard4th12gxx,JacPDstandard4th21gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard4th21gxy),JacPDstandard4th12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R2113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2121 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy)))));
-    
-    CCTK_REAL_VEC R2122 = 
-      kmul(ksub(JacPDstandard4th21gyy,JacPDstandard4th12gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2131 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard4th23gxx),JacPDstandard4th11gyz))))));
-    
-    CCTK_REAL_VEC R2132 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard4th23gxy),JacPDstandard4th12gyz))))));
-    
-    CCTK_REAL_VEC R2133 = 
-      kmul(kadd(JacPDstandard4th31gyz,ksub(JacPDstandard4th32gxz,kadd(JacPDstandard4th23gxz,JacPDstandard4th13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2211 = 
-      ksub(JacPDstandard4th12gxy,JacPDstandard4th21gxy);
-    
-    CCTK_REAL_VEC R2212 = 
-      kmul(ksub(JacPDstandard4th12gyy,JacPDstandard4th21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2213 = 
-      kmul(kadd(JacPDstandard4th12gyz,ksub(JacPDstandard4th32gxy,kadd(JacPDstandard4th23gxy,JacPDstandard4th21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2221 = 
-      kmul(ksub(JacPDstandard4th12gyy,JacPDstandard4th21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2222 = ToReal(0.);
-    
-    CCTK_REAL_VEC R2223 = 
-      kmul(ksub(JacPDstandard4th32gyy,JacPDstandard4th23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2231 = 
-      kmul(kadd(JacPDstandard4th12gyz,ksub(JacPDstandard4th32gxy,kadd(JacPDstandard4th23gxy,JacPDstandard4th21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2232 = 
-      kmul(ksub(JacPDstandard4th32gyy,JacPDstandard4th23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2233 = 
-      ksub(JacPDstandard4th32gyz,JacPDstandard4th23gyz);
-    
-    CCTK_REAL_VEC R2311 = 
-      kmul(kadd(JacPDstandard4th12gxz,ksub(JacPDstandard4th13gxy,kadd(JacPDstandard4th31gxy,JacPDstandard4th21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2312 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard4th32gxy),JacPDstandard4th21gyz))))));
-    
-    CCTK_REAL_VEC R2313 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard4th33gxy),JacPDstandard4th21gzz))))));
-    
-    CCTK_REAL_VEC R2321 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2322 = 
-      kmul(ksub(JacPDstandard4th23gyy,JacPDstandard4th32gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R2323 = 
       kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz)))));
     
-    CCTK_REAL_VEC R2331 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R2332 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard4th32gyz),JacPDstandard4th23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R2333 = 
-      kmul(ksub(JacPDstandard4th32gzz,JacPDstandard4th23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3111 = 
-      kmul(ksub(JacPDstandard4th13gxx,JacPDstandard4th31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard4th31gxz),JacPDstandard4th13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R3121 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard4th32gxx),JacPDstandard4th11gyz))))));
-    
-    CCTK_REAL_VEC R3122 = 
-      kmul(kadd(JacPDstandard4th21gyz,ksub(JacPDstandard4th23gxy,kadd(JacPDstandard4th32gxy,JacPDstandard4th12gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3131 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz)))));
-    
-    CCTK_REAL_VEC R3132 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard4th33gxy),JacPDstandard4th12gzz))))));
-    
-    CCTK_REAL_VEC R3133 = 
-      kmul(ksub(JacPDstandard4th31gzz,JacPDstandard4th13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3211 = 
-      kmul(kadd(JacPDstandard4th12gxz,ksub(JacPDstandard4th13gxy,kadd(JacPDstandard4th31gxy,JacPDstandard4th21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3212 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3213 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3221 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard4th32gxy),JacPDstandard4th21gyz))))));
-    
-    CCTK_REAL_VEC R3222 = 
-      kmul(ksub(JacPDstandard4th23gyy,JacPDstandard4th32gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3223 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard4th32gyz),JacPDstandard4th23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R3231 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard4th33gxy),JacPDstandard4th21gzz))))));
-    
-    CCTK_REAL_VEC R3232 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz)))));
-    
-    CCTK_REAL_VEC R3233 = 
-      kmul(ksub(JacPDstandard4th32gzz,JacPDstandard4th23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3311 = 
-      ksub(JacPDstandard4th13gxz,JacPDstandard4th31gxz);
-    
-    CCTK_REAL_VEC R3312 = 
-      kmul(kadd(JacPDstandard4th13gyz,ksub(JacPDstandard4th23gxz,kadd(JacPDstandard4th32gxz,JacPDstandard4th31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3313 = 
-      kmul(ksub(JacPDstandard4th13gzz,JacPDstandard4th31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3321 = 
-      kmul(kadd(JacPDstandard4th13gyz,ksub(JacPDstandard4th23gxz,kadd(JacPDstandard4th32gxz,JacPDstandard4th31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3322 = 
-      ksub(JacPDstandard4th23gyz,JacPDstandard4th32gyz);
-    
-    CCTK_REAL_VEC R3323 = 
-      kmul(ksub(JacPDstandard4th23gzz,JacPDstandard4th32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3331 = 
-      kmul(ksub(JacPDstandard4th13gzz,JacPDstandard4th31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3332 = 
-      kmul(ksub(JacPDstandard4th23gzz,JacPDstandard4th32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3333 = ToReal(0.);
-    
-    CCTK_REAL_VEC R4p1111 = R1111;
-    
-    CCTK_REAL_VEC R4p1112 = R1112;
-    
-    CCTK_REAL_VEC R4p1113 = R1113;
-    
-    CCTK_REAL_VEC R4p1121 = R1121;
-    
-    CCTK_REAL_VEC R4p1122 = R1122;
-    
-    CCTK_REAL_VEC R4p1123 = R1123;
-    
-    CCTK_REAL_VEC R4p1131 = R1131;
-    
-    CCTK_REAL_VEC R4p1132 = R1132;
-    
-    CCTK_REAL_VEC R4p1133 = R1133;
-    
-    CCTK_REAL_VEC R4p1211 = R1211;
-    
     CCTK_REAL_VEC R4p1212 = 
       kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212));
     
     CCTK_REAL_VEC R4p1213 = 
       kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213));
     
-    CCTK_REAL_VEC R4p1221 = 
-      kadd(R1221,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p1222 = R1222;
-    
     CCTK_REAL_VEC R4p1223 = 
       kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223));
     
-    CCTK_REAL_VEC R4p1231 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231));
-    
-    CCTK_REAL_VEC R4p1232 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232));
-    
-    CCTK_REAL_VEC R4p1233 = R1233;
-    
-    CCTK_REAL_VEC R4p1311 = R1311;
-    
-    CCTK_REAL_VEC R4p1312 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312));
-    
     CCTK_REAL_VEC R4p1313 = 
       kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313));
     
-    CCTK_REAL_VEC R4p1321 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321));
-    
-    CCTK_REAL_VEC R4p1322 = R1322;
-    
     CCTK_REAL_VEC R4p1323 = 
       kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323));
     
-    CCTK_REAL_VEC R4p1331 = 
-      kadd(R1331,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p1332 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332));
-    
-    CCTK_REAL_VEC R4p1333 = R1333;
-    
-    CCTK_REAL_VEC R4p2111 = R2111;
-    
-    CCTK_REAL_VEC R4p2112 = 
-      kadd(R2112,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p2113 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113));
-    
-    CCTK_REAL_VEC R4p2121 = 
-      kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121));
-    
-    CCTK_REAL_VEC R4p2122 = R2122;
-    
-    CCTK_REAL_VEC R4p2123 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123));
-    
-    CCTK_REAL_VEC R4p2131 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131));
-    
-    CCTK_REAL_VEC R4p2132 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132));
-    
-    CCTK_REAL_VEC R4p2133 = R2133;
-    
-    CCTK_REAL_VEC R4p2211 = R2211;
-    
-    CCTK_REAL_VEC R4p2212 = R2212;
-    
-    CCTK_REAL_VEC R4p2213 = R2213;
-    
-    CCTK_REAL_VEC R4p2221 = R2221;
-    
-    CCTK_REAL_VEC R4p2222 = R2222;
-    
-    CCTK_REAL_VEC R4p2223 = R2223;
-    
-    CCTK_REAL_VEC R4p2231 = R2231;
-    
-    CCTK_REAL_VEC R4p2232 = R2232;
-    
-    CCTK_REAL_VEC R4p2233 = R2233;
-    
-    CCTK_REAL_VEC R4p2311 = R2311;
-    
-    CCTK_REAL_VEC R4p2312 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312));
-    
-    CCTK_REAL_VEC R4p2313 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313));
-    
-    CCTK_REAL_VEC R4p2321 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321));
-    
-    CCTK_REAL_VEC R4p2322 = R2322;
-    
     CCTK_REAL_VEC R4p2323 = 
       kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323));
     
-    CCTK_REAL_VEC R4p2331 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331));
-    
-    CCTK_REAL_VEC R4p2332 = 
-      kadd(R2332,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p2333 = R2333;
-    
-    CCTK_REAL_VEC R4p3111 = R3111;
-    
-    CCTK_REAL_VEC R4p3112 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112));
-    
-    CCTK_REAL_VEC R4p3113 = 
-      kadd(R3113,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3121 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121));
-    
-    CCTK_REAL_VEC R4p3122 = R3122;
-    
-    CCTK_REAL_VEC R4p3123 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123));
-    
-    CCTK_REAL_VEC R4p3131 = 
-      kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131));
-    
-    CCTK_REAL_VEC R4p3132 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132));
-    
-    CCTK_REAL_VEC R4p3133 = R3133;
-    
-    CCTK_REAL_VEC R4p3211 = R3211;
-    
-    CCTK_REAL_VEC R4p3212 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212));
-    
-    CCTK_REAL_VEC R4p3213 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213));
-    
-    CCTK_REAL_VEC R4p3221 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221));
-    
-    CCTK_REAL_VEC R4p3222 = R3222;
-    
-    CCTK_REAL_VEC R4p3223 = 
-      kadd(R3223,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3231 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231));
-    
-    CCTK_REAL_VEC R4p3232 = 
-      kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232));
-    
-    CCTK_REAL_VEC R4p3233 = R3233;
-    
-    CCTK_REAL_VEC R4p3311 = R3311;
-    
-    CCTK_REAL_VEC R4p3312 = R3312;
-    
-    CCTK_REAL_VEC R4p3313 = R3313;
-    
-    CCTK_REAL_VEC R4p3321 = R3321;
-    
-    CCTK_REAL_VEC R4p3322 = R3322;
-    
-    CCTK_REAL_VEC R4p3323 = R3323;
-    
-    CCTK_REAL_VEC R4p3331 = R3331;
-    
-    CCTK_REAL_VEC R4p3332 = R3332;
-    
-    CCTK_REAL_VEC R4p3333 = R3333;
-    
     CCTK_REAL_VEC Ro111 = ToReal(0.);
     
     CCTK_REAL_VEC Ro112 = 
@@ -1828,37 +1264,37 @@ static void psi4_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC Ro333 = ToReal(0.);
     
     CCTK_REAL_VEC Rojo11 = 
-      kmadd(gInv11,R1111,kmadd(gInv12,R1112,kmadd(gInv13,R1113,kmadd(gInv21,R1211,kmadd(gInv31,R1311,kmadd(gInv23,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv32,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))))))))));
+      kmadd(kadd(gInv23,gInv32),kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))));
     
     CCTK_REAL_VEC Rojo12 = 
-      kmadd(gInv11,R1121,kmadd(gInv21,R1221,kmadd(gInv22,R1222,kmadd(gInv23,R1223,kmadd(gInv31,R1321,kmadd(gInv12,kadd(R1122,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv32,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1322)),kmadd(gInv13,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1123)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))))));
+      kmadd(gInv23,R1223,knmsub(gInv21,R1212,knmsub(gInv31,R1213,kmadd(gInv12,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv32,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo13 = 
-      kmadd(gInv11,R1131,kmadd(gInv21,R1231,kmadd(gInv31,R1331,kmadd(gInv32,R1332,kmadd(gInv33,R1333,kmadd(gInv12,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1132)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)),kmadd(gInv13,kadd(R1133,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv23,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1233)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv23),kmadd(gInv13,kmul(kxzL,kxzL),knmsub(gInv21,R1213,knmsub(gInv31,R1313,knmsub(gInv32,R1323,kmadd(gInv12,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv23,kmul(kxxL,gInv13))))))))));
     
     CCTK_REAL_VEC Rojo21 = 
-      kmadd(gInv11,R2111,kmadd(gInv12,R2112,kmadd(gInv13,R2113,kmadd(gInv22,R2212,kmadd(gInv32,R2312,kmadd(gInv21,kadd(R2211,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv23,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2213)),kmadd(gInv31,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2311)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)))))))))));
+      kmadd(gInv32,R1223,knmsub(gInv12,R1212,knmsub(gInv13,R1213,kmadd(gInv21,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv23,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo22 = 
-      kmadd(gInv12,R2122,kmadd(gInv21,R2221,kmadd(gInv22,R2222,kmadd(gInv23,R2223,kmadd(gInv32,R2322,kmadd(gInv13,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)),kmadd(gInv31,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))))))))));
+      kmadd(kadd(gInv13,gInv31),kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Rojo23 = 
-      kmadd(gInv12,R2132,kmadd(gInv22,R2232,kmadd(gInv31,R2331,kmadd(gInv32,R2332,kmadd(gInv33,R2333,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)),kmadd(gInv21,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2231)),kmadd(gInv13,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2133)),kmul(gInv23,kadd(R2233,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv12,R1223,knmsub(gInv31,R1323,knmsub(gInv32,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv21,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv23,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo31 = 
-      kmadd(gInv11,R3111,kmadd(gInv12,R3112,kmadd(gInv13,R3113,kmadd(gInv23,R3213,kmadd(gInv33,R3313,kmadd(gInv21,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3211)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)),kmadd(gInv31,kadd(R3311,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv32,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3312)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv32),kmadd(gInv31,kmul(kxzL,kxzL),knmsub(gInv12,R1213,knmsub(gInv13,R1313,knmsub(gInv23,R1323,kmadd(gInv21,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv32,kmul(kxxL,gInv31))))))))));
     
     CCTK_REAL_VEC Rojo32 = 
-      kmadd(gInv13,R3123,kmadd(gInv21,R3221,kmadd(gInv22,R3222,kmadd(gInv23,R3223,kmadd(gInv33,R3323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)),kmadd(gInv12,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3122)),kmadd(gInv31,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3321)),kmul(gInv32,kadd(R3322,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv21,R1223,knmsub(gInv13,R1323,knmsub(gInv23,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv12,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv32,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo33 = 
-      kmadd(gInv13,R3133,kmadd(gInv23,R3233,kmadd(gInv31,R3331,kmadd(gInv32,R3332,kmadd(gInv33,R3333,kmadd(gInv12,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)),kmadd(gInv21,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232)))))))))));
+      kmadd(kadd(gInv12,gInv21),kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Psi4rL = 
-      kmadd(R4p1112,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1211,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1113,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1311,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1312,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p2122,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2221,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2123,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2321,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2223,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2322,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p3132,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3231,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3133,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3331,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3233,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3332,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(n1,kmul(n2,kmul(R4p1121,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p1131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n2,kmul(R4p2111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p2131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p3111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p3121,kmul(rmbar1,rmbar1))),kmadd(R4p1111,kmul(kmul(n1,n1),kmul(rmbar1,rmbar1)),kmadd(R4p2121,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(R4p3131,kmul(kmul(n3,n3),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(n1,kmul(n2,kmul(R4p1222,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n2,kmul(R4p2212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p2232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p3212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p3222,kmul(rmbar2,rmbar2))),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(R4p2222,kmul(kmul(n2,n2),kmul(rmbar2,rmbar2)),kmadd(R4p3232,kmul(kmul(n3,n3),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p2313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p3313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p3323,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),knmsub(n3,kmul(kmul(imbar3,imbar3),kmadd(n1,R4p3313,kmul(n2,R4p2333))),kmadd(kmul(imbar3,imbar3),kmsub(n1,kmul(nn,kmul(Ro313,ToReal(-2.))),kmul(n2,kmul(n3,R4p3323))),kmadd(R4p1313,kmsub(kmul(n1,n1),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n2,n2),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(R4p3333,kmsub(kmul(n3,n3),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n3,n3))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmadd(n3,kmul(R4p1132,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1221,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p1231,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1123,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1331,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2113,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1233,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p1322,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p1332,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p2213,kmul(rmbar2,rmbar3)),kmadd(n2,kmsub(R4p1122,kmul(rmbar1,rmbar2),kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro112,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro113,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro211,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro213,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro311,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro312,ToReal(2.))))))))))))))))))))),kmadd(n2,kmadd(n3,kmul(R4p2132,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p2211,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p2231,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1321,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p2133,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p2311,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p3321,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p1223,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p2233,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p2312,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p2112,kmul(rmbar1,rmbar2),kmul(R4p2313,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro123,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro223,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro322,ToReal(2.))))))))))))))))))))),kmsub(n3,kmadd(n2,kmul(R4p3122,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p3211,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p3221,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1133,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2331,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3113,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p3123,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3311,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2332,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3213,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3223,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3312,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3322,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p3112,kmul(rmbar1,rmbar2),kmul(R4p1333,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro132,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro133,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro231,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro233,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro331,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro332,ToReal(2.)))))))))))))))))))))))),kmadd(kmul(imbar1,imbar1),kmadd(n2,kmul(n3,R4p2131),kmadd(n2,kmul(n3,R4p3121),kmadd(R4p1111,kmul(n1,n1),kmadd(R4p2121,kmul(n2,n2),kmadd(R4p3131,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro121,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1121,R4p2111),kmadd(n3,kadd(R4p1131,R4p3111),kmul(nn,kmul(Ro111,ToReal(2.)))))))))))))),kmadd(kmul(imbar2,imbar2),kmadd(n2,kmul(n3,R4p2232),kmadd(n2,kmul(n3,R4p3222),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2222,kmul(n2,n2),kmadd(R4p3232,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro232,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1222,R4p2212),kmadd(n3,kadd(R4p1232,R4p3212),kmul(nn,kmul(Ro212,ToReal(2.)))))))))))))),kmadd(imbar2,kmul(imbar3,kmadd(kadd(R4p1213,R4p1312),kmul(n1,n1),kmadd(kadd(R4p2223,R4p2322),kmul(n2,n2),kmadd(R4p3233,kmul(n3,n3),kmadd(R4p3332,kmul(n3,n3),kmadd(Rojo23,kmul(nn,nn),kmadd(Rojo32,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro233,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro332,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),kmadd(n3,kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),kmul(nn,kmul(kadd(Ro213,Ro312),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.))))))))))))))),kmul(imbar1,kmadd(imbar2,kmadd(kadd(R4p1112,R4p1211),kmul(n1,n1),kmadd(kadd(R4p2122,R4p2221),kmul(n2,n2),kmadd(R4p3132,kmul(n3,n3),kmadd(R4p3231,kmul(n3,n3),kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),kmadd(n3,kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),kmul(nn,kmul(kadd(Ro112,Ro211),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),kmul(nn,kmul(kadd(Ro122,Ro221),ToReal(2.)))))))))))))),kmul(imbar3,kmadd(kadd(R4p1113,R4p1311),kmul(n1,n1),kmadd(kadd(R4p2123,R4p2321),kmul(n2,n2),kmadd(R4p3133,kmul(n3,n3),kmadd(R4p3331,kmul(n3,n3),kmadd(Rojo13,kmul(nn,nn),kmadd(Rojo31,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro133,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro331,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),kmadd(n3,kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),kmul(nn,kmul(kadd(Ro113,Ro311),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),kmul(nn,kmul(kadd(Ro123,Ro321),ToReal(2.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(R4p1212,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(R4p1313,kmul(kmul(n1,n1),kmul(rmbar3,rmbar3)),kmadd(R4p2323,kmul(kmul(n2,n2),kmul(rmbar3,rmbar3)),kmadd(kmadd(n1,kmul(n2,kmul(R4p1212,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1213,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1313,kmul(rmbar1,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1323,kmul(rmbar2,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2323,kmul(rmbar2,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(imbar3,imbar3))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(imbar3,imbar3))),kmul(R4p1223,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2)))))))))))),ToReal(-2.),kmadd(n1,kmul(n3,kmul(R4p1223,kmul(kmul(rmbar2,rmbar2),ToReal(-2.)))),kmadd(R4p1313,kmsub(kmul(n3,n3),kmul(rmbar1,rmbar1),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n3,n3),kmul(rmbar2,rmbar2),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro112))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro113))),kmadd(n2,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro123))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro132))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro133))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro211))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro213))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro223))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro231))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro233))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro311))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro312))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro322))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro331))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro332))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmul(R4p1323,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3)))))))))))))))))))),ToReal(2.),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),knmsub(kmul(imbar2,imbar2),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2323,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n1,kmul(n3,kmul(R4p1223,ToReal(-2.))),kmadd(n1,kmul(nn,kmul(Ro212,ToReal(2.))),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmul(n3,kmul(nn,kmul(Ro232,ToReal(2.)))))))))),kmadd(n2,kmadd(n1,kmul(R4p1213,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(n3,kmul(R4p1323,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.))),kmadd(n3,kmul(R4p1223,kmul(rmbar1,kmul(rmbar2,ToReal(2.)))),kmadd(n1,kmul(R4p1223,kmul(rmbar2,kmul(rmbar3,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(n3,kmul(R4p1213,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))))))))))),knmsub(kmul(imbar1,imbar1),kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(n2,kmul(kmadd(n3,R4p1213,kmul(nn,Ro121)),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(nn,kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.))))))))),kmsub(imbar1,kmul(imbar3,kmadd(R4p1223,kmul(kmul(n2,n2),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1213,kmsub(n3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),ToReal(2.)),kmsub(n2,kmul(kmsub(n3,R4p1323,kmul(nn,kadd(Ro123,Ro321))),ToReal(2.)),kmul(nn,kmadd(nn,kadd(Rojo13,Rojo31),kmul(n3,kmul(kadd(Ro133,Ro331),ToReal(2.))))))))),kmul(imbar2,kmadd(imbar3,kmadd(R4p1213,kmul(kmul(n1,n1),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1223,kmsub(nn,kadd(Ro213,Ro312),kmul(n3,R4p1323))),ToReal(2.)),kmadd(n2,kmadd(n3,kmul(R4p2323,ToReal(-2.)),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.)))),kmul(nn,kmadd(nn,kadd(Rojo23,Rojo32),kmul(n3,kmul(kadd(Ro233,Ro332),ToReal(2.)))))))),kmul(imbar1,kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n1,kmul(ToReal(-2.),kmadd(n2,R4p1212,kmsub(n3,R4p1213,kmul(nn,kadd(Ro112,Ro211))))),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n2,kmul(kmadd(n3,R4p1223,kmul(nn,kadd(Ro122,Ro221))),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmul(R4p1323,kmul(kmul(n3,n3),ToReal(2.))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi4iL = 
-      knmadd(im1,kmadd(R4p3132,kmul(rm2,kmul(n3,n3)),kmadd(R4p3231,kmul(rm2,kmul(n3,n3)),kmadd(R4p3133,kmul(rm3,kmul(n3,n3)),kmadd(R4p3331,kmul(rm3,kmul(n3,n3)),kmadd(rm2,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro331,ToReal(2.)))),kmadd(R4p3131,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm1,kmul(Rojo11,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm2,kmadd(R4p1211,rm2,kmadd(R4p1113,rm3,kmadd(R4p1311,rm3,kmul(R4p1111,kmul(rm1,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm2,kmadd(R4p2221,rm2,kmadd(R4p2123,rm3,kmadd(R4p2321,rm3,kmul(R4p2121,kmul(rm1,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm2,kmadd(R4p1221,rm2,kmadd(R4p2112,rm2,kmadd(R4p2211,rm2,kmadd(R4p1123,rm3,kmadd(R4p1321,rm3,kmadd(R4p2113,rm3,kmadd(R4p2311,rm3,kmadd(R4p1121,kmul(rm1,ToReal(2.)),kmul(R4p2111,kmul(rm1,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm2,kmadd(R4p1231,rm2,kmadd(R4p3112,rm2,kmadd(R4p3211,rm2,kmadd(R4p1133,rm3,kmadd(R4p1331,rm3,kmadd(R4p3113,rm3,kmadd(R4p3311,rm3,kmadd(R4p1131,kmul(rm1,ToReal(2.)),kmul(R4p3111,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm2,kmadd(R4p2231,rm2,kmadd(R4p3122,rm2,kmadd(R4p3221,rm2,kmadd(R4p2133,rm3,kmadd(R4p2331,rm3,kmadd(R4p3123,rm3,kmadd(R4p3321,rm3,kmadd(R4p2131,kmul(rm1,ToReal(2.)),kmul(R4p3121,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm1,kmul(Ro131,ToReal(4.))))))))))))))))))))))),kmadd(im3,kmadd(R4p3133,kmul(rm1,kmul(n3,n3)),kmadd(R4p3331,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm2,kmul(n3,n3)),kmadd(R4p3332,kmul(rm2,kmul(n3,n3)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(rm1,kmul(Rojo31,kmul(nn,nn)),kmadd(rm2,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro331,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro332,ToReal(2.)))),kmadd(R4p3333,kmul(rm3,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm3,kmul(Rojo33,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1113,rm1,kmadd(R4p1311,rm1,kmadd(R4p1213,rm2,kmadd(R4p1312,rm2,kmul(R4p1313,kmul(rm3,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2123,rm1,kmadd(R4p2321,rm1,kmadd(R4p2223,rm2,kmadd(R4p2322,rm2,kmul(R4p2323,kmul(rm3,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1123,rm1,kmadd(R4p1321,rm1,kmadd(R4p2113,rm1,kmadd(R4p2311,rm1,kmadd(R4p1223,rm2,kmadd(R4p1322,rm2,kmadd(R4p2213,rm2,kmadd(R4p2312,rm2,kmadd(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p2313,kmul(rm3,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1133,rm1,kmadd(R4p1331,rm1,kmadd(R4p3113,rm1,kmadd(R4p3311,rm1,kmadd(R4p1233,rm2,kmadd(R4p1332,rm2,kmadd(R4p3213,rm2,kmadd(R4p3312,rm2,kmadd(R4p1333,kmul(rm3,ToReal(2.)),kmul(R4p3313,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2133,rm1,kmadd(R4p2331,rm1,kmadd(R4p3123,rm1,kmadd(R4p3321,rm1,kmadd(R4p2233,rm2,kmadd(R4p2332,rm2,kmadd(R4p3223,rm2,kmadd(R4p3322,rm2,kmadd(R4p2333,kmul(rm3,ToReal(2.)),kmul(R4p3323,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm3,kmul(Ro333,ToReal(4.))))))))))))))))))))))),kmul(im2,kmadd(R4p3132,kmul(rm1,kmul(n3,n3)),kmadd(R4p3231,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm3,kmul(n3,n3)),kmadd(R4p3332,kmul(rm3,kmul(n3,n3)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(R4p3232,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm1,kmadd(R4p1211,rm1,kmadd(R4p1213,rm3,kmadd(R4p1312,rm3,kmul(R4p1212,kmul(rm2,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm1,kmadd(R4p2221,rm1,kmadd(R4p2223,rm3,kmadd(R4p2322,rm3,kmul(R4p2222,kmul(rm2,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm1,kmadd(R4p1221,rm1,kmadd(R4p2112,rm1,kmadd(R4p2211,rm1,kmadd(R4p1223,rm3,kmadd(R4p1322,rm3,kmadd(R4p2213,rm3,kmadd(R4p2312,rm3,kmadd(R4p1222,kmul(rm2,ToReal(2.)),kmul(R4p2212,kmul(rm2,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm1,kmadd(R4p1231,rm1,kmadd(R4p3112,rm1,kmadd(R4p3211,rm1,kmadd(R4p1233,rm3,kmadd(R4p1332,rm3,kmadd(R4p3213,rm3,kmadd(R4p3312,rm3,kmadd(R4p1232,kmul(rm2,ToReal(2.)),kmul(R4p3212,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm1,kmadd(R4p2231,rm1,kmadd(R4p3122,rm1,kmadd(R4p3221,rm1,kmadd(R4p2233,rm3,kmadd(R4p2332,rm3,kmadd(R4p3223,rm3,kmadd(R4p3322,rm3,kmadd(R4p2232,kmul(rm2,ToReal(2.)),kmul(R4p3222,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))))))))));
+      knmadd(im1,kmadd(kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmul(kmul(n3,n3),ToReal(2.)),kmadd(kmul(n2,n2),kmul(kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),ToReal(2.)),kmadd(n2,kmul(ToReal(2.),knmsub(n1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmadd(n3,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(nn,kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.))))))))),kmadd(n3,kmul(ToReal(2.),kmsub(nn,kmadd(rm2,kadd(Ro132,Ro231),kmadd(rm3,kadd(Ro133,Ro331),kmul(rm1,kmul(Ro131,ToReal(2.))))),kmul(n1,kmadd(R4p1213,rm2,kmul(R4p1313,rm3))))),kmul(nn,kmadd(n1,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.)))))),kmul(nn,kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.)))))))))))),kmadd(im2,kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(R4p1323,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(R4p2323,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(n1,kmul(ToReal(2.),kmadd(n2,kmsub(R4p1223,rm3,kmul(R4p1212,rm1)),kmsub(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))),kmul(n3,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmadd(n3,kmsub(R4p1223,rm1,kmul(R4p2323,rm3)),kmul(nn,kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))),kmul(im3,kmadd(kmadd(R4p1213,rm2,kmul(R4p1313,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(kmul(n2,n2),kmadd(R4p1223,kmul(rm1,ToReal(-2.)),kmul(R4p2323,kmul(rm3,ToReal(2.)))),kmadd(n1,kmul(ToReal(2.),knmsub(n3,kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmadd(n2,kmadd(R4p1223,rm2,kmsub(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p1213,rm1))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmsub(nn,kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.))))),kmul(n3,kmadd(R4p1323,rm1,kmul(R4p2323,rm2))))),kmul(nn,kmadd(n3,kmul(ToReal(2.),kmadd(rm1,kadd(Ro133,Ro331),kmadd(rm2,kadd(Ro233,Ro332),kmul(rm3,kmul(Ro333,ToReal(2.)))))),kmul(nn,kmadd(rm1,kadd(Rojo13,Rojo31),kmadd(rm2,kadd(Rojo23,Rojo32),kmul(rm3,kmul(Rojo33,ToReal(2.)))))))))))))));
     
     /* Copy local copies back to grid functions */
     vec_store_partial_prepare(i,lc_imin,lc_imax);
diff --git a/src/psi4_calc_Nth.cc b/src/psi4_calc_Nth.cc
index 2a1c13c..ce8e619 100644
--- a/src/psi4_calc_Nth.cc
+++ b/src/psi4_calc_Nth.cc
@@ -606,23 +606,14 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     }
     
     /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandard11gxy;
-    CCTK_REAL_VEC JacPDstandard11gxz;
     CCTK_REAL_VEC JacPDstandard11gyy;
     CCTK_REAL_VEC JacPDstandard11gyz;
     CCTK_REAL_VEC JacPDstandard11gzz;
-    CCTK_REAL_VEC JacPDstandard12gxx;
     CCTK_REAL_VEC JacPDstandard12gxy;
     CCTK_REAL_VEC JacPDstandard12gxz;
-    CCTK_REAL_VEC JacPDstandard12gyy;
     CCTK_REAL_VEC JacPDstandard12gyz;
     CCTK_REAL_VEC JacPDstandard12gzz;
-    CCTK_REAL_VEC JacPDstandard13gxx;
-    CCTK_REAL_VEC JacPDstandard13gxy;
     CCTK_REAL_VEC JacPDstandard13gxz;
-    CCTK_REAL_VEC JacPDstandard13gyy;
-    CCTK_REAL_VEC JacPDstandard13gyz;
-    CCTK_REAL_VEC JacPDstandard13gzz;
     CCTK_REAL_VEC JacPDstandard1gxx;
     CCTK_REAL_VEC JacPDstandard1gxy;
     CCTK_REAL_VEC JacPDstandard1gxz;
@@ -634,23 +625,14 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard1kyy;
     CCTK_REAL_VEC JacPDstandard1kyz;
     CCTK_REAL_VEC JacPDstandard1kzz;
-    CCTK_REAL_VEC JacPDstandard21gxx;
     CCTK_REAL_VEC JacPDstandard21gxy;
-    CCTK_REAL_VEC JacPDstandard21gxz;
-    CCTK_REAL_VEC JacPDstandard21gyy;
-    CCTK_REAL_VEC JacPDstandard21gyz;
-    CCTK_REAL_VEC JacPDstandard21gzz;
     CCTK_REAL_VEC JacPDstandard22gxx;
-    CCTK_REAL_VEC JacPDstandard22gxy;
     CCTK_REAL_VEC JacPDstandard22gxz;
-    CCTK_REAL_VEC JacPDstandard22gyz;
     CCTK_REAL_VEC JacPDstandard22gzz;
     CCTK_REAL_VEC JacPDstandard23gxx;
     CCTK_REAL_VEC JacPDstandard23gxy;
     CCTK_REAL_VEC JacPDstandard23gxz;
-    CCTK_REAL_VEC JacPDstandard23gyy;
     CCTK_REAL_VEC JacPDstandard23gyz;
-    CCTK_REAL_VEC JacPDstandard23gzz;
     CCTK_REAL_VEC JacPDstandard2gxx;
     CCTK_REAL_VEC JacPDstandard2gxy;
     CCTK_REAL_VEC JacPDstandard2gxz;
@@ -662,23 +644,14 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard2kxz;
     CCTK_REAL_VEC JacPDstandard2kyz;
     CCTK_REAL_VEC JacPDstandard2kzz;
-    CCTK_REAL_VEC JacPDstandard31gxx;
     CCTK_REAL_VEC JacPDstandard31gxy;
     CCTK_REAL_VEC JacPDstandard31gxz;
     CCTK_REAL_VEC JacPDstandard31gyy;
     CCTK_REAL_VEC JacPDstandard31gyz;
-    CCTK_REAL_VEC JacPDstandard31gzz;
-    CCTK_REAL_VEC JacPDstandard32gxx;
-    CCTK_REAL_VEC JacPDstandard32gxy;
-    CCTK_REAL_VEC JacPDstandard32gxz;
-    CCTK_REAL_VEC JacPDstandard32gyy;
     CCTK_REAL_VEC JacPDstandard32gyz;
-    CCTK_REAL_VEC JacPDstandard32gzz;
     CCTK_REAL_VEC JacPDstandard33gxx;
     CCTK_REAL_VEC JacPDstandard33gxy;
-    CCTK_REAL_VEC JacPDstandard33gxz;
     CCTK_REAL_VEC JacPDstandard33gyy;
-    CCTK_REAL_VEC JacPDstandard33gyz;
     CCTK_REAL_VEC JacPDstandard3gxx;
     CCTK_REAL_VEC JacPDstandard3gxy;
     CCTK_REAL_VEC JacPDstandard3gxz;
@@ -792,12 +765,6 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard3kyz = 
         kmadd(J13L,PDstandard1kyz,kmadd(J23L,PDstandard2kyz,kmul(J33L,PDstandard3kyz)));
       
-      JacPDstandard11gxy = 
-        kmadd(dJ111L,PDstandard1gxy,kmadd(dJ211L,PDstandard2gxy,kmadd(dJ311L,PDstandard3gxy,kmadd(PDstandard11gxy,kmul(J11L,J11L),kmadd(PDstandard22gxy,kmul(J21L,J21L),kmadd(PDstandard33gxy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy)),kmul(J21L,kmul(J31L,PDstandard23gxy))),ToReal(2.))))))));
-      
-      JacPDstandard11gxz = 
-        kmadd(dJ111L,PDstandard1gxz,kmadd(dJ211L,PDstandard2gxz,kmadd(dJ311L,PDstandard3gxz,kmadd(PDstandard11gxz,kmul(J11L,J11L),kmadd(PDstandard22gxz,kmul(J21L,J21L),kmadd(PDstandard33gxz,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard12gxz,kmul(J31L,PDstandard13gxz)),kmul(J21L,kmul(J31L,PDstandard23gxz))),ToReal(2.))))))));
-      
       JacPDstandard11gyy = 
         kmadd(dJ111L,PDstandard1gyy,kmadd(dJ211L,PDstandard2gyy,kmadd(dJ311L,PDstandard3gyy,kmadd(PDstandard11gyy,kmul(J11L,J11L),kmadd(PDstandard22gyy,kmul(J21L,J21L),kmadd(PDstandard33gyy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard12gyy,kmul(J31L,PDstandard13gyy)),kmul(J21L,kmul(J31L,PDstandard23gyy))),ToReal(2.))))))));
       
@@ -810,15 +777,9 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard22gxx = 
         kmadd(dJ122L,PDstandard1gxx,kmadd(dJ222L,PDstandard2gxx,kmadd(dJ322L,PDstandard3gxx,kmadd(PDstandard11gxx,kmul(J12L,J12L),kmadd(PDstandard22gxx,kmul(J22L,J22L),kmadd(PDstandard33gxx,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx)),kmul(J22L,kmul(J32L,PDstandard23gxx))),ToReal(2.))))))));
       
-      JacPDstandard22gxy = 
-        kmadd(dJ122L,PDstandard1gxy,kmadd(dJ222L,PDstandard2gxy,kmadd(dJ322L,PDstandard3gxy,kmadd(PDstandard11gxy,kmul(J12L,J12L),kmadd(PDstandard22gxy,kmul(J22L,J22L),kmadd(PDstandard33gxy,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gxy,kmul(J32L,PDstandard13gxy)),kmul(J22L,kmul(J32L,PDstandard23gxy))),ToReal(2.))))))));
-      
       JacPDstandard22gxz = 
         kmadd(dJ122L,PDstandard1gxz,kmadd(dJ222L,PDstandard2gxz,kmadd(dJ322L,PDstandard3gxz,kmadd(PDstandard11gxz,kmul(J12L,J12L),kmadd(PDstandard22gxz,kmul(J22L,J22L),kmadd(PDstandard33gxz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz)),kmul(J22L,kmul(J32L,PDstandard23gxz))),ToReal(2.))))))));
       
-      JacPDstandard22gyz = 
-        kmadd(dJ122L,PDstandard1gyz,kmadd(dJ222L,PDstandard2gyz,kmadd(dJ322L,PDstandard3gyz,kmadd(PDstandard11gyz,kmul(J12L,J12L),kmadd(PDstandard22gyz,kmul(J22L,J22L),kmadd(PDstandard33gyz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz)),kmul(J22L,kmul(J32L,PDstandard23gyz))),ToReal(2.))))))));
-      
       JacPDstandard22gzz = 
         kmadd(dJ122L,PDstandard1gzz,kmadd(dJ222L,PDstandard2gzz,kmadd(dJ322L,PDstandard3gzz,kmadd(PDstandard11gzz,kmul(J12L,J12L),kmadd(PDstandard22gzz,kmul(J22L,J22L),kmadd(PDstandard33gzz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz)),kmul(J22L,kmul(J32L,PDstandard23gzz))),ToReal(2.))))))));
       
@@ -828,69 +789,27 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard33gxy = 
         kmadd(dJ133L,PDstandard1gxy,kmadd(dJ233L,PDstandard2gxy,kmadd(dJ333L,PDstandard3gxy,kmadd(PDstandard11gxy,kmul(J13L,J13L),kmadd(PDstandard22gxy,kmul(J23L,J23L),kmadd(PDstandard33gxy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard12gxy,kmul(J33L,PDstandard13gxy)),kmul(J23L,kmul(J33L,PDstandard23gxy))),ToReal(2.))))))));
       
-      JacPDstandard33gxz = 
-        kmadd(dJ133L,PDstandard1gxz,kmadd(dJ233L,PDstandard2gxz,kmadd(dJ333L,PDstandard3gxz,kmadd(PDstandard11gxz,kmul(J13L,J13L),kmadd(PDstandard22gxz,kmul(J23L,J23L),kmadd(PDstandard33gxz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard12gxz,kmul(J33L,PDstandard13gxz)),kmul(J23L,kmul(J33L,PDstandard23gxz))),ToReal(2.))))))));
-      
       JacPDstandard33gyy = 
         kmadd(dJ133L,PDstandard1gyy,kmadd(dJ233L,PDstandard2gyy,kmadd(dJ333L,PDstandard3gyy,kmadd(PDstandard11gyy,kmul(J13L,J13L),kmadd(PDstandard22gyy,kmul(J23L,J23L),kmadd(PDstandard33gyy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard12gyy,kmul(J33L,PDstandard13gyy)),kmul(J23L,kmul(J33L,PDstandard23gyy))),ToReal(2.))))))));
       
-      JacPDstandard33gyz = 
-        kmadd(dJ133L,PDstandard1gyz,kmadd(dJ233L,PDstandard2gyz,kmadd(dJ333L,PDstandard3gyz,kmadd(PDstandard11gyz,kmul(J13L,J13L),kmadd(PDstandard22gyz,kmul(J23L,J23L),kmadd(PDstandard33gyz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmul(J23L,kmul(J33L,PDstandard23gyz))),ToReal(2.))))))));
-      
-      JacPDstandard12gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gxx,kmadd(J21L,PDstandard12gxx,kmul(J31L,PDstandard13gxx))),kmadd(J11L,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx)),kmadd(dJ112L,PDstandard1gxx,kmadd(J22L,kmadd(J21L,PDstandard22gxx,kmul(J31L,PDstandard23gxx)),kmadd(dJ212L,PDstandard2gxx,kmadd(J32L,kmadd(J21L,PDstandard23gxx,kmul(J31L,PDstandard33gxx)),kmul(dJ312L,PDstandard3gxx)))))));
-      
       JacPDstandard12gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard11gxy,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy))),kmadd(J11L,kmadd(J22L,PDstandard12gxy,kmul(J32L,PDstandard13gxy)),kmadd(dJ112L,PDstandard1gxy,kmadd(J22L,kmadd(J21L,PDstandard22gxy,kmul(J31L,PDstandard23gxy)),kmadd(dJ212L,PDstandard2gxy,kmadd(J32L,kmadd(J21L,PDstandard23gxy,kmul(J31L,PDstandard33gxy)),kmul(dJ312L,PDstandard3gxy)))))));
       
       JacPDstandard12gxz = 
         kmadd(J12L,kmadd(J11L,PDstandard11gxz,kmadd(J21L,PDstandard12gxz,kmul(J31L,PDstandard13gxz))),kmadd(J11L,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz)),kmadd(dJ112L,PDstandard1gxz,kmadd(J22L,kmadd(J21L,PDstandard22gxz,kmul(J31L,PDstandard23gxz)),kmadd(dJ212L,PDstandard2gxz,kmadd(J32L,kmadd(J21L,PDstandard23gxz,kmul(J31L,PDstandard33gxz)),kmul(dJ312L,PDstandard3gxz)))))));
       
-      JacPDstandard12gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gyy,kmadd(J21L,PDstandard12gyy,kmul(J31L,PDstandard13gyy))),kmadd(J11L,kmadd(J22L,PDstandard12gyy,kmul(J32L,PDstandard13gyy)),kmadd(dJ112L,PDstandard1gyy,kmadd(J22L,kmadd(J21L,PDstandard22gyy,kmul(J31L,PDstandard23gyy)),kmadd(dJ212L,PDstandard2gyy,kmadd(J32L,kmadd(J21L,PDstandard23gyy,kmul(J31L,PDstandard33gyy)),kmul(dJ312L,PDstandard3gyy)))))));
-      
       JacPDstandard12gyz = 
         kmadd(J12L,kmadd(J11L,PDstandard11gyz,kmadd(J21L,PDstandard12gyz,kmul(J31L,PDstandard13gyz))),kmadd(J11L,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz)),kmadd(dJ112L,PDstandard1gyz,kmadd(J22L,kmadd(J21L,PDstandard22gyz,kmul(J31L,PDstandard23gyz)),kmadd(dJ212L,PDstandard2gyz,kmadd(J32L,kmadd(J21L,PDstandard23gyz,kmul(J31L,PDstandard33gyz)),kmul(dJ312L,PDstandard3gyz)))))));
       
       JacPDstandard12gzz = 
         kmadd(J12L,kmadd(J11L,PDstandard11gzz,kmadd(J21L,PDstandard12gzz,kmul(J31L,PDstandard13gzz))),kmadd(J11L,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz)),kmadd(dJ112L,PDstandard1gzz,kmadd(J22L,kmadd(J21L,PDstandard22gzz,kmul(J31L,PDstandard23gzz)),kmadd(dJ212L,PDstandard2gzz,kmadd(J32L,kmadd(J21L,PDstandard23gzz,kmul(J31L,PDstandard33gzz)),kmul(dJ312L,PDstandard3gzz)))))));
       
-      JacPDstandard13gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gxx,kmadd(J21L,PDstandard12gxx,kmul(J31L,PDstandard13gxx))),kmadd(J11L,kmadd(J23L,PDstandard12gxx,kmul(J33L,PDstandard13gxx)),kmadd(dJ113L,PDstandard1gxx,kmadd(J23L,kmadd(J21L,PDstandard22gxx,kmul(J31L,PDstandard23gxx)),kmadd(dJ213L,PDstandard2gxx,kmadd(J33L,kmadd(J21L,PDstandard23gxx,kmul(J31L,PDstandard33gxx)),kmul(dJ313L,PDstandard3gxx)))))));
-      
-      JacPDstandard13gxy = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gxy,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy))),kmadd(J11L,kmadd(J23L,PDstandard12gxy,kmul(J33L,PDstandard13gxy)),kmadd(dJ113L,PDstandard1gxy,kmadd(J23L,kmadd(J21L,PDstandard22gxy,kmul(J31L,PDstandard23gxy)),kmadd(dJ213L,PDstandard2gxy,kmadd(J33L,kmadd(J21L,PDstandard23gxy,kmul(J31L,PDstandard33gxy)),kmul(dJ313L,PDstandard3gxy)))))));
-      
       JacPDstandard13gxz = 
         kmadd(J13L,kmadd(J11L,PDstandard11gxz,kmadd(J21L,PDstandard12gxz,kmul(J31L,PDstandard13gxz))),kmadd(J11L,kmadd(J23L,PDstandard12gxz,kmul(J33L,PDstandard13gxz)),kmadd(dJ113L,PDstandard1gxz,kmadd(J23L,kmadd(J21L,PDstandard22gxz,kmul(J31L,PDstandard23gxz)),kmadd(dJ213L,PDstandard2gxz,kmadd(J33L,kmadd(J21L,PDstandard23gxz,kmul(J31L,PDstandard33gxz)),kmul(dJ313L,PDstandard3gxz)))))));
       
-      JacPDstandard13gyy = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gyy,kmadd(J21L,PDstandard12gyy,kmul(J31L,PDstandard13gyy))),kmadd(J11L,kmadd(J23L,PDstandard12gyy,kmul(J33L,PDstandard13gyy)),kmadd(dJ113L,PDstandard1gyy,kmadd(J23L,kmadd(J21L,PDstandard22gyy,kmul(J31L,PDstandard23gyy)),kmadd(dJ213L,PDstandard2gyy,kmadd(J33L,kmadd(J21L,PDstandard23gyy,kmul(J31L,PDstandard33gyy)),kmul(dJ313L,PDstandard3gyy)))))));
-      
-      JacPDstandard13gyz = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gyz,kmadd(J21L,PDstandard12gyz,kmul(J31L,PDstandard13gyz))),kmadd(J11L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmadd(dJ113L,PDstandard1gyz,kmadd(J23L,kmadd(J21L,PDstandard22gyz,kmul(J31L,PDstandard23gyz)),kmadd(dJ213L,PDstandard2gyz,kmadd(J33L,kmadd(J21L,PDstandard23gyz,kmul(J31L,PDstandard33gyz)),kmul(dJ313L,PDstandard3gyz)))))));
-      
-      JacPDstandard13gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gzz,kmadd(J21L,PDstandard12gzz,kmul(J31L,PDstandard13gzz))),kmadd(J11L,kmadd(J23L,PDstandard12gzz,kmul(J33L,PDstandard13gzz)),kmadd(dJ113L,PDstandard1gzz,kmadd(J23L,kmadd(J21L,PDstandard22gzz,kmul(J31L,PDstandard23gzz)),kmadd(dJ213L,PDstandard2gzz,kmadd(J33L,kmadd(J21L,PDstandard23gzz,kmul(J31L,PDstandard33gzz)),kmul(dJ313L,PDstandard3gzz)))))));
-      
-      JacPDstandard21gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gxx,kmadd(J21L,PDstandard12gxx,kmul(J31L,PDstandard13gxx))),kmadd(J11L,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx)),kmadd(dJ112L,PDstandard1gxx,kmadd(J22L,kmadd(J21L,PDstandard22gxx,kmul(J31L,PDstandard23gxx)),kmadd(dJ212L,PDstandard2gxx,kmadd(J32L,kmadd(J21L,PDstandard23gxx,kmul(J31L,PDstandard33gxx)),kmul(dJ312L,PDstandard3gxx)))))));
-      
       JacPDstandard21gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard11gxy,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy))),kmadd(J11L,kmadd(J22L,PDstandard12gxy,kmul(J32L,PDstandard13gxy)),kmadd(dJ112L,PDstandard1gxy,kmadd(J22L,kmadd(J21L,PDstandard22gxy,kmul(J31L,PDstandard23gxy)),kmadd(dJ212L,PDstandard2gxy,kmadd(J32L,kmadd(J21L,PDstandard23gxy,kmul(J31L,PDstandard33gxy)),kmul(dJ312L,PDstandard3gxy)))))));
       
-      JacPDstandard21gxz = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gxz,kmadd(J21L,PDstandard12gxz,kmul(J31L,PDstandard13gxz))),kmadd(J11L,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz)),kmadd(dJ112L,PDstandard1gxz,kmadd(J22L,kmadd(J21L,PDstandard22gxz,kmul(J31L,PDstandard23gxz)),kmadd(dJ212L,PDstandard2gxz,kmadd(J32L,kmadd(J21L,PDstandard23gxz,kmul(J31L,PDstandard33gxz)),kmul(dJ312L,PDstandard3gxz)))))));
-      
-      JacPDstandard21gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gyy,kmadd(J21L,PDstandard12gyy,kmul(J31L,PDstandard13gyy))),kmadd(J11L,kmadd(J22L,PDstandard12gyy,kmul(J32L,PDstandard13gyy)),kmadd(dJ112L,PDstandard1gyy,kmadd(J22L,kmadd(J21L,PDstandard22gyy,kmul(J31L,PDstandard23gyy)),kmadd(dJ212L,PDstandard2gyy,kmadd(J32L,kmadd(J21L,PDstandard23gyy,kmul(J31L,PDstandard33gyy)),kmul(dJ312L,PDstandard3gyy)))))));
-      
-      JacPDstandard21gyz = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gyz,kmadd(J21L,PDstandard12gyz,kmul(J31L,PDstandard13gyz))),kmadd(J11L,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz)),kmadd(dJ112L,PDstandard1gyz,kmadd(J22L,kmadd(J21L,PDstandard22gyz,kmul(J31L,PDstandard23gyz)),kmadd(dJ212L,PDstandard2gyz,kmadd(J32L,kmadd(J21L,PDstandard23gyz,kmul(J31L,PDstandard33gyz)),kmul(dJ312L,PDstandard3gyz)))))));
-      
-      JacPDstandard21gzz = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gzz,kmadd(J21L,PDstandard12gzz,kmul(J31L,PDstandard13gzz))),kmadd(J11L,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz)),kmadd(dJ112L,PDstandard1gzz,kmadd(J22L,kmadd(J21L,PDstandard22gzz,kmul(J31L,PDstandard23gzz)),kmadd(dJ212L,PDstandard2gzz,kmadd(J32L,kmadd(J21L,PDstandard23gzz,kmul(J31L,PDstandard33gzz)),kmul(dJ312L,PDstandard3gzz)))))));
-      
       JacPDstandard23gxx = 
         kmadd(J13L,kmadd(J12L,PDstandard11gxx,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx))),kmadd(J12L,kmadd(J23L,PDstandard12gxx,kmul(J33L,PDstandard13gxx)),kmadd(dJ123L,PDstandard1gxx,kmadd(J23L,kmadd(J22L,PDstandard22gxx,kmul(J32L,PDstandard23gxx)),kmadd(dJ223L,PDstandard2gxx,kmadd(J33L,kmadd(J22L,PDstandard23gxx,kmul(J32L,PDstandard33gxx)),kmul(dJ323L,PDstandard3gxx)))))));
       
@@ -900,18 +819,9 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard23gxz = 
         kmadd(J13L,kmadd(J12L,PDstandard11gxz,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz))),kmadd(J12L,kmadd(J23L,PDstandard12gxz,kmul(J33L,PDstandard13gxz)),kmadd(dJ123L,PDstandard1gxz,kmadd(J23L,kmadd(J22L,PDstandard22gxz,kmul(J32L,PDstandard23gxz)),kmadd(dJ223L,PDstandard2gxz,kmadd(J33L,kmadd(J22L,PDstandard23gxz,kmul(J32L,PDstandard33gxz)),kmul(dJ323L,PDstandard3gxz)))))));
       
-      JacPDstandard23gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gyy,kmadd(J22L,PDstandard12gyy,kmul(J32L,PDstandard13gyy))),kmadd(J12L,kmadd(J23L,PDstandard12gyy,kmul(J33L,PDstandard13gyy)),kmadd(dJ123L,PDstandard1gyy,kmadd(J23L,kmadd(J22L,PDstandard22gyy,kmul(J32L,PDstandard23gyy)),kmadd(dJ223L,PDstandard2gyy,kmadd(J33L,kmadd(J22L,PDstandard23gyy,kmul(J32L,PDstandard33gyy)),kmul(dJ323L,PDstandard3gyy)))))));
-      
       JacPDstandard23gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard11gyz,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz))),kmadd(J12L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmadd(dJ123L,PDstandard1gyz,kmadd(J23L,kmadd(J22L,PDstandard22gyz,kmul(J32L,PDstandard23gyz)),kmadd(dJ223L,PDstandard2gyz,kmadd(J33L,kmadd(J22L,PDstandard23gyz,kmul(J32L,PDstandard33gyz)),kmul(dJ323L,PDstandard3gyz)))))));
       
-      JacPDstandard23gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gzz,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz))),kmadd(J12L,kmadd(J23L,PDstandard12gzz,kmul(J33L,PDstandard13gzz)),kmadd(dJ123L,PDstandard1gzz,kmadd(J23L,kmadd(J22L,PDstandard22gzz,kmul(J32L,PDstandard23gzz)),kmadd(dJ223L,PDstandard2gzz,kmadd(J33L,kmadd(J22L,PDstandard23gzz,kmul(J32L,PDstandard33gzz)),kmul(dJ323L,PDstandard3gzz)))))));
-      
-      JacPDstandard31gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gxx,kmadd(J21L,PDstandard12gxx,kmul(J31L,PDstandard13gxx))),kmadd(J11L,kmadd(J23L,PDstandard12gxx,kmul(J33L,PDstandard13gxx)),kmadd(dJ113L,PDstandard1gxx,kmadd(J23L,kmadd(J21L,PDstandard22gxx,kmul(J31L,PDstandard23gxx)),kmadd(dJ213L,PDstandard2gxx,kmadd(J33L,kmadd(J21L,PDstandard23gxx,kmul(J31L,PDstandard33gxx)),kmul(dJ313L,PDstandard3gxx)))))));
-      
       JacPDstandard31gxy = 
         kmadd(J13L,kmadd(J11L,PDstandard11gxy,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy))),kmadd(J11L,kmadd(J23L,PDstandard12gxy,kmul(J33L,PDstandard13gxy)),kmadd(dJ113L,PDstandard1gxy,kmadd(J23L,kmadd(J21L,PDstandard22gxy,kmul(J31L,PDstandard23gxy)),kmadd(dJ213L,PDstandard2gxy,kmadd(J33L,kmadd(J21L,PDstandard23gxy,kmul(J31L,PDstandard33gxy)),kmul(dJ313L,PDstandard3gxy)))))));
       
@@ -924,26 +834,8 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard31gyz = 
         kmadd(J13L,kmadd(J11L,PDstandard11gyz,kmadd(J21L,PDstandard12gyz,kmul(J31L,PDstandard13gyz))),kmadd(J11L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmadd(dJ113L,PDstandard1gyz,kmadd(J23L,kmadd(J21L,PDstandard22gyz,kmul(J31L,PDstandard23gyz)),kmadd(dJ213L,PDstandard2gyz,kmadd(J33L,kmadd(J21L,PDstandard23gyz,kmul(J31L,PDstandard33gyz)),kmul(dJ313L,PDstandard3gyz)))))));
       
-      JacPDstandard31gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gzz,kmadd(J21L,PDstandard12gzz,kmul(J31L,PDstandard13gzz))),kmadd(J11L,kmadd(J23L,PDstandard12gzz,kmul(J33L,PDstandard13gzz)),kmadd(dJ113L,PDstandard1gzz,kmadd(J23L,kmadd(J21L,PDstandard22gzz,kmul(J31L,PDstandard23gzz)),kmadd(dJ213L,PDstandard2gzz,kmadd(J33L,kmadd(J21L,PDstandard23gzz,kmul(J31L,PDstandard33gzz)),kmul(dJ313L,PDstandard3gzz)))))));
-      
-      JacPDstandard32gxx = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gxx,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx))),kmadd(J12L,kmadd(J23L,PDstandard12gxx,kmul(J33L,PDstandard13gxx)),kmadd(dJ123L,PDstandard1gxx,kmadd(J23L,kmadd(J22L,PDstandard22gxx,kmul(J32L,PDstandard23gxx)),kmadd(dJ223L,PDstandard2gxx,kmadd(J33L,kmadd(J22L,PDstandard23gxx,kmul(J32L,PDstandard33gxx)),kmul(dJ323L,PDstandard3gxx)))))));
-      
-      JacPDstandard32gxy = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gxy,kmadd(J22L,PDstandard12gxy,kmul(J32L,PDstandard13gxy))),kmadd(J12L,kmadd(J23L,PDstandard12gxy,kmul(J33L,PDstandard13gxy)),kmadd(dJ123L,PDstandard1gxy,kmadd(J23L,kmadd(J22L,PDstandard22gxy,kmul(J32L,PDstandard23gxy)),kmadd(dJ223L,PDstandard2gxy,kmadd(J33L,kmadd(J22L,PDstandard23gxy,kmul(J32L,PDstandard33gxy)),kmul(dJ323L,PDstandard3gxy)))))));
-      
-      JacPDstandard32gxz = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gxz,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz))),kmadd(J12L,kmadd(J23L,PDstandard12gxz,kmul(J33L,PDstandard13gxz)),kmadd(dJ123L,PDstandard1gxz,kmadd(J23L,kmadd(J22L,PDstandard22gxz,kmul(J32L,PDstandard23gxz)),kmadd(dJ223L,PDstandard2gxz,kmadd(J33L,kmadd(J22L,PDstandard23gxz,kmul(J32L,PDstandard33gxz)),kmul(dJ323L,PDstandard3gxz)))))));
-      
-      JacPDstandard32gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gyy,kmadd(J22L,PDstandard12gyy,kmul(J32L,PDstandard13gyy))),kmadd(J12L,kmadd(J23L,PDstandard12gyy,kmul(J33L,PDstandard13gyy)),kmadd(dJ123L,PDstandard1gyy,kmadd(J23L,kmadd(J22L,PDstandard22gyy,kmul(J32L,PDstandard23gyy)),kmadd(dJ223L,PDstandard2gyy,kmadd(J33L,kmadd(J22L,PDstandard23gyy,kmul(J32L,PDstandard33gyy)),kmul(dJ323L,PDstandard3gyy)))))));
-      
       JacPDstandard32gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard11gyz,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz))),kmadd(J12L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmadd(dJ123L,PDstandard1gyz,kmadd(J23L,kmadd(J22L,PDstandard22gyz,kmul(J32L,PDstandard23gyz)),kmadd(dJ223L,PDstandard2gyz,kmadd(J33L,kmadd(J22L,PDstandard23gyz,kmul(J32L,PDstandard33gyz)),kmul(dJ323L,PDstandard3gyz)))))));
-      
-      JacPDstandard32gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gzz,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz))),kmadd(J12L,kmadd(J23L,PDstandard12gzz,kmul(J33L,PDstandard13gzz)),kmadd(dJ123L,PDstandard1gzz,kmadd(J23L,kmadd(J22L,PDstandard22gzz,kmul(J32L,PDstandard23gzz)),kmadd(dJ223L,PDstandard2gzz,kmadd(J33L,kmadd(J22L,PDstandard23gzz,kmul(J32L,PDstandard33gzz)),kmul(dJ323L,PDstandard3gzz)))))));
     }
     else
     {
@@ -1013,10 +905,6 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard3kyz = PDstandard3kyz;
       
-      JacPDstandard11gxy = PDstandard11gxy;
-      
-      JacPDstandard11gxz = PDstandard11gxz;
-      
       JacPDstandard11gyy = PDstandard11gyy;
       
       JacPDstandard11gyz = PDstandard11gyz;
@@ -1025,74 +913,36 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard22gxx = PDstandard22gxx;
       
-      JacPDstandard22gxy = PDstandard22gxy;
-      
       JacPDstandard22gxz = PDstandard22gxz;
       
-      JacPDstandard22gyz = PDstandard22gyz;
-      
       JacPDstandard22gzz = PDstandard22gzz;
       
       JacPDstandard33gxx = PDstandard33gxx;
       
       JacPDstandard33gxy = PDstandard33gxy;
       
-      JacPDstandard33gxz = PDstandard33gxz;
-      
       JacPDstandard33gyy = PDstandard33gyy;
       
-      JacPDstandard33gyz = PDstandard33gyz;
-      
-      JacPDstandard12gxx = PDstandard12gxx;
-      
       JacPDstandard12gxy = PDstandard12gxy;
       
       JacPDstandard12gxz = PDstandard12gxz;
       
-      JacPDstandard12gyy = PDstandard12gyy;
-      
       JacPDstandard12gyz = PDstandard12gyz;
       
       JacPDstandard12gzz = PDstandard12gzz;
       
-      JacPDstandard13gxx = PDstandard13gxx;
-      
-      JacPDstandard13gxy = PDstandard13gxy;
-      
       JacPDstandard13gxz = PDstandard13gxz;
       
-      JacPDstandard13gyy = PDstandard13gyy;
-      
-      JacPDstandard13gyz = PDstandard13gyz;
-      
-      JacPDstandard13gzz = PDstandard13gzz;
-      
-      JacPDstandard21gxx = PDstandard12gxx;
-      
       JacPDstandard21gxy = PDstandard12gxy;
       
-      JacPDstandard21gxz = PDstandard12gxz;
-      
-      JacPDstandard21gyy = PDstandard12gyy;
-      
-      JacPDstandard21gyz = PDstandard12gyz;
-      
-      JacPDstandard21gzz = PDstandard12gzz;
-      
       JacPDstandard23gxx = PDstandard23gxx;
       
       JacPDstandard23gxy = PDstandard23gxy;
       
       JacPDstandard23gxz = PDstandard23gxz;
       
-      JacPDstandard23gyy = PDstandard23gyy;
-      
       JacPDstandard23gyz = PDstandard23gyz;
       
-      JacPDstandard23gzz = PDstandard23gzz;
-      
-      JacPDstandard31gxx = PDstandard13gxx;
-      
       JacPDstandard31gxy = PDstandard13gxy;
       
       JacPDstandard31gxz = PDstandard13gxz;
@@ -1101,19 +951,7 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard31gyz = PDstandard13gyz;
       
-      JacPDstandard31gzz = PDstandard13gzz;
-      
-      JacPDstandard32gxx = PDstandard23gxx;
-      
-      JacPDstandard32gxy = PDstandard23gxy;
-      
-      JacPDstandard32gxz = PDstandard23gxz;
-      
-      JacPDstandard32gyy = PDstandard23gyy;
-      
       JacPDstandard32gyz = PDstandard23gyz;
-      
-      JacPDstandard32gzz = PDstandard23gzz;
     }
     
     CCTK_REAL_VEC detg = 
@@ -1317,438 +1155,42 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     
     CCTK_REAL_VEC nn = isqrt2;
     
-    CCTK_REAL_VEC R1111 = ToReal(0.);
-    
-    CCTK_REAL_VEC R1112 = 
-      kmul(ksub(JacPDstandard21gxx,JacPDstandard12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1113 = 
-      kmul(ksub(JacPDstandard31gxx,JacPDstandard13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1121 = 
-      kmul(ksub(JacPDstandard21gxx,JacPDstandard12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1122 = ksub(JacPDstandard21gxy,JacPDstandard12gxy);
-    
-    CCTK_REAL_VEC R1123 = 
-      kmul(kadd(JacPDstandard21gxz,ksub(JacPDstandard31gxy,kadd(JacPDstandard13gxy,JacPDstandard12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1131 = 
-      kmul(ksub(JacPDstandard31gxx,JacPDstandard13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1132 = 
-      kmul(kadd(JacPDstandard21gxz,ksub(JacPDstandard31gxy,kadd(JacPDstandard13gxy,JacPDstandard12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1133 = ksub(JacPDstandard31gxz,JacPDstandard13gxz);
-    
-    CCTK_REAL_VEC R1211 = 
-      kmul(ksub(JacPDstandard12gxx,JacPDstandard21gxx),ToReal(0.5));
-    
     CCTK_REAL_VEC R1212 = 
       kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard22gxx),JacPDstandard11gyy)))));
     
     CCTK_REAL_VEC R1213 = 
       kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard23gxx),JacPDstandard11gyz))))));
     
-    CCTK_REAL_VEC R1221 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard21gxy),JacPDstandard12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R1222 = 
-      kmul(ksub(JacPDstandard21gyy,JacPDstandard12gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R1223 = 
       kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard23gxy),JacPDstandard12gyz))))));
     
-    CCTK_REAL_VEC R1231 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1232 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1233 = 
-      kmul(kadd(JacPDstandard31gyz,ksub(JacPDstandard32gxz,kadd(JacPDstandard23gxz,JacPDstandard13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1311 = 
-      kmul(ksub(JacPDstandard13gxx,JacPDstandard31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1312 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard32gxx),JacPDstandard11gyz))))));
-    
     CCTK_REAL_VEC R1313 = 
       kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard33gxx),JacPDstandard11gzz)))));
     
-    CCTK_REAL_VEC R1321 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1322 = 
-      kmul(kadd(JacPDstandard21gyz,ksub(JacPDstandard23gxy,kadd(JacPDstandard32gxy,JacPDstandard12gyz))),ToReal(0.5));
-    
     CCTK_REAL_VEC R1323 = 
       kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard33gxy),JacPDstandard12gzz))))));
     
-    CCTK_REAL_VEC R1331 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard31gxz),JacPDstandard13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R1332 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R1333 = 
-      kmul(ksub(JacPDstandard31gzz,JacPDstandard13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2111 = 
-      kmul(ksub(JacPDstandard12gxx,JacPDstandard21gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard21gxy),JacPDstandard12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R2113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2121 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard22gxx),JacPDstandard11gyy)))));
-    
-    CCTK_REAL_VEC R2122 = 
-      kmul(ksub(JacPDstandard21gyy,JacPDstandard12gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2131 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard23gxx),JacPDstandard11gyz))))));
-    
-    CCTK_REAL_VEC R2132 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard23gxy),JacPDstandard12gyz))))));
-    
-    CCTK_REAL_VEC R2133 = 
-      kmul(kadd(JacPDstandard31gyz,ksub(JacPDstandard32gxz,kadd(JacPDstandard23gxz,JacPDstandard13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2211 = ksub(JacPDstandard12gxy,JacPDstandard21gxy);
-    
-    CCTK_REAL_VEC R2212 = 
-      kmul(ksub(JacPDstandard12gyy,JacPDstandard21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2213 = 
-      kmul(kadd(JacPDstandard12gyz,ksub(JacPDstandard32gxy,kadd(JacPDstandard23gxy,JacPDstandard21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2221 = 
-      kmul(ksub(JacPDstandard12gyy,JacPDstandard21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2222 = ToReal(0.);
-    
-    CCTK_REAL_VEC R2223 = 
-      kmul(ksub(JacPDstandard32gyy,JacPDstandard23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2231 = 
-      kmul(kadd(JacPDstandard12gyz,ksub(JacPDstandard32gxy,kadd(JacPDstandard23gxy,JacPDstandard21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2232 = 
-      kmul(ksub(JacPDstandard32gyy,JacPDstandard23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2233 = ksub(JacPDstandard32gyz,JacPDstandard23gyz);
-    
-    CCTK_REAL_VEC R2311 = 
-      kmul(kadd(JacPDstandard12gxz,ksub(JacPDstandard13gxy,kadd(JacPDstandard31gxy,JacPDstandard21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2312 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard32gxy),JacPDstandard21gyz))))));
-    
-    CCTK_REAL_VEC R2313 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard33gxy),JacPDstandard21gzz))))));
-    
-    CCTK_REAL_VEC R2321 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2322 = 
-      kmul(ksub(JacPDstandard23gyy,JacPDstandard32gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R2323 = 
       kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard33gyy),JacPDstandard22gzz)))));
     
-    CCTK_REAL_VEC R2331 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R2332 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard32gyz),JacPDstandard23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R2333 = 
-      kmul(ksub(JacPDstandard32gzz,JacPDstandard23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3111 = 
-      kmul(ksub(JacPDstandard13gxx,JacPDstandard31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard31gxz),JacPDstandard13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R3121 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard32gxx),JacPDstandard11gyz))))));
-    
-    CCTK_REAL_VEC R3122 = 
-      kmul(kadd(JacPDstandard21gyz,ksub(JacPDstandard23gxy,kadd(JacPDstandard32gxy,JacPDstandard12gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3131 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard33gxx),JacPDstandard11gzz)))));
-    
-    CCTK_REAL_VEC R3132 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard33gxy),JacPDstandard12gzz))))));
-    
-    CCTK_REAL_VEC R3133 = 
-      kmul(ksub(JacPDstandard31gzz,JacPDstandard13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3211 = 
-      kmul(kadd(JacPDstandard12gxz,ksub(JacPDstandard13gxy,kadd(JacPDstandard31gxy,JacPDstandard21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3212 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3213 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3221 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard32gxy),JacPDstandard21gyz))))));
-    
-    CCTK_REAL_VEC R3222 = 
-      kmul(ksub(JacPDstandard23gyy,JacPDstandard32gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3223 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard32gyz),JacPDstandard23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R3231 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard33gxy),JacPDstandard21gzz))))));
-    
-    CCTK_REAL_VEC R3232 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard33gyy),JacPDstandard22gzz)))));
-    
-    CCTK_REAL_VEC R3233 = 
-      kmul(ksub(JacPDstandard32gzz,JacPDstandard23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3311 = ksub(JacPDstandard13gxz,JacPDstandard31gxz);
-    
-    CCTK_REAL_VEC R3312 = 
-      kmul(kadd(JacPDstandard13gyz,ksub(JacPDstandard23gxz,kadd(JacPDstandard32gxz,JacPDstandard31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3313 = 
-      kmul(ksub(JacPDstandard13gzz,JacPDstandard31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3321 = 
-      kmul(kadd(JacPDstandard13gyz,ksub(JacPDstandard23gxz,kadd(JacPDstandard32gxz,JacPDstandard31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3322 = ksub(JacPDstandard23gyz,JacPDstandard32gyz);
-    
-    CCTK_REAL_VEC R3323 = 
-      kmul(ksub(JacPDstandard23gzz,JacPDstandard32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3331 = 
-      kmul(ksub(JacPDstandard13gzz,JacPDstandard31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3332 = 
-      kmul(ksub(JacPDstandard23gzz,JacPDstandard32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3333 = ToReal(0.);
-    
-    CCTK_REAL_VEC R4p1111 = R1111;
-    
-    CCTK_REAL_VEC R4p1112 = R1112;
-    
-    CCTK_REAL_VEC R4p1113 = R1113;
-    
-    CCTK_REAL_VEC R4p1121 = R1121;
-    
-    CCTK_REAL_VEC R4p1122 = R1122;
-    
-    CCTK_REAL_VEC R4p1123 = R1123;
-    
-    CCTK_REAL_VEC R4p1131 = R1131;
-    
-    CCTK_REAL_VEC R4p1132 = R1132;
-    
-    CCTK_REAL_VEC R4p1133 = R1133;
-    
-    CCTK_REAL_VEC R4p1211 = R1211;
-    
     CCTK_REAL_VEC R4p1212 = 
       kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212));
     
     CCTK_REAL_VEC R4p1213 = 
       kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213));
     
-    CCTK_REAL_VEC R4p1221 = 
-      kadd(R1221,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p1222 = R1222;
-    
     CCTK_REAL_VEC R4p1223 = 
       kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223));
     
-    CCTK_REAL_VEC R4p1231 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231));
-    
-    CCTK_REAL_VEC R4p1232 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232));
-    
-    CCTK_REAL_VEC R4p1233 = R1233;
-    
-    CCTK_REAL_VEC R4p1311 = R1311;
-    
-    CCTK_REAL_VEC R4p1312 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312));
-    
     CCTK_REAL_VEC R4p1313 = 
       kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313));
     
-    CCTK_REAL_VEC R4p1321 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321));
-    
-    CCTK_REAL_VEC R4p1322 = R1322;
-    
     CCTK_REAL_VEC R4p1323 = 
       kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323));
     
-    CCTK_REAL_VEC R4p1331 = 
-      kadd(R1331,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p1332 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332));
-    
-    CCTK_REAL_VEC R4p1333 = R1333;
-    
-    CCTK_REAL_VEC R4p2111 = R2111;
-    
-    CCTK_REAL_VEC R4p2112 = 
-      kadd(R2112,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p2113 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113));
-    
-    CCTK_REAL_VEC R4p2121 = 
-      kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121));
-    
-    CCTK_REAL_VEC R4p2122 = R2122;
-    
-    CCTK_REAL_VEC R4p2123 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123));
-    
-    CCTK_REAL_VEC R4p2131 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131));
-    
-    CCTK_REAL_VEC R4p2132 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132));
-    
-    CCTK_REAL_VEC R4p2133 = R2133;
-    
-    CCTK_REAL_VEC R4p2211 = R2211;
-    
-    CCTK_REAL_VEC R4p2212 = R2212;
-    
-    CCTK_REAL_VEC R4p2213 = R2213;
-    
-    CCTK_REAL_VEC R4p2221 = R2221;
-    
-    CCTK_REAL_VEC R4p2222 = R2222;
-    
-    CCTK_REAL_VEC R4p2223 = R2223;
-    
-    CCTK_REAL_VEC R4p2231 = R2231;
-    
-    CCTK_REAL_VEC R4p2232 = R2232;
-    
-    CCTK_REAL_VEC R4p2233 = R2233;
-    
-    CCTK_REAL_VEC R4p2311 = R2311;
-    
-    CCTK_REAL_VEC R4p2312 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312));
-    
-    CCTK_REAL_VEC R4p2313 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313));
-    
-    CCTK_REAL_VEC R4p2321 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321));
-    
-    CCTK_REAL_VEC R4p2322 = R2322;
-    
     CCTK_REAL_VEC R4p2323 = 
       kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323));
     
-    CCTK_REAL_VEC R4p2331 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331));
-    
-    CCTK_REAL_VEC R4p2332 = 
-      kadd(R2332,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p2333 = R2333;
-    
-    CCTK_REAL_VEC R4p3111 = R3111;
-    
-    CCTK_REAL_VEC R4p3112 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112));
-    
-    CCTK_REAL_VEC R4p3113 = 
-      kadd(R3113,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3121 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121));
-    
-    CCTK_REAL_VEC R4p3122 = R3122;
-    
-    CCTK_REAL_VEC R4p3123 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123));
-    
-    CCTK_REAL_VEC R4p3131 = 
-      kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131));
-    
-    CCTK_REAL_VEC R4p3132 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132));
-    
-    CCTK_REAL_VEC R4p3133 = R3133;
-    
-    CCTK_REAL_VEC R4p3211 = R3211;
-    
-    CCTK_REAL_VEC R4p3212 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212));
-    
-    CCTK_REAL_VEC R4p3213 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213));
-    
-    CCTK_REAL_VEC R4p3221 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221));
-    
-    CCTK_REAL_VEC R4p3222 = R3222;
-    
-    CCTK_REAL_VEC R4p3223 = 
-      kadd(R3223,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3231 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231));
-    
-    CCTK_REAL_VEC R4p3232 = 
-      kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232));
-    
-    CCTK_REAL_VEC R4p3233 = R3233;
-    
-    CCTK_REAL_VEC R4p3311 = R3311;
-    
-    CCTK_REAL_VEC R4p3312 = R3312;
-    
-    CCTK_REAL_VEC R4p3313 = R3313;
-    
-    CCTK_REAL_VEC R4p3321 = R3321;
-    
-    CCTK_REAL_VEC R4p3322 = R3322;
-    
-    CCTK_REAL_VEC R4p3323 = R3323;
-    
-    CCTK_REAL_VEC R4p3331 = R3331;
-    
-    CCTK_REAL_VEC R4p3332 = R3332;
-    
-    CCTK_REAL_VEC R4p3333 = R3333;
-    
     CCTK_REAL_VEC Ro111 = ToReal(0.);
     
     CCTK_REAL_VEC Ro112 = 
@@ -1822,37 +1264,37 @@ static void psi4_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC Ro333 = ToReal(0.);
     
     CCTK_REAL_VEC Rojo11 = 
-      kmadd(gInv11,R1111,kmadd(gInv12,R1112,kmadd(gInv13,R1113,kmadd(gInv21,R1211,kmadd(gInv31,R1311,kmadd(gInv23,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv32,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))))))))));
+      kmadd(kadd(gInv23,gInv32),kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))));
     
     CCTK_REAL_VEC Rojo12 = 
-      kmadd(gInv11,R1121,kmadd(gInv21,R1221,kmadd(gInv22,R1222,kmadd(gInv23,R1223,kmadd(gInv31,R1321,kmadd(gInv12,kadd(R1122,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv32,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1322)),kmadd(gInv13,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1123)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))))));
+      kmadd(gInv23,R1223,knmsub(gInv21,R1212,knmsub(gInv31,R1213,kmadd(gInv12,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv32,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo13 = 
-      kmadd(gInv11,R1131,kmadd(gInv21,R1231,kmadd(gInv31,R1331,kmadd(gInv32,R1332,kmadd(gInv33,R1333,kmadd(gInv12,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1132)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)),kmadd(gInv13,kadd(R1133,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv23,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1233)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv23),kmadd(gInv13,kmul(kxzL,kxzL),knmsub(gInv21,R1213,knmsub(gInv31,R1313,knmsub(gInv32,R1323,kmadd(gInv12,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv23,kmul(kxxL,gInv13))))))))));
     
     CCTK_REAL_VEC Rojo21 = 
-      kmadd(gInv11,R2111,kmadd(gInv12,R2112,kmadd(gInv13,R2113,kmadd(gInv22,R2212,kmadd(gInv32,R2312,kmadd(gInv21,kadd(R2211,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv23,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2213)),kmadd(gInv31,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2311)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)))))))))));
+      kmadd(gInv32,R1223,knmsub(gInv12,R1212,knmsub(gInv13,R1213,kmadd(gInv21,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv23,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo22 = 
-      kmadd(gInv12,R2122,kmadd(gInv21,R2221,kmadd(gInv22,R2222,kmadd(gInv23,R2223,kmadd(gInv32,R2322,kmadd(gInv13,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)),kmadd(gInv31,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))))))))));
+      kmadd(kadd(gInv13,gInv31),kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Rojo23 = 
-      kmadd(gInv12,R2132,kmadd(gInv22,R2232,kmadd(gInv31,R2331,kmadd(gInv32,R2332,kmadd(gInv33,R2333,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)),kmadd(gInv21,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2231)),kmadd(gInv13,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2133)),kmul(gInv23,kadd(R2233,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv12,R1223,knmsub(gInv31,R1323,knmsub(gInv32,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv21,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv23,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo31 = 
-      kmadd(gInv11,R3111,kmadd(gInv12,R3112,kmadd(gInv13,R3113,kmadd(gInv23,R3213,kmadd(gInv33,R3313,kmadd(gInv21,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3211)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)),kmadd(gInv31,kadd(R3311,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv32,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3312)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv32),kmadd(gInv31,kmul(kxzL,kxzL),knmsub(gInv12,R1213,knmsub(gInv13,R1313,knmsub(gInv23,R1323,kmadd(gInv21,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv32,kmul(kxxL,gInv31))))))))));
     
     CCTK_REAL_VEC Rojo32 = 
-      kmadd(gInv13,R3123,kmadd(gInv21,R3221,kmadd(gInv22,R3222,kmadd(gInv23,R3223,kmadd(gInv33,R3323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)),kmadd(gInv12,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3122)),kmadd(gInv31,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3321)),kmul(gInv32,kadd(R3322,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv21,R1223,knmsub(gInv13,R1323,knmsub(gInv23,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv12,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv32,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo33 = 
-      kmadd(gInv13,R3133,kmadd(gInv23,R3233,kmadd(gInv31,R3331,kmadd(gInv32,R3332,kmadd(gInv33,R3333,kmadd(gInv12,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)),kmadd(gInv21,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232)))))))))));
+      kmadd(kadd(gInv12,gInv21),kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Psi4rL = 
-      kmadd(R4p1112,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1211,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1113,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1311,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1312,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p2122,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2221,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2123,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2321,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2223,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2322,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p3132,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3231,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3133,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3331,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3233,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3332,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(n1,kmul(n2,kmul(R4p1121,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p1131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n2,kmul(R4p2111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p2131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p3111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p3121,kmul(rmbar1,rmbar1))),kmadd(R4p1111,kmul(kmul(n1,n1),kmul(rmbar1,rmbar1)),kmadd(R4p2121,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(R4p3131,kmul(kmul(n3,n3),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(n1,kmul(n2,kmul(R4p1222,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n2,kmul(R4p2212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p2232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p3212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p3222,kmul(rmbar2,rmbar2))),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(R4p2222,kmul(kmul(n2,n2),kmul(rmbar2,rmbar2)),kmadd(R4p3232,kmul(kmul(n3,n3),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p2313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p3313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p3323,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),knmsub(n3,kmul(kmul(imbar3,imbar3),kmadd(n1,R4p3313,kmul(n2,R4p2333))),kmadd(kmul(imbar3,imbar3),kmsub(n1,kmul(nn,kmul(Ro313,ToReal(-2.))),kmul(n2,kmul(n3,R4p3323))),kmadd(R4p1313,kmsub(kmul(n1,n1),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n2,n2),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(R4p3333,kmsub(kmul(n3,n3),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n3,n3))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmadd(n3,kmul(R4p1132,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1221,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p1231,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1123,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1331,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2113,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1233,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p1322,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p1332,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p2213,kmul(rmbar2,rmbar3)),kmadd(n2,kmsub(R4p1122,kmul(rmbar1,rmbar2),kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro112,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro113,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro211,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro213,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro311,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro312,ToReal(2.))))))))))))))))))))),kmadd(n2,kmadd(n3,kmul(R4p2132,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p2211,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p2231,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1321,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p2133,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p2311,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p3321,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p1223,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p2233,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p2312,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p2112,kmul(rmbar1,rmbar2),kmul(R4p2313,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro123,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro223,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro322,ToReal(2.))))))))))))))))))))),kmsub(n3,kmadd(n2,kmul(R4p3122,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p3211,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p3221,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1133,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2331,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3113,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p3123,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3311,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2332,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3213,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3223,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3312,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3322,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p3112,kmul(rmbar1,rmbar2),kmul(R4p1333,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro132,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro133,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro231,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro233,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro331,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro332,ToReal(2.)))))))))))))))))))))))),kmadd(kmul(imbar1,imbar1),kmadd(n2,kmul(n3,R4p2131),kmadd(n2,kmul(n3,R4p3121),kmadd(R4p1111,kmul(n1,n1),kmadd(R4p2121,kmul(n2,n2),kmadd(R4p3131,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro121,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1121,R4p2111),kmadd(n3,kadd(R4p1131,R4p3111),kmul(nn,kmul(Ro111,ToReal(2.)))))))))))))),kmadd(kmul(imbar2,imbar2),kmadd(n2,kmul(n3,R4p2232),kmadd(n2,kmul(n3,R4p3222),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2222,kmul(n2,n2),kmadd(R4p3232,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro232,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1222,R4p2212),kmadd(n3,kadd(R4p1232,R4p3212),kmul(nn,kmul(Ro212,ToReal(2.)))))))))))))),kmadd(imbar2,kmul(imbar3,kmadd(kadd(R4p1213,R4p1312),kmul(n1,n1),kmadd(kadd(R4p2223,R4p2322),kmul(n2,n2),kmadd(R4p3233,kmul(n3,n3),kmadd(R4p3332,kmul(n3,n3),kmadd(Rojo23,kmul(nn,nn),kmadd(Rojo32,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro233,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro332,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),kmadd(n3,kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),kmul(nn,kmul(kadd(Ro213,Ro312),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.))))))))))))))),kmul(imbar1,kmadd(imbar2,kmadd(kadd(R4p1112,R4p1211),kmul(n1,n1),kmadd(kadd(R4p2122,R4p2221),kmul(n2,n2),kmadd(R4p3132,kmul(n3,n3),kmadd(R4p3231,kmul(n3,n3),kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),kmadd(n3,kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),kmul(nn,kmul(kadd(Ro112,Ro211),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),kmul(nn,kmul(kadd(Ro122,Ro221),ToReal(2.)))))))))))))),kmul(imbar3,kmadd(kadd(R4p1113,R4p1311),kmul(n1,n1),kmadd(kadd(R4p2123,R4p2321),kmul(n2,n2),kmadd(R4p3133,kmul(n3,n3),kmadd(R4p3331,kmul(n3,n3),kmadd(Rojo13,kmul(nn,nn),kmadd(Rojo31,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro133,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro331,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),kmadd(n3,kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),kmul(nn,kmul(kadd(Ro113,Ro311),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),kmul(nn,kmul(kadd(Ro123,Ro321),ToReal(2.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(R4p1212,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(R4p1313,kmul(kmul(n1,n1),kmul(rmbar3,rmbar3)),kmadd(R4p2323,kmul(kmul(n2,n2),kmul(rmbar3,rmbar3)),kmadd(kmadd(n1,kmul(n2,kmul(R4p1212,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1213,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1313,kmul(rmbar1,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1323,kmul(rmbar2,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2323,kmul(rmbar2,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(imbar3,imbar3))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(imbar3,imbar3))),kmul(R4p1223,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2)))))))))))),ToReal(-2.),kmadd(n1,kmul(n3,kmul(R4p1223,kmul(kmul(rmbar2,rmbar2),ToReal(-2.)))),kmadd(R4p1313,kmsub(kmul(n3,n3),kmul(rmbar1,rmbar1),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n3,n3),kmul(rmbar2,rmbar2),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro112))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro113))),kmadd(n2,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro123))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro132))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro133))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro211))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro213))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro223))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro231))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro233))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro311))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro312))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro322))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro331))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro332))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmul(R4p1323,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3)))))))))))))))))))),ToReal(2.),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),knmsub(kmul(imbar2,imbar2),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2323,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n1,kmul(n3,kmul(R4p1223,ToReal(-2.))),kmadd(n1,kmul(nn,kmul(Ro212,ToReal(2.))),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmul(n3,kmul(nn,kmul(Ro232,ToReal(2.)))))))))),kmadd(n2,kmadd(n1,kmul(R4p1213,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(n3,kmul(R4p1323,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.))),kmadd(n3,kmul(R4p1223,kmul(rmbar1,kmul(rmbar2,ToReal(2.)))),kmadd(n1,kmul(R4p1223,kmul(rmbar2,kmul(rmbar3,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(n3,kmul(R4p1213,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))))))))))),knmsub(kmul(imbar1,imbar1),kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(n2,kmul(kmadd(n3,R4p1213,kmul(nn,Ro121)),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(nn,kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.))))))))),kmsub(imbar1,kmul(imbar3,kmadd(R4p1223,kmul(kmul(n2,n2),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1213,kmsub(n3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),ToReal(2.)),kmsub(n2,kmul(kmsub(n3,R4p1323,kmul(nn,kadd(Ro123,Ro321))),ToReal(2.)),kmul(nn,kmadd(nn,kadd(Rojo13,Rojo31),kmul(n3,kmul(kadd(Ro133,Ro331),ToReal(2.))))))))),kmul(imbar2,kmadd(imbar3,kmadd(R4p1213,kmul(kmul(n1,n1),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1223,kmsub(nn,kadd(Ro213,Ro312),kmul(n3,R4p1323))),ToReal(2.)),kmadd(n2,kmadd(n3,kmul(R4p2323,ToReal(-2.)),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.)))),kmul(nn,kmadd(nn,kadd(Rojo23,Rojo32),kmul(n3,kmul(kadd(Ro233,Ro332),ToReal(2.)))))))),kmul(imbar1,kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n1,kmul(ToReal(-2.),kmadd(n2,R4p1212,kmsub(n3,R4p1213,kmul(nn,kadd(Ro112,Ro211))))),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n2,kmul(kmadd(n3,R4p1223,kmul(nn,kadd(Ro122,Ro221))),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmul(R4p1323,kmul(kmul(n3,n3),ToReal(2.))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi4iL = 
-      knmadd(im1,kmadd(R4p3132,kmul(rm2,kmul(n3,n3)),kmadd(R4p3231,kmul(rm2,kmul(n3,n3)),kmadd(R4p3133,kmul(rm3,kmul(n3,n3)),kmadd(R4p3331,kmul(rm3,kmul(n3,n3)),kmadd(rm2,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro331,ToReal(2.)))),kmadd(R4p3131,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm1,kmul(Rojo11,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm2,kmadd(R4p1211,rm2,kmadd(R4p1113,rm3,kmadd(R4p1311,rm3,kmul(R4p1111,kmul(rm1,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm2,kmadd(R4p2221,rm2,kmadd(R4p2123,rm3,kmadd(R4p2321,rm3,kmul(R4p2121,kmul(rm1,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm2,kmadd(R4p1221,rm2,kmadd(R4p2112,rm2,kmadd(R4p2211,rm2,kmadd(R4p1123,rm3,kmadd(R4p1321,rm3,kmadd(R4p2113,rm3,kmadd(R4p2311,rm3,kmadd(R4p1121,kmul(rm1,ToReal(2.)),kmul(R4p2111,kmul(rm1,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm2,kmadd(R4p1231,rm2,kmadd(R4p3112,rm2,kmadd(R4p3211,rm2,kmadd(R4p1133,rm3,kmadd(R4p1331,rm3,kmadd(R4p3113,rm3,kmadd(R4p3311,rm3,kmadd(R4p1131,kmul(rm1,ToReal(2.)),kmul(R4p3111,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm2,kmadd(R4p2231,rm2,kmadd(R4p3122,rm2,kmadd(R4p3221,rm2,kmadd(R4p2133,rm3,kmadd(R4p2331,rm3,kmadd(R4p3123,rm3,kmadd(R4p3321,rm3,kmadd(R4p2131,kmul(rm1,ToReal(2.)),kmul(R4p3121,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm1,kmul(Ro131,ToReal(4.))))))))))))))))))))))),kmadd(im3,kmadd(R4p3133,kmul(rm1,kmul(n3,n3)),kmadd(R4p3331,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm2,kmul(n3,n3)),kmadd(R4p3332,kmul(rm2,kmul(n3,n3)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(rm1,kmul(Rojo31,kmul(nn,nn)),kmadd(rm2,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro331,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro332,ToReal(2.)))),kmadd(R4p3333,kmul(rm3,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm3,kmul(Rojo33,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1113,rm1,kmadd(R4p1311,rm1,kmadd(R4p1213,rm2,kmadd(R4p1312,rm2,kmul(R4p1313,kmul(rm3,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2123,rm1,kmadd(R4p2321,rm1,kmadd(R4p2223,rm2,kmadd(R4p2322,rm2,kmul(R4p2323,kmul(rm3,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1123,rm1,kmadd(R4p1321,rm1,kmadd(R4p2113,rm1,kmadd(R4p2311,rm1,kmadd(R4p1223,rm2,kmadd(R4p1322,rm2,kmadd(R4p2213,rm2,kmadd(R4p2312,rm2,kmadd(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p2313,kmul(rm3,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1133,rm1,kmadd(R4p1331,rm1,kmadd(R4p3113,rm1,kmadd(R4p3311,rm1,kmadd(R4p1233,rm2,kmadd(R4p1332,rm2,kmadd(R4p3213,rm2,kmadd(R4p3312,rm2,kmadd(R4p1333,kmul(rm3,ToReal(2.)),kmul(R4p3313,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2133,rm1,kmadd(R4p2331,rm1,kmadd(R4p3123,rm1,kmadd(R4p3321,rm1,kmadd(R4p2233,rm2,kmadd(R4p2332,rm2,kmadd(R4p3223,rm2,kmadd(R4p3322,rm2,kmadd(R4p2333,kmul(rm3,ToReal(2.)),kmul(R4p3323,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm3,kmul(Ro333,ToReal(4.))))))))))))))))))))))),kmul(im2,kmadd(R4p3132,kmul(rm1,kmul(n3,n3)),kmadd(R4p3231,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm3,kmul(n3,n3)),kmadd(R4p3332,kmul(rm3,kmul(n3,n3)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(R4p3232,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm1,kmadd(R4p1211,rm1,kmadd(R4p1213,rm3,kmadd(R4p1312,rm3,kmul(R4p1212,kmul(rm2,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm1,kmadd(R4p2221,rm1,kmadd(R4p2223,rm3,kmadd(R4p2322,rm3,kmul(R4p2222,kmul(rm2,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm1,kmadd(R4p1221,rm1,kmadd(R4p2112,rm1,kmadd(R4p2211,rm1,kmadd(R4p1223,rm3,kmadd(R4p1322,rm3,kmadd(R4p2213,rm3,kmadd(R4p2312,rm3,kmadd(R4p1222,kmul(rm2,ToReal(2.)),kmul(R4p2212,kmul(rm2,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm1,kmadd(R4p1231,rm1,kmadd(R4p3112,rm1,kmadd(R4p3211,rm1,kmadd(R4p1233,rm3,kmadd(R4p1332,rm3,kmadd(R4p3213,rm3,kmadd(R4p3312,rm3,kmadd(R4p1232,kmul(rm2,ToReal(2.)),kmul(R4p3212,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm1,kmadd(R4p2231,rm1,kmadd(R4p3122,rm1,kmadd(R4p3221,rm1,kmadd(R4p2233,rm3,kmadd(R4p2332,rm3,kmadd(R4p3223,rm3,kmadd(R4p3322,rm3,kmadd(R4p2232,kmul(rm2,ToReal(2.)),kmul(R4p3222,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))))))))));
+      knmadd(im1,kmadd(kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmul(kmul(n3,n3),ToReal(2.)),kmadd(kmul(n2,n2),kmul(kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),ToReal(2.)),kmadd(n2,kmul(ToReal(2.),knmsub(n1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmadd(n3,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(nn,kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.))))))))),kmadd(n3,kmul(ToReal(2.),kmsub(nn,kmadd(rm2,kadd(Ro132,Ro231),kmadd(rm3,kadd(Ro133,Ro331),kmul(rm1,kmul(Ro131,ToReal(2.))))),kmul(n1,kmadd(R4p1213,rm2,kmul(R4p1313,rm3))))),kmul(nn,kmadd(n1,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.)))))),kmul(nn,kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.)))))))))))),kmadd(im2,kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(R4p1323,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(R4p2323,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(n1,kmul(ToReal(2.),kmadd(n2,kmsub(R4p1223,rm3,kmul(R4p1212,rm1)),kmsub(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))),kmul(n3,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmadd(n3,kmsub(R4p1223,rm1,kmul(R4p2323,rm3)),kmul(nn,kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))),kmul(im3,kmadd(kmadd(R4p1213,rm2,kmul(R4p1313,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(kmul(n2,n2),kmadd(R4p1223,kmul(rm1,ToReal(-2.)),kmul(R4p2323,kmul(rm3,ToReal(2.)))),kmadd(n1,kmul(ToReal(2.),knmsub(n3,kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmadd(n2,kmadd(R4p1223,rm2,kmsub(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p1213,rm1))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmsub(nn,kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.))))),kmul(n3,kmadd(R4p1323,rm1,kmul(R4p2323,rm2))))),kmul(nn,kmadd(n3,kmul(ToReal(2.),kmadd(rm1,kadd(Ro133,Ro331),kmadd(rm2,kadd(Ro233,Ro332),kmul(rm3,kmul(Ro333,ToReal(2.)))))),kmul(nn,kmadd(rm1,kadd(Rojo13,Rojo31),kmadd(rm2,kadd(Rojo23,Rojo32),kmul(rm3,kmul(Rojo33,ToReal(2.)))))))))))))));
     
     /* Copy local copies back to grid functions */
     vec_store_partial_prepare(i,lc_imin,lc_imax);
diff --git a/src/psis_calc_2nd.cc b/src/psis_calc_2nd.cc
index 11ff6f2..b9a93bf 100644
--- a/src/psis_calc_2nd.cc
+++ b/src/psis_calc_2nd.cc
@@ -630,23 +630,14 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     }
     
     /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandard2nd11gxy;
-    CCTK_REAL_VEC JacPDstandard2nd11gxz;
     CCTK_REAL_VEC JacPDstandard2nd11gyy;
     CCTK_REAL_VEC JacPDstandard2nd11gyz;
     CCTK_REAL_VEC JacPDstandard2nd11gzz;
-    CCTK_REAL_VEC JacPDstandard2nd12gxx;
     CCTK_REAL_VEC JacPDstandard2nd12gxy;
     CCTK_REAL_VEC JacPDstandard2nd12gxz;
-    CCTK_REAL_VEC JacPDstandard2nd12gyy;
     CCTK_REAL_VEC JacPDstandard2nd12gyz;
     CCTK_REAL_VEC JacPDstandard2nd12gzz;
-    CCTK_REAL_VEC JacPDstandard2nd13gxx;
-    CCTK_REAL_VEC JacPDstandard2nd13gxy;
     CCTK_REAL_VEC JacPDstandard2nd13gxz;
-    CCTK_REAL_VEC JacPDstandard2nd13gyy;
-    CCTK_REAL_VEC JacPDstandard2nd13gyz;
-    CCTK_REAL_VEC JacPDstandard2nd13gzz;
     CCTK_REAL_VEC JacPDstandard2nd1gxx;
     CCTK_REAL_VEC JacPDstandard2nd1gxy;
     CCTK_REAL_VEC JacPDstandard2nd1gxz;
@@ -658,23 +649,14 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard2nd1kyy;
     CCTK_REAL_VEC JacPDstandard2nd1kyz;
     CCTK_REAL_VEC JacPDstandard2nd1kzz;
-    CCTK_REAL_VEC JacPDstandard2nd21gxx;
     CCTK_REAL_VEC JacPDstandard2nd21gxy;
-    CCTK_REAL_VEC JacPDstandard2nd21gxz;
-    CCTK_REAL_VEC JacPDstandard2nd21gyy;
-    CCTK_REAL_VEC JacPDstandard2nd21gyz;
-    CCTK_REAL_VEC JacPDstandard2nd21gzz;
     CCTK_REAL_VEC JacPDstandard2nd22gxx;
-    CCTK_REAL_VEC JacPDstandard2nd22gxy;
     CCTK_REAL_VEC JacPDstandard2nd22gxz;
-    CCTK_REAL_VEC JacPDstandard2nd22gyz;
     CCTK_REAL_VEC JacPDstandard2nd22gzz;
     CCTK_REAL_VEC JacPDstandard2nd23gxx;
     CCTK_REAL_VEC JacPDstandard2nd23gxy;
     CCTK_REAL_VEC JacPDstandard2nd23gxz;
-    CCTK_REAL_VEC JacPDstandard2nd23gyy;
     CCTK_REAL_VEC JacPDstandard2nd23gyz;
-    CCTK_REAL_VEC JacPDstandard2nd23gzz;
     CCTK_REAL_VEC JacPDstandard2nd2gxx;
     CCTK_REAL_VEC JacPDstandard2nd2gxy;
     CCTK_REAL_VEC JacPDstandard2nd2gxz;
@@ -686,23 +668,14 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard2nd2kxz;
     CCTK_REAL_VEC JacPDstandard2nd2kyz;
     CCTK_REAL_VEC JacPDstandard2nd2kzz;
-    CCTK_REAL_VEC JacPDstandard2nd31gxx;
     CCTK_REAL_VEC JacPDstandard2nd31gxy;
     CCTK_REAL_VEC JacPDstandard2nd31gxz;
     CCTK_REAL_VEC JacPDstandard2nd31gyy;
     CCTK_REAL_VEC JacPDstandard2nd31gyz;
-    CCTK_REAL_VEC JacPDstandard2nd31gzz;
-    CCTK_REAL_VEC JacPDstandard2nd32gxx;
-    CCTK_REAL_VEC JacPDstandard2nd32gxy;
-    CCTK_REAL_VEC JacPDstandard2nd32gxz;
-    CCTK_REAL_VEC JacPDstandard2nd32gyy;
     CCTK_REAL_VEC JacPDstandard2nd32gyz;
-    CCTK_REAL_VEC JacPDstandard2nd32gzz;
     CCTK_REAL_VEC JacPDstandard2nd33gxx;
     CCTK_REAL_VEC JacPDstandard2nd33gxy;
-    CCTK_REAL_VEC JacPDstandard2nd33gxz;
     CCTK_REAL_VEC JacPDstandard2nd33gyy;
-    CCTK_REAL_VEC JacPDstandard2nd33gyz;
     CCTK_REAL_VEC JacPDstandard2nd3gxx;
     CCTK_REAL_VEC JacPDstandard2nd3gxy;
     CCTK_REAL_VEC JacPDstandard2nd3gxz;
@@ -816,12 +789,6 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd3kyz = 
         kmadd(J13L,PDstandard2nd1kyz,kmadd(J23L,PDstandard2nd2kyz,kmul(J33L,PDstandard2nd3kyz)));
       
-      JacPDstandard2nd11gxy = 
-        kmadd(dJ111L,PDstandard2nd1gxy,kmadd(dJ211L,PDstandard2nd2gxy,kmadd(dJ311L,PDstandard2nd3gxy,kmadd(PDstandard2nd11gxy,kmul(J11L,J11L),kmadd(PDstandard2nd22gxy,kmul(J21L,J21L),kmadd(PDstandard2nd33gxy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy)),kmul(J21L,kmul(J31L,PDstandard2nd23gxy))),ToReal(2.))))))));
-      
-      JacPDstandard2nd11gxz = 
-        kmadd(dJ111L,PDstandard2nd1gxz,kmadd(dJ211L,PDstandard2nd2gxz,kmadd(dJ311L,PDstandard2nd3gxz,kmadd(PDstandard2nd11gxz,kmul(J11L,J11L),kmadd(PDstandard2nd22gxz,kmul(J21L,J21L),kmadd(PDstandard2nd33gxz,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard2nd12gxz,kmul(J31L,PDstandard2nd13gxz)),kmul(J21L,kmul(J31L,PDstandard2nd23gxz))),ToReal(2.))))))));
-      
       JacPDstandard2nd11gyy = 
         kmadd(dJ111L,PDstandard2nd1gyy,kmadd(dJ211L,PDstandard2nd2gyy,kmadd(dJ311L,PDstandard2nd3gyy,kmadd(PDstandard2nd11gyy,kmul(J11L,J11L),kmadd(PDstandard2nd22gyy,kmul(J21L,J21L),kmadd(PDstandard2nd33gyy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard2nd12gyy,kmul(J31L,PDstandard2nd13gyy)),kmul(J21L,kmul(J31L,PDstandard2nd23gyy))),ToReal(2.))))))));
       
@@ -834,15 +801,9 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd22gxx = 
         kmadd(dJ122L,PDstandard2nd1gxx,kmadd(dJ222L,PDstandard2nd2gxx,kmadd(dJ322L,PDstandard2nd3gxx,kmadd(PDstandard2nd11gxx,kmul(J12L,J12L),kmadd(PDstandard2nd22gxx,kmul(J22L,J22L),kmadd(PDstandard2nd33gxx,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx)),kmul(J22L,kmul(J32L,PDstandard2nd23gxx))),ToReal(2.))))))));
       
-      JacPDstandard2nd22gxy = 
-        kmadd(dJ122L,PDstandard2nd1gxy,kmadd(dJ222L,PDstandard2nd2gxy,kmadd(dJ322L,PDstandard2nd3gxy,kmadd(PDstandard2nd11gxy,kmul(J12L,J12L),kmadd(PDstandard2nd22gxy,kmul(J22L,J22L),kmadd(PDstandard2nd33gxy,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gxy,kmul(J32L,PDstandard2nd13gxy)),kmul(J22L,kmul(J32L,PDstandard2nd23gxy))),ToReal(2.))))))));
-      
       JacPDstandard2nd22gxz = 
         kmadd(dJ122L,PDstandard2nd1gxz,kmadd(dJ222L,PDstandard2nd2gxz,kmadd(dJ322L,PDstandard2nd3gxz,kmadd(PDstandard2nd11gxz,kmul(J12L,J12L),kmadd(PDstandard2nd22gxz,kmul(J22L,J22L),kmadd(PDstandard2nd33gxz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz)),kmul(J22L,kmul(J32L,PDstandard2nd23gxz))),ToReal(2.))))))));
       
-      JacPDstandard2nd22gyz = 
-        kmadd(dJ122L,PDstandard2nd1gyz,kmadd(dJ222L,PDstandard2nd2gyz,kmadd(dJ322L,PDstandard2nd3gyz,kmadd(PDstandard2nd11gyz,kmul(J12L,J12L),kmadd(PDstandard2nd22gyz,kmul(J22L,J22L),kmadd(PDstandard2nd33gyz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz)),kmul(J22L,kmul(J32L,PDstandard2nd23gyz))),ToReal(2.))))))));
-      
       JacPDstandard2nd22gzz = 
         kmadd(dJ122L,PDstandard2nd1gzz,kmadd(dJ222L,PDstandard2nd2gzz,kmadd(dJ322L,PDstandard2nd3gzz,kmadd(PDstandard2nd11gzz,kmul(J12L,J12L),kmadd(PDstandard2nd22gzz,kmul(J22L,J22L),kmadd(PDstandard2nd33gzz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz)),kmul(J22L,kmul(J32L,PDstandard2nd23gzz))),ToReal(2.))))))));
       
@@ -852,69 +813,27 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd33gxy = 
         kmadd(dJ133L,PDstandard2nd1gxy,kmadd(dJ233L,PDstandard2nd2gxy,kmadd(dJ333L,PDstandard2nd3gxy,kmadd(PDstandard2nd11gxy,kmul(J13L,J13L),kmadd(PDstandard2nd22gxy,kmul(J23L,J23L),kmadd(PDstandard2nd33gxy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard2nd12gxy,kmul(J33L,PDstandard2nd13gxy)),kmul(J23L,kmul(J33L,PDstandard2nd23gxy))),ToReal(2.))))))));
       
-      JacPDstandard2nd33gxz = 
-        kmadd(dJ133L,PDstandard2nd1gxz,kmadd(dJ233L,PDstandard2nd2gxz,kmadd(dJ333L,PDstandard2nd3gxz,kmadd(PDstandard2nd11gxz,kmul(J13L,J13L),kmadd(PDstandard2nd22gxz,kmul(J23L,J23L),kmadd(PDstandard2nd33gxz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard2nd12gxz,kmul(J33L,PDstandard2nd13gxz)),kmul(J23L,kmul(J33L,PDstandard2nd23gxz))),ToReal(2.))))))));
-      
       JacPDstandard2nd33gyy = 
         kmadd(dJ133L,PDstandard2nd1gyy,kmadd(dJ233L,PDstandard2nd2gyy,kmadd(dJ333L,PDstandard2nd3gyy,kmadd(PDstandard2nd11gyy,kmul(J13L,J13L),kmadd(PDstandard2nd22gyy,kmul(J23L,J23L),kmadd(PDstandard2nd33gyy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard2nd12gyy,kmul(J33L,PDstandard2nd13gyy)),kmul(J23L,kmul(J33L,PDstandard2nd23gyy))),ToReal(2.))))))));
       
-      JacPDstandard2nd33gyz = 
-        kmadd(dJ133L,PDstandard2nd1gyz,kmadd(dJ233L,PDstandard2nd2gyz,kmadd(dJ333L,PDstandard2nd3gyz,kmadd(PDstandard2nd11gyz,kmul(J13L,J13L),kmadd(PDstandard2nd22gyz,kmul(J23L,J23L),kmadd(PDstandard2nd33gyz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmul(J23L,kmul(J33L,PDstandard2nd23gyz))),ToReal(2.))))))));
-      
-      JacPDstandard2nd12gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gxx,kmadd(J21L,PDstandard2nd12gxx,kmul(J31L,PDstandard2nd13gxx))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx)),kmadd(dJ112L,PDstandard2nd1gxx,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxx,kmul(J31L,PDstandard2nd23gxx)),kmadd(dJ212L,PDstandard2nd2gxx,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxx,kmul(J31L,PDstandard2nd33gxx)),kmul(dJ312L,PDstandard2nd3gxx)))))));
-      
       JacPDstandard2nd12gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gxy,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxy,kmul(J32L,PDstandard2nd13gxy)),kmadd(dJ112L,PDstandard2nd1gxy,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxy,kmul(J31L,PDstandard2nd23gxy)),kmadd(dJ212L,PDstandard2nd2gxy,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxy,kmul(J31L,PDstandard2nd33gxy)),kmul(dJ312L,PDstandard2nd3gxy)))))));
       
       JacPDstandard2nd12gxz = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gxz,kmadd(J21L,PDstandard2nd12gxz,kmul(J31L,PDstandard2nd13gxz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz)),kmadd(dJ112L,PDstandard2nd1gxz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxz,kmul(J31L,PDstandard2nd23gxz)),kmadd(dJ212L,PDstandard2nd2gxz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxz,kmul(J31L,PDstandard2nd33gxz)),kmul(dJ312L,PDstandard2nd3gxz)))))));
       
-      JacPDstandard2nd12gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gyy,kmadd(J21L,PDstandard2nd12gyy,kmul(J31L,PDstandard2nd13gyy))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gyy,kmul(J32L,PDstandard2nd13gyy)),kmadd(dJ112L,PDstandard2nd1gyy,kmadd(J22L,kmadd(J21L,PDstandard2nd22gyy,kmul(J31L,PDstandard2nd23gyy)),kmadd(dJ212L,PDstandard2nd2gyy,kmadd(J32L,kmadd(J21L,PDstandard2nd23gyy,kmul(J31L,PDstandard2nd33gyy)),kmul(dJ312L,PDstandard2nd3gyy)))))));
-      
       JacPDstandard2nd12gyz = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gyz,kmadd(J21L,PDstandard2nd12gyz,kmul(J31L,PDstandard2nd13gyz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz)),kmadd(dJ112L,PDstandard2nd1gyz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gyz,kmul(J31L,PDstandard2nd23gyz)),kmadd(dJ212L,PDstandard2nd2gyz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gyz,kmul(J31L,PDstandard2nd33gyz)),kmul(dJ312L,PDstandard2nd3gyz)))))));
       
       JacPDstandard2nd12gzz = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gzz,kmadd(J21L,PDstandard2nd12gzz,kmul(J31L,PDstandard2nd13gzz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz)),kmadd(dJ112L,PDstandard2nd1gzz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gzz,kmul(J31L,PDstandard2nd23gzz)),kmadd(dJ212L,PDstandard2nd2gzz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gzz,kmul(J31L,PDstandard2nd33gzz)),kmul(dJ312L,PDstandard2nd3gzz)))))));
       
-      JacPDstandard2nd13gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gxx,kmadd(J21L,PDstandard2nd12gxx,kmul(J31L,PDstandard2nd13gxx))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxx,kmul(J33L,PDstandard2nd13gxx)),kmadd(dJ113L,PDstandard2nd1gxx,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxx,kmul(J31L,PDstandard2nd23gxx)),kmadd(dJ213L,PDstandard2nd2gxx,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxx,kmul(J31L,PDstandard2nd33gxx)),kmul(dJ313L,PDstandard2nd3gxx)))))));
-      
-      JacPDstandard2nd13gxy = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gxy,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxy,kmul(J33L,PDstandard2nd13gxy)),kmadd(dJ113L,PDstandard2nd1gxy,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxy,kmul(J31L,PDstandard2nd23gxy)),kmadd(dJ213L,PDstandard2nd2gxy,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxy,kmul(J31L,PDstandard2nd33gxy)),kmul(dJ313L,PDstandard2nd3gxy)))))));
-      
       JacPDstandard2nd13gxz = 
         kmadd(J13L,kmadd(J11L,PDstandard2nd11gxz,kmadd(J21L,PDstandard2nd12gxz,kmul(J31L,PDstandard2nd13gxz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxz,kmul(J33L,PDstandard2nd13gxz)),kmadd(dJ113L,PDstandard2nd1gxz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxz,kmul(J31L,PDstandard2nd23gxz)),kmadd(dJ213L,PDstandard2nd2gxz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxz,kmul(J31L,PDstandard2nd33gxz)),kmul(dJ313L,PDstandard2nd3gxz)))))));
       
-      JacPDstandard2nd13gyy = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gyy,kmadd(J21L,PDstandard2nd12gyy,kmul(J31L,PDstandard2nd13gyy))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gyy,kmul(J33L,PDstandard2nd13gyy)),kmadd(dJ113L,PDstandard2nd1gyy,kmadd(J23L,kmadd(J21L,PDstandard2nd22gyy,kmul(J31L,PDstandard2nd23gyy)),kmadd(dJ213L,PDstandard2nd2gyy,kmadd(J33L,kmadd(J21L,PDstandard2nd23gyy,kmul(J31L,PDstandard2nd33gyy)),kmul(dJ313L,PDstandard2nd3gyy)))))));
-      
-      JacPDstandard2nd13gyz = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gyz,kmadd(J21L,PDstandard2nd12gyz,kmul(J31L,PDstandard2nd13gyz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmadd(dJ113L,PDstandard2nd1gyz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gyz,kmul(J31L,PDstandard2nd23gyz)),kmadd(dJ213L,PDstandard2nd2gyz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gyz,kmul(J31L,PDstandard2nd33gyz)),kmul(dJ313L,PDstandard2nd3gyz)))))));
-      
-      JacPDstandard2nd13gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gzz,kmadd(J21L,PDstandard2nd12gzz,kmul(J31L,PDstandard2nd13gzz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gzz,kmul(J33L,PDstandard2nd13gzz)),kmadd(dJ113L,PDstandard2nd1gzz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gzz,kmul(J31L,PDstandard2nd23gzz)),kmadd(dJ213L,PDstandard2nd2gzz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gzz,kmul(J31L,PDstandard2nd33gzz)),kmul(dJ313L,PDstandard2nd3gzz)))))));
-      
-      JacPDstandard2nd21gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gxx,kmadd(J21L,PDstandard2nd12gxx,kmul(J31L,PDstandard2nd13gxx))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx)),kmadd(dJ112L,PDstandard2nd1gxx,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxx,kmul(J31L,PDstandard2nd23gxx)),kmadd(dJ212L,PDstandard2nd2gxx,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxx,kmul(J31L,PDstandard2nd33gxx)),kmul(dJ312L,PDstandard2nd3gxx)))))));
-      
       JacPDstandard2nd21gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard2nd11gxy,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxy,kmul(J32L,PDstandard2nd13gxy)),kmadd(dJ112L,PDstandard2nd1gxy,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxy,kmul(J31L,PDstandard2nd23gxy)),kmadd(dJ212L,PDstandard2nd2gxy,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxy,kmul(J31L,PDstandard2nd33gxy)),kmul(dJ312L,PDstandard2nd3gxy)))))));
       
-      JacPDstandard2nd21gxz = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gxz,kmadd(J21L,PDstandard2nd12gxz,kmul(J31L,PDstandard2nd13gxz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz)),kmadd(dJ112L,PDstandard2nd1gxz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gxz,kmul(J31L,PDstandard2nd23gxz)),kmadd(dJ212L,PDstandard2nd2gxz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gxz,kmul(J31L,PDstandard2nd33gxz)),kmul(dJ312L,PDstandard2nd3gxz)))))));
-      
-      JacPDstandard2nd21gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gyy,kmadd(J21L,PDstandard2nd12gyy,kmul(J31L,PDstandard2nd13gyy))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gyy,kmul(J32L,PDstandard2nd13gyy)),kmadd(dJ112L,PDstandard2nd1gyy,kmadd(J22L,kmadd(J21L,PDstandard2nd22gyy,kmul(J31L,PDstandard2nd23gyy)),kmadd(dJ212L,PDstandard2nd2gyy,kmadd(J32L,kmadd(J21L,PDstandard2nd23gyy,kmul(J31L,PDstandard2nd33gyy)),kmul(dJ312L,PDstandard2nd3gyy)))))));
-      
-      JacPDstandard2nd21gyz = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gyz,kmadd(J21L,PDstandard2nd12gyz,kmul(J31L,PDstandard2nd13gyz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz)),kmadd(dJ112L,PDstandard2nd1gyz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gyz,kmul(J31L,PDstandard2nd23gyz)),kmadd(dJ212L,PDstandard2nd2gyz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gyz,kmul(J31L,PDstandard2nd33gyz)),kmul(dJ312L,PDstandard2nd3gyz)))))));
-      
-      JacPDstandard2nd21gzz = 
-        kmadd(J12L,kmadd(J11L,PDstandard2nd11gzz,kmadd(J21L,PDstandard2nd12gzz,kmul(J31L,PDstandard2nd13gzz))),kmadd(J11L,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz)),kmadd(dJ112L,PDstandard2nd1gzz,kmadd(J22L,kmadd(J21L,PDstandard2nd22gzz,kmul(J31L,PDstandard2nd23gzz)),kmadd(dJ212L,PDstandard2nd2gzz,kmadd(J32L,kmadd(J21L,PDstandard2nd23gzz,kmul(J31L,PDstandard2nd33gzz)),kmul(dJ312L,PDstandard2nd3gzz)))))));
-      
       JacPDstandard2nd23gxx = 
         kmadd(J13L,kmadd(J12L,PDstandard2nd11gxx,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxx,kmul(J33L,PDstandard2nd13gxx)),kmadd(dJ123L,PDstandard2nd1gxx,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxx,kmul(J32L,PDstandard2nd23gxx)),kmadd(dJ223L,PDstandard2nd2gxx,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxx,kmul(J32L,PDstandard2nd33gxx)),kmul(dJ323L,PDstandard2nd3gxx)))))));
       
@@ -924,18 +843,9 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd23gxz = 
         kmadd(J13L,kmadd(J12L,PDstandard2nd11gxz,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxz,kmul(J33L,PDstandard2nd13gxz)),kmadd(dJ123L,PDstandard2nd1gxz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxz,kmul(J32L,PDstandard2nd23gxz)),kmadd(dJ223L,PDstandard2nd2gxz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxz,kmul(J32L,PDstandard2nd33gxz)),kmul(dJ323L,PDstandard2nd3gxz)))))));
       
-      JacPDstandard2nd23gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gyy,kmadd(J22L,PDstandard2nd12gyy,kmul(J32L,PDstandard2nd13gyy))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gyy,kmul(J33L,PDstandard2nd13gyy)),kmadd(dJ123L,PDstandard2nd1gyy,kmadd(J23L,kmadd(J22L,PDstandard2nd22gyy,kmul(J32L,PDstandard2nd23gyy)),kmadd(dJ223L,PDstandard2nd2gyy,kmadd(J33L,kmadd(J22L,PDstandard2nd23gyy,kmul(J32L,PDstandard2nd33gyy)),kmul(dJ323L,PDstandard2nd3gyy)))))));
-      
       JacPDstandard2nd23gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard2nd11gyz,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmadd(dJ123L,PDstandard2nd1gyz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gyz,kmul(J32L,PDstandard2nd23gyz)),kmadd(dJ223L,PDstandard2nd2gyz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gyz,kmul(J32L,PDstandard2nd33gyz)),kmul(dJ323L,PDstandard2nd3gyz)))))));
       
-      JacPDstandard2nd23gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gzz,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gzz,kmul(J33L,PDstandard2nd13gzz)),kmadd(dJ123L,PDstandard2nd1gzz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gzz,kmul(J32L,PDstandard2nd23gzz)),kmadd(dJ223L,PDstandard2nd2gzz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gzz,kmul(J32L,PDstandard2nd33gzz)),kmul(dJ323L,PDstandard2nd3gzz)))))));
-      
-      JacPDstandard2nd31gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gxx,kmadd(J21L,PDstandard2nd12gxx,kmul(J31L,PDstandard2nd13gxx))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxx,kmul(J33L,PDstandard2nd13gxx)),kmadd(dJ113L,PDstandard2nd1gxx,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxx,kmul(J31L,PDstandard2nd23gxx)),kmadd(dJ213L,PDstandard2nd2gxx,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxx,kmul(J31L,PDstandard2nd33gxx)),kmul(dJ313L,PDstandard2nd3gxx)))))));
-      
       JacPDstandard2nd31gxy = 
         kmadd(J13L,kmadd(J11L,PDstandard2nd11gxy,kmadd(J21L,PDstandard2nd12gxy,kmul(J31L,PDstandard2nd13gxy))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gxy,kmul(J33L,PDstandard2nd13gxy)),kmadd(dJ113L,PDstandard2nd1gxy,kmadd(J23L,kmadd(J21L,PDstandard2nd22gxy,kmul(J31L,PDstandard2nd23gxy)),kmadd(dJ213L,PDstandard2nd2gxy,kmadd(J33L,kmadd(J21L,PDstandard2nd23gxy,kmul(J31L,PDstandard2nd33gxy)),kmul(dJ313L,PDstandard2nd3gxy)))))));
       
@@ -948,26 +858,8 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard2nd31gyz = 
         kmadd(J13L,kmadd(J11L,PDstandard2nd11gyz,kmadd(J21L,PDstandard2nd12gyz,kmul(J31L,PDstandard2nd13gyz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmadd(dJ113L,PDstandard2nd1gyz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gyz,kmul(J31L,PDstandard2nd23gyz)),kmadd(dJ213L,PDstandard2nd2gyz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gyz,kmul(J31L,PDstandard2nd33gyz)),kmul(dJ313L,PDstandard2nd3gyz)))))));
       
-      JacPDstandard2nd31gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard2nd11gzz,kmadd(J21L,PDstandard2nd12gzz,kmul(J31L,PDstandard2nd13gzz))),kmadd(J11L,kmadd(J23L,PDstandard2nd12gzz,kmul(J33L,PDstandard2nd13gzz)),kmadd(dJ113L,PDstandard2nd1gzz,kmadd(J23L,kmadd(J21L,PDstandard2nd22gzz,kmul(J31L,PDstandard2nd23gzz)),kmadd(dJ213L,PDstandard2nd2gzz,kmadd(J33L,kmadd(J21L,PDstandard2nd23gzz,kmul(J31L,PDstandard2nd33gzz)),kmul(dJ313L,PDstandard2nd3gzz)))))));
-      
-      JacPDstandard2nd32gxx = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gxx,kmadd(J22L,PDstandard2nd12gxx,kmul(J32L,PDstandard2nd13gxx))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxx,kmul(J33L,PDstandard2nd13gxx)),kmadd(dJ123L,PDstandard2nd1gxx,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxx,kmul(J32L,PDstandard2nd23gxx)),kmadd(dJ223L,PDstandard2nd2gxx,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxx,kmul(J32L,PDstandard2nd33gxx)),kmul(dJ323L,PDstandard2nd3gxx)))))));
-      
-      JacPDstandard2nd32gxy = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gxy,kmadd(J22L,PDstandard2nd12gxy,kmul(J32L,PDstandard2nd13gxy))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxy,kmul(J33L,PDstandard2nd13gxy)),kmadd(dJ123L,PDstandard2nd1gxy,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxy,kmul(J32L,PDstandard2nd23gxy)),kmadd(dJ223L,PDstandard2nd2gxy,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxy,kmul(J32L,PDstandard2nd33gxy)),kmul(dJ323L,PDstandard2nd3gxy)))))));
-      
-      JacPDstandard2nd32gxz = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gxz,kmadd(J22L,PDstandard2nd12gxz,kmul(J32L,PDstandard2nd13gxz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gxz,kmul(J33L,PDstandard2nd13gxz)),kmadd(dJ123L,PDstandard2nd1gxz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gxz,kmul(J32L,PDstandard2nd23gxz)),kmadd(dJ223L,PDstandard2nd2gxz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gxz,kmul(J32L,PDstandard2nd33gxz)),kmul(dJ323L,PDstandard2nd3gxz)))))));
-      
-      JacPDstandard2nd32gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gyy,kmadd(J22L,PDstandard2nd12gyy,kmul(J32L,PDstandard2nd13gyy))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gyy,kmul(J33L,PDstandard2nd13gyy)),kmadd(dJ123L,PDstandard2nd1gyy,kmadd(J23L,kmadd(J22L,PDstandard2nd22gyy,kmul(J32L,PDstandard2nd23gyy)),kmadd(dJ223L,PDstandard2nd2gyy,kmadd(J33L,kmadd(J22L,PDstandard2nd23gyy,kmul(J32L,PDstandard2nd33gyy)),kmul(dJ323L,PDstandard2nd3gyy)))))));
-      
       JacPDstandard2nd32gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard2nd11gyz,kmadd(J22L,PDstandard2nd12gyz,kmul(J32L,PDstandard2nd13gyz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gyz,kmul(J33L,PDstandard2nd13gyz)),kmadd(dJ123L,PDstandard2nd1gyz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gyz,kmul(J32L,PDstandard2nd23gyz)),kmadd(dJ223L,PDstandard2nd2gyz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gyz,kmul(J32L,PDstandard2nd33gyz)),kmul(dJ323L,PDstandard2nd3gyz)))))));
-      
-      JacPDstandard2nd32gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard2nd11gzz,kmadd(J22L,PDstandard2nd12gzz,kmul(J32L,PDstandard2nd13gzz))),kmadd(J12L,kmadd(J23L,PDstandard2nd12gzz,kmul(J33L,PDstandard2nd13gzz)),kmadd(dJ123L,PDstandard2nd1gzz,kmadd(J23L,kmadd(J22L,PDstandard2nd22gzz,kmul(J32L,PDstandard2nd23gzz)),kmadd(dJ223L,PDstandard2nd2gzz,kmadd(J33L,kmadd(J22L,PDstandard2nd23gzz,kmul(J32L,PDstandard2nd33gzz)),kmul(dJ323L,PDstandard2nd3gzz)))))));
     }
     else
     {
@@ -1037,10 +929,6 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard2nd3kyz = PDstandard2nd3kyz;
       
-      JacPDstandard2nd11gxy = PDstandard2nd11gxy;
-      
-      JacPDstandard2nd11gxz = PDstandard2nd11gxz;
-      
       JacPDstandard2nd11gyy = PDstandard2nd11gyy;
       
       JacPDstandard2nd11gyz = PDstandard2nd11gyz;
@@ -1049,74 +937,36 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard2nd22gxx = PDstandard2nd22gxx;
       
-      JacPDstandard2nd22gxy = PDstandard2nd22gxy;
-      
       JacPDstandard2nd22gxz = PDstandard2nd22gxz;
       
-      JacPDstandard2nd22gyz = PDstandard2nd22gyz;
-      
       JacPDstandard2nd22gzz = PDstandard2nd22gzz;
       
       JacPDstandard2nd33gxx = PDstandard2nd33gxx;
       
       JacPDstandard2nd33gxy = PDstandard2nd33gxy;
       
-      JacPDstandard2nd33gxz = PDstandard2nd33gxz;
-      
       JacPDstandard2nd33gyy = PDstandard2nd33gyy;
       
-      JacPDstandard2nd33gyz = PDstandard2nd33gyz;
-      
-      JacPDstandard2nd12gxx = PDstandard2nd12gxx;
-      
       JacPDstandard2nd12gxy = PDstandard2nd12gxy;
       
       JacPDstandard2nd12gxz = PDstandard2nd12gxz;
       
-      JacPDstandard2nd12gyy = PDstandard2nd12gyy;
-      
       JacPDstandard2nd12gyz = PDstandard2nd12gyz;
       
       JacPDstandard2nd12gzz = PDstandard2nd12gzz;
       
-      JacPDstandard2nd13gxx = PDstandard2nd13gxx;
-      
-      JacPDstandard2nd13gxy = PDstandard2nd13gxy;
-      
       JacPDstandard2nd13gxz = PDstandard2nd13gxz;
       
-      JacPDstandard2nd13gyy = PDstandard2nd13gyy;
-      
-      JacPDstandard2nd13gyz = PDstandard2nd13gyz;
-      
-      JacPDstandard2nd13gzz = PDstandard2nd13gzz;
-      
-      JacPDstandard2nd21gxx = PDstandard2nd12gxx;
-      
       JacPDstandard2nd21gxy = PDstandard2nd12gxy;
       
-      JacPDstandard2nd21gxz = PDstandard2nd12gxz;
-      
-      JacPDstandard2nd21gyy = PDstandard2nd12gyy;
-      
-      JacPDstandard2nd21gyz = PDstandard2nd12gyz;
-      
-      JacPDstandard2nd21gzz = PDstandard2nd12gzz;
-      
       JacPDstandard2nd23gxx = PDstandard2nd23gxx;
       
       JacPDstandard2nd23gxy = PDstandard2nd23gxy;
       
       JacPDstandard2nd23gxz = PDstandard2nd23gxz;
       
-      JacPDstandard2nd23gyy = PDstandard2nd23gyy;
-      
       JacPDstandard2nd23gyz = PDstandard2nd23gyz;
       
-      JacPDstandard2nd23gzz = PDstandard2nd23gzz;
-      
-      JacPDstandard2nd31gxx = PDstandard2nd13gxx;
-      
       JacPDstandard2nd31gxy = PDstandard2nd13gxy;
       
       JacPDstandard2nd31gxz = PDstandard2nd13gxz;
@@ -1125,19 +975,7 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard2nd31gyz = PDstandard2nd13gyz;
       
-      JacPDstandard2nd31gzz = PDstandard2nd13gzz;
-      
-      JacPDstandard2nd32gxx = PDstandard2nd23gxx;
-      
-      JacPDstandard2nd32gxy = PDstandard2nd23gxy;
-      
-      JacPDstandard2nd32gxz = PDstandard2nd23gxz;
-      
-      JacPDstandard2nd32gyy = PDstandard2nd23gyy;
-      
       JacPDstandard2nd32gyz = PDstandard2nd23gyz;
-      
-      JacPDstandard2nd32gzz = PDstandard2nd23gzz;
     }
     
     CCTK_REAL_VEC detg = 
@@ -1347,444 +1185,42 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     
     CCTK_REAL_VEC nn = isqrt2;
     
-    CCTK_REAL_VEC R1111 = ToReal(0.);
-    
-    CCTK_REAL_VEC R1112 = 
-      kmul(ksub(JacPDstandard2nd21gxx,JacPDstandard2nd12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1113 = 
-      kmul(ksub(JacPDstandard2nd31gxx,JacPDstandard2nd13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1121 = 
-      kmul(ksub(JacPDstandard2nd21gxx,JacPDstandard2nd12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1122 = 
-      ksub(JacPDstandard2nd21gxy,JacPDstandard2nd12gxy);
-    
-    CCTK_REAL_VEC R1123 = 
-      kmul(kadd(JacPDstandard2nd21gxz,ksub(JacPDstandard2nd31gxy,kadd(JacPDstandard2nd13gxy,JacPDstandard2nd12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1131 = 
-      kmul(ksub(JacPDstandard2nd31gxx,JacPDstandard2nd13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1132 = 
-      kmul(kadd(JacPDstandard2nd21gxz,ksub(JacPDstandard2nd31gxy,kadd(JacPDstandard2nd13gxy,JacPDstandard2nd12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1133 = 
-      ksub(JacPDstandard2nd31gxz,JacPDstandard2nd13gxz);
-    
-    CCTK_REAL_VEC R1211 = 
-      kmul(ksub(JacPDstandard2nd12gxx,JacPDstandard2nd21gxx),ToReal(0.5));
-    
     CCTK_REAL_VEC R1212 = 
       kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy)))));
     
     CCTK_REAL_VEC R1213 = 
       kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz))))));
     
-    CCTK_REAL_VEC R1221 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R1222 = 
-      kmul(ksub(JacPDstandard2nd21gyy,JacPDstandard2nd12gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R1223 = 
       kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz))))));
     
-    CCTK_REAL_VEC R1231 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1232 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1233 = 
-      kmul(kadd(JacPDstandard2nd31gyz,ksub(JacPDstandard2nd32gxz,kadd(JacPDstandard2nd23gxz,JacPDstandard2nd13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1311 = 
-      kmul(ksub(JacPDstandard2nd13gxx,JacPDstandard2nd31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1312 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz))))));
-    
     CCTK_REAL_VEC R1313 = 
       kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz)))));
     
-    CCTK_REAL_VEC R1321 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1322 = 
-      kmul(kadd(JacPDstandard2nd21gyz,ksub(JacPDstandard2nd23gxy,kadd(JacPDstandard2nd32gxy,JacPDstandard2nd12gyz))),ToReal(0.5));
-    
     CCTK_REAL_VEC R1323 = 
       kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz))))));
     
-    CCTK_REAL_VEC R1331 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R1332 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R1333 = 
-      kmul(ksub(JacPDstandard2nd31gzz,JacPDstandard2nd13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2111 = 
-      kmul(ksub(JacPDstandard2nd12gxx,JacPDstandard2nd21gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyy,kadd(JacPDstandard2nd22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard2nd21gxy),JacPDstandard2nd12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R2113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd21gxz),JacPDstandard2nd13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2121 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxy,kadd(JacPDstandard2nd21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard2nd22gxx),JacPDstandard2nd11gyy)))));
-    
-    CCTK_REAL_VEC R2122 = 
-      kmul(ksub(JacPDstandard2nd21gyy,JacPDstandard2nd12gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gyz,kadd(JacPDstandard2nd32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd22gxz),JacPDstandard2nd13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2131 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd12gxz,kadd(JacPDstandard2nd31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard2nd23gxx),JacPDstandard2nd11gyz))))));
-    
-    CCTK_REAL_VEC R2132 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd22gxz,kadd(JacPDstandard2nd31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard2nd23gxy),JacPDstandard2nd12gyz))))));
-    
-    CCTK_REAL_VEC R2133 = 
-      kmul(kadd(JacPDstandard2nd31gyz,ksub(JacPDstandard2nd32gxz,kadd(JacPDstandard2nd23gxz,JacPDstandard2nd13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2211 = 
-      ksub(JacPDstandard2nd12gxy,JacPDstandard2nd21gxy);
-    
-    CCTK_REAL_VEC R2212 = 
-      kmul(ksub(JacPDstandard2nd12gyy,JacPDstandard2nd21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2213 = 
-      kmul(kadd(JacPDstandard2nd12gyz,ksub(JacPDstandard2nd32gxy,kadd(JacPDstandard2nd23gxy,JacPDstandard2nd21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2221 = 
-      kmul(ksub(JacPDstandard2nd12gyy,JacPDstandard2nd21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2222 = ToReal(0.);
-    
-    CCTK_REAL_VEC R2223 = 
-      kmul(ksub(JacPDstandard2nd32gyy,JacPDstandard2nd23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2231 = 
-      kmul(kadd(JacPDstandard2nd12gyz,ksub(JacPDstandard2nd32gxy,kadd(JacPDstandard2nd23gxy,JacPDstandard2nd21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2232 = 
-      kmul(ksub(JacPDstandard2nd32gyy,JacPDstandard2nd23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2233 = 
-      ksub(JacPDstandard2nd32gyz,JacPDstandard2nd23gyz);
-    
-    CCTK_REAL_VEC R2311 = 
-      kmul(kadd(JacPDstandard2nd12gxz,ksub(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd31gxy,JacPDstandard2nd21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2312 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz))))));
-    
-    CCTK_REAL_VEC R2313 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz))))));
-    
-    CCTK_REAL_VEC R2321 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2322 = 
-      kmul(ksub(JacPDstandard2nd23gyy,JacPDstandard2nd32gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R2323 = 
       kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz)))));
     
-    CCTK_REAL_VEC R2331 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R2332 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R2333 = 
-      kmul(ksub(JacPDstandard2nd32gzz,JacPDstandard2nd23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3111 = 
-      kmul(ksub(JacPDstandard2nd13gxx,JacPDstandard2nd31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gyz,kadd(JacPDstandard2nd23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd31gxy),JacPDstandard2nd12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd11gzz,kadd(JacPDstandard2nd33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard2nd31gxz),JacPDstandard2nd13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R3121 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard2nd32gxx),JacPDstandard2nd11gyz))))));
-    
-    CCTK_REAL_VEC R3122 = 
-      kmul(kadd(JacPDstandard2nd21gyz,ksub(JacPDstandard2nd23gxy,kadd(JacPDstandard2nd32gxy,JacPDstandard2nd12gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd21gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard2nd32gxz),JacPDstandard2nd13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3131 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard2nd13gxz,kadd(JacPDstandard2nd31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard2nd33gxx),JacPDstandard2nd11gzz)))));
-    
-    CCTK_REAL_VEC R3132 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard2nd33gxy),JacPDstandard2nd12gzz))))));
-    
-    CCTK_REAL_VEC R3133 = 
-      kmul(ksub(JacPDstandard2nd31gzz,JacPDstandard2nd13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3211 = 
-      kmul(kadd(JacPDstandard2nd12gxz,ksub(JacPDstandard2nd13gxy,kadd(JacPDstandard2nd31gxy,JacPDstandard2nd21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3212 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gyz,kadd(JacPDstandard2nd23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard2nd31gyy),JacPDstandard2nd22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3213 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard2nd12gzz,kadd(JacPDstandard2nd33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard2nd31gyz),JacPDstandard2nd23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3221 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyy,kadd(JacPDstandard2nd22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard2nd32gxy),JacPDstandard2nd21gyz))))));
-    
-    CCTK_REAL_VEC R3222 = 
-      kmul(ksub(JacPDstandard2nd23gyy,JacPDstandard2nd32gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3223 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard2nd22gzz,kadd(JacPDstandard2nd33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard2nd32gyz),JacPDstandard2nd23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R3231 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard2nd13gyz,kadd(JacPDstandard2nd32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard2nd33gxy),JacPDstandard2nd21gzz))))));
-    
-    CCTK_REAL_VEC R3232 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard2nd23gyz,kadd(JacPDstandard2nd32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard2nd33gyy),JacPDstandard2nd22gzz)))));
-    
-    CCTK_REAL_VEC R3233 = 
-      kmul(ksub(JacPDstandard2nd32gzz,JacPDstandard2nd23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3311 = 
-      ksub(JacPDstandard2nd13gxz,JacPDstandard2nd31gxz);
-    
-    CCTK_REAL_VEC R3312 = 
-      kmul(kadd(JacPDstandard2nd13gyz,ksub(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd32gxz,JacPDstandard2nd31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3313 = 
-      kmul(ksub(JacPDstandard2nd13gzz,JacPDstandard2nd31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3321 = 
-      kmul(kadd(JacPDstandard2nd13gyz,ksub(JacPDstandard2nd23gxz,kadd(JacPDstandard2nd32gxz,JacPDstandard2nd31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3322 = 
-      ksub(JacPDstandard2nd23gyz,JacPDstandard2nd32gyz);
-    
-    CCTK_REAL_VEC R3323 = 
-      kmul(ksub(JacPDstandard2nd23gzz,JacPDstandard2nd32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3331 = 
-      kmul(ksub(JacPDstandard2nd13gzz,JacPDstandard2nd31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3332 = 
-      kmul(ksub(JacPDstandard2nd23gzz,JacPDstandard2nd32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3333 = ToReal(0.);
-    
-    CCTK_REAL_VEC R4p1111 = R1111;
-    
-    CCTK_REAL_VEC R4p1112 = R1112;
-    
-    CCTK_REAL_VEC R4p1113 = R1113;
-    
-    CCTK_REAL_VEC R4p1121 = R1121;
-    
-    CCTK_REAL_VEC R4p1122 = R1122;
-    
-    CCTK_REAL_VEC R4p1123 = R1123;
-    
-    CCTK_REAL_VEC R4p1131 = R1131;
-    
-    CCTK_REAL_VEC R4p1132 = R1132;
-    
-    CCTK_REAL_VEC R4p1133 = R1133;
-    
-    CCTK_REAL_VEC R4p1211 = R1211;
-    
     CCTK_REAL_VEC R4p1212 = 
       kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212));
     
     CCTK_REAL_VEC R4p1213 = 
       kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213));
     
-    CCTK_REAL_VEC R4p1221 = 
-      kadd(R1221,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p1222 = R1222;
-    
     CCTK_REAL_VEC R4p1223 = 
       kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223));
     
-    CCTK_REAL_VEC R4p1231 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231));
-    
-    CCTK_REAL_VEC R4p1232 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232));
-    
-    CCTK_REAL_VEC R4p1233 = R1233;
-    
-    CCTK_REAL_VEC R4p1311 = R1311;
-    
-    CCTK_REAL_VEC R4p1312 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312));
-    
     CCTK_REAL_VEC R4p1313 = 
       kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313));
     
-    CCTK_REAL_VEC R4p1321 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321));
-    
-    CCTK_REAL_VEC R4p1322 = R1322;
-    
     CCTK_REAL_VEC R4p1323 = 
       kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323));
     
-    CCTK_REAL_VEC R4p1331 = 
-      kadd(R1331,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p1332 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332));
-    
-    CCTK_REAL_VEC R4p1333 = R1333;
-    
-    CCTK_REAL_VEC R4p2111 = R2111;
-    
-    CCTK_REAL_VEC R4p2112 = 
-      kadd(R2112,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p2113 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113));
-    
-    CCTK_REAL_VEC R4p2121 = 
-      kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121));
-    
-    CCTK_REAL_VEC R4p2122 = R2122;
-    
-    CCTK_REAL_VEC R4p2123 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123));
-    
-    CCTK_REAL_VEC R4p2131 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131));
-    
-    CCTK_REAL_VEC R4p2132 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132));
-    
-    CCTK_REAL_VEC R4p2133 = R2133;
-    
-    CCTK_REAL_VEC R4p2211 = R2211;
-    
-    CCTK_REAL_VEC R4p2212 = R2212;
-    
-    CCTK_REAL_VEC R4p2213 = R2213;
-    
-    CCTK_REAL_VEC R4p2221 = R2221;
-    
-    CCTK_REAL_VEC R4p2222 = R2222;
-    
-    CCTK_REAL_VEC R4p2223 = R2223;
-    
-    CCTK_REAL_VEC R4p2231 = R2231;
-    
-    CCTK_REAL_VEC R4p2232 = R2232;
-    
-    CCTK_REAL_VEC R4p2233 = R2233;
-    
-    CCTK_REAL_VEC R4p2311 = R2311;
-    
-    CCTK_REAL_VEC R4p2312 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312));
-    
-    CCTK_REAL_VEC R4p2313 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313));
-    
-    CCTK_REAL_VEC R4p2321 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321));
-    
-    CCTK_REAL_VEC R4p2322 = R2322;
-    
     CCTK_REAL_VEC R4p2323 = 
       kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323));
     
-    CCTK_REAL_VEC R4p2331 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331));
-    
-    CCTK_REAL_VEC R4p2332 = 
-      kadd(R2332,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p2333 = R2333;
-    
-    CCTK_REAL_VEC R4p3111 = R3111;
-    
-    CCTK_REAL_VEC R4p3112 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112));
-    
-    CCTK_REAL_VEC R4p3113 = 
-      kadd(R3113,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3121 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121));
-    
-    CCTK_REAL_VEC R4p3122 = R3122;
-    
-    CCTK_REAL_VEC R4p3123 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123));
-    
-    CCTK_REAL_VEC R4p3131 = 
-      kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131));
-    
-    CCTK_REAL_VEC R4p3132 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132));
-    
-    CCTK_REAL_VEC R4p3133 = R3133;
-    
-    CCTK_REAL_VEC R4p3211 = R3211;
-    
-    CCTK_REAL_VEC R4p3212 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212));
-    
-    CCTK_REAL_VEC R4p3213 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213));
-    
-    CCTK_REAL_VEC R4p3221 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221));
-    
-    CCTK_REAL_VEC R4p3222 = R3222;
-    
-    CCTK_REAL_VEC R4p3223 = 
-      kadd(R3223,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3231 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231));
-    
-    CCTK_REAL_VEC R4p3232 = 
-      kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232));
-    
-    CCTK_REAL_VEC R4p3233 = R3233;
-    
-    CCTK_REAL_VEC R4p3311 = R3311;
-    
-    CCTK_REAL_VEC R4p3312 = R3312;
-    
-    CCTK_REAL_VEC R4p3313 = R3313;
-    
-    CCTK_REAL_VEC R4p3321 = R3321;
-    
-    CCTK_REAL_VEC R4p3322 = R3322;
-    
-    CCTK_REAL_VEC R4p3323 = R3323;
-    
-    CCTK_REAL_VEC R4p3331 = R3331;
-    
-    CCTK_REAL_VEC R4p3332 = R3332;
-    
-    CCTK_REAL_VEC R4p3333 = R3333;
-    
     CCTK_REAL_VEC Ro111 = ToReal(0.);
     
     CCTK_REAL_VEC Ro112 = 
@@ -1858,61 +1294,61 @@ static void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC Ro333 = ToReal(0.);
     
     CCTK_REAL_VEC Rojo11 = 
-      kmadd(gInv11,R1111,kmadd(gInv12,R1112,kmadd(gInv13,R1113,kmadd(gInv21,R1211,kmadd(gInv31,R1311,kmadd(gInv23,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv32,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))))))))));
+      kmadd(kadd(gInv23,gInv32),kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))));
     
     CCTK_REAL_VEC Rojo12 = 
-      kmadd(gInv11,R1121,kmadd(gInv21,R1221,kmadd(gInv22,R1222,kmadd(gInv23,R1223,kmadd(gInv31,R1321,kmadd(gInv12,kadd(R1122,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv32,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1322)),kmadd(gInv13,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1123)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))))));
+      kmadd(gInv23,R1223,knmsub(gInv21,R1212,knmsub(gInv31,R1213,kmadd(gInv12,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv32,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo13 = 
-      kmadd(gInv11,R1131,kmadd(gInv21,R1231,kmadd(gInv31,R1331,kmadd(gInv32,R1332,kmadd(gInv33,R1333,kmadd(gInv12,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1132)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)),kmadd(gInv13,kadd(R1133,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv23,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1233)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv23),kmadd(gInv13,kmul(kxzL,kxzL),knmsub(gInv21,R1213,knmsub(gInv31,R1313,knmsub(gInv32,R1323,kmadd(gInv12,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv23,kmul(kxxL,gInv13))))))))));
     
     CCTK_REAL_VEC Rojo21 = 
-      kmadd(gInv11,R2111,kmadd(gInv12,R2112,kmadd(gInv13,R2113,kmadd(gInv22,R2212,kmadd(gInv32,R2312,kmadd(gInv21,kadd(R2211,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv23,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2213)),kmadd(gInv31,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2311)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)))))))))));
+      kmadd(gInv32,R1223,knmsub(gInv12,R1212,knmsub(gInv13,R1213,kmadd(gInv21,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv23,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo22 = 
-      kmadd(gInv12,R2122,kmadd(gInv21,R2221,kmadd(gInv22,R2222,kmadd(gInv23,R2223,kmadd(gInv32,R2322,kmadd(gInv13,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)),kmadd(gInv31,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))))))))));
+      kmadd(kadd(gInv13,gInv31),kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Rojo23 = 
-      kmadd(gInv12,R2132,kmadd(gInv22,R2232,kmadd(gInv31,R2331,kmadd(gInv32,R2332,kmadd(gInv33,R2333,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)),kmadd(gInv21,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2231)),kmadd(gInv13,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2133)),kmul(gInv23,kadd(R2233,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv12,R1223,knmsub(gInv31,R1323,knmsub(gInv32,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv21,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv23,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo31 = 
-      kmadd(gInv11,R3111,kmadd(gInv12,R3112,kmadd(gInv13,R3113,kmadd(gInv23,R3213,kmadd(gInv33,R3313,kmadd(gInv21,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3211)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)),kmadd(gInv31,kadd(R3311,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv32,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3312)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv32),kmadd(gInv31,kmul(kxzL,kxzL),knmsub(gInv12,R1213,knmsub(gInv13,R1313,knmsub(gInv23,R1323,kmadd(gInv21,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv32,kmul(kxxL,gInv31))))))))));
     
     CCTK_REAL_VEC Rojo32 = 
-      kmadd(gInv13,R3123,kmadd(gInv21,R3221,kmadd(gInv22,R3222,kmadd(gInv23,R3223,kmadd(gInv33,R3323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)),kmadd(gInv12,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3122)),kmadd(gInv31,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3321)),kmul(gInv32,kadd(R3322,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv21,R1223,knmsub(gInv13,R1323,knmsub(gInv23,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv12,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv32,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo33 = 
-      kmadd(gInv13,R3133,kmadd(gInv23,R3233,kmadd(gInv31,R3331,kmadd(gInv32,R3332,kmadd(gInv33,R3333,kmadd(gInv12,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)),kmadd(gInv21,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232)))))))))));
+      kmadd(kadd(gInv12,gInv21),kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Psi4rL = 
-      kmadd(R4p1112,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1211,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1113,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1311,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1312,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p2122,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2221,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2123,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2321,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2223,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2322,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p3132,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3231,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3133,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3331,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3233,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3332,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(n1,kmul(n2,kmul(R4p1121,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p1131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n2,kmul(R4p2111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p2131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p3111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p3121,kmul(rmbar1,rmbar1))),kmadd(R4p1111,kmul(kmul(n1,n1),kmul(rmbar1,rmbar1)),kmadd(R4p2121,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(R4p3131,kmul(kmul(n3,n3),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(n1,kmul(n2,kmul(R4p1222,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n2,kmul(R4p2212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p2232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p3212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p3222,kmul(rmbar2,rmbar2))),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(R4p2222,kmul(kmul(n2,n2),kmul(rmbar2,rmbar2)),kmadd(R4p3232,kmul(kmul(n3,n3),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p2313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p3313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p3323,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),knmsub(n3,kmul(kmul(imbar3,imbar3),kmadd(n1,R4p3313,kmul(n2,R4p2333))),kmadd(kmul(imbar3,imbar3),kmsub(n1,kmul(nn,kmul(Ro313,ToReal(-2.))),kmul(n2,kmul(n3,R4p3323))),kmadd(R4p1313,kmsub(kmul(n1,n1),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n2,n2),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(R4p3333,kmsub(kmul(n3,n3),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n3,n3))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmadd(n3,kmul(R4p1132,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1221,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p1231,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1123,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1331,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2113,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1233,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p1322,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p1332,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p2213,kmul(rmbar2,rmbar3)),kmadd(n2,kmsub(R4p1122,kmul(rmbar1,rmbar2),kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro112,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro113,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro211,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro213,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro311,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro312,ToReal(2.))))))))))))))))))))),kmadd(n2,kmadd(n3,kmul(R4p2132,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p2211,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p2231,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1321,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p2133,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p2311,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p3321,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p1223,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p2233,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p2312,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p2112,kmul(rmbar1,rmbar2),kmul(R4p2313,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro123,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro223,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro322,ToReal(2.))))))))))))))))))))),kmsub(n3,kmadd(n2,kmul(R4p3122,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p3211,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p3221,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1133,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2331,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3113,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p3123,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3311,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2332,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3213,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3223,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3312,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3322,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p3112,kmul(rmbar1,rmbar2),kmul(R4p1333,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro132,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro133,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro231,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro233,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro331,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro332,ToReal(2.)))))))))))))))))))))))),kmadd(kmul(imbar1,imbar1),kmadd(n2,kmul(n3,R4p2131),kmadd(n2,kmul(n3,R4p3121),kmadd(R4p1111,kmul(n1,n1),kmadd(R4p2121,kmul(n2,n2),kmadd(R4p3131,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro121,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1121,R4p2111),kmadd(n3,kadd(R4p1131,R4p3111),kmul(nn,kmul(Ro111,ToReal(2.)))))))))))))),kmadd(kmul(imbar2,imbar2),kmadd(n2,kmul(n3,R4p2232),kmadd(n2,kmul(n3,R4p3222),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2222,kmul(n2,n2),kmadd(R4p3232,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro232,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1222,R4p2212),kmadd(n3,kadd(R4p1232,R4p3212),kmul(nn,kmul(Ro212,ToReal(2.)))))))))))))),kmadd(imbar2,kmul(imbar3,kmadd(kadd(R4p1213,R4p1312),kmul(n1,n1),kmadd(kadd(R4p2223,R4p2322),kmul(n2,n2),kmadd(R4p3233,kmul(n3,n3),kmadd(R4p3332,kmul(n3,n3),kmadd(Rojo23,kmul(nn,nn),kmadd(Rojo32,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro233,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro332,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),kmadd(n3,kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),kmul(nn,kmul(kadd(Ro213,Ro312),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.))))))))))))))),kmul(imbar1,kmadd(imbar2,kmadd(kadd(R4p1112,R4p1211),kmul(n1,n1),kmadd(kadd(R4p2122,R4p2221),kmul(n2,n2),kmadd(R4p3132,kmul(n3,n3),kmadd(R4p3231,kmul(n3,n3),kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),kmadd(n3,kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),kmul(nn,kmul(kadd(Ro112,Ro211),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),kmul(nn,kmul(kadd(Ro122,Ro221),ToReal(2.)))))))))))))),kmul(imbar3,kmadd(kadd(R4p1113,R4p1311),kmul(n1,n1),kmadd(kadd(R4p2123,R4p2321),kmul(n2,n2),kmadd(R4p3133,kmul(n3,n3),kmadd(R4p3331,kmul(n3,n3),kmadd(Rojo13,kmul(nn,nn),kmadd(Rojo31,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro133,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro331,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),kmadd(n3,kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),kmul(nn,kmul(kadd(Ro113,Ro311),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),kmul(nn,kmul(kadd(Ro123,Ro321),ToReal(2.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(R4p1212,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(R4p1313,kmul(kmul(n1,n1),kmul(rmbar3,rmbar3)),kmadd(R4p2323,kmul(kmul(n2,n2),kmul(rmbar3,rmbar3)),kmadd(kmadd(n1,kmul(n2,kmul(R4p1212,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1213,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1313,kmul(rmbar1,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1323,kmul(rmbar2,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2323,kmul(rmbar2,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(imbar3,imbar3))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(imbar3,imbar3))),kmul(R4p1223,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2)))))))))))),ToReal(-2.),kmadd(n1,kmul(n3,kmul(R4p1223,kmul(kmul(rmbar2,rmbar2),ToReal(-2.)))),kmadd(R4p1313,kmsub(kmul(n3,n3),kmul(rmbar1,rmbar1),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n3,n3),kmul(rmbar2,rmbar2),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro112))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro113))),kmadd(n2,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro123))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro132))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro133))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro211))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro213))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro223))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro231))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro233))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro311))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro312))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro322))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro331))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro332))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmul(R4p1323,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3)))))))))))))))))))),ToReal(2.),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),knmsub(kmul(imbar2,imbar2),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2323,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n1,kmul(n3,kmul(R4p1223,ToReal(-2.))),kmadd(n1,kmul(nn,kmul(Ro212,ToReal(2.))),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmul(n3,kmul(nn,kmul(Ro232,ToReal(2.)))))))))),kmadd(n2,kmadd(n1,kmul(R4p1213,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(n3,kmul(R4p1323,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.))),kmadd(n3,kmul(R4p1223,kmul(rmbar1,kmul(rmbar2,ToReal(2.)))),kmadd(n1,kmul(R4p1223,kmul(rmbar2,kmul(rmbar3,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(n3,kmul(R4p1213,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))))))))))),knmsub(kmul(imbar1,imbar1),kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(n2,kmul(kmadd(n3,R4p1213,kmul(nn,Ro121)),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(nn,kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.))))))))),kmsub(imbar1,kmul(imbar3,kmadd(R4p1223,kmul(kmul(n2,n2),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1213,kmsub(n3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),ToReal(2.)),kmsub(n2,kmul(kmsub(n3,R4p1323,kmul(nn,kadd(Ro123,Ro321))),ToReal(2.)),kmul(nn,kmadd(nn,kadd(Rojo13,Rojo31),kmul(n3,kmul(kadd(Ro133,Ro331),ToReal(2.))))))))),kmul(imbar2,kmadd(imbar3,kmadd(R4p1213,kmul(kmul(n1,n1),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1223,kmsub(nn,kadd(Ro213,Ro312),kmul(n3,R4p1323))),ToReal(2.)),kmadd(n2,kmadd(n3,kmul(R4p2323,ToReal(-2.)),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.)))),kmul(nn,kmadd(nn,kadd(Rojo23,Rojo32),kmul(n3,kmul(kadd(Ro233,Ro332),ToReal(2.)))))))),kmul(imbar1,kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n1,kmul(ToReal(-2.),kmadd(n2,R4p1212,kmsub(n3,R4p1213,kmul(nn,kadd(Ro112,Ro211))))),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n2,kmul(kmadd(n3,R4p1223,kmul(nn,kadd(Ro122,Ro221))),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmul(R4p1323,kmul(kmul(n3,n3),ToReal(2.))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi4iL = 
-      knmadd(im1,kmadd(R4p3132,kmul(rm2,kmul(n3,n3)),kmadd(R4p3231,kmul(rm2,kmul(n3,n3)),kmadd(R4p3133,kmul(rm3,kmul(n3,n3)),kmadd(R4p3331,kmul(rm3,kmul(n3,n3)),kmadd(rm2,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro331,ToReal(2.)))),kmadd(R4p3131,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm1,kmul(Rojo11,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm2,kmadd(R4p1211,rm2,kmadd(R4p1113,rm3,kmadd(R4p1311,rm3,kmul(R4p1111,kmul(rm1,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm2,kmadd(R4p2221,rm2,kmadd(R4p2123,rm3,kmadd(R4p2321,rm3,kmul(R4p2121,kmul(rm1,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm2,kmadd(R4p1221,rm2,kmadd(R4p2112,rm2,kmadd(R4p2211,rm2,kmadd(R4p1123,rm3,kmadd(R4p1321,rm3,kmadd(R4p2113,rm3,kmadd(R4p2311,rm3,kmadd(R4p1121,kmul(rm1,ToReal(2.)),kmul(R4p2111,kmul(rm1,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm2,kmadd(R4p1231,rm2,kmadd(R4p3112,rm2,kmadd(R4p3211,rm2,kmadd(R4p1133,rm3,kmadd(R4p1331,rm3,kmadd(R4p3113,rm3,kmadd(R4p3311,rm3,kmadd(R4p1131,kmul(rm1,ToReal(2.)),kmul(R4p3111,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm2,kmadd(R4p2231,rm2,kmadd(R4p3122,rm2,kmadd(R4p3221,rm2,kmadd(R4p2133,rm3,kmadd(R4p2331,rm3,kmadd(R4p3123,rm3,kmadd(R4p3321,rm3,kmadd(R4p2131,kmul(rm1,ToReal(2.)),kmul(R4p3121,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm1,kmul(Ro131,ToReal(4.))))))))))))))))))))))),kmadd(im3,kmadd(R4p3133,kmul(rm1,kmul(n3,n3)),kmadd(R4p3331,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm2,kmul(n3,n3)),kmadd(R4p3332,kmul(rm2,kmul(n3,n3)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(rm1,kmul(Rojo31,kmul(nn,nn)),kmadd(rm2,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro331,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro332,ToReal(2.)))),kmadd(R4p3333,kmul(rm3,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm3,kmul(Rojo33,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1113,rm1,kmadd(R4p1311,rm1,kmadd(R4p1213,rm2,kmadd(R4p1312,rm2,kmul(R4p1313,kmul(rm3,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2123,rm1,kmadd(R4p2321,rm1,kmadd(R4p2223,rm2,kmadd(R4p2322,rm2,kmul(R4p2323,kmul(rm3,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1123,rm1,kmadd(R4p1321,rm1,kmadd(R4p2113,rm1,kmadd(R4p2311,rm1,kmadd(R4p1223,rm2,kmadd(R4p1322,rm2,kmadd(R4p2213,rm2,kmadd(R4p2312,rm2,kmadd(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p2313,kmul(rm3,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1133,rm1,kmadd(R4p1331,rm1,kmadd(R4p3113,rm1,kmadd(R4p3311,rm1,kmadd(R4p1233,rm2,kmadd(R4p1332,rm2,kmadd(R4p3213,rm2,kmadd(R4p3312,rm2,kmadd(R4p1333,kmul(rm3,ToReal(2.)),kmul(R4p3313,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2133,rm1,kmadd(R4p2331,rm1,kmadd(R4p3123,rm1,kmadd(R4p3321,rm1,kmadd(R4p2233,rm2,kmadd(R4p2332,rm2,kmadd(R4p3223,rm2,kmadd(R4p3322,rm2,kmadd(R4p2333,kmul(rm3,ToReal(2.)),kmul(R4p3323,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm3,kmul(Ro333,ToReal(4.))))))))))))))))))))))),kmul(im2,kmadd(R4p3132,kmul(rm1,kmul(n3,n3)),kmadd(R4p3231,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm3,kmul(n3,n3)),kmadd(R4p3332,kmul(rm3,kmul(n3,n3)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(R4p3232,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm1,kmadd(R4p1211,rm1,kmadd(R4p1213,rm3,kmadd(R4p1312,rm3,kmul(R4p1212,kmul(rm2,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm1,kmadd(R4p2221,rm1,kmadd(R4p2223,rm3,kmadd(R4p2322,rm3,kmul(R4p2222,kmul(rm2,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm1,kmadd(R4p1221,rm1,kmadd(R4p2112,rm1,kmadd(R4p2211,rm1,kmadd(R4p1223,rm3,kmadd(R4p1322,rm3,kmadd(R4p2213,rm3,kmadd(R4p2312,rm3,kmadd(R4p1222,kmul(rm2,ToReal(2.)),kmul(R4p2212,kmul(rm2,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm1,kmadd(R4p1231,rm1,kmadd(R4p3112,rm1,kmadd(R4p3211,rm1,kmadd(R4p1233,rm3,kmadd(R4p1332,rm3,kmadd(R4p3213,rm3,kmadd(R4p3312,rm3,kmadd(R4p1232,kmul(rm2,ToReal(2.)),kmul(R4p3212,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm1,kmadd(R4p2231,rm1,kmadd(R4p3122,rm1,kmadd(R4p3221,rm1,kmadd(R4p2233,rm3,kmadd(R4p2332,rm3,kmadd(R4p3223,rm3,kmadd(R4p3322,rm3,kmadd(R4p2232,kmul(rm2,ToReal(2.)),kmul(R4p3222,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))))))))));
+      knmadd(im1,kmadd(kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmul(kmul(n3,n3),ToReal(2.)),kmadd(kmul(n2,n2),kmul(kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),ToReal(2.)),kmadd(n2,kmul(ToReal(2.),knmsub(n1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmadd(n3,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(nn,kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.))))))))),kmadd(n3,kmul(ToReal(2.),kmsub(nn,kmadd(rm2,kadd(Ro132,Ro231),kmadd(rm3,kadd(Ro133,Ro331),kmul(rm1,kmul(Ro131,ToReal(2.))))),kmul(n1,kmadd(R4p1213,rm2,kmul(R4p1313,rm3))))),kmul(nn,kmadd(n1,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.)))))),kmul(nn,kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.)))))))))))),kmadd(im2,kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(R4p1323,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(R4p2323,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(n1,kmul(ToReal(2.),kmadd(n2,kmsub(R4p1223,rm3,kmul(R4p1212,rm1)),kmsub(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))),kmul(n3,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmadd(n3,kmsub(R4p1223,rm1,kmul(R4p2323,rm3)),kmul(nn,kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))),kmul(im3,kmadd(kmadd(R4p1213,rm2,kmul(R4p1313,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(kmul(n2,n2),kmadd(R4p1223,kmul(rm1,ToReal(-2.)),kmul(R4p2323,kmul(rm3,ToReal(2.)))),kmadd(n1,kmul(ToReal(2.),knmsub(n3,kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmadd(n2,kmadd(R4p1223,rm2,kmsub(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p1213,rm1))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmsub(nn,kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.))))),kmul(n3,kmadd(R4p1323,rm1,kmul(R4p2323,rm2))))),kmul(nn,kmadd(n3,kmul(ToReal(2.),kmadd(rm1,kadd(Ro133,Ro331),kmadd(rm2,kadd(Ro233,Ro332),kmul(rm3,kmul(Ro333,ToReal(2.)))))),kmul(nn,kmadd(rm1,kadd(Rojo13,Rojo31),kmadd(rm2,kadd(Rojo23,Rojo32),kmul(rm3,kmul(Rojo33,ToReal(2.)))))))))))))));
     
     CCTK_REAL_VEC Psi3rL = 
-      kmadd(kmadd(ltet3,kmul(R4p3121,rm2),kmul(ltet1,kmul(R4p1131,rm3))),kmul(n1,n1),kmadd(ltet1,kmadd(n3,kmadd(kmadd(n1,R4p1311,kmul(n2,R4p1312)),rm1,kmadd(kmadd(n2,R4p1223,kmul(n1,kadd(R4p1123,R4p1321))),rm2,kmul(kmadd(n1,R4p1331,kmul(n2,kadd(R4p1233,R4p1332))),rm3))),kmadd(n1,kmadd(kmadd(n2,R4p1112,kmul(n3,R4p1113)),rm1,kmul(n2,kmadd(R4p1122,rm2,kmul(R4p1132,rm3)))),kmadd(n2,kmadd(kmadd(n1,R4p1211,kmul(n3,R4p1213)),rm1,kmul(n1,kmadd(R4p1221,rm2,kmul(R4p1231,rm3)))),kmul(rm1,kmadd(R4p1111,kmul(n1,n1),kmadd(R4p1212,kmul(n2,n2),kmul(R4p1313,kmul(n3,n3)))))))),kmadd(ltet2,kmadd(n3,kmadd(kmadd(n1,R4p2311,kmul(n2,R4p2312)),rm1,kmadd(kmadd(n1,R4p2321,kmul(n2,kadd(R4p2223,R4p2322))),rm2,kmul(kmadd(n2,R4p2233,kmul(n1,kadd(R4p2133,R4p2331))),rm3))),kmadd(n1,kmadd(kmadd(n2,R4p2112,kmul(n3,R4p2113)),rm1,kmul(n2,kmadd(R4p2122,rm2,kmul(R4p2132,rm3)))),kmadd(n2,kmadd(kmadd(n1,R4p2211,kmul(n3,R4p2213)),rm1,kmul(n1,kmadd(R4p2221,rm2,kmul(R4p2231,rm3)))),kmul(rm1,kmadd(R4p2111,kmul(n1,n1),kmadd(R4p2212,kmul(n2,n2),kmul(R4p2313,kmul(n3,n3)))))))),kmadd(ltet3,kmadd(n3,kmadd(kmadd(n1,R4p3311,kmul(n2,R4p3312)),rm1,kmadd(kmadd(n2,R4p3223,kmul(n1,kadd(R4p3123,R4p3321))),rm2,kmul(kmadd(n1,R4p3331,kmul(n2,kadd(R4p3233,R4p3332))),rm3))),kmadd(n1,kmadd(kmadd(n2,R4p3112,kmul(n3,R4p3113)),rm1,kmul(n2,kmadd(R4p3122,rm2,kmul(R4p3132,rm3)))),kmadd(n2,kmadd(kmadd(n1,R4p3211,kmul(n3,R4p3213)),rm1,kmul(n1,kmadd(R4p3221,rm2,kmul(R4p3231,rm3)))),kmul(rm1,kmadd(R4p3111,kmul(n1,n1),kmadd(R4p3212,kmul(n2,n2),kmul(R4p3313,kmul(n3,n3)))))))),kmadd(rm2,kmadd(kmadd(ltet1,R4p1121,kmul(ltet2,R4p2121)),kmul(n1,n1),kmadd(kmadd(ltet1,R4p1222,kmadd(ltet2,R4p2222,kmul(ltet3,R4p3222))),kmul(n2,n2),kmadd(kmadd(ltet1,R4p1323,kmadd(ltet2,R4p2323,kmul(ltet3,R4p3323))),kmul(n3,n3),kmul(Rojo12,kmul(kmul(nn,nn),ksub(ltet1,n1)))))),kmadd(kmul(nn,nn),kmadd(kmadd(rm2,Rojo22,kmul(rm3,Rojo23)),ksub(ltet2,n2),kmadd(kmadd(rm1,Rojo31,kmul(rm2,Rojo32)),ksub(ltet3,n3),kmul(rm1,kmadd(Rojo11,ksub(ltet1,n1),kmul(Rojo21,ksub(ltet2,n2)))))),kmadd(rm3,kmadd(kmadd(ltet2,R4p2131,kmul(ltet3,R4p3131)),kmul(n1,n1),kmadd(kmadd(ltet1,R4p1232,kmadd(ltet2,R4p2232,kmul(ltet3,R4p3232))),kmul(n2,n2),kmadd(kmadd(ltet1,R4p1333,kmadd(ltet2,R4p2333,kmul(ltet3,R4p3333))),kmul(n3,n3),kmul(kmul(nn,nn),kmadd(Rojo13,ksub(ltet1,n1),kmul(Rojo33,ksub(ltet3,n3))))))),kmadd(n3,kmadd(rm2,kmadd(ltet2,kmul(n1,R4p2123),kmadd(n2,kmadd(ltet1,R4p1322,kmul(ltet3,R4p3322)),kmul(nn,kmul(Ro223,kmadd(ltet2,ToReal(-2.),n2))))),kmadd(rm3,kmadd(ltet2,kmul(n2,R4p2332),kmadd(n1,kmadd(ltet1,R4p1133,kmul(ltet3,R4p3133)),kmul(nn,kmul(Ro333,kmadd(ltet3,ToReal(-2.),n3))))),kmul(nn,kmadd(rm1,kmul(Ro113,kmadd(ltet1,ToReal(-2.),n1)),kmadd(Ro313,kmsub(rm1,ksub(n3,ltet3),kmul(ltet1,rm3)),kmsub(Ro323,kmsub(rm2,ksub(n3,ltet3),kmul(ltet2,rm3)),kmadd(Ro123,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))),kmadd(Ro133,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1))),kmadd(Ro233,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2))),kmul(Ro213,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2))))))))))))),kmul(nn,kmadd(kmadd(n1,kmul(rm1,Ro111),kmul(n2,kmul(rm1,Ro112))),kmadd(ltet1,ToReal(-2.),n1),kmadd(n2,kmul(rm2,kmul(Ro222,kmadd(ltet2,ToReal(-2.),n2))),kmadd(n1,kmul(rm3,kmul(Ro331,kmadd(ltet3,ToReal(-2.),n3))),kmadd(n2,kmul(rm3,kmul(Ro332,kmadd(ltet3,ToReal(-2.),n3))),kmadd(n2,kmul(Ro232,kmsub(rm3,ksub(n2,ltet2),kmul(ltet3,rm2))),kmadd(n1,kmsub(rm2,kmul(Ro221,kmadd(ltet2,ToReal(-2.),n2)),kmul(Ro311,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3))))),knmsub(n2,kmadd(Ro122,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))),kmadd(Ro312,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3))),kmul(Ro132,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1)))))),kmadd(n1,kmadd(Ro121,kmsub(rm2,ksub(n1,ltet1),kmul(ltet2,rm1)),kmsub(Ro131,kmsub(rm3,ksub(n1,ltet1),kmul(ltet3,rm1)),kmadd(Ro211,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2))),kmadd(Ro321,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3))),kmul(Ro231,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2)))))))),kmul(n2,kmsub(Ro212,kmsub(rm1,ksub(n2,ltet2),kmul(ltet1,rm2)),kmul(Ro322,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3)))))))))))))))))))))));
+      kmadd(ltet2,kmul(R4p1212,kmul(rm2,kmul(n1,n1))),kmadd(ltet3,kmul(R4p1213,kmul(rm2,kmul(n1,n1))),kmadd(ltet2,kmul(R4p1213,kmul(rm3,kmul(n1,n1))),kmadd(ltet3,kmul(R4p1313,kmul(rm3,kmul(n1,n1))),kmadd(ltet1,kmul(R4p1212,kmul(rm1,kmul(n2,n2))),kmadd(ltet3,kmul(R4p2323,kmul(rm3,kmul(n2,n2))),kmadd(ltet1,kmul(R4p1313,kmul(rm1,kmul(n3,n3))),kmadd(ltet2,kmul(R4p1323,kmul(rm1,kmul(n3,n3))),kmadd(ltet1,kmul(R4p1323,kmul(rm2,kmul(n3,n3))),kmadd(ltet2,kmul(R4p2323,kmul(rm2,kmul(n3,n3))),kmadd(n1,kmul(nn,kmul(rm2,kmul(Ro221,kmadd(ltet2,ToReal(-2.),n2)))),kmadd(n2,kmul(nn,kmul(rm2,kmul(Ro222,kmadd(ltet2,ToReal(-2.),n2)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro223,kmadd(ltet2,ToReal(-2.),n2)))),kmadd(n1,kmul(nn,kmul(rm3,kmul(Ro331,kmadd(ltet3,ToReal(-2.),n3)))),kmadd(n2,kmul(nn,kmul(rm3,kmul(Ro332,kmadd(ltet3,ToReal(-2.),n3)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro333,kmadd(ltet3,ToReal(-2.),n3)))),kmadd(rm1,kmul(Rojo11,kmul(kmul(nn,nn),ksub(ltet1,n1))),kmadd(rm2,kmul(Rojo12,kmul(kmul(nn,nn),ksub(ltet1,n1))),kmadd(rm3,kmul(Rojo13,kmul(kmul(nn,nn),ksub(ltet1,n1))),kmadd(rm1,kmul(Rojo21,kmul(kmul(nn,nn),ksub(ltet2,n2))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ksub(ltet2,n2))),kmadd(rm3,kmul(Rojo23,kmul(kmul(nn,nn),ksub(ltet2,n2))),kmadd(rm1,kmul(Rojo31,kmul(kmul(nn,nn),ksub(ltet3,n3))),kmadd(rm2,kmul(Rojo32,kmul(kmul(nn,nn),ksub(ltet3,n3))),kmadd(rm3,kmul(Rojo33,kmul(kmul(nn,nn),ksub(ltet3,n3))),kmadd(n2,kmul(nn,kmul(Ro212,kmsub(rm1,ksub(n2,ltet2),kmul(ltet1,rm2)))),kmadd(n2,kmul(nn,kmul(Ro232,kmsub(rm3,ksub(n2,ltet2),kmul(ltet3,rm2)))),kmadd(n3,kmul(nn,kmul(Ro313,kmsub(rm1,ksub(n3,ltet3),kmul(ltet1,rm3)))),kmadd(n3,kmul(nn,kmul(Ro323,kmsub(rm2,ksub(n3,ltet3),kmul(ltet2,rm3)))),kmadd(ltet3,kmsub(n2,kmul(rm2,kmsub(n1,R4p1223,kmul(n3,R4p2323))),kmul(R4p1223,kmul(rm1,kmul(n2,n2)))),kmadd(ltet1,kmsub(n3,kmsub(n2,kmul(R4p1223,rm2),kmul(n1,kmul(R4p1313,rm3))),kmul(R4p1223,kmul(rm3,kmul(n2,n2)))),kmadd(n3,kmsub(rm1,kmsub(ltet2,kmul(n2,R4p1223),kmul(ltet3,kmul(n1,R4p1313))),kmadd(ltet1,kmadd(n2,kmul(R4p1323,rm3),kmul(n1,kmul(R4p1213,rm2))),kmul(nn,kmul(Ro123,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))))))),kmadd(n1,kmsub(ltet2,kmul(n3,kmul(R4p1223,kmul(rm2,ToReal(-2.)))),kmadd(ltet1,kmul(n2,kmul(R4p1213,rm3)),kmul(nn,kmul(Ro211,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2))))))),kmadd(nn,kmsub(n1,kmul(rm1,kmul(Ro111,kmadd(ltet1,ToReal(-2.),n1))),kmul(n3,kmul(Ro213,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2)))))),kmadd(nn,kmsub(n2,kmul(rm1,kmul(Ro112,kmadd(ltet1,ToReal(-2.),n1))),kmul(n3,kmul(Ro233,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2)))))),kmadd(nn,kmsub(n3,kmul(rm1,kmul(Ro113,kmadd(ltet1,ToReal(-2.),n1))),kmul(n1,kmul(Ro311,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3)))))),kmadd(nn,kmsub(n1,kmul(Ro121,kmsub(rm2,ksub(n1,ltet1),kmul(ltet2,rm1))),kmul(n2,kmul(Ro312,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3)))))),kmadd(n1,kmul(nn,kmsub(Ro131,kmsub(rm3,ksub(n1,ltet1),kmul(ltet3,rm1)),kmul(Ro321,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3)))))),knmsub(n1,kmadd(ltet2,kmul(n3,kmul(R4p1323,rm3)),kmadd(n2,kmadd(rm1,kmadd(ltet3,R4p1213,kmul(ltet2,R4p1212)),kmul(ltet1,kmul(R4p1212,rm2))),kmul(nn,kmul(Ro231,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2))))))),kmadd(n2,kmsub(ltet2,kmul(n1,kmul(R4p1223,rm3)),kmul(nn,kmadd(Ro322,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3))),kmul(Ro122,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))))))),kmadd(n2,kmsub(ltet3,kmul(n1,kmul(R4p1323,kmul(rm3,ToReal(2.)))),kmul(nn,kmul(Ro132,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1)))))),kmul(n3,knmsub(ltet2,kmul(n2,kmul(R4p2323,rm3)),knmsub(ltet3,kmul(R4p1323,kmadd(n1,rm2,kmul(n2,rm1))),kmsub(R4p1213,kmul(rm1,kmsub(ltet1,kmul(n2,ToReal(2.)),kmul(ltet2,n1))),kmul(nn,kmul(Ro133,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1))))))))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi3iL = 
-      knmadd(im2,kmadd(n2,kmul(n3,kmul(nn,Ro223)),kmadd(n1,kmul(n3,kmul(nn,Ro321)),kmadd(n2,kmul(n3,kmul(nn,Ro322)),kmadd(ltet3,kmul(R4p3121,kmul(n1,n1)),kmadd(nn,kmul(Ro121,kmul(n1,n1)),kmadd(ltet3,kmul(R4p3222,kmul(n2,n2)),kmadd(nn,kmul(Ro222,kmul(n2,n2)),kmadd(ltet3,kmul(R4p3323,kmul(n3,n3)),kmadd(nn,kmul(Ro323,kmul(n3,n3)),kmadd(ltet3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet2,kmadd(n2,kmul(n3,R4p2223),kmadd(n2,kmul(n3,R4p2322),kmadd(R4p2121,kmul(n1,n1),kmadd(R4p2222,kmul(n2,n2),kmadd(R4p2323,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(-2.))),kmadd(n3,kmul(nn,kmul(Ro223,ToReal(-2.))),kmul(n1,kmadd(n2,kadd(R4p2122,R4p2221),kmadd(n3,kadd(R4p2123,R4p2321),kmul(nn,kmul(Ro221,ToReal(-2.)))))))))))))),kmadd(ltet3,kmul(n1,kmsub(n2,R4p3122,kmul(nn,Ro231))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3123),kmul(n2,kmul(nn,Ro232))),kmadd(ltet3,kmsub(n1,kmul(n2,R4p3221),kmul(n3,kmul(nn,Ro233))),kmadd(ltet3,kmsub(n2,kmul(n3,R4p3223),kmul(n1,kmul(nn,Ro321))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3321),kmul(n2,kmul(nn,Ro322))),kmadd(ltet3,kmul(n3,kmsub(n2,R4p3322,kmul(nn,Ro323))),kmadd(n1,kmsub(n2,kmul(nn,Ro122),kmul(Rojo12,kmul(nn,nn))),kmadd(n2,kmsub(n1,kmul(nn,Ro221),kmul(Rojo22,kmul(nn,nn))),kmadd(n3,kmsub(n1,kmul(nn,Ro123),kmul(Rojo32,kmul(nn,nn))),kmul(ltet1,kmadd(R4p1121,kmul(n1,n1),kmadd(R4p1222,kmul(n2,n2),kmadd(R4p1323,kmul(n3,n3),kmadd(Rojo12,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p1122,R4p1221),kmsub(n3,kadd(R4p1123,R4p1321),kmul(nn,kadd(Ro121,Ro211)))),kmsub(n2,kmsub(n3,kadd(R4p1223,R4p1322),kmul(nn,kadd(Ro122,Ro212))),kmul(n3,kmul(nn,kadd(Ro213,Ro123)))))))))))))))))))))))))))))),kmadd(im3,kmadd(ltet3,kmul(n2,kmul(n3,R4p3233)),kmadd(ltet3,kmul(n1,kmul(n3,R4p3331)),kmadd(ltet3,kmul(n2,kmul(n3,R4p3332)),kmadd(n1,kmul(n2,kmul(nn,Ro132)),kmadd(n1,kmul(n3,kmul(nn,Ro133)),kmadd(n1,kmul(n2,kmul(nn,Ro231)),kmadd(n2,kmul(n3,kmul(nn,Ro233)),kmadd(n1,kmul(n3,kmul(nn,Ro331)),kmadd(n2,kmul(n3,kmul(nn,Ro332)),kmadd(ltet3,kmul(R4p3131,kmul(n1,n1)),kmadd(nn,kmul(Ro131,kmul(n1,n1)),kmadd(ltet3,kmul(R4p3232,kmul(n2,n2)),kmadd(nn,kmul(Ro232,kmul(n2,n2)),kmadd(ltet3,kmul(R4p3333,kmul(n3,n3)),kmadd(nn,kmul(Ro333,kmul(n3,n3)),kmadd(ltet3,kmul(Rojo33,kmul(nn,nn)),kmadd(ltet3,kmul(n1,kmul(nn,kmul(Ro331,ToReal(-2.)))),kmadd(ltet3,kmul(n2,kmul(nn,kmul(Ro332,ToReal(-2.)))),kmadd(ltet3,kmul(n3,kmul(nn,kmul(Ro333,ToReal(-2.)))),kmadd(n1,kmsub(ltet3,kmul(n2,R4p3132),kmul(Rojo13,kmul(nn,nn))),kmadd(n2,kmsub(ltet3,kmul(n1,R4p3231),kmul(Rojo23,kmul(nn,nn))),kmadd(n3,kmsub(ltet3,kmul(n1,R4p3133),kmul(Rojo33,kmul(nn,nn))),kmadd(ltet1,kmadd(R4p1131,kmul(n1,n1),kmadd(R4p1232,kmul(n2,n2),kmadd(R4p1333,kmul(n3,n3),kmadd(Rojo13,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p1132,R4p1231),kmsub(n3,kadd(R4p1133,R4p1331),kmul(nn,kadd(Ro131,Ro311)))),kmsub(n2,kmsub(n3,kadd(R4p1233,R4p1332),kmul(nn,kadd(Ro132,Ro312))),kmul(n3,kmul(nn,kadd(Ro313,Ro133))))))))),kmul(ltet2,kmadd(R4p2131,kmul(n1,n1),kmadd(R4p2232,kmul(n2,n2),kmadd(R4p2333,kmul(n3,n3),kmadd(Rojo23,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p2132,R4p2231),kmsub(n3,kadd(R4p2133,R4p2331),kmul(nn,kadd(Ro231,Ro321)))),kmsub(n2,kmsub(n3,kadd(R4p2233,R4p2332),kmul(nn,kadd(Ro232,Ro322))),kmul(n3,kmul(nn,kadd(Ro323,Ro233))))))))))))))))))))))))))))))))),kmul(im1,kmadd(n2,kmul(n3,kmul(nn,Ro213)),kmadd(n1,kmul(n3,kmul(nn,Ro311)),kmadd(n2,kmul(n3,kmul(nn,Ro312)),kmadd(ltet3,kmul(R4p3111,kmul(n1,n1)),kmadd(nn,kmul(Ro111,kmul(n1,n1)),kmadd(ltet3,kmul(R4p3212,kmul(n2,n2)),kmadd(nn,kmul(Ro212,kmul(n2,n2)),kmadd(ltet3,kmul(R4p3313,kmul(n3,n3)),kmadd(nn,kmul(Ro313,kmul(n3,n3)),kmadd(ltet3,kmul(Rojo31,kmul(nn,nn)),kmadd(ltet1,kmadd(n2,kmul(n3,R4p1213),kmadd(n2,kmul(n3,R4p1312),kmadd(R4p1111,kmul(n1,n1),kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro112,ToReal(-2.))),kmadd(n3,kmul(nn,kmul(Ro113,ToReal(-2.))),kmul(n1,kmadd(n2,kadd(R4p1112,R4p1211),kmadd(n3,kadd(R4p1113,R4p1311),kmul(nn,kmul(Ro111,ToReal(-2.)))))))))))))),kmadd(ltet3,kmul(n1,kmsub(n2,R4p3112,kmul(nn,Ro131))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3113),kmul(n2,kmul(nn,Ro132))),kmadd(ltet3,kmsub(n1,kmul(n2,R4p3211),kmul(n3,kmul(nn,Ro133))),kmadd(ltet3,kmsub(n2,kmul(n3,R4p3213),kmul(n1,kmul(nn,Ro311))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3311),kmul(n2,kmul(nn,Ro312))),kmadd(ltet3,kmul(n3,kmsub(n2,R4p3312,kmul(nn,Ro313))),kmadd(n1,kmsub(n2,kmul(nn,Ro112),kmul(Rojo11,kmul(nn,nn))),kmadd(n2,kmsub(n1,kmul(nn,Ro211),kmul(Rojo21,kmul(nn,nn))),kmadd(n3,kmsub(n1,kmul(nn,Ro113),kmul(Rojo31,kmul(nn,nn))),kmul(ltet2,kmadd(R4p2111,kmul(n1,n1),kmadd(R4p2212,kmul(n2,n2),kmadd(R4p2313,kmul(n3,n3),kmadd(Rojo21,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p2112,R4p2211),kmsub(n3,kadd(R4p2113,R4p2311),kmul(nn,kadd(Ro121,Ro211)))),kmsub(n2,kmsub(n3,kadd(R4p2213,R4p2312),kmul(nn,kadd(Ro122,Ro212))),kmul(n3,kmul(nn,kadd(Ro213,Ro123)))))))))))))))))))))))))))))))));
+      kmadd(im2,kmadd(n1,kmul(Rojo12,kmul(nn,nn)),kmadd(n2,kmul(Rojo22,kmul(nn,nn)),kmadd(n3,kmul(Rojo32,kmul(nn,nn)),knmsub(ltet2,kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2323,kmul(n3,n3),kmadd(n1,kmul(kmadd(n3,R4p1223,kmul(nn,Ro221)),ToReal(-2.)),kmadd(n3,kmul(nn,kmul(Ro223,ToReal(-2.))),kmul(nn,kmadd(nn,Rojo22,kmul(n2,kmul(Ro222,ToReal(-2.))))))))),kmadd(nn,kmsub(ltet3,kmul(n3,Ro233),kmul(Ro121,kmul(n1,n1))),kmadd(nn,kmsub(ltet3,kmul(n1,Ro321),kmul(Ro222,kmul(n2,n2))),kmadd(nn,kmsub(ltet3,kmul(n2,Ro322),kmul(Ro323,kmul(n3,n3))),kmadd(ltet3,kmsub(n3,kmul(nn,Ro323),kmul(Rojo32,kmul(nn,nn))),kmadd(ltet3,kmadd(n2,kmul(n3,R4p2323),kmadd(n1,kmul(nn,Ro231),kmsub(n1,kmsub(n3,R4p1323,kmul(n2,R4p1223)),kmul(R4p1213,kmul(n1,n1))))),kmadd(ltet1,kmadd(n3,kmul(nn,Ro123),kmadd(n1,kmadd(n2,R4p1212,kmadd(n3,R4p1213,kmul(nn,kadd(Ro121,Ro211)))),kmadd(n2,kmul(nn,Ro212),kmadd(n3,kmul(nn,Ro213),knmsub(R4p1323,kmul(n3,n3),kmsub(n2,kmsub(nn,Ro122,kmul(n3,R4p1223)),kmul(Rojo12,kmul(nn,nn)))))))),kmsub(n2,kmul(nn,kmsub(ltet3,Ro232,kmul(n3,kadd(Ro322,Ro223)))),kmul(n1,kmul(nn,kmadd(n3,kadd(Ro321,Ro123),kmul(n2,kadd(Ro221,Ro122)))))))))))))))),kmadd(im1,kmadd(ltet3,kmul(R4p1223,kmul(n2,n2)),kmadd(n1,kmul(Rojo11,kmul(nn,nn)),kmadd(n2,kmul(Rojo21,kmul(nn,nn)),kmadd(n3,kmul(Rojo31,kmul(nn,nn)),kmadd(n3,kmul(nn,kmsub(ltet3,Ro133,kmul(n1,Ro311))),kmadd(nn,kmsub(ltet3,kmul(n1,Ro311),kmul(Ro111,kmul(n1,n1))),kmadd(nn,kmsub(ltet3,kmul(n2,Ro312),kmul(Ro212,kmul(n2,n2))),kmadd(nn,kmul(Ro313,kmsub(ltet3,n3,kmul(n3,n3))),kmadd(ltet3,kmadd(n1,kmul(n2,R4p1213),kmadd(n1,kmul(n3,R4p1313),kmadd(n2,kmul(n3,R4p1323),kmsub(n1,kmul(nn,Ro131),kmul(Rojo31,kmul(nn,nn)))))),kmadd(ltet2,kmadd(n3,kmul(nn,Ro123),kmadd(n1,kmadd(n2,R4p1212,kmadd(n3,R4p1213,kmul(nn,kadd(Ro121,Ro211)))),kmadd(n2,kmul(nn,Ro212),kmadd(n3,kmul(nn,Ro213),knmsub(R4p1323,kmul(n3,n3),kmsub(n2,kmsub(nn,Ro122,kmul(n3,R4p1223)),kmul(Rojo21,kmul(nn,nn)))))))),knmsub(n1,kmul(nn,kmadd(n2,kadd(Ro211,Ro112),kmul(n3,Ro113))),kmsub(n2,kmul(nn,kmsub(ltet3,Ro132,kmul(n3,kadd(Ro312,Ro213)))),kmul(ltet1,kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n1,kmul(nn,kmul(Ro111,ToReal(-2.))),kmadd(n2,kmul(nn,kmul(Ro112,ToReal(-2.))),kmadd(n3,kmul(nn,kmul(Ro113,ToReal(-2.))),kmul(n2,kmul(n3,kmul(R4p1213,ToReal(2.))))))))))))))))))))))),kmul(im3,kmadd(n1,kmul(Rojo13,kmul(nn,nn)),kmadd(n2,kmul(Rojo23,kmul(nn,nn)),kmadd(n3,kmul(Rojo33,kmul(nn,nn)),knmsub(n3,kmul(nn,kmadd(n2,kadd(Ro332,Ro233),kmul(n1,Ro331))),kmadd(ltet1,kmadd(n1,kmadd(n2,R4p1213,kmadd(n3,R4p1313,kmul(nn,kadd(Ro131,Ro311)))),kmadd(n2,kmadd(n3,R4p1323,kmul(nn,kadd(Ro132,Ro312))),kmadd(R4p1223,kmul(n2,n2),kmul(nn,kmsub(n3,kadd(Ro133,Ro313),kmul(nn,Rojo13)))))),kmadd(ltet2,kmadd(n2,kmadd(n3,R4p2323,kmul(nn,kadd(Ro232,Ro322))),knmsub(R4p1213,kmul(n1,n1),kmadd(n1,kmadd(n3,R4p1323,kmsub(nn,kadd(Ro231,Ro321),kmul(n2,R4p1223))),kmul(nn,kmsub(n3,kadd(Ro233,Ro323),kmul(nn,Rojo23)))))),kmadd(ltet3,knmsub(R4p1313,kmul(n1,n1),knmsub(R4p2323,kmul(n2,n2),kmsub(n2,kmul(nn,kmul(Ro332,ToReal(2.))),kmul(Rojo33,kmul(nn,nn))))),kmadd(nn,knmsub(Ro131,kmul(n1,n1),kmsub(Ro333,kmsub(ltet3,kmul(n3,ToReal(2.)),kmul(n3,n3)),kmul(Ro232,kmul(n2,n2)))),kmul(n1,kmadd(n2,kmsub(ltet3,kmul(R4p1323,ToReal(-2.)),kmul(nn,kadd(Ro231,Ro132))),kmul(nn,kmsub(ltet3,kmul(Ro331,ToReal(2.)),kmul(n3,Ro133))))))))))))))));
     
     CCTK_REAL_VEC Psi2rL = 
-      kmadd(ltet1,kmul(n2,kmul(R4p1112,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet1,kmul(n3,kmul(R4p1113,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet2,kmul(n2,kmul(R4p2112,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet2,kmul(n3,kmul(R4p2113,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet3,kmul(n2,kmul(R4p3112,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet3,kmul(n3,kmul(R4p3113,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet1,kmadd(n1,kmul(R4p1121,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p1122,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p1123,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p1211,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p1212,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p1213,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p1131,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n2,kmul(R4p1132,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n3,kmul(R4p1133,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p1311,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n2,kmul(R4p1312,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p1231,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p1232,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p1233,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n1,kmul(R4p1321,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p1322,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p1323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p1111,kmadd(im1,im1,kmul(rm1,rm1))))))))))))))))))))),kmadd(ltet2,kmadd(n1,kmul(R4p2121,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p2122,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p2123,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p2211,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p2212,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p2213,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p2131,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p2231,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p2232,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p2233,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n1,kmul(R4p2321,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p2322,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p2323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p2111,kmadd(im1,im1,kmul(rm1,rm1))))))))))))))))),kmadd(ltet3,kmadd(n1,kmul(R4p3121,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p3122,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p3123,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p3211,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p3212,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p3213,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p3131,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p3231,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p3232,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p3233,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n1,kmul(R4p3321,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p3322,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p3323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p3111,kmadd(im1,im1,kmul(rm1,rm1))))))))))))))))),kmadd(ltet1,kmul(n1,kmul(R4p1221,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet1,kmul(n2,kmul(R4p1222,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet1,kmul(n3,kmul(R4p1223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet2,kmul(n1,kmul(R4p2221,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet2,kmul(n2,kmul(R4p2222,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet2,kmul(n3,kmul(R4p2223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet3,kmul(n1,kmul(R4p3221,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet3,kmul(n2,kmul(R4p3222,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet3,kmul(n3,kmul(R4p3223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet1,kmul(n1,kmul(R4p1331,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet1,kmul(n2,kmul(R4p1332,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet1,kmul(n3,kmul(R4p1333,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet2,kmul(n1,kmul(R4p2331,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet2,kmul(n2,kmul(R4p2332,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet2,kmul(n3,kmul(R4p2333,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet3,kmul(n1,kmul(R4p3331,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet3,kmul(n2,kmul(R4p3332,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet3,kmul(n3,kmul(R4p3333,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(nn,kmul(Ro222,kmul(kmadd(im2,im2,kmul(rm2,rm2)),ksub(n2,ltet2))),kmadd(nn,kmul(Ro333,kmul(kmadd(im3,im3,kmul(rm3,rm3)),ksub(n3,ltet3))),kmadd(nn,kmul(Ro112,kmsub(n2,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro221,kmsub(n1,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro113,kmsub(n3,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro331,kmsub(n1,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro223,kmsub(n3,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(nn,kmul(Ro332,kmsub(n2,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im2,im3,kmul(rm2,rm3))))),knmsub(kmadd(im1,im2,kmul(rm1,rm2)),kmul(kmul(nn,nn),kadd(Rojo21,Rojo12)),kmadd(nn,kmul(Ro121,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet2,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro131,kmsub(n1,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet3,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro212,kmsub(n2,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet1,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro232,kmsub(n2,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet3,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro313,kmsub(n3,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet1,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(nn,kmul(Ro323,kmsub(n3,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet2,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(kmadd(im1,im3,kmul(rm1,rm3)),kmadd(ltet1,kmul(n3,R4p1313),kmadd(ltet2,kmul(n2,R4p2132),kmadd(ltet2,kmul(n3,R4p2133),kmadd(ltet2,kmul(n1,R4p2311),kmadd(ltet2,kmul(n2,R4p2312),kmadd(ltet2,kmul(n3,R4p2313),kmadd(ltet3,kmul(n2,R4p3132),kmadd(ltet3,kmul(n3,R4p3133),kmadd(ltet3,kmul(n1,R4p3311),kmadd(ltet3,kmul(n2,R4p3312),kmadd(ltet3,kmul(n3,R4p3313),knmsub(Rojo13,kmul(nn,nn),kmadd(nn,kmul(Ro311,ksub(n1,ltet1)),kmul(nn,kmul(Ro133,ksub(n3,ltet3)))))))))))))))),kmsub(nn,kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmul(Ro211,ksub(n1,ltet1)),kmadd(Ro111,kmul(kmadd(im1,im1,kmul(rm1,rm1)),ksub(n1,ltet1)),kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmul(Ro122,ksub(n2,ltet2)),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro322,ksub(n2,ltet2)),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro233,ksub(n3,ltet3)),kmadd(Ro321,kmadd(im3,kmsub(im2,n1,kmul(im1,ltet2)),kmul(rm3,kmsub(n1,rm2,kmul(ltet2,rm1)))),kmadd(Ro231,kmadd(im2,kmsub(im3,n1,kmul(im1,ltet3)),kmul(rm2,kmsub(n1,rm3,kmul(ltet3,rm1)))),kmadd(Ro312,kmadd(im3,kmsub(im1,n2,kmul(im2,ltet1)),kmul(rm3,kmsub(n2,rm1,kmul(ltet1,rm2)))),kmadd(Ro132,kmadd(im1,kmsub(im3,n2,kmul(im2,ltet3)),kmul(rm1,kmsub(n2,rm3,kmul(ltet3,rm2)))),kmadd(Ro213,kmadd(im2,kmsub(im1,n3,kmul(im3,ltet1)),kmul(rm2,kmsub(n3,rm1,kmul(ltet1,rm3)))),kmul(Ro123,kmadd(im1,kmsub(im2,n3,kmul(im3,ltet2)),kmul(rm1,kmsub(n3,rm2,kmul(ltet2,rm3))))))))))))))),kmul(kmul(nn,nn),kmadd(kmadd(im1,im3,kmul(rm1,rm3)),Rojo31,kmadd(Rojo11,kmadd(im1,im1,kmul(rm1,rm1)),kmadd(Rojo22,kmadd(im2,im2,kmul(rm2,rm2)),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kadd(Rojo32,Rojo23),kmul(Rojo33,kmadd(im3,im3,kmul(rm3,rm3))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(ltet1,kmul(n3,kmul(R4p1223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(nn,kmul(kmadd(im1,im2,kmul(rm1,rm2)),kmul(Ro211,ksub(n1,ltet1))),kmadd(nn,kmul(kmadd(im1,im3,kmul(rm1,rm3)),kmul(Ro311,ksub(n1,ltet1))),kmadd(nn,kmul(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro322,ksub(n2,ltet2))),kmadd(nn,kmul(Ro222,kmul(kmadd(im2,im2,kmul(rm2,rm2)),ksub(n2,ltet2))),kmadd(nn,kmul(kmadd(im1,im3,kmul(rm1,rm3)),kmul(Ro133,ksub(n3,ltet3))),kmadd(nn,kmul(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro233,ksub(n3,ltet3))),kmadd(nn,kmul(Ro112,kmsub(n2,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro221,kmsub(n1,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro113,kmsub(n3,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro331,kmsub(n1,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro223,kmsub(n3,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(nn,kmul(Ro332,kmsub(n2,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmsub(ltet3,kmul(n3,kmul(R4p1323,ToReal(-2.))),kmul(Rojo12,kmul(nn,nn))),kmadd(kmadd(im1,im3,kmul(rm1,rm3)),kmsub(ltet2,kmul(n1,R4p1213),kmul(Rojo13,kmul(nn,nn))),kmadd(kmadd(im2,im2,kmul(rm2,rm2)),kmsub(ltet3,kmul(n1,R4p1223),kmul(Rojo22,kmul(nn,nn))),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmsub(ltet1,kmul(n1,kmul(R4p1213,ToReal(-2.))),kmul(Rojo23,kmul(nn,nn))),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmsub(ltet3,kmul(n1,R4p1323),kmul(Rojo32,kmul(nn,nn))),kmadd(nn,kmul(Ro121,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet2,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro131,kmsub(n1,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet3,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(ltet3,kmul(R4p1313,kmsub(n1,kmadd(im1,im3,kmul(rm1,rm3)),kmul(n3,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(n3,kmsub(ltet1,kmul(R4p1313,kmadd(im1,im3,kmul(rm1,rm3))),kmul(ltet2,kmul(R4p1213,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro212,kmsub(n2,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet1,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro232,kmsub(n2,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet3,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(ltet1,kmsub(n3,kmul(R4p1323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p1212,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(ltet3,kmsub(n2,kmul(R4p1323,kmadd(im1,im3,kmul(rm1,rm3))),kmul(n3,kmul(R4p2323,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro313,kmsub(n3,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet1,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(nn,kmul(Ro323,kmsub(n3,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet2,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(ltet2,kmul(R4p1323,kmsub(n3,kmadd(im1,im3,kmul(rm1,rm3)),kmul(n1,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(ltet2,kmul(R4p2323,kmsub(n3,kmadd(im2,im3,kmul(rm2,rm3)),kmul(n2,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(n2,kmsub(ltet3,kmul(R4p2323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(ltet1,kmul(R4p1323,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(kmadd(im1,im1,kmul(rm1,rm1)),kmsub(nn,kmul(Ro111,ksub(n1,ltet1)),kmul(Rojo11,kmul(nn,nn))),kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmsub(nn,kmul(Ro122,ksub(n2,ltet2)),kmul(Rojo21,kmul(nn,nn))),kmadd(kmadd(im3,im3,kmul(rm3,rm3)),kmsub(nn,kmul(Ro333,ksub(n3,ltet3)),kmul(Rojo33,kmul(nn,nn))),knmsub(R4p1223,kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmadd(ltet2,n3,kmul(ltet3,n2)),kmul(ltet2,kmul(n1,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(nn,kmul(Ro321,kmadd(im3,kmsub(im2,n1,kmul(im1,ltet2)),kmul(rm3,kmsub(n1,rm2,kmul(ltet2,rm1))))),kmadd(nn,kmul(Ro231,kmadd(im2,kmsub(im3,n1,kmul(im1,ltet3)),kmul(rm2,kmsub(n1,rm3,kmul(ltet3,rm1))))),kmadd(nn,kmul(Ro312,kmadd(im3,kmsub(im1,n2,kmul(im2,ltet1)),kmul(rm3,kmsub(n2,rm1,kmul(ltet1,rm2))))),kmadd(nn,kmul(Ro132,kmadd(im1,kmsub(im3,n2,kmul(im2,ltet3)),kmul(rm1,kmsub(n2,rm3,kmul(ltet3,rm2))))),kmadd(nn,kmul(Ro213,kmadd(im2,kmsub(im1,n3,kmul(im3,ltet1)),kmul(rm2,kmsub(n3,rm1,kmul(ltet1,rm3))))),kmadd(nn,kmul(Ro123,kmadd(im1,kmsub(im2,n3,kmul(im3,ltet2)),kmul(rm1,kmsub(n3,rm2,kmul(ltet2,rm3))))),kmadd(ltet1,kmsub(n2,kmsub(R4p1213,kmadd(im1,im3,kmul(rm1,rm3)),kmul(R4p1223,kmadd(im2,im3,kmul(rm2,rm3)))),kmul(n1,kmul(R4p1313,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(R4p1212,kmadd(ltet1,kmul(n2,kmadd(im1,im2,kmul(rm1,rm2))),kmul(ltet2,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(n2,kmadd(im1,im1,kmul(rm1,rm1)))))),kmadd(R4p1213,kmadd(ltet1,kmul(n3,kmadd(im1,im2,kmul(rm1,rm2))),kmul(ltet3,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(n2,kmadd(im1,im1,kmul(rm1,rm1)))))),kmul(kmadd(im1,im3,kmul(rm1,rm3)),kmsub(ltet2,kmul(n2,kmul(R4p1223,ToReal(2.))),kmul(Rojo31,kmul(nn,nn))))))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi2iL = 
-      kmadd(im3,kmadd(n2,kmul(nn,kmul(rm1,Ro312)),kmadd(n3,kmul(nn,kmul(rm1,Ro313)),kmadd(n2,kmul(nn,kmul(rm2,Ro322)),kmadd(n3,kmul(nn,kmul(rm2,Ro323)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro331)),kmadd(ltet3,kmul(nn,kmul(rm2,Ro332)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(ltet3,kmsub(n3,kmul(R4p3313,rm1),kmul(n2,kmul(R4p3232,rm2))),kmadd(ltet3,kmul(rm1,kmsub(n1,R4p3311,kmadd(nn,Ro133,kmul(n3,R4p3133)))),kmadd(rm1,kmsub(n1,kmul(nn,Ro311),kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmsub(n1,kmul(nn,Ro321),kmul(Rojo32,kmul(nn,nn))),knmsub(ltet3,kmadd(rm1,kmadd(n2,R4p3132,kmul(n1,R4p3131)),kmul(n3,kmul(R4p3233,rm2))),kmadd(n1,kmsub(rm2,kmsub(ltet3,R4p3321,kmul(nn,Ro231)),kmul(nn,kmul(rm1,Ro131))),kmadd(n2,kmsub(rm2,kmsub(ltet3,R4p3322,kmul(nn,Ro232)),kmul(nn,kmul(rm1,Ro132))),kmadd(n3,kmsub(rm2,kmsub(ltet3,R4p3323,kmul(nn,Ro233)),kmul(nn,kmul(rm1,Ro133))),kmadd(ltet3,kmsub(n2,kmul(R4p3312,rm1),kmul(rm2,kmadd(nn,Ro233,kmul(n1,R4p3231)))),kmadd(ltet1,kmadd(nn,kmul(rm2,Ro312),kmadd(nn,kmul(rm1,ksub(Ro311,Ro113)),kmadd(rm2,kmsub(n3,R4p1323,kmul(nn,Ro213)),kmadd(n3,kmsub(rm1,ksub(R4p1313,R4p1133),kmul(R4p1233,rm2)),kmadd(n1,kmadd(rm1,ksub(R4p1311,R4p1131),kmul(rm2,ksub(R4p1321,R4p1231))),kmul(n2,kmadd(rm1,ksub(R4p1312,R4p1132),kmul(rm2,ksub(R4p1322,R4p1232))))))))),kmul(ltet2,kmadd(nn,kmul(rm2,Ro322),kmadd(nn,kmul(rm1,ksub(Ro321,Ro123)),kmadd(rm2,kmsub(n3,R4p2323,kmul(nn,Ro223)),kmadd(n3,kmsub(rm1,ksub(R4p2313,R4p2133),kmul(R4p2233,rm2)),kmadd(n1,kmadd(rm1,ksub(R4p2311,R4p2131),kmul(rm2,ksub(R4p2321,R4p2231))),kmul(n2,kmadd(rm1,ksub(R4p2312,R4p2132),kmul(rm2,ksub(R4p2322,R4p2232)))))))))))))))))))))))))))),kmadd(im1,kmadd(n2,kmul(nn,kmul(rm3,Ro132)),kmadd(ltet3,kmul(nn,kmul(rm3,Ro133)),kmadd(n3,kmul(nn,kmul(rm3,Ro133)),kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),kmadd(n1,kmsub(ltet3,kmul(R4p3131,rm3),kmul(nn,kmul(rm2,Ro211))),kmadd(n2,kmsub(ltet3,kmul(R4p3132,rm3),kmul(nn,kmul(rm2,Ro212))),kmadd(n3,kmsub(ltet3,kmul(R4p3133,rm3),kmul(nn,kmul(rm2,Ro213))),kmadd(n1,kmul(nn,kmsub(rm2,Ro121,kmul(rm3,Ro311))),kmadd(n2,kmul(nn,kmsub(rm2,Ro122,kmul(rm3,Ro312))),kmadd(n3,kmul(nn,kmsub(rm2,Ro123,kmul(rm3,Ro313))),kmadd(rm2,kmsub(ltet3,kmul(nn,Ro132),kmul(Rojo12,kmul(nn,nn))),kmadd(rm3,kmsub(n1,kmul(nn,Ro131),kmul(Rojo13,kmul(nn,nn))),knmsub(ltet3,kmadd(rm2,kmadd(n3,R4p3213,kmul(n2,R4p3212)),kmul(n3,kmul(R4p3313,rm3))),kmadd(ltet3,kmadd(n1,kmsub(R4p3121,rm2,kmul(R4p3311,rm3)),kmul(rm2,kmsub(n2,R4p3122,kmul(nn,Ro231)))),kmadd(ltet3,kmsub(rm2,kmsub(n3,R4p3123,kmul(n1,R4p3211)),kmul(rm3,kmadd(nn,Ro331,kmul(n2,R4p3312)))),kmadd(ltet1,kmadd(nn,kmul(rm3,Ro113),kmadd(nn,kmul(rm2,ksub(Ro112,Ro211)),kmadd(rm3,kmsub(n3,R4p1133,kmul(nn,Ro311)),kmadd(n3,kmsub(rm2,ksub(R4p1123,R4p1213),kmul(R4p1313,rm3)),kmadd(n1,kmadd(rm2,ksub(R4p1121,R4p1211),kmul(rm3,ksub(R4p1131,R4p1311))),kmul(n2,kmadd(rm2,ksub(R4p1122,R4p1212),kmul(rm3,ksub(R4p1132,R4p1312))))))))),kmul(ltet2,kmadd(nn,kmul(rm3,Ro123),kmadd(nn,kmul(rm2,ksub(Ro122,Ro221)),kmadd(rm3,kmsub(n3,R4p2133,kmul(nn,Ro321)),kmadd(n3,kmsub(rm2,ksub(R4p2123,R4p2213),kmul(R4p2313,rm3)),kmadd(n1,kmadd(rm2,ksub(R4p2121,R4p2211),kmul(rm3,ksub(R4p2131,R4p2311))),kmul(n2,kmadd(rm2,ksub(R4p2122,R4p2212),kmul(rm3,ksub(R4p2132,R4p2312))))))))))))))))))))))))))),kmul(im2,kmadd(n2,kmul(nn,kmul(rm1,Ro212)),kmadd(n3,kmul(nn,kmul(rm1,Ro213)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro231)),kmadd(n2,kmul(nn,kmul(rm3,Ro232)),kmadd(ltet3,kmul(nn,kmul(rm3,Ro233)),kmadd(n3,kmul(nn,kmul(rm3,Ro233)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet3,kmsub(n3,kmul(R4p3213,rm1),kmul(n2,kmul(R4p3322,rm3))),kmadd(ltet3,kmul(rm1,kmsub(n1,R4p3211,kmadd(nn,Ro132,kmul(n3,R4p3123)))),kmadd(rm1,kmsub(n1,kmul(nn,Ro211),kmul(Rojo21,kmul(nn,nn))),kmadd(rm3,kmsub(n1,kmul(nn,Ro231),kmul(Rojo23,kmul(nn,nn))),knmsub(ltet3,kmadd(rm1,kmadd(n2,R4p3122,kmul(n1,R4p3121)),kmul(n3,kmul(R4p3323,rm3))),kmadd(n1,kmsub(rm3,kmsub(ltet3,R4p3231,kmul(nn,Ro321)),kmul(nn,kmul(rm1,Ro121))),kmadd(n2,kmsub(rm3,kmsub(ltet3,R4p3232,kmul(nn,Ro322)),kmul(nn,kmul(rm1,Ro122))),kmadd(n3,kmsub(rm3,kmsub(ltet3,R4p3233,kmul(nn,Ro323)),kmul(nn,kmul(rm1,Ro123))),kmadd(ltet3,kmsub(n2,kmul(R4p3212,rm1),kmul(rm3,kmadd(nn,Ro332,kmul(n1,R4p3321)))),kmadd(ltet1,kmadd(nn,kmul(rm3,Ro213),kmadd(nn,kmul(rm1,ksub(Ro211,Ro112)),kmadd(rm3,kmsub(n3,R4p1233,kmul(nn,Ro312)),kmadd(n3,kmsub(rm1,ksub(R4p1213,R4p1123),kmul(R4p1323,rm3)),kmadd(n1,kmadd(rm1,ksub(R4p1211,R4p1121),kmul(rm3,ksub(R4p1231,R4p1321))),kmul(n2,kmadd(rm1,ksub(R4p1212,R4p1122),kmul(rm3,ksub(R4p1232,R4p1322))))))))),kmul(ltet2,kmadd(nn,kmul(rm3,Ro223),kmadd(nn,kmul(rm1,ksub(Ro221,Ro122)),kmadd(rm3,kmsub(n3,R4p2233,kmul(nn,Ro322)),kmadd(n3,kmsub(rm1,ksub(R4p2213,R4p2123),kmul(R4p2323,rm3)),kmadd(n1,kmadd(rm1,ksub(R4p2211,R4p2121),kmul(rm3,ksub(R4p2231,R4p2321))),kmul(n2,kmadd(rm1,ksub(R4p2212,R4p2122),kmul(rm3,ksub(R4p2232,R4p2322)))))))))))))))))))))))))))))));
+      kmadd(im3,kmadd(n2,kmul(nn,kmul(rm1,Ro312)),kmadd(n3,kmul(nn,kmul(rm1,Ro313)),kmadd(n2,kmul(nn,kmul(rm2,Ro322)),kmadd(n3,kmul(nn,kmul(rm2,Ro323)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro331)),kmadd(ltet3,kmul(nn,kmul(rm2,Ro332)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(rm1,kmsub(n1,kmul(nn,Ro311),kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmsub(n1,kmul(nn,Ro321),kmul(Rojo32,kmul(nn,nn))),kmadd(ltet1,kmadd(n3,kmul(R4p1313,rm1),kmadd(n3,kmul(R4p1323,rm2),kmadd(nn,kmul(rm1,Ro311),kmadd(nn,kmul(rm2,Ro312),kmadd(rm1,kmsub(n2,R4p1213,kmul(nn,Ro113)),kmul(rm2,kmsub(n2,R4p1223,kmul(nn,Ro213)))))))),kmsub(ltet2,kmadd(nn,kmul(rm1,Ro321),kmadd(nn,kmul(rm2,Ro322),knmsub(n1,kmadd(R4p1213,rm1,kmul(R4p1223,rm2)),kmadd(rm1,kmsub(n3,R4p1323,kmul(nn,Ro123)),kmul(rm2,kmsub(n3,R4p2323,kmul(nn,Ro223))))))),kmadd(ltet3,kmadd(rm2,kmadd(n1,R4p1323,kmadd(nn,Ro233,kmul(n2,R4p2323))),kmul(rm1,kmadd(n1,R4p1313,kmadd(nn,Ro133,kmul(n2,R4p1323))))),kmul(nn,kmadd(rm2,kmadd(n1,Ro231,kmadd(n3,Ro233,kmul(n2,Ro232))),kmul(rm1,kmadd(n1,Ro131,kmadd(n3,Ro133,kmul(n2,Ro132))))))))))))))))))),kmadd(im2,kmadd(n3,kmul(nn,kmul(rm1,Ro213)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro231)),kmadd(n2,kmul(nn,kmul(rm3,Ro232)),kmadd(ltet3,kmul(nn,kmul(rm3,Ro233)),kmadd(n3,kmul(nn,kmul(rm3,Ro233)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(rm1,kmsub(n2,kmul(nn,Ro212),kmul(Rojo21,kmul(nn,nn))),kmadd(rm3,kmsub(n1,kmul(nn,Ro231),kmul(Rojo23,kmul(nn,nn))),kmadd(nn,kmsub(rm1,kmsub(n1,Ro211,kmul(n3,Ro123)),kmul(n3,kmul(rm3,Ro323))),knmsub(ltet3,kmadd(rm1,kmadd(n1,R4p1213,kmadd(nn,Ro132,kmul(n2,R4p1223))),kmul(nn,kmul(rm3,Ro332))),kmadd(n1,kmsub(rm3,kmsub(ltet3,R4p1323,kmul(nn,Ro321)),kmul(nn,kmul(rm1,Ro121))),kmadd(n2,kmsub(rm3,kmsub(ltet3,R4p2323,kmul(nn,Ro322)),kmul(nn,kmul(rm1,Ro122))),kmadd(ltet2,kmadd(nn,kmul(rm1,Ro221),kmadd(nn,kmul(rm3,Ro223),kmadd(rm1,kmsub(n3,R4p1223,kmadd(nn,Ro122,kmul(n1,R4p1212))),kmul(rm3,kmsub(n1,R4p1223,kmadd(nn,Ro322,kmul(n3,R4p2323))))))),kmul(ltet1,kmadd(nn,kmul(rm3,Ro213),kmadd(n2,kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),kmadd(n3,kmsub(R4p1213,rm1,kmul(R4p1323,rm3)),kmul(nn,kmsub(rm1,ksub(Ro211,Ro112),kmul(rm3,Ro312))))))))))))))))))))),kmul(im1,kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),knmsub(kmul(nn,nn),kmadd(rm3,Rojo13,kmul(rm2,Rojo12)),knmsub(ltet1,kmadd(n3,kmul(R4p1213,rm2),kmadd(n3,kmul(R4p1313,rm3),kmadd(nn,kmul(rm2,Ro211),kmadd(nn,kmul(rm3,Ro311),kmadd(rm2,kmsub(n2,R4p1212,kmul(nn,Ro112)),kmul(rm3,kmsub(n2,R4p1213,kmul(nn,Ro113)))))))),kmadd(nn,kmadd(n1,kmul(rm2,ksub(Ro121,Ro211)),kmadd(n2,kmul(rm2,ksub(Ro122,Ro212)),kmadd(n3,kmul(rm2,ksub(Ro123,Ro213)),kmadd(n1,kmul(rm3,ksub(Ro131,Ro311)),kmadd(n2,kmul(rm3,ksub(Ro132,Ro312)),kmul(n3,kmul(rm3,ksub(Ro133,Ro313)))))))),kmadd(ltet3,kmadd(n2,kmul(R4p1223,rm2),kmadd(n2,kmul(R4p1323,rm3),kmadd(nn,kmul(rm2,Ro132),kmadd(nn,kmul(rm3,Ro133),kmadd(rm2,kmsub(n1,R4p1213,kmul(nn,Ro231)),kmul(rm3,kmsub(n1,R4p1313,kmul(nn,Ro331)))))))),kmul(ltet2,kmadd(n1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmsub(nn,kmadd(rm2,ksub(Ro122,Ro221),kmul(rm3,ksub(Ro123,Ro321))),kmul(n3,kmadd(R4p1223,rm2,kmul(R4p1323,rm3)))))))))))))));
     
     CCTK_REAL_VEC Psi1rL = 
-      kmadd(kmadd(n1,kmadd(R4p1111,rm1,kmadd(R4p1121,rm2,kmul(R4p1131,rm3))),kmadd(n2,kmadd(R4p2111,rm1,kmadd(R4p2121,rm2,kmul(R4p2131,rm3))),kmadd(n3,kmadd(R4p3111,rm1,kmadd(R4p3121,rm2,kmul(R4p3131,rm3))),kmul(nn,kmadd(rm1,Ro111,kmadd(rm2,Ro121,kmul(rm3,Ro131))))))),kmul(ltet1,ltet1),kmadd(kmadd(n1,kmadd(R4p1212,rm1,kmadd(R4p1222,rm2,kmul(R4p1232,rm3))),kmadd(n2,kmadd(R4p2212,rm1,kmadd(R4p2222,rm2,kmul(R4p2232,rm3))),kmadd(n3,kmadd(R4p3212,rm1,kmadd(R4p3222,rm2,kmul(R4p3232,rm3))),kmul(nn,kmadd(rm1,Ro212,kmadd(rm2,Ro222,kmul(rm3,Ro232))))))),kmul(ltet2,ltet2),kmadd(kmadd(n1,kmadd(R4p1323,rm2,kmul(R4p1333,rm3)),kmadd(rm1,kmadd(n3,R4p3313,kmul(nn,Ro313)),kmul(nn,kmadd(rm2,Ro323,kmul(rm3,Ro333))))),kmul(ltet3,ltet3),kmadd(rm1,kmadd(kmadd(n1,R4p1313,kmul(n2,R4p2313)),kmul(ltet3,ltet3),kmul(n1,kmul(Rojo11,kmul(nn,nn)))),kmadd(rm2,kmadd(kmadd(n2,R4p2323,kmul(n3,R4p3323)),kmul(ltet3,ltet3),kmul(n1,kmul(Rojo12,kmul(nn,nn)))),kmadd(rm3,kmadd(kmadd(n2,R4p2333,kmul(n3,R4p3333)),kmul(ltet3,ltet3),kmul(n1,kmul(Rojo13,kmul(nn,nn)))),kmadd(kmul(nn,nn),kmadd(n2,kmadd(rm1,Rojo21,kmul(rm2,Rojo22)),kmadd(n3,kmadd(rm1,Rojo31,kmadd(rm2,Rojo32,kmul(rm3,Rojo33))),kmsub(rm3,kmsub(n2,Rojo23,kmul(ltet3,Rojo33)),kmul(ltet3,kmul(rm2,Rojo32))))),kmadd(ltet3,kmsub(nn,kmadd(n3,kmul(rm3,kmul(Ro333,ToReal(-2.))),knmsub(n2,kmul(rm3,kadd(Ro323,Ro233)),kmadd(rm1,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmsub(rm2,kmsub(n2,kmul(Ro223,ToReal(-2.)),kmul(n3,kadd(Ro323,Ro233))),kmul(n1,kmadd(rm3,kadd(Ro313,Ro133),kmul(rm2,kadd(Ro213,Ro123)))))))),kmul(rm1,kmul(Rojo31,kmul(nn,nn)))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kmadd(kadd(R4p1112,R4p1211),rm1,kmadd(kadd(R4p1122,R4p1221),rm2,kmul(kadd(R4p1132,R4p1231),rm3))),kmadd(n2,kmadd(kadd(R4p2112,R4p2211),rm1,kmadd(kadd(R4p2122,R4p2221),rm2,kmul(kadd(R4p2132,R4p2231),rm3))),kmadd(n3,kmadd(kadd(R4p3112,R4p3211),rm1,kmadd(kadd(R4p3122,R4p3221),rm2,kmul(kadd(R4p3132,R4p3231),rm3))),kmul(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm2,kadd(Ro122,Ro221),kmul(rm3,kadd(Ro132,Ro231)))))))),kmsub(ltet3,kmadd(n1,kmadd(kadd(R4p1113,R4p1311),rm1,kmadd(kadd(R4p1123,R4p1321),rm2,kmul(kadd(R4p1133,R4p1331),rm3))),kmadd(n2,kmadd(kadd(R4p2113,R4p2311),rm1,kmadd(kadd(R4p2123,R4p2321),rm2,kmul(kadd(R4p2133,R4p2331),rm3))),kmadd(n3,kmadd(kadd(R4p3113,R4p3311),rm1,kmadd(kadd(R4p3123,R4p3321),rm2,kmul(kadd(R4p3133,R4p3331),rm3))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro123,Ro321),kmul(rm3,kadd(Ro133,Ro331)))))))),kmul(nn,kmadd(nn,kmadd(rm1,Rojo11,kmadd(rm2,Rojo12,kmul(rm3,Rojo13))),kmadd(n1,kmadd(rm2,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro131,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))),kmadd(n2,kmadd(rm1,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro231,Ro321),kmul(rm2,kmul(Ro221,ToReal(2.))))),kmul(n3,kmadd(rm1,kadd(Ro131,Ro311),kmadd(rm2,kadd(Ro231,Ro321),kmul(rm3,kmul(Ro331,ToReal(2.)))))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kmadd(kadd(R4p1213,R4p1312),rm1,kmadd(kadd(R4p1223,R4p1322),rm2,kmul(kadd(R4p1233,R4p1332),rm3))),kmadd(n2,kmadd(kadd(R4p2213,R4p2312),rm1,kmadd(kadd(R4p2223,R4p2322),rm2,kmul(kadd(R4p2233,R4p2332),rm3))),kmadd(n3,kmadd(kadd(R4p3213,R4p3312),rm1,kmadd(kadd(R4p3223,R4p3322),rm2,kmul(kadd(R4p3233,R4p3332),rm3))),kmul(nn,kmadd(rm1,kadd(Ro213,Ro312),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kadd(Ro233,Ro332)))))))),kmul(nn,kmadd(nn,kmadd(rm1,Rojo21,kmadd(rm2,Rojo22,kmul(rm3,Rojo23))),kmadd(n1,kmadd(rm2,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro132,Ro312),kmul(rm1,kmul(Ro112,ToReal(2.))))),kmadd(n2,kmadd(rm1,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro232,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.))))),kmul(n3,kmadd(rm1,kadd(Ro132,Ro312),kmadd(rm2,kadd(Ro232,Ro322),kmul(rm3,kmul(Ro332,ToReal(2.)))))))))))))))))))));
+      kmadd(kmadd(n2,kmul(R4p1212,rm2),kmadd(n3,kmul(R4p1213,rm2),kmadd(n2,kmul(R4p1213,rm3),kmadd(n3,kmul(R4p1313,rm3),kmadd(nn,kmul(rm1,Ro111),kmadd(nn,kmul(rm2,Ro121),kmul(nn,kmul(rm3,Ro131)))))))),kmul(ltet1,ltet1),kmadd(n1,kmul(R4p1313,kmul(rm1,kmul(ltet3,ltet3))),kmadd(n2,kmul(R4p1323,kmul(rm1,kmul(ltet3,ltet3))),kmadd(n2,kmul(R4p2323,kmul(rm2,kmul(ltet3,ltet3))),kmadd(nn,kmul(rm1,kmul(Ro313,kmul(ltet3,ltet3))),kmadd(nn,kmul(rm2,kmul(Ro323,kmul(ltet3,ltet3))),kmadd(n1,kmul(rm1,kmul(Rojo11,kmul(nn,nn))),kmadd(n1,kmul(rm2,kmul(Rojo12,kmul(nn,nn))),kmadd(n1,kmul(rm3,kmul(Rojo13,kmul(nn,nn))),kmadd(n2,kmul(rm1,kmul(Rojo21,kmul(nn,nn))),kmadd(n2,kmul(rm2,kmul(Rojo22,kmul(nn,nn))),kmadd(n2,kmul(rm3,kmul(Rojo23,kmul(nn,nn))),kmadd(n3,kmul(rm1,kmul(Rojo31,kmul(nn,nn))),kmadd(n3,kmul(rm2,kmul(Rojo32,kmul(nn,nn))),kmadd(n3,kmul(rm3,kmul(Rojo33,kmul(nn,nn))),kmadd(rm2,kmsub(n1,kmul(R4p1323,kmul(ltet3,ltet3)),kmul(ltet3,kmul(Rojo32,kmul(nn,nn)))),kmadd(rm3,kmsub(nn,kmul(Ro333,kmul(ltet3,ltet3)),kmul(ltet3,kmul(Rojo33,kmul(nn,nn)))),kmadd(kmul(ltet2,ltet2),kmadd(nn,kmul(rm1,Ro212),kmadd(nn,kmul(rm2,Ro222),kmadd(nn,kmul(rm3,Ro232),kmadd(rm3,kmsub(n3,R4p2323,kmul(n1,R4p1223)),kmul(rm1,kmsub(n1,R4p1212,kmul(n3,R4p1223))))))),kmsub(ltet3,kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro333,ToReal(-2.)))),knmsub(rm1,kmul(Rojo31,kmul(nn,nn)),kmadd(n2,kmul(nn,kmsub(rm2,kmul(Ro223,ToReal(-2.)),kmul(rm3,kadd(Ro323,Ro233)))),kmul(nn,knmsub(n3,kmul(rm2,kadd(Ro323,Ro233)),kmsub(rm1,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmul(n1,kmadd(rm3,kadd(Ro313,Ro133),kmul(rm2,kadd(Ro213,Ro123)))))))))),kmadd(ltet2,kmadd(ltet1,kmadd(n3,kmsub(R4p1213,rm1,kmul(R4p1223,rm2)),kmadd(n2,kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),kmadd(rm3,kmsub(n1,R4p1213,kmul(nn,Ro132)),knmsub(nn,kmul(rm1,kadd(Ro211,Ro112)),kmadd(rm3,kmsub(n3,kmul(R4p1323,ToReal(-2.)),kmul(nn,Ro231)),kmul(rm2,kmsub(n1,R4p1212,kmul(nn,kadd(Ro221,Ro122))))))))),kmsub(nn,kmadd(n3,kmul(rm1,Ro132),kmadd(n3,kmul(rm2,Ro232),kmadd(n3,kmul(rm1,Ro312),kmadd(n3,kmul(rm2,Ro322),kmadd(nn,kmul(rm1,Rojo21),kmadd(nn,kmul(rm2,Rojo22),kmadd(nn,kmul(rm3,Rojo23),kmadd(n3,kmul(rm3,kmul(Ro332,ToReal(2.))),kmadd(n1,kmadd(rm2,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro132,Ro312),kmul(rm1,kmul(Ro112,ToReal(2.))))),kmul(n2,kmadd(rm1,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro232,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.))))))))))))))),kmul(ltet3,kmadd(nn,kmul(rm1,Ro213),kmadd(nn,kmul(rm2,Ro223),kmadd(nn,kmul(rm3,Ro233),kmadd(nn,kmul(rm1,Ro312),kmadd(nn,kmul(rm2,Ro322),kmadd(nn,kmul(rm3,Ro332),kmadd(rm1,kmsub(n2,R4p1223,kmul(n3,R4p1323)),kmsub(n1,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(R4p2323,kmadd(n2,rm3,kmul(n3,rm2)))))))))))))),kmul(ltet1,kmadd(ltet3,kmadd(rm2,kmsub(n1,R4p1213,kmul(nn,Ro123)),kmadd(rm2,kmsub(n3,R4p1323,kmul(nn,Ro321)),kmadd(rm1,kmsub(n3,R4p1313,kmul(nn,kadd(Ro311,Ro113))),kmadd(rm3,kmsub(n1,R4p1313,kmul(nn,kadd(Ro331,Ro133))),kmul(n2,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.)))))))))),kmul(nn,kmadd(n3,kmul(rm1,Ro131),kmadd(n3,kmul(rm2,Ro231),kmadd(n3,kmul(rm1,Ro311),kmadd(n3,kmul(rm2,Ro321),kmadd(nn,kmul(rm1,Rojo11),kmadd(nn,kmul(rm2,Rojo12),kmadd(nn,kmul(rm3,Rojo13),kmadd(n3,kmul(rm3,kmul(Ro331,ToReal(2.))),kmadd(n1,kmadd(rm2,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro131,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))),kmul(n2,kmadd(rm1,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro231,Ro321),kmul(rm2,kmul(Ro221,ToReal(2.))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi1iL = 
-      kmadd(im1,kmadd(kmadd(n1,R4p1111,kmadd(n2,R4p2111,kmadd(n3,R4p3111,kmul(nn,Ro111)))),kmul(ltet1,ltet1),kmadd(kmadd(n1,R4p1212,kmadd(n2,R4p2212,kmadd(n3,R4p3212,kmul(nn,Ro212)))),kmul(ltet2,ltet2),kmadd(kmadd(n1,R4p1313,kmadd(n2,R4p2313,kmadd(n3,R4p3313,kmul(nn,Ro313)))),kmul(ltet3,ltet3),kmadd(kmadd(n1,Rojo11,kmadd(n2,Rojo21,kmul(n3,Rojo31))),kmul(nn,nn),kmadd(ltet3,kmsub(nn,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmul(Rojo31,kmul(nn,nn))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kadd(R4p1112,R4p1211),kmadd(n2,kadd(R4p2112,R4p2211),kmadd(n3,kadd(R4p3112,R4p3211),kmul(nn,kadd(Ro112,Ro211))))),kmsub(ltet3,kmadd(n1,kadd(R4p1113,R4p1311),kmadd(n2,kadd(R4p2113,R4p2311),kmadd(n3,kadd(R4p3113,R4p3311),kmul(nn,kadd(Ro113,Ro311))))),kmul(nn,kmadd(n2,kadd(Ro121,Ro211),kmadd(n3,kadd(Ro131,Ro311),kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kadd(R4p1213,R4p1312),kmadd(n2,kadd(R4p2213,R4p2312),kmadd(n3,kadd(R4p3213,R4p3312),kmul(nn,kadd(Ro213,Ro312))))),kmul(nn,kmadd(n2,kadd(Ro122,Ro212),kmadd(n3,kadd(Ro132,Ro312),kmadd(nn,Rojo21,kmul(n1,kmul(Ro112,ToReal(2.))))))))))))))),kmadd(im2,kmadd(kmadd(n1,R4p1121,kmadd(n2,R4p2121,kmadd(n3,R4p3121,kmul(nn,Ro121)))),kmul(ltet1,ltet1),kmadd(kmadd(n1,R4p1222,kmadd(n2,R4p2222,kmadd(n3,R4p3222,kmul(nn,Ro222)))),kmul(ltet2,ltet2),kmadd(n1,kmul(R4p1323,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p2323,kmul(ltet3,ltet3)),kmadd(n3,kmul(R4p3323,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro323,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo12,kmul(nn,nn)),kmadd(n2,kmul(Rojo22,kmul(nn,nn)),kmadd(n3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet3,kmul(nn,kmsub(n2,kmul(Ro223,ToReal(-2.)),kmul(n3,Ro323))),knmsub(ltet3,kmadd(nn,kmadd(n1,kadd(Ro213,Ro123),kmul(n3,Ro233)),kmul(Rojo32,kmul(nn,nn))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kadd(R4p1122,R4p1221),kmadd(n2,kadd(R4p2122,R4p2221),kmadd(n3,R4p3122,kmadd(n3,R4p3221,kmadd(nn,Ro122,kmul(nn,Ro221)))))),kmsub(ltet3,kmadd(n1,kadd(R4p1123,R4p1321),kmadd(n2,kadd(R4p2123,R4p2321),kmadd(n3,R4p3123,kmadd(n3,R4p3321,kmadd(nn,Ro123,kmul(nn,Ro321)))))),kmul(nn,kmadd(n1,kadd(Ro121,Ro211),kmadd(n3,Ro231,kmadd(n3,Ro321,kmadd(nn,Rojo12,kmul(n2,kmul(Ro221,ToReal(2.)))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kadd(R4p1223,R4p1322),kmadd(n2,kadd(R4p2223,R4p2322),kmadd(n3,R4p3223,kmadd(n3,R4p3322,kmadd(nn,Ro223,kmul(nn,Ro322)))))),kmul(nn,kmadd(n1,kadd(Ro122,Ro212),kmadd(n3,Ro232,kmadd(n3,Ro322,kmadd(nn,Rojo22,kmul(n2,kmul(Ro222,ToReal(2.)))))))))))))))))))))),kmul(im3,kmadd(kmadd(n1,R4p1131,kmadd(n2,R4p2131,kmadd(n3,R4p3131,kmul(nn,Ro131)))),kmul(ltet1,ltet1),kmadd(kmadd(n1,R4p1232,kmadd(n2,R4p2232,kmadd(n3,R4p3232,kmul(nn,Ro232)))),kmul(ltet2,ltet2),kmadd(n1,kmul(R4p1333,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p2333,kmul(ltet3,ltet3)),kmadd(n3,kmul(R4p3333,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro333,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo13,kmul(nn,nn)),kmadd(n2,kmul(Rojo23,kmul(nn,nn)),kmadd(n3,kmul(Rojo33,kmul(nn,nn)),kmadd(ltet3,kmul(n3,kmul(nn,kmul(Ro333,ToReal(-2.)))),knmsub(ltet3,kmadd(nn,kmadd(n2,kadd(Ro323,Ro233),kmul(n1,kadd(Ro313,Ro133))),kmul(Rojo33,kmul(nn,nn))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kadd(R4p1132,R4p1231),kmadd(n2,kadd(R4p2132,R4p2231),kmadd(n3,R4p3132,kmadd(n3,R4p3231,kmadd(nn,Ro132,kmul(nn,Ro231)))))),kmsub(ltet3,kmadd(n1,kadd(R4p1133,R4p1331),kmadd(n2,kadd(R4p2133,R4p2331),kmadd(n3,R4p3133,kmadd(n3,R4p3331,kmadd(nn,Ro133,kmul(nn,Ro331)))))),kmul(nn,kmadd(n1,kadd(Ro131,Ro311),kmadd(n2,kadd(Ro231,Ro321),kmadd(nn,Rojo13,kmul(n3,kmul(Ro331,ToReal(2.))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kadd(R4p1233,R4p1332),kmadd(n2,kadd(R4p2233,R4p2332),kmadd(n3,R4p3233,kmadd(n3,R4p3332,kmadd(nn,Ro233,kmul(nn,Ro332)))))),kmul(nn,kmadd(n1,kadd(Ro132,Ro312),kmadd(n2,kadd(Ro232,Ro322),kmadd(nn,Rojo23,kmul(n3,kmul(Ro332,ToReal(2.))))))))))))))))))))))));
+      kmadd(im1,kmadd(nn,kmul(Ro111,kmul(ltet1,ltet1)),kmadd(n1,kmul(R4p1313,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p1323,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro313,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo11,kmul(nn,nn)),kmadd(n2,kmul(Rojo21,kmul(nn,nn)),kmadd(n3,kmul(Rojo31,kmul(nn,nn)),kmadd(kmul(ltet2,ltet2),kmadd(n1,R4p1212,kmsub(nn,Ro212,kmul(n3,R4p1223))),kmsub(ltet3,kmsub(nn,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmul(Rojo31,kmul(nn,nn))),kmadd(ltet2,kmadd(ltet1,kmadd(n2,R4p1212,kmsub(n3,R4p1213,kmul(nn,kadd(Ro112,Ro211)))),kmsub(nn,kmadd(n3,Ro132,kmadd(n2,kadd(Ro122,Ro212),kmadd(n3,Ro312,kmadd(nn,Rojo21,kmul(n1,kmul(Ro112,ToReal(2.))))))),kmul(ltet3,kmadd(n2,R4p1223,kmadd(nn,Ro213,kmadd(nn,Ro312,kmsub(n1,kmul(R4p1213,ToReal(2.)),kmul(n3,R4p1323)))))))),kmul(ltet1,kmadd(ltet3,kmadd(n2,R4p1213,kmsub(n3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),kmul(nn,kmadd(n3,Ro131,kmadd(n2,kadd(Ro121,Ro211),kmadd(n3,Ro311,kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.)))))))))))))))))))),kmadd(im2,kmadd(kmadd(n2,R4p1212,kmadd(n3,R4p1213,kmul(nn,Ro121))),kmul(ltet1,ltet1),kmadd(nn,kmul(Ro222,kmul(ltet2,ltet2)),kmadd(n1,kmul(R4p1323,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p2323,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro323,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo12,kmul(nn,nn)),kmadd(n2,kmul(Rojo22,kmul(nn,nn)),kmadd(n3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet3,kmul(nn,kmsub(n2,kmul(Ro223,ToReal(-2.)),kmul(n3,Ro323))),knmsub(ltet3,kmadd(nn,kmadd(n1,kadd(Ro213,Ro123),kmul(n3,Ro233)),kmul(Rojo32,kmul(nn,nn))),kmsub(ltet2,kmsub(ltet3,kmadd(n1,R4p1223,kmsub(nn,kadd(Ro223,Ro322),kmul(n3,R4p2323))),kmul(nn,kmadd(n1,kadd(Ro122,Ro212),kmadd(n3,Ro232,kmadd(n3,Ro322,kmadd(nn,Rojo22,kmul(n2,kmul(Ro222,ToReal(2.))))))))),kmul(ltet1,kmadd(ltet2,kmsub(n1,R4p1212,kmadd(nn,kadd(Ro122,Ro221),kmul(n3,R4p1223))),kmadd(ltet3,kmadd(n1,R4p1213,kmadd(n3,R4p1323,kmsub(n2,kmul(R4p1223,ToReal(2.)),kmul(nn,kadd(Ro321,Ro123))))),kmul(nn,kmadd(n1,kadd(Ro121,Ro211),kmadd(n3,Ro231,kmadd(n3,Ro321,kmadd(nn,Rojo12,kmul(n2,kmul(Ro221,ToReal(2.)))))))))))))))))))))),kmul(im3,kmadd(kmadd(n2,R4p1213,kmadd(n3,R4p1313,kmul(nn,Ro131))),kmul(ltet1,ltet1),kmsub(kmul(ltet2,ltet2),kmadd(n3,R4p2323,kmsub(nn,Ro232,kmul(n1,R4p1223))),kmadd(ltet1,kmadd(ltet3,kmadd(n1,R4p1313,kmsub(n2,R4p1323,kmul(nn,kadd(Ro133,Ro331)))),kmadd(ltet2,kmadd(n1,R4p1213,kmsub(n3,kmul(R4p1323,ToReal(-2.)),kmadd(nn,kadd(Ro231,Ro132),kmul(n2,R4p1223)))),kmul(nn,kmadd(n1,kadd(Ro131,Ro311),kmadd(n2,kadd(Ro231,Ro321),kmadd(nn,Rojo13,kmul(n3,kmul(Ro331,ToReal(2.))))))))),kmadd(nn,knmsub(nn,kmadd(n1,Rojo13,kmadd(n2,Rojo23,kmul(n3,Rojo33))),kmsub(ltet3,kmadd(n1,kadd(Ro133,Ro313),kmadd(n2,kadd(Ro233,Ro323),kmadd(nn,Rojo33,kmul(n3,kmul(Ro333,ToReal(2.)))))),kmul(Ro333,kmul(ltet3,ltet3)))),kmul(ltet2,kmadd(ltet3,kmadd(n1,R4p1323,kmsub(n2,R4p2323,kmul(nn,kadd(Ro233,Ro332)))),kmul(nn,kmadd(n1,kadd(Ro132,Ro312),kmadd(n2,kadd(Ro232,Ro322),kmadd(nn,Rojo23,kmul(n3,kmul(Ro332,ToReal(2.))))))))))))))));
     
     CCTK_REAL_VEC Psi0rL = 
-      kmadd(R4p1112,kmul(rm1,kmul(rm2,kmul(ltet1,ltet1))),kmadd(R4p1211,kmul(rm1,kmul(rm2,kmul(ltet1,ltet1))),kmadd(R4p1113,kmul(rm1,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p1311,kmul(rm1,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p1213,kmul(rm2,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p1312,kmul(rm2,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p2122,kmul(rm1,kmul(rm2,kmul(ltet2,ltet2))),kmadd(R4p2221,kmul(rm1,kmul(rm2,kmul(ltet2,ltet2))),kmadd(R4p2123,kmul(rm1,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p2321,kmul(rm1,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p2223,kmul(rm2,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p2322,kmul(rm2,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p3132,kmul(rm1,kmul(rm2,kmul(ltet3,ltet3))),kmadd(R4p3231,kmul(rm1,kmul(rm2,kmul(ltet3,ltet3))),kmadd(R4p3133,kmul(rm1,kmul(rm3,kmul(ltet3,ltet3))),kmadd(R4p3331,kmul(rm1,kmul(rm3,kmul(ltet3,ltet3))),kmadd(R4p3233,kmul(rm2,kmul(rm3,kmul(ltet3,ltet3))),kmadd(R4p3332,kmul(rm2,kmul(rm3,kmul(ltet3,ltet3))),kmadd(rm1,kmul(rm2,kmul(Rojo12,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo13,kmul(nn,nn))),kmadd(rm1,kmul(rm2,kmul(Rojo21,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo23,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo32,kmul(nn,nn))),kmadd(ltet1,kmul(ltet2,kmul(R4p1121,kmul(rm1,rm1))),kmadd(ltet1,kmul(ltet3,kmul(R4p1131,kmul(rm1,rm1))),kmadd(ltet1,kmul(ltet2,kmul(R4p2111,kmul(rm1,rm1))),kmadd(ltet2,kmul(ltet3,kmul(R4p2131,kmul(rm1,rm1))),kmadd(ltet1,kmul(ltet3,kmul(R4p3111,kmul(rm1,rm1))),kmadd(ltet2,kmul(ltet3,kmul(R4p3121,kmul(rm1,rm1))),kmadd(R4p1111,kmul(kmul(ltet1,ltet1),kmul(rm1,rm1)),kmadd(R4p2121,kmul(kmul(ltet2,ltet2),kmul(rm1,rm1)),kmadd(R4p3131,kmul(kmul(ltet3,ltet3),kmul(rm1,rm1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rm1,rm1)),kmadd(ltet1,kmul(ltet2,kmul(R4p1222,kmul(rm2,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p1232,kmul(rm2,rm2))),kmadd(ltet1,kmul(ltet2,kmul(R4p2212,kmul(rm2,rm2))),kmadd(ltet2,kmul(ltet3,kmul(R4p2232,kmul(rm2,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p3212,kmul(rm2,rm2))),kmadd(ltet2,kmul(ltet3,kmul(R4p3222,kmul(rm2,rm2))),kmadd(R4p1212,kmul(kmul(ltet1,ltet1),kmul(rm2,rm2)),kmadd(R4p2222,kmul(kmul(ltet2,ltet2),kmul(rm2,rm2)),kmadd(R4p3232,kmul(kmul(ltet3,ltet3),kmul(rm2,rm2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rm2,rm2)),kmadd(ltet1,kmul(ltet2,kmul(R4p1323,kmul(rm3,rm3))),kmadd(ltet1,kmul(ltet3,kmul(R4p1333,kmul(rm3,rm3))),kmadd(ltet1,kmul(ltet2,kmul(R4p2313,kmul(rm3,rm3))),kmadd(ltet2,kmul(ltet3,kmul(R4p2333,kmul(rm3,rm3))),kmadd(ltet1,kmul(ltet3,kmul(R4p3313,kmul(rm3,rm3))),kmadd(ltet2,kmul(ltet3,kmul(R4p3323,kmul(rm3,rm3))),kmadd(ltet2,kmul(nn,kmul(Ro323,kmul(kmul(im3,im3),ToReal(-2.)))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(kmul(im3,im3),ToReal(-2.)))),knmsub(ltet3,kmul(kmul(im3,im3),kmadd(ltet1,R4p3313,kmul(ltet2,R4p2333))),kmadd(kmul(im3,im3),kmsub(ltet1,kmul(nn,kmul(Ro313,ToReal(-2.))),kmul(ltet2,kmul(ltet3,R4p3323))),kmadd(R4p1313,kmsub(kmul(ltet1,ltet1),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(ltet1,ltet1))),kmadd(R4p2323,kmsub(kmul(ltet2,ltet2),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(ltet2,ltet2))),kmadd(R4p3333,kmsub(kmul(ltet3,ltet3),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(ltet3,ltet3))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(nn,nn))),kmadd(ltet1,kmul(nn,kmul(Ro111,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro121,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro131,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro212,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro222,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro232,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro313,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro323,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet1,kmadd(ltet3,kmul(R4p1132,kmul(rm1,rm2)),kmadd(ltet2,kmul(R4p1221,kmul(rm1,rm2)),kmadd(ltet3,kmul(R4p1231,kmul(rm1,rm2)),kmadd(ltet2,kmul(R4p1123,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p1331,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p2113,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p1233,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p1322,kmul(rm2,rm3)),kmadd(ltet3,kmul(R4p1332,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p2213,kmul(rm2,rm3)),kmadd(ltet2,kmsub(R4p1122,kmul(rm1,rm2),kmul(R4p1323,kmul(im3,im3))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro112,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro113,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro211,ToReal(2.)))),kmadd(nn,kmul(rm2,kmul(rm3,kmul(Ro213,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro311,ToReal(2.)))),kmul(nn,kmul(rm2,kmul(rm3,kmul(Ro312,ToReal(2.))))))))))))))))))))),kmadd(ltet2,kmadd(ltet3,kmul(R4p2132,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p2211,kmul(rm1,rm2)),kmadd(ltet3,kmul(R4p2231,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p1321,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p2133,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p2311,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p3321,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p1223,kmul(rm2,rm3)),kmadd(ltet3,kmul(R4p2233,kmul(rm2,rm3)),kmadd(ltet1,kmul(R4p2312,kmul(rm2,rm3)),kmadd(ltet1,kmsub(R4p2112,kmul(rm1,rm2),kmul(R4p2313,kmul(im3,im3))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro123,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rm2,kmul(rm3,kmul(Ro223,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro321,ToReal(2.)))),kmul(nn,kmul(rm2,kmul(rm3,kmul(Ro322,ToReal(2.))))))))))))))))))))),kmsub(ltet3,kmadd(ltet2,kmul(R4p3122,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p3211,kmul(rm1,rm2)),kmadd(ltet2,kmul(R4p3221,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p1133,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p2331,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p3113,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p3123,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p3311,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p2332,kmul(rm2,rm3)),kmadd(ltet1,kmul(R4p3213,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p3223,kmul(rm2,rm3)),kmadd(ltet1,kmul(R4p3312,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p3322,kmul(rm2,rm3)),kmadd(ltet1,kmsub(R4p3112,kmul(rm1,rm2),kmul(R4p1333,kmul(im3,im3))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro132,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro133,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro231,ToReal(2.)))),kmadd(nn,kmul(rm2,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro331,ToReal(2.)))),kmul(nn,kmul(rm2,kmul(rm3,kmul(Ro332,ToReal(2.)))))))))))))))))))))))),kmadd(kmul(im1,im1),kmadd(ltet2,kmul(ltet3,R4p2131),kmadd(ltet2,kmul(ltet3,R4p3121),kmadd(R4p1111,kmul(ltet1,ltet1),kmadd(R4p2121,kmul(ltet2,ltet2),kmadd(R4p3131,kmul(ltet3,ltet3),kmadd(Rojo11,kmul(nn,nn),kmadd(ltet2,kmul(nn,kmul(Ro121,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(ltet1,kmadd(ltet2,kadd(R4p1121,R4p2111),kmadd(ltet3,kadd(R4p1131,R4p3111),kmul(nn,kmul(Ro111,ToReal(2.)))))))))))))),kmadd(kmul(im2,im2),kmadd(ltet2,kmul(ltet3,R4p2232),kmadd(ltet2,kmul(ltet3,R4p3222),kmadd(R4p1212,kmul(ltet1,ltet1),kmadd(R4p2222,kmul(ltet2,ltet2),kmadd(R4p3232,kmul(ltet3,ltet3),kmadd(Rojo22,kmul(nn,nn),kmadd(ltet2,kmul(nn,kmul(Ro222,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro232,ToReal(2.))),kmul(ltet1,kmadd(ltet2,kadd(R4p1222,R4p2212),kmadd(ltet3,kadd(R4p1232,R4p3212),kmul(nn,kmul(Ro212,ToReal(2.)))))))))))))),kmadd(im2,kmul(im3,kmadd(kadd(R4p1213,R4p1312),kmul(ltet1,ltet1),kmadd(kadd(R4p2223,R4p2322),kmul(ltet2,ltet2),kmadd(R4p3233,kmul(ltet3,ltet3),kmadd(R4p3332,kmul(ltet3,ltet3),kmadd(Rojo23,kmul(nn,nn),kmadd(Rojo32,kmul(nn,nn),kmadd(ltet3,kmul(nn,kmul(Ro233,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro332,ToReal(2.))),kmadd(ltet1,kmadd(ltet2,kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),kmadd(ltet3,kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),kmul(nn,kmul(kadd(Ro213,Ro312),ToReal(2.))))),kmul(ltet2,kmadd(ltet3,kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.))))))))))))))),kmul(im1,kmadd(im2,kmadd(kadd(R4p1112,R4p1211),kmul(ltet1,ltet1),kmadd(kadd(R4p2122,R4p2221),kmul(ltet2,ltet2),kmadd(R4p3132,kmul(ltet3,ltet3),kmadd(R4p3231,kmul(ltet3,ltet3),kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(ltet3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro231,ToReal(2.))),kmadd(ltet1,kmadd(ltet2,kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),kmadd(ltet3,kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),kmul(nn,kmul(kadd(Ro112,Ro211),ToReal(2.))))),kmul(ltet2,kmadd(ltet3,kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),kmul(nn,kmul(kadd(Ro122,Ro221),ToReal(2.)))))))))))))),kmul(im3,kmadd(kadd(R4p1113,R4p1311),kmul(ltet1,ltet1),kmadd(kadd(R4p2123,R4p2321),kmul(ltet2,ltet2),kmadd(R4p3133,kmul(ltet3,ltet3),kmadd(R4p3331,kmul(ltet3,ltet3),kmadd(Rojo13,kmul(nn,nn),kmadd(Rojo31,kmul(nn,nn),kmadd(ltet3,kmul(nn,kmul(Ro133,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro331,ToReal(2.))),kmadd(ltet1,kmadd(ltet2,kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),kmadd(ltet3,kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),kmul(nn,kmul(kadd(Ro113,Ro311),ToReal(2.))))),kmul(ltet2,kmadd(ltet3,kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),kmul(nn,kmul(kadd(Ro123,Ro321),ToReal(2.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(rm1,kmul(rm2,kmul(Rojo12,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo13,kmul(nn,nn))),kmadd(rm1,kmul(rm2,kmul(Rojo21,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo23,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo32,kmul(nn,nn))),kmadd(R4p1212,kmul(kmul(ltet2,ltet2),kmul(rm1,rm1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rm1,rm1)),kmadd(R4p1212,kmul(kmul(ltet1,ltet1),kmul(rm2,rm2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rm2,rm2)),kmadd(R4p1313,kmul(kmul(ltet1,ltet1),kmul(rm3,rm3)),kmadd(R4p2323,kmul(kmul(ltet2,ltet2),kmul(rm3,rm3)),kmadd(kmadd(ltet1,kmul(ltet2,kmul(R4p1212,kmul(rm1,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p1213,kmul(rm1,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p1313,kmul(rm1,rm3))),kmadd(ltet1,kmul(ltet3,kmul(R4p1323,kmul(rm2,rm3))),kmadd(ltet2,kmul(ltet3,kmul(R4p2323,kmul(rm2,rm3))),kmadd(ltet1,kmul(ltet2,kmul(R4p1323,kmul(im3,im3))),kmadd(ltet1,kmul(nn,kmul(Ro313,kmul(im3,im3))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(im3,im3))),kmul(R4p1223,kmul(rm1,kmul(rm3,kmul(ltet2,ltet2)))))))))))),ToReal(-2.),kmadd(ltet1,kmul(ltet3,kmul(R4p1223,kmul(kmul(rm2,rm2),ToReal(-2.)))),kmadd(R4p1313,kmsub(kmul(ltet3,ltet3),kmul(rm1,rm1),kmul(kmul(im3,im3),kmul(ltet1,ltet1))),kmadd(R4p2323,kmsub(kmul(ltet3,ltet3),kmul(rm2,rm2),kmul(kmul(im3,im3),kmul(ltet2,ltet2))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(nn,nn))),kmadd(kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm2,Ro112))),kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm3,Ro113))),kmadd(ltet2,kmul(nn,kmul(rm1,kmul(rm3,Ro123))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm2,Ro132))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm3,Ro133))),kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm2,Ro211))),kmadd(ltet1,kmul(nn,kmul(rm2,kmul(rm3,Ro213))),kmadd(ltet2,kmul(nn,kmul(rm2,kmul(rm3,Ro223))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm2,Ro231))),kmadd(ltet3,kmul(nn,kmul(rm2,kmul(rm3,Ro233))),kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm3,Ro311))),kmadd(ltet1,kmul(nn,kmul(rm2,kmul(rm3,Ro312))),kmadd(ltet2,kmul(nn,kmul(rm2,kmul(rm3,Ro322))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm3,Ro331))),kmadd(ltet3,kmul(nn,kmul(rm2,kmul(rm3,Ro332))),kmadd(R4p1213,kmul(rm2,kmul(rm3,kmul(ltet1,ltet1))),kmul(R4p1323,kmul(rm1,kmul(rm2,kmul(ltet3,ltet3)))))))))))))))))))),ToReal(2.),kmadd(ltet1,kmul(nn,kmul(Ro111,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro121,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro131,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro212,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro222,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro232,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet1,kmul(ltet2,kmul(R4p1323,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro313,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro323,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(kmul(rm3,rm3),ToReal(2.)))),knmsub(kmul(im2,im2),kmadd(R4p1212,kmul(ltet1,ltet1),kmadd(R4p2323,kmul(ltet3,ltet3),kmadd(Rojo22,kmul(nn,nn),kmadd(ltet1,kmul(ltet3,kmul(R4p1223,ToReal(-2.))),kmadd(ltet1,kmul(nn,kmul(Ro212,ToReal(2.))),kmadd(ltet2,kmul(nn,kmul(Ro222,ToReal(2.))),kmul(ltet3,kmul(nn,kmul(Ro232,ToReal(2.)))))))))),kmadd(ltet2,kmadd(ltet1,kmul(R4p1213,kmul(rm1,kmul(rm3,ToReal(-2.)))),kmadd(ltet3,kmul(R4p1323,kmul(rm1,kmul(rm3,ToReal(-2.)))),kmadd(nn,kmul(Ro323,kmul(kmul(im3,im3),ToReal(-2.))),kmadd(ltet3,kmul(R4p1223,kmul(rm1,kmul(rm2,ToReal(2.)))),kmadd(ltet1,kmul(R4p1223,kmul(rm2,kmul(rm3,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro321,ToReal(2.)))),kmul(ltet3,kmul(R4p1213,kmul(kmul(rm1,rm1),ToReal(2.)))))))))))),knmsub(kmul(im1,im1),kmadd(R4p1212,kmul(ltet2,ltet2),kmadd(R4p1313,kmul(ltet3,ltet3),kmadd(ltet2,kmul(kmadd(ltet3,R4p1213,kmul(nn,Ro121)),ToReal(2.)),kmadd(ltet3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(nn,kmadd(nn,Rojo11,kmul(ltet1,kmul(Ro111,ToReal(2.))))))))),kmsub(im1,kmul(im3,kmadd(R4p1223,kmul(kmul(ltet2,ltet2),ToReal(2.)),kmadd(ltet1,kmul(kmadd(ltet2,R4p1213,kmsub(ltet3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),ToReal(2.)),kmsub(ltet2,kmul(kmsub(ltet3,R4p1323,kmul(nn,kadd(Ro123,Ro321))),ToReal(2.)),kmul(nn,kmadd(nn,kadd(Rojo13,Rojo31),kmul(ltet3,kmul(kadd(Ro133,Ro331),ToReal(2.))))))))),kmul(im2,kmadd(im3,kmadd(R4p1213,kmul(kmul(ltet1,ltet1),ToReal(2.)),kmadd(ltet1,kmul(kmadd(ltet2,R4p1223,kmsub(nn,kadd(Ro213,Ro312),kmul(ltet3,R4p1323))),ToReal(2.)),kmadd(ltet2,kmadd(ltet3,kmul(R4p2323,ToReal(-2.)),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.)))),kmul(nn,kmadd(nn,kadd(Rojo23,Rojo32),kmul(ltet3,kmul(kadd(Ro233,Ro332),ToReal(2.)))))))),kmul(im1,kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(ltet1,kmul(ToReal(-2.),kmadd(ltet2,R4p1212,kmsub(ltet3,R4p1213,kmul(nn,kadd(Ro112,Ro211))))),kmadd(ltet3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(ltet2,kmul(kmadd(ltet3,R4p1223,kmul(nn,kadd(Ro122,Ro221))),ToReal(2.)),kmadd(ltet3,kmul(nn,kmul(Ro231,ToReal(2.))),kmul(R4p1323,kmul(kmul(ltet3,ltet3),ToReal(2.))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi0iL = 
-      kmadd(im1,kmadd(kmul(ltet1,ltet1),kmadd(kadd(R4p1112,R4p1211),rm2,kmadd(kadd(R4p1113,R4p1311),rm3,kmul(R4p1111,kmul(rm1,ToReal(2.))))),kmadd(kmul(ltet2,ltet2),kmadd(kadd(R4p2122,R4p2221),rm2,kmadd(kadd(R4p2123,R4p2321),rm3,kmul(R4p2121,kmul(rm1,ToReal(2.))))),kmadd(kmul(ltet3,ltet3),kmadd(kadd(R4p3132,R4p3231),rm2,kmadd(kadd(R4p3133,R4p3331),rm3,kmul(R4p3131,kmul(rm1,ToReal(2.))))),kmadd(kmul(nn,nn),kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.))))),kmadd(ltet1,kmadd(ltet2,kmadd(kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),rm2,kmadd(kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),rm3,kmul(kadd(R4p1121,R4p2111),kmul(rm1,ToReal(2.))))),kmadd(ltet3,kmadd(kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),rm2,kmadd(kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),rm3,kmul(kadd(R4p1131,R4p3111),kmul(rm1,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))))))),kmadd(ltet2,kmadd(ltet3,kmadd(kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),rm2,kmadd(kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),rm3,kmul(kadd(R4p2131,R4p3121),kmul(rm1,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(ltet3,kmul(nn,kmadd(kmadd(rm2,kadd(Ro132,Ro231),kmul(rm3,kadd(Ro133,Ro331))),ToReal(2.),kmul(rm1,kmul(Ro131,ToReal(4.)))))))))))),kmadd(im2,kmadd(kmadd(rm1,Rojo21,kmul(rm3,Rojo32)),kmul(nn,nn),kmadd(rm1,kmadd(kadd(R4p3132,R4p3231),kmul(ltet3,ltet3),kmul(Rojo12,kmul(nn,nn))),kmadd(rm3,kmadd(kadd(R4p3233,R4p3332),kmul(ltet3,ltet3),kmul(Rojo23,kmul(nn,nn))),kmadd(kmadd(ltet3,kmul(nn,kmadd(rm1,kadd(Ro132,Ro231),kmul(rm3,Ro233))),kmul(rm2,kmadd(R4p3232,kmul(ltet3,ltet3),kmul(Rojo22,kmul(nn,nn))))),ToReal(2.),kmadd(kmul(ltet1,ltet1),kmadd(kadd(R4p1112,R4p1211),rm1,kmadd(kadd(R4p1213,R4p1312),rm3,kmul(R4p1212,kmul(rm2,ToReal(2.))))),kmadd(kmul(ltet2,ltet2),kmadd(kadd(R4p2122,R4p2221),rm1,kmadd(kadd(R4p2223,R4p2322),rm3,kmul(R4p2222,kmul(rm2,ToReal(2.))))),kmadd(ltet1,kmadd(ltet2,kmadd(kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),rm1,kmadd(kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),rm3,kmul(kadd(R4p1222,R4p2212),kmul(rm2,ToReal(2.))))),kmadd(ltet3,kmadd(kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),rm1,kmadd(kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),rm3,kmul(kadd(R4p1232,R4p3212),kmul(rm2,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))))))),kmadd(ltet2,kmadd(ltet3,kmadd(kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),rm1,kmadd(kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),rm3,kmul(kadd(R4p2232,R4p3222),kmul(rm2,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(ltet3,kmul(nn,kmadd(rm3,kmul(Ro332,ToReal(2.)),kmul(rm2,kmul(Ro232,ToReal(4.)))))))))))))),kmul(im3,kmadd(kmadd(rm1,Rojo31,kmul(rm2,Rojo32)),kmul(nn,nn),kmadd(rm1,kmadd(kadd(R4p3133,R4p3331),kmul(ltet3,ltet3),kmul(Rojo13,kmul(nn,nn))),kmadd(rm2,kmadd(kadd(R4p3233,R4p3332),kmul(ltet3,ltet3),kmul(Rojo23,kmul(nn,nn))),kmadd(kmadd(ltet3,kmul(nn,kmadd(rm1,kadd(Ro133,Ro331),kmul(rm2,kadd(Ro233,Ro332)))),kmul(R4p3333,kmul(rm3,kmul(ltet3,ltet3)))),ToReal(2.),kmadd(kmul(ltet1,ltet1),kmadd(kadd(R4p1113,R4p1311),rm1,kmadd(kadd(R4p1213,R4p1312),rm2,kmul(R4p1313,kmul(rm3,ToReal(2.))))),kmadd(kmul(ltet2,ltet2),kmadd(kadd(R4p2123,R4p2321),rm1,kmadd(kadd(R4p2223,R4p2322),rm2,kmul(R4p2323,kmul(rm3,ToReal(2.))))),kmadd(ltet1,kmadd(ltet2,kmadd(kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),rm1,kmadd(kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),rm2,kmul(kadd(R4p1323,R4p2313),kmul(rm3,ToReal(2.))))),kmadd(ltet3,kmadd(kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),rm1,kmadd(kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),rm2,kmul(kadd(R4p1333,R4p3313),kmul(rm3,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(ltet2,kmadd(ltet3,kmadd(kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),rm1,kmadd(kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),rm2,kmul(kadd(R4p2333,R4p3323),kmul(rm3,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.)))))))),kmul(rm3,kmadd(Rojo33,kmul(kmul(nn,nn),ToReal(2.)),kmul(ltet3,kmul(nn,kmul(Ro333,ToReal(4.)))))))))))))))));
+      kmadd(im1,kmadd(nn,kmadd(ltet1,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.)))))),kmul(nn,kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.))))))),kmul(ToReal(2.),kmadd(kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmul(ltet3,ltet3),kmadd(kmul(ltet2,ltet2),kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),kmadd(ltet2,knmsub(ltet1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmadd(ltet3,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(nn,kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(ltet3,kmsub(nn,kmadd(rm2,kadd(Ro132,Ro231),kmadd(rm3,kadd(Ro133,Ro331),kmul(rm1,kmul(Ro131,ToReal(2.))))),kmul(ltet1,kmadd(R4p1213,rm2,kmul(R4p1313,rm3)))))))))),kmadd(im3,kmadd(kmul(ltet2,ltet2),kmadd(R4p1223,kmul(rm1,ToReal(-2.)),kmul(R4p2323,kmul(rm3,ToReal(2.)))),kmadd(nn,kmadd(ltet3,kmul(ToReal(2.),kmadd(rm1,kadd(Ro133,Ro331),kmadd(rm2,kadd(Ro233,Ro332),kmul(rm3,kmul(Ro333,ToReal(2.)))))),kmul(nn,kmadd(rm1,kadd(Rojo13,Rojo31),kmadd(rm2,kadd(Rojo23,Rojo32),kmul(rm3,kmul(Rojo33,ToReal(2.))))))),kmul(ToReal(2.),kmadd(kmadd(R4p1213,rm2,kmul(R4p1313,rm3)),kmul(ltet1,ltet1),kmadd(ltet1,knmsub(ltet3,kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmadd(ltet2,kmadd(R4p1223,rm2,kmsub(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p1213,rm1))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.)))))))),kmul(ltet2,kmsub(nn,kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.))))),kmul(ltet3,kmadd(R4p1323,rm1,kmul(R4p2323,rm2)))))))))),kmul(im2,kmadd(kmadd(rm1,kadd(Rojo12,Rojo21),kmul(rm3,kadd(Rojo23,Rojo32))),kmul(nn,nn),kmadd(ToReal(2.),kmadd(ltet3,kmul(nn,kmadd(rm1,kadd(Ro132,Ro231),kmul(rm3,Ro233))),kmadd(kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmul(ltet1,ltet1),kmadd(kmadd(R4p1323,rm1,kmul(R4p2323,rm2)),kmul(ltet3,ltet3),kmadd(rm2,kmul(Rojo22,kmul(nn,nn)),kmadd(ltet1,kmadd(ltet2,kmsub(R4p1223,rm3,kmul(R4p1212,rm1)),kmsub(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))),kmul(ltet3,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.)))))))),kmul(ltet2,kmadd(ltet3,kmsub(R4p1223,rm1,kmul(R4p2323,rm3)),kmul(nn,kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.))))))))))))),kmul(ltet3,kmul(nn,kmadd(rm3,kmul(Ro332,ToReal(2.)),kmul(rm2,kmul(Ro232,ToReal(4.)))))))))));
     
     /* Copy local copies back to grid functions */
     vec_store_partial_prepare(i,lc_imin,lc_imax);
diff --git a/src/psis_calc_4th.cc b/src/psis_calc_4th.cc
index 9a98405..e00a7ab 100644
--- a/src/psis_calc_4th.cc
+++ b/src/psis_calc_4th.cc
@@ -630,23 +630,14 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     }
     
     /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandard4th11gxy;
-    CCTK_REAL_VEC JacPDstandard4th11gxz;
     CCTK_REAL_VEC JacPDstandard4th11gyy;
     CCTK_REAL_VEC JacPDstandard4th11gyz;
     CCTK_REAL_VEC JacPDstandard4th11gzz;
-    CCTK_REAL_VEC JacPDstandard4th12gxx;
     CCTK_REAL_VEC JacPDstandard4th12gxy;
     CCTK_REAL_VEC JacPDstandard4th12gxz;
-    CCTK_REAL_VEC JacPDstandard4th12gyy;
     CCTK_REAL_VEC JacPDstandard4th12gyz;
     CCTK_REAL_VEC JacPDstandard4th12gzz;
-    CCTK_REAL_VEC JacPDstandard4th13gxx;
-    CCTK_REAL_VEC JacPDstandard4th13gxy;
     CCTK_REAL_VEC JacPDstandard4th13gxz;
-    CCTK_REAL_VEC JacPDstandard4th13gyy;
-    CCTK_REAL_VEC JacPDstandard4th13gyz;
-    CCTK_REAL_VEC JacPDstandard4th13gzz;
     CCTK_REAL_VEC JacPDstandard4th1gxx;
     CCTK_REAL_VEC JacPDstandard4th1gxy;
     CCTK_REAL_VEC JacPDstandard4th1gxz;
@@ -658,23 +649,14 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard4th1kyy;
     CCTK_REAL_VEC JacPDstandard4th1kyz;
     CCTK_REAL_VEC JacPDstandard4th1kzz;
-    CCTK_REAL_VEC JacPDstandard4th21gxx;
     CCTK_REAL_VEC JacPDstandard4th21gxy;
-    CCTK_REAL_VEC JacPDstandard4th21gxz;
-    CCTK_REAL_VEC JacPDstandard4th21gyy;
-    CCTK_REAL_VEC JacPDstandard4th21gyz;
-    CCTK_REAL_VEC JacPDstandard4th21gzz;
     CCTK_REAL_VEC JacPDstandard4th22gxx;
-    CCTK_REAL_VEC JacPDstandard4th22gxy;
     CCTK_REAL_VEC JacPDstandard4th22gxz;
-    CCTK_REAL_VEC JacPDstandard4th22gyz;
     CCTK_REAL_VEC JacPDstandard4th22gzz;
     CCTK_REAL_VEC JacPDstandard4th23gxx;
     CCTK_REAL_VEC JacPDstandard4th23gxy;
     CCTK_REAL_VEC JacPDstandard4th23gxz;
-    CCTK_REAL_VEC JacPDstandard4th23gyy;
     CCTK_REAL_VEC JacPDstandard4th23gyz;
-    CCTK_REAL_VEC JacPDstandard4th23gzz;
     CCTK_REAL_VEC JacPDstandard4th2gxx;
     CCTK_REAL_VEC JacPDstandard4th2gxy;
     CCTK_REAL_VEC JacPDstandard4th2gxz;
@@ -686,23 +668,14 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard4th2kxz;
     CCTK_REAL_VEC JacPDstandard4th2kyz;
     CCTK_REAL_VEC JacPDstandard4th2kzz;
-    CCTK_REAL_VEC JacPDstandard4th31gxx;
     CCTK_REAL_VEC JacPDstandard4th31gxy;
     CCTK_REAL_VEC JacPDstandard4th31gxz;
     CCTK_REAL_VEC JacPDstandard4th31gyy;
     CCTK_REAL_VEC JacPDstandard4th31gyz;
-    CCTK_REAL_VEC JacPDstandard4th31gzz;
-    CCTK_REAL_VEC JacPDstandard4th32gxx;
-    CCTK_REAL_VEC JacPDstandard4th32gxy;
-    CCTK_REAL_VEC JacPDstandard4th32gxz;
-    CCTK_REAL_VEC JacPDstandard4th32gyy;
     CCTK_REAL_VEC JacPDstandard4th32gyz;
-    CCTK_REAL_VEC JacPDstandard4th32gzz;
     CCTK_REAL_VEC JacPDstandard4th33gxx;
     CCTK_REAL_VEC JacPDstandard4th33gxy;
-    CCTK_REAL_VEC JacPDstandard4th33gxz;
     CCTK_REAL_VEC JacPDstandard4th33gyy;
-    CCTK_REAL_VEC JacPDstandard4th33gyz;
     CCTK_REAL_VEC JacPDstandard4th3gxx;
     CCTK_REAL_VEC JacPDstandard4th3gxy;
     CCTK_REAL_VEC JacPDstandard4th3gxz;
@@ -816,12 +789,6 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th3kyz = 
         kmadd(J13L,PDstandard4th1kyz,kmadd(J23L,PDstandard4th2kyz,kmul(J33L,PDstandard4th3kyz)));
       
-      JacPDstandard4th11gxy = 
-        kmadd(dJ111L,PDstandard4th1gxy,kmadd(dJ211L,PDstandard4th2gxy,kmadd(dJ311L,PDstandard4th3gxy,kmadd(PDstandard4th11gxy,kmul(J11L,J11L),kmadd(PDstandard4th22gxy,kmul(J21L,J21L),kmadd(PDstandard4th33gxy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy)),kmul(J21L,kmul(J31L,PDstandard4th23gxy))),ToReal(2.))))))));
-      
-      JacPDstandard4th11gxz = 
-        kmadd(dJ111L,PDstandard4th1gxz,kmadd(dJ211L,PDstandard4th2gxz,kmadd(dJ311L,PDstandard4th3gxz,kmadd(PDstandard4th11gxz,kmul(J11L,J11L),kmadd(PDstandard4th22gxz,kmul(J21L,J21L),kmadd(PDstandard4th33gxz,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard4th12gxz,kmul(J31L,PDstandard4th13gxz)),kmul(J21L,kmul(J31L,PDstandard4th23gxz))),ToReal(2.))))))));
-      
       JacPDstandard4th11gyy = 
         kmadd(dJ111L,PDstandard4th1gyy,kmadd(dJ211L,PDstandard4th2gyy,kmadd(dJ311L,PDstandard4th3gyy,kmadd(PDstandard4th11gyy,kmul(J11L,J11L),kmadd(PDstandard4th22gyy,kmul(J21L,J21L),kmadd(PDstandard4th33gyy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard4th12gyy,kmul(J31L,PDstandard4th13gyy)),kmul(J21L,kmul(J31L,PDstandard4th23gyy))),ToReal(2.))))))));
       
@@ -834,15 +801,9 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th22gxx = 
         kmadd(dJ122L,PDstandard4th1gxx,kmadd(dJ222L,PDstandard4th2gxx,kmadd(dJ322L,PDstandard4th3gxx,kmadd(PDstandard4th11gxx,kmul(J12L,J12L),kmadd(PDstandard4th22gxx,kmul(J22L,J22L),kmadd(PDstandard4th33gxx,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx)),kmul(J22L,kmul(J32L,PDstandard4th23gxx))),ToReal(2.))))))));
       
-      JacPDstandard4th22gxy = 
-        kmadd(dJ122L,PDstandard4th1gxy,kmadd(dJ222L,PDstandard4th2gxy,kmadd(dJ322L,PDstandard4th3gxy,kmadd(PDstandard4th11gxy,kmul(J12L,J12L),kmadd(PDstandard4th22gxy,kmul(J22L,J22L),kmadd(PDstandard4th33gxy,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gxy,kmul(J32L,PDstandard4th13gxy)),kmul(J22L,kmul(J32L,PDstandard4th23gxy))),ToReal(2.))))))));
-      
       JacPDstandard4th22gxz = 
         kmadd(dJ122L,PDstandard4th1gxz,kmadd(dJ222L,PDstandard4th2gxz,kmadd(dJ322L,PDstandard4th3gxz,kmadd(PDstandard4th11gxz,kmul(J12L,J12L),kmadd(PDstandard4th22gxz,kmul(J22L,J22L),kmadd(PDstandard4th33gxz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz)),kmul(J22L,kmul(J32L,PDstandard4th23gxz))),ToReal(2.))))))));
       
-      JacPDstandard4th22gyz = 
-        kmadd(dJ122L,PDstandard4th1gyz,kmadd(dJ222L,PDstandard4th2gyz,kmadd(dJ322L,PDstandard4th3gyz,kmadd(PDstandard4th11gyz,kmul(J12L,J12L),kmadd(PDstandard4th22gyz,kmul(J22L,J22L),kmadd(PDstandard4th33gyz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz)),kmul(J22L,kmul(J32L,PDstandard4th23gyz))),ToReal(2.))))))));
-      
       JacPDstandard4th22gzz = 
         kmadd(dJ122L,PDstandard4th1gzz,kmadd(dJ222L,PDstandard4th2gzz,kmadd(dJ322L,PDstandard4th3gzz,kmadd(PDstandard4th11gzz,kmul(J12L,J12L),kmadd(PDstandard4th22gzz,kmul(J22L,J22L),kmadd(PDstandard4th33gzz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz)),kmul(J22L,kmul(J32L,PDstandard4th23gzz))),ToReal(2.))))))));
       
@@ -852,69 +813,27 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th33gxy = 
         kmadd(dJ133L,PDstandard4th1gxy,kmadd(dJ233L,PDstandard4th2gxy,kmadd(dJ333L,PDstandard4th3gxy,kmadd(PDstandard4th11gxy,kmul(J13L,J13L),kmadd(PDstandard4th22gxy,kmul(J23L,J23L),kmadd(PDstandard4th33gxy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard4th12gxy,kmul(J33L,PDstandard4th13gxy)),kmul(J23L,kmul(J33L,PDstandard4th23gxy))),ToReal(2.))))))));
       
-      JacPDstandard4th33gxz = 
-        kmadd(dJ133L,PDstandard4th1gxz,kmadd(dJ233L,PDstandard4th2gxz,kmadd(dJ333L,PDstandard4th3gxz,kmadd(PDstandard4th11gxz,kmul(J13L,J13L),kmadd(PDstandard4th22gxz,kmul(J23L,J23L),kmadd(PDstandard4th33gxz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard4th12gxz,kmul(J33L,PDstandard4th13gxz)),kmul(J23L,kmul(J33L,PDstandard4th23gxz))),ToReal(2.))))))));
-      
       JacPDstandard4th33gyy = 
         kmadd(dJ133L,PDstandard4th1gyy,kmadd(dJ233L,PDstandard4th2gyy,kmadd(dJ333L,PDstandard4th3gyy,kmadd(PDstandard4th11gyy,kmul(J13L,J13L),kmadd(PDstandard4th22gyy,kmul(J23L,J23L),kmadd(PDstandard4th33gyy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard4th12gyy,kmul(J33L,PDstandard4th13gyy)),kmul(J23L,kmul(J33L,PDstandard4th23gyy))),ToReal(2.))))))));
       
-      JacPDstandard4th33gyz = 
-        kmadd(dJ133L,PDstandard4th1gyz,kmadd(dJ233L,PDstandard4th2gyz,kmadd(dJ333L,PDstandard4th3gyz,kmadd(PDstandard4th11gyz,kmul(J13L,J13L),kmadd(PDstandard4th22gyz,kmul(J23L,J23L),kmadd(PDstandard4th33gyz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmul(J23L,kmul(J33L,PDstandard4th23gyz))),ToReal(2.))))))));
-      
-      JacPDstandard4th12gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gxx,kmadd(J21L,PDstandard4th12gxx,kmul(J31L,PDstandard4th13gxx))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx)),kmadd(dJ112L,PDstandard4th1gxx,kmadd(J22L,kmadd(J21L,PDstandard4th22gxx,kmul(J31L,PDstandard4th23gxx)),kmadd(dJ212L,PDstandard4th2gxx,kmadd(J32L,kmadd(J21L,PDstandard4th23gxx,kmul(J31L,PDstandard4th33gxx)),kmul(dJ312L,PDstandard4th3gxx)))))));
-      
       JacPDstandard4th12gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gxy,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxy,kmul(J32L,PDstandard4th13gxy)),kmadd(dJ112L,PDstandard4th1gxy,kmadd(J22L,kmadd(J21L,PDstandard4th22gxy,kmul(J31L,PDstandard4th23gxy)),kmadd(dJ212L,PDstandard4th2gxy,kmadd(J32L,kmadd(J21L,PDstandard4th23gxy,kmul(J31L,PDstandard4th33gxy)),kmul(dJ312L,PDstandard4th3gxy)))))));
       
       JacPDstandard4th12gxz = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gxz,kmadd(J21L,PDstandard4th12gxz,kmul(J31L,PDstandard4th13gxz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz)),kmadd(dJ112L,PDstandard4th1gxz,kmadd(J22L,kmadd(J21L,PDstandard4th22gxz,kmul(J31L,PDstandard4th23gxz)),kmadd(dJ212L,PDstandard4th2gxz,kmadd(J32L,kmadd(J21L,PDstandard4th23gxz,kmul(J31L,PDstandard4th33gxz)),kmul(dJ312L,PDstandard4th3gxz)))))));
       
-      JacPDstandard4th12gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gyy,kmadd(J21L,PDstandard4th12gyy,kmul(J31L,PDstandard4th13gyy))),kmadd(J11L,kmadd(J22L,PDstandard4th12gyy,kmul(J32L,PDstandard4th13gyy)),kmadd(dJ112L,PDstandard4th1gyy,kmadd(J22L,kmadd(J21L,PDstandard4th22gyy,kmul(J31L,PDstandard4th23gyy)),kmadd(dJ212L,PDstandard4th2gyy,kmadd(J32L,kmadd(J21L,PDstandard4th23gyy,kmul(J31L,PDstandard4th33gyy)),kmul(dJ312L,PDstandard4th3gyy)))))));
-      
       JacPDstandard4th12gyz = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gyz,kmadd(J21L,PDstandard4th12gyz,kmul(J31L,PDstandard4th13gyz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz)),kmadd(dJ112L,PDstandard4th1gyz,kmadd(J22L,kmadd(J21L,PDstandard4th22gyz,kmul(J31L,PDstandard4th23gyz)),kmadd(dJ212L,PDstandard4th2gyz,kmadd(J32L,kmadd(J21L,PDstandard4th23gyz,kmul(J31L,PDstandard4th33gyz)),kmul(dJ312L,PDstandard4th3gyz)))))));
       
       JacPDstandard4th12gzz = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gzz,kmadd(J21L,PDstandard4th12gzz,kmul(J31L,PDstandard4th13gzz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz)),kmadd(dJ112L,PDstandard4th1gzz,kmadd(J22L,kmadd(J21L,PDstandard4th22gzz,kmul(J31L,PDstandard4th23gzz)),kmadd(dJ212L,PDstandard4th2gzz,kmadd(J32L,kmadd(J21L,PDstandard4th23gzz,kmul(J31L,PDstandard4th33gzz)),kmul(dJ312L,PDstandard4th3gzz)))))));
       
-      JacPDstandard4th13gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gxx,kmadd(J21L,PDstandard4th12gxx,kmul(J31L,PDstandard4th13gxx))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxx,kmul(J33L,PDstandard4th13gxx)),kmadd(dJ113L,PDstandard4th1gxx,kmadd(J23L,kmadd(J21L,PDstandard4th22gxx,kmul(J31L,PDstandard4th23gxx)),kmadd(dJ213L,PDstandard4th2gxx,kmadd(J33L,kmadd(J21L,PDstandard4th23gxx,kmul(J31L,PDstandard4th33gxx)),kmul(dJ313L,PDstandard4th3gxx)))))));
-      
-      JacPDstandard4th13gxy = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gxy,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxy,kmul(J33L,PDstandard4th13gxy)),kmadd(dJ113L,PDstandard4th1gxy,kmadd(J23L,kmadd(J21L,PDstandard4th22gxy,kmul(J31L,PDstandard4th23gxy)),kmadd(dJ213L,PDstandard4th2gxy,kmadd(J33L,kmadd(J21L,PDstandard4th23gxy,kmul(J31L,PDstandard4th33gxy)),kmul(dJ313L,PDstandard4th3gxy)))))));
-      
       JacPDstandard4th13gxz = 
         kmadd(J13L,kmadd(J11L,PDstandard4th11gxz,kmadd(J21L,PDstandard4th12gxz,kmul(J31L,PDstandard4th13gxz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxz,kmul(J33L,PDstandard4th13gxz)),kmadd(dJ113L,PDstandard4th1gxz,kmadd(J23L,kmadd(J21L,PDstandard4th22gxz,kmul(J31L,PDstandard4th23gxz)),kmadd(dJ213L,PDstandard4th2gxz,kmadd(J33L,kmadd(J21L,PDstandard4th23gxz,kmul(J31L,PDstandard4th33gxz)),kmul(dJ313L,PDstandard4th3gxz)))))));
       
-      JacPDstandard4th13gyy = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gyy,kmadd(J21L,PDstandard4th12gyy,kmul(J31L,PDstandard4th13gyy))),kmadd(J11L,kmadd(J23L,PDstandard4th12gyy,kmul(J33L,PDstandard4th13gyy)),kmadd(dJ113L,PDstandard4th1gyy,kmadd(J23L,kmadd(J21L,PDstandard4th22gyy,kmul(J31L,PDstandard4th23gyy)),kmadd(dJ213L,PDstandard4th2gyy,kmadd(J33L,kmadd(J21L,PDstandard4th23gyy,kmul(J31L,PDstandard4th33gyy)),kmul(dJ313L,PDstandard4th3gyy)))))));
-      
-      JacPDstandard4th13gyz = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gyz,kmadd(J21L,PDstandard4th12gyz,kmul(J31L,PDstandard4th13gyz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmadd(dJ113L,PDstandard4th1gyz,kmadd(J23L,kmadd(J21L,PDstandard4th22gyz,kmul(J31L,PDstandard4th23gyz)),kmadd(dJ213L,PDstandard4th2gyz,kmadd(J33L,kmadd(J21L,PDstandard4th23gyz,kmul(J31L,PDstandard4th33gyz)),kmul(dJ313L,PDstandard4th3gyz)))))));
-      
-      JacPDstandard4th13gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gzz,kmadd(J21L,PDstandard4th12gzz,kmul(J31L,PDstandard4th13gzz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gzz,kmul(J33L,PDstandard4th13gzz)),kmadd(dJ113L,PDstandard4th1gzz,kmadd(J23L,kmadd(J21L,PDstandard4th22gzz,kmul(J31L,PDstandard4th23gzz)),kmadd(dJ213L,PDstandard4th2gzz,kmadd(J33L,kmadd(J21L,PDstandard4th23gzz,kmul(J31L,PDstandard4th33gzz)),kmul(dJ313L,PDstandard4th3gzz)))))));
-      
-      JacPDstandard4th21gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gxx,kmadd(J21L,PDstandard4th12gxx,kmul(J31L,PDstandard4th13gxx))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx)),kmadd(dJ112L,PDstandard4th1gxx,kmadd(J22L,kmadd(J21L,PDstandard4th22gxx,kmul(J31L,PDstandard4th23gxx)),kmadd(dJ212L,PDstandard4th2gxx,kmadd(J32L,kmadd(J21L,PDstandard4th23gxx,kmul(J31L,PDstandard4th33gxx)),kmul(dJ312L,PDstandard4th3gxx)))))));
-      
       JacPDstandard4th21gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard4th11gxy,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxy,kmul(J32L,PDstandard4th13gxy)),kmadd(dJ112L,PDstandard4th1gxy,kmadd(J22L,kmadd(J21L,PDstandard4th22gxy,kmul(J31L,PDstandard4th23gxy)),kmadd(dJ212L,PDstandard4th2gxy,kmadd(J32L,kmadd(J21L,PDstandard4th23gxy,kmul(J31L,PDstandard4th33gxy)),kmul(dJ312L,PDstandard4th3gxy)))))));
       
-      JacPDstandard4th21gxz = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gxz,kmadd(J21L,PDstandard4th12gxz,kmul(J31L,PDstandard4th13gxz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz)),kmadd(dJ112L,PDstandard4th1gxz,kmadd(J22L,kmadd(J21L,PDstandard4th22gxz,kmul(J31L,PDstandard4th23gxz)),kmadd(dJ212L,PDstandard4th2gxz,kmadd(J32L,kmadd(J21L,PDstandard4th23gxz,kmul(J31L,PDstandard4th33gxz)),kmul(dJ312L,PDstandard4th3gxz)))))));
-      
-      JacPDstandard4th21gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gyy,kmadd(J21L,PDstandard4th12gyy,kmul(J31L,PDstandard4th13gyy))),kmadd(J11L,kmadd(J22L,PDstandard4th12gyy,kmul(J32L,PDstandard4th13gyy)),kmadd(dJ112L,PDstandard4th1gyy,kmadd(J22L,kmadd(J21L,PDstandard4th22gyy,kmul(J31L,PDstandard4th23gyy)),kmadd(dJ212L,PDstandard4th2gyy,kmadd(J32L,kmadd(J21L,PDstandard4th23gyy,kmul(J31L,PDstandard4th33gyy)),kmul(dJ312L,PDstandard4th3gyy)))))));
-      
-      JacPDstandard4th21gyz = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gyz,kmadd(J21L,PDstandard4th12gyz,kmul(J31L,PDstandard4th13gyz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz)),kmadd(dJ112L,PDstandard4th1gyz,kmadd(J22L,kmadd(J21L,PDstandard4th22gyz,kmul(J31L,PDstandard4th23gyz)),kmadd(dJ212L,PDstandard4th2gyz,kmadd(J32L,kmadd(J21L,PDstandard4th23gyz,kmul(J31L,PDstandard4th33gyz)),kmul(dJ312L,PDstandard4th3gyz)))))));
-      
-      JacPDstandard4th21gzz = 
-        kmadd(J12L,kmadd(J11L,PDstandard4th11gzz,kmadd(J21L,PDstandard4th12gzz,kmul(J31L,PDstandard4th13gzz))),kmadd(J11L,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz)),kmadd(dJ112L,PDstandard4th1gzz,kmadd(J22L,kmadd(J21L,PDstandard4th22gzz,kmul(J31L,PDstandard4th23gzz)),kmadd(dJ212L,PDstandard4th2gzz,kmadd(J32L,kmadd(J21L,PDstandard4th23gzz,kmul(J31L,PDstandard4th33gzz)),kmul(dJ312L,PDstandard4th3gzz)))))));
-      
       JacPDstandard4th23gxx = 
         kmadd(J13L,kmadd(J12L,PDstandard4th11gxx,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxx,kmul(J33L,PDstandard4th13gxx)),kmadd(dJ123L,PDstandard4th1gxx,kmadd(J23L,kmadd(J22L,PDstandard4th22gxx,kmul(J32L,PDstandard4th23gxx)),kmadd(dJ223L,PDstandard4th2gxx,kmadd(J33L,kmadd(J22L,PDstandard4th23gxx,kmul(J32L,PDstandard4th33gxx)),kmul(dJ323L,PDstandard4th3gxx)))))));
       
@@ -924,18 +843,9 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th23gxz = 
         kmadd(J13L,kmadd(J12L,PDstandard4th11gxz,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxz,kmul(J33L,PDstandard4th13gxz)),kmadd(dJ123L,PDstandard4th1gxz,kmadd(J23L,kmadd(J22L,PDstandard4th22gxz,kmul(J32L,PDstandard4th23gxz)),kmadd(dJ223L,PDstandard4th2gxz,kmadd(J33L,kmadd(J22L,PDstandard4th23gxz,kmul(J32L,PDstandard4th33gxz)),kmul(dJ323L,PDstandard4th3gxz)))))));
       
-      JacPDstandard4th23gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gyy,kmadd(J22L,PDstandard4th12gyy,kmul(J32L,PDstandard4th13gyy))),kmadd(J12L,kmadd(J23L,PDstandard4th12gyy,kmul(J33L,PDstandard4th13gyy)),kmadd(dJ123L,PDstandard4th1gyy,kmadd(J23L,kmadd(J22L,PDstandard4th22gyy,kmul(J32L,PDstandard4th23gyy)),kmadd(dJ223L,PDstandard4th2gyy,kmadd(J33L,kmadd(J22L,PDstandard4th23gyy,kmul(J32L,PDstandard4th33gyy)),kmul(dJ323L,PDstandard4th3gyy)))))));
-      
       JacPDstandard4th23gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard4th11gyz,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmadd(dJ123L,PDstandard4th1gyz,kmadd(J23L,kmadd(J22L,PDstandard4th22gyz,kmul(J32L,PDstandard4th23gyz)),kmadd(dJ223L,PDstandard4th2gyz,kmadd(J33L,kmadd(J22L,PDstandard4th23gyz,kmul(J32L,PDstandard4th33gyz)),kmul(dJ323L,PDstandard4th3gyz)))))));
       
-      JacPDstandard4th23gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gzz,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gzz,kmul(J33L,PDstandard4th13gzz)),kmadd(dJ123L,PDstandard4th1gzz,kmadd(J23L,kmadd(J22L,PDstandard4th22gzz,kmul(J32L,PDstandard4th23gzz)),kmadd(dJ223L,PDstandard4th2gzz,kmadd(J33L,kmadd(J22L,PDstandard4th23gzz,kmul(J32L,PDstandard4th33gzz)),kmul(dJ323L,PDstandard4th3gzz)))))));
-      
-      JacPDstandard4th31gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gxx,kmadd(J21L,PDstandard4th12gxx,kmul(J31L,PDstandard4th13gxx))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxx,kmul(J33L,PDstandard4th13gxx)),kmadd(dJ113L,PDstandard4th1gxx,kmadd(J23L,kmadd(J21L,PDstandard4th22gxx,kmul(J31L,PDstandard4th23gxx)),kmadd(dJ213L,PDstandard4th2gxx,kmadd(J33L,kmadd(J21L,PDstandard4th23gxx,kmul(J31L,PDstandard4th33gxx)),kmul(dJ313L,PDstandard4th3gxx)))))));
-      
       JacPDstandard4th31gxy = 
         kmadd(J13L,kmadd(J11L,PDstandard4th11gxy,kmadd(J21L,PDstandard4th12gxy,kmul(J31L,PDstandard4th13gxy))),kmadd(J11L,kmadd(J23L,PDstandard4th12gxy,kmul(J33L,PDstandard4th13gxy)),kmadd(dJ113L,PDstandard4th1gxy,kmadd(J23L,kmadd(J21L,PDstandard4th22gxy,kmul(J31L,PDstandard4th23gxy)),kmadd(dJ213L,PDstandard4th2gxy,kmadd(J33L,kmadd(J21L,PDstandard4th23gxy,kmul(J31L,PDstandard4th33gxy)),kmul(dJ313L,PDstandard4th3gxy)))))));
       
@@ -948,26 +858,8 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard4th31gyz = 
         kmadd(J13L,kmadd(J11L,PDstandard4th11gyz,kmadd(J21L,PDstandard4th12gyz,kmul(J31L,PDstandard4th13gyz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmadd(dJ113L,PDstandard4th1gyz,kmadd(J23L,kmadd(J21L,PDstandard4th22gyz,kmul(J31L,PDstandard4th23gyz)),kmadd(dJ213L,PDstandard4th2gyz,kmadd(J33L,kmadd(J21L,PDstandard4th23gyz,kmul(J31L,PDstandard4th33gyz)),kmul(dJ313L,PDstandard4th3gyz)))))));
       
-      JacPDstandard4th31gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard4th11gzz,kmadd(J21L,PDstandard4th12gzz,kmul(J31L,PDstandard4th13gzz))),kmadd(J11L,kmadd(J23L,PDstandard4th12gzz,kmul(J33L,PDstandard4th13gzz)),kmadd(dJ113L,PDstandard4th1gzz,kmadd(J23L,kmadd(J21L,PDstandard4th22gzz,kmul(J31L,PDstandard4th23gzz)),kmadd(dJ213L,PDstandard4th2gzz,kmadd(J33L,kmadd(J21L,PDstandard4th23gzz,kmul(J31L,PDstandard4th33gzz)),kmul(dJ313L,PDstandard4th3gzz)))))));
-      
-      JacPDstandard4th32gxx = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gxx,kmadd(J22L,PDstandard4th12gxx,kmul(J32L,PDstandard4th13gxx))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxx,kmul(J33L,PDstandard4th13gxx)),kmadd(dJ123L,PDstandard4th1gxx,kmadd(J23L,kmadd(J22L,PDstandard4th22gxx,kmul(J32L,PDstandard4th23gxx)),kmadd(dJ223L,PDstandard4th2gxx,kmadd(J33L,kmadd(J22L,PDstandard4th23gxx,kmul(J32L,PDstandard4th33gxx)),kmul(dJ323L,PDstandard4th3gxx)))))));
-      
-      JacPDstandard4th32gxy = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gxy,kmadd(J22L,PDstandard4th12gxy,kmul(J32L,PDstandard4th13gxy))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxy,kmul(J33L,PDstandard4th13gxy)),kmadd(dJ123L,PDstandard4th1gxy,kmadd(J23L,kmadd(J22L,PDstandard4th22gxy,kmul(J32L,PDstandard4th23gxy)),kmadd(dJ223L,PDstandard4th2gxy,kmadd(J33L,kmadd(J22L,PDstandard4th23gxy,kmul(J32L,PDstandard4th33gxy)),kmul(dJ323L,PDstandard4th3gxy)))))));
-      
-      JacPDstandard4th32gxz = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gxz,kmadd(J22L,PDstandard4th12gxz,kmul(J32L,PDstandard4th13gxz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gxz,kmul(J33L,PDstandard4th13gxz)),kmadd(dJ123L,PDstandard4th1gxz,kmadd(J23L,kmadd(J22L,PDstandard4th22gxz,kmul(J32L,PDstandard4th23gxz)),kmadd(dJ223L,PDstandard4th2gxz,kmadd(J33L,kmadd(J22L,PDstandard4th23gxz,kmul(J32L,PDstandard4th33gxz)),kmul(dJ323L,PDstandard4th3gxz)))))));
-      
-      JacPDstandard4th32gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gyy,kmadd(J22L,PDstandard4th12gyy,kmul(J32L,PDstandard4th13gyy))),kmadd(J12L,kmadd(J23L,PDstandard4th12gyy,kmul(J33L,PDstandard4th13gyy)),kmadd(dJ123L,PDstandard4th1gyy,kmadd(J23L,kmadd(J22L,PDstandard4th22gyy,kmul(J32L,PDstandard4th23gyy)),kmadd(dJ223L,PDstandard4th2gyy,kmadd(J33L,kmadd(J22L,PDstandard4th23gyy,kmul(J32L,PDstandard4th33gyy)),kmul(dJ323L,PDstandard4th3gyy)))))));
-      
       JacPDstandard4th32gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard4th11gyz,kmadd(J22L,PDstandard4th12gyz,kmul(J32L,PDstandard4th13gyz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gyz,kmul(J33L,PDstandard4th13gyz)),kmadd(dJ123L,PDstandard4th1gyz,kmadd(J23L,kmadd(J22L,PDstandard4th22gyz,kmul(J32L,PDstandard4th23gyz)),kmadd(dJ223L,PDstandard4th2gyz,kmadd(J33L,kmadd(J22L,PDstandard4th23gyz,kmul(J32L,PDstandard4th33gyz)),kmul(dJ323L,PDstandard4th3gyz)))))));
-      
-      JacPDstandard4th32gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard4th11gzz,kmadd(J22L,PDstandard4th12gzz,kmul(J32L,PDstandard4th13gzz))),kmadd(J12L,kmadd(J23L,PDstandard4th12gzz,kmul(J33L,PDstandard4th13gzz)),kmadd(dJ123L,PDstandard4th1gzz,kmadd(J23L,kmadd(J22L,PDstandard4th22gzz,kmul(J32L,PDstandard4th23gzz)),kmadd(dJ223L,PDstandard4th2gzz,kmadd(J33L,kmadd(J22L,PDstandard4th23gzz,kmul(J32L,PDstandard4th33gzz)),kmul(dJ323L,PDstandard4th3gzz)))))));
     }
     else
     {
@@ -1037,10 +929,6 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard4th3kyz = PDstandard4th3kyz;
       
-      JacPDstandard4th11gxy = PDstandard4th11gxy;
-      
-      JacPDstandard4th11gxz = PDstandard4th11gxz;
-      
       JacPDstandard4th11gyy = PDstandard4th11gyy;
       
       JacPDstandard4th11gyz = PDstandard4th11gyz;
@@ -1049,74 +937,36 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard4th22gxx = PDstandard4th22gxx;
       
-      JacPDstandard4th22gxy = PDstandard4th22gxy;
-      
       JacPDstandard4th22gxz = PDstandard4th22gxz;
       
-      JacPDstandard4th22gyz = PDstandard4th22gyz;
-      
       JacPDstandard4th22gzz = PDstandard4th22gzz;
       
       JacPDstandard4th33gxx = PDstandard4th33gxx;
       
       JacPDstandard4th33gxy = PDstandard4th33gxy;
       
-      JacPDstandard4th33gxz = PDstandard4th33gxz;
-      
       JacPDstandard4th33gyy = PDstandard4th33gyy;
       
-      JacPDstandard4th33gyz = PDstandard4th33gyz;
-      
-      JacPDstandard4th12gxx = PDstandard4th12gxx;
-      
       JacPDstandard4th12gxy = PDstandard4th12gxy;
       
       JacPDstandard4th12gxz = PDstandard4th12gxz;
       
-      JacPDstandard4th12gyy = PDstandard4th12gyy;
-      
       JacPDstandard4th12gyz = PDstandard4th12gyz;
       
       JacPDstandard4th12gzz = PDstandard4th12gzz;
       
-      JacPDstandard4th13gxx = PDstandard4th13gxx;
-      
-      JacPDstandard4th13gxy = PDstandard4th13gxy;
-      
       JacPDstandard4th13gxz = PDstandard4th13gxz;
       
-      JacPDstandard4th13gyy = PDstandard4th13gyy;
-      
-      JacPDstandard4th13gyz = PDstandard4th13gyz;
-      
-      JacPDstandard4th13gzz = PDstandard4th13gzz;
-      
-      JacPDstandard4th21gxx = PDstandard4th12gxx;
-      
       JacPDstandard4th21gxy = PDstandard4th12gxy;
       
-      JacPDstandard4th21gxz = PDstandard4th12gxz;
-      
-      JacPDstandard4th21gyy = PDstandard4th12gyy;
-      
-      JacPDstandard4th21gyz = PDstandard4th12gyz;
-      
-      JacPDstandard4th21gzz = PDstandard4th12gzz;
-      
       JacPDstandard4th23gxx = PDstandard4th23gxx;
       
       JacPDstandard4th23gxy = PDstandard4th23gxy;
       
       JacPDstandard4th23gxz = PDstandard4th23gxz;
       
-      JacPDstandard4th23gyy = PDstandard4th23gyy;
-      
       JacPDstandard4th23gyz = PDstandard4th23gyz;
       
-      JacPDstandard4th23gzz = PDstandard4th23gzz;
-      
-      JacPDstandard4th31gxx = PDstandard4th13gxx;
-      
       JacPDstandard4th31gxy = PDstandard4th13gxy;
       
       JacPDstandard4th31gxz = PDstandard4th13gxz;
@@ -1125,19 +975,7 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard4th31gyz = PDstandard4th13gyz;
       
-      JacPDstandard4th31gzz = PDstandard4th13gzz;
-      
-      JacPDstandard4th32gxx = PDstandard4th23gxx;
-      
-      JacPDstandard4th32gxy = PDstandard4th23gxy;
-      
-      JacPDstandard4th32gxz = PDstandard4th23gxz;
-      
-      JacPDstandard4th32gyy = PDstandard4th23gyy;
-      
       JacPDstandard4th32gyz = PDstandard4th23gyz;
-      
-      JacPDstandard4th32gzz = PDstandard4th23gzz;
     }
     
     CCTK_REAL_VEC detg = 
@@ -1347,444 +1185,42 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     
     CCTK_REAL_VEC nn = isqrt2;
     
-    CCTK_REAL_VEC R1111 = ToReal(0.);
-    
-    CCTK_REAL_VEC R1112 = 
-      kmul(ksub(JacPDstandard4th21gxx,JacPDstandard4th12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1113 = 
-      kmul(ksub(JacPDstandard4th31gxx,JacPDstandard4th13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1121 = 
-      kmul(ksub(JacPDstandard4th21gxx,JacPDstandard4th12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1122 = 
-      ksub(JacPDstandard4th21gxy,JacPDstandard4th12gxy);
-    
-    CCTK_REAL_VEC R1123 = 
-      kmul(kadd(JacPDstandard4th21gxz,ksub(JacPDstandard4th31gxy,kadd(JacPDstandard4th13gxy,JacPDstandard4th12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1131 = 
-      kmul(ksub(JacPDstandard4th31gxx,JacPDstandard4th13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1132 = 
-      kmul(kadd(JacPDstandard4th21gxz,ksub(JacPDstandard4th31gxy,kadd(JacPDstandard4th13gxy,JacPDstandard4th12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1133 = 
-      ksub(JacPDstandard4th31gxz,JacPDstandard4th13gxz);
-    
-    CCTK_REAL_VEC R1211 = 
-      kmul(ksub(JacPDstandard4th12gxx,JacPDstandard4th21gxx),ToReal(0.5));
-    
     CCTK_REAL_VEC R1212 = 
       kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy)))));
     
     CCTK_REAL_VEC R1213 = 
       kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard4th23gxx),JacPDstandard4th11gyz))))));
     
-    CCTK_REAL_VEC R1221 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard4th21gxy),JacPDstandard4th12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R1222 = 
-      kmul(ksub(JacPDstandard4th21gyy,JacPDstandard4th12gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R1223 = 
       kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard4th23gxy),JacPDstandard4th12gyz))))));
     
-    CCTK_REAL_VEC R1231 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1232 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1233 = 
-      kmul(kadd(JacPDstandard4th31gyz,ksub(JacPDstandard4th32gxz,kadd(JacPDstandard4th23gxz,JacPDstandard4th13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1311 = 
-      kmul(ksub(JacPDstandard4th13gxx,JacPDstandard4th31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1312 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard4th32gxx),JacPDstandard4th11gyz))))));
-    
     CCTK_REAL_VEC R1313 = 
       kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz)))));
     
-    CCTK_REAL_VEC R1321 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1322 = 
-      kmul(kadd(JacPDstandard4th21gyz,ksub(JacPDstandard4th23gxy,kadd(JacPDstandard4th32gxy,JacPDstandard4th12gyz))),ToReal(0.5));
-    
     CCTK_REAL_VEC R1323 = 
       kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard4th33gxy),JacPDstandard4th12gzz))))));
     
-    CCTK_REAL_VEC R1331 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard4th31gxz),JacPDstandard4th13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R1332 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R1333 = 
-      kmul(ksub(JacPDstandard4th31gzz,JacPDstandard4th13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2111 = 
-      kmul(ksub(JacPDstandard4th12gxx,JacPDstandard4th21gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyy,kadd(JacPDstandard4th22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard4th21gxy),JacPDstandard4th12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R2113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th21gxz),JacPDstandard4th13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2121 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard4th12gxy,kadd(JacPDstandard4th21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard4th22gxx),JacPDstandard4th11gyy)))));
-    
-    CCTK_REAL_VEC R2122 = 
-      kmul(ksub(JacPDstandard4th21gyy,JacPDstandard4th12gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gyz,kadd(JacPDstandard4th32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th22gxz),JacPDstandard4th13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2131 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th12gxz,kadd(JacPDstandard4th31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard4th23gxx),JacPDstandard4th11gyz))))));
-    
-    CCTK_REAL_VEC R2132 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th22gxz,kadd(JacPDstandard4th31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard4th23gxy),JacPDstandard4th12gyz))))));
-    
-    CCTK_REAL_VEC R2133 = 
-      kmul(kadd(JacPDstandard4th31gyz,ksub(JacPDstandard4th32gxz,kadd(JacPDstandard4th23gxz,JacPDstandard4th13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2211 = 
-      ksub(JacPDstandard4th12gxy,JacPDstandard4th21gxy);
-    
-    CCTK_REAL_VEC R2212 = 
-      kmul(ksub(JacPDstandard4th12gyy,JacPDstandard4th21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2213 = 
-      kmul(kadd(JacPDstandard4th12gyz,ksub(JacPDstandard4th32gxy,kadd(JacPDstandard4th23gxy,JacPDstandard4th21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2221 = 
-      kmul(ksub(JacPDstandard4th12gyy,JacPDstandard4th21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2222 = ToReal(0.);
-    
-    CCTK_REAL_VEC R2223 = 
-      kmul(ksub(JacPDstandard4th32gyy,JacPDstandard4th23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2231 = 
-      kmul(kadd(JacPDstandard4th12gyz,ksub(JacPDstandard4th32gxy,kadd(JacPDstandard4th23gxy,JacPDstandard4th21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2232 = 
-      kmul(ksub(JacPDstandard4th32gyy,JacPDstandard4th23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2233 = 
-      ksub(JacPDstandard4th32gyz,JacPDstandard4th23gyz);
-    
-    CCTK_REAL_VEC R2311 = 
-      kmul(kadd(JacPDstandard4th12gxz,ksub(JacPDstandard4th13gxy,kadd(JacPDstandard4th31gxy,JacPDstandard4th21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2312 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard4th32gxy),JacPDstandard4th21gyz))))));
-    
-    CCTK_REAL_VEC R2313 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard4th33gxy),JacPDstandard4th21gzz))))));
-    
-    CCTK_REAL_VEC R2321 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2322 = 
-      kmul(ksub(JacPDstandard4th23gyy,JacPDstandard4th32gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R2323 = 
       kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz)))));
     
-    CCTK_REAL_VEC R2331 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R2332 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard4th32gyz),JacPDstandard4th23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R2333 = 
-      kmul(ksub(JacPDstandard4th32gzz,JacPDstandard4th23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3111 = 
-      kmul(ksub(JacPDstandard4th13gxx,JacPDstandard4th31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gyz,kadd(JacPDstandard4th23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th31gxy),JacPDstandard4th12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th11gzz,kadd(JacPDstandard4th33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard4th31gxz),JacPDstandard4th13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R3121 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gxy,kadd(JacPDstandard4th21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard4th32gxx),JacPDstandard4th11gyz))))));
-    
-    CCTK_REAL_VEC R3122 = 
-      kmul(kadd(JacPDstandard4th21gyz,ksub(JacPDstandard4th23gxy,kadd(JacPDstandard4th32gxy,JacPDstandard4th12gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th21gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard4th32gxz),JacPDstandard4th13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3131 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard4th13gxz,kadd(JacPDstandard4th31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard4th33gxx),JacPDstandard4th11gzz)))));
-    
-    CCTK_REAL_VEC R3132 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th23gxz,kadd(JacPDstandard4th31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard4th33gxy),JacPDstandard4th12gzz))))));
-    
-    CCTK_REAL_VEC R3133 = 
-      kmul(ksub(JacPDstandard4th31gzz,JacPDstandard4th13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3211 = 
-      kmul(kadd(JacPDstandard4th12gxz,ksub(JacPDstandard4th13gxy,kadd(JacPDstandard4th31gxy,JacPDstandard4th21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3212 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gyz,kadd(JacPDstandard4th23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard4th31gyy),JacPDstandard4th22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3213 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard4th12gzz,kadd(JacPDstandard4th33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard4th31gyz),JacPDstandard4th23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3221 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyy,kadd(JacPDstandard4th22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard4th32gxy),JacPDstandard4th21gyz))))));
-    
-    CCTK_REAL_VEC R3222 = 
-      kmul(ksub(JacPDstandard4th23gyy,JacPDstandard4th32gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3223 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard4th22gzz,kadd(JacPDstandard4th33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard4th32gyz),JacPDstandard4th23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R3231 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard4th13gyz,kadd(JacPDstandard4th32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard4th33gxy),JacPDstandard4th21gzz))))));
-    
-    CCTK_REAL_VEC R3232 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard4th23gyz,kadd(JacPDstandard4th32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard4th33gyy),JacPDstandard4th22gzz)))));
-    
-    CCTK_REAL_VEC R3233 = 
-      kmul(ksub(JacPDstandard4th32gzz,JacPDstandard4th23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3311 = 
-      ksub(JacPDstandard4th13gxz,JacPDstandard4th31gxz);
-    
-    CCTK_REAL_VEC R3312 = 
-      kmul(kadd(JacPDstandard4th13gyz,ksub(JacPDstandard4th23gxz,kadd(JacPDstandard4th32gxz,JacPDstandard4th31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3313 = 
-      kmul(ksub(JacPDstandard4th13gzz,JacPDstandard4th31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3321 = 
-      kmul(kadd(JacPDstandard4th13gyz,ksub(JacPDstandard4th23gxz,kadd(JacPDstandard4th32gxz,JacPDstandard4th31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3322 = 
-      ksub(JacPDstandard4th23gyz,JacPDstandard4th32gyz);
-    
-    CCTK_REAL_VEC R3323 = 
-      kmul(ksub(JacPDstandard4th23gzz,JacPDstandard4th32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3331 = 
-      kmul(ksub(JacPDstandard4th13gzz,JacPDstandard4th31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3332 = 
-      kmul(ksub(JacPDstandard4th23gzz,JacPDstandard4th32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3333 = ToReal(0.);
-    
-    CCTK_REAL_VEC R4p1111 = R1111;
-    
-    CCTK_REAL_VEC R4p1112 = R1112;
-    
-    CCTK_REAL_VEC R4p1113 = R1113;
-    
-    CCTK_REAL_VEC R4p1121 = R1121;
-    
-    CCTK_REAL_VEC R4p1122 = R1122;
-    
-    CCTK_REAL_VEC R4p1123 = R1123;
-    
-    CCTK_REAL_VEC R4p1131 = R1131;
-    
-    CCTK_REAL_VEC R4p1132 = R1132;
-    
-    CCTK_REAL_VEC R4p1133 = R1133;
-    
-    CCTK_REAL_VEC R4p1211 = R1211;
-    
     CCTK_REAL_VEC R4p1212 = 
       kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212));
     
     CCTK_REAL_VEC R4p1213 = 
       kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213));
     
-    CCTK_REAL_VEC R4p1221 = 
-      kadd(R1221,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p1222 = R1222;
-    
     CCTK_REAL_VEC R4p1223 = 
       kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223));
     
-    CCTK_REAL_VEC R4p1231 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231));
-    
-    CCTK_REAL_VEC R4p1232 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232));
-    
-    CCTK_REAL_VEC R4p1233 = R1233;
-    
-    CCTK_REAL_VEC R4p1311 = R1311;
-    
-    CCTK_REAL_VEC R4p1312 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312));
-    
     CCTK_REAL_VEC R4p1313 = 
       kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313));
     
-    CCTK_REAL_VEC R4p1321 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321));
-    
-    CCTK_REAL_VEC R4p1322 = R1322;
-    
     CCTK_REAL_VEC R4p1323 = 
       kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323));
     
-    CCTK_REAL_VEC R4p1331 = 
-      kadd(R1331,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p1332 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332));
-    
-    CCTK_REAL_VEC R4p1333 = R1333;
-    
-    CCTK_REAL_VEC R4p2111 = R2111;
-    
-    CCTK_REAL_VEC R4p2112 = 
-      kadd(R2112,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p2113 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113));
-    
-    CCTK_REAL_VEC R4p2121 = 
-      kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121));
-    
-    CCTK_REAL_VEC R4p2122 = R2122;
-    
-    CCTK_REAL_VEC R4p2123 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123));
-    
-    CCTK_REAL_VEC R4p2131 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131));
-    
-    CCTK_REAL_VEC R4p2132 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132));
-    
-    CCTK_REAL_VEC R4p2133 = R2133;
-    
-    CCTK_REAL_VEC R4p2211 = R2211;
-    
-    CCTK_REAL_VEC R4p2212 = R2212;
-    
-    CCTK_REAL_VEC R4p2213 = R2213;
-    
-    CCTK_REAL_VEC R4p2221 = R2221;
-    
-    CCTK_REAL_VEC R4p2222 = R2222;
-    
-    CCTK_REAL_VEC R4p2223 = R2223;
-    
-    CCTK_REAL_VEC R4p2231 = R2231;
-    
-    CCTK_REAL_VEC R4p2232 = R2232;
-    
-    CCTK_REAL_VEC R4p2233 = R2233;
-    
-    CCTK_REAL_VEC R4p2311 = R2311;
-    
-    CCTK_REAL_VEC R4p2312 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312));
-    
-    CCTK_REAL_VEC R4p2313 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313));
-    
-    CCTK_REAL_VEC R4p2321 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321));
-    
-    CCTK_REAL_VEC R4p2322 = R2322;
-    
     CCTK_REAL_VEC R4p2323 = 
       kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323));
     
-    CCTK_REAL_VEC R4p2331 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331));
-    
-    CCTK_REAL_VEC R4p2332 = 
-      kadd(R2332,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p2333 = R2333;
-    
-    CCTK_REAL_VEC R4p3111 = R3111;
-    
-    CCTK_REAL_VEC R4p3112 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112));
-    
-    CCTK_REAL_VEC R4p3113 = 
-      kadd(R3113,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3121 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121));
-    
-    CCTK_REAL_VEC R4p3122 = R3122;
-    
-    CCTK_REAL_VEC R4p3123 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123));
-    
-    CCTK_REAL_VEC R4p3131 = 
-      kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131));
-    
-    CCTK_REAL_VEC R4p3132 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132));
-    
-    CCTK_REAL_VEC R4p3133 = R3133;
-    
-    CCTK_REAL_VEC R4p3211 = R3211;
-    
-    CCTK_REAL_VEC R4p3212 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212));
-    
-    CCTK_REAL_VEC R4p3213 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213));
-    
-    CCTK_REAL_VEC R4p3221 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221));
-    
-    CCTK_REAL_VEC R4p3222 = R3222;
-    
-    CCTK_REAL_VEC R4p3223 = 
-      kadd(R3223,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3231 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231));
-    
-    CCTK_REAL_VEC R4p3232 = 
-      kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232));
-    
-    CCTK_REAL_VEC R4p3233 = R3233;
-    
-    CCTK_REAL_VEC R4p3311 = R3311;
-    
-    CCTK_REAL_VEC R4p3312 = R3312;
-    
-    CCTK_REAL_VEC R4p3313 = R3313;
-    
-    CCTK_REAL_VEC R4p3321 = R3321;
-    
-    CCTK_REAL_VEC R4p3322 = R3322;
-    
-    CCTK_REAL_VEC R4p3323 = R3323;
-    
-    CCTK_REAL_VEC R4p3331 = R3331;
-    
-    CCTK_REAL_VEC R4p3332 = R3332;
-    
-    CCTK_REAL_VEC R4p3333 = R3333;
-    
     CCTK_REAL_VEC Ro111 = ToReal(0.);
     
     CCTK_REAL_VEC Ro112 = 
@@ -1858,61 +1294,61 @@ static void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC Ro333 = ToReal(0.);
     
     CCTK_REAL_VEC Rojo11 = 
-      kmadd(gInv11,R1111,kmadd(gInv12,R1112,kmadd(gInv13,R1113,kmadd(gInv21,R1211,kmadd(gInv31,R1311,kmadd(gInv23,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv32,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))))))))));
+      kmadd(kadd(gInv23,gInv32),kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))));
     
     CCTK_REAL_VEC Rojo12 = 
-      kmadd(gInv11,R1121,kmadd(gInv21,R1221,kmadd(gInv22,R1222,kmadd(gInv23,R1223,kmadd(gInv31,R1321,kmadd(gInv12,kadd(R1122,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv32,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1322)),kmadd(gInv13,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1123)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))))));
+      kmadd(gInv23,R1223,knmsub(gInv21,R1212,knmsub(gInv31,R1213,kmadd(gInv12,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv32,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo13 = 
-      kmadd(gInv11,R1131,kmadd(gInv21,R1231,kmadd(gInv31,R1331,kmadd(gInv32,R1332,kmadd(gInv33,R1333,kmadd(gInv12,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1132)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)),kmadd(gInv13,kadd(R1133,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv23,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1233)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv23),kmadd(gInv13,kmul(kxzL,kxzL),knmsub(gInv21,R1213,knmsub(gInv31,R1313,knmsub(gInv32,R1323,kmadd(gInv12,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv23,kmul(kxxL,gInv13))))))))));
     
     CCTK_REAL_VEC Rojo21 = 
-      kmadd(gInv11,R2111,kmadd(gInv12,R2112,kmadd(gInv13,R2113,kmadd(gInv22,R2212,kmadd(gInv32,R2312,kmadd(gInv21,kadd(R2211,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv23,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2213)),kmadd(gInv31,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2311)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)))))))))));
+      kmadd(gInv32,R1223,knmsub(gInv12,R1212,knmsub(gInv13,R1213,kmadd(gInv21,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv23,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo22 = 
-      kmadd(gInv12,R2122,kmadd(gInv21,R2221,kmadd(gInv22,R2222,kmadd(gInv23,R2223,kmadd(gInv32,R2322,kmadd(gInv13,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)),kmadd(gInv31,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))))))))));
+      kmadd(kadd(gInv13,gInv31),kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Rojo23 = 
-      kmadd(gInv12,R2132,kmadd(gInv22,R2232,kmadd(gInv31,R2331,kmadd(gInv32,R2332,kmadd(gInv33,R2333,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)),kmadd(gInv21,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2231)),kmadd(gInv13,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2133)),kmul(gInv23,kadd(R2233,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv12,R1223,knmsub(gInv31,R1323,knmsub(gInv32,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv21,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv23,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo31 = 
-      kmadd(gInv11,R3111,kmadd(gInv12,R3112,kmadd(gInv13,R3113,kmadd(gInv23,R3213,kmadd(gInv33,R3313,kmadd(gInv21,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3211)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)),kmadd(gInv31,kadd(R3311,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv32,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3312)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv32),kmadd(gInv31,kmul(kxzL,kxzL),knmsub(gInv12,R1213,knmsub(gInv13,R1313,knmsub(gInv23,R1323,kmadd(gInv21,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv32,kmul(kxxL,gInv31))))))))));
     
     CCTK_REAL_VEC Rojo32 = 
-      kmadd(gInv13,R3123,kmadd(gInv21,R3221,kmadd(gInv22,R3222,kmadd(gInv23,R3223,kmadd(gInv33,R3323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)),kmadd(gInv12,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3122)),kmadd(gInv31,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3321)),kmul(gInv32,kadd(R3322,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv21,R1223,knmsub(gInv13,R1323,knmsub(gInv23,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv12,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv32,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo33 = 
-      kmadd(gInv13,R3133,kmadd(gInv23,R3233,kmadd(gInv31,R3331,kmadd(gInv32,R3332,kmadd(gInv33,R3333,kmadd(gInv12,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)),kmadd(gInv21,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232)))))))))));
+      kmadd(kadd(gInv12,gInv21),kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Psi4rL = 
-      kmadd(R4p1112,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1211,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1113,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1311,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1312,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p2122,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2221,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2123,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2321,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2223,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2322,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p3132,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3231,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3133,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3331,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3233,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3332,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(n1,kmul(n2,kmul(R4p1121,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p1131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n2,kmul(R4p2111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p2131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p3111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p3121,kmul(rmbar1,rmbar1))),kmadd(R4p1111,kmul(kmul(n1,n1),kmul(rmbar1,rmbar1)),kmadd(R4p2121,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(R4p3131,kmul(kmul(n3,n3),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(n1,kmul(n2,kmul(R4p1222,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n2,kmul(R4p2212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p2232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p3212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p3222,kmul(rmbar2,rmbar2))),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(R4p2222,kmul(kmul(n2,n2),kmul(rmbar2,rmbar2)),kmadd(R4p3232,kmul(kmul(n3,n3),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p2313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p3313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p3323,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),knmsub(n3,kmul(kmul(imbar3,imbar3),kmadd(n1,R4p3313,kmul(n2,R4p2333))),kmadd(kmul(imbar3,imbar3),kmsub(n1,kmul(nn,kmul(Ro313,ToReal(-2.))),kmul(n2,kmul(n3,R4p3323))),kmadd(R4p1313,kmsub(kmul(n1,n1),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n2,n2),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(R4p3333,kmsub(kmul(n3,n3),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n3,n3))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmadd(n3,kmul(R4p1132,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1221,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p1231,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1123,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1331,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2113,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1233,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p1322,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p1332,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p2213,kmul(rmbar2,rmbar3)),kmadd(n2,kmsub(R4p1122,kmul(rmbar1,rmbar2),kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro112,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro113,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro211,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro213,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro311,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro312,ToReal(2.))))))))))))))))))))),kmadd(n2,kmadd(n3,kmul(R4p2132,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p2211,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p2231,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1321,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p2133,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p2311,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p3321,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p1223,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p2233,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p2312,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p2112,kmul(rmbar1,rmbar2),kmul(R4p2313,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro123,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro223,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro322,ToReal(2.))))))))))))))))))))),kmsub(n3,kmadd(n2,kmul(R4p3122,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p3211,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p3221,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1133,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2331,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3113,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p3123,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3311,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2332,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3213,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3223,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3312,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3322,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p3112,kmul(rmbar1,rmbar2),kmul(R4p1333,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro132,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro133,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro231,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro233,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro331,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro332,ToReal(2.)))))))))))))))))))))))),kmadd(kmul(imbar1,imbar1),kmadd(n2,kmul(n3,R4p2131),kmadd(n2,kmul(n3,R4p3121),kmadd(R4p1111,kmul(n1,n1),kmadd(R4p2121,kmul(n2,n2),kmadd(R4p3131,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro121,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1121,R4p2111),kmadd(n3,kadd(R4p1131,R4p3111),kmul(nn,kmul(Ro111,ToReal(2.)))))))))))))),kmadd(kmul(imbar2,imbar2),kmadd(n2,kmul(n3,R4p2232),kmadd(n2,kmul(n3,R4p3222),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2222,kmul(n2,n2),kmadd(R4p3232,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro232,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1222,R4p2212),kmadd(n3,kadd(R4p1232,R4p3212),kmul(nn,kmul(Ro212,ToReal(2.)))))))))))))),kmadd(imbar2,kmul(imbar3,kmadd(kadd(R4p1213,R4p1312),kmul(n1,n1),kmadd(kadd(R4p2223,R4p2322),kmul(n2,n2),kmadd(R4p3233,kmul(n3,n3),kmadd(R4p3332,kmul(n3,n3),kmadd(Rojo23,kmul(nn,nn),kmadd(Rojo32,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro233,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro332,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),kmadd(n3,kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),kmul(nn,kmul(kadd(Ro213,Ro312),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.))))))))))))))),kmul(imbar1,kmadd(imbar2,kmadd(kadd(R4p1112,R4p1211),kmul(n1,n1),kmadd(kadd(R4p2122,R4p2221),kmul(n2,n2),kmadd(R4p3132,kmul(n3,n3),kmadd(R4p3231,kmul(n3,n3),kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),kmadd(n3,kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),kmul(nn,kmul(kadd(Ro112,Ro211),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),kmul(nn,kmul(kadd(Ro122,Ro221),ToReal(2.)))))))))))))),kmul(imbar3,kmadd(kadd(R4p1113,R4p1311),kmul(n1,n1),kmadd(kadd(R4p2123,R4p2321),kmul(n2,n2),kmadd(R4p3133,kmul(n3,n3),kmadd(R4p3331,kmul(n3,n3),kmadd(Rojo13,kmul(nn,nn),kmadd(Rojo31,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro133,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro331,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),kmadd(n3,kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),kmul(nn,kmul(kadd(Ro113,Ro311),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),kmul(nn,kmul(kadd(Ro123,Ro321),ToReal(2.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(R4p1212,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(R4p1313,kmul(kmul(n1,n1),kmul(rmbar3,rmbar3)),kmadd(R4p2323,kmul(kmul(n2,n2),kmul(rmbar3,rmbar3)),kmadd(kmadd(n1,kmul(n2,kmul(R4p1212,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1213,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1313,kmul(rmbar1,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1323,kmul(rmbar2,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2323,kmul(rmbar2,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(imbar3,imbar3))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(imbar3,imbar3))),kmul(R4p1223,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2)))))))))))),ToReal(-2.),kmadd(n1,kmul(n3,kmul(R4p1223,kmul(kmul(rmbar2,rmbar2),ToReal(-2.)))),kmadd(R4p1313,kmsub(kmul(n3,n3),kmul(rmbar1,rmbar1),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n3,n3),kmul(rmbar2,rmbar2),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro112))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro113))),kmadd(n2,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro123))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro132))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro133))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro211))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro213))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro223))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro231))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro233))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro311))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro312))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro322))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro331))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro332))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmul(R4p1323,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3)))))))))))))))))))),ToReal(2.),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),knmsub(kmul(imbar2,imbar2),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2323,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n1,kmul(n3,kmul(R4p1223,ToReal(-2.))),kmadd(n1,kmul(nn,kmul(Ro212,ToReal(2.))),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmul(n3,kmul(nn,kmul(Ro232,ToReal(2.)))))))))),kmadd(n2,kmadd(n1,kmul(R4p1213,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(n3,kmul(R4p1323,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.))),kmadd(n3,kmul(R4p1223,kmul(rmbar1,kmul(rmbar2,ToReal(2.)))),kmadd(n1,kmul(R4p1223,kmul(rmbar2,kmul(rmbar3,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(n3,kmul(R4p1213,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))))))))))),knmsub(kmul(imbar1,imbar1),kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(n2,kmul(kmadd(n3,R4p1213,kmul(nn,Ro121)),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(nn,kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.))))))))),kmsub(imbar1,kmul(imbar3,kmadd(R4p1223,kmul(kmul(n2,n2),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1213,kmsub(n3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),ToReal(2.)),kmsub(n2,kmul(kmsub(n3,R4p1323,kmul(nn,kadd(Ro123,Ro321))),ToReal(2.)),kmul(nn,kmadd(nn,kadd(Rojo13,Rojo31),kmul(n3,kmul(kadd(Ro133,Ro331),ToReal(2.))))))))),kmul(imbar2,kmadd(imbar3,kmadd(R4p1213,kmul(kmul(n1,n1),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1223,kmsub(nn,kadd(Ro213,Ro312),kmul(n3,R4p1323))),ToReal(2.)),kmadd(n2,kmadd(n3,kmul(R4p2323,ToReal(-2.)),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.)))),kmul(nn,kmadd(nn,kadd(Rojo23,Rojo32),kmul(n3,kmul(kadd(Ro233,Ro332),ToReal(2.)))))))),kmul(imbar1,kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n1,kmul(ToReal(-2.),kmadd(n2,R4p1212,kmsub(n3,R4p1213,kmul(nn,kadd(Ro112,Ro211))))),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n2,kmul(kmadd(n3,R4p1223,kmul(nn,kadd(Ro122,Ro221))),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmul(R4p1323,kmul(kmul(n3,n3),ToReal(2.))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi4iL = 
-      knmadd(im1,kmadd(R4p3132,kmul(rm2,kmul(n3,n3)),kmadd(R4p3231,kmul(rm2,kmul(n3,n3)),kmadd(R4p3133,kmul(rm3,kmul(n3,n3)),kmadd(R4p3331,kmul(rm3,kmul(n3,n3)),kmadd(rm2,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro331,ToReal(2.)))),kmadd(R4p3131,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm1,kmul(Rojo11,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm2,kmadd(R4p1211,rm2,kmadd(R4p1113,rm3,kmadd(R4p1311,rm3,kmul(R4p1111,kmul(rm1,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm2,kmadd(R4p2221,rm2,kmadd(R4p2123,rm3,kmadd(R4p2321,rm3,kmul(R4p2121,kmul(rm1,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm2,kmadd(R4p1221,rm2,kmadd(R4p2112,rm2,kmadd(R4p2211,rm2,kmadd(R4p1123,rm3,kmadd(R4p1321,rm3,kmadd(R4p2113,rm3,kmadd(R4p2311,rm3,kmadd(R4p1121,kmul(rm1,ToReal(2.)),kmul(R4p2111,kmul(rm1,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm2,kmadd(R4p1231,rm2,kmadd(R4p3112,rm2,kmadd(R4p3211,rm2,kmadd(R4p1133,rm3,kmadd(R4p1331,rm3,kmadd(R4p3113,rm3,kmadd(R4p3311,rm3,kmadd(R4p1131,kmul(rm1,ToReal(2.)),kmul(R4p3111,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm2,kmadd(R4p2231,rm2,kmadd(R4p3122,rm2,kmadd(R4p3221,rm2,kmadd(R4p2133,rm3,kmadd(R4p2331,rm3,kmadd(R4p3123,rm3,kmadd(R4p3321,rm3,kmadd(R4p2131,kmul(rm1,ToReal(2.)),kmul(R4p3121,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm1,kmul(Ro131,ToReal(4.))))))))))))))))))))))),kmadd(im3,kmadd(R4p3133,kmul(rm1,kmul(n3,n3)),kmadd(R4p3331,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm2,kmul(n3,n3)),kmadd(R4p3332,kmul(rm2,kmul(n3,n3)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(rm1,kmul(Rojo31,kmul(nn,nn)),kmadd(rm2,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro331,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro332,ToReal(2.)))),kmadd(R4p3333,kmul(rm3,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm3,kmul(Rojo33,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1113,rm1,kmadd(R4p1311,rm1,kmadd(R4p1213,rm2,kmadd(R4p1312,rm2,kmul(R4p1313,kmul(rm3,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2123,rm1,kmadd(R4p2321,rm1,kmadd(R4p2223,rm2,kmadd(R4p2322,rm2,kmul(R4p2323,kmul(rm3,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1123,rm1,kmadd(R4p1321,rm1,kmadd(R4p2113,rm1,kmadd(R4p2311,rm1,kmadd(R4p1223,rm2,kmadd(R4p1322,rm2,kmadd(R4p2213,rm2,kmadd(R4p2312,rm2,kmadd(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p2313,kmul(rm3,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1133,rm1,kmadd(R4p1331,rm1,kmadd(R4p3113,rm1,kmadd(R4p3311,rm1,kmadd(R4p1233,rm2,kmadd(R4p1332,rm2,kmadd(R4p3213,rm2,kmadd(R4p3312,rm2,kmadd(R4p1333,kmul(rm3,ToReal(2.)),kmul(R4p3313,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2133,rm1,kmadd(R4p2331,rm1,kmadd(R4p3123,rm1,kmadd(R4p3321,rm1,kmadd(R4p2233,rm2,kmadd(R4p2332,rm2,kmadd(R4p3223,rm2,kmadd(R4p3322,rm2,kmadd(R4p2333,kmul(rm3,ToReal(2.)),kmul(R4p3323,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm3,kmul(Ro333,ToReal(4.))))))))))))))))))))))),kmul(im2,kmadd(R4p3132,kmul(rm1,kmul(n3,n3)),kmadd(R4p3231,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm3,kmul(n3,n3)),kmadd(R4p3332,kmul(rm3,kmul(n3,n3)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(R4p3232,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm1,kmadd(R4p1211,rm1,kmadd(R4p1213,rm3,kmadd(R4p1312,rm3,kmul(R4p1212,kmul(rm2,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm1,kmadd(R4p2221,rm1,kmadd(R4p2223,rm3,kmadd(R4p2322,rm3,kmul(R4p2222,kmul(rm2,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm1,kmadd(R4p1221,rm1,kmadd(R4p2112,rm1,kmadd(R4p2211,rm1,kmadd(R4p1223,rm3,kmadd(R4p1322,rm3,kmadd(R4p2213,rm3,kmadd(R4p2312,rm3,kmadd(R4p1222,kmul(rm2,ToReal(2.)),kmul(R4p2212,kmul(rm2,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm1,kmadd(R4p1231,rm1,kmadd(R4p3112,rm1,kmadd(R4p3211,rm1,kmadd(R4p1233,rm3,kmadd(R4p1332,rm3,kmadd(R4p3213,rm3,kmadd(R4p3312,rm3,kmadd(R4p1232,kmul(rm2,ToReal(2.)),kmul(R4p3212,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm1,kmadd(R4p2231,rm1,kmadd(R4p3122,rm1,kmadd(R4p3221,rm1,kmadd(R4p2233,rm3,kmadd(R4p2332,rm3,kmadd(R4p3223,rm3,kmadd(R4p3322,rm3,kmadd(R4p2232,kmul(rm2,ToReal(2.)),kmul(R4p3222,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))))))))));
+      knmadd(im1,kmadd(kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmul(kmul(n3,n3),ToReal(2.)),kmadd(kmul(n2,n2),kmul(kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),ToReal(2.)),kmadd(n2,kmul(ToReal(2.),knmsub(n1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmadd(n3,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(nn,kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.))))))))),kmadd(n3,kmul(ToReal(2.),kmsub(nn,kmadd(rm2,kadd(Ro132,Ro231),kmadd(rm3,kadd(Ro133,Ro331),kmul(rm1,kmul(Ro131,ToReal(2.))))),kmul(n1,kmadd(R4p1213,rm2,kmul(R4p1313,rm3))))),kmul(nn,kmadd(n1,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.)))))),kmul(nn,kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.)))))))))))),kmadd(im2,kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(R4p1323,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(R4p2323,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(n1,kmul(ToReal(2.),kmadd(n2,kmsub(R4p1223,rm3,kmul(R4p1212,rm1)),kmsub(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))),kmul(n3,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmadd(n3,kmsub(R4p1223,rm1,kmul(R4p2323,rm3)),kmul(nn,kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))),kmul(im3,kmadd(kmadd(R4p1213,rm2,kmul(R4p1313,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(kmul(n2,n2),kmadd(R4p1223,kmul(rm1,ToReal(-2.)),kmul(R4p2323,kmul(rm3,ToReal(2.)))),kmadd(n1,kmul(ToReal(2.),knmsub(n3,kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmadd(n2,kmadd(R4p1223,rm2,kmsub(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p1213,rm1))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmsub(nn,kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.))))),kmul(n3,kmadd(R4p1323,rm1,kmul(R4p2323,rm2))))),kmul(nn,kmadd(n3,kmul(ToReal(2.),kmadd(rm1,kadd(Ro133,Ro331),kmadd(rm2,kadd(Ro233,Ro332),kmul(rm3,kmul(Ro333,ToReal(2.)))))),kmul(nn,kmadd(rm1,kadd(Rojo13,Rojo31),kmadd(rm2,kadd(Rojo23,Rojo32),kmul(rm3,kmul(Rojo33,ToReal(2.)))))))))))))));
     
     CCTK_REAL_VEC Psi3rL = 
-      kmadd(kmadd(ltet3,kmul(R4p3121,rm2),kmul(ltet1,kmul(R4p1131,rm3))),kmul(n1,n1),kmadd(ltet1,kmadd(n3,kmadd(kmadd(n1,R4p1311,kmul(n2,R4p1312)),rm1,kmadd(kmadd(n2,R4p1223,kmul(n1,kadd(R4p1123,R4p1321))),rm2,kmul(kmadd(n1,R4p1331,kmul(n2,kadd(R4p1233,R4p1332))),rm3))),kmadd(n1,kmadd(kmadd(n2,R4p1112,kmul(n3,R4p1113)),rm1,kmul(n2,kmadd(R4p1122,rm2,kmul(R4p1132,rm3)))),kmadd(n2,kmadd(kmadd(n1,R4p1211,kmul(n3,R4p1213)),rm1,kmul(n1,kmadd(R4p1221,rm2,kmul(R4p1231,rm3)))),kmul(rm1,kmadd(R4p1111,kmul(n1,n1),kmadd(R4p1212,kmul(n2,n2),kmul(R4p1313,kmul(n3,n3)))))))),kmadd(ltet2,kmadd(n3,kmadd(kmadd(n1,R4p2311,kmul(n2,R4p2312)),rm1,kmadd(kmadd(n1,R4p2321,kmul(n2,kadd(R4p2223,R4p2322))),rm2,kmul(kmadd(n2,R4p2233,kmul(n1,kadd(R4p2133,R4p2331))),rm3))),kmadd(n1,kmadd(kmadd(n2,R4p2112,kmul(n3,R4p2113)),rm1,kmul(n2,kmadd(R4p2122,rm2,kmul(R4p2132,rm3)))),kmadd(n2,kmadd(kmadd(n1,R4p2211,kmul(n3,R4p2213)),rm1,kmul(n1,kmadd(R4p2221,rm2,kmul(R4p2231,rm3)))),kmul(rm1,kmadd(R4p2111,kmul(n1,n1),kmadd(R4p2212,kmul(n2,n2),kmul(R4p2313,kmul(n3,n3)))))))),kmadd(ltet3,kmadd(n3,kmadd(kmadd(n1,R4p3311,kmul(n2,R4p3312)),rm1,kmadd(kmadd(n2,R4p3223,kmul(n1,kadd(R4p3123,R4p3321))),rm2,kmul(kmadd(n1,R4p3331,kmul(n2,kadd(R4p3233,R4p3332))),rm3))),kmadd(n1,kmadd(kmadd(n2,R4p3112,kmul(n3,R4p3113)),rm1,kmul(n2,kmadd(R4p3122,rm2,kmul(R4p3132,rm3)))),kmadd(n2,kmadd(kmadd(n1,R4p3211,kmul(n3,R4p3213)),rm1,kmul(n1,kmadd(R4p3221,rm2,kmul(R4p3231,rm3)))),kmul(rm1,kmadd(R4p3111,kmul(n1,n1),kmadd(R4p3212,kmul(n2,n2),kmul(R4p3313,kmul(n3,n3)))))))),kmadd(rm2,kmadd(kmadd(ltet1,R4p1121,kmul(ltet2,R4p2121)),kmul(n1,n1),kmadd(kmadd(ltet1,R4p1222,kmadd(ltet2,R4p2222,kmul(ltet3,R4p3222))),kmul(n2,n2),kmadd(kmadd(ltet1,R4p1323,kmadd(ltet2,R4p2323,kmul(ltet3,R4p3323))),kmul(n3,n3),kmul(Rojo12,kmul(kmul(nn,nn),ksub(ltet1,n1)))))),kmadd(kmul(nn,nn),kmadd(kmadd(rm2,Rojo22,kmul(rm3,Rojo23)),ksub(ltet2,n2),kmadd(kmadd(rm1,Rojo31,kmul(rm2,Rojo32)),ksub(ltet3,n3),kmul(rm1,kmadd(Rojo11,ksub(ltet1,n1),kmul(Rojo21,ksub(ltet2,n2)))))),kmadd(rm3,kmadd(kmadd(ltet2,R4p2131,kmul(ltet3,R4p3131)),kmul(n1,n1),kmadd(kmadd(ltet1,R4p1232,kmadd(ltet2,R4p2232,kmul(ltet3,R4p3232))),kmul(n2,n2),kmadd(kmadd(ltet1,R4p1333,kmadd(ltet2,R4p2333,kmul(ltet3,R4p3333))),kmul(n3,n3),kmul(kmul(nn,nn),kmadd(Rojo13,ksub(ltet1,n1),kmul(Rojo33,ksub(ltet3,n3))))))),kmadd(n3,kmadd(rm2,kmadd(ltet2,kmul(n1,R4p2123),kmadd(n2,kmadd(ltet1,R4p1322,kmul(ltet3,R4p3322)),kmul(nn,kmul(Ro223,kmadd(ltet2,ToReal(-2.),n2))))),kmadd(rm3,kmadd(ltet2,kmul(n2,R4p2332),kmadd(n1,kmadd(ltet1,R4p1133,kmul(ltet3,R4p3133)),kmul(nn,kmul(Ro333,kmadd(ltet3,ToReal(-2.),n3))))),kmul(nn,kmadd(rm1,kmul(Ro113,kmadd(ltet1,ToReal(-2.),n1)),kmadd(Ro313,kmsub(rm1,ksub(n3,ltet3),kmul(ltet1,rm3)),kmsub(Ro323,kmsub(rm2,ksub(n3,ltet3),kmul(ltet2,rm3)),kmadd(Ro123,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))),kmadd(Ro133,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1))),kmadd(Ro233,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2))),kmul(Ro213,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2))))))))))))),kmul(nn,kmadd(kmadd(n1,kmul(rm1,Ro111),kmul(n2,kmul(rm1,Ro112))),kmadd(ltet1,ToReal(-2.),n1),kmadd(n2,kmul(rm2,kmul(Ro222,kmadd(ltet2,ToReal(-2.),n2))),kmadd(n1,kmul(rm3,kmul(Ro331,kmadd(ltet3,ToReal(-2.),n3))),kmadd(n2,kmul(rm3,kmul(Ro332,kmadd(ltet3,ToReal(-2.),n3))),kmadd(n2,kmul(Ro232,kmsub(rm3,ksub(n2,ltet2),kmul(ltet3,rm2))),kmadd(n1,kmsub(rm2,kmul(Ro221,kmadd(ltet2,ToReal(-2.),n2)),kmul(Ro311,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3))))),knmsub(n2,kmadd(Ro122,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))),kmadd(Ro312,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3))),kmul(Ro132,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1)))))),kmadd(n1,kmadd(Ro121,kmsub(rm2,ksub(n1,ltet1),kmul(ltet2,rm1)),kmsub(Ro131,kmsub(rm3,ksub(n1,ltet1),kmul(ltet3,rm1)),kmadd(Ro211,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2))),kmadd(Ro321,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3))),kmul(Ro231,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2)))))))),kmul(n2,kmsub(Ro212,kmsub(rm1,ksub(n2,ltet2),kmul(ltet1,rm2)),kmul(Ro322,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3)))))))))))))))))))))));
+      kmadd(ltet2,kmul(R4p1212,kmul(rm2,kmul(n1,n1))),kmadd(ltet3,kmul(R4p1213,kmul(rm2,kmul(n1,n1))),kmadd(ltet2,kmul(R4p1213,kmul(rm3,kmul(n1,n1))),kmadd(ltet3,kmul(R4p1313,kmul(rm3,kmul(n1,n1))),kmadd(ltet1,kmul(R4p1212,kmul(rm1,kmul(n2,n2))),kmadd(ltet3,kmul(R4p2323,kmul(rm3,kmul(n2,n2))),kmadd(ltet1,kmul(R4p1313,kmul(rm1,kmul(n3,n3))),kmadd(ltet2,kmul(R4p1323,kmul(rm1,kmul(n3,n3))),kmadd(ltet1,kmul(R4p1323,kmul(rm2,kmul(n3,n3))),kmadd(ltet2,kmul(R4p2323,kmul(rm2,kmul(n3,n3))),kmadd(n1,kmul(nn,kmul(rm2,kmul(Ro221,kmadd(ltet2,ToReal(-2.),n2)))),kmadd(n2,kmul(nn,kmul(rm2,kmul(Ro222,kmadd(ltet2,ToReal(-2.),n2)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro223,kmadd(ltet2,ToReal(-2.),n2)))),kmadd(n1,kmul(nn,kmul(rm3,kmul(Ro331,kmadd(ltet3,ToReal(-2.),n3)))),kmadd(n2,kmul(nn,kmul(rm3,kmul(Ro332,kmadd(ltet3,ToReal(-2.),n3)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro333,kmadd(ltet3,ToReal(-2.),n3)))),kmadd(rm1,kmul(Rojo11,kmul(kmul(nn,nn),ksub(ltet1,n1))),kmadd(rm2,kmul(Rojo12,kmul(kmul(nn,nn),ksub(ltet1,n1))),kmadd(rm3,kmul(Rojo13,kmul(kmul(nn,nn),ksub(ltet1,n1))),kmadd(rm1,kmul(Rojo21,kmul(kmul(nn,nn),ksub(ltet2,n2))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ksub(ltet2,n2))),kmadd(rm3,kmul(Rojo23,kmul(kmul(nn,nn),ksub(ltet2,n2))),kmadd(rm1,kmul(Rojo31,kmul(kmul(nn,nn),ksub(ltet3,n3))),kmadd(rm2,kmul(Rojo32,kmul(kmul(nn,nn),ksub(ltet3,n3))),kmadd(rm3,kmul(Rojo33,kmul(kmul(nn,nn),ksub(ltet3,n3))),kmadd(n2,kmul(nn,kmul(Ro212,kmsub(rm1,ksub(n2,ltet2),kmul(ltet1,rm2)))),kmadd(n2,kmul(nn,kmul(Ro232,kmsub(rm3,ksub(n2,ltet2),kmul(ltet3,rm2)))),kmadd(n3,kmul(nn,kmul(Ro313,kmsub(rm1,ksub(n3,ltet3),kmul(ltet1,rm3)))),kmadd(n3,kmul(nn,kmul(Ro323,kmsub(rm2,ksub(n3,ltet3),kmul(ltet2,rm3)))),kmadd(ltet3,kmsub(n2,kmul(rm2,kmsub(n1,R4p1223,kmul(n3,R4p2323))),kmul(R4p1223,kmul(rm1,kmul(n2,n2)))),kmadd(ltet1,kmsub(n3,kmsub(n2,kmul(R4p1223,rm2),kmul(n1,kmul(R4p1313,rm3))),kmul(R4p1223,kmul(rm3,kmul(n2,n2)))),kmadd(n3,kmsub(rm1,kmsub(ltet2,kmul(n2,R4p1223),kmul(ltet3,kmul(n1,R4p1313))),kmadd(ltet1,kmadd(n2,kmul(R4p1323,rm3),kmul(n1,kmul(R4p1213,rm2))),kmul(nn,kmul(Ro123,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))))))),kmadd(n1,kmsub(ltet2,kmul(n3,kmul(R4p1223,kmul(rm2,ToReal(-2.)))),kmadd(ltet1,kmul(n2,kmul(R4p1213,rm3)),kmul(nn,kmul(Ro211,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2))))))),kmadd(nn,kmsub(n1,kmul(rm1,kmul(Ro111,kmadd(ltet1,ToReal(-2.),n1))),kmul(n3,kmul(Ro213,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2)))))),kmadd(nn,kmsub(n2,kmul(rm1,kmul(Ro112,kmadd(ltet1,ToReal(-2.),n1))),kmul(n3,kmul(Ro233,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2)))))),kmadd(nn,kmsub(n3,kmul(rm1,kmul(Ro113,kmadd(ltet1,ToReal(-2.),n1))),kmul(n1,kmul(Ro311,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3)))))),kmadd(nn,kmsub(n1,kmul(Ro121,kmsub(rm2,ksub(n1,ltet1),kmul(ltet2,rm1))),kmul(n2,kmul(Ro312,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3)))))),kmadd(n1,kmul(nn,kmsub(Ro131,kmsub(rm3,ksub(n1,ltet1),kmul(ltet3,rm1)),kmul(Ro321,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3)))))),knmsub(n1,kmadd(ltet2,kmul(n3,kmul(R4p1323,rm3)),kmadd(n2,kmadd(rm1,kmadd(ltet3,R4p1213,kmul(ltet2,R4p1212)),kmul(ltet1,kmul(R4p1212,rm2))),kmul(nn,kmul(Ro231,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2))))))),kmadd(n2,kmsub(ltet2,kmul(n1,kmul(R4p1223,rm3)),kmul(nn,kmadd(Ro322,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3))),kmul(Ro122,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))))))),kmadd(n2,kmsub(ltet3,kmul(n1,kmul(R4p1323,kmul(rm3,ToReal(2.)))),kmul(nn,kmul(Ro132,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1)))))),kmul(n3,knmsub(ltet2,kmul(n2,kmul(R4p2323,rm3)),knmsub(ltet3,kmul(R4p1323,kmadd(n1,rm2,kmul(n2,rm1))),kmsub(R4p1213,kmul(rm1,kmsub(ltet1,kmul(n2,ToReal(2.)),kmul(ltet2,n1))),kmul(nn,kmul(Ro133,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1))))))))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi3iL = 
-      knmadd(im2,kmadd(n2,kmul(n3,kmul(nn,Ro223)),kmadd(n1,kmul(n3,kmul(nn,Ro321)),kmadd(n2,kmul(n3,kmul(nn,Ro322)),kmadd(ltet3,kmul(R4p3121,kmul(n1,n1)),kmadd(nn,kmul(Ro121,kmul(n1,n1)),kmadd(ltet3,kmul(R4p3222,kmul(n2,n2)),kmadd(nn,kmul(Ro222,kmul(n2,n2)),kmadd(ltet3,kmul(R4p3323,kmul(n3,n3)),kmadd(nn,kmul(Ro323,kmul(n3,n3)),kmadd(ltet3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet2,kmadd(n2,kmul(n3,R4p2223),kmadd(n2,kmul(n3,R4p2322),kmadd(R4p2121,kmul(n1,n1),kmadd(R4p2222,kmul(n2,n2),kmadd(R4p2323,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(-2.))),kmadd(n3,kmul(nn,kmul(Ro223,ToReal(-2.))),kmul(n1,kmadd(n2,kadd(R4p2122,R4p2221),kmadd(n3,kadd(R4p2123,R4p2321),kmul(nn,kmul(Ro221,ToReal(-2.)))))))))))))),kmadd(ltet3,kmul(n1,kmsub(n2,R4p3122,kmul(nn,Ro231))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3123),kmul(n2,kmul(nn,Ro232))),kmadd(ltet3,kmsub(n1,kmul(n2,R4p3221),kmul(n3,kmul(nn,Ro233))),kmadd(ltet3,kmsub(n2,kmul(n3,R4p3223),kmul(n1,kmul(nn,Ro321))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3321),kmul(n2,kmul(nn,Ro322))),kmadd(ltet3,kmul(n3,kmsub(n2,R4p3322,kmul(nn,Ro323))),kmadd(n1,kmsub(n2,kmul(nn,Ro122),kmul(Rojo12,kmul(nn,nn))),kmadd(n2,kmsub(n1,kmul(nn,Ro221),kmul(Rojo22,kmul(nn,nn))),kmadd(n3,kmsub(n1,kmul(nn,Ro123),kmul(Rojo32,kmul(nn,nn))),kmul(ltet1,kmadd(R4p1121,kmul(n1,n1),kmadd(R4p1222,kmul(n2,n2),kmadd(R4p1323,kmul(n3,n3),kmadd(Rojo12,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p1122,R4p1221),kmsub(n3,kadd(R4p1123,R4p1321),kmul(nn,kadd(Ro121,Ro211)))),kmsub(n2,kmsub(n3,kadd(R4p1223,R4p1322),kmul(nn,kadd(Ro122,Ro212))),kmul(n3,kmul(nn,kadd(Ro213,Ro123)))))))))))))))))))))))))))))),kmadd(im3,kmadd(ltet3,kmul(n2,kmul(n3,R4p3233)),kmadd(ltet3,kmul(n1,kmul(n3,R4p3331)),kmadd(ltet3,kmul(n2,kmul(n3,R4p3332)),kmadd(n1,kmul(n2,kmul(nn,Ro132)),kmadd(n1,kmul(n3,kmul(nn,Ro133)),kmadd(n1,kmul(n2,kmul(nn,Ro231)),kmadd(n2,kmul(n3,kmul(nn,Ro233)),kmadd(n1,kmul(n3,kmul(nn,Ro331)),kmadd(n2,kmul(n3,kmul(nn,Ro332)),kmadd(ltet3,kmul(R4p3131,kmul(n1,n1)),kmadd(nn,kmul(Ro131,kmul(n1,n1)),kmadd(ltet3,kmul(R4p3232,kmul(n2,n2)),kmadd(nn,kmul(Ro232,kmul(n2,n2)),kmadd(ltet3,kmul(R4p3333,kmul(n3,n3)),kmadd(nn,kmul(Ro333,kmul(n3,n3)),kmadd(ltet3,kmul(Rojo33,kmul(nn,nn)),kmadd(ltet3,kmul(n1,kmul(nn,kmul(Ro331,ToReal(-2.)))),kmadd(ltet3,kmul(n2,kmul(nn,kmul(Ro332,ToReal(-2.)))),kmadd(ltet3,kmul(n3,kmul(nn,kmul(Ro333,ToReal(-2.)))),kmadd(n1,kmsub(ltet3,kmul(n2,R4p3132),kmul(Rojo13,kmul(nn,nn))),kmadd(n2,kmsub(ltet3,kmul(n1,R4p3231),kmul(Rojo23,kmul(nn,nn))),kmadd(n3,kmsub(ltet3,kmul(n1,R4p3133),kmul(Rojo33,kmul(nn,nn))),kmadd(ltet1,kmadd(R4p1131,kmul(n1,n1),kmadd(R4p1232,kmul(n2,n2),kmadd(R4p1333,kmul(n3,n3),kmadd(Rojo13,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p1132,R4p1231),kmsub(n3,kadd(R4p1133,R4p1331),kmul(nn,kadd(Ro131,Ro311)))),kmsub(n2,kmsub(n3,kadd(R4p1233,R4p1332),kmul(nn,kadd(Ro132,Ro312))),kmul(n3,kmul(nn,kadd(Ro313,Ro133))))))))),kmul(ltet2,kmadd(R4p2131,kmul(n1,n1),kmadd(R4p2232,kmul(n2,n2),kmadd(R4p2333,kmul(n3,n3),kmadd(Rojo23,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p2132,R4p2231),kmsub(n3,kadd(R4p2133,R4p2331),kmul(nn,kadd(Ro231,Ro321)))),kmsub(n2,kmsub(n3,kadd(R4p2233,R4p2332),kmul(nn,kadd(Ro232,Ro322))),kmul(n3,kmul(nn,kadd(Ro323,Ro233))))))))))))))))))))))))))))))))),kmul(im1,kmadd(n2,kmul(n3,kmul(nn,Ro213)),kmadd(n1,kmul(n3,kmul(nn,Ro311)),kmadd(n2,kmul(n3,kmul(nn,Ro312)),kmadd(ltet3,kmul(R4p3111,kmul(n1,n1)),kmadd(nn,kmul(Ro111,kmul(n1,n1)),kmadd(ltet3,kmul(R4p3212,kmul(n2,n2)),kmadd(nn,kmul(Ro212,kmul(n2,n2)),kmadd(ltet3,kmul(R4p3313,kmul(n3,n3)),kmadd(nn,kmul(Ro313,kmul(n3,n3)),kmadd(ltet3,kmul(Rojo31,kmul(nn,nn)),kmadd(ltet1,kmadd(n2,kmul(n3,R4p1213),kmadd(n2,kmul(n3,R4p1312),kmadd(R4p1111,kmul(n1,n1),kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro112,ToReal(-2.))),kmadd(n3,kmul(nn,kmul(Ro113,ToReal(-2.))),kmul(n1,kmadd(n2,kadd(R4p1112,R4p1211),kmadd(n3,kadd(R4p1113,R4p1311),kmul(nn,kmul(Ro111,ToReal(-2.)))))))))))))),kmadd(ltet3,kmul(n1,kmsub(n2,R4p3112,kmul(nn,Ro131))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3113),kmul(n2,kmul(nn,Ro132))),kmadd(ltet3,kmsub(n1,kmul(n2,R4p3211),kmul(n3,kmul(nn,Ro133))),kmadd(ltet3,kmsub(n2,kmul(n3,R4p3213),kmul(n1,kmul(nn,Ro311))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3311),kmul(n2,kmul(nn,Ro312))),kmadd(ltet3,kmul(n3,kmsub(n2,R4p3312,kmul(nn,Ro313))),kmadd(n1,kmsub(n2,kmul(nn,Ro112),kmul(Rojo11,kmul(nn,nn))),kmadd(n2,kmsub(n1,kmul(nn,Ro211),kmul(Rojo21,kmul(nn,nn))),kmadd(n3,kmsub(n1,kmul(nn,Ro113),kmul(Rojo31,kmul(nn,nn))),kmul(ltet2,kmadd(R4p2111,kmul(n1,n1),kmadd(R4p2212,kmul(n2,n2),kmadd(R4p2313,kmul(n3,n3),kmadd(Rojo21,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p2112,R4p2211),kmsub(n3,kadd(R4p2113,R4p2311),kmul(nn,kadd(Ro121,Ro211)))),kmsub(n2,kmsub(n3,kadd(R4p2213,R4p2312),kmul(nn,kadd(Ro122,Ro212))),kmul(n3,kmul(nn,kadd(Ro213,Ro123)))))))))))))))))))))))))))))))));
+      kmadd(im2,kmadd(n1,kmul(Rojo12,kmul(nn,nn)),kmadd(n2,kmul(Rojo22,kmul(nn,nn)),kmadd(n3,kmul(Rojo32,kmul(nn,nn)),knmsub(ltet2,kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2323,kmul(n3,n3),kmadd(n1,kmul(kmadd(n3,R4p1223,kmul(nn,Ro221)),ToReal(-2.)),kmadd(n3,kmul(nn,kmul(Ro223,ToReal(-2.))),kmul(nn,kmadd(nn,Rojo22,kmul(n2,kmul(Ro222,ToReal(-2.))))))))),kmadd(nn,kmsub(ltet3,kmul(n3,Ro233),kmul(Ro121,kmul(n1,n1))),kmadd(nn,kmsub(ltet3,kmul(n1,Ro321),kmul(Ro222,kmul(n2,n2))),kmadd(nn,kmsub(ltet3,kmul(n2,Ro322),kmul(Ro323,kmul(n3,n3))),kmadd(ltet3,kmsub(n3,kmul(nn,Ro323),kmul(Rojo32,kmul(nn,nn))),kmadd(ltet3,kmadd(n2,kmul(n3,R4p2323),kmadd(n1,kmul(nn,Ro231),kmsub(n1,kmsub(n3,R4p1323,kmul(n2,R4p1223)),kmul(R4p1213,kmul(n1,n1))))),kmadd(ltet1,kmadd(n3,kmul(nn,Ro123),kmadd(n1,kmadd(n2,R4p1212,kmadd(n3,R4p1213,kmul(nn,kadd(Ro121,Ro211)))),kmadd(n2,kmul(nn,Ro212),kmadd(n3,kmul(nn,Ro213),knmsub(R4p1323,kmul(n3,n3),kmsub(n2,kmsub(nn,Ro122,kmul(n3,R4p1223)),kmul(Rojo12,kmul(nn,nn)))))))),kmsub(n2,kmul(nn,kmsub(ltet3,Ro232,kmul(n3,kadd(Ro322,Ro223)))),kmul(n1,kmul(nn,kmadd(n3,kadd(Ro321,Ro123),kmul(n2,kadd(Ro221,Ro122)))))))))))))))),kmadd(im1,kmadd(ltet3,kmul(R4p1223,kmul(n2,n2)),kmadd(n1,kmul(Rojo11,kmul(nn,nn)),kmadd(n2,kmul(Rojo21,kmul(nn,nn)),kmadd(n3,kmul(Rojo31,kmul(nn,nn)),kmadd(n3,kmul(nn,kmsub(ltet3,Ro133,kmul(n1,Ro311))),kmadd(nn,kmsub(ltet3,kmul(n1,Ro311),kmul(Ro111,kmul(n1,n1))),kmadd(nn,kmsub(ltet3,kmul(n2,Ro312),kmul(Ro212,kmul(n2,n2))),kmadd(nn,kmul(Ro313,kmsub(ltet3,n3,kmul(n3,n3))),kmadd(ltet3,kmadd(n1,kmul(n2,R4p1213),kmadd(n1,kmul(n3,R4p1313),kmadd(n2,kmul(n3,R4p1323),kmsub(n1,kmul(nn,Ro131),kmul(Rojo31,kmul(nn,nn)))))),kmadd(ltet2,kmadd(n3,kmul(nn,Ro123),kmadd(n1,kmadd(n2,R4p1212,kmadd(n3,R4p1213,kmul(nn,kadd(Ro121,Ro211)))),kmadd(n2,kmul(nn,Ro212),kmadd(n3,kmul(nn,Ro213),knmsub(R4p1323,kmul(n3,n3),kmsub(n2,kmsub(nn,Ro122,kmul(n3,R4p1223)),kmul(Rojo21,kmul(nn,nn)))))))),knmsub(n1,kmul(nn,kmadd(n2,kadd(Ro211,Ro112),kmul(n3,Ro113))),kmsub(n2,kmul(nn,kmsub(ltet3,Ro132,kmul(n3,kadd(Ro312,Ro213)))),kmul(ltet1,kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n1,kmul(nn,kmul(Ro111,ToReal(-2.))),kmadd(n2,kmul(nn,kmul(Ro112,ToReal(-2.))),kmadd(n3,kmul(nn,kmul(Ro113,ToReal(-2.))),kmul(n2,kmul(n3,kmul(R4p1213,ToReal(2.))))))))))))))))))))))),kmul(im3,kmadd(n1,kmul(Rojo13,kmul(nn,nn)),kmadd(n2,kmul(Rojo23,kmul(nn,nn)),kmadd(n3,kmul(Rojo33,kmul(nn,nn)),knmsub(n3,kmul(nn,kmadd(n2,kadd(Ro332,Ro233),kmul(n1,Ro331))),kmadd(ltet1,kmadd(n1,kmadd(n2,R4p1213,kmadd(n3,R4p1313,kmul(nn,kadd(Ro131,Ro311)))),kmadd(n2,kmadd(n3,R4p1323,kmul(nn,kadd(Ro132,Ro312))),kmadd(R4p1223,kmul(n2,n2),kmul(nn,kmsub(n3,kadd(Ro133,Ro313),kmul(nn,Rojo13)))))),kmadd(ltet2,kmadd(n2,kmadd(n3,R4p2323,kmul(nn,kadd(Ro232,Ro322))),knmsub(R4p1213,kmul(n1,n1),kmadd(n1,kmadd(n3,R4p1323,kmsub(nn,kadd(Ro231,Ro321),kmul(n2,R4p1223))),kmul(nn,kmsub(n3,kadd(Ro233,Ro323),kmul(nn,Rojo23)))))),kmadd(ltet3,knmsub(R4p1313,kmul(n1,n1),knmsub(R4p2323,kmul(n2,n2),kmsub(n2,kmul(nn,kmul(Ro332,ToReal(2.))),kmul(Rojo33,kmul(nn,nn))))),kmadd(nn,knmsub(Ro131,kmul(n1,n1),kmsub(Ro333,kmsub(ltet3,kmul(n3,ToReal(2.)),kmul(n3,n3)),kmul(Ro232,kmul(n2,n2)))),kmul(n1,kmadd(n2,kmsub(ltet3,kmul(R4p1323,ToReal(-2.)),kmul(nn,kadd(Ro231,Ro132))),kmul(nn,kmsub(ltet3,kmul(Ro331,ToReal(2.)),kmul(n3,Ro133))))))))))))))));
     
     CCTK_REAL_VEC Psi2rL = 
-      kmadd(ltet1,kmul(n2,kmul(R4p1112,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet1,kmul(n3,kmul(R4p1113,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet2,kmul(n2,kmul(R4p2112,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet2,kmul(n3,kmul(R4p2113,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet3,kmul(n2,kmul(R4p3112,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet3,kmul(n3,kmul(R4p3113,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet1,kmadd(n1,kmul(R4p1121,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p1122,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p1123,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p1211,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p1212,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p1213,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p1131,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n2,kmul(R4p1132,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n3,kmul(R4p1133,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p1311,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n2,kmul(R4p1312,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p1231,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p1232,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p1233,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n1,kmul(R4p1321,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p1322,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p1323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p1111,kmadd(im1,im1,kmul(rm1,rm1))))))))))))))))))))),kmadd(ltet2,kmadd(n1,kmul(R4p2121,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p2122,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p2123,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p2211,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p2212,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p2213,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p2131,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p2231,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p2232,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p2233,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n1,kmul(R4p2321,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p2322,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p2323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p2111,kmadd(im1,im1,kmul(rm1,rm1))))))))))))))))),kmadd(ltet3,kmadd(n1,kmul(R4p3121,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p3122,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p3123,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p3211,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p3212,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p3213,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p3131,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p3231,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p3232,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p3233,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n1,kmul(R4p3321,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p3322,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p3323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p3111,kmadd(im1,im1,kmul(rm1,rm1))))))))))))))))),kmadd(ltet1,kmul(n1,kmul(R4p1221,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet1,kmul(n2,kmul(R4p1222,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet1,kmul(n3,kmul(R4p1223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet2,kmul(n1,kmul(R4p2221,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet2,kmul(n2,kmul(R4p2222,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet2,kmul(n3,kmul(R4p2223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet3,kmul(n1,kmul(R4p3221,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet3,kmul(n2,kmul(R4p3222,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet3,kmul(n3,kmul(R4p3223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet1,kmul(n1,kmul(R4p1331,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet1,kmul(n2,kmul(R4p1332,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet1,kmul(n3,kmul(R4p1333,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet2,kmul(n1,kmul(R4p2331,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet2,kmul(n2,kmul(R4p2332,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet2,kmul(n3,kmul(R4p2333,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet3,kmul(n1,kmul(R4p3331,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet3,kmul(n2,kmul(R4p3332,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet3,kmul(n3,kmul(R4p3333,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(nn,kmul(Ro222,kmul(kmadd(im2,im2,kmul(rm2,rm2)),ksub(n2,ltet2))),kmadd(nn,kmul(Ro333,kmul(kmadd(im3,im3,kmul(rm3,rm3)),ksub(n3,ltet3))),kmadd(nn,kmul(Ro112,kmsub(n2,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro221,kmsub(n1,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro113,kmsub(n3,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro331,kmsub(n1,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro223,kmsub(n3,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(nn,kmul(Ro332,kmsub(n2,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im2,im3,kmul(rm2,rm3))))),knmsub(kmadd(im1,im2,kmul(rm1,rm2)),kmul(kmul(nn,nn),kadd(Rojo21,Rojo12)),kmadd(nn,kmul(Ro121,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet2,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro131,kmsub(n1,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet3,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro212,kmsub(n2,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet1,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro232,kmsub(n2,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet3,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro313,kmsub(n3,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet1,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(nn,kmul(Ro323,kmsub(n3,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet2,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(kmadd(im1,im3,kmul(rm1,rm3)),kmadd(ltet1,kmul(n3,R4p1313),kmadd(ltet2,kmul(n2,R4p2132),kmadd(ltet2,kmul(n3,R4p2133),kmadd(ltet2,kmul(n1,R4p2311),kmadd(ltet2,kmul(n2,R4p2312),kmadd(ltet2,kmul(n3,R4p2313),kmadd(ltet3,kmul(n2,R4p3132),kmadd(ltet3,kmul(n3,R4p3133),kmadd(ltet3,kmul(n1,R4p3311),kmadd(ltet3,kmul(n2,R4p3312),kmadd(ltet3,kmul(n3,R4p3313),knmsub(Rojo13,kmul(nn,nn),kmadd(nn,kmul(Ro311,ksub(n1,ltet1)),kmul(nn,kmul(Ro133,ksub(n3,ltet3)))))))))))))))),kmsub(nn,kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmul(Ro211,ksub(n1,ltet1)),kmadd(Ro111,kmul(kmadd(im1,im1,kmul(rm1,rm1)),ksub(n1,ltet1)),kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmul(Ro122,ksub(n2,ltet2)),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro322,ksub(n2,ltet2)),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro233,ksub(n3,ltet3)),kmadd(Ro321,kmadd(im3,kmsub(im2,n1,kmul(im1,ltet2)),kmul(rm3,kmsub(n1,rm2,kmul(ltet2,rm1)))),kmadd(Ro231,kmadd(im2,kmsub(im3,n1,kmul(im1,ltet3)),kmul(rm2,kmsub(n1,rm3,kmul(ltet3,rm1)))),kmadd(Ro312,kmadd(im3,kmsub(im1,n2,kmul(im2,ltet1)),kmul(rm3,kmsub(n2,rm1,kmul(ltet1,rm2)))),kmadd(Ro132,kmadd(im1,kmsub(im3,n2,kmul(im2,ltet3)),kmul(rm1,kmsub(n2,rm3,kmul(ltet3,rm2)))),kmadd(Ro213,kmadd(im2,kmsub(im1,n3,kmul(im3,ltet1)),kmul(rm2,kmsub(n3,rm1,kmul(ltet1,rm3)))),kmul(Ro123,kmadd(im1,kmsub(im2,n3,kmul(im3,ltet2)),kmul(rm1,kmsub(n3,rm2,kmul(ltet2,rm3))))))))))))))),kmul(kmul(nn,nn),kmadd(kmadd(im1,im3,kmul(rm1,rm3)),Rojo31,kmadd(Rojo11,kmadd(im1,im1,kmul(rm1,rm1)),kmadd(Rojo22,kmadd(im2,im2,kmul(rm2,rm2)),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kadd(Rojo32,Rojo23),kmul(Rojo33,kmadd(im3,im3,kmul(rm3,rm3))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(ltet1,kmul(n3,kmul(R4p1223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(nn,kmul(kmadd(im1,im2,kmul(rm1,rm2)),kmul(Ro211,ksub(n1,ltet1))),kmadd(nn,kmul(kmadd(im1,im3,kmul(rm1,rm3)),kmul(Ro311,ksub(n1,ltet1))),kmadd(nn,kmul(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro322,ksub(n2,ltet2))),kmadd(nn,kmul(Ro222,kmul(kmadd(im2,im2,kmul(rm2,rm2)),ksub(n2,ltet2))),kmadd(nn,kmul(kmadd(im1,im3,kmul(rm1,rm3)),kmul(Ro133,ksub(n3,ltet3))),kmadd(nn,kmul(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro233,ksub(n3,ltet3))),kmadd(nn,kmul(Ro112,kmsub(n2,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro221,kmsub(n1,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro113,kmsub(n3,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro331,kmsub(n1,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro223,kmsub(n3,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(nn,kmul(Ro332,kmsub(n2,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmsub(ltet3,kmul(n3,kmul(R4p1323,ToReal(-2.))),kmul(Rojo12,kmul(nn,nn))),kmadd(kmadd(im1,im3,kmul(rm1,rm3)),kmsub(ltet2,kmul(n1,R4p1213),kmul(Rojo13,kmul(nn,nn))),kmadd(kmadd(im2,im2,kmul(rm2,rm2)),kmsub(ltet3,kmul(n1,R4p1223),kmul(Rojo22,kmul(nn,nn))),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmsub(ltet1,kmul(n1,kmul(R4p1213,ToReal(-2.))),kmul(Rojo23,kmul(nn,nn))),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmsub(ltet3,kmul(n1,R4p1323),kmul(Rojo32,kmul(nn,nn))),kmadd(nn,kmul(Ro121,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet2,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro131,kmsub(n1,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet3,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(ltet3,kmul(R4p1313,kmsub(n1,kmadd(im1,im3,kmul(rm1,rm3)),kmul(n3,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(n3,kmsub(ltet1,kmul(R4p1313,kmadd(im1,im3,kmul(rm1,rm3))),kmul(ltet2,kmul(R4p1213,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro212,kmsub(n2,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet1,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro232,kmsub(n2,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet3,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(ltet1,kmsub(n3,kmul(R4p1323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p1212,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(ltet3,kmsub(n2,kmul(R4p1323,kmadd(im1,im3,kmul(rm1,rm3))),kmul(n3,kmul(R4p2323,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro313,kmsub(n3,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet1,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(nn,kmul(Ro323,kmsub(n3,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet2,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(ltet2,kmul(R4p1323,kmsub(n3,kmadd(im1,im3,kmul(rm1,rm3)),kmul(n1,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(ltet2,kmul(R4p2323,kmsub(n3,kmadd(im2,im3,kmul(rm2,rm3)),kmul(n2,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(n2,kmsub(ltet3,kmul(R4p2323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(ltet1,kmul(R4p1323,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(kmadd(im1,im1,kmul(rm1,rm1)),kmsub(nn,kmul(Ro111,ksub(n1,ltet1)),kmul(Rojo11,kmul(nn,nn))),kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmsub(nn,kmul(Ro122,ksub(n2,ltet2)),kmul(Rojo21,kmul(nn,nn))),kmadd(kmadd(im3,im3,kmul(rm3,rm3)),kmsub(nn,kmul(Ro333,ksub(n3,ltet3)),kmul(Rojo33,kmul(nn,nn))),knmsub(R4p1223,kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmadd(ltet2,n3,kmul(ltet3,n2)),kmul(ltet2,kmul(n1,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(nn,kmul(Ro321,kmadd(im3,kmsub(im2,n1,kmul(im1,ltet2)),kmul(rm3,kmsub(n1,rm2,kmul(ltet2,rm1))))),kmadd(nn,kmul(Ro231,kmadd(im2,kmsub(im3,n1,kmul(im1,ltet3)),kmul(rm2,kmsub(n1,rm3,kmul(ltet3,rm1))))),kmadd(nn,kmul(Ro312,kmadd(im3,kmsub(im1,n2,kmul(im2,ltet1)),kmul(rm3,kmsub(n2,rm1,kmul(ltet1,rm2))))),kmadd(nn,kmul(Ro132,kmadd(im1,kmsub(im3,n2,kmul(im2,ltet3)),kmul(rm1,kmsub(n2,rm3,kmul(ltet3,rm2))))),kmadd(nn,kmul(Ro213,kmadd(im2,kmsub(im1,n3,kmul(im3,ltet1)),kmul(rm2,kmsub(n3,rm1,kmul(ltet1,rm3))))),kmadd(nn,kmul(Ro123,kmadd(im1,kmsub(im2,n3,kmul(im3,ltet2)),kmul(rm1,kmsub(n3,rm2,kmul(ltet2,rm3))))),kmadd(ltet1,kmsub(n2,kmsub(R4p1213,kmadd(im1,im3,kmul(rm1,rm3)),kmul(R4p1223,kmadd(im2,im3,kmul(rm2,rm3)))),kmul(n1,kmul(R4p1313,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(R4p1212,kmadd(ltet1,kmul(n2,kmadd(im1,im2,kmul(rm1,rm2))),kmul(ltet2,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(n2,kmadd(im1,im1,kmul(rm1,rm1)))))),kmadd(R4p1213,kmadd(ltet1,kmul(n3,kmadd(im1,im2,kmul(rm1,rm2))),kmul(ltet3,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(n2,kmadd(im1,im1,kmul(rm1,rm1)))))),kmul(kmadd(im1,im3,kmul(rm1,rm3)),kmsub(ltet2,kmul(n2,kmul(R4p1223,ToReal(2.))),kmul(Rojo31,kmul(nn,nn))))))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi2iL = 
-      kmadd(im3,kmadd(n2,kmul(nn,kmul(rm1,Ro312)),kmadd(n3,kmul(nn,kmul(rm1,Ro313)),kmadd(n2,kmul(nn,kmul(rm2,Ro322)),kmadd(n3,kmul(nn,kmul(rm2,Ro323)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro331)),kmadd(ltet3,kmul(nn,kmul(rm2,Ro332)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(ltet3,kmsub(n3,kmul(R4p3313,rm1),kmul(n2,kmul(R4p3232,rm2))),kmadd(ltet3,kmul(rm1,kmsub(n1,R4p3311,kmadd(nn,Ro133,kmul(n3,R4p3133)))),kmadd(rm1,kmsub(n1,kmul(nn,Ro311),kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmsub(n1,kmul(nn,Ro321),kmul(Rojo32,kmul(nn,nn))),knmsub(ltet3,kmadd(rm1,kmadd(n2,R4p3132,kmul(n1,R4p3131)),kmul(n3,kmul(R4p3233,rm2))),kmadd(n1,kmsub(rm2,kmsub(ltet3,R4p3321,kmul(nn,Ro231)),kmul(nn,kmul(rm1,Ro131))),kmadd(n2,kmsub(rm2,kmsub(ltet3,R4p3322,kmul(nn,Ro232)),kmul(nn,kmul(rm1,Ro132))),kmadd(n3,kmsub(rm2,kmsub(ltet3,R4p3323,kmul(nn,Ro233)),kmul(nn,kmul(rm1,Ro133))),kmadd(ltet3,kmsub(n2,kmul(R4p3312,rm1),kmul(rm2,kmadd(nn,Ro233,kmul(n1,R4p3231)))),kmadd(ltet1,kmadd(nn,kmul(rm2,Ro312),kmadd(nn,kmul(rm1,ksub(Ro311,Ro113)),kmadd(rm2,kmsub(n3,R4p1323,kmul(nn,Ro213)),kmadd(n3,kmsub(rm1,ksub(R4p1313,R4p1133),kmul(R4p1233,rm2)),kmadd(n1,kmadd(rm1,ksub(R4p1311,R4p1131),kmul(rm2,ksub(R4p1321,R4p1231))),kmul(n2,kmadd(rm1,ksub(R4p1312,R4p1132),kmul(rm2,ksub(R4p1322,R4p1232))))))))),kmul(ltet2,kmadd(nn,kmul(rm2,Ro322),kmadd(nn,kmul(rm1,ksub(Ro321,Ro123)),kmadd(rm2,kmsub(n3,R4p2323,kmul(nn,Ro223)),kmadd(n3,kmsub(rm1,ksub(R4p2313,R4p2133),kmul(R4p2233,rm2)),kmadd(n1,kmadd(rm1,ksub(R4p2311,R4p2131),kmul(rm2,ksub(R4p2321,R4p2231))),kmul(n2,kmadd(rm1,ksub(R4p2312,R4p2132),kmul(rm2,ksub(R4p2322,R4p2232)))))))))))))))))))))))))))),kmadd(im1,kmadd(n2,kmul(nn,kmul(rm3,Ro132)),kmadd(ltet3,kmul(nn,kmul(rm3,Ro133)),kmadd(n3,kmul(nn,kmul(rm3,Ro133)),kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),kmadd(n1,kmsub(ltet3,kmul(R4p3131,rm3),kmul(nn,kmul(rm2,Ro211))),kmadd(n2,kmsub(ltet3,kmul(R4p3132,rm3),kmul(nn,kmul(rm2,Ro212))),kmadd(n3,kmsub(ltet3,kmul(R4p3133,rm3),kmul(nn,kmul(rm2,Ro213))),kmadd(n1,kmul(nn,kmsub(rm2,Ro121,kmul(rm3,Ro311))),kmadd(n2,kmul(nn,kmsub(rm2,Ro122,kmul(rm3,Ro312))),kmadd(n3,kmul(nn,kmsub(rm2,Ro123,kmul(rm3,Ro313))),kmadd(rm2,kmsub(ltet3,kmul(nn,Ro132),kmul(Rojo12,kmul(nn,nn))),kmadd(rm3,kmsub(n1,kmul(nn,Ro131),kmul(Rojo13,kmul(nn,nn))),knmsub(ltet3,kmadd(rm2,kmadd(n3,R4p3213,kmul(n2,R4p3212)),kmul(n3,kmul(R4p3313,rm3))),kmadd(ltet3,kmadd(n1,kmsub(R4p3121,rm2,kmul(R4p3311,rm3)),kmul(rm2,kmsub(n2,R4p3122,kmul(nn,Ro231)))),kmadd(ltet3,kmsub(rm2,kmsub(n3,R4p3123,kmul(n1,R4p3211)),kmul(rm3,kmadd(nn,Ro331,kmul(n2,R4p3312)))),kmadd(ltet1,kmadd(nn,kmul(rm3,Ro113),kmadd(nn,kmul(rm2,ksub(Ro112,Ro211)),kmadd(rm3,kmsub(n3,R4p1133,kmul(nn,Ro311)),kmadd(n3,kmsub(rm2,ksub(R4p1123,R4p1213),kmul(R4p1313,rm3)),kmadd(n1,kmadd(rm2,ksub(R4p1121,R4p1211),kmul(rm3,ksub(R4p1131,R4p1311))),kmul(n2,kmadd(rm2,ksub(R4p1122,R4p1212),kmul(rm3,ksub(R4p1132,R4p1312))))))))),kmul(ltet2,kmadd(nn,kmul(rm3,Ro123),kmadd(nn,kmul(rm2,ksub(Ro122,Ro221)),kmadd(rm3,kmsub(n3,R4p2133,kmul(nn,Ro321)),kmadd(n3,kmsub(rm2,ksub(R4p2123,R4p2213),kmul(R4p2313,rm3)),kmadd(n1,kmadd(rm2,ksub(R4p2121,R4p2211),kmul(rm3,ksub(R4p2131,R4p2311))),kmul(n2,kmadd(rm2,ksub(R4p2122,R4p2212),kmul(rm3,ksub(R4p2132,R4p2312))))))))))))))))))))))))))),kmul(im2,kmadd(n2,kmul(nn,kmul(rm1,Ro212)),kmadd(n3,kmul(nn,kmul(rm1,Ro213)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro231)),kmadd(n2,kmul(nn,kmul(rm3,Ro232)),kmadd(ltet3,kmul(nn,kmul(rm3,Ro233)),kmadd(n3,kmul(nn,kmul(rm3,Ro233)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet3,kmsub(n3,kmul(R4p3213,rm1),kmul(n2,kmul(R4p3322,rm3))),kmadd(ltet3,kmul(rm1,kmsub(n1,R4p3211,kmadd(nn,Ro132,kmul(n3,R4p3123)))),kmadd(rm1,kmsub(n1,kmul(nn,Ro211),kmul(Rojo21,kmul(nn,nn))),kmadd(rm3,kmsub(n1,kmul(nn,Ro231),kmul(Rojo23,kmul(nn,nn))),knmsub(ltet3,kmadd(rm1,kmadd(n2,R4p3122,kmul(n1,R4p3121)),kmul(n3,kmul(R4p3323,rm3))),kmadd(n1,kmsub(rm3,kmsub(ltet3,R4p3231,kmul(nn,Ro321)),kmul(nn,kmul(rm1,Ro121))),kmadd(n2,kmsub(rm3,kmsub(ltet3,R4p3232,kmul(nn,Ro322)),kmul(nn,kmul(rm1,Ro122))),kmadd(n3,kmsub(rm3,kmsub(ltet3,R4p3233,kmul(nn,Ro323)),kmul(nn,kmul(rm1,Ro123))),kmadd(ltet3,kmsub(n2,kmul(R4p3212,rm1),kmul(rm3,kmadd(nn,Ro332,kmul(n1,R4p3321)))),kmadd(ltet1,kmadd(nn,kmul(rm3,Ro213),kmadd(nn,kmul(rm1,ksub(Ro211,Ro112)),kmadd(rm3,kmsub(n3,R4p1233,kmul(nn,Ro312)),kmadd(n3,kmsub(rm1,ksub(R4p1213,R4p1123),kmul(R4p1323,rm3)),kmadd(n1,kmadd(rm1,ksub(R4p1211,R4p1121),kmul(rm3,ksub(R4p1231,R4p1321))),kmul(n2,kmadd(rm1,ksub(R4p1212,R4p1122),kmul(rm3,ksub(R4p1232,R4p1322))))))))),kmul(ltet2,kmadd(nn,kmul(rm3,Ro223),kmadd(nn,kmul(rm1,ksub(Ro221,Ro122)),kmadd(rm3,kmsub(n3,R4p2233,kmul(nn,Ro322)),kmadd(n3,kmsub(rm1,ksub(R4p2213,R4p2123),kmul(R4p2323,rm3)),kmadd(n1,kmadd(rm1,ksub(R4p2211,R4p2121),kmul(rm3,ksub(R4p2231,R4p2321))),kmul(n2,kmadd(rm1,ksub(R4p2212,R4p2122),kmul(rm3,ksub(R4p2232,R4p2322)))))))))))))))))))))))))))))));
+      kmadd(im3,kmadd(n2,kmul(nn,kmul(rm1,Ro312)),kmadd(n3,kmul(nn,kmul(rm1,Ro313)),kmadd(n2,kmul(nn,kmul(rm2,Ro322)),kmadd(n3,kmul(nn,kmul(rm2,Ro323)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro331)),kmadd(ltet3,kmul(nn,kmul(rm2,Ro332)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(rm1,kmsub(n1,kmul(nn,Ro311),kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmsub(n1,kmul(nn,Ro321),kmul(Rojo32,kmul(nn,nn))),kmadd(ltet1,kmadd(n3,kmul(R4p1313,rm1),kmadd(n3,kmul(R4p1323,rm2),kmadd(nn,kmul(rm1,Ro311),kmadd(nn,kmul(rm2,Ro312),kmadd(rm1,kmsub(n2,R4p1213,kmul(nn,Ro113)),kmul(rm2,kmsub(n2,R4p1223,kmul(nn,Ro213)))))))),kmsub(ltet2,kmadd(nn,kmul(rm1,Ro321),kmadd(nn,kmul(rm2,Ro322),knmsub(n1,kmadd(R4p1213,rm1,kmul(R4p1223,rm2)),kmadd(rm1,kmsub(n3,R4p1323,kmul(nn,Ro123)),kmul(rm2,kmsub(n3,R4p2323,kmul(nn,Ro223))))))),kmadd(ltet3,kmadd(rm2,kmadd(n1,R4p1323,kmadd(nn,Ro233,kmul(n2,R4p2323))),kmul(rm1,kmadd(n1,R4p1313,kmadd(nn,Ro133,kmul(n2,R4p1323))))),kmul(nn,kmadd(rm2,kmadd(n1,Ro231,kmadd(n3,Ro233,kmul(n2,Ro232))),kmul(rm1,kmadd(n1,Ro131,kmadd(n3,Ro133,kmul(n2,Ro132))))))))))))))))))),kmadd(im2,kmadd(n3,kmul(nn,kmul(rm1,Ro213)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro231)),kmadd(n2,kmul(nn,kmul(rm3,Ro232)),kmadd(ltet3,kmul(nn,kmul(rm3,Ro233)),kmadd(n3,kmul(nn,kmul(rm3,Ro233)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(rm1,kmsub(n2,kmul(nn,Ro212),kmul(Rojo21,kmul(nn,nn))),kmadd(rm3,kmsub(n1,kmul(nn,Ro231),kmul(Rojo23,kmul(nn,nn))),kmadd(nn,kmsub(rm1,kmsub(n1,Ro211,kmul(n3,Ro123)),kmul(n3,kmul(rm3,Ro323))),knmsub(ltet3,kmadd(rm1,kmadd(n1,R4p1213,kmadd(nn,Ro132,kmul(n2,R4p1223))),kmul(nn,kmul(rm3,Ro332))),kmadd(n1,kmsub(rm3,kmsub(ltet3,R4p1323,kmul(nn,Ro321)),kmul(nn,kmul(rm1,Ro121))),kmadd(n2,kmsub(rm3,kmsub(ltet3,R4p2323,kmul(nn,Ro322)),kmul(nn,kmul(rm1,Ro122))),kmadd(ltet2,kmadd(nn,kmul(rm1,Ro221),kmadd(nn,kmul(rm3,Ro223),kmadd(rm1,kmsub(n3,R4p1223,kmadd(nn,Ro122,kmul(n1,R4p1212))),kmul(rm3,kmsub(n1,R4p1223,kmadd(nn,Ro322,kmul(n3,R4p2323))))))),kmul(ltet1,kmadd(nn,kmul(rm3,Ro213),kmadd(n2,kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),kmadd(n3,kmsub(R4p1213,rm1,kmul(R4p1323,rm3)),kmul(nn,kmsub(rm1,ksub(Ro211,Ro112),kmul(rm3,Ro312))))))))))))))))))))),kmul(im1,kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),knmsub(kmul(nn,nn),kmadd(rm3,Rojo13,kmul(rm2,Rojo12)),knmsub(ltet1,kmadd(n3,kmul(R4p1213,rm2),kmadd(n3,kmul(R4p1313,rm3),kmadd(nn,kmul(rm2,Ro211),kmadd(nn,kmul(rm3,Ro311),kmadd(rm2,kmsub(n2,R4p1212,kmul(nn,Ro112)),kmul(rm3,kmsub(n2,R4p1213,kmul(nn,Ro113)))))))),kmadd(nn,kmadd(n1,kmul(rm2,ksub(Ro121,Ro211)),kmadd(n2,kmul(rm2,ksub(Ro122,Ro212)),kmadd(n3,kmul(rm2,ksub(Ro123,Ro213)),kmadd(n1,kmul(rm3,ksub(Ro131,Ro311)),kmadd(n2,kmul(rm3,ksub(Ro132,Ro312)),kmul(n3,kmul(rm3,ksub(Ro133,Ro313)))))))),kmadd(ltet3,kmadd(n2,kmul(R4p1223,rm2),kmadd(n2,kmul(R4p1323,rm3),kmadd(nn,kmul(rm2,Ro132),kmadd(nn,kmul(rm3,Ro133),kmadd(rm2,kmsub(n1,R4p1213,kmul(nn,Ro231)),kmul(rm3,kmsub(n1,R4p1313,kmul(nn,Ro331)))))))),kmul(ltet2,kmadd(n1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmsub(nn,kmadd(rm2,ksub(Ro122,Ro221),kmul(rm3,ksub(Ro123,Ro321))),kmul(n3,kmadd(R4p1223,rm2,kmul(R4p1323,rm3)))))))))))))));
     
     CCTK_REAL_VEC Psi1rL = 
-      kmadd(kmadd(n1,kmadd(R4p1111,rm1,kmadd(R4p1121,rm2,kmul(R4p1131,rm3))),kmadd(n2,kmadd(R4p2111,rm1,kmadd(R4p2121,rm2,kmul(R4p2131,rm3))),kmadd(n3,kmadd(R4p3111,rm1,kmadd(R4p3121,rm2,kmul(R4p3131,rm3))),kmul(nn,kmadd(rm1,Ro111,kmadd(rm2,Ro121,kmul(rm3,Ro131))))))),kmul(ltet1,ltet1),kmadd(kmadd(n1,kmadd(R4p1212,rm1,kmadd(R4p1222,rm2,kmul(R4p1232,rm3))),kmadd(n2,kmadd(R4p2212,rm1,kmadd(R4p2222,rm2,kmul(R4p2232,rm3))),kmadd(n3,kmadd(R4p3212,rm1,kmadd(R4p3222,rm2,kmul(R4p3232,rm3))),kmul(nn,kmadd(rm1,Ro212,kmadd(rm2,Ro222,kmul(rm3,Ro232))))))),kmul(ltet2,ltet2),kmadd(kmadd(n1,kmadd(R4p1323,rm2,kmul(R4p1333,rm3)),kmadd(rm1,kmadd(n3,R4p3313,kmul(nn,Ro313)),kmul(nn,kmadd(rm2,Ro323,kmul(rm3,Ro333))))),kmul(ltet3,ltet3),kmadd(rm1,kmadd(kmadd(n1,R4p1313,kmul(n2,R4p2313)),kmul(ltet3,ltet3),kmul(n1,kmul(Rojo11,kmul(nn,nn)))),kmadd(rm2,kmadd(kmadd(n2,R4p2323,kmul(n3,R4p3323)),kmul(ltet3,ltet3),kmul(n1,kmul(Rojo12,kmul(nn,nn)))),kmadd(rm3,kmadd(kmadd(n2,R4p2333,kmul(n3,R4p3333)),kmul(ltet3,ltet3),kmul(n1,kmul(Rojo13,kmul(nn,nn)))),kmadd(kmul(nn,nn),kmadd(n2,kmadd(rm1,Rojo21,kmul(rm2,Rojo22)),kmadd(n3,kmadd(rm1,Rojo31,kmadd(rm2,Rojo32,kmul(rm3,Rojo33))),kmsub(rm3,kmsub(n2,Rojo23,kmul(ltet3,Rojo33)),kmul(ltet3,kmul(rm2,Rojo32))))),kmadd(ltet3,kmsub(nn,kmadd(n3,kmul(rm3,kmul(Ro333,ToReal(-2.))),knmsub(n2,kmul(rm3,kadd(Ro323,Ro233)),kmadd(rm1,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmsub(rm2,kmsub(n2,kmul(Ro223,ToReal(-2.)),kmul(n3,kadd(Ro323,Ro233))),kmul(n1,kmadd(rm3,kadd(Ro313,Ro133),kmul(rm2,kadd(Ro213,Ro123)))))))),kmul(rm1,kmul(Rojo31,kmul(nn,nn)))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kmadd(kadd(R4p1112,R4p1211),rm1,kmadd(kadd(R4p1122,R4p1221),rm2,kmul(kadd(R4p1132,R4p1231),rm3))),kmadd(n2,kmadd(kadd(R4p2112,R4p2211),rm1,kmadd(kadd(R4p2122,R4p2221),rm2,kmul(kadd(R4p2132,R4p2231),rm3))),kmadd(n3,kmadd(kadd(R4p3112,R4p3211),rm1,kmadd(kadd(R4p3122,R4p3221),rm2,kmul(kadd(R4p3132,R4p3231),rm3))),kmul(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm2,kadd(Ro122,Ro221),kmul(rm3,kadd(Ro132,Ro231)))))))),kmsub(ltet3,kmadd(n1,kmadd(kadd(R4p1113,R4p1311),rm1,kmadd(kadd(R4p1123,R4p1321),rm2,kmul(kadd(R4p1133,R4p1331),rm3))),kmadd(n2,kmadd(kadd(R4p2113,R4p2311),rm1,kmadd(kadd(R4p2123,R4p2321),rm2,kmul(kadd(R4p2133,R4p2331),rm3))),kmadd(n3,kmadd(kadd(R4p3113,R4p3311),rm1,kmadd(kadd(R4p3123,R4p3321),rm2,kmul(kadd(R4p3133,R4p3331),rm3))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro123,Ro321),kmul(rm3,kadd(Ro133,Ro331)))))))),kmul(nn,kmadd(nn,kmadd(rm1,Rojo11,kmadd(rm2,Rojo12,kmul(rm3,Rojo13))),kmadd(n1,kmadd(rm2,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro131,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))),kmadd(n2,kmadd(rm1,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro231,Ro321),kmul(rm2,kmul(Ro221,ToReal(2.))))),kmul(n3,kmadd(rm1,kadd(Ro131,Ro311),kmadd(rm2,kadd(Ro231,Ro321),kmul(rm3,kmul(Ro331,ToReal(2.)))))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kmadd(kadd(R4p1213,R4p1312),rm1,kmadd(kadd(R4p1223,R4p1322),rm2,kmul(kadd(R4p1233,R4p1332),rm3))),kmadd(n2,kmadd(kadd(R4p2213,R4p2312),rm1,kmadd(kadd(R4p2223,R4p2322),rm2,kmul(kadd(R4p2233,R4p2332),rm3))),kmadd(n3,kmadd(kadd(R4p3213,R4p3312),rm1,kmadd(kadd(R4p3223,R4p3322),rm2,kmul(kadd(R4p3233,R4p3332),rm3))),kmul(nn,kmadd(rm1,kadd(Ro213,Ro312),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kadd(Ro233,Ro332)))))))),kmul(nn,kmadd(nn,kmadd(rm1,Rojo21,kmadd(rm2,Rojo22,kmul(rm3,Rojo23))),kmadd(n1,kmadd(rm2,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro132,Ro312),kmul(rm1,kmul(Ro112,ToReal(2.))))),kmadd(n2,kmadd(rm1,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro232,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.))))),kmul(n3,kmadd(rm1,kadd(Ro132,Ro312),kmadd(rm2,kadd(Ro232,Ro322),kmul(rm3,kmul(Ro332,ToReal(2.)))))))))))))))))))));
+      kmadd(kmadd(n2,kmul(R4p1212,rm2),kmadd(n3,kmul(R4p1213,rm2),kmadd(n2,kmul(R4p1213,rm3),kmadd(n3,kmul(R4p1313,rm3),kmadd(nn,kmul(rm1,Ro111),kmadd(nn,kmul(rm2,Ro121),kmul(nn,kmul(rm3,Ro131)))))))),kmul(ltet1,ltet1),kmadd(n1,kmul(R4p1313,kmul(rm1,kmul(ltet3,ltet3))),kmadd(n2,kmul(R4p1323,kmul(rm1,kmul(ltet3,ltet3))),kmadd(n2,kmul(R4p2323,kmul(rm2,kmul(ltet3,ltet3))),kmadd(nn,kmul(rm1,kmul(Ro313,kmul(ltet3,ltet3))),kmadd(nn,kmul(rm2,kmul(Ro323,kmul(ltet3,ltet3))),kmadd(n1,kmul(rm1,kmul(Rojo11,kmul(nn,nn))),kmadd(n1,kmul(rm2,kmul(Rojo12,kmul(nn,nn))),kmadd(n1,kmul(rm3,kmul(Rojo13,kmul(nn,nn))),kmadd(n2,kmul(rm1,kmul(Rojo21,kmul(nn,nn))),kmadd(n2,kmul(rm2,kmul(Rojo22,kmul(nn,nn))),kmadd(n2,kmul(rm3,kmul(Rojo23,kmul(nn,nn))),kmadd(n3,kmul(rm1,kmul(Rojo31,kmul(nn,nn))),kmadd(n3,kmul(rm2,kmul(Rojo32,kmul(nn,nn))),kmadd(n3,kmul(rm3,kmul(Rojo33,kmul(nn,nn))),kmadd(rm2,kmsub(n1,kmul(R4p1323,kmul(ltet3,ltet3)),kmul(ltet3,kmul(Rojo32,kmul(nn,nn)))),kmadd(rm3,kmsub(nn,kmul(Ro333,kmul(ltet3,ltet3)),kmul(ltet3,kmul(Rojo33,kmul(nn,nn)))),kmadd(kmul(ltet2,ltet2),kmadd(nn,kmul(rm1,Ro212),kmadd(nn,kmul(rm2,Ro222),kmadd(nn,kmul(rm3,Ro232),kmadd(rm3,kmsub(n3,R4p2323,kmul(n1,R4p1223)),kmul(rm1,kmsub(n1,R4p1212,kmul(n3,R4p1223))))))),kmsub(ltet3,kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro333,ToReal(-2.)))),knmsub(rm1,kmul(Rojo31,kmul(nn,nn)),kmadd(n2,kmul(nn,kmsub(rm2,kmul(Ro223,ToReal(-2.)),kmul(rm3,kadd(Ro323,Ro233)))),kmul(nn,knmsub(n3,kmul(rm2,kadd(Ro323,Ro233)),kmsub(rm1,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmul(n1,kmadd(rm3,kadd(Ro313,Ro133),kmul(rm2,kadd(Ro213,Ro123)))))))))),kmadd(ltet2,kmadd(ltet1,kmadd(n3,kmsub(R4p1213,rm1,kmul(R4p1223,rm2)),kmadd(n2,kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),kmadd(rm3,kmsub(n1,R4p1213,kmul(nn,Ro132)),knmsub(nn,kmul(rm1,kadd(Ro211,Ro112)),kmadd(rm3,kmsub(n3,kmul(R4p1323,ToReal(-2.)),kmul(nn,Ro231)),kmul(rm2,kmsub(n1,R4p1212,kmul(nn,kadd(Ro221,Ro122))))))))),kmsub(nn,kmadd(n3,kmul(rm1,Ro132),kmadd(n3,kmul(rm2,Ro232),kmadd(n3,kmul(rm1,Ro312),kmadd(n3,kmul(rm2,Ro322),kmadd(nn,kmul(rm1,Rojo21),kmadd(nn,kmul(rm2,Rojo22),kmadd(nn,kmul(rm3,Rojo23),kmadd(n3,kmul(rm3,kmul(Ro332,ToReal(2.))),kmadd(n1,kmadd(rm2,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro132,Ro312),kmul(rm1,kmul(Ro112,ToReal(2.))))),kmul(n2,kmadd(rm1,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro232,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.))))))))))))))),kmul(ltet3,kmadd(nn,kmul(rm1,Ro213),kmadd(nn,kmul(rm2,Ro223),kmadd(nn,kmul(rm3,Ro233),kmadd(nn,kmul(rm1,Ro312),kmadd(nn,kmul(rm2,Ro322),kmadd(nn,kmul(rm3,Ro332),kmadd(rm1,kmsub(n2,R4p1223,kmul(n3,R4p1323)),kmsub(n1,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(R4p2323,kmadd(n2,rm3,kmul(n3,rm2)))))))))))))),kmul(ltet1,kmadd(ltet3,kmadd(rm2,kmsub(n1,R4p1213,kmul(nn,Ro123)),kmadd(rm2,kmsub(n3,R4p1323,kmul(nn,Ro321)),kmadd(rm1,kmsub(n3,R4p1313,kmul(nn,kadd(Ro311,Ro113))),kmadd(rm3,kmsub(n1,R4p1313,kmul(nn,kadd(Ro331,Ro133))),kmul(n2,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.)))))))))),kmul(nn,kmadd(n3,kmul(rm1,Ro131),kmadd(n3,kmul(rm2,Ro231),kmadd(n3,kmul(rm1,Ro311),kmadd(n3,kmul(rm2,Ro321),kmadd(nn,kmul(rm1,Rojo11),kmadd(nn,kmul(rm2,Rojo12),kmadd(nn,kmul(rm3,Rojo13),kmadd(n3,kmul(rm3,kmul(Ro331,ToReal(2.))),kmadd(n1,kmadd(rm2,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro131,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))),kmul(n2,kmadd(rm1,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro231,Ro321),kmul(rm2,kmul(Ro221,ToReal(2.))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi1iL = 
-      kmadd(im1,kmadd(kmadd(n1,R4p1111,kmadd(n2,R4p2111,kmadd(n3,R4p3111,kmul(nn,Ro111)))),kmul(ltet1,ltet1),kmadd(kmadd(n1,R4p1212,kmadd(n2,R4p2212,kmadd(n3,R4p3212,kmul(nn,Ro212)))),kmul(ltet2,ltet2),kmadd(kmadd(n1,R4p1313,kmadd(n2,R4p2313,kmadd(n3,R4p3313,kmul(nn,Ro313)))),kmul(ltet3,ltet3),kmadd(kmadd(n1,Rojo11,kmadd(n2,Rojo21,kmul(n3,Rojo31))),kmul(nn,nn),kmadd(ltet3,kmsub(nn,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmul(Rojo31,kmul(nn,nn))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kadd(R4p1112,R4p1211),kmadd(n2,kadd(R4p2112,R4p2211),kmadd(n3,kadd(R4p3112,R4p3211),kmul(nn,kadd(Ro112,Ro211))))),kmsub(ltet3,kmadd(n1,kadd(R4p1113,R4p1311),kmadd(n2,kadd(R4p2113,R4p2311),kmadd(n3,kadd(R4p3113,R4p3311),kmul(nn,kadd(Ro113,Ro311))))),kmul(nn,kmadd(n2,kadd(Ro121,Ro211),kmadd(n3,kadd(Ro131,Ro311),kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kadd(R4p1213,R4p1312),kmadd(n2,kadd(R4p2213,R4p2312),kmadd(n3,kadd(R4p3213,R4p3312),kmul(nn,kadd(Ro213,Ro312))))),kmul(nn,kmadd(n2,kadd(Ro122,Ro212),kmadd(n3,kadd(Ro132,Ro312),kmadd(nn,Rojo21,kmul(n1,kmul(Ro112,ToReal(2.))))))))))))))),kmadd(im2,kmadd(kmadd(n1,R4p1121,kmadd(n2,R4p2121,kmadd(n3,R4p3121,kmul(nn,Ro121)))),kmul(ltet1,ltet1),kmadd(kmadd(n1,R4p1222,kmadd(n2,R4p2222,kmadd(n3,R4p3222,kmul(nn,Ro222)))),kmul(ltet2,ltet2),kmadd(n1,kmul(R4p1323,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p2323,kmul(ltet3,ltet3)),kmadd(n3,kmul(R4p3323,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro323,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo12,kmul(nn,nn)),kmadd(n2,kmul(Rojo22,kmul(nn,nn)),kmadd(n3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet3,kmul(nn,kmsub(n2,kmul(Ro223,ToReal(-2.)),kmul(n3,Ro323))),knmsub(ltet3,kmadd(nn,kmadd(n1,kadd(Ro213,Ro123),kmul(n3,Ro233)),kmul(Rojo32,kmul(nn,nn))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kadd(R4p1122,R4p1221),kmadd(n2,kadd(R4p2122,R4p2221),kmadd(n3,R4p3122,kmadd(n3,R4p3221,kmadd(nn,Ro122,kmul(nn,Ro221)))))),kmsub(ltet3,kmadd(n1,kadd(R4p1123,R4p1321),kmadd(n2,kadd(R4p2123,R4p2321),kmadd(n3,R4p3123,kmadd(n3,R4p3321,kmadd(nn,Ro123,kmul(nn,Ro321)))))),kmul(nn,kmadd(n1,kadd(Ro121,Ro211),kmadd(n3,Ro231,kmadd(n3,Ro321,kmadd(nn,Rojo12,kmul(n2,kmul(Ro221,ToReal(2.)))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kadd(R4p1223,R4p1322),kmadd(n2,kadd(R4p2223,R4p2322),kmadd(n3,R4p3223,kmadd(n3,R4p3322,kmadd(nn,Ro223,kmul(nn,Ro322)))))),kmul(nn,kmadd(n1,kadd(Ro122,Ro212),kmadd(n3,Ro232,kmadd(n3,Ro322,kmadd(nn,Rojo22,kmul(n2,kmul(Ro222,ToReal(2.)))))))))))))))))))))),kmul(im3,kmadd(kmadd(n1,R4p1131,kmadd(n2,R4p2131,kmadd(n3,R4p3131,kmul(nn,Ro131)))),kmul(ltet1,ltet1),kmadd(kmadd(n1,R4p1232,kmadd(n2,R4p2232,kmadd(n3,R4p3232,kmul(nn,Ro232)))),kmul(ltet2,ltet2),kmadd(n1,kmul(R4p1333,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p2333,kmul(ltet3,ltet3)),kmadd(n3,kmul(R4p3333,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro333,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo13,kmul(nn,nn)),kmadd(n2,kmul(Rojo23,kmul(nn,nn)),kmadd(n3,kmul(Rojo33,kmul(nn,nn)),kmadd(ltet3,kmul(n3,kmul(nn,kmul(Ro333,ToReal(-2.)))),knmsub(ltet3,kmadd(nn,kmadd(n2,kadd(Ro323,Ro233),kmul(n1,kadd(Ro313,Ro133))),kmul(Rojo33,kmul(nn,nn))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kadd(R4p1132,R4p1231),kmadd(n2,kadd(R4p2132,R4p2231),kmadd(n3,R4p3132,kmadd(n3,R4p3231,kmadd(nn,Ro132,kmul(nn,Ro231)))))),kmsub(ltet3,kmadd(n1,kadd(R4p1133,R4p1331),kmadd(n2,kadd(R4p2133,R4p2331),kmadd(n3,R4p3133,kmadd(n3,R4p3331,kmadd(nn,Ro133,kmul(nn,Ro331)))))),kmul(nn,kmadd(n1,kadd(Ro131,Ro311),kmadd(n2,kadd(Ro231,Ro321),kmadd(nn,Rojo13,kmul(n3,kmul(Ro331,ToReal(2.))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kadd(R4p1233,R4p1332),kmadd(n2,kadd(R4p2233,R4p2332),kmadd(n3,R4p3233,kmadd(n3,R4p3332,kmadd(nn,Ro233,kmul(nn,Ro332)))))),kmul(nn,kmadd(n1,kadd(Ro132,Ro312),kmadd(n2,kadd(Ro232,Ro322),kmadd(nn,Rojo23,kmul(n3,kmul(Ro332,ToReal(2.))))))))))))))))))))))));
+      kmadd(im1,kmadd(nn,kmul(Ro111,kmul(ltet1,ltet1)),kmadd(n1,kmul(R4p1313,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p1323,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro313,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo11,kmul(nn,nn)),kmadd(n2,kmul(Rojo21,kmul(nn,nn)),kmadd(n3,kmul(Rojo31,kmul(nn,nn)),kmadd(kmul(ltet2,ltet2),kmadd(n1,R4p1212,kmsub(nn,Ro212,kmul(n3,R4p1223))),kmsub(ltet3,kmsub(nn,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmul(Rojo31,kmul(nn,nn))),kmadd(ltet2,kmadd(ltet1,kmadd(n2,R4p1212,kmsub(n3,R4p1213,kmul(nn,kadd(Ro112,Ro211)))),kmsub(nn,kmadd(n3,Ro132,kmadd(n2,kadd(Ro122,Ro212),kmadd(n3,Ro312,kmadd(nn,Rojo21,kmul(n1,kmul(Ro112,ToReal(2.))))))),kmul(ltet3,kmadd(n2,R4p1223,kmadd(nn,Ro213,kmadd(nn,Ro312,kmsub(n1,kmul(R4p1213,ToReal(2.)),kmul(n3,R4p1323)))))))),kmul(ltet1,kmadd(ltet3,kmadd(n2,R4p1213,kmsub(n3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),kmul(nn,kmadd(n3,Ro131,kmadd(n2,kadd(Ro121,Ro211),kmadd(n3,Ro311,kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.)))))))))))))))))))),kmadd(im2,kmadd(kmadd(n2,R4p1212,kmadd(n3,R4p1213,kmul(nn,Ro121))),kmul(ltet1,ltet1),kmadd(nn,kmul(Ro222,kmul(ltet2,ltet2)),kmadd(n1,kmul(R4p1323,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p2323,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro323,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo12,kmul(nn,nn)),kmadd(n2,kmul(Rojo22,kmul(nn,nn)),kmadd(n3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet3,kmul(nn,kmsub(n2,kmul(Ro223,ToReal(-2.)),kmul(n3,Ro323))),knmsub(ltet3,kmadd(nn,kmadd(n1,kadd(Ro213,Ro123),kmul(n3,Ro233)),kmul(Rojo32,kmul(nn,nn))),kmsub(ltet2,kmsub(ltet3,kmadd(n1,R4p1223,kmsub(nn,kadd(Ro223,Ro322),kmul(n3,R4p2323))),kmul(nn,kmadd(n1,kadd(Ro122,Ro212),kmadd(n3,Ro232,kmadd(n3,Ro322,kmadd(nn,Rojo22,kmul(n2,kmul(Ro222,ToReal(2.))))))))),kmul(ltet1,kmadd(ltet2,kmsub(n1,R4p1212,kmadd(nn,kadd(Ro122,Ro221),kmul(n3,R4p1223))),kmadd(ltet3,kmadd(n1,R4p1213,kmadd(n3,R4p1323,kmsub(n2,kmul(R4p1223,ToReal(2.)),kmul(nn,kadd(Ro321,Ro123))))),kmul(nn,kmadd(n1,kadd(Ro121,Ro211),kmadd(n3,Ro231,kmadd(n3,Ro321,kmadd(nn,Rojo12,kmul(n2,kmul(Ro221,ToReal(2.)))))))))))))))))))))),kmul(im3,kmadd(kmadd(n2,R4p1213,kmadd(n3,R4p1313,kmul(nn,Ro131))),kmul(ltet1,ltet1),kmsub(kmul(ltet2,ltet2),kmadd(n3,R4p2323,kmsub(nn,Ro232,kmul(n1,R4p1223))),kmadd(ltet1,kmadd(ltet3,kmadd(n1,R4p1313,kmsub(n2,R4p1323,kmul(nn,kadd(Ro133,Ro331)))),kmadd(ltet2,kmadd(n1,R4p1213,kmsub(n3,kmul(R4p1323,ToReal(-2.)),kmadd(nn,kadd(Ro231,Ro132),kmul(n2,R4p1223)))),kmul(nn,kmadd(n1,kadd(Ro131,Ro311),kmadd(n2,kadd(Ro231,Ro321),kmadd(nn,Rojo13,kmul(n3,kmul(Ro331,ToReal(2.))))))))),kmadd(nn,knmsub(nn,kmadd(n1,Rojo13,kmadd(n2,Rojo23,kmul(n3,Rojo33))),kmsub(ltet3,kmadd(n1,kadd(Ro133,Ro313),kmadd(n2,kadd(Ro233,Ro323),kmadd(nn,Rojo33,kmul(n3,kmul(Ro333,ToReal(2.)))))),kmul(Ro333,kmul(ltet3,ltet3)))),kmul(ltet2,kmadd(ltet3,kmadd(n1,R4p1323,kmsub(n2,R4p2323,kmul(nn,kadd(Ro233,Ro332)))),kmul(nn,kmadd(n1,kadd(Ro132,Ro312),kmadd(n2,kadd(Ro232,Ro322),kmadd(nn,Rojo23,kmul(n3,kmul(Ro332,ToReal(2.))))))))))))))));
     
     CCTK_REAL_VEC Psi0rL = 
-      kmadd(R4p1112,kmul(rm1,kmul(rm2,kmul(ltet1,ltet1))),kmadd(R4p1211,kmul(rm1,kmul(rm2,kmul(ltet1,ltet1))),kmadd(R4p1113,kmul(rm1,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p1311,kmul(rm1,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p1213,kmul(rm2,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p1312,kmul(rm2,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p2122,kmul(rm1,kmul(rm2,kmul(ltet2,ltet2))),kmadd(R4p2221,kmul(rm1,kmul(rm2,kmul(ltet2,ltet2))),kmadd(R4p2123,kmul(rm1,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p2321,kmul(rm1,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p2223,kmul(rm2,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p2322,kmul(rm2,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p3132,kmul(rm1,kmul(rm2,kmul(ltet3,ltet3))),kmadd(R4p3231,kmul(rm1,kmul(rm2,kmul(ltet3,ltet3))),kmadd(R4p3133,kmul(rm1,kmul(rm3,kmul(ltet3,ltet3))),kmadd(R4p3331,kmul(rm1,kmul(rm3,kmul(ltet3,ltet3))),kmadd(R4p3233,kmul(rm2,kmul(rm3,kmul(ltet3,ltet3))),kmadd(R4p3332,kmul(rm2,kmul(rm3,kmul(ltet3,ltet3))),kmadd(rm1,kmul(rm2,kmul(Rojo12,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo13,kmul(nn,nn))),kmadd(rm1,kmul(rm2,kmul(Rojo21,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo23,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo32,kmul(nn,nn))),kmadd(ltet1,kmul(ltet2,kmul(R4p1121,kmul(rm1,rm1))),kmadd(ltet1,kmul(ltet3,kmul(R4p1131,kmul(rm1,rm1))),kmadd(ltet1,kmul(ltet2,kmul(R4p2111,kmul(rm1,rm1))),kmadd(ltet2,kmul(ltet3,kmul(R4p2131,kmul(rm1,rm1))),kmadd(ltet1,kmul(ltet3,kmul(R4p3111,kmul(rm1,rm1))),kmadd(ltet2,kmul(ltet3,kmul(R4p3121,kmul(rm1,rm1))),kmadd(R4p1111,kmul(kmul(ltet1,ltet1),kmul(rm1,rm1)),kmadd(R4p2121,kmul(kmul(ltet2,ltet2),kmul(rm1,rm1)),kmadd(R4p3131,kmul(kmul(ltet3,ltet3),kmul(rm1,rm1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rm1,rm1)),kmadd(ltet1,kmul(ltet2,kmul(R4p1222,kmul(rm2,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p1232,kmul(rm2,rm2))),kmadd(ltet1,kmul(ltet2,kmul(R4p2212,kmul(rm2,rm2))),kmadd(ltet2,kmul(ltet3,kmul(R4p2232,kmul(rm2,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p3212,kmul(rm2,rm2))),kmadd(ltet2,kmul(ltet3,kmul(R4p3222,kmul(rm2,rm2))),kmadd(R4p1212,kmul(kmul(ltet1,ltet1),kmul(rm2,rm2)),kmadd(R4p2222,kmul(kmul(ltet2,ltet2),kmul(rm2,rm2)),kmadd(R4p3232,kmul(kmul(ltet3,ltet3),kmul(rm2,rm2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rm2,rm2)),kmadd(ltet1,kmul(ltet2,kmul(R4p1323,kmul(rm3,rm3))),kmadd(ltet1,kmul(ltet3,kmul(R4p1333,kmul(rm3,rm3))),kmadd(ltet1,kmul(ltet2,kmul(R4p2313,kmul(rm3,rm3))),kmadd(ltet2,kmul(ltet3,kmul(R4p2333,kmul(rm3,rm3))),kmadd(ltet1,kmul(ltet3,kmul(R4p3313,kmul(rm3,rm3))),kmadd(ltet2,kmul(ltet3,kmul(R4p3323,kmul(rm3,rm3))),kmadd(ltet2,kmul(nn,kmul(Ro323,kmul(kmul(im3,im3),ToReal(-2.)))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(kmul(im3,im3),ToReal(-2.)))),knmsub(ltet3,kmul(kmul(im3,im3),kmadd(ltet1,R4p3313,kmul(ltet2,R4p2333))),kmadd(kmul(im3,im3),kmsub(ltet1,kmul(nn,kmul(Ro313,ToReal(-2.))),kmul(ltet2,kmul(ltet3,R4p3323))),kmadd(R4p1313,kmsub(kmul(ltet1,ltet1),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(ltet1,ltet1))),kmadd(R4p2323,kmsub(kmul(ltet2,ltet2),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(ltet2,ltet2))),kmadd(R4p3333,kmsub(kmul(ltet3,ltet3),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(ltet3,ltet3))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(nn,nn))),kmadd(ltet1,kmul(nn,kmul(Ro111,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro121,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro131,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro212,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro222,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro232,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro313,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro323,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet1,kmadd(ltet3,kmul(R4p1132,kmul(rm1,rm2)),kmadd(ltet2,kmul(R4p1221,kmul(rm1,rm2)),kmadd(ltet3,kmul(R4p1231,kmul(rm1,rm2)),kmadd(ltet2,kmul(R4p1123,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p1331,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p2113,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p1233,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p1322,kmul(rm2,rm3)),kmadd(ltet3,kmul(R4p1332,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p2213,kmul(rm2,rm3)),kmadd(ltet2,kmsub(R4p1122,kmul(rm1,rm2),kmul(R4p1323,kmul(im3,im3))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro112,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro113,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro211,ToReal(2.)))),kmadd(nn,kmul(rm2,kmul(rm3,kmul(Ro213,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro311,ToReal(2.)))),kmul(nn,kmul(rm2,kmul(rm3,kmul(Ro312,ToReal(2.))))))))))))))))))))),kmadd(ltet2,kmadd(ltet3,kmul(R4p2132,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p2211,kmul(rm1,rm2)),kmadd(ltet3,kmul(R4p2231,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p1321,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p2133,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p2311,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p3321,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p1223,kmul(rm2,rm3)),kmadd(ltet3,kmul(R4p2233,kmul(rm2,rm3)),kmadd(ltet1,kmul(R4p2312,kmul(rm2,rm3)),kmadd(ltet1,kmsub(R4p2112,kmul(rm1,rm2),kmul(R4p2313,kmul(im3,im3))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro123,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rm2,kmul(rm3,kmul(Ro223,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro321,ToReal(2.)))),kmul(nn,kmul(rm2,kmul(rm3,kmul(Ro322,ToReal(2.))))))))))))))))))))),kmsub(ltet3,kmadd(ltet2,kmul(R4p3122,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p3211,kmul(rm1,rm2)),kmadd(ltet2,kmul(R4p3221,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p1133,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p2331,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p3113,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p3123,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p3311,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p2332,kmul(rm2,rm3)),kmadd(ltet1,kmul(R4p3213,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p3223,kmul(rm2,rm3)),kmadd(ltet1,kmul(R4p3312,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p3322,kmul(rm2,rm3)),kmadd(ltet1,kmsub(R4p3112,kmul(rm1,rm2),kmul(R4p1333,kmul(im3,im3))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro132,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro133,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro231,ToReal(2.)))),kmadd(nn,kmul(rm2,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro331,ToReal(2.)))),kmul(nn,kmul(rm2,kmul(rm3,kmul(Ro332,ToReal(2.)))))))))))))))))))))))),kmadd(kmul(im1,im1),kmadd(ltet2,kmul(ltet3,R4p2131),kmadd(ltet2,kmul(ltet3,R4p3121),kmadd(R4p1111,kmul(ltet1,ltet1),kmadd(R4p2121,kmul(ltet2,ltet2),kmadd(R4p3131,kmul(ltet3,ltet3),kmadd(Rojo11,kmul(nn,nn),kmadd(ltet2,kmul(nn,kmul(Ro121,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(ltet1,kmadd(ltet2,kadd(R4p1121,R4p2111),kmadd(ltet3,kadd(R4p1131,R4p3111),kmul(nn,kmul(Ro111,ToReal(2.)))))))))))))),kmadd(kmul(im2,im2),kmadd(ltet2,kmul(ltet3,R4p2232),kmadd(ltet2,kmul(ltet3,R4p3222),kmadd(R4p1212,kmul(ltet1,ltet1),kmadd(R4p2222,kmul(ltet2,ltet2),kmadd(R4p3232,kmul(ltet3,ltet3),kmadd(Rojo22,kmul(nn,nn),kmadd(ltet2,kmul(nn,kmul(Ro222,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro232,ToReal(2.))),kmul(ltet1,kmadd(ltet2,kadd(R4p1222,R4p2212),kmadd(ltet3,kadd(R4p1232,R4p3212),kmul(nn,kmul(Ro212,ToReal(2.)))))))))))))),kmadd(im2,kmul(im3,kmadd(kadd(R4p1213,R4p1312),kmul(ltet1,ltet1),kmadd(kadd(R4p2223,R4p2322),kmul(ltet2,ltet2),kmadd(R4p3233,kmul(ltet3,ltet3),kmadd(R4p3332,kmul(ltet3,ltet3),kmadd(Rojo23,kmul(nn,nn),kmadd(Rojo32,kmul(nn,nn),kmadd(ltet3,kmul(nn,kmul(Ro233,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro332,ToReal(2.))),kmadd(ltet1,kmadd(ltet2,kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),kmadd(ltet3,kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),kmul(nn,kmul(kadd(Ro213,Ro312),ToReal(2.))))),kmul(ltet2,kmadd(ltet3,kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.))))))))))))))),kmul(im1,kmadd(im2,kmadd(kadd(R4p1112,R4p1211),kmul(ltet1,ltet1),kmadd(kadd(R4p2122,R4p2221),kmul(ltet2,ltet2),kmadd(R4p3132,kmul(ltet3,ltet3),kmadd(R4p3231,kmul(ltet3,ltet3),kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(ltet3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro231,ToReal(2.))),kmadd(ltet1,kmadd(ltet2,kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),kmadd(ltet3,kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),kmul(nn,kmul(kadd(Ro112,Ro211),ToReal(2.))))),kmul(ltet2,kmadd(ltet3,kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),kmul(nn,kmul(kadd(Ro122,Ro221),ToReal(2.)))))))))))))),kmul(im3,kmadd(kadd(R4p1113,R4p1311),kmul(ltet1,ltet1),kmadd(kadd(R4p2123,R4p2321),kmul(ltet2,ltet2),kmadd(R4p3133,kmul(ltet3,ltet3),kmadd(R4p3331,kmul(ltet3,ltet3),kmadd(Rojo13,kmul(nn,nn),kmadd(Rojo31,kmul(nn,nn),kmadd(ltet3,kmul(nn,kmul(Ro133,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro331,ToReal(2.))),kmadd(ltet1,kmadd(ltet2,kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),kmadd(ltet3,kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),kmul(nn,kmul(kadd(Ro113,Ro311),ToReal(2.))))),kmul(ltet2,kmadd(ltet3,kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),kmul(nn,kmul(kadd(Ro123,Ro321),ToReal(2.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(rm1,kmul(rm2,kmul(Rojo12,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo13,kmul(nn,nn))),kmadd(rm1,kmul(rm2,kmul(Rojo21,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo23,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo32,kmul(nn,nn))),kmadd(R4p1212,kmul(kmul(ltet2,ltet2),kmul(rm1,rm1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rm1,rm1)),kmadd(R4p1212,kmul(kmul(ltet1,ltet1),kmul(rm2,rm2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rm2,rm2)),kmadd(R4p1313,kmul(kmul(ltet1,ltet1),kmul(rm3,rm3)),kmadd(R4p2323,kmul(kmul(ltet2,ltet2),kmul(rm3,rm3)),kmadd(kmadd(ltet1,kmul(ltet2,kmul(R4p1212,kmul(rm1,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p1213,kmul(rm1,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p1313,kmul(rm1,rm3))),kmadd(ltet1,kmul(ltet3,kmul(R4p1323,kmul(rm2,rm3))),kmadd(ltet2,kmul(ltet3,kmul(R4p2323,kmul(rm2,rm3))),kmadd(ltet1,kmul(ltet2,kmul(R4p1323,kmul(im3,im3))),kmadd(ltet1,kmul(nn,kmul(Ro313,kmul(im3,im3))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(im3,im3))),kmul(R4p1223,kmul(rm1,kmul(rm3,kmul(ltet2,ltet2)))))))))))),ToReal(-2.),kmadd(ltet1,kmul(ltet3,kmul(R4p1223,kmul(kmul(rm2,rm2),ToReal(-2.)))),kmadd(R4p1313,kmsub(kmul(ltet3,ltet3),kmul(rm1,rm1),kmul(kmul(im3,im3),kmul(ltet1,ltet1))),kmadd(R4p2323,kmsub(kmul(ltet3,ltet3),kmul(rm2,rm2),kmul(kmul(im3,im3),kmul(ltet2,ltet2))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(nn,nn))),kmadd(kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm2,Ro112))),kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm3,Ro113))),kmadd(ltet2,kmul(nn,kmul(rm1,kmul(rm3,Ro123))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm2,Ro132))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm3,Ro133))),kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm2,Ro211))),kmadd(ltet1,kmul(nn,kmul(rm2,kmul(rm3,Ro213))),kmadd(ltet2,kmul(nn,kmul(rm2,kmul(rm3,Ro223))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm2,Ro231))),kmadd(ltet3,kmul(nn,kmul(rm2,kmul(rm3,Ro233))),kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm3,Ro311))),kmadd(ltet1,kmul(nn,kmul(rm2,kmul(rm3,Ro312))),kmadd(ltet2,kmul(nn,kmul(rm2,kmul(rm3,Ro322))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm3,Ro331))),kmadd(ltet3,kmul(nn,kmul(rm2,kmul(rm3,Ro332))),kmadd(R4p1213,kmul(rm2,kmul(rm3,kmul(ltet1,ltet1))),kmul(R4p1323,kmul(rm1,kmul(rm2,kmul(ltet3,ltet3)))))))))))))))))))),ToReal(2.),kmadd(ltet1,kmul(nn,kmul(Ro111,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro121,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro131,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro212,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro222,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro232,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet1,kmul(ltet2,kmul(R4p1323,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro313,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro323,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(kmul(rm3,rm3),ToReal(2.)))),knmsub(kmul(im2,im2),kmadd(R4p1212,kmul(ltet1,ltet1),kmadd(R4p2323,kmul(ltet3,ltet3),kmadd(Rojo22,kmul(nn,nn),kmadd(ltet1,kmul(ltet3,kmul(R4p1223,ToReal(-2.))),kmadd(ltet1,kmul(nn,kmul(Ro212,ToReal(2.))),kmadd(ltet2,kmul(nn,kmul(Ro222,ToReal(2.))),kmul(ltet3,kmul(nn,kmul(Ro232,ToReal(2.)))))))))),kmadd(ltet2,kmadd(ltet1,kmul(R4p1213,kmul(rm1,kmul(rm3,ToReal(-2.)))),kmadd(ltet3,kmul(R4p1323,kmul(rm1,kmul(rm3,ToReal(-2.)))),kmadd(nn,kmul(Ro323,kmul(kmul(im3,im3),ToReal(-2.))),kmadd(ltet3,kmul(R4p1223,kmul(rm1,kmul(rm2,ToReal(2.)))),kmadd(ltet1,kmul(R4p1223,kmul(rm2,kmul(rm3,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro321,ToReal(2.)))),kmul(ltet3,kmul(R4p1213,kmul(kmul(rm1,rm1),ToReal(2.)))))))))))),knmsub(kmul(im1,im1),kmadd(R4p1212,kmul(ltet2,ltet2),kmadd(R4p1313,kmul(ltet3,ltet3),kmadd(ltet2,kmul(kmadd(ltet3,R4p1213,kmul(nn,Ro121)),ToReal(2.)),kmadd(ltet3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(nn,kmadd(nn,Rojo11,kmul(ltet1,kmul(Ro111,ToReal(2.))))))))),kmsub(im1,kmul(im3,kmadd(R4p1223,kmul(kmul(ltet2,ltet2),ToReal(2.)),kmadd(ltet1,kmul(kmadd(ltet2,R4p1213,kmsub(ltet3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),ToReal(2.)),kmsub(ltet2,kmul(kmsub(ltet3,R4p1323,kmul(nn,kadd(Ro123,Ro321))),ToReal(2.)),kmul(nn,kmadd(nn,kadd(Rojo13,Rojo31),kmul(ltet3,kmul(kadd(Ro133,Ro331),ToReal(2.))))))))),kmul(im2,kmadd(im3,kmadd(R4p1213,kmul(kmul(ltet1,ltet1),ToReal(2.)),kmadd(ltet1,kmul(kmadd(ltet2,R4p1223,kmsub(nn,kadd(Ro213,Ro312),kmul(ltet3,R4p1323))),ToReal(2.)),kmadd(ltet2,kmadd(ltet3,kmul(R4p2323,ToReal(-2.)),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.)))),kmul(nn,kmadd(nn,kadd(Rojo23,Rojo32),kmul(ltet3,kmul(kadd(Ro233,Ro332),ToReal(2.)))))))),kmul(im1,kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(ltet1,kmul(ToReal(-2.),kmadd(ltet2,R4p1212,kmsub(ltet3,R4p1213,kmul(nn,kadd(Ro112,Ro211))))),kmadd(ltet3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(ltet2,kmul(kmadd(ltet3,R4p1223,kmul(nn,kadd(Ro122,Ro221))),ToReal(2.)),kmadd(ltet3,kmul(nn,kmul(Ro231,ToReal(2.))),kmul(R4p1323,kmul(kmul(ltet3,ltet3),ToReal(2.))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi0iL = 
-      kmadd(im1,kmadd(kmul(ltet1,ltet1),kmadd(kadd(R4p1112,R4p1211),rm2,kmadd(kadd(R4p1113,R4p1311),rm3,kmul(R4p1111,kmul(rm1,ToReal(2.))))),kmadd(kmul(ltet2,ltet2),kmadd(kadd(R4p2122,R4p2221),rm2,kmadd(kadd(R4p2123,R4p2321),rm3,kmul(R4p2121,kmul(rm1,ToReal(2.))))),kmadd(kmul(ltet3,ltet3),kmadd(kadd(R4p3132,R4p3231),rm2,kmadd(kadd(R4p3133,R4p3331),rm3,kmul(R4p3131,kmul(rm1,ToReal(2.))))),kmadd(kmul(nn,nn),kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.))))),kmadd(ltet1,kmadd(ltet2,kmadd(kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),rm2,kmadd(kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),rm3,kmul(kadd(R4p1121,R4p2111),kmul(rm1,ToReal(2.))))),kmadd(ltet3,kmadd(kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),rm2,kmadd(kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),rm3,kmul(kadd(R4p1131,R4p3111),kmul(rm1,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))))))),kmadd(ltet2,kmadd(ltet3,kmadd(kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),rm2,kmadd(kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),rm3,kmul(kadd(R4p2131,R4p3121),kmul(rm1,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(ltet3,kmul(nn,kmadd(kmadd(rm2,kadd(Ro132,Ro231),kmul(rm3,kadd(Ro133,Ro331))),ToReal(2.),kmul(rm1,kmul(Ro131,ToReal(4.)))))))))))),kmadd(im2,kmadd(kmadd(rm1,Rojo21,kmul(rm3,Rojo32)),kmul(nn,nn),kmadd(rm1,kmadd(kadd(R4p3132,R4p3231),kmul(ltet3,ltet3),kmul(Rojo12,kmul(nn,nn))),kmadd(rm3,kmadd(kadd(R4p3233,R4p3332),kmul(ltet3,ltet3),kmul(Rojo23,kmul(nn,nn))),kmadd(kmadd(ltet3,kmul(nn,kmadd(rm1,kadd(Ro132,Ro231),kmul(rm3,Ro233))),kmul(rm2,kmadd(R4p3232,kmul(ltet3,ltet3),kmul(Rojo22,kmul(nn,nn))))),ToReal(2.),kmadd(kmul(ltet1,ltet1),kmadd(kadd(R4p1112,R4p1211),rm1,kmadd(kadd(R4p1213,R4p1312),rm3,kmul(R4p1212,kmul(rm2,ToReal(2.))))),kmadd(kmul(ltet2,ltet2),kmadd(kadd(R4p2122,R4p2221),rm1,kmadd(kadd(R4p2223,R4p2322),rm3,kmul(R4p2222,kmul(rm2,ToReal(2.))))),kmadd(ltet1,kmadd(ltet2,kmadd(kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),rm1,kmadd(kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),rm3,kmul(kadd(R4p1222,R4p2212),kmul(rm2,ToReal(2.))))),kmadd(ltet3,kmadd(kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),rm1,kmadd(kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),rm3,kmul(kadd(R4p1232,R4p3212),kmul(rm2,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))))))),kmadd(ltet2,kmadd(ltet3,kmadd(kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),rm1,kmadd(kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),rm3,kmul(kadd(R4p2232,R4p3222),kmul(rm2,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(ltet3,kmul(nn,kmadd(rm3,kmul(Ro332,ToReal(2.)),kmul(rm2,kmul(Ro232,ToReal(4.)))))))))))))),kmul(im3,kmadd(kmadd(rm1,Rojo31,kmul(rm2,Rojo32)),kmul(nn,nn),kmadd(rm1,kmadd(kadd(R4p3133,R4p3331),kmul(ltet3,ltet3),kmul(Rojo13,kmul(nn,nn))),kmadd(rm2,kmadd(kadd(R4p3233,R4p3332),kmul(ltet3,ltet3),kmul(Rojo23,kmul(nn,nn))),kmadd(kmadd(ltet3,kmul(nn,kmadd(rm1,kadd(Ro133,Ro331),kmul(rm2,kadd(Ro233,Ro332)))),kmul(R4p3333,kmul(rm3,kmul(ltet3,ltet3)))),ToReal(2.),kmadd(kmul(ltet1,ltet1),kmadd(kadd(R4p1113,R4p1311),rm1,kmadd(kadd(R4p1213,R4p1312),rm2,kmul(R4p1313,kmul(rm3,ToReal(2.))))),kmadd(kmul(ltet2,ltet2),kmadd(kadd(R4p2123,R4p2321),rm1,kmadd(kadd(R4p2223,R4p2322),rm2,kmul(R4p2323,kmul(rm3,ToReal(2.))))),kmadd(ltet1,kmadd(ltet2,kmadd(kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),rm1,kmadd(kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),rm2,kmul(kadd(R4p1323,R4p2313),kmul(rm3,ToReal(2.))))),kmadd(ltet3,kmadd(kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),rm1,kmadd(kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),rm2,kmul(kadd(R4p1333,R4p3313),kmul(rm3,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(ltet2,kmadd(ltet3,kmadd(kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),rm1,kmadd(kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),rm2,kmul(kadd(R4p2333,R4p3323),kmul(rm3,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.)))))))),kmul(rm3,kmadd(Rojo33,kmul(kmul(nn,nn),ToReal(2.)),kmul(ltet3,kmul(nn,kmul(Ro333,ToReal(4.)))))))))))))))));
+      kmadd(im1,kmadd(nn,kmadd(ltet1,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.)))))),kmul(nn,kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.))))))),kmul(ToReal(2.),kmadd(kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmul(ltet3,ltet3),kmadd(kmul(ltet2,ltet2),kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),kmadd(ltet2,knmsub(ltet1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmadd(ltet3,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(nn,kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(ltet3,kmsub(nn,kmadd(rm2,kadd(Ro132,Ro231),kmadd(rm3,kadd(Ro133,Ro331),kmul(rm1,kmul(Ro131,ToReal(2.))))),kmul(ltet1,kmadd(R4p1213,rm2,kmul(R4p1313,rm3)))))))))),kmadd(im3,kmadd(kmul(ltet2,ltet2),kmadd(R4p1223,kmul(rm1,ToReal(-2.)),kmul(R4p2323,kmul(rm3,ToReal(2.)))),kmadd(nn,kmadd(ltet3,kmul(ToReal(2.),kmadd(rm1,kadd(Ro133,Ro331),kmadd(rm2,kadd(Ro233,Ro332),kmul(rm3,kmul(Ro333,ToReal(2.)))))),kmul(nn,kmadd(rm1,kadd(Rojo13,Rojo31),kmadd(rm2,kadd(Rojo23,Rojo32),kmul(rm3,kmul(Rojo33,ToReal(2.))))))),kmul(ToReal(2.),kmadd(kmadd(R4p1213,rm2,kmul(R4p1313,rm3)),kmul(ltet1,ltet1),kmadd(ltet1,knmsub(ltet3,kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmadd(ltet2,kmadd(R4p1223,rm2,kmsub(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p1213,rm1))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.)))))))),kmul(ltet2,kmsub(nn,kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.))))),kmul(ltet3,kmadd(R4p1323,rm1,kmul(R4p2323,rm2)))))))))),kmul(im2,kmadd(kmadd(rm1,kadd(Rojo12,Rojo21),kmul(rm3,kadd(Rojo23,Rojo32))),kmul(nn,nn),kmadd(ToReal(2.),kmadd(ltet3,kmul(nn,kmadd(rm1,kadd(Ro132,Ro231),kmul(rm3,Ro233))),kmadd(kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmul(ltet1,ltet1),kmadd(kmadd(R4p1323,rm1,kmul(R4p2323,rm2)),kmul(ltet3,ltet3),kmadd(rm2,kmul(Rojo22,kmul(nn,nn)),kmadd(ltet1,kmadd(ltet2,kmsub(R4p1223,rm3,kmul(R4p1212,rm1)),kmsub(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))),kmul(ltet3,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.)))))))),kmul(ltet2,kmadd(ltet3,kmsub(R4p1223,rm1,kmul(R4p2323,rm3)),kmul(nn,kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.))))))))))))),kmul(ltet3,kmul(nn,kmadd(rm3,kmul(Ro332,ToReal(2.)),kmul(rm2,kmul(Ro232,ToReal(4.)))))))))));
     
     /* Copy local copies back to grid functions */
     vec_store_partial_prepare(i,lc_imin,lc_imax);
diff --git a/src/psis_calc_Nth.cc b/src/psis_calc_Nth.cc
index 4805f2e..3f1f03f 100644
--- a/src/psis_calc_Nth.cc
+++ b/src/psis_calc_Nth.cc
@@ -630,23 +630,14 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     }
     
     /* Calculate temporaries and grid functions */
-    CCTK_REAL_VEC JacPDstandard11gxy;
-    CCTK_REAL_VEC JacPDstandard11gxz;
     CCTK_REAL_VEC JacPDstandard11gyy;
     CCTK_REAL_VEC JacPDstandard11gyz;
     CCTK_REAL_VEC JacPDstandard11gzz;
-    CCTK_REAL_VEC JacPDstandard12gxx;
     CCTK_REAL_VEC JacPDstandard12gxy;
     CCTK_REAL_VEC JacPDstandard12gxz;
-    CCTK_REAL_VEC JacPDstandard12gyy;
     CCTK_REAL_VEC JacPDstandard12gyz;
     CCTK_REAL_VEC JacPDstandard12gzz;
-    CCTK_REAL_VEC JacPDstandard13gxx;
-    CCTK_REAL_VEC JacPDstandard13gxy;
     CCTK_REAL_VEC JacPDstandard13gxz;
-    CCTK_REAL_VEC JacPDstandard13gyy;
-    CCTK_REAL_VEC JacPDstandard13gyz;
-    CCTK_REAL_VEC JacPDstandard13gzz;
     CCTK_REAL_VEC JacPDstandard1gxx;
     CCTK_REAL_VEC JacPDstandard1gxy;
     CCTK_REAL_VEC JacPDstandard1gxz;
@@ -658,23 +649,14 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard1kyy;
     CCTK_REAL_VEC JacPDstandard1kyz;
     CCTK_REAL_VEC JacPDstandard1kzz;
-    CCTK_REAL_VEC JacPDstandard21gxx;
     CCTK_REAL_VEC JacPDstandard21gxy;
-    CCTK_REAL_VEC JacPDstandard21gxz;
-    CCTK_REAL_VEC JacPDstandard21gyy;
-    CCTK_REAL_VEC JacPDstandard21gyz;
-    CCTK_REAL_VEC JacPDstandard21gzz;
     CCTK_REAL_VEC JacPDstandard22gxx;
-    CCTK_REAL_VEC JacPDstandard22gxy;
     CCTK_REAL_VEC JacPDstandard22gxz;
-    CCTK_REAL_VEC JacPDstandard22gyz;
     CCTK_REAL_VEC JacPDstandard22gzz;
     CCTK_REAL_VEC JacPDstandard23gxx;
     CCTK_REAL_VEC JacPDstandard23gxy;
     CCTK_REAL_VEC JacPDstandard23gxz;
-    CCTK_REAL_VEC JacPDstandard23gyy;
     CCTK_REAL_VEC JacPDstandard23gyz;
-    CCTK_REAL_VEC JacPDstandard23gzz;
     CCTK_REAL_VEC JacPDstandard2gxx;
     CCTK_REAL_VEC JacPDstandard2gxy;
     CCTK_REAL_VEC JacPDstandard2gxz;
@@ -686,23 +668,14 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC JacPDstandard2kxz;
     CCTK_REAL_VEC JacPDstandard2kyz;
     CCTK_REAL_VEC JacPDstandard2kzz;
-    CCTK_REAL_VEC JacPDstandard31gxx;
     CCTK_REAL_VEC JacPDstandard31gxy;
     CCTK_REAL_VEC JacPDstandard31gxz;
     CCTK_REAL_VEC JacPDstandard31gyy;
     CCTK_REAL_VEC JacPDstandard31gyz;
-    CCTK_REAL_VEC JacPDstandard31gzz;
-    CCTK_REAL_VEC JacPDstandard32gxx;
-    CCTK_REAL_VEC JacPDstandard32gxy;
-    CCTK_REAL_VEC JacPDstandard32gxz;
-    CCTK_REAL_VEC JacPDstandard32gyy;
     CCTK_REAL_VEC JacPDstandard32gyz;
-    CCTK_REAL_VEC JacPDstandard32gzz;
     CCTK_REAL_VEC JacPDstandard33gxx;
     CCTK_REAL_VEC JacPDstandard33gxy;
-    CCTK_REAL_VEC JacPDstandard33gxz;
     CCTK_REAL_VEC JacPDstandard33gyy;
-    CCTK_REAL_VEC JacPDstandard33gyz;
     CCTK_REAL_VEC JacPDstandard3gxx;
     CCTK_REAL_VEC JacPDstandard3gxy;
     CCTK_REAL_VEC JacPDstandard3gxz;
@@ -816,12 +789,6 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard3kyz = 
         kmadd(J13L,PDstandard1kyz,kmadd(J23L,PDstandard2kyz,kmul(J33L,PDstandard3kyz)));
       
-      JacPDstandard11gxy = 
-        kmadd(dJ111L,PDstandard1gxy,kmadd(dJ211L,PDstandard2gxy,kmadd(dJ311L,PDstandard3gxy,kmadd(PDstandard11gxy,kmul(J11L,J11L),kmadd(PDstandard22gxy,kmul(J21L,J21L),kmadd(PDstandard33gxy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy)),kmul(J21L,kmul(J31L,PDstandard23gxy))),ToReal(2.))))))));
-      
-      JacPDstandard11gxz = 
-        kmadd(dJ111L,PDstandard1gxz,kmadd(dJ211L,PDstandard2gxz,kmadd(dJ311L,PDstandard3gxz,kmadd(PDstandard11gxz,kmul(J11L,J11L),kmadd(PDstandard22gxz,kmul(J21L,J21L),kmadd(PDstandard33gxz,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard12gxz,kmul(J31L,PDstandard13gxz)),kmul(J21L,kmul(J31L,PDstandard23gxz))),ToReal(2.))))))));
-      
       JacPDstandard11gyy = 
         kmadd(dJ111L,PDstandard1gyy,kmadd(dJ211L,PDstandard2gyy,kmadd(dJ311L,PDstandard3gyy,kmadd(PDstandard11gyy,kmul(J11L,J11L),kmadd(PDstandard22gyy,kmul(J21L,J21L),kmadd(PDstandard33gyy,kmul(J31L,J31L),kmul(kmadd(J11L,kmadd(J21L,PDstandard12gyy,kmul(J31L,PDstandard13gyy)),kmul(J21L,kmul(J31L,PDstandard23gyy))),ToReal(2.))))))));
       
@@ -834,15 +801,9 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard22gxx = 
         kmadd(dJ122L,PDstandard1gxx,kmadd(dJ222L,PDstandard2gxx,kmadd(dJ322L,PDstandard3gxx,kmadd(PDstandard11gxx,kmul(J12L,J12L),kmadd(PDstandard22gxx,kmul(J22L,J22L),kmadd(PDstandard33gxx,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx)),kmul(J22L,kmul(J32L,PDstandard23gxx))),ToReal(2.))))))));
       
-      JacPDstandard22gxy = 
-        kmadd(dJ122L,PDstandard1gxy,kmadd(dJ222L,PDstandard2gxy,kmadd(dJ322L,PDstandard3gxy,kmadd(PDstandard11gxy,kmul(J12L,J12L),kmadd(PDstandard22gxy,kmul(J22L,J22L),kmadd(PDstandard33gxy,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gxy,kmul(J32L,PDstandard13gxy)),kmul(J22L,kmul(J32L,PDstandard23gxy))),ToReal(2.))))))));
-      
       JacPDstandard22gxz = 
         kmadd(dJ122L,PDstandard1gxz,kmadd(dJ222L,PDstandard2gxz,kmadd(dJ322L,PDstandard3gxz,kmadd(PDstandard11gxz,kmul(J12L,J12L),kmadd(PDstandard22gxz,kmul(J22L,J22L),kmadd(PDstandard33gxz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz)),kmul(J22L,kmul(J32L,PDstandard23gxz))),ToReal(2.))))))));
       
-      JacPDstandard22gyz = 
-        kmadd(dJ122L,PDstandard1gyz,kmadd(dJ222L,PDstandard2gyz,kmadd(dJ322L,PDstandard3gyz,kmadd(PDstandard11gyz,kmul(J12L,J12L),kmadd(PDstandard22gyz,kmul(J22L,J22L),kmadd(PDstandard33gyz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz)),kmul(J22L,kmul(J32L,PDstandard23gyz))),ToReal(2.))))))));
-      
       JacPDstandard22gzz = 
         kmadd(dJ122L,PDstandard1gzz,kmadd(dJ222L,PDstandard2gzz,kmadd(dJ322L,PDstandard3gzz,kmadd(PDstandard11gzz,kmul(J12L,J12L),kmadd(PDstandard22gzz,kmul(J22L,J22L),kmadd(PDstandard33gzz,kmul(J32L,J32L),kmul(kmadd(J12L,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz)),kmul(J22L,kmul(J32L,PDstandard23gzz))),ToReal(2.))))))));
       
@@ -852,69 +813,27 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard33gxy = 
         kmadd(dJ133L,PDstandard1gxy,kmadd(dJ233L,PDstandard2gxy,kmadd(dJ333L,PDstandard3gxy,kmadd(PDstandard11gxy,kmul(J13L,J13L),kmadd(PDstandard22gxy,kmul(J23L,J23L),kmadd(PDstandard33gxy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard12gxy,kmul(J33L,PDstandard13gxy)),kmul(J23L,kmul(J33L,PDstandard23gxy))),ToReal(2.))))))));
       
-      JacPDstandard33gxz = 
-        kmadd(dJ133L,PDstandard1gxz,kmadd(dJ233L,PDstandard2gxz,kmadd(dJ333L,PDstandard3gxz,kmadd(PDstandard11gxz,kmul(J13L,J13L),kmadd(PDstandard22gxz,kmul(J23L,J23L),kmadd(PDstandard33gxz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard12gxz,kmul(J33L,PDstandard13gxz)),kmul(J23L,kmul(J33L,PDstandard23gxz))),ToReal(2.))))))));
-      
       JacPDstandard33gyy = 
         kmadd(dJ133L,PDstandard1gyy,kmadd(dJ233L,PDstandard2gyy,kmadd(dJ333L,PDstandard3gyy,kmadd(PDstandard11gyy,kmul(J13L,J13L),kmadd(PDstandard22gyy,kmul(J23L,J23L),kmadd(PDstandard33gyy,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard12gyy,kmul(J33L,PDstandard13gyy)),kmul(J23L,kmul(J33L,PDstandard23gyy))),ToReal(2.))))))));
       
-      JacPDstandard33gyz = 
-        kmadd(dJ133L,PDstandard1gyz,kmadd(dJ233L,PDstandard2gyz,kmadd(dJ333L,PDstandard3gyz,kmadd(PDstandard11gyz,kmul(J13L,J13L),kmadd(PDstandard22gyz,kmul(J23L,J23L),kmadd(PDstandard33gyz,kmul(J33L,J33L),kmul(kmadd(J13L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmul(J23L,kmul(J33L,PDstandard23gyz))),ToReal(2.))))))));
-      
-      JacPDstandard12gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gxx,kmadd(J21L,PDstandard12gxx,kmul(J31L,PDstandard13gxx))),kmadd(J11L,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx)),kmadd(dJ112L,PDstandard1gxx,kmadd(J22L,kmadd(J21L,PDstandard22gxx,kmul(J31L,PDstandard23gxx)),kmadd(dJ212L,PDstandard2gxx,kmadd(J32L,kmadd(J21L,PDstandard23gxx,kmul(J31L,PDstandard33gxx)),kmul(dJ312L,PDstandard3gxx)))))));
-      
       JacPDstandard12gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard11gxy,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy))),kmadd(J11L,kmadd(J22L,PDstandard12gxy,kmul(J32L,PDstandard13gxy)),kmadd(dJ112L,PDstandard1gxy,kmadd(J22L,kmadd(J21L,PDstandard22gxy,kmul(J31L,PDstandard23gxy)),kmadd(dJ212L,PDstandard2gxy,kmadd(J32L,kmadd(J21L,PDstandard23gxy,kmul(J31L,PDstandard33gxy)),kmul(dJ312L,PDstandard3gxy)))))));
       
       JacPDstandard12gxz = 
         kmadd(J12L,kmadd(J11L,PDstandard11gxz,kmadd(J21L,PDstandard12gxz,kmul(J31L,PDstandard13gxz))),kmadd(J11L,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz)),kmadd(dJ112L,PDstandard1gxz,kmadd(J22L,kmadd(J21L,PDstandard22gxz,kmul(J31L,PDstandard23gxz)),kmadd(dJ212L,PDstandard2gxz,kmadd(J32L,kmadd(J21L,PDstandard23gxz,kmul(J31L,PDstandard33gxz)),kmul(dJ312L,PDstandard3gxz)))))));
       
-      JacPDstandard12gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gyy,kmadd(J21L,PDstandard12gyy,kmul(J31L,PDstandard13gyy))),kmadd(J11L,kmadd(J22L,PDstandard12gyy,kmul(J32L,PDstandard13gyy)),kmadd(dJ112L,PDstandard1gyy,kmadd(J22L,kmadd(J21L,PDstandard22gyy,kmul(J31L,PDstandard23gyy)),kmadd(dJ212L,PDstandard2gyy,kmadd(J32L,kmadd(J21L,PDstandard23gyy,kmul(J31L,PDstandard33gyy)),kmul(dJ312L,PDstandard3gyy)))))));
-      
       JacPDstandard12gyz = 
         kmadd(J12L,kmadd(J11L,PDstandard11gyz,kmadd(J21L,PDstandard12gyz,kmul(J31L,PDstandard13gyz))),kmadd(J11L,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz)),kmadd(dJ112L,PDstandard1gyz,kmadd(J22L,kmadd(J21L,PDstandard22gyz,kmul(J31L,PDstandard23gyz)),kmadd(dJ212L,PDstandard2gyz,kmadd(J32L,kmadd(J21L,PDstandard23gyz,kmul(J31L,PDstandard33gyz)),kmul(dJ312L,PDstandard3gyz)))))));
       
       JacPDstandard12gzz = 
         kmadd(J12L,kmadd(J11L,PDstandard11gzz,kmadd(J21L,PDstandard12gzz,kmul(J31L,PDstandard13gzz))),kmadd(J11L,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz)),kmadd(dJ112L,PDstandard1gzz,kmadd(J22L,kmadd(J21L,PDstandard22gzz,kmul(J31L,PDstandard23gzz)),kmadd(dJ212L,PDstandard2gzz,kmadd(J32L,kmadd(J21L,PDstandard23gzz,kmul(J31L,PDstandard33gzz)),kmul(dJ312L,PDstandard3gzz)))))));
       
-      JacPDstandard13gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gxx,kmadd(J21L,PDstandard12gxx,kmul(J31L,PDstandard13gxx))),kmadd(J11L,kmadd(J23L,PDstandard12gxx,kmul(J33L,PDstandard13gxx)),kmadd(dJ113L,PDstandard1gxx,kmadd(J23L,kmadd(J21L,PDstandard22gxx,kmul(J31L,PDstandard23gxx)),kmadd(dJ213L,PDstandard2gxx,kmadd(J33L,kmadd(J21L,PDstandard23gxx,kmul(J31L,PDstandard33gxx)),kmul(dJ313L,PDstandard3gxx)))))));
-      
-      JacPDstandard13gxy = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gxy,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy))),kmadd(J11L,kmadd(J23L,PDstandard12gxy,kmul(J33L,PDstandard13gxy)),kmadd(dJ113L,PDstandard1gxy,kmadd(J23L,kmadd(J21L,PDstandard22gxy,kmul(J31L,PDstandard23gxy)),kmadd(dJ213L,PDstandard2gxy,kmadd(J33L,kmadd(J21L,PDstandard23gxy,kmul(J31L,PDstandard33gxy)),kmul(dJ313L,PDstandard3gxy)))))));
-      
       JacPDstandard13gxz = 
         kmadd(J13L,kmadd(J11L,PDstandard11gxz,kmadd(J21L,PDstandard12gxz,kmul(J31L,PDstandard13gxz))),kmadd(J11L,kmadd(J23L,PDstandard12gxz,kmul(J33L,PDstandard13gxz)),kmadd(dJ113L,PDstandard1gxz,kmadd(J23L,kmadd(J21L,PDstandard22gxz,kmul(J31L,PDstandard23gxz)),kmadd(dJ213L,PDstandard2gxz,kmadd(J33L,kmadd(J21L,PDstandard23gxz,kmul(J31L,PDstandard33gxz)),kmul(dJ313L,PDstandard3gxz)))))));
       
-      JacPDstandard13gyy = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gyy,kmadd(J21L,PDstandard12gyy,kmul(J31L,PDstandard13gyy))),kmadd(J11L,kmadd(J23L,PDstandard12gyy,kmul(J33L,PDstandard13gyy)),kmadd(dJ113L,PDstandard1gyy,kmadd(J23L,kmadd(J21L,PDstandard22gyy,kmul(J31L,PDstandard23gyy)),kmadd(dJ213L,PDstandard2gyy,kmadd(J33L,kmadd(J21L,PDstandard23gyy,kmul(J31L,PDstandard33gyy)),kmul(dJ313L,PDstandard3gyy)))))));
-      
-      JacPDstandard13gyz = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gyz,kmadd(J21L,PDstandard12gyz,kmul(J31L,PDstandard13gyz))),kmadd(J11L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmadd(dJ113L,PDstandard1gyz,kmadd(J23L,kmadd(J21L,PDstandard22gyz,kmul(J31L,PDstandard23gyz)),kmadd(dJ213L,PDstandard2gyz,kmadd(J33L,kmadd(J21L,PDstandard23gyz,kmul(J31L,PDstandard33gyz)),kmul(dJ313L,PDstandard3gyz)))))));
-      
-      JacPDstandard13gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gzz,kmadd(J21L,PDstandard12gzz,kmul(J31L,PDstandard13gzz))),kmadd(J11L,kmadd(J23L,PDstandard12gzz,kmul(J33L,PDstandard13gzz)),kmadd(dJ113L,PDstandard1gzz,kmadd(J23L,kmadd(J21L,PDstandard22gzz,kmul(J31L,PDstandard23gzz)),kmadd(dJ213L,PDstandard2gzz,kmadd(J33L,kmadd(J21L,PDstandard23gzz,kmul(J31L,PDstandard33gzz)),kmul(dJ313L,PDstandard3gzz)))))));
-      
-      JacPDstandard21gxx = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gxx,kmadd(J21L,PDstandard12gxx,kmul(J31L,PDstandard13gxx))),kmadd(J11L,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx)),kmadd(dJ112L,PDstandard1gxx,kmadd(J22L,kmadd(J21L,PDstandard22gxx,kmul(J31L,PDstandard23gxx)),kmadd(dJ212L,PDstandard2gxx,kmadd(J32L,kmadd(J21L,PDstandard23gxx,kmul(J31L,PDstandard33gxx)),kmul(dJ312L,PDstandard3gxx)))))));
-      
       JacPDstandard21gxy = 
         kmadd(J12L,kmadd(J11L,PDstandard11gxy,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy))),kmadd(J11L,kmadd(J22L,PDstandard12gxy,kmul(J32L,PDstandard13gxy)),kmadd(dJ112L,PDstandard1gxy,kmadd(J22L,kmadd(J21L,PDstandard22gxy,kmul(J31L,PDstandard23gxy)),kmadd(dJ212L,PDstandard2gxy,kmadd(J32L,kmadd(J21L,PDstandard23gxy,kmul(J31L,PDstandard33gxy)),kmul(dJ312L,PDstandard3gxy)))))));
       
-      JacPDstandard21gxz = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gxz,kmadd(J21L,PDstandard12gxz,kmul(J31L,PDstandard13gxz))),kmadd(J11L,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz)),kmadd(dJ112L,PDstandard1gxz,kmadd(J22L,kmadd(J21L,PDstandard22gxz,kmul(J31L,PDstandard23gxz)),kmadd(dJ212L,PDstandard2gxz,kmadd(J32L,kmadd(J21L,PDstandard23gxz,kmul(J31L,PDstandard33gxz)),kmul(dJ312L,PDstandard3gxz)))))));
-      
-      JacPDstandard21gyy = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gyy,kmadd(J21L,PDstandard12gyy,kmul(J31L,PDstandard13gyy))),kmadd(J11L,kmadd(J22L,PDstandard12gyy,kmul(J32L,PDstandard13gyy)),kmadd(dJ112L,PDstandard1gyy,kmadd(J22L,kmadd(J21L,PDstandard22gyy,kmul(J31L,PDstandard23gyy)),kmadd(dJ212L,PDstandard2gyy,kmadd(J32L,kmadd(J21L,PDstandard23gyy,kmul(J31L,PDstandard33gyy)),kmul(dJ312L,PDstandard3gyy)))))));
-      
-      JacPDstandard21gyz = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gyz,kmadd(J21L,PDstandard12gyz,kmul(J31L,PDstandard13gyz))),kmadd(J11L,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz)),kmadd(dJ112L,PDstandard1gyz,kmadd(J22L,kmadd(J21L,PDstandard22gyz,kmul(J31L,PDstandard23gyz)),kmadd(dJ212L,PDstandard2gyz,kmadd(J32L,kmadd(J21L,PDstandard23gyz,kmul(J31L,PDstandard33gyz)),kmul(dJ312L,PDstandard3gyz)))))));
-      
-      JacPDstandard21gzz = 
-        kmadd(J12L,kmadd(J11L,PDstandard11gzz,kmadd(J21L,PDstandard12gzz,kmul(J31L,PDstandard13gzz))),kmadd(J11L,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz)),kmadd(dJ112L,PDstandard1gzz,kmadd(J22L,kmadd(J21L,PDstandard22gzz,kmul(J31L,PDstandard23gzz)),kmadd(dJ212L,PDstandard2gzz,kmadd(J32L,kmadd(J21L,PDstandard23gzz,kmul(J31L,PDstandard33gzz)),kmul(dJ312L,PDstandard3gzz)))))));
-      
       JacPDstandard23gxx = 
         kmadd(J13L,kmadd(J12L,PDstandard11gxx,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx))),kmadd(J12L,kmadd(J23L,PDstandard12gxx,kmul(J33L,PDstandard13gxx)),kmadd(dJ123L,PDstandard1gxx,kmadd(J23L,kmadd(J22L,PDstandard22gxx,kmul(J32L,PDstandard23gxx)),kmadd(dJ223L,PDstandard2gxx,kmadd(J33L,kmadd(J22L,PDstandard23gxx,kmul(J32L,PDstandard33gxx)),kmul(dJ323L,PDstandard3gxx)))))));
       
@@ -924,18 +843,9 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard23gxz = 
         kmadd(J13L,kmadd(J12L,PDstandard11gxz,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz))),kmadd(J12L,kmadd(J23L,PDstandard12gxz,kmul(J33L,PDstandard13gxz)),kmadd(dJ123L,PDstandard1gxz,kmadd(J23L,kmadd(J22L,PDstandard22gxz,kmul(J32L,PDstandard23gxz)),kmadd(dJ223L,PDstandard2gxz,kmadd(J33L,kmadd(J22L,PDstandard23gxz,kmul(J32L,PDstandard33gxz)),kmul(dJ323L,PDstandard3gxz)))))));
       
-      JacPDstandard23gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gyy,kmadd(J22L,PDstandard12gyy,kmul(J32L,PDstandard13gyy))),kmadd(J12L,kmadd(J23L,PDstandard12gyy,kmul(J33L,PDstandard13gyy)),kmadd(dJ123L,PDstandard1gyy,kmadd(J23L,kmadd(J22L,PDstandard22gyy,kmul(J32L,PDstandard23gyy)),kmadd(dJ223L,PDstandard2gyy,kmadd(J33L,kmadd(J22L,PDstandard23gyy,kmul(J32L,PDstandard33gyy)),kmul(dJ323L,PDstandard3gyy)))))));
-      
       JacPDstandard23gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard11gyz,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz))),kmadd(J12L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmadd(dJ123L,PDstandard1gyz,kmadd(J23L,kmadd(J22L,PDstandard22gyz,kmul(J32L,PDstandard23gyz)),kmadd(dJ223L,PDstandard2gyz,kmadd(J33L,kmadd(J22L,PDstandard23gyz,kmul(J32L,PDstandard33gyz)),kmul(dJ323L,PDstandard3gyz)))))));
       
-      JacPDstandard23gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gzz,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz))),kmadd(J12L,kmadd(J23L,PDstandard12gzz,kmul(J33L,PDstandard13gzz)),kmadd(dJ123L,PDstandard1gzz,kmadd(J23L,kmadd(J22L,PDstandard22gzz,kmul(J32L,PDstandard23gzz)),kmadd(dJ223L,PDstandard2gzz,kmadd(J33L,kmadd(J22L,PDstandard23gzz,kmul(J32L,PDstandard33gzz)),kmul(dJ323L,PDstandard3gzz)))))));
-      
-      JacPDstandard31gxx = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gxx,kmadd(J21L,PDstandard12gxx,kmul(J31L,PDstandard13gxx))),kmadd(J11L,kmadd(J23L,PDstandard12gxx,kmul(J33L,PDstandard13gxx)),kmadd(dJ113L,PDstandard1gxx,kmadd(J23L,kmadd(J21L,PDstandard22gxx,kmul(J31L,PDstandard23gxx)),kmadd(dJ213L,PDstandard2gxx,kmadd(J33L,kmadd(J21L,PDstandard23gxx,kmul(J31L,PDstandard33gxx)),kmul(dJ313L,PDstandard3gxx)))))));
-      
       JacPDstandard31gxy = 
         kmadd(J13L,kmadd(J11L,PDstandard11gxy,kmadd(J21L,PDstandard12gxy,kmul(J31L,PDstandard13gxy))),kmadd(J11L,kmadd(J23L,PDstandard12gxy,kmul(J33L,PDstandard13gxy)),kmadd(dJ113L,PDstandard1gxy,kmadd(J23L,kmadd(J21L,PDstandard22gxy,kmul(J31L,PDstandard23gxy)),kmadd(dJ213L,PDstandard2gxy,kmadd(J33L,kmadd(J21L,PDstandard23gxy,kmul(J31L,PDstandard33gxy)),kmul(dJ313L,PDstandard3gxy)))))));
       
@@ -948,26 +858,8 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       JacPDstandard31gyz = 
         kmadd(J13L,kmadd(J11L,PDstandard11gyz,kmadd(J21L,PDstandard12gyz,kmul(J31L,PDstandard13gyz))),kmadd(J11L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmadd(dJ113L,PDstandard1gyz,kmadd(J23L,kmadd(J21L,PDstandard22gyz,kmul(J31L,PDstandard23gyz)),kmadd(dJ213L,PDstandard2gyz,kmadd(J33L,kmadd(J21L,PDstandard23gyz,kmul(J31L,PDstandard33gyz)),kmul(dJ313L,PDstandard3gyz)))))));
       
-      JacPDstandard31gzz = 
-        kmadd(J13L,kmadd(J11L,PDstandard11gzz,kmadd(J21L,PDstandard12gzz,kmul(J31L,PDstandard13gzz))),kmadd(J11L,kmadd(J23L,PDstandard12gzz,kmul(J33L,PDstandard13gzz)),kmadd(dJ113L,PDstandard1gzz,kmadd(J23L,kmadd(J21L,PDstandard22gzz,kmul(J31L,PDstandard23gzz)),kmadd(dJ213L,PDstandard2gzz,kmadd(J33L,kmadd(J21L,PDstandard23gzz,kmul(J31L,PDstandard33gzz)),kmul(dJ313L,PDstandard3gzz)))))));
-      
-      JacPDstandard32gxx = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gxx,kmadd(J22L,PDstandard12gxx,kmul(J32L,PDstandard13gxx))),kmadd(J12L,kmadd(J23L,PDstandard12gxx,kmul(J33L,PDstandard13gxx)),kmadd(dJ123L,PDstandard1gxx,kmadd(J23L,kmadd(J22L,PDstandard22gxx,kmul(J32L,PDstandard23gxx)),kmadd(dJ223L,PDstandard2gxx,kmadd(J33L,kmadd(J22L,PDstandard23gxx,kmul(J32L,PDstandard33gxx)),kmul(dJ323L,PDstandard3gxx)))))));
-      
-      JacPDstandard32gxy = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gxy,kmadd(J22L,PDstandard12gxy,kmul(J32L,PDstandard13gxy))),kmadd(J12L,kmadd(J23L,PDstandard12gxy,kmul(J33L,PDstandard13gxy)),kmadd(dJ123L,PDstandard1gxy,kmadd(J23L,kmadd(J22L,PDstandard22gxy,kmul(J32L,PDstandard23gxy)),kmadd(dJ223L,PDstandard2gxy,kmadd(J33L,kmadd(J22L,PDstandard23gxy,kmul(J32L,PDstandard33gxy)),kmul(dJ323L,PDstandard3gxy)))))));
-      
-      JacPDstandard32gxz = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gxz,kmadd(J22L,PDstandard12gxz,kmul(J32L,PDstandard13gxz))),kmadd(J12L,kmadd(J23L,PDstandard12gxz,kmul(J33L,PDstandard13gxz)),kmadd(dJ123L,PDstandard1gxz,kmadd(J23L,kmadd(J22L,PDstandard22gxz,kmul(J32L,PDstandard23gxz)),kmadd(dJ223L,PDstandard2gxz,kmadd(J33L,kmadd(J22L,PDstandard23gxz,kmul(J32L,PDstandard33gxz)),kmul(dJ323L,PDstandard3gxz)))))));
-      
-      JacPDstandard32gyy = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gyy,kmadd(J22L,PDstandard12gyy,kmul(J32L,PDstandard13gyy))),kmadd(J12L,kmadd(J23L,PDstandard12gyy,kmul(J33L,PDstandard13gyy)),kmadd(dJ123L,PDstandard1gyy,kmadd(J23L,kmadd(J22L,PDstandard22gyy,kmul(J32L,PDstandard23gyy)),kmadd(dJ223L,PDstandard2gyy,kmadd(J33L,kmadd(J22L,PDstandard23gyy,kmul(J32L,PDstandard33gyy)),kmul(dJ323L,PDstandard3gyy)))))));
-      
       JacPDstandard32gyz = 
         kmadd(J13L,kmadd(J12L,PDstandard11gyz,kmadd(J22L,PDstandard12gyz,kmul(J32L,PDstandard13gyz))),kmadd(J12L,kmadd(J23L,PDstandard12gyz,kmul(J33L,PDstandard13gyz)),kmadd(dJ123L,PDstandard1gyz,kmadd(J23L,kmadd(J22L,PDstandard22gyz,kmul(J32L,PDstandard23gyz)),kmadd(dJ223L,PDstandard2gyz,kmadd(J33L,kmadd(J22L,PDstandard23gyz,kmul(J32L,PDstandard33gyz)),kmul(dJ323L,PDstandard3gyz)))))));
-      
-      JacPDstandard32gzz = 
-        kmadd(J13L,kmadd(J12L,PDstandard11gzz,kmadd(J22L,PDstandard12gzz,kmul(J32L,PDstandard13gzz))),kmadd(J12L,kmadd(J23L,PDstandard12gzz,kmul(J33L,PDstandard13gzz)),kmadd(dJ123L,PDstandard1gzz,kmadd(J23L,kmadd(J22L,PDstandard22gzz,kmul(J32L,PDstandard23gzz)),kmadd(dJ223L,PDstandard2gzz,kmadd(J33L,kmadd(J22L,PDstandard23gzz,kmul(J32L,PDstandard33gzz)),kmul(dJ323L,PDstandard3gzz)))))));
     }
     else
     {
@@ -1037,10 +929,6 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard3kyz = PDstandard3kyz;
       
-      JacPDstandard11gxy = PDstandard11gxy;
-      
-      JacPDstandard11gxz = PDstandard11gxz;
-      
       JacPDstandard11gyy = PDstandard11gyy;
       
       JacPDstandard11gyz = PDstandard11gyz;
@@ -1049,74 +937,36 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard22gxx = PDstandard22gxx;
       
-      JacPDstandard22gxy = PDstandard22gxy;
-      
       JacPDstandard22gxz = PDstandard22gxz;
       
-      JacPDstandard22gyz = PDstandard22gyz;
-      
       JacPDstandard22gzz = PDstandard22gzz;
       
       JacPDstandard33gxx = PDstandard33gxx;
       
       JacPDstandard33gxy = PDstandard33gxy;
       
-      JacPDstandard33gxz = PDstandard33gxz;
-      
       JacPDstandard33gyy = PDstandard33gyy;
       
-      JacPDstandard33gyz = PDstandard33gyz;
-      
-      JacPDstandard12gxx = PDstandard12gxx;
-      
       JacPDstandard12gxy = PDstandard12gxy;
       
       JacPDstandard12gxz = PDstandard12gxz;
       
-      JacPDstandard12gyy = PDstandard12gyy;
-      
       JacPDstandard12gyz = PDstandard12gyz;
       
       JacPDstandard12gzz = PDstandard12gzz;
       
-      JacPDstandard13gxx = PDstandard13gxx;
-      
-      JacPDstandard13gxy = PDstandard13gxy;
-      
       JacPDstandard13gxz = PDstandard13gxz;
       
-      JacPDstandard13gyy = PDstandard13gyy;
-      
-      JacPDstandard13gyz = PDstandard13gyz;
-      
-      JacPDstandard13gzz = PDstandard13gzz;
-      
-      JacPDstandard21gxx = PDstandard12gxx;
-      
       JacPDstandard21gxy = PDstandard12gxy;
       
-      JacPDstandard21gxz = PDstandard12gxz;
-      
-      JacPDstandard21gyy = PDstandard12gyy;
-      
-      JacPDstandard21gyz = PDstandard12gyz;
-      
-      JacPDstandard21gzz = PDstandard12gzz;
-      
       JacPDstandard23gxx = PDstandard23gxx;
       
       JacPDstandard23gxy = PDstandard23gxy;
       
       JacPDstandard23gxz = PDstandard23gxz;
       
-      JacPDstandard23gyy = PDstandard23gyy;
-      
       JacPDstandard23gyz = PDstandard23gyz;
       
-      JacPDstandard23gzz = PDstandard23gzz;
-      
-      JacPDstandard31gxx = PDstandard13gxx;
-      
       JacPDstandard31gxy = PDstandard13gxy;
       
       JacPDstandard31gxz = PDstandard13gxz;
@@ -1125,19 +975,7 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
       
       JacPDstandard31gyz = PDstandard13gyz;
       
-      JacPDstandard31gzz = PDstandard13gzz;
-      
-      JacPDstandard32gxx = PDstandard23gxx;
-      
-      JacPDstandard32gxy = PDstandard23gxy;
-      
-      JacPDstandard32gxz = PDstandard23gxz;
-      
-      JacPDstandard32gyy = PDstandard23gyy;
-      
       JacPDstandard32gyz = PDstandard23gyz;
-      
-      JacPDstandard32gzz = PDstandard23gzz;
     }
     
     CCTK_REAL_VEC detg = 
@@ -1347,438 +1185,42 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     
     CCTK_REAL_VEC nn = isqrt2;
     
-    CCTK_REAL_VEC R1111 = ToReal(0.);
-    
-    CCTK_REAL_VEC R1112 = 
-      kmul(ksub(JacPDstandard21gxx,JacPDstandard12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1113 = 
-      kmul(ksub(JacPDstandard31gxx,JacPDstandard13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1121 = 
-      kmul(ksub(JacPDstandard21gxx,JacPDstandard12gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1122 = ksub(JacPDstandard21gxy,JacPDstandard12gxy);
-    
-    CCTK_REAL_VEC R1123 = 
-      kmul(kadd(JacPDstandard21gxz,ksub(JacPDstandard31gxy,kadd(JacPDstandard13gxy,JacPDstandard12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1131 = 
-      kmul(ksub(JacPDstandard31gxx,JacPDstandard13gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1132 = 
-      kmul(kadd(JacPDstandard21gxz,ksub(JacPDstandard31gxy,kadd(JacPDstandard13gxy,JacPDstandard12gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1133 = ksub(JacPDstandard31gxz,JacPDstandard13gxz);
-    
-    CCTK_REAL_VEC R1211 = 
-      kmul(ksub(JacPDstandard12gxx,JacPDstandard21gxx),ToReal(0.5));
-    
     CCTK_REAL_VEC R1212 = 
       kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard22gxx),JacPDstandard11gyy)))));
     
     CCTK_REAL_VEC R1213 = 
       kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard23gxx),JacPDstandard11gyz))))));
     
-    CCTK_REAL_VEC R1221 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard21gxy),JacPDstandard12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R1222 = 
-      kmul(ksub(JacPDstandard21gyy,JacPDstandard12gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R1223 = 
       kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard23gxy),JacPDstandard12gyz))))));
     
-    CCTK_REAL_VEC R1231 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1232 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1233 = 
-      kmul(kadd(JacPDstandard31gyz,ksub(JacPDstandard32gxz,kadd(JacPDstandard23gxz,JacPDstandard13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1311 = 
-      kmul(ksub(JacPDstandard13gxx,JacPDstandard31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R1312 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard32gxx),JacPDstandard11gyz))))));
-    
     CCTK_REAL_VEC R1313 = 
       kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard33gxx),JacPDstandard11gzz)))));
     
-    CCTK_REAL_VEC R1321 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R1322 = 
-      kmul(kadd(JacPDstandard21gyz,ksub(JacPDstandard23gxy,kadd(JacPDstandard32gxy,JacPDstandard12gyz))),ToReal(0.5));
-    
     CCTK_REAL_VEC R1323 = 
       kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard33gxy),JacPDstandard12gzz))))));
     
-    CCTK_REAL_VEC R1331 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard31gxz),JacPDstandard13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R1332 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R1333 = 
-      kmul(ksub(JacPDstandard31gzz,JacPDstandard13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2111 = 
-      kmul(ksub(JacPDstandard12gxx,JacPDstandard21gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322))),kmadd(gamma121,kmul(kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard11gyy,kadd(JacPDstandard22gxx,kmadd(gyzL,kmul(gamma221,kmul(gamma321,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmul(gzzL,kmul(gamma311,gamma322))))))),ToReal(2.),JacPDstandard21gxy),JacPDstandard12gxy)))))),kmul(gxxL,kmul(gamma121,gamma121)))));
-    
-    CCTK_REAL_VEC R2113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard32gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard21gxz),JacPDstandard13gxy)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2121 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard12gxy,kadd(JacPDstandard21gxy,kmadd(kmadd(gxyL,kmul(gamma122,gamma211),kmadd(gyyL,kmul(gamma211,gamma222),kmadd(gxzL,kmul(gamma122,gamma311),kmadd(gyzL,kmul(gamma222,gamma311),kmadd(gyzL,kmul(gamma211,gamma322),kmadd(gzzL,kmul(gamma311,gamma322),kmul(gamma111,kmadd(gxxL,gamma122,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma121,gamma121),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma221,gamma221),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma321,gamma321),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma221,gamma321),kmul(gamma121,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)))),ToReal(4.))))),JacPDstandard22gxx),JacPDstandard11gyy)))));
-    
-    CCTK_REAL_VEC R2122 = 
-      kmul(ksub(JacPDstandard21gyy,JacPDstandard12gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard21gyz,kadd(JacPDstandard32gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard22gxz),JacPDstandard13gyy)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2131 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard12gxz,kadd(JacPDstandard31gxy,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard23gxx),JacPDstandard11gyz))))));
-    
-    CCTK_REAL_VEC R2132 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard22gxz,kadd(JacPDstandard31gyy,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard23gxy),JacPDstandard12gyz))))));
-    
-    CCTK_REAL_VEC R2133 = 
-      kmul(kadd(JacPDstandard31gyz,ksub(JacPDstandard32gxz,kadd(JacPDstandard23gxz,JacPDstandard13gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2211 = ksub(JacPDstandard12gxy,JacPDstandard21gxy);
-    
-    CCTK_REAL_VEC R2212 = 
-      kmul(ksub(JacPDstandard12gyy,JacPDstandard21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2213 = 
-      kmul(kadd(JacPDstandard12gyz,ksub(JacPDstandard32gxy,kadd(JacPDstandard23gxy,JacPDstandard21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2221 = 
-      kmul(ksub(JacPDstandard12gyy,JacPDstandard21gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2222 = ToReal(0.);
-    
-    CCTK_REAL_VEC R2223 = 
-      kmul(ksub(JacPDstandard32gyy,JacPDstandard23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2231 = 
-      kmul(kadd(JacPDstandard12gyz,ksub(JacPDstandard32gxy,kadd(JacPDstandard23gxy,JacPDstandard21gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2232 = 
-      kmul(ksub(JacPDstandard32gyy,JacPDstandard23gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2233 = ksub(JacPDstandard32gyz,JacPDstandard23gyz);
-    
-    CCTK_REAL_VEC R2311 = 
-      kmul(kadd(JacPDstandard12gxz,ksub(JacPDstandard13gxy,kadd(JacPDstandard31gxy,JacPDstandard21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R2312 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard32gxy),JacPDstandard21gyz))))));
-    
-    CCTK_REAL_VEC R2313 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard33gxy),JacPDstandard21gzz))))));
-    
-    CCTK_REAL_VEC R2321 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R2322 = 
-      kmul(ksub(JacPDstandard23gyy,JacPDstandard32gyy),ToReal(0.5));
-    
     CCTK_REAL_VEC R2323 = 
       kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard33gyy),JacPDstandard22gzz)))));
     
-    CCTK_REAL_VEC R2331 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R2332 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard32gyz),JacPDstandard23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R2333 = 
-      kmul(ksub(JacPDstandard32gzz,JacPDstandard23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3111 = 
-      kmul(ksub(JacPDstandard13gxx,JacPDstandard31gxx),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3112 = 
-      kmadd(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard11gyz,kadd(JacPDstandard23gxx,kmadd(kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gamma131,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmul(gzzL,kmul(gamma311,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma221,kmul(gamma231,ToReal(-2.)),kmul(gamma211,kmul(gamma232,ToReal(2.)))))),JacPDstandard31gxy),JacPDstandard12gxz)))),kmul(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3113 = 
-      kmadd(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma131,kmul(kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard11gzz,kadd(JacPDstandard33gxx,kmadd(gyzL,kmul(gamma231,kmul(gamma331,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmul(gzzL,kmul(gamma311,gamma333))))))),ToReal(2.),JacPDstandard31gxz),JacPDstandard13gxz)))))),kmul(gxxL,kmul(gamma131,gamma131)))));
-    
-    CCTK_REAL_VEC R3121 = 
-      kmadd(gamma121,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gxy,kadd(JacPDstandard21gxz,kmadd(kmadd(gyyL,kmul(gamma211,gamma232),kmadd(gyzL,kmul(gamma232,gamma311),kmadd(gamma132,kmadd(gxyL,gamma211,kmul(gxzL,gamma311)),kmadd(gyzL,kmul(gamma211,gamma332),kmadd(gzzL,kmul(gamma311,gamma332),kmul(gamma111,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma221),kmadd(gyyL,kmul(gamma221,gamma231),kmadd(gxzL,kmul(gamma131,gamma321),kmadd(gyzL,kmul(gamma231,gamma321),kmadd(gyzL,kmul(gamma221,gamma331),kmul(gzzL,kmul(gamma321,gamma331))))))),ToReal(2.),JacPDstandard32gxx),JacPDstandard11gyz))))));
-    
-    CCTK_REAL_VEC R3122 = 
-      kmul(kadd(JacPDstandard21gyz,ksub(JacPDstandard23gxy,kadd(JacPDstandard32gxy,JacPDstandard12gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3123 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard21gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard32gxz),JacPDstandard13gyz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3131 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard13gxz,kadd(JacPDstandard31gxz,kmadd(kmadd(gxyL,kmul(gamma133,gamma211),kmadd(gyyL,kmul(gamma211,gamma233),kmadd(gxzL,kmul(gamma133,gamma311),kmadd(gyzL,kmul(gamma233,gamma311),kmadd(gyzL,kmul(gamma211,gamma333),kmadd(gzzL,kmul(gamma311,gamma333),kmul(gamma111,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma131,gamma131),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma231,gamma231),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma331,gamma331),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma231,gamma331),kmul(gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)))),ToReal(4.))))),JacPDstandard33gxx),JacPDstandard11gzz)))));
-    
-    CCTK_REAL_VEC R3132 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard23gxz,kadd(JacPDstandard31gyz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard33gxy),JacPDstandard12gzz))))));
-    
-    CCTK_REAL_VEC R3133 = 
-      kmul(ksub(JacPDstandard31gzz,JacPDstandard13gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3211 = 
-      kmul(kadd(JacPDstandard12gxz,ksub(JacPDstandard13gxy,kadd(JacPDstandard31gxy,JacPDstandard21gxz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3212 = 
-      kmadd(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmsub(ToReal(0.5),kadd(JacPDstandard12gyz,kadd(JacPDstandard23gxy,kmadd(kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gamma131,kmadd(gxyL,gamma222,kmul(gxzL,gamma322)),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmul(gzzL,kmul(gamma321,gamma332))))),ToReal(2.),kmul(gyyL,kmadd(gamma222,kmul(gamma231,ToReal(-2.)),kmul(gamma221,kmul(gamma232,ToReal(2.)))))),JacPDstandard31gyy),JacPDstandard22gxz)))),kmul(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))))));
-    
-    CCTK_REAL_VEC R3213 = 
-      kmadd(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmsub(ToReal(0.5),kadd(JacPDstandard12gzz,kadd(JacPDstandard33gxy,kmadd(kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gamma132,kmadd(gxyL,gamma231,kmul(gxzL,gamma331)),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))),ToReal(-2.),ksub(ksub(kmadd(kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmul(gzzL,kmul(gamma321,gamma333))))),ToReal(2.),kmul(gyyL,kmadd(gamma231,kmul(gamma232,ToReal(-2.)),kmul(gamma221,kmul(gamma233,ToReal(2.)))))),JacPDstandard31gyz),JacPDstandard23gxz)))),kmul(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))));
-    
-    CCTK_REAL_VEC R3221 = 
-      kmadd(gamma122,kmadd(gxxL,gamma131,kmadd(gxyL,gamma231,kmul(gxzL,gamma331))),kmul(ToReal(0.5),kadd(JacPDstandard13gyy,kadd(JacPDstandard22gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma232),kmadd(gyzL,kmul(gamma232,gamma321),kmadd(gamma132,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma332),kmadd(gzzL,kmul(gamma321,gamma332),kmul(gamma121,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma131,gamma222),kmadd(gyyL,kmul(gamma222,gamma231),kmadd(gxzL,kmul(gamma131,gamma322),kmadd(gyzL,kmul(gamma231,gamma322),kmadd(gyzL,kmul(gamma222,gamma331),kmul(gzzL,kmul(gamma322,gamma331))))))),ToReal(2.),JacPDstandard32gxy),JacPDstandard21gyz))))));
-    
-    CCTK_REAL_VEC R3222 = 
-      kmul(ksub(JacPDstandard23gyy,JacPDstandard32gyy),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3223 = 
-      kmadd(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))),kmadd(gamma132,kmul(kmadd(gxyL,gamma232,kmul(gxzL,gamma332)),ToReal(-2.)),kmsub(ToReal(0.5),kadd(JacPDstandard22gzz,kadd(JacPDstandard33gyy,kmadd(gyzL,kmul(gamma232,kmul(gamma332,ToReal(-4.))),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(-2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(-2.)),ksub(kmsub(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmul(gzzL,kmul(gamma322,gamma333))))))),ToReal(2.),JacPDstandard32gyz),JacPDstandard23gyz)))))),kmul(gxxL,kmul(gamma132,gamma132)))));
-    
-    CCTK_REAL_VEC R3231 = 
-      kmadd(gamma131,kmadd(gxxL,gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332))),kmul(ToReal(0.5),kadd(JacPDstandard13gyz,kadd(JacPDstandard32gxz,kmadd(kmadd(gyyL,kmul(gamma221,gamma233),kmadd(gyzL,kmul(gamma233,gamma321),kmadd(gamma133,kmadd(gxyL,gamma221,kmul(gxzL,gamma321)),kmadd(gyzL,kmul(gamma221,gamma333),kmadd(gzzL,kmul(gamma321,gamma333),kmul(gamma121,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333))))))))),ToReal(-2.),ksub(kmsub(kmadd(gxyL,kmul(gamma132,gamma231),kmadd(gyyL,kmul(gamma231,gamma232),kmadd(gxzL,kmul(gamma132,gamma331),kmadd(gyzL,kmul(gamma232,gamma331),kmadd(gyzL,kmul(gamma231,gamma332),kmul(gzzL,kmul(gamma331,gamma332))))))),ToReal(2.),JacPDstandard33gxy),JacPDstandard21gzz))))));
-    
-    CCTK_REAL_VEC R3232 = 
-      kmul(ToReal(0.5),kadd(JacPDstandard23gyz,kadd(JacPDstandard32gyz,kmadd(kmadd(gxyL,kmul(gamma133,gamma222),kmadd(gyyL,kmul(gamma222,gamma233),kmadd(gxzL,kmul(gamma133,gamma322),kmadd(gyzL,kmul(gamma233,gamma322),kmadd(gyzL,kmul(gamma222,gamma333),kmadd(gzzL,kmul(gamma322,gamma333),kmul(gamma122,kmadd(gxxL,gamma133,kmadd(gxyL,gamma233,kmul(gxzL,gamma333)))))))))),ToReal(-2.),ksub(ksub(kmadd(gxxL,kmul(kmul(gamma132,gamma132),ToReal(2.)),kmadd(gyyL,kmul(kmul(gamma232,gamma232),ToReal(2.)),kmadd(gzzL,kmul(kmul(gamma332,gamma332),ToReal(2.)),kmul(kmadd(gyzL,kmul(gamma232,gamma332),kmul(gamma132,kmadd(gxyL,gamma232,kmul(gxzL,gamma332)))),ToReal(4.))))),JacPDstandard33gyy),JacPDstandard22gzz)))));
-    
-    CCTK_REAL_VEC R3233 = 
-      kmul(ksub(JacPDstandard32gzz,JacPDstandard23gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3311 = ksub(JacPDstandard13gxz,JacPDstandard31gxz);
-    
-    CCTK_REAL_VEC R3312 = 
-      kmul(kadd(JacPDstandard13gyz,ksub(JacPDstandard23gxz,kadd(JacPDstandard32gxz,JacPDstandard31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3313 = 
-      kmul(ksub(JacPDstandard13gzz,JacPDstandard31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3321 = 
-      kmul(kadd(JacPDstandard13gyz,ksub(JacPDstandard23gxz,kadd(JacPDstandard32gxz,JacPDstandard31gyz))),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3322 = ksub(JacPDstandard23gyz,JacPDstandard32gyz);
-    
-    CCTK_REAL_VEC R3323 = 
-      kmul(ksub(JacPDstandard23gzz,JacPDstandard32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3331 = 
-      kmul(ksub(JacPDstandard13gzz,JacPDstandard31gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3332 = 
-      kmul(ksub(JacPDstandard23gzz,JacPDstandard32gzz),ToReal(0.5));
-    
-    CCTK_REAL_VEC R3333 = ToReal(0.);
-    
-    CCTK_REAL_VEC R4p1111 = R1111;
-    
-    CCTK_REAL_VEC R4p1112 = R1112;
-    
-    CCTK_REAL_VEC R4p1113 = R1113;
-    
-    CCTK_REAL_VEC R4p1121 = R1121;
-    
-    CCTK_REAL_VEC R4p1122 = R1122;
-    
-    CCTK_REAL_VEC R4p1123 = R1123;
-    
-    CCTK_REAL_VEC R4p1131 = R1131;
-    
-    CCTK_REAL_VEC R4p1132 = R1132;
-    
-    CCTK_REAL_VEC R4p1133 = R1133;
-    
-    CCTK_REAL_VEC R4p1211 = R1211;
-    
     CCTK_REAL_VEC R4p1212 = 
       kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212));
     
     CCTK_REAL_VEC R4p1213 = 
       kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213));
     
-    CCTK_REAL_VEC R4p1221 = 
-      kadd(R1221,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p1222 = R1222;
-    
     CCTK_REAL_VEC R4p1223 = 
       kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1223));
     
-    CCTK_REAL_VEC R4p1231 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1231));
-    
-    CCTK_REAL_VEC R4p1232 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232));
-    
-    CCTK_REAL_VEC R4p1233 = R1233;
-    
-    CCTK_REAL_VEC R4p1311 = R1311;
-    
-    CCTK_REAL_VEC R4p1312 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312));
-    
     CCTK_REAL_VEC R4p1313 = 
       kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313));
     
-    CCTK_REAL_VEC R4p1321 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1321));
-    
-    CCTK_REAL_VEC R4p1322 = R1322;
-    
     CCTK_REAL_VEC R4p1323 = 
       kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323));
     
-    CCTK_REAL_VEC R4p1331 = 
-      kadd(R1331,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p1332 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1332));
-    
-    CCTK_REAL_VEC R4p1333 = R1333;
-    
-    CCTK_REAL_VEC R4p2111 = R2111;
-    
-    CCTK_REAL_VEC R4p2112 = 
-      kadd(R2112,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)));
-    
-    CCTK_REAL_VEC R4p2113 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2113));
-    
-    CCTK_REAL_VEC R4p2121 = 
-      kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121));
-    
-    CCTK_REAL_VEC R4p2122 = R2122;
-    
-    CCTK_REAL_VEC R4p2123 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123));
-    
-    CCTK_REAL_VEC R4p2131 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131));
-    
-    CCTK_REAL_VEC R4p2132 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2132));
-    
-    CCTK_REAL_VEC R4p2133 = R2133;
-    
-    CCTK_REAL_VEC R4p2211 = R2211;
-    
-    CCTK_REAL_VEC R4p2212 = R2212;
-    
-    CCTK_REAL_VEC R4p2213 = R2213;
-    
-    CCTK_REAL_VEC R4p2221 = R2221;
-    
-    CCTK_REAL_VEC R4p2222 = R2222;
-    
-    CCTK_REAL_VEC R4p2223 = R2223;
-    
-    CCTK_REAL_VEC R4p2231 = R2231;
-    
-    CCTK_REAL_VEC R4p2232 = R2232;
-    
-    CCTK_REAL_VEC R4p2233 = R2233;
-    
-    CCTK_REAL_VEC R4p2311 = R2311;
-    
-    CCTK_REAL_VEC R4p2312 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2312));
-    
-    CCTK_REAL_VEC R4p2313 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313));
-    
-    CCTK_REAL_VEC R4p2321 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321));
-    
-    CCTK_REAL_VEC R4p2322 = R2322;
-    
     CCTK_REAL_VEC R4p2323 = 
       kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323));
     
-    CCTK_REAL_VEC R4p2331 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2331));
-    
-    CCTK_REAL_VEC R4p2332 = 
-      kadd(R2332,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p2333 = R2333;
-    
-    CCTK_REAL_VEC R4p3111 = R3111;
-    
-    CCTK_REAL_VEC R4p3112 = 
-      kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3112));
-    
-    CCTK_REAL_VEC R4p3113 = 
-      kadd(R3113,kmsub(kxzL,kxzL,kmul(kxxL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3121 = 
-      kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121));
-    
-    CCTK_REAL_VEC R4p3122 = R3122;
-    
-    CCTK_REAL_VEC R4p3123 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3123));
-    
-    CCTK_REAL_VEC R4p3131 = 
-      kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131));
-    
-    CCTK_REAL_VEC R4p3132 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132));
-    
-    CCTK_REAL_VEC R4p3133 = R3133;
-    
-    CCTK_REAL_VEC R4p3211 = R3211;
-    
-    CCTK_REAL_VEC R4p3212 = 
-      kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212));
-    
-    CCTK_REAL_VEC R4p3213 = 
-      kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3213));
-    
-    CCTK_REAL_VEC R4p3221 = 
-      kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3221));
-    
-    CCTK_REAL_VEC R4p3222 = R3222;
-    
-    CCTK_REAL_VEC R4p3223 = 
-      kadd(R3223,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)));
-    
-    CCTK_REAL_VEC R4p3231 = 
-      kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231));
-    
-    CCTK_REAL_VEC R4p3232 = 
-      kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232));
-    
-    CCTK_REAL_VEC R4p3233 = R3233;
-    
-    CCTK_REAL_VEC R4p3311 = R3311;
-    
-    CCTK_REAL_VEC R4p3312 = R3312;
-    
-    CCTK_REAL_VEC R4p3313 = R3313;
-    
-    CCTK_REAL_VEC R4p3321 = R3321;
-    
-    CCTK_REAL_VEC R4p3322 = R3322;
-    
-    CCTK_REAL_VEC R4p3323 = R3323;
-    
-    CCTK_REAL_VEC R4p3331 = R3331;
-    
-    CCTK_REAL_VEC R4p3332 = R3332;
-    
-    CCTK_REAL_VEC R4p3333 = R3333;
-    
     CCTK_REAL_VEC Ro111 = ToReal(0.);
     
     CCTK_REAL_VEC Ro112 = 
@@ -1852,61 +1294,61 @@ static void psis_calc_Nth_Body(cGH const * restrict const cctkGH, int const dir,
     CCTK_REAL_VEC Ro333 = ToReal(0.);
     
     CCTK_REAL_VEC Rojo11 = 
-      kmadd(gInv11,R1111,kmadd(gInv12,R1112,kmadd(gInv13,R1113,kmadd(gInv21,R1211,kmadd(gInv31,R1311,kmadd(gInv23,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv32,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1312)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))))))))));
+      kmadd(kadd(gInv23,gInv32),kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv22,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)))));
     
     CCTK_REAL_VEC Rojo12 = 
-      kmadd(gInv11,R1121,kmadd(gInv21,R1221,kmadd(gInv22,R1222,kmadd(gInv23,R1223,kmadd(gInv31,R1321,kmadd(gInv12,kadd(R1122,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv32,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R1322)),kmadd(gInv13,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1123)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))))));
+      kmadd(gInv23,R1223,knmsub(gInv21,R1212,knmsub(gInv31,R1213,kmadd(gInv12,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv32,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo13 = 
-      kmadd(gInv11,R1131,kmadd(gInv21,R1231,kmadd(gInv31,R1331,kmadd(gInv32,R1332,kmadd(gInv33,R1333,kmadd(gInv12,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R1132)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R1232)),kmadd(gInv13,kadd(R1133,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv23,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R1233)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv23),kmadd(gInv13,kmul(kxzL,kxzL),knmsub(gInv21,R1213,knmsub(gInv31,R1313,knmsub(gInv32,R1323,kmadd(gInv12,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv23,kmul(kxxL,gInv13))))))))));
     
     CCTK_REAL_VEC Rojo21 = 
-      kmadd(gInv11,R2111,kmadd(gInv12,R2112,kmadd(gInv13,R2113,kmadd(gInv22,R2212,kmadd(gInv32,R2312,kmadd(gInv21,kadd(R2211,kmsub(kxyL,kxyL,kmul(kxxL,kyyL))),kmadd(gInv23,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2213)),kmadd(gInv31,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R2311)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R2313)))))))))));
+      kmadd(gInv32,R1223,knmsub(gInv12,R1212,knmsub(gInv13,R1213,kmadd(gInv21,kmsub(kxyL,kxyL,kmul(kxxL,kyyL)),kmadd(gInv23,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmul(gInv33,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)))))))));
     
     CCTK_REAL_VEC Rojo22 = 
-      kmadd(gInv12,R2122,kmadd(gInv21,R2221,kmadd(gInv22,R2222,kmadd(gInv23,R2223,kmadd(gInv32,R2322,kmadd(gInv13,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2123)),kmadd(gInv31,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R2321)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R2121)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))))))))));
+      kmadd(kadd(gInv13,gInv31),kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmadd(gInv11,kmadd(kxxL,kyyL,knmsub(kxyL,kxyL,R1212)),kmul(gInv33,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Rojo23 = 
-      kmadd(gInv12,R2132,kmadd(gInv22,R2232,kmadd(gInv31,R2331,kmadd(gInv32,R2332,kmadd(gInv33,R2333,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R2131)),kmadd(gInv21,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R2231)),kmadd(gInv13,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R2133)),kmul(gInv23,kadd(R2233,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv12,R1223,knmsub(gInv31,R1323,knmsub(gInv32,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv21,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv13,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv23,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo31 = 
-      kmadd(gInv11,R3111,kmadd(gInv12,R3112,kmadd(gInv13,R3113,kmadd(gInv23,R3213,kmadd(gInv33,R3313,kmadd(gInv21,kmadd(kxyL,kxzL,knmsub(kxxL,kyzL,R3211)),kmadd(gInv22,kmadd(kxzL,kyyL,knmsub(kxyL,kyzL,R3212)),kmadd(gInv31,kadd(R3311,kmsub(kxzL,kxzL,kmul(kxxL,kzzL))),kmul(gInv32,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3312)))))))))));
+      kmadd(kxzL,kmul(kyzL,gInv32),kmadd(gInv31,kmul(kxzL,kxzL),knmsub(gInv12,R1213,knmsub(gInv13,R1313,knmsub(gInv23,R1323,kmadd(gInv21,kmsub(kxyL,kxzL,kmul(kxxL,kyzL)),kmsub(gInv22,kmsub(kxzL,kyyL,kmadd(kxyL,kyzL,R1223)),kmul(kzzL,kmadd(kxyL,gInv32,kmul(kxxL,gInv31))))))))));
     
     CCTK_REAL_VEC Rojo32 = 
-      kmadd(gInv13,R3123,kmadd(gInv21,R3221,kmadd(gInv22,R3222,kmadd(gInv23,R3223,kmadd(gInv33,R3323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R3121)),kmadd(gInv12,kmadd(kxyL,kyzL,knmsub(kxzL,kyyL,R3122)),kmadd(gInv31,kmadd(kxzL,kyzL,knmsub(kxyL,kzzL,R3321)),kmul(gInv32,kadd(R3322,kmsub(kyzL,kyzL,kmul(kyyL,kzzL))))))))))));
+      kmadd(gInv21,R1223,knmsub(gInv13,R1323,knmsub(gInv23,R2323,kmadd(gInv11,kmadd(kxxL,kyzL,knmsub(kxyL,kxzL,R1213)),kmadd(gInv12,kmsub(kxyL,kyzL,kmul(kxzL,kyyL)),kmadd(gInv31,kmsub(kxzL,kyzL,kmul(kxyL,kzzL)),kmul(gInv32,kmsub(kyzL,kyzL,kmul(kyyL,kzzL)))))))));
     
     CCTK_REAL_VEC Rojo33 = 
-      kmadd(gInv13,R3133,kmadd(gInv23,R3233,kmadd(gInv31,R3331,kmadd(gInv32,R3332,kmadd(gInv33,R3333,kmadd(gInv12,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3132)),kmadd(gInv21,kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R3231)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R3131)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R3232)))))))))));
+      kmadd(kadd(gInv12,gInv21),kmadd(kxyL,kzzL,knmsub(kxzL,kyzL,R1323)),kmadd(gInv11,kmadd(kxxL,kzzL,knmsub(kxzL,kxzL,R1313)),kmul(gInv22,kmadd(kyyL,kzzL,knmsub(kyzL,kyzL,R2323)))));
     
     CCTK_REAL_VEC Psi4rL = 
-      kmadd(R4p1112,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1211,kmul(rmbar1,kmul(rmbar2,kmul(n1,n1))),kmadd(R4p1113,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1311,kmul(rmbar1,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p1312,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmadd(R4p2122,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2221,kmul(rmbar1,kmul(rmbar2,kmul(n2,n2))),kmadd(R4p2123,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2321,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2223,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p2322,kmul(rmbar2,kmul(rmbar3,kmul(n2,n2))),kmadd(R4p3132,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3231,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3))),kmadd(R4p3133,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3331,kmul(rmbar1,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3233,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(R4p3332,kmul(rmbar2,kmul(rmbar3,kmul(n3,n3))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(n1,kmul(n2,kmul(R4p1121,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p1131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n2,kmul(R4p2111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p2131,kmul(rmbar1,rmbar1))),kmadd(n1,kmul(n3,kmul(R4p3111,kmul(rmbar1,rmbar1))),kmadd(n2,kmul(n3,kmul(R4p3121,kmul(rmbar1,rmbar1))),kmadd(R4p1111,kmul(kmul(n1,n1),kmul(rmbar1,rmbar1)),kmadd(R4p2121,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(R4p3131,kmul(kmul(n3,n3),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(n1,kmul(n2,kmul(R4p1222,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n2,kmul(R4p2212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p2232,kmul(rmbar2,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p3212,kmul(rmbar2,rmbar2))),kmadd(n2,kmul(n3,kmul(R4p3222,kmul(rmbar2,rmbar2))),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(R4p2222,kmul(kmul(n2,n2),kmul(rmbar2,rmbar2)),kmadd(R4p3232,kmul(kmul(n3,n3),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p2313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2333,kmul(rmbar3,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p3313,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p3323,kmul(rmbar3,rmbar3))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(imbar3,imbar3),ToReal(-2.)))),knmsub(n3,kmul(kmul(imbar3,imbar3),kmadd(n1,R4p3313,kmul(n2,R4p2333))),kmadd(kmul(imbar3,imbar3),kmsub(n1,kmul(nn,kmul(Ro313,ToReal(-2.))),kmul(n2,kmul(n3,R4p3323))),kmadd(R4p1313,kmsub(kmul(n1,n1),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n2,n2),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(R4p3333,kmsub(kmul(n3,n3),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(n3,n3))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmadd(n3,kmul(R4p1132,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1221,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p1231,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p1123,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1331,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2113,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p1233,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p1322,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p1332,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p2213,kmul(rmbar2,rmbar3)),kmadd(n2,kmsub(R4p1122,kmul(rmbar1,rmbar2),kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro112,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro113,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro211,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro213,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro311,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro312,ToReal(2.))))))))))))))))))))),kmadd(n2,kmadd(n3,kmul(R4p2132,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p2211,kmul(rmbar1,rmbar2)),kmadd(n3,kmul(R4p2231,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1321,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p2133,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p2311,kmul(rmbar1,rmbar3)),kmadd(n3,kmul(R4p3321,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p1223,kmul(rmbar2,rmbar3)),kmadd(n3,kmul(R4p2233,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p2312,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p2112,kmul(rmbar1,rmbar2),kmul(R4p2313,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro123,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro223,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro322,ToReal(2.))))))))))))))))))))),kmsub(n3,kmadd(n2,kmul(R4p3122,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p3211,kmul(rmbar1,rmbar2)),kmadd(n2,kmul(R4p3221,kmul(rmbar1,rmbar2)),kmadd(n1,kmul(R4p1133,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2331,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3113,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p3123,kmul(rmbar1,rmbar3)),kmadd(n1,kmul(R4p3311,kmul(rmbar1,rmbar3)),kmadd(n2,kmul(R4p2332,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3213,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3223,kmul(rmbar2,rmbar3)),kmadd(n1,kmul(R4p3312,kmul(rmbar2,rmbar3)),kmadd(n2,kmul(R4p3322,kmul(rmbar2,rmbar3)),kmadd(n1,kmsub(R4p3112,kmul(rmbar1,rmbar2),kmul(R4p1333,kmul(imbar3,imbar3))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro132,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro133,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro231,ToReal(2.)))),kmadd(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro233,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro331,ToReal(2.)))),kmul(nn,kmul(rmbar2,kmul(rmbar3,kmul(Ro332,ToReal(2.)))))))))))))))))))))))),kmadd(kmul(imbar1,imbar1),kmadd(n2,kmul(n3,R4p2131),kmadd(n2,kmul(n3,R4p3121),kmadd(R4p1111,kmul(n1,n1),kmadd(R4p2121,kmul(n2,n2),kmadd(R4p3131,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro121,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1121,R4p2111),kmadd(n3,kadd(R4p1131,R4p3111),kmul(nn,kmul(Ro111,ToReal(2.)))))))))))))),kmadd(kmul(imbar2,imbar2),kmadd(n2,kmul(n3,R4p2232),kmadd(n2,kmul(n3,R4p3222),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2222,kmul(n2,n2),kmadd(R4p3232,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro232,ToReal(2.))),kmul(n1,kmadd(n2,kadd(R4p1222,R4p2212),kmadd(n3,kadd(R4p1232,R4p3212),kmul(nn,kmul(Ro212,ToReal(2.)))))))))))))),kmadd(imbar2,kmul(imbar3,kmadd(kadd(R4p1213,R4p1312),kmul(n1,n1),kmadd(kadd(R4p2223,R4p2322),kmul(n2,n2),kmadd(R4p3233,kmul(n3,n3),kmadd(R4p3332,kmul(n3,n3),kmadd(Rojo23,kmul(nn,nn),kmadd(Rojo32,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro233,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro332,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),kmadd(n3,kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),kmul(nn,kmul(kadd(Ro213,Ro312),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.))))))))))))))),kmul(imbar1,kmadd(imbar2,kmadd(kadd(R4p1112,R4p1211),kmul(n1,n1),kmadd(kadd(R4p2122,R4p2221),kmul(n2,n2),kmadd(R4p3132,kmul(n3,n3),kmadd(R4p3231,kmul(n3,n3),kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),kmadd(n3,kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),kmul(nn,kmul(kadd(Ro112,Ro211),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),kmul(nn,kmul(kadd(Ro122,Ro221),ToReal(2.)))))))))))))),kmul(imbar3,kmadd(kadd(R4p1113,R4p1311),kmul(n1,n1),kmadd(kadd(R4p2123,R4p2321),kmul(n2,n2),kmadd(R4p3133,kmul(n3,n3),kmadd(R4p3331,kmul(n3,n3),kmadd(Rojo13,kmul(nn,nn),kmadd(Rojo31,kmul(nn,nn),kmadd(n3,kmul(nn,kmul(Ro133,ToReal(2.))),kmadd(n3,kmul(nn,kmul(Ro331,ToReal(2.))),kmadd(n1,kmadd(n2,kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),kmadd(n3,kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),kmul(nn,kmul(kadd(Ro113,Ro311),ToReal(2.))))),kmul(n2,kmadd(n3,kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),kmul(nn,kmul(kadd(Ro123,Ro321),ToReal(2.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(rmbar1,kmul(rmbar2,kmul(Rojo12,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo13,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar2,kmul(Rojo21,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo23,kmul(nn,nn))),kmadd(rmbar1,kmul(rmbar3,kmul(Rojo31,kmul(nn,nn))),kmadd(rmbar2,kmul(rmbar3,kmul(Rojo32,kmul(nn,nn))),kmadd(R4p1212,kmul(kmul(n2,n2),kmul(rmbar1,rmbar1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rmbar1,rmbar1)),kmadd(R4p1212,kmul(kmul(n1,n1),kmul(rmbar2,rmbar2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rmbar2,rmbar2)),kmadd(R4p1313,kmul(kmul(n1,n1),kmul(rmbar3,rmbar3)),kmadd(R4p2323,kmul(kmul(n2,n2),kmul(rmbar3,rmbar3)),kmadd(kmadd(n1,kmul(n2,kmul(R4p1212,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1213,kmul(rmbar1,rmbar2))),kmadd(n1,kmul(n3,kmul(R4p1313,kmul(rmbar1,rmbar3))),kmadd(n1,kmul(n3,kmul(R4p1323,kmul(rmbar2,rmbar3))),kmadd(n2,kmul(n3,kmul(R4p2323,kmul(rmbar2,rmbar3))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(imbar3,imbar3))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(imbar3,imbar3))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(imbar3,imbar3))),kmul(R4p1223,kmul(rmbar1,kmul(rmbar3,kmul(n2,n2)))))))))))),ToReal(-2.),kmadd(n1,kmul(n3,kmul(R4p1223,kmul(kmul(rmbar2,rmbar2),ToReal(-2.)))),kmadd(R4p1313,kmsub(kmul(n3,n3),kmul(rmbar1,rmbar1),kmul(kmul(imbar3,imbar3),kmul(n1,n1))),kmadd(R4p2323,kmsub(kmul(n3,n3),kmul(rmbar2,rmbar2),kmul(kmul(imbar3,imbar3),kmul(n2,n2))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rmbar3,rmbar3),kmul(kmul(imbar3,imbar3),kmul(nn,nn))),kmadd(kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro112))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro113))),kmadd(n2,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro123))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro132))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro133))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro211))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro213))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro223))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar2,Ro231))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro233))),kmadd(n1,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro311))),kmadd(n1,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro312))),kmadd(n2,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro322))),kmadd(n3,kmul(nn,kmul(rmbar1,kmul(rmbar3,Ro331))),kmadd(n3,kmul(nn,kmul(rmbar2,kmul(rmbar3,Ro332))),kmadd(R4p1213,kmul(rmbar2,kmul(rmbar3,kmul(n1,n1))),kmul(R4p1323,kmul(rmbar1,kmul(rmbar2,kmul(n3,n3)))))))))))))))))))),ToReal(2.),kmadd(n1,kmul(nn,kmul(Ro111,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro121,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro131,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro212,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro222,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro232,kmul(kmul(rmbar2,rmbar2),ToReal(2.)))),kmadd(n1,kmul(n2,kmul(R4p1323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n1,kmul(nn,kmul(Ro313,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n2,kmul(nn,kmul(Ro323,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),kmadd(n3,kmul(nn,kmul(Ro333,kmul(kmul(rmbar3,rmbar3),ToReal(2.)))),knmsub(kmul(imbar2,imbar2),kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2323,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n1,kmul(n3,kmul(R4p1223,ToReal(-2.))),kmadd(n1,kmul(nn,kmul(Ro212,ToReal(2.))),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(2.))),kmul(n3,kmul(nn,kmul(Ro232,ToReal(2.)))))))))),kmadd(n2,kmadd(n1,kmul(R4p1213,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(n3,kmul(R4p1323,kmul(rmbar1,kmul(rmbar3,ToReal(-2.)))),kmadd(nn,kmul(Ro323,kmul(kmul(imbar3,imbar3),ToReal(-2.))),kmadd(n3,kmul(R4p1223,kmul(rmbar1,kmul(rmbar2,ToReal(2.)))),kmadd(n1,kmul(R4p1223,kmul(rmbar2,kmul(rmbar3,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rmbar1,kmul(rmbar3,kmul(Ro321,ToReal(2.)))),kmul(n3,kmul(R4p1213,kmul(kmul(rmbar1,rmbar1),ToReal(2.)))))))))))),knmsub(kmul(imbar1,imbar1),kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(n2,kmul(kmadd(n3,R4p1213,kmul(nn,Ro121)),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(nn,kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.))))))))),kmsub(imbar1,kmul(imbar3,kmadd(R4p1223,kmul(kmul(n2,n2),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1213,kmsub(n3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),ToReal(2.)),kmsub(n2,kmul(kmsub(n3,R4p1323,kmul(nn,kadd(Ro123,Ro321))),ToReal(2.)),kmul(nn,kmadd(nn,kadd(Rojo13,Rojo31),kmul(n3,kmul(kadd(Ro133,Ro331),ToReal(2.))))))))),kmul(imbar2,kmadd(imbar3,kmadd(R4p1213,kmul(kmul(n1,n1),ToReal(2.)),kmadd(n1,kmul(kmadd(n2,R4p1223,kmsub(nn,kadd(Ro213,Ro312),kmul(n3,R4p1323))),ToReal(2.)),kmadd(n2,kmadd(n3,kmul(R4p2323,ToReal(-2.)),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.)))),kmul(nn,kmadd(nn,kadd(Rojo23,Rojo32),kmul(n3,kmul(kadd(Ro233,Ro332),ToReal(2.)))))))),kmul(imbar1,kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(n1,kmul(ToReal(-2.),kmadd(n2,R4p1212,kmsub(n3,R4p1213,kmul(nn,kadd(Ro112,Ro211))))),kmadd(n3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(n2,kmul(kmadd(n3,R4p1223,kmul(nn,kadd(Ro122,Ro221))),ToReal(2.)),kmadd(n3,kmul(nn,kmul(Ro231,ToReal(2.))),kmul(R4p1323,kmul(kmul(n3,n3),ToReal(2.))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi4iL = 
-      knmadd(im1,kmadd(R4p3132,kmul(rm2,kmul(n3,n3)),kmadd(R4p3231,kmul(rm2,kmul(n3,n3)),kmadd(R4p3133,kmul(rm3,kmul(n3,n3)),kmadd(R4p3331,kmul(rm3,kmul(n3,n3)),kmadd(rm2,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro331,ToReal(2.)))),kmadd(R4p3131,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm1,kmul(Rojo11,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm2,kmadd(R4p1211,rm2,kmadd(R4p1113,rm3,kmadd(R4p1311,rm3,kmul(R4p1111,kmul(rm1,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm2,kmadd(R4p2221,rm2,kmadd(R4p2123,rm3,kmadd(R4p2321,rm3,kmul(R4p2121,kmul(rm1,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm2,kmadd(R4p1221,rm2,kmadd(R4p2112,rm2,kmadd(R4p2211,rm2,kmadd(R4p1123,rm3,kmadd(R4p1321,rm3,kmadd(R4p2113,rm3,kmadd(R4p2311,rm3,kmadd(R4p1121,kmul(rm1,ToReal(2.)),kmul(R4p2111,kmul(rm1,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm2,kmadd(R4p1231,rm2,kmadd(R4p3112,rm2,kmadd(R4p3211,rm2,kmadd(R4p1133,rm3,kmadd(R4p1331,rm3,kmadd(R4p3113,rm3,kmadd(R4p3311,rm3,kmadd(R4p1131,kmul(rm1,ToReal(2.)),kmul(R4p3111,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm2,kmadd(R4p2231,rm2,kmadd(R4p3122,rm2,kmadd(R4p3221,rm2,kmadd(R4p2133,rm3,kmadd(R4p2331,rm3,kmadd(R4p3123,rm3,kmadd(R4p3321,rm3,kmadd(R4p2131,kmul(rm1,ToReal(2.)),kmul(R4p3121,kmul(rm1,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm1,kmul(Ro131,ToReal(4.))))))))))))))))))))))),kmadd(im3,kmadd(R4p3133,kmul(rm1,kmul(n3,n3)),kmadd(R4p3331,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm2,kmul(n3,n3)),kmadd(R4p3332,kmul(rm2,kmul(n3,n3)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(rm1,kmul(Rojo31,kmul(nn,nn)),kmadd(rm2,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro133,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro331,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro332,ToReal(2.)))),kmadd(R4p3333,kmul(rm3,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm3,kmul(Rojo33,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1113,rm1,kmadd(R4p1311,rm1,kmadd(R4p1213,rm2,kmadd(R4p1312,rm2,kmul(R4p1313,kmul(rm3,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2123,rm1,kmadd(R4p2321,rm1,kmadd(R4p2223,rm2,kmadd(R4p2322,rm2,kmul(R4p2323,kmul(rm3,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1123,rm1,kmadd(R4p1321,rm1,kmadd(R4p2113,rm1,kmadd(R4p2311,rm1,kmadd(R4p1223,rm2,kmadd(R4p1322,rm2,kmadd(R4p2213,rm2,kmadd(R4p2312,rm2,kmadd(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p2313,kmul(rm3,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1133,rm1,kmadd(R4p1331,rm1,kmadd(R4p3113,rm1,kmadd(R4p3311,rm1,kmadd(R4p1233,rm2,kmadd(R4p1332,rm2,kmadd(R4p3213,rm2,kmadd(R4p3312,rm2,kmadd(R4p1333,kmul(rm3,ToReal(2.)),kmul(R4p3313,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2133,rm1,kmadd(R4p2331,rm1,kmadd(R4p3123,rm1,kmadd(R4p3321,rm1,kmadd(R4p2233,rm2,kmadd(R4p2332,rm2,kmadd(R4p3223,rm2,kmadd(R4p3322,rm2,kmadd(R4p2333,kmul(rm3,ToReal(2.)),kmul(R4p3323,kmul(rm3,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm3,kmul(Ro333,ToReal(4.))))))))))))))))))))))),kmul(im2,kmadd(R4p3132,kmul(rm1,kmul(n3,n3)),kmadd(R4p3231,kmul(rm1,kmul(n3,n3)),kmadd(R4p3233,kmul(rm3,kmul(n3,n3)),kmadd(R4p3332,kmul(rm3,kmul(n3,n3)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(R4p3232,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(kmul(n1,n1),kmadd(R4p1112,rm1,kmadd(R4p1211,rm1,kmadd(R4p1213,rm3,kmadd(R4p1312,rm3,kmul(R4p1212,kmul(rm2,ToReal(2.))))))),kmadd(kmul(n2,n2),kmadd(R4p2122,rm1,kmadd(R4p2221,rm1,kmadd(R4p2223,rm3,kmadd(R4p2322,rm3,kmul(R4p2222,kmul(rm2,ToReal(2.))))))),kmadd(n1,kmadd(n2,kmadd(R4p1122,rm1,kmadd(R4p1221,rm1,kmadd(R4p2112,rm1,kmadd(R4p2211,rm1,kmadd(R4p1223,rm3,kmadd(R4p1322,rm3,kmadd(R4p2213,rm3,kmadd(R4p2312,rm3,kmadd(R4p1222,kmul(rm2,ToReal(2.)),kmul(R4p2212,kmul(rm2,ToReal(2.)))))))))))),kmadd(n3,kmadd(R4p1132,rm1,kmadd(R4p1231,rm1,kmadd(R4p3112,rm1,kmadd(R4p3211,rm1,kmadd(R4p1233,rm3,kmadd(R4p1332,rm3,kmadd(R4p3213,rm3,kmadd(R4p3312,rm3,kmadd(R4p1232,kmul(rm2,ToReal(2.)),kmul(R4p3212,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))))))),kmadd(n2,kmadd(n3,kmadd(R4p2132,rm1,kmadd(R4p2231,rm1,kmadd(R4p3122,rm1,kmadd(R4p3221,rm1,kmadd(R4p2233,rm3,kmadd(R4p2332,rm3,kmadd(R4p3223,rm3,kmadd(R4p3322,rm3,kmadd(R4p2232,kmul(rm2,ToReal(2.)),kmul(R4p3222,kmul(rm2,ToReal(2.)))))))))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))))))))));
+      knmadd(im1,kmadd(kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmul(kmul(n3,n3),ToReal(2.)),kmadd(kmul(n2,n2),kmul(kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),ToReal(2.)),kmadd(n2,kmul(ToReal(2.),knmsub(n1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmadd(n3,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(nn,kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.))))))))),kmadd(n3,kmul(ToReal(2.),kmsub(nn,kmadd(rm2,kadd(Ro132,Ro231),kmadd(rm3,kadd(Ro133,Ro331),kmul(rm1,kmul(Ro131,ToReal(2.))))),kmul(n1,kmadd(R4p1213,rm2,kmul(R4p1313,rm3))))),kmul(nn,kmadd(n1,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.)))))),kmul(nn,kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.)))))))))))),kmadd(im2,kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm1,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo23,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro132,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm1,kmul(Ro231,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro332,ToReal(2.)))),kmadd(kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(R4p1323,kmul(rm1,kmul(kmul(n3,n3),ToReal(2.))),kmadd(R4p2323,kmul(rm2,kmul(kmul(n3,n3),ToReal(2.))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ToReal(2.))),kmadd(n1,kmul(ToReal(2.),kmadd(n2,kmsub(R4p1223,rm3,kmul(R4p1212,rm1)),kmsub(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))),kmul(n3,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmadd(n3,kmsub(R4p1223,rm1,kmul(R4p2323,rm3)),kmul(nn,kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(n3,kmul(nn,kmul(rm2,kmul(Ro232,ToReal(4.))))))))))))))))))),kmul(im3,kmadd(kmadd(R4p1213,rm2,kmul(R4p1313,rm3)),kmul(kmul(n1,n1),ToReal(2.)),kmadd(kmul(n2,n2),kmadd(R4p1223,kmul(rm1,ToReal(-2.)),kmul(R4p2323,kmul(rm3,ToReal(2.)))),kmadd(n1,kmul(ToReal(2.),knmsub(n3,kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmadd(n2,kmadd(R4p1223,rm2,kmsub(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p1213,rm1))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(n2,kmul(ToReal(2.),kmsub(nn,kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.))))),kmul(n3,kmadd(R4p1323,rm1,kmul(R4p2323,rm2))))),kmul(nn,kmadd(n3,kmul(ToReal(2.),kmadd(rm1,kadd(Ro133,Ro331),kmadd(rm2,kadd(Ro233,Ro332),kmul(rm3,kmul(Ro333,ToReal(2.)))))),kmul(nn,kmadd(rm1,kadd(Rojo13,Rojo31),kmadd(rm2,kadd(Rojo23,Rojo32),kmul(rm3,kmul(Rojo33,ToReal(2.)))))))))))))));
     
     CCTK_REAL_VEC Psi3rL = 
-      kmadd(kmadd(ltet3,kmul(R4p3121,rm2),kmul(ltet1,kmul(R4p1131,rm3))),kmul(n1,n1),kmadd(ltet1,kmadd(n3,kmadd(kmadd(n1,R4p1311,kmul(n2,R4p1312)),rm1,kmadd(kmadd(n2,R4p1223,kmul(n1,kadd(R4p1123,R4p1321))),rm2,kmul(kmadd(n1,R4p1331,kmul(n2,kadd(R4p1233,R4p1332))),rm3))),kmadd(n1,kmadd(kmadd(n2,R4p1112,kmul(n3,R4p1113)),rm1,kmul(n2,kmadd(R4p1122,rm2,kmul(R4p1132,rm3)))),kmadd(n2,kmadd(kmadd(n1,R4p1211,kmul(n3,R4p1213)),rm1,kmul(n1,kmadd(R4p1221,rm2,kmul(R4p1231,rm3)))),kmul(rm1,kmadd(R4p1111,kmul(n1,n1),kmadd(R4p1212,kmul(n2,n2),kmul(R4p1313,kmul(n3,n3)))))))),kmadd(ltet2,kmadd(n3,kmadd(kmadd(n1,R4p2311,kmul(n2,R4p2312)),rm1,kmadd(kmadd(n1,R4p2321,kmul(n2,kadd(R4p2223,R4p2322))),rm2,kmul(kmadd(n2,R4p2233,kmul(n1,kadd(R4p2133,R4p2331))),rm3))),kmadd(n1,kmadd(kmadd(n2,R4p2112,kmul(n3,R4p2113)),rm1,kmul(n2,kmadd(R4p2122,rm2,kmul(R4p2132,rm3)))),kmadd(n2,kmadd(kmadd(n1,R4p2211,kmul(n3,R4p2213)),rm1,kmul(n1,kmadd(R4p2221,rm2,kmul(R4p2231,rm3)))),kmul(rm1,kmadd(R4p2111,kmul(n1,n1),kmadd(R4p2212,kmul(n2,n2),kmul(R4p2313,kmul(n3,n3)))))))),kmadd(ltet3,kmadd(n3,kmadd(kmadd(n1,R4p3311,kmul(n2,R4p3312)),rm1,kmadd(kmadd(n2,R4p3223,kmul(n1,kadd(R4p3123,R4p3321))),rm2,kmul(kmadd(n1,R4p3331,kmul(n2,kadd(R4p3233,R4p3332))),rm3))),kmadd(n1,kmadd(kmadd(n2,R4p3112,kmul(n3,R4p3113)),rm1,kmul(n2,kmadd(R4p3122,rm2,kmul(R4p3132,rm3)))),kmadd(n2,kmadd(kmadd(n1,R4p3211,kmul(n3,R4p3213)),rm1,kmul(n1,kmadd(R4p3221,rm2,kmul(R4p3231,rm3)))),kmul(rm1,kmadd(R4p3111,kmul(n1,n1),kmadd(R4p3212,kmul(n2,n2),kmul(R4p3313,kmul(n3,n3)))))))),kmadd(rm2,kmadd(kmadd(ltet1,R4p1121,kmul(ltet2,R4p2121)),kmul(n1,n1),kmadd(kmadd(ltet1,R4p1222,kmadd(ltet2,R4p2222,kmul(ltet3,R4p3222))),kmul(n2,n2),kmadd(kmadd(ltet1,R4p1323,kmadd(ltet2,R4p2323,kmul(ltet3,R4p3323))),kmul(n3,n3),kmul(Rojo12,kmul(kmul(nn,nn),ksub(ltet1,n1)))))),kmadd(kmul(nn,nn),kmadd(kmadd(rm2,Rojo22,kmul(rm3,Rojo23)),ksub(ltet2,n2),kmadd(kmadd(rm1,Rojo31,kmul(rm2,Rojo32)),ksub(ltet3,n3),kmul(rm1,kmadd(Rojo11,ksub(ltet1,n1),kmul(Rojo21,ksub(ltet2,n2)))))),kmadd(rm3,kmadd(kmadd(ltet2,R4p2131,kmul(ltet3,R4p3131)),kmul(n1,n1),kmadd(kmadd(ltet1,R4p1232,kmadd(ltet2,R4p2232,kmul(ltet3,R4p3232))),kmul(n2,n2),kmadd(kmadd(ltet1,R4p1333,kmadd(ltet2,R4p2333,kmul(ltet3,R4p3333))),kmul(n3,n3),kmul(kmul(nn,nn),kmadd(Rojo13,ksub(ltet1,n1),kmul(Rojo33,ksub(ltet3,n3))))))),kmadd(n3,kmadd(rm2,kmadd(ltet2,kmul(n1,R4p2123),kmadd(n2,kmadd(ltet1,R4p1322,kmul(ltet3,R4p3322)),kmul(nn,kmul(Ro223,kmadd(ltet2,ToReal(-2.),n2))))),kmadd(rm3,kmadd(ltet2,kmul(n2,R4p2332),kmadd(n1,kmadd(ltet1,R4p1133,kmul(ltet3,R4p3133)),kmul(nn,kmul(Ro333,kmadd(ltet3,ToReal(-2.),n3))))),kmul(nn,kmadd(rm1,kmul(Ro113,kmadd(ltet1,ToReal(-2.),n1)),kmadd(Ro313,kmsub(rm1,ksub(n3,ltet3),kmul(ltet1,rm3)),kmsub(Ro323,kmsub(rm2,ksub(n3,ltet3),kmul(ltet2,rm3)),kmadd(Ro123,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))),kmadd(Ro133,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1))),kmadd(Ro233,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2))),kmul(Ro213,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2))))))))))))),kmul(nn,kmadd(kmadd(n1,kmul(rm1,Ro111),kmul(n2,kmul(rm1,Ro112))),kmadd(ltet1,ToReal(-2.),n1),kmadd(n2,kmul(rm2,kmul(Ro222,kmadd(ltet2,ToReal(-2.),n2))),kmadd(n1,kmul(rm3,kmul(Ro331,kmadd(ltet3,ToReal(-2.),n3))),kmadd(n2,kmul(rm3,kmul(Ro332,kmadd(ltet3,ToReal(-2.),n3))),kmadd(n2,kmul(Ro232,kmsub(rm3,ksub(n2,ltet2),kmul(ltet3,rm2))),kmadd(n1,kmsub(rm2,kmul(Ro221,kmadd(ltet2,ToReal(-2.),n2)),kmul(Ro311,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3))))),knmsub(n2,kmadd(Ro122,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))),kmadd(Ro312,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3))),kmul(Ro132,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1)))))),kmadd(n1,kmadd(Ro121,kmsub(rm2,ksub(n1,ltet1),kmul(ltet2,rm1)),kmsub(Ro131,kmsub(rm3,ksub(n1,ltet1),kmul(ltet3,rm1)),kmadd(Ro211,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2))),kmadd(Ro321,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3))),kmul(Ro231,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2)))))))),kmul(n2,kmsub(Ro212,kmsub(rm1,ksub(n2,ltet2),kmul(ltet1,rm2)),kmul(Ro322,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3)))))))))))))))))))))));
+      kmadd(ltet2,kmul(R4p1212,kmul(rm2,kmul(n1,n1))),kmadd(ltet3,kmul(R4p1213,kmul(rm2,kmul(n1,n1))),kmadd(ltet2,kmul(R4p1213,kmul(rm3,kmul(n1,n1))),kmadd(ltet3,kmul(R4p1313,kmul(rm3,kmul(n1,n1))),kmadd(ltet1,kmul(R4p1212,kmul(rm1,kmul(n2,n2))),kmadd(ltet3,kmul(R4p2323,kmul(rm3,kmul(n2,n2))),kmadd(ltet1,kmul(R4p1313,kmul(rm1,kmul(n3,n3))),kmadd(ltet2,kmul(R4p1323,kmul(rm1,kmul(n3,n3))),kmadd(ltet1,kmul(R4p1323,kmul(rm2,kmul(n3,n3))),kmadd(ltet2,kmul(R4p2323,kmul(rm2,kmul(n3,n3))),kmadd(n1,kmul(nn,kmul(rm2,kmul(Ro221,kmadd(ltet2,ToReal(-2.),n2)))),kmadd(n2,kmul(nn,kmul(rm2,kmul(Ro222,kmadd(ltet2,ToReal(-2.),n2)))),kmadd(n3,kmul(nn,kmul(rm2,kmul(Ro223,kmadd(ltet2,ToReal(-2.),n2)))),kmadd(n1,kmul(nn,kmul(rm3,kmul(Ro331,kmadd(ltet3,ToReal(-2.),n3)))),kmadd(n2,kmul(nn,kmul(rm3,kmul(Ro332,kmadd(ltet3,ToReal(-2.),n3)))),kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro333,kmadd(ltet3,ToReal(-2.),n3)))),kmadd(rm1,kmul(Rojo11,kmul(kmul(nn,nn),ksub(ltet1,n1))),kmadd(rm2,kmul(Rojo12,kmul(kmul(nn,nn),ksub(ltet1,n1))),kmadd(rm3,kmul(Rojo13,kmul(kmul(nn,nn),ksub(ltet1,n1))),kmadd(rm1,kmul(Rojo21,kmul(kmul(nn,nn),ksub(ltet2,n2))),kmadd(rm2,kmul(Rojo22,kmul(kmul(nn,nn),ksub(ltet2,n2))),kmadd(rm3,kmul(Rojo23,kmul(kmul(nn,nn),ksub(ltet2,n2))),kmadd(rm1,kmul(Rojo31,kmul(kmul(nn,nn),ksub(ltet3,n3))),kmadd(rm2,kmul(Rojo32,kmul(kmul(nn,nn),ksub(ltet3,n3))),kmadd(rm3,kmul(Rojo33,kmul(kmul(nn,nn),ksub(ltet3,n3))),kmadd(n2,kmul(nn,kmul(Ro212,kmsub(rm1,ksub(n2,ltet2),kmul(ltet1,rm2)))),kmadd(n2,kmul(nn,kmul(Ro232,kmsub(rm3,ksub(n2,ltet2),kmul(ltet3,rm2)))),kmadd(n3,kmul(nn,kmul(Ro313,kmsub(rm1,ksub(n3,ltet3),kmul(ltet1,rm3)))),kmadd(n3,kmul(nn,kmul(Ro323,kmsub(rm2,ksub(n3,ltet3),kmul(ltet2,rm3)))),kmadd(ltet3,kmsub(n2,kmul(rm2,kmsub(n1,R4p1223,kmul(n3,R4p2323))),kmul(R4p1223,kmul(rm1,kmul(n2,n2)))),kmadd(ltet1,kmsub(n3,kmsub(n2,kmul(R4p1223,rm2),kmul(n1,kmul(R4p1313,rm3))),kmul(R4p1223,kmul(rm3,kmul(n2,n2)))),kmadd(n3,kmsub(rm1,kmsub(ltet2,kmul(n2,R4p1223),kmul(ltet3,kmul(n1,R4p1313))),kmadd(ltet1,kmadd(n2,kmul(R4p1323,rm3),kmul(n1,kmul(R4p1213,rm2))),kmul(nn,kmul(Ro123,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))))))),kmadd(n1,kmsub(ltet2,kmul(n3,kmul(R4p1223,kmul(rm2,ToReal(-2.)))),kmadd(ltet1,kmul(n2,kmul(R4p1213,rm3)),kmul(nn,kmul(Ro211,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2))))))),kmadd(nn,kmsub(n1,kmul(rm1,kmul(Ro111,kmadd(ltet1,ToReal(-2.),n1))),kmul(n3,kmul(Ro213,kmadd(ltet1,rm2,kmul(rm1,ksub(ltet2,n2)))))),kmadd(nn,kmsub(n2,kmul(rm1,kmul(Ro112,kmadd(ltet1,ToReal(-2.),n1))),kmul(n3,kmul(Ro233,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2)))))),kmadd(nn,kmsub(n3,kmul(rm1,kmul(Ro113,kmadd(ltet1,ToReal(-2.),n1))),kmul(n1,kmul(Ro311,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3)))))),kmadd(nn,kmsub(n1,kmul(Ro121,kmsub(rm2,ksub(n1,ltet1),kmul(ltet2,rm1))),kmul(n2,kmul(Ro312,kmadd(ltet1,rm3,kmul(rm1,ksub(ltet3,n3)))))),kmadd(n1,kmul(nn,kmsub(Ro131,kmsub(rm3,ksub(n1,ltet1),kmul(ltet3,rm1)),kmul(Ro321,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3)))))),knmsub(n1,kmadd(ltet2,kmul(n3,kmul(R4p1323,rm3)),kmadd(n2,kmadd(rm1,kmadd(ltet3,R4p1213,kmul(ltet2,R4p1212)),kmul(ltet1,kmul(R4p1212,rm2))),kmul(nn,kmul(Ro231,kmadd(ltet3,rm2,kmul(rm3,ksub(ltet2,n2))))))),kmadd(n2,kmsub(ltet2,kmul(n1,kmul(R4p1223,rm3)),kmul(nn,kmadd(Ro322,kmadd(ltet2,rm3,kmul(rm2,ksub(ltet3,n3))),kmul(Ro122,kmadd(ltet2,rm1,kmul(rm2,ksub(ltet1,n1))))))),kmadd(n2,kmsub(ltet3,kmul(n1,kmul(R4p1323,kmul(rm3,ToReal(2.)))),kmul(nn,kmul(Ro132,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1)))))),kmul(n3,knmsub(ltet2,kmul(n2,kmul(R4p2323,rm3)),knmsub(ltet3,kmul(R4p1323,kmadd(n1,rm2,kmul(n2,rm1))),kmsub(R4p1213,kmul(rm1,kmsub(ltet1,kmul(n2,ToReal(2.)),kmul(ltet2,n1))),kmul(nn,kmul(Ro133,kmadd(ltet3,rm1,kmul(rm3,ksub(ltet1,n1))))))))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi3iL = 
-      knmadd(im2,kmadd(n2,kmul(n3,kmul(nn,Ro223)),kmadd(n1,kmul(n3,kmul(nn,Ro321)),kmadd(n2,kmul(n3,kmul(nn,Ro322)),kmadd(ltet3,kmul(R4p3121,kmul(n1,n1)),kmadd(nn,kmul(Ro121,kmul(n1,n1)),kmadd(ltet3,kmul(R4p3222,kmul(n2,n2)),kmadd(nn,kmul(Ro222,kmul(n2,n2)),kmadd(ltet3,kmul(R4p3323,kmul(n3,n3)),kmadd(nn,kmul(Ro323,kmul(n3,n3)),kmadd(ltet3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet2,kmadd(n2,kmul(n3,R4p2223),kmadd(n2,kmul(n3,R4p2322),kmadd(R4p2121,kmul(n1,n1),kmadd(R4p2222,kmul(n2,n2),kmadd(R4p2323,kmul(n3,n3),kmadd(Rojo22,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro222,ToReal(-2.))),kmadd(n3,kmul(nn,kmul(Ro223,ToReal(-2.))),kmul(n1,kmadd(n2,kadd(R4p2122,R4p2221),kmadd(n3,kadd(R4p2123,R4p2321),kmul(nn,kmul(Ro221,ToReal(-2.)))))))))))))),kmadd(ltet3,kmul(n1,kmsub(n2,R4p3122,kmul(nn,Ro231))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3123),kmul(n2,kmul(nn,Ro232))),kmadd(ltet3,kmsub(n1,kmul(n2,R4p3221),kmul(n3,kmul(nn,Ro233))),kmadd(ltet3,kmsub(n2,kmul(n3,R4p3223),kmul(n1,kmul(nn,Ro321))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3321),kmul(n2,kmul(nn,Ro322))),kmadd(ltet3,kmul(n3,kmsub(n2,R4p3322,kmul(nn,Ro323))),kmadd(n1,kmsub(n2,kmul(nn,Ro122),kmul(Rojo12,kmul(nn,nn))),kmadd(n2,kmsub(n1,kmul(nn,Ro221),kmul(Rojo22,kmul(nn,nn))),kmadd(n3,kmsub(n1,kmul(nn,Ro123),kmul(Rojo32,kmul(nn,nn))),kmul(ltet1,kmadd(R4p1121,kmul(n1,n1),kmadd(R4p1222,kmul(n2,n2),kmadd(R4p1323,kmul(n3,n3),kmadd(Rojo12,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p1122,R4p1221),kmsub(n3,kadd(R4p1123,R4p1321),kmul(nn,kadd(Ro121,Ro211)))),kmsub(n2,kmsub(n3,kadd(R4p1223,R4p1322),kmul(nn,kadd(Ro122,Ro212))),kmul(n3,kmul(nn,kadd(Ro213,Ro123)))))))))))))))))))))))))))))),kmadd(im3,kmadd(ltet3,kmul(n2,kmul(n3,R4p3233)),kmadd(ltet3,kmul(n1,kmul(n3,R4p3331)),kmadd(ltet3,kmul(n2,kmul(n3,R4p3332)),kmadd(n1,kmul(n2,kmul(nn,Ro132)),kmadd(n1,kmul(n3,kmul(nn,Ro133)),kmadd(n1,kmul(n2,kmul(nn,Ro231)),kmadd(n2,kmul(n3,kmul(nn,Ro233)),kmadd(n1,kmul(n3,kmul(nn,Ro331)),kmadd(n2,kmul(n3,kmul(nn,Ro332)),kmadd(ltet3,kmul(R4p3131,kmul(n1,n1)),kmadd(nn,kmul(Ro131,kmul(n1,n1)),kmadd(ltet3,kmul(R4p3232,kmul(n2,n2)),kmadd(nn,kmul(Ro232,kmul(n2,n2)),kmadd(ltet3,kmul(R4p3333,kmul(n3,n3)),kmadd(nn,kmul(Ro333,kmul(n3,n3)),kmadd(ltet3,kmul(Rojo33,kmul(nn,nn)),kmadd(ltet3,kmul(n1,kmul(nn,kmul(Ro331,ToReal(-2.)))),kmadd(ltet3,kmul(n2,kmul(nn,kmul(Ro332,ToReal(-2.)))),kmadd(ltet3,kmul(n3,kmul(nn,kmul(Ro333,ToReal(-2.)))),kmadd(n1,kmsub(ltet3,kmul(n2,R4p3132),kmul(Rojo13,kmul(nn,nn))),kmadd(n2,kmsub(ltet3,kmul(n1,R4p3231),kmul(Rojo23,kmul(nn,nn))),kmadd(n3,kmsub(ltet3,kmul(n1,R4p3133),kmul(Rojo33,kmul(nn,nn))),kmadd(ltet1,kmadd(R4p1131,kmul(n1,n1),kmadd(R4p1232,kmul(n2,n2),kmadd(R4p1333,kmul(n3,n3),kmadd(Rojo13,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p1132,R4p1231),kmsub(n3,kadd(R4p1133,R4p1331),kmul(nn,kadd(Ro131,Ro311)))),kmsub(n2,kmsub(n3,kadd(R4p1233,R4p1332),kmul(nn,kadd(Ro132,Ro312))),kmul(n3,kmul(nn,kadd(Ro313,Ro133))))))))),kmul(ltet2,kmadd(R4p2131,kmul(n1,n1),kmadd(R4p2232,kmul(n2,n2),kmadd(R4p2333,kmul(n3,n3),kmadd(Rojo23,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p2132,R4p2231),kmsub(n3,kadd(R4p2133,R4p2331),kmul(nn,kadd(Ro231,Ro321)))),kmsub(n2,kmsub(n3,kadd(R4p2233,R4p2332),kmul(nn,kadd(Ro232,Ro322))),kmul(n3,kmul(nn,kadd(Ro323,Ro233))))))))))))))))))))))))))))))))),kmul(im1,kmadd(n2,kmul(n3,kmul(nn,Ro213)),kmadd(n1,kmul(n3,kmul(nn,Ro311)),kmadd(n2,kmul(n3,kmul(nn,Ro312)),kmadd(ltet3,kmul(R4p3111,kmul(n1,n1)),kmadd(nn,kmul(Ro111,kmul(n1,n1)),kmadd(ltet3,kmul(R4p3212,kmul(n2,n2)),kmadd(nn,kmul(Ro212,kmul(n2,n2)),kmadd(ltet3,kmul(R4p3313,kmul(n3,n3)),kmadd(nn,kmul(Ro313,kmul(n3,n3)),kmadd(ltet3,kmul(Rojo31,kmul(nn,nn)),kmadd(ltet1,kmadd(n2,kmul(n3,R4p1213),kmadd(n2,kmul(n3,R4p1312),kmadd(R4p1111,kmul(n1,n1),kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n2,kmul(nn,kmul(Ro112,ToReal(-2.))),kmadd(n3,kmul(nn,kmul(Ro113,ToReal(-2.))),kmul(n1,kmadd(n2,kadd(R4p1112,R4p1211),kmadd(n3,kadd(R4p1113,R4p1311),kmul(nn,kmul(Ro111,ToReal(-2.)))))))))))))),kmadd(ltet3,kmul(n1,kmsub(n2,R4p3112,kmul(nn,Ro131))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3113),kmul(n2,kmul(nn,Ro132))),kmadd(ltet3,kmsub(n1,kmul(n2,R4p3211),kmul(n3,kmul(nn,Ro133))),kmadd(ltet3,kmsub(n2,kmul(n3,R4p3213),kmul(n1,kmul(nn,Ro311))),kmadd(ltet3,kmsub(n1,kmul(n3,R4p3311),kmul(n2,kmul(nn,Ro312))),kmadd(ltet3,kmul(n3,kmsub(n2,R4p3312,kmul(nn,Ro313))),kmadd(n1,kmsub(n2,kmul(nn,Ro112),kmul(Rojo11,kmul(nn,nn))),kmadd(n2,kmsub(n1,kmul(nn,Ro211),kmul(Rojo21,kmul(nn,nn))),kmadd(n3,kmsub(n1,kmul(nn,Ro113),kmul(Rojo31,kmul(nn,nn))),kmul(ltet2,kmadd(R4p2111,kmul(n1,n1),kmadd(R4p2212,kmul(n2,n2),kmadd(R4p2313,kmul(n3,n3),kmadd(Rojo21,kmul(nn,nn),kmadd(n1,kmadd(n2,kadd(R4p2112,R4p2211),kmsub(n3,kadd(R4p2113,R4p2311),kmul(nn,kadd(Ro121,Ro211)))),kmsub(n2,kmsub(n3,kadd(R4p2213,R4p2312),kmul(nn,kadd(Ro122,Ro212))),kmul(n3,kmul(nn,kadd(Ro213,Ro123)))))))))))))))))))))))))))))))));
+      kmadd(im2,kmadd(n1,kmul(Rojo12,kmul(nn,nn)),kmadd(n2,kmul(Rojo22,kmul(nn,nn)),kmadd(n3,kmul(Rojo32,kmul(nn,nn)),knmsub(ltet2,kmadd(R4p1212,kmul(n1,n1),kmadd(R4p2323,kmul(n3,n3),kmadd(n1,kmul(kmadd(n3,R4p1223,kmul(nn,Ro221)),ToReal(-2.)),kmadd(n3,kmul(nn,kmul(Ro223,ToReal(-2.))),kmul(nn,kmadd(nn,Rojo22,kmul(n2,kmul(Ro222,ToReal(-2.))))))))),kmadd(nn,kmsub(ltet3,kmul(n3,Ro233),kmul(Ro121,kmul(n1,n1))),kmadd(nn,kmsub(ltet3,kmul(n1,Ro321),kmul(Ro222,kmul(n2,n2))),kmadd(nn,kmsub(ltet3,kmul(n2,Ro322),kmul(Ro323,kmul(n3,n3))),kmadd(ltet3,kmsub(n3,kmul(nn,Ro323),kmul(Rojo32,kmul(nn,nn))),kmadd(ltet3,kmadd(n2,kmul(n3,R4p2323),kmadd(n1,kmul(nn,Ro231),kmsub(n1,kmsub(n3,R4p1323,kmul(n2,R4p1223)),kmul(R4p1213,kmul(n1,n1))))),kmadd(ltet1,kmadd(n3,kmul(nn,Ro123),kmadd(n1,kmadd(n2,R4p1212,kmadd(n3,R4p1213,kmul(nn,kadd(Ro121,Ro211)))),kmadd(n2,kmul(nn,Ro212),kmadd(n3,kmul(nn,Ro213),knmsub(R4p1323,kmul(n3,n3),kmsub(n2,kmsub(nn,Ro122,kmul(n3,R4p1223)),kmul(Rojo12,kmul(nn,nn)))))))),kmsub(n2,kmul(nn,kmsub(ltet3,Ro232,kmul(n3,kadd(Ro322,Ro223)))),kmul(n1,kmul(nn,kmadd(n3,kadd(Ro321,Ro123),kmul(n2,kadd(Ro221,Ro122)))))))))))))))),kmadd(im1,kmadd(ltet3,kmul(R4p1223,kmul(n2,n2)),kmadd(n1,kmul(Rojo11,kmul(nn,nn)),kmadd(n2,kmul(Rojo21,kmul(nn,nn)),kmadd(n3,kmul(Rojo31,kmul(nn,nn)),kmadd(n3,kmul(nn,kmsub(ltet3,Ro133,kmul(n1,Ro311))),kmadd(nn,kmsub(ltet3,kmul(n1,Ro311),kmul(Ro111,kmul(n1,n1))),kmadd(nn,kmsub(ltet3,kmul(n2,Ro312),kmul(Ro212,kmul(n2,n2))),kmadd(nn,kmul(Ro313,kmsub(ltet3,n3,kmul(n3,n3))),kmadd(ltet3,kmadd(n1,kmul(n2,R4p1213),kmadd(n1,kmul(n3,R4p1313),kmadd(n2,kmul(n3,R4p1323),kmsub(n1,kmul(nn,Ro131),kmul(Rojo31,kmul(nn,nn)))))),kmadd(ltet2,kmadd(n3,kmul(nn,Ro123),kmadd(n1,kmadd(n2,R4p1212,kmadd(n3,R4p1213,kmul(nn,kadd(Ro121,Ro211)))),kmadd(n2,kmul(nn,Ro212),kmadd(n3,kmul(nn,Ro213),knmsub(R4p1323,kmul(n3,n3),kmsub(n2,kmsub(nn,Ro122,kmul(n3,R4p1223)),kmul(Rojo21,kmul(nn,nn)))))))),knmsub(n1,kmul(nn,kmadd(n2,kadd(Ro211,Ro112),kmul(n3,Ro113))),kmsub(n2,kmul(nn,kmsub(ltet3,Ro132,kmul(n3,kadd(Ro312,Ro213)))),kmul(ltet1,kmadd(R4p1212,kmul(n2,n2),kmadd(R4p1313,kmul(n3,n3),kmadd(Rojo11,kmul(nn,nn),kmadd(n1,kmul(nn,kmul(Ro111,ToReal(-2.))),kmadd(n2,kmul(nn,kmul(Ro112,ToReal(-2.))),kmadd(n3,kmul(nn,kmul(Ro113,ToReal(-2.))),kmul(n2,kmul(n3,kmul(R4p1213,ToReal(2.))))))))))))))))))))))),kmul(im3,kmadd(n1,kmul(Rojo13,kmul(nn,nn)),kmadd(n2,kmul(Rojo23,kmul(nn,nn)),kmadd(n3,kmul(Rojo33,kmul(nn,nn)),knmsub(n3,kmul(nn,kmadd(n2,kadd(Ro332,Ro233),kmul(n1,Ro331))),kmadd(ltet1,kmadd(n1,kmadd(n2,R4p1213,kmadd(n3,R4p1313,kmul(nn,kadd(Ro131,Ro311)))),kmadd(n2,kmadd(n3,R4p1323,kmul(nn,kadd(Ro132,Ro312))),kmadd(R4p1223,kmul(n2,n2),kmul(nn,kmsub(n3,kadd(Ro133,Ro313),kmul(nn,Rojo13)))))),kmadd(ltet2,kmadd(n2,kmadd(n3,R4p2323,kmul(nn,kadd(Ro232,Ro322))),knmsub(R4p1213,kmul(n1,n1),kmadd(n1,kmadd(n3,R4p1323,kmsub(nn,kadd(Ro231,Ro321),kmul(n2,R4p1223))),kmul(nn,kmsub(n3,kadd(Ro233,Ro323),kmul(nn,Rojo23)))))),kmadd(ltet3,knmsub(R4p1313,kmul(n1,n1),knmsub(R4p2323,kmul(n2,n2),kmsub(n2,kmul(nn,kmul(Ro332,ToReal(2.))),kmul(Rojo33,kmul(nn,nn))))),kmadd(nn,knmsub(Ro131,kmul(n1,n1),kmsub(Ro333,kmsub(ltet3,kmul(n3,ToReal(2.)),kmul(n3,n3)),kmul(Ro232,kmul(n2,n2)))),kmul(n1,kmadd(n2,kmsub(ltet3,kmul(R4p1323,ToReal(-2.)),kmul(nn,kadd(Ro231,Ro132))),kmul(nn,kmsub(ltet3,kmul(Ro331,ToReal(2.)),kmul(n3,Ro133))))))))))))))));
     
     CCTK_REAL_VEC Psi2rL = 
-      kmadd(ltet1,kmul(n2,kmul(R4p1112,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet1,kmul(n3,kmul(R4p1113,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet2,kmul(n2,kmul(R4p2112,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet2,kmul(n3,kmul(R4p2113,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet3,kmul(n2,kmul(R4p3112,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet3,kmul(n3,kmul(R4p3113,kmadd(im1,im1,kmul(rm1,rm1)))),kmadd(ltet1,kmadd(n1,kmul(R4p1121,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p1122,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p1123,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p1211,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p1212,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p1213,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p1131,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n2,kmul(R4p1132,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n3,kmul(R4p1133,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p1311,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n2,kmul(R4p1312,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p1231,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p1232,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p1233,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n1,kmul(R4p1321,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p1322,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p1323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p1111,kmadd(im1,im1,kmul(rm1,rm1))))))))))))))))))))),kmadd(ltet2,kmadd(n1,kmul(R4p2121,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p2122,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p2123,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p2211,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p2212,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p2213,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p2131,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p2231,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p2232,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p2233,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n1,kmul(R4p2321,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p2322,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p2323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p2111,kmadd(im1,im1,kmul(rm1,rm1))))))))))))))))),kmadd(ltet3,kmadd(n1,kmul(R4p3121,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p3122,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p3123,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p3211,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n2,kmul(R4p3212,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n3,kmul(R4p3213,kmadd(im1,im2,kmul(rm1,rm2))),kmadd(n1,kmul(R4p3131,kmadd(im1,im3,kmul(rm1,rm3))),kmadd(n1,kmul(R4p3231,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p3232,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p3233,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n1,kmul(R4p3321,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n2,kmul(R4p3322,kmadd(im2,im3,kmul(rm2,rm3))),kmadd(n3,kmul(R4p3323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p3111,kmadd(im1,im1,kmul(rm1,rm1))))))))))))))))),kmadd(ltet1,kmul(n1,kmul(R4p1221,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet1,kmul(n2,kmul(R4p1222,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet1,kmul(n3,kmul(R4p1223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet2,kmul(n1,kmul(R4p2221,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet2,kmul(n2,kmul(R4p2222,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet2,kmul(n3,kmul(R4p2223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet3,kmul(n1,kmul(R4p3221,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet3,kmul(n2,kmul(R4p3222,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet3,kmul(n3,kmul(R4p3223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(ltet1,kmul(n1,kmul(R4p1331,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet1,kmul(n2,kmul(R4p1332,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet1,kmul(n3,kmul(R4p1333,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet2,kmul(n1,kmul(R4p2331,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet2,kmul(n2,kmul(R4p2332,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet2,kmul(n3,kmul(R4p2333,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet3,kmul(n1,kmul(R4p3331,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet3,kmul(n2,kmul(R4p3332,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(ltet3,kmul(n3,kmul(R4p3333,kmadd(im3,im3,kmul(rm3,rm3)))),kmadd(nn,kmul(Ro222,kmul(kmadd(im2,im2,kmul(rm2,rm2)),ksub(n2,ltet2))),kmadd(nn,kmul(Ro333,kmul(kmadd(im3,im3,kmul(rm3,rm3)),ksub(n3,ltet3))),kmadd(nn,kmul(Ro112,kmsub(n2,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro221,kmsub(n1,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro113,kmsub(n3,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro331,kmsub(n1,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro223,kmsub(n3,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(nn,kmul(Ro332,kmsub(n2,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im2,im3,kmul(rm2,rm3))))),knmsub(kmadd(im1,im2,kmul(rm1,rm2)),kmul(kmul(nn,nn),kadd(Rojo21,Rojo12)),kmadd(nn,kmul(Ro121,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet2,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro131,kmsub(n1,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet3,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro212,kmsub(n2,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet1,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro232,kmsub(n2,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet3,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro313,kmsub(n3,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet1,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(nn,kmul(Ro323,kmsub(n3,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet2,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(kmadd(im1,im3,kmul(rm1,rm3)),kmadd(ltet1,kmul(n3,R4p1313),kmadd(ltet2,kmul(n2,R4p2132),kmadd(ltet2,kmul(n3,R4p2133),kmadd(ltet2,kmul(n1,R4p2311),kmadd(ltet2,kmul(n2,R4p2312),kmadd(ltet2,kmul(n3,R4p2313),kmadd(ltet3,kmul(n2,R4p3132),kmadd(ltet3,kmul(n3,R4p3133),kmadd(ltet3,kmul(n1,R4p3311),kmadd(ltet3,kmul(n2,R4p3312),kmadd(ltet3,kmul(n3,R4p3313),knmsub(Rojo13,kmul(nn,nn),kmadd(nn,kmul(Ro311,ksub(n1,ltet1)),kmul(nn,kmul(Ro133,ksub(n3,ltet3)))))))))))))))),kmsub(nn,kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmul(Ro211,ksub(n1,ltet1)),kmadd(Ro111,kmul(kmadd(im1,im1,kmul(rm1,rm1)),ksub(n1,ltet1)),kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmul(Ro122,ksub(n2,ltet2)),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro322,ksub(n2,ltet2)),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro233,ksub(n3,ltet3)),kmadd(Ro321,kmadd(im3,kmsub(im2,n1,kmul(im1,ltet2)),kmul(rm3,kmsub(n1,rm2,kmul(ltet2,rm1)))),kmadd(Ro231,kmadd(im2,kmsub(im3,n1,kmul(im1,ltet3)),kmul(rm2,kmsub(n1,rm3,kmul(ltet3,rm1)))),kmadd(Ro312,kmadd(im3,kmsub(im1,n2,kmul(im2,ltet1)),kmul(rm3,kmsub(n2,rm1,kmul(ltet1,rm2)))),kmadd(Ro132,kmadd(im1,kmsub(im3,n2,kmul(im2,ltet3)),kmul(rm1,kmsub(n2,rm3,kmul(ltet3,rm2)))),kmadd(Ro213,kmadd(im2,kmsub(im1,n3,kmul(im3,ltet1)),kmul(rm2,kmsub(n3,rm1,kmul(ltet1,rm3)))),kmul(Ro123,kmadd(im1,kmsub(im2,n3,kmul(im3,ltet2)),kmul(rm1,kmsub(n3,rm2,kmul(ltet2,rm3))))))))))))))),kmul(kmul(nn,nn),kmadd(kmadd(im1,im3,kmul(rm1,rm3)),Rojo31,kmadd(Rojo11,kmadd(im1,im1,kmul(rm1,rm1)),kmadd(Rojo22,kmadd(im2,im2,kmul(rm2,rm2)),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kadd(Rojo32,Rojo23),kmul(Rojo33,kmadd(im3,im3,kmul(rm3,rm3))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(ltet1,kmul(n3,kmul(R4p1223,kmadd(im2,im2,kmul(rm2,rm2)))),kmadd(nn,kmul(kmadd(im1,im2,kmul(rm1,rm2)),kmul(Ro211,ksub(n1,ltet1))),kmadd(nn,kmul(kmadd(im1,im3,kmul(rm1,rm3)),kmul(Ro311,ksub(n1,ltet1))),kmadd(nn,kmul(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro322,ksub(n2,ltet2))),kmadd(nn,kmul(Ro222,kmul(kmadd(im2,im2,kmul(rm2,rm2)),ksub(n2,ltet2))),kmadd(nn,kmul(kmadd(im1,im3,kmul(rm1,rm3)),kmul(Ro133,ksub(n3,ltet3))),kmadd(nn,kmul(kmadd(im2,im3,kmul(rm2,rm3)),kmul(Ro233,ksub(n3,ltet3))),kmadd(nn,kmul(Ro112,kmsub(n2,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro221,kmsub(n1,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im1,im2,kmul(rm1,rm2))))),kmadd(nn,kmul(Ro113,kmsub(n3,kmadd(im1,im1,kmul(rm1,rm1)),kmul(ltet1,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro331,kmsub(n1,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im1,im3,kmul(rm1,rm3))))),kmadd(nn,kmul(Ro223,kmsub(n3,kmadd(im2,im2,kmul(rm2,rm2)),kmul(ltet2,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(nn,kmul(Ro332,kmsub(n2,kmadd(im3,im3,kmul(rm3,rm3)),kmul(ltet3,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmsub(ltet3,kmul(n3,kmul(R4p1323,ToReal(-2.))),kmul(Rojo12,kmul(nn,nn))),kmadd(kmadd(im1,im3,kmul(rm1,rm3)),kmsub(ltet2,kmul(n1,R4p1213),kmul(Rojo13,kmul(nn,nn))),kmadd(kmadd(im2,im2,kmul(rm2,rm2)),kmsub(ltet3,kmul(n1,R4p1223),kmul(Rojo22,kmul(nn,nn))),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmsub(ltet1,kmul(n1,kmul(R4p1213,ToReal(-2.))),kmul(Rojo23,kmul(nn,nn))),kmadd(kmadd(im2,im3,kmul(rm2,rm3)),kmsub(ltet3,kmul(n1,R4p1323),kmul(Rojo32,kmul(nn,nn))),kmadd(nn,kmul(Ro121,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet2,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro131,kmsub(n1,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet3,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(ltet3,kmul(R4p1313,kmsub(n1,kmadd(im1,im3,kmul(rm1,rm3)),kmul(n3,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(n3,kmsub(ltet1,kmul(R4p1313,kmadd(im1,im3,kmul(rm1,rm3))),kmul(ltet2,kmul(R4p1213,kmadd(im1,im1,kmul(rm1,rm1))))),kmadd(nn,kmul(Ro212,kmsub(n2,kmadd(im1,im2,kmul(rm1,rm2)),kmul(ltet1,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro232,kmsub(n2,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet3,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(ltet1,kmsub(n3,kmul(R4p1323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(n1,kmul(R4p1212,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(ltet3,kmsub(n2,kmul(R4p1323,kmadd(im1,im3,kmul(rm1,rm3))),kmul(n3,kmul(R4p2323,kmadd(im2,im2,kmul(rm2,rm2))))),kmadd(nn,kmul(Ro313,kmsub(n3,kmadd(im1,im3,kmul(rm1,rm3)),kmul(ltet1,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(nn,kmul(Ro323,kmsub(n3,kmadd(im2,im3,kmul(rm2,rm3)),kmul(ltet2,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(ltet2,kmul(R4p1323,kmsub(n3,kmadd(im1,im3,kmul(rm1,rm3)),kmul(n1,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(ltet2,kmul(R4p2323,kmsub(n3,kmadd(im2,im3,kmul(rm2,rm3)),kmul(n2,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(n2,kmsub(ltet3,kmul(R4p2323,kmadd(im2,im3,kmul(rm2,rm3))),kmul(ltet1,kmul(R4p1323,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(kmadd(im1,im1,kmul(rm1,rm1)),kmsub(nn,kmul(Ro111,ksub(n1,ltet1)),kmul(Rojo11,kmul(nn,nn))),kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmsub(nn,kmul(Ro122,ksub(n2,ltet2)),kmul(Rojo21,kmul(nn,nn))),kmadd(kmadd(im3,im3,kmul(rm3,rm3)),kmsub(nn,kmul(Ro333,ksub(n3,ltet3)),kmul(Rojo33,kmul(nn,nn))),knmsub(R4p1223,kmadd(kmadd(im1,im2,kmul(rm1,rm2)),kmadd(ltet2,n3,kmul(ltet3,n2)),kmul(ltet2,kmul(n1,kmadd(im2,im3,kmul(rm2,rm3))))),kmadd(nn,kmul(Ro321,kmadd(im3,kmsub(im2,n1,kmul(im1,ltet2)),kmul(rm3,kmsub(n1,rm2,kmul(ltet2,rm1))))),kmadd(nn,kmul(Ro231,kmadd(im2,kmsub(im3,n1,kmul(im1,ltet3)),kmul(rm2,kmsub(n1,rm3,kmul(ltet3,rm1))))),kmadd(nn,kmul(Ro312,kmadd(im3,kmsub(im1,n2,kmul(im2,ltet1)),kmul(rm3,kmsub(n2,rm1,kmul(ltet1,rm2))))),kmadd(nn,kmul(Ro132,kmadd(im1,kmsub(im3,n2,kmul(im2,ltet3)),kmul(rm1,kmsub(n2,rm3,kmul(ltet3,rm2))))),kmadd(nn,kmul(Ro213,kmadd(im2,kmsub(im1,n3,kmul(im3,ltet1)),kmul(rm2,kmsub(n3,rm1,kmul(ltet1,rm3))))),kmadd(nn,kmul(Ro123,kmadd(im1,kmsub(im2,n3,kmul(im3,ltet2)),kmul(rm1,kmsub(n3,rm2,kmul(ltet2,rm3))))),kmadd(ltet1,kmsub(n2,kmsub(R4p1213,kmadd(im1,im3,kmul(rm1,rm3)),kmul(R4p1223,kmadd(im2,im3,kmul(rm2,rm3)))),kmul(n1,kmul(R4p1313,kmadd(im3,im3,kmul(rm3,rm3))))),kmadd(R4p1212,kmadd(ltet1,kmul(n2,kmadd(im1,im2,kmul(rm1,rm2))),kmul(ltet2,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(n2,kmadd(im1,im1,kmul(rm1,rm1)))))),kmadd(R4p1213,kmadd(ltet1,kmul(n3,kmadd(im1,im2,kmul(rm1,rm2))),kmul(ltet3,kmsub(n1,kmadd(im1,im2,kmul(rm1,rm2)),kmul(n2,kmadd(im1,im1,kmul(rm1,rm1)))))),kmul(kmadd(im1,im3,kmul(rm1,rm3)),kmsub(ltet2,kmul(n2,kmul(R4p1223,ToReal(2.))),kmul(Rojo31,kmul(nn,nn))))))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi2iL = 
-      kmadd(im3,kmadd(n2,kmul(nn,kmul(rm1,Ro312)),kmadd(n3,kmul(nn,kmul(rm1,Ro313)),kmadd(n2,kmul(nn,kmul(rm2,Ro322)),kmadd(n3,kmul(nn,kmul(rm2,Ro323)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro331)),kmadd(ltet3,kmul(nn,kmul(rm2,Ro332)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(ltet3,kmsub(n3,kmul(R4p3313,rm1),kmul(n2,kmul(R4p3232,rm2))),kmadd(ltet3,kmul(rm1,kmsub(n1,R4p3311,kmadd(nn,Ro133,kmul(n3,R4p3133)))),kmadd(rm1,kmsub(n1,kmul(nn,Ro311),kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmsub(n1,kmul(nn,Ro321),kmul(Rojo32,kmul(nn,nn))),knmsub(ltet3,kmadd(rm1,kmadd(n2,R4p3132,kmul(n1,R4p3131)),kmul(n3,kmul(R4p3233,rm2))),kmadd(n1,kmsub(rm2,kmsub(ltet3,R4p3321,kmul(nn,Ro231)),kmul(nn,kmul(rm1,Ro131))),kmadd(n2,kmsub(rm2,kmsub(ltet3,R4p3322,kmul(nn,Ro232)),kmul(nn,kmul(rm1,Ro132))),kmadd(n3,kmsub(rm2,kmsub(ltet3,R4p3323,kmul(nn,Ro233)),kmul(nn,kmul(rm1,Ro133))),kmadd(ltet3,kmsub(n2,kmul(R4p3312,rm1),kmul(rm2,kmadd(nn,Ro233,kmul(n1,R4p3231)))),kmadd(ltet1,kmadd(nn,kmul(rm2,Ro312),kmadd(nn,kmul(rm1,ksub(Ro311,Ro113)),kmadd(rm2,kmsub(n3,R4p1323,kmul(nn,Ro213)),kmadd(n3,kmsub(rm1,ksub(R4p1313,R4p1133),kmul(R4p1233,rm2)),kmadd(n1,kmadd(rm1,ksub(R4p1311,R4p1131),kmul(rm2,ksub(R4p1321,R4p1231))),kmul(n2,kmadd(rm1,ksub(R4p1312,R4p1132),kmul(rm2,ksub(R4p1322,R4p1232))))))))),kmul(ltet2,kmadd(nn,kmul(rm2,Ro322),kmadd(nn,kmul(rm1,ksub(Ro321,Ro123)),kmadd(rm2,kmsub(n3,R4p2323,kmul(nn,Ro223)),kmadd(n3,kmsub(rm1,ksub(R4p2313,R4p2133),kmul(R4p2233,rm2)),kmadd(n1,kmadd(rm1,ksub(R4p2311,R4p2131),kmul(rm2,ksub(R4p2321,R4p2231))),kmul(n2,kmadd(rm1,ksub(R4p2312,R4p2132),kmul(rm2,ksub(R4p2322,R4p2232)))))))))))))))))))))))))))),kmadd(im1,kmadd(n2,kmul(nn,kmul(rm3,Ro132)),kmadd(ltet3,kmul(nn,kmul(rm3,Ro133)),kmadd(n3,kmul(nn,kmul(rm3,Ro133)),kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),kmadd(n1,kmsub(ltet3,kmul(R4p3131,rm3),kmul(nn,kmul(rm2,Ro211))),kmadd(n2,kmsub(ltet3,kmul(R4p3132,rm3),kmul(nn,kmul(rm2,Ro212))),kmadd(n3,kmsub(ltet3,kmul(R4p3133,rm3),kmul(nn,kmul(rm2,Ro213))),kmadd(n1,kmul(nn,kmsub(rm2,Ro121,kmul(rm3,Ro311))),kmadd(n2,kmul(nn,kmsub(rm2,Ro122,kmul(rm3,Ro312))),kmadd(n3,kmul(nn,kmsub(rm2,Ro123,kmul(rm3,Ro313))),kmadd(rm2,kmsub(ltet3,kmul(nn,Ro132),kmul(Rojo12,kmul(nn,nn))),kmadd(rm3,kmsub(n1,kmul(nn,Ro131),kmul(Rojo13,kmul(nn,nn))),knmsub(ltet3,kmadd(rm2,kmadd(n3,R4p3213,kmul(n2,R4p3212)),kmul(n3,kmul(R4p3313,rm3))),kmadd(ltet3,kmadd(n1,kmsub(R4p3121,rm2,kmul(R4p3311,rm3)),kmul(rm2,kmsub(n2,R4p3122,kmul(nn,Ro231)))),kmadd(ltet3,kmsub(rm2,kmsub(n3,R4p3123,kmul(n1,R4p3211)),kmul(rm3,kmadd(nn,Ro331,kmul(n2,R4p3312)))),kmadd(ltet1,kmadd(nn,kmul(rm3,Ro113),kmadd(nn,kmul(rm2,ksub(Ro112,Ro211)),kmadd(rm3,kmsub(n3,R4p1133,kmul(nn,Ro311)),kmadd(n3,kmsub(rm2,ksub(R4p1123,R4p1213),kmul(R4p1313,rm3)),kmadd(n1,kmadd(rm2,ksub(R4p1121,R4p1211),kmul(rm3,ksub(R4p1131,R4p1311))),kmul(n2,kmadd(rm2,ksub(R4p1122,R4p1212),kmul(rm3,ksub(R4p1132,R4p1312))))))))),kmul(ltet2,kmadd(nn,kmul(rm3,Ro123),kmadd(nn,kmul(rm2,ksub(Ro122,Ro221)),kmadd(rm3,kmsub(n3,R4p2133,kmul(nn,Ro321)),kmadd(n3,kmsub(rm2,ksub(R4p2123,R4p2213),kmul(R4p2313,rm3)),kmadd(n1,kmadd(rm2,ksub(R4p2121,R4p2211),kmul(rm3,ksub(R4p2131,R4p2311))),kmul(n2,kmadd(rm2,ksub(R4p2122,R4p2212),kmul(rm3,ksub(R4p2132,R4p2312))))))))))))))))))))))))))),kmul(im2,kmadd(n2,kmul(nn,kmul(rm1,Ro212)),kmadd(n3,kmul(nn,kmul(rm1,Ro213)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro231)),kmadd(n2,kmul(nn,kmul(rm3,Ro232)),kmadd(ltet3,kmul(nn,kmul(rm3,Ro233)),kmadd(n3,kmul(nn,kmul(rm3,Ro233)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet3,kmsub(n3,kmul(R4p3213,rm1),kmul(n2,kmul(R4p3322,rm3))),kmadd(ltet3,kmul(rm1,kmsub(n1,R4p3211,kmadd(nn,Ro132,kmul(n3,R4p3123)))),kmadd(rm1,kmsub(n1,kmul(nn,Ro211),kmul(Rojo21,kmul(nn,nn))),kmadd(rm3,kmsub(n1,kmul(nn,Ro231),kmul(Rojo23,kmul(nn,nn))),knmsub(ltet3,kmadd(rm1,kmadd(n2,R4p3122,kmul(n1,R4p3121)),kmul(n3,kmul(R4p3323,rm3))),kmadd(n1,kmsub(rm3,kmsub(ltet3,R4p3231,kmul(nn,Ro321)),kmul(nn,kmul(rm1,Ro121))),kmadd(n2,kmsub(rm3,kmsub(ltet3,R4p3232,kmul(nn,Ro322)),kmul(nn,kmul(rm1,Ro122))),kmadd(n3,kmsub(rm3,kmsub(ltet3,R4p3233,kmul(nn,Ro323)),kmul(nn,kmul(rm1,Ro123))),kmadd(ltet3,kmsub(n2,kmul(R4p3212,rm1),kmul(rm3,kmadd(nn,Ro332,kmul(n1,R4p3321)))),kmadd(ltet1,kmadd(nn,kmul(rm3,Ro213),kmadd(nn,kmul(rm1,ksub(Ro211,Ro112)),kmadd(rm3,kmsub(n3,R4p1233,kmul(nn,Ro312)),kmadd(n3,kmsub(rm1,ksub(R4p1213,R4p1123),kmul(R4p1323,rm3)),kmadd(n1,kmadd(rm1,ksub(R4p1211,R4p1121),kmul(rm3,ksub(R4p1231,R4p1321))),kmul(n2,kmadd(rm1,ksub(R4p1212,R4p1122),kmul(rm3,ksub(R4p1232,R4p1322))))))))),kmul(ltet2,kmadd(nn,kmul(rm3,Ro223),kmadd(nn,kmul(rm1,ksub(Ro221,Ro122)),kmadd(rm3,kmsub(n3,R4p2233,kmul(nn,Ro322)),kmadd(n3,kmsub(rm1,ksub(R4p2213,R4p2123),kmul(R4p2323,rm3)),kmadd(n1,kmadd(rm1,ksub(R4p2211,R4p2121),kmul(rm3,ksub(R4p2231,R4p2321))),kmul(n2,kmadd(rm1,ksub(R4p2212,R4p2122),kmul(rm3,ksub(R4p2232,R4p2322)))))))))))))))))))))))))))))));
+      kmadd(im3,kmadd(n2,kmul(nn,kmul(rm1,Ro312)),kmadd(n3,kmul(nn,kmul(rm1,Ro313)),kmadd(n2,kmul(nn,kmul(rm2,Ro322)),kmadd(n3,kmul(nn,kmul(rm2,Ro323)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro331)),kmadd(ltet3,kmul(nn,kmul(rm2,Ro332)),kmadd(rm1,kmul(Rojo13,kmul(nn,nn)),kmadd(rm2,kmul(Rojo23,kmul(nn,nn)),kmadd(rm1,kmsub(n1,kmul(nn,Ro311),kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmsub(n1,kmul(nn,Ro321),kmul(Rojo32,kmul(nn,nn))),kmadd(ltet1,kmadd(n3,kmul(R4p1313,rm1),kmadd(n3,kmul(R4p1323,rm2),kmadd(nn,kmul(rm1,Ro311),kmadd(nn,kmul(rm2,Ro312),kmadd(rm1,kmsub(n2,R4p1213,kmul(nn,Ro113)),kmul(rm2,kmsub(n2,R4p1223,kmul(nn,Ro213)))))))),kmsub(ltet2,kmadd(nn,kmul(rm1,Ro321),kmadd(nn,kmul(rm2,Ro322),knmsub(n1,kmadd(R4p1213,rm1,kmul(R4p1223,rm2)),kmadd(rm1,kmsub(n3,R4p1323,kmul(nn,Ro123)),kmul(rm2,kmsub(n3,R4p2323,kmul(nn,Ro223))))))),kmadd(ltet3,kmadd(rm2,kmadd(n1,R4p1323,kmadd(nn,Ro233,kmul(n2,R4p2323))),kmul(rm1,kmadd(n1,R4p1313,kmadd(nn,Ro133,kmul(n2,R4p1323))))),kmul(nn,kmadd(rm2,kmadd(n1,Ro231,kmadd(n3,Ro233,kmul(n2,Ro232))),kmul(rm1,kmadd(n1,Ro131,kmadd(n3,Ro133,kmul(n2,Ro132))))))))))))))))))),kmadd(im2,kmadd(n3,kmul(nn,kmul(rm1,Ro213)),kmadd(ltet3,kmul(nn,kmul(rm1,Ro231)),kmadd(n2,kmul(nn,kmul(rm3,Ro232)),kmadd(ltet3,kmul(nn,kmul(rm3,Ro233)),kmadd(n3,kmul(nn,kmul(rm3,Ro233)),kmadd(rm1,kmul(Rojo12,kmul(nn,nn)),kmadd(rm3,kmul(Rojo32,kmul(nn,nn)),kmadd(rm1,kmsub(n2,kmul(nn,Ro212),kmul(Rojo21,kmul(nn,nn))),kmadd(rm3,kmsub(n1,kmul(nn,Ro231),kmul(Rojo23,kmul(nn,nn))),kmadd(nn,kmsub(rm1,kmsub(n1,Ro211,kmul(n3,Ro123)),kmul(n3,kmul(rm3,Ro323))),knmsub(ltet3,kmadd(rm1,kmadd(n1,R4p1213,kmadd(nn,Ro132,kmul(n2,R4p1223))),kmul(nn,kmul(rm3,Ro332))),kmadd(n1,kmsub(rm3,kmsub(ltet3,R4p1323,kmul(nn,Ro321)),kmul(nn,kmul(rm1,Ro121))),kmadd(n2,kmsub(rm3,kmsub(ltet3,R4p2323,kmul(nn,Ro322)),kmul(nn,kmul(rm1,Ro122))),kmadd(ltet2,kmadd(nn,kmul(rm1,Ro221),kmadd(nn,kmul(rm3,Ro223),kmadd(rm1,kmsub(n3,R4p1223,kmadd(nn,Ro122,kmul(n1,R4p1212))),kmul(rm3,kmsub(n1,R4p1223,kmadd(nn,Ro322,kmul(n3,R4p2323))))))),kmul(ltet1,kmadd(nn,kmul(rm3,Ro213),kmadd(n2,kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),kmadd(n3,kmsub(R4p1213,rm1,kmul(R4p1323,rm3)),kmul(nn,kmsub(rm1,ksub(Ro211,Ro112),kmul(rm3,Ro312))))))))))))))))))))),kmul(im1,kmadd(rm2,kmul(Rojo21,kmul(nn,nn)),kmadd(rm3,kmul(Rojo31,kmul(nn,nn)),knmsub(kmul(nn,nn),kmadd(rm3,Rojo13,kmul(rm2,Rojo12)),knmsub(ltet1,kmadd(n3,kmul(R4p1213,rm2),kmadd(n3,kmul(R4p1313,rm3),kmadd(nn,kmul(rm2,Ro211),kmadd(nn,kmul(rm3,Ro311),kmadd(rm2,kmsub(n2,R4p1212,kmul(nn,Ro112)),kmul(rm3,kmsub(n2,R4p1213,kmul(nn,Ro113)))))))),kmadd(nn,kmadd(n1,kmul(rm2,ksub(Ro121,Ro211)),kmadd(n2,kmul(rm2,ksub(Ro122,Ro212)),kmadd(n3,kmul(rm2,ksub(Ro123,Ro213)),kmadd(n1,kmul(rm3,ksub(Ro131,Ro311)),kmadd(n2,kmul(rm3,ksub(Ro132,Ro312)),kmul(n3,kmul(rm3,ksub(Ro133,Ro313)))))))),kmadd(ltet3,kmadd(n2,kmul(R4p1223,rm2),kmadd(n2,kmul(R4p1323,rm3),kmadd(nn,kmul(rm2,Ro132),kmadd(nn,kmul(rm3,Ro133),kmadd(rm2,kmsub(n1,R4p1213,kmul(nn,Ro231)),kmul(rm3,kmsub(n1,R4p1313,kmul(nn,Ro331)))))))),kmul(ltet2,kmadd(n1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmsub(nn,kmadd(rm2,ksub(Ro122,Ro221),kmul(rm3,ksub(Ro123,Ro321))),kmul(n3,kmadd(R4p1223,rm2,kmul(R4p1323,rm3)))))))))))))));
     
     CCTK_REAL_VEC Psi1rL = 
-      kmadd(kmadd(n1,kmadd(R4p1111,rm1,kmadd(R4p1121,rm2,kmul(R4p1131,rm3))),kmadd(n2,kmadd(R4p2111,rm1,kmadd(R4p2121,rm2,kmul(R4p2131,rm3))),kmadd(n3,kmadd(R4p3111,rm1,kmadd(R4p3121,rm2,kmul(R4p3131,rm3))),kmul(nn,kmadd(rm1,Ro111,kmadd(rm2,Ro121,kmul(rm3,Ro131))))))),kmul(ltet1,ltet1),kmadd(kmadd(n1,kmadd(R4p1212,rm1,kmadd(R4p1222,rm2,kmul(R4p1232,rm3))),kmadd(n2,kmadd(R4p2212,rm1,kmadd(R4p2222,rm2,kmul(R4p2232,rm3))),kmadd(n3,kmadd(R4p3212,rm1,kmadd(R4p3222,rm2,kmul(R4p3232,rm3))),kmul(nn,kmadd(rm1,Ro212,kmadd(rm2,Ro222,kmul(rm3,Ro232))))))),kmul(ltet2,ltet2),kmadd(kmadd(n1,kmadd(R4p1323,rm2,kmul(R4p1333,rm3)),kmadd(rm1,kmadd(n3,R4p3313,kmul(nn,Ro313)),kmul(nn,kmadd(rm2,Ro323,kmul(rm3,Ro333))))),kmul(ltet3,ltet3),kmadd(rm1,kmadd(kmadd(n1,R4p1313,kmul(n2,R4p2313)),kmul(ltet3,ltet3),kmul(n1,kmul(Rojo11,kmul(nn,nn)))),kmadd(rm2,kmadd(kmadd(n2,R4p2323,kmul(n3,R4p3323)),kmul(ltet3,ltet3),kmul(n1,kmul(Rojo12,kmul(nn,nn)))),kmadd(rm3,kmadd(kmadd(n2,R4p2333,kmul(n3,R4p3333)),kmul(ltet3,ltet3),kmul(n1,kmul(Rojo13,kmul(nn,nn)))),kmadd(kmul(nn,nn),kmadd(n2,kmadd(rm1,Rojo21,kmul(rm2,Rojo22)),kmadd(n3,kmadd(rm1,Rojo31,kmadd(rm2,Rojo32,kmul(rm3,Rojo33))),kmsub(rm3,kmsub(n2,Rojo23,kmul(ltet3,Rojo33)),kmul(ltet3,kmul(rm2,Rojo32))))),kmadd(ltet3,kmsub(nn,kmadd(n3,kmul(rm3,kmul(Ro333,ToReal(-2.))),knmsub(n2,kmul(rm3,kadd(Ro323,Ro233)),kmadd(rm1,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmsub(rm2,kmsub(n2,kmul(Ro223,ToReal(-2.)),kmul(n3,kadd(Ro323,Ro233))),kmul(n1,kmadd(rm3,kadd(Ro313,Ro133),kmul(rm2,kadd(Ro213,Ro123)))))))),kmul(rm1,kmul(Rojo31,kmul(nn,nn)))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kmadd(kadd(R4p1112,R4p1211),rm1,kmadd(kadd(R4p1122,R4p1221),rm2,kmul(kadd(R4p1132,R4p1231),rm3))),kmadd(n2,kmadd(kadd(R4p2112,R4p2211),rm1,kmadd(kadd(R4p2122,R4p2221),rm2,kmul(kadd(R4p2132,R4p2231),rm3))),kmadd(n3,kmadd(kadd(R4p3112,R4p3211),rm1,kmadd(kadd(R4p3122,R4p3221),rm2,kmul(kadd(R4p3132,R4p3231),rm3))),kmul(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm2,kadd(Ro122,Ro221),kmul(rm3,kadd(Ro132,Ro231)))))))),kmsub(ltet3,kmadd(n1,kmadd(kadd(R4p1113,R4p1311),rm1,kmadd(kadd(R4p1123,R4p1321),rm2,kmul(kadd(R4p1133,R4p1331),rm3))),kmadd(n2,kmadd(kadd(R4p2113,R4p2311),rm1,kmadd(kadd(R4p2123,R4p2321),rm2,kmul(kadd(R4p2133,R4p2331),rm3))),kmadd(n3,kmadd(kadd(R4p3113,R4p3311),rm1,kmadd(kadd(R4p3123,R4p3321),rm2,kmul(kadd(R4p3133,R4p3331),rm3))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro123,Ro321),kmul(rm3,kadd(Ro133,Ro331)))))))),kmul(nn,kmadd(nn,kmadd(rm1,Rojo11,kmadd(rm2,Rojo12,kmul(rm3,Rojo13))),kmadd(n1,kmadd(rm2,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro131,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))),kmadd(n2,kmadd(rm1,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro231,Ro321),kmul(rm2,kmul(Ro221,ToReal(2.))))),kmul(n3,kmadd(rm1,kadd(Ro131,Ro311),kmadd(rm2,kadd(Ro231,Ro321),kmul(rm3,kmul(Ro331,ToReal(2.)))))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kmadd(kadd(R4p1213,R4p1312),rm1,kmadd(kadd(R4p1223,R4p1322),rm2,kmul(kadd(R4p1233,R4p1332),rm3))),kmadd(n2,kmadd(kadd(R4p2213,R4p2312),rm1,kmadd(kadd(R4p2223,R4p2322),rm2,kmul(kadd(R4p2233,R4p2332),rm3))),kmadd(n3,kmadd(kadd(R4p3213,R4p3312),rm1,kmadd(kadd(R4p3223,R4p3322),rm2,kmul(kadd(R4p3233,R4p3332),rm3))),kmul(nn,kmadd(rm1,kadd(Ro213,Ro312),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kadd(Ro233,Ro332)))))))),kmul(nn,kmadd(nn,kmadd(rm1,Rojo21,kmadd(rm2,Rojo22,kmul(rm3,Rojo23))),kmadd(n1,kmadd(rm2,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro132,Ro312),kmul(rm1,kmul(Ro112,ToReal(2.))))),kmadd(n2,kmadd(rm1,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro232,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.))))),kmul(n3,kmadd(rm1,kadd(Ro132,Ro312),kmadd(rm2,kadd(Ro232,Ro322),kmul(rm3,kmul(Ro332,ToReal(2.)))))))))))))))))))));
+      kmadd(kmadd(n2,kmul(R4p1212,rm2),kmadd(n3,kmul(R4p1213,rm2),kmadd(n2,kmul(R4p1213,rm3),kmadd(n3,kmul(R4p1313,rm3),kmadd(nn,kmul(rm1,Ro111),kmadd(nn,kmul(rm2,Ro121),kmul(nn,kmul(rm3,Ro131)))))))),kmul(ltet1,ltet1),kmadd(n1,kmul(R4p1313,kmul(rm1,kmul(ltet3,ltet3))),kmadd(n2,kmul(R4p1323,kmul(rm1,kmul(ltet3,ltet3))),kmadd(n2,kmul(R4p2323,kmul(rm2,kmul(ltet3,ltet3))),kmadd(nn,kmul(rm1,kmul(Ro313,kmul(ltet3,ltet3))),kmadd(nn,kmul(rm2,kmul(Ro323,kmul(ltet3,ltet3))),kmadd(n1,kmul(rm1,kmul(Rojo11,kmul(nn,nn))),kmadd(n1,kmul(rm2,kmul(Rojo12,kmul(nn,nn))),kmadd(n1,kmul(rm3,kmul(Rojo13,kmul(nn,nn))),kmadd(n2,kmul(rm1,kmul(Rojo21,kmul(nn,nn))),kmadd(n2,kmul(rm2,kmul(Rojo22,kmul(nn,nn))),kmadd(n2,kmul(rm3,kmul(Rojo23,kmul(nn,nn))),kmadd(n3,kmul(rm1,kmul(Rojo31,kmul(nn,nn))),kmadd(n3,kmul(rm2,kmul(Rojo32,kmul(nn,nn))),kmadd(n3,kmul(rm3,kmul(Rojo33,kmul(nn,nn))),kmadd(rm2,kmsub(n1,kmul(R4p1323,kmul(ltet3,ltet3)),kmul(ltet3,kmul(Rojo32,kmul(nn,nn)))),kmadd(rm3,kmsub(nn,kmul(Ro333,kmul(ltet3,ltet3)),kmul(ltet3,kmul(Rojo33,kmul(nn,nn)))),kmadd(kmul(ltet2,ltet2),kmadd(nn,kmul(rm1,Ro212),kmadd(nn,kmul(rm2,Ro222),kmadd(nn,kmul(rm3,Ro232),kmadd(rm3,kmsub(n3,R4p2323,kmul(n1,R4p1223)),kmul(rm1,kmsub(n1,R4p1212,kmul(n3,R4p1223))))))),kmsub(ltet3,kmadd(n3,kmul(nn,kmul(rm3,kmul(Ro333,ToReal(-2.)))),knmsub(rm1,kmul(Rojo31,kmul(nn,nn)),kmadd(n2,kmul(nn,kmsub(rm2,kmul(Ro223,ToReal(-2.)),kmul(rm3,kadd(Ro323,Ro233)))),kmul(nn,knmsub(n3,kmul(rm2,kadd(Ro323,Ro233)),kmsub(rm1,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmul(n1,kmadd(rm3,kadd(Ro313,Ro133),kmul(rm2,kadd(Ro213,Ro123)))))))))),kmadd(ltet2,kmadd(ltet1,kmadd(n3,kmsub(R4p1213,rm1,kmul(R4p1223,rm2)),kmadd(n2,kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),kmadd(rm3,kmsub(n1,R4p1213,kmul(nn,Ro132)),knmsub(nn,kmul(rm1,kadd(Ro211,Ro112)),kmadd(rm3,kmsub(n3,kmul(R4p1323,ToReal(-2.)),kmul(nn,Ro231)),kmul(rm2,kmsub(n1,R4p1212,kmul(nn,kadd(Ro221,Ro122))))))))),kmsub(nn,kmadd(n3,kmul(rm1,Ro132),kmadd(n3,kmul(rm2,Ro232),kmadd(n3,kmul(rm1,Ro312),kmadd(n3,kmul(rm2,Ro322),kmadd(nn,kmul(rm1,Rojo21),kmadd(nn,kmul(rm2,Rojo22),kmadd(nn,kmul(rm3,Rojo23),kmadd(n3,kmul(rm3,kmul(Ro332,ToReal(2.))),kmadd(n1,kmadd(rm2,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro132,Ro312),kmul(rm1,kmul(Ro112,ToReal(2.))))),kmul(n2,kmadd(rm1,kadd(Ro122,Ro212),kmadd(rm3,kadd(Ro232,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.))))))))))))))),kmul(ltet3,kmadd(nn,kmul(rm1,Ro213),kmadd(nn,kmul(rm2,Ro223),kmadd(nn,kmul(rm3,Ro233),kmadd(nn,kmul(rm1,Ro312),kmadd(nn,kmul(rm2,Ro322),kmadd(nn,kmul(rm3,Ro332),kmadd(rm1,kmsub(n2,R4p1223,kmul(n3,R4p1323)),kmsub(n1,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(R4p2323,kmadd(n2,rm3,kmul(n3,rm2)))))))))))))),kmul(ltet1,kmadd(ltet3,kmadd(rm2,kmsub(n1,R4p1213,kmul(nn,Ro123)),kmadd(rm2,kmsub(n3,R4p1323,kmul(nn,Ro321)),kmadd(rm1,kmsub(n3,R4p1313,kmul(nn,kadd(Ro311,Ro113))),kmadd(rm3,kmsub(n1,R4p1313,kmul(nn,kadd(Ro331,Ro133))),kmul(n2,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.)))))))))),kmul(nn,kmadd(n3,kmul(rm1,Ro131),kmadd(n3,kmul(rm2,Ro231),kmadd(n3,kmul(rm1,Ro311),kmadd(n3,kmul(rm2,Ro321),kmadd(nn,kmul(rm1,Rojo11),kmadd(nn,kmul(rm2,Rojo12),kmadd(nn,kmul(rm3,Rojo13),kmadd(n3,kmul(rm3,kmul(Ro331,ToReal(2.))),kmadd(n1,kmadd(rm2,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro131,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))),kmul(n2,kmadd(rm1,kadd(Ro121,Ro211),kmadd(rm3,kadd(Ro231,Ro321),kmul(rm2,kmul(Ro221,ToReal(2.))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi1iL = 
-      kmadd(im1,kmadd(kmadd(n1,R4p1111,kmadd(n2,R4p2111,kmadd(n3,R4p3111,kmul(nn,Ro111)))),kmul(ltet1,ltet1),kmadd(kmadd(n1,R4p1212,kmadd(n2,R4p2212,kmadd(n3,R4p3212,kmul(nn,Ro212)))),kmul(ltet2,ltet2),kmadd(kmadd(n1,R4p1313,kmadd(n2,R4p2313,kmadd(n3,R4p3313,kmul(nn,Ro313)))),kmul(ltet3,ltet3),kmadd(kmadd(n1,Rojo11,kmadd(n2,Rojo21,kmul(n3,Rojo31))),kmul(nn,nn),kmadd(ltet3,kmsub(nn,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmul(Rojo31,kmul(nn,nn))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kadd(R4p1112,R4p1211),kmadd(n2,kadd(R4p2112,R4p2211),kmadd(n3,kadd(R4p3112,R4p3211),kmul(nn,kadd(Ro112,Ro211))))),kmsub(ltet3,kmadd(n1,kadd(R4p1113,R4p1311),kmadd(n2,kadd(R4p2113,R4p2311),kmadd(n3,kadd(R4p3113,R4p3311),kmul(nn,kadd(Ro113,Ro311))))),kmul(nn,kmadd(n2,kadd(Ro121,Ro211),kmadd(n3,kadd(Ro131,Ro311),kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kadd(R4p1213,R4p1312),kmadd(n2,kadd(R4p2213,R4p2312),kmadd(n3,kadd(R4p3213,R4p3312),kmul(nn,kadd(Ro213,Ro312))))),kmul(nn,kmadd(n2,kadd(Ro122,Ro212),kmadd(n3,kadd(Ro132,Ro312),kmadd(nn,Rojo21,kmul(n1,kmul(Ro112,ToReal(2.))))))))))))))),kmadd(im2,kmadd(kmadd(n1,R4p1121,kmadd(n2,R4p2121,kmadd(n3,R4p3121,kmul(nn,Ro121)))),kmul(ltet1,ltet1),kmadd(kmadd(n1,R4p1222,kmadd(n2,R4p2222,kmadd(n3,R4p3222,kmul(nn,Ro222)))),kmul(ltet2,ltet2),kmadd(n1,kmul(R4p1323,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p2323,kmul(ltet3,ltet3)),kmadd(n3,kmul(R4p3323,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro323,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo12,kmul(nn,nn)),kmadd(n2,kmul(Rojo22,kmul(nn,nn)),kmadd(n3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet3,kmul(nn,kmsub(n2,kmul(Ro223,ToReal(-2.)),kmul(n3,Ro323))),knmsub(ltet3,kmadd(nn,kmadd(n1,kadd(Ro213,Ro123),kmul(n3,Ro233)),kmul(Rojo32,kmul(nn,nn))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kadd(R4p1122,R4p1221),kmadd(n2,kadd(R4p2122,R4p2221),kmadd(n3,R4p3122,kmadd(n3,R4p3221,kmadd(nn,Ro122,kmul(nn,Ro221)))))),kmsub(ltet3,kmadd(n1,kadd(R4p1123,R4p1321),kmadd(n2,kadd(R4p2123,R4p2321),kmadd(n3,R4p3123,kmadd(n3,R4p3321,kmadd(nn,Ro123,kmul(nn,Ro321)))))),kmul(nn,kmadd(n1,kadd(Ro121,Ro211),kmadd(n3,Ro231,kmadd(n3,Ro321,kmadd(nn,Rojo12,kmul(n2,kmul(Ro221,ToReal(2.)))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kadd(R4p1223,R4p1322),kmadd(n2,kadd(R4p2223,R4p2322),kmadd(n3,R4p3223,kmadd(n3,R4p3322,kmadd(nn,Ro223,kmul(nn,Ro322)))))),kmul(nn,kmadd(n1,kadd(Ro122,Ro212),kmadd(n3,Ro232,kmadd(n3,Ro322,kmadd(nn,Rojo22,kmul(n2,kmul(Ro222,ToReal(2.)))))))))))))))))))))),kmul(im3,kmadd(kmadd(n1,R4p1131,kmadd(n2,R4p2131,kmadd(n3,R4p3131,kmul(nn,Ro131)))),kmul(ltet1,ltet1),kmadd(kmadd(n1,R4p1232,kmadd(n2,R4p2232,kmadd(n3,R4p3232,kmul(nn,Ro232)))),kmul(ltet2,ltet2),kmadd(n1,kmul(R4p1333,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p2333,kmul(ltet3,ltet3)),kmadd(n3,kmul(R4p3333,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro333,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo13,kmul(nn,nn)),kmadd(n2,kmul(Rojo23,kmul(nn,nn)),kmadd(n3,kmul(Rojo33,kmul(nn,nn)),kmadd(ltet3,kmul(n3,kmul(nn,kmul(Ro333,ToReal(-2.)))),knmsub(ltet3,kmadd(nn,kmadd(n2,kadd(Ro323,Ro233),kmul(n1,kadd(Ro313,Ro133))),kmul(Rojo33,kmul(nn,nn))),kmadd(ltet1,kmadd(ltet2,kmadd(n1,kadd(R4p1132,R4p1231),kmadd(n2,kadd(R4p2132,R4p2231),kmadd(n3,R4p3132,kmadd(n3,R4p3231,kmadd(nn,Ro132,kmul(nn,Ro231)))))),kmsub(ltet3,kmadd(n1,kadd(R4p1133,R4p1331),kmadd(n2,kadd(R4p2133,R4p2331),kmadd(n3,R4p3133,kmadd(n3,R4p3331,kmadd(nn,Ro133,kmul(nn,Ro331)))))),kmul(nn,kmadd(n1,kadd(Ro131,Ro311),kmadd(n2,kadd(Ro231,Ro321),kmadd(nn,Rojo13,kmul(n3,kmul(Ro331,ToReal(2.))))))))),kmul(ltet2,kmsub(ltet3,kmadd(n1,kadd(R4p1233,R4p1332),kmadd(n2,kadd(R4p2233,R4p2332),kmadd(n3,R4p3233,kmadd(n3,R4p3332,kmadd(nn,Ro233,kmul(nn,Ro332)))))),kmul(nn,kmadd(n1,kadd(Ro132,Ro312),kmadd(n2,kadd(Ro232,Ro322),kmadd(nn,Rojo23,kmul(n3,kmul(Ro332,ToReal(2.))))))))))))))))))))))));
+      kmadd(im1,kmadd(nn,kmul(Ro111,kmul(ltet1,ltet1)),kmadd(n1,kmul(R4p1313,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p1323,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro313,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo11,kmul(nn,nn)),kmadd(n2,kmul(Rojo21,kmul(nn,nn)),kmadd(n3,kmul(Rojo31,kmul(nn,nn)),kmadd(kmul(ltet2,ltet2),kmadd(n1,R4p1212,kmsub(nn,Ro212,kmul(n3,R4p1223))),kmsub(ltet3,kmsub(nn,kmsub(n1,kmul(Ro113,ToReal(-2.)),kmadd(n3,kadd(Ro313,Ro133),kmul(n2,kadd(Ro213,Ro123)))),kmul(Rojo31,kmul(nn,nn))),kmadd(ltet2,kmadd(ltet1,kmadd(n2,R4p1212,kmsub(n3,R4p1213,kmul(nn,kadd(Ro112,Ro211)))),kmsub(nn,kmadd(n3,Ro132,kmadd(n2,kadd(Ro122,Ro212),kmadd(n3,Ro312,kmadd(nn,Rojo21,kmul(n1,kmul(Ro112,ToReal(2.))))))),kmul(ltet3,kmadd(n2,R4p1223,kmadd(nn,Ro213,kmadd(nn,Ro312,kmsub(n1,kmul(R4p1213,ToReal(2.)),kmul(n3,R4p1323)))))))),kmul(ltet1,kmadd(ltet3,kmadd(n2,R4p1213,kmsub(n3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),kmul(nn,kmadd(n3,Ro131,kmadd(n2,kadd(Ro121,Ro211),kmadd(n3,Ro311,kmadd(nn,Rojo11,kmul(n1,kmul(Ro111,ToReal(2.)))))))))))))))))))),kmadd(im2,kmadd(kmadd(n2,R4p1212,kmadd(n3,R4p1213,kmul(nn,Ro121))),kmul(ltet1,ltet1),kmadd(nn,kmul(Ro222,kmul(ltet2,ltet2)),kmadd(n1,kmul(R4p1323,kmul(ltet3,ltet3)),kmadd(n2,kmul(R4p2323,kmul(ltet3,ltet3)),kmadd(nn,kmul(Ro323,kmul(ltet3,ltet3)),kmadd(n1,kmul(Rojo12,kmul(nn,nn)),kmadd(n2,kmul(Rojo22,kmul(nn,nn)),kmadd(n3,kmul(Rojo32,kmul(nn,nn)),kmadd(ltet3,kmul(nn,kmsub(n2,kmul(Ro223,ToReal(-2.)),kmul(n3,Ro323))),knmsub(ltet3,kmadd(nn,kmadd(n1,kadd(Ro213,Ro123),kmul(n3,Ro233)),kmul(Rojo32,kmul(nn,nn))),kmsub(ltet2,kmsub(ltet3,kmadd(n1,R4p1223,kmsub(nn,kadd(Ro223,Ro322),kmul(n3,R4p2323))),kmul(nn,kmadd(n1,kadd(Ro122,Ro212),kmadd(n3,Ro232,kmadd(n3,Ro322,kmadd(nn,Rojo22,kmul(n2,kmul(Ro222,ToReal(2.))))))))),kmul(ltet1,kmadd(ltet2,kmsub(n1,R4p1212,kmadd(nn,kadd(Ro122,Ro221),kmul(n3,R4p1223))),kmadd(ltet3,kmadd(n1,R4p1213,kmadd(n3,R4p1323,kmsub(n2,kmul(R4p1223,ToReal(2.)),kmul(nn,kadd(Ro321,Ro123))))),kmul(nn,kmadd(n1,kadd(Ro121,Ro211),kmadd(n3,Ro231,kmadd(n3,Ro321,kmadd(nn,Rojo12,kmul(n2,kmul(Ro221,ToReal(2.)))))))))))))))))))))),kmul(im3,kmadd(kmadd(n2,R4p1213,kmadd(n3,R4p1313,kmul(nn,Ro131))),kmul(ltet1,ltet1),kmsub(kmul(ltet2,ltet2),kmadd(n3,R4p2323,kmsub(nn,Ro232,kmul(n1,R4p1223))),kmadd(ltet1,kmadd(ltet3,kmadd(n1,R4p1313,kmsub(n2,R4p1323,kmul(nn,kadd(Ro133,Ro331)))),kmadd(ltet2,kmadd(n1,R4p1213,kmsub(n3,kmul(R4p1323,ToReal(-2.)),kmadd(nn,kadd(Ro231,Ro132),kmul(n2,R4p1223)))),kmul(nn,kmadd(n1,kadd(Ro131,Ro311),kmadd(n2,kadd(Ro231,Ro321),kmadd(nn,Rojo13,kmul(n3,kmul(Ro331,ToReal(2.))))))))),kmadd(nn,knmsub(nn,kmadd(n1,Rojo13,kmadd(n2,Rojo23,kmul(n3,Rojo33))),kmsub(ltet3,kmadd(n1,kadd(Ro133,Ro313),kmadd(n2,kadd(Ro233,Ro323),kmadd(nn,Rojo33,kmul(n3,kmul(Ro333,ToReal(2.)))))),kmul(Ro333,kmul(ltet3,ltet3)))),kmul(ltet2,kmadd(ltet3,kmadd(n1,R4p1323,kmsub(n2,R4p2323,kmul(nn,kadd(Ro233,Ro332)))),kmul(nn,kmadd(n1,kadd(Ro132,Ro312),kmadd(n2,kadd(Ro232,Ro322),kmadd(nn,Rojo23,kmul(n3,kmul(Ro332,ToReal(2.))))))))))))))));
     
     CCTK_REAL_VEC Psi0rL = 
-      kmadd(R4p1112,kmul(rm1,kmul(rm2,kmul(ltet1,ltet1))),kmadd(R4p1211,kmul(rm1,kmul(rm2,kmul(ltet1,ltet1))),kmadd(R4p1113,kmul(rm1,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p1311,kmul(rm1,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p1213,kmul(rm2,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p1312,kmul(rm2,kmul(rm3,kmul(ltet1,ltet1))),kmadd(R4p2122,kmul(rm1,kmul(rm2,kmul(ltet2,ltet2))),kmadd(R4p2221,kmul(rm1,kmul(rm2,kmul(ltet2,ltet2))),kmadd(R4p2123,kmul(rm1,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p2321,kmul(rm1,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p2223,kmul(rm2,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p2322,kmul(rm2,kmul(rm3,kmul(ltet2,ltet2))),kmadd(R4p3132,kmul(rm1,kmul(rm2,kmul(ltet3,ltet3))),kmadd(R4p3231,kmul(rm1,kmul(rm2,kmul(ltet3,ltet3))),kmadd(R4p3133,kmul(rm1,kmul(rm3,kmul(ltet3,ltet3))),kmadd(R4p3331,kmul(rm1,kmul(rm3,kmul(ltet3,ltet3))),kmadd(R4p3233,kmul(rm2,kmul(rm3,kmul(ltet3,ltet3))),kmadd(R4p3332,kmul(rm2,kmul(rm3,kmul(ltet3,ltet3))),kmadd(rm1,kmul(rm2,kmul(Rojo12,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo13,kmul(nn,nn))),kmadd(rm1,kmul(rm2,kmul(Rojo21,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo23,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo32,kmul(nn,nn))),kmadd(ltet1,kmul(ltet2,kmul(R4p1121,kmul(rm1,rm1))),kmadd(ltet1,kmul(ltet3,kmul(R4p1131,kmul(rm1,rm1))),kmadd(ltet1,kmul(ltet2,kmul(R4p2111,kmul(rm1,rm1))),kmadd(ltet2,kmul(ltet3,kmul(R4p2131,kmul(rm1,rm1))),kmadd(ltet1,kmul(ltet3,kmul(R4p3111,kmul(rm1,rm1))),kmadd(ltet2,kmul(ltet3,kmul(R4p3121,kmul(rm1,rm1))),kmadd(R4p1111,kmul(kmul(ltet1,ltet1),kmul(rm1,rm1)),kmadd(R4p2121,kmul(kmul(ltet2,ltet2),kmul(rm1,rm1)),kmadd(R4p3131,kmul(kmul(ltet3,ltet3),kmul(rm1,rm1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rm1,rm1)),kmadd(ltet1,kmul(ltet2,kmul(R4p1222,kmul(rm2,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p1232,kmul(rm2,rm2))),kmadd(ltet1,kmul(ltet2,kmul(R4p2212,kmul(rm2,rm2))),kmadd(ltet2,kmul(ltet3,kmul(R4p2232,kmul(rm2,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p3212,kmul(rm2,rm2))),kmadd(ltet2,kmul(ltet3,kmul(R4p3222,kmul(rm2,rm2))),kmadd(R4p1212,kmul(kmul(ltet1,ltet1),kmul(rm2,rm2)),kmadd(R4p2222,kmul(kmul(ltet2,ltet2),kmul(rm2,rm2)),kmadd(R4p3232,kmul(kmul(ltet3,ltet3),kmul(rm2,rm2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rm2,rm2)),kmadd(ltet1,kmul(ltet2,kmul(R4p1323,kmul(rm3,rm3))),kmadd(ltet1,kmul(ltet3,kmul(R4p1333,kmul(rm3,rm3))),kmadd(ltet1,kmul(ltet2,kmul(R4p2313,kmul(rm3,rm3))),kmadd(ltet2,kmul(ltet3,kmul(R4p2333,kmul(rm3,rm3))),kmadd(ltet1,kmul(ltet3,kmul(R4p3313,kmul(rm3,rm3))),kmadd(ltet2,kmul(ltet3,kmul(R4p3323,kmul(rm3,rm3))),kmadd(ltet2,kmul(nn,kmul(Ro323,kmul(kmul(im3,im3),ToReal(-2.)))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(kmul(im3,im3),ToReal(-2.)))),knmsub(ltet3,kmul(kmul(im3,im3),kmadd(ltet1,R4p3313,kmul(ltet2,R4p2333))),kmadd(kmul(im3,im3),kmsub(ltet1,kmul(nn,kmul(Ro313,ToReal(-2.))),kmul(ltet2,kmul(ltet3,R4p3323))),kmadd(R4p1313,kmsub(kmul(ltet1,ltet1),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(ltet1,ltet1))),kmadd(R4p2323,kmsub(kmul(ltet2,ltet2),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(ltet2,ltet2))),kmadd(R4p3333,kmsub(kmul(ltet3,ltet3),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(ltet3,ltet3))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(nn,nn))),kmadd(ltet1,kmul(nn,kmul(Ro111,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro121,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro131,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro212,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro222,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro232,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro313,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro323,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet1,kmadd(ltet3,kmul(R4p1132,kmul(rm1,rm2)),kmadd(ltet2,kmul(R4p1221,kmul(rm1,rm2)),kmadd(ltet3,kmul(R4p1231,kmul(rm1,rm2)),kmadd(ltet2,kmul(R4p1123,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p1331,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p2113,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p1233,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p1322,kmul(rm2,rm3)),kmadd(ltet3,kmul(R4p1332,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p2213,kmul(rm2,rm3)),kmadd(ltet2,kmsub(R4p1122,kmul(rm1,rm2),kmul(R4p1323,kmul(im3,im3))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro112,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro113,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro211,ToReal(2.)))),kmadd(nn,kmul(rm2,kmul(rm3,kmul(Ro213,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro311,ToReal(2.)))),kmul(nn,kmul(rm2,kmul(rm3,kmul(Ro312,ToReal(2.))))))))))))))))))))),kmadd(ltet2,kmadd(ltet3,kmul(R4p2132,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p2211,kmul(rm1,rm2)),kmadd(ltet3,kmul(R4p2231,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p1321,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p2133,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p2311,kmul(rm1,rm3)),kmadd(ltet3,kmul(R4p3321,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p1223,kmul(rm2,rm3)),kmadd(ltet3,kmul(R4p2233,kmul(rm2,rm3)),kmadd(ltet1,kmul(R4p2312,kmul(rm2,rm3)),kmadd(ltet1,kmsub(R4p2112,kmul(rm1,rm2),kmul(R4p2313,kmul(im3,im3))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro123,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rm2,kmul(rm3,kmul(Ro223,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro321,ToReal(2.)))),kmul(nn,kmul(rm2,kmul(rm3,kmul(Ro322,ToReal(2.))))))))))))))))))))),kmsub(ltet3,kmadd(ltet2,kmul(R4p3122,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p3211,kmul(rm1,rm2)),kmadd(ltet2,kmul(R4p3221,kmul(rm1,rm2)),kmadd(ltet1,kmul(R4p1133,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p2331,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p3113,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p3123,kmul(rm1,rm3)),kmadd(ltet1,kmul(R4p3311,kmul(rm1,rm3)),kmadd(ltet2,kmul(R4p2332,kmul(rm2,rm3)),kmadd(ltet1,kmul(R4p3213,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p3223,kmul(rm2,rm3)),kmadd(ltet1,kmul(R4p3312,kmul(rm2,rm3)),kmadd(ltet2,kmul(R4p3322,kmul(rm2,rm3)),kmadd(ltet1,kmsub(R4p3112,kmul(rm1,rm2),kmul(R4p1333,kmul(im3,im3))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro132,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro133,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro231,ToReal(2.)))),kmadd(nn,kmul(rm2,kmul(rm3,kmul(Ro233,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro331,ToReal(2.)))),kmul(nn,kmul(rm2,kmul(rm3,kmul(Ro332,ToReal(2.)))))))))))))))))))))))),kmadd(kmul(im1,im1),kmadd(ltet2,kmul(ltet3,R4p2131),kmadd(ltet2,kmul(ltet3,R4p3121),kmadd(R4p1111,kmul(ltet1,ltet1),kmadd(R4p2121,kmul(ltet2,ltet2),kmadd(R4p3131,kmul(ltet3,ltet3),kmadd(Rojo11,kmul(nn,nn),kmadd(ltet2,kmul(nn,kmul(Ro121,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(ltet1,kmadd(ltet2,kadd(R4p1121,R4p2111),kmadd(ltet3,kadd(R4p1131,R4p3111),kmul(nn,kmul(Ro111,ToReal(2.)))))))))))))),kmadd(kmul(im2,im2),kmadd(ltet2,kmul(ltet3,R4p2232),kmadd(ltet2,kmul(ltet3,R4p3222),kmadd(R4p1212,kmul(ltet1,ltet1),kmadd(R4p2222,kmul(ltet2,ltet2),kmadd(R4p3232,kmul(ltet3,ltet3),kmadd(Rojo22,kmul(nn,nn),kmadd(ltet2,kmul(nn,kmul(Ro222,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro232,ToReal(2.))),kmul(ltet1,kmadd(ltet2,kadd(R4p1222,R4p2212),kmadd(ltet3,kadd(R4p1232,R4p3212),kmul(nn,kmul(Ro212,ToReal(2.)))))))))))))),kmadd(im2,kmul(im3,kmadd(kadd(R4p1213,R4p1312),kmul(ltet1,ltet1),kmadd(kadd(R4p2223,R4p2322),kmul(ltet2,ltet2),kmadd(R4p3233,kmul(ltet3,ltet3),kmadd(R4p3332,kmul(ltet3,ltet3),kmadd(Rojo23,kmul(nn,nn),kmadd(Rojo32,kmul(nn,nn),kmadd(ltet3,kmul(nn,kmul(Ro233,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro332,ToReal(2.))),kmadd(ltet1,kmadd(ltet2,kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),kmadd(ltet3,kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),kmul(nn,kmul(kadd(Ro213,Ro312),ToReal(2.))))),kmul(ltet2,kmadd(ltet3,kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.))))))))))))))),kmul(im1,kmadd(im2,kmadd(kadd(R4p1112,R4p1211),kmul(ltet1,ltet1),kmadd(kadd(R4p2122,R4p2221),kmul(ltet2,ltet2),kmadd(R4p3132,kmul(ltet3,ltet3),kmadd(R4p3231,kmul(ltet3,ltet3),kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(ltet3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro231,ToReal(2.))),kmadd(ltet1,kmadd(ltet2,kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),kmadd(ltet3,kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),kmul(nn,kmul(kadd(Ro112,Ro211),ToReal(2.))))),kmul(ltet2,kmadd(ltet3,kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),kmul(nn,kmul(kadd(Ro122,Ro221),ToReal(2.)))))))))))))),kmul(im3,kmadd(kadd(R4p1113,R4p1311),kmul(ltet1,ltet1),kmadd(kadd(R4p2123,R4p2321),kmul(ltet2,ltet2),kmadd(R4p3133,kmul(ltet3,ltet3),kmadd(R4p3331,kmul(ltet3,ltet3),kmadd(Rojo13,kmul(nn,nn),kmadd(Rojo31,kmul(nn,nn),kmadd(ltet3,kmul(nn,kmul(Ro133,ToReal(2.))),kmadd(ltet3,kmul(nn,kmul(Ro331,ToReal(2.))),kmadd(ltet1,kmadd(ltet2,kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),kmadd(ltet3,kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),kmul(nn,kmul(kadd(Ro113,Ro311),ToReal(2.))))),kmul(ltet2,kmadd(ltet3,kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),kmul(nn,kmul(kadd(Ro123,Ro321),ToReal(2.))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+      kmadd(rm1,kmul(rm2,kmul(Rojo12,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo13,kmul(nn,nn))),kmadd(rm1,kmul(rm2,kmul(Rojo21,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo23,kmul(nn,nn))),kmadd(rm1,kmul(rm3,kmul(Rojo31,kmul(nn,nn))),kmadd(rm2,kmul(rm3,kmul(Rojo32,kmul(nn,nn))),kmadd(R4p1212,kmul(kmul(ltet2,ltet2),kmul(rm1,rm1)),kmadd(Rojo11,kmul(kmul(nn,nn),kmul(rm1,rm1)),kmadd(R4p1212,kmul(kmul(ltet1,ltet1),kmul(rm2,rm2)),kmadd(Rojo22,kmul(kmul(nn,nn),kmul(rm2,rm2)),kmadd(R4p1313,kmul(kmul(ltet1,ltet1),kmul(rm3,rm3)),kmadd(R4p2323,kmul(kmul(ltet2,ltet2),kmul(rm3,rm3)),kmadd(kmadd(ltet1,kmul(ltet2,kmul(R4p1212,kmul(rm1,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p1213,kmul(rm1,rm2))),kmadd(ltet1,kmul(ltet3,kmul(R4p1313,kmul(rm1,rm3))),kmadd(ltet1,kmul(ltet3,kmul(R4p1323,kmul(rm2,rm3))),kmadd(ltet2,kmul(ltet3,kmul(R4p2323,kmul(rm2,rm3))),kmadd(ltet1,kmul(ltet2,kmul(R4p1323,kmul(im3,im3))),kmadd(ltet1,kmul(nn,kmul(Ro313,kmul(im3,im3))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(im3,im3))),kmul(R4p1223,kmul(rm1,kmul(rm3,kmul(ltet2,ltet2)))))))))))),ToReal(-2.),kmadd(ltet1,kmul(ltet3,kmul(R4p1223,kmul(kmul(rm2,rm2),ToReal(-2.)))),kmadd(R4p1313,kmsub(kmul(ltet3,ltet3),kmul(rm1,rm1),kmul(kmul(im3,im3),kmul(ltet1,ltet1))),kmadd(R4p2323,kmsub(kmul(ltet3,ltet3),kmul(rm2,rm2),kmul(kmul(im3,im3),kmul(ltet2,ltet2))),kmadd(Rojo33,kmsub(kmul(nn,nn),kmul(rm3,rm3),kmul(kmul(im3,im3),kmul(nn,nn))),kmadd(kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm2,Ro112))),kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm3,Ro113))),kmadd(ltet2,kmul(nn,kmul(rm1,kmul(rm3,Ro123))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm2,Ro132))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm3,Ro133))),kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm2,Ro211))),kmadd(ltet1,kmul(nn,kmul(rm2,kmul(rm3,Ro213))),kmadd(ltet2,kmul(nn,kmul(rm2,kmul(rm3,Ro223))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm2,Ro231))),kmadd(ltet3,kmul(nn,kmul(rm2,kmul(rm3,Ro233))),kmadd(ltet1,kmul(nn,kmul(rm1,kmul(rm3,Ro311))),kmadd(ltet1,kmul(nn,kmul(rm2,kmul(rm3,Ro312))),kmadd(ltet2,kmul(nn,kmul(rm2,kmul(rm3,Ro322))),kmadd(ltet3,kmul(nn,kmul(rm1,kmul(rm3,Ro331))),kmadd(ltet3,kmul(nn,kmul(rm2,kmul(rm3,Ro332))),kmadd(R4p1213,kmul(rm2,kmul(rm3,kmul(ltet1,ltet1))),kmul(R4p1323,kmul(rm1,kmul(rm2,kmul(ltet3,ltet3)))))))))))))))))))),ToReal(2.),kmadd(ltet1,kmul(nn,kmul(Ro111,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro121,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro131,kmul(kmul(rm1,rm1),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro212,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro222,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro232,kmul(kmul(rm2,rm2),ToReal(2.)))),kmadd(ltet1,kmul(ltet2,kmul(R4p1323,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet1,kmul(nn,kmul(Ro313,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet2,kmul(nn,kmul(Ro323,kmul(kmul(rm3,rm3),ToReal(2.)))),kmadd(ltet3,kmul(nn,kmul(Ro333,kmul(kmul(rm3,rm3),ToReal(2.)))),knmsub(kmul(im2,im2),kmadd(R4p1212,kmul(ltet1,ltet1),kmadd(R4p2323,kmul(ltet3,ltet3),kmadd(Rojo22,kmul(nn,nn),kmadd(ltet1,kmul(ltet3,kmul(R4p1223,ToReal(-2.))),kmadd(ltet1,kmul(nn,kmul(Ro212,ToReal(2.))),kmadd(ltet2,kmul(nn,kmul(Ro222,ToReal(2.))),kmul(ltet3,kmul(nn,kmul(Ro232,ToReal(2.)))))))))),kmadd(ltet2,kmadd(ltet1,kmul(R4p1213,kmul(rm1,kmul(rm3,ToReal(-2.)))),kmadd(ltet3,kmul(R4p1323,kmul(rm1,kmul(rm3,ToReal(-2.)))),kmadd(nn,kmul(Ro323,kmul(kmul(im3,im3),ToReal(-2.))),kmadd(ltet3,kmul(R4p1223,kmul(rm1,kmul(rm2,ToReal(2.)))),kmadd(ltet1,kmul(R4p1223,kmul(rm2,kmul(rm3,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro122,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm2,kmul(Ro221,ToReal(2.)))),kmadd(nn,kmul(rm1,kmul(rm3,kmul(Ro321,ToReal(2.)))),kmul(ltet3,kmul(R4p1213,kmul(kmul(rm1,rm1),ToReal(2.)))))))))))),knmsub(kmul(im1,im1),kmadd(R4p1212,kmul(ltet2,ltet2),kmadd(R4p1313,kmul(ltet3,ltet3),kmadd(ltet2,kmul(kmadd(ltet3,R4p1213,kmul(nn,Ro121)),ToReal(2.)),kmadd(ltet3,kmul(nn,kmul(Ro131,ToReal(2.))),kmul(nn,kmadd(nn,Rojo11,kmul(ltet1,kmul(Ro111,ToReal(2.))))))))),kmsub(im1,kmul(im3,kmadd(R4p1223,kmul(kmul(ltet2,ltet2),ToReal(2.)),kmadd(ltet1,kmul(kmadd(ltet2,R4p1213,kmsub(ltet3,R4p1313,kmul(nn,kadd(Ro113,Ro311)))),ToReal(2.)),kmsub(ltet2,kmul(kmsub(ltet3,R4p1323,kmul(nn,kadd(Ro123,Ro321))),ToReal(2.)),kmul(nn,kmadd(nn,kadd(Rojo13,Rojo31),kmul(ltet3,kmul(kadd(Ro133,Ro331),ToReal(2.))))))))),kmul(im2,kmadd(im3,kmadd(R4p1213,kmul(kmul(ltet1,ltet1),ToReal(2.)),kmadd(ltet1,kmul(kmadd(ltet2,R4p1223,kmsub(nn,kadd(Ro213,Ro312),kmul(ltet3,R4p1323))),ToReal(2.)),kmadd(ltet2,kmadd(ltet3,kmul(R4p2323,ToReal(-2.)),kmul(nn,kmul(kadd(Ro223,Ro322),ToReal(2.)))),kmul(nn,kmadd(nn,kadd(Rojo23,Rojo32),kmul(ltet3,kmul(kadd(Ro233,Ro332),ToReal(2.)))))))),kmul(im1,kmadd(Rojo12,kmul(nn,nn),kmadd(Rojo21,kmul(nn,nn),kmadd(ltet1,kmul(ToReal(-2.),kmadd(ltet2,R4p1212,kmsub(ltet3,R4p1213,kmul(nn,kadd(Ro112,Ro211))))),kmadd(ltet3,kmul(nn,kmul(Ro132,ToReal(2.))),kmadd(ltet2,kmul(kmadd(ltet3,R4p1223,kmul(nn,kadd(Ro122,Ro221))),ToReal(2.)),kmadd(ltet3,kmul(nn,kmul(Ro231,ToReal(2.))),kmul(R4p1323,kmul(kmul(ltet3,ltet3),ToReal(2.))))))))))))))))))))))))))))))))))))))))))));
     
     CCTK_REAL_VEC Psi0iL = 
-      kmadd(im1,kmadd(kmul(ltet1,ltet1),kmadd(kadd(R4p1112,R4p1211),rm2,kmadd(kadd(R4p1113,R4p1311),rm3,kmul(R4p1111,kmul(rm1,ToReal(2.))))),kmadd(kmul(ltet2,ltet2),kmadd(kadd(R4p2122,R4p2221),rm2,kmadd(kadd(R4p2123,R4p2321),rm3,kmul(R4p2121,kmul(rm1,ToReal(2.))))),kmadd(kmul(ltet3,ltet3),kmadd(kadd(R4p3132,R4p3231),rm2,kmadd(kadd(R4p3133,R4p3331),rm3,kmul(R4p3131,kmul(rm1,ToReal(2.))))),kmadd(kmul(nn,nn),kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.))))),kmadd(ltet1,kmadd(ltet2,kmadd(kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),rm2,kmadd(kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),rm3,kmul(kadd(R4p1121,R4p2111),kmul(rm1,ToReal(2.))))),kmadd(ltet3,kmadd(kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),rm2,kmadd(kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),rm3,kmul(kadd(R4p1131,R4p3111),kmul(rm1,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.))))))))),kmadd(ltet2,kmadd(ltet3,kmadd(kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),rm2,kmadd(kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),rm3,kmul(kadd(R4p2131,R4p3121),kmul(rm1,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(ltet3,kmul(nn,kmadd(kmadd(rm2,kadd(Ro132,Ro231),kmul(rm3,kadd(Ro133,Ro331))),ToReal(2.),kmul(rm1,kmul(Ro131,ToReal(4.)))))))))))),kmadd(im2,kmadd(kmadd(rm1,Rojo21,kmul(rm3,Rojo32)),kmul(nn,nn),kmadd(rm1,kmadd(kadd(R4p3132,R4p3231),kmul(ltet3,ltet3),kmul(Rojo12,kmul(nn,nn))),kmadd(rm3,kmadd(kadd(R4p3233,R4p3332),kmul(ltet3,ltet3),kmul(Rojo23,kmul(nn,nn))),kmadd(kmadd(ltet3,kmul(nn,kmadd(rm1,kadd(Ro132,Ro231),kmul(rm3,Ro233))),kmul(rm2,kmadd(R4p3232,kmul(ltet3,ltet3),kmul(Rojo22,kmul(nn,nn))))),ToReal(2.),kmadd(kmul(ltet1,ltet1),kmadd(kadd(R4p1112,R4p1211),rm1,kmadd(kadd(R4p1213,R4p1312),rm3,kmul(R4p1212,kmul(rm2,ToReal(2.))))),kmadd(kmul(ltet2,ltet2),kmadd(kadd(R4p2122,R4p2221),rm1,kmadd(kadd(R4p2223,R4p2322),rm3,kmul(R4p2222,kmul(rm2,ToReal(2.))))),kmadd(ltet1,kmadd(ltet2,kmadd(kadd(R4p1122,kadd(R4p1221,kadd(R4p2112,R4p2211))),rm1,kmadd(kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),rm3,kmul(kadd(R4p1222,R4p2212),kmul(rm2,ToReal(2.))))),kmadd(ltet3,kmadd(kadd(R4p1132,kadd(R4p1231,kadd(R4p3112,R4p3211))),rm1,kmadd(kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),rm3,kmul(kadd(R4p1232,R4p3212),kmul(rm2,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))))))),kmadd(ltet2,kmadd(ltet3,kmadd(kadd(R4p2132,kadd(R4p2231,kadd(R4p3122,R4p3221))),rm1,kmadd(kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),rm3,kmul(kadd(R4p2232,R4p3222),kmul(rm2,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.)))))))),kmul(ltet3,kmul(nn,kmadd(rm3,kmul(Ro332,ToReal(2.)),kmul(rm2,kmul(Ro232,ToReal(4.)))))))))))))),kmul(im3,kmadd(kmadd(rm1,Rojo31,kmul(rm2,Rojo32)),kmul(nn,nn),kmadd(rm1,kmadd(kadd(R4p3133,R4p3331),kmul(ltet3,ltet3),kmul(Rojo13,kmul(nn,nn))),kmadd(rm2,kmadd(kadd(R4p3233,R4p3332),kmul(ltet3,ltet3),kmul(Rojo23,kmul(nn,nn))),kmadd(kmadd(ltet3,kmul(nn,kmadd(rm1,kadd(Ro133,Ro331),kmul(rm2,kadd(Ro233,Ro332)))),kmul(R4p3333,kmul(rm3,kmul(ltet3,ltet3)))),ToReal(2.),kmadd(kmul(ltet1,ltet1),kmadd(kadd(R4p1113,R4p1311),rm1,kmadd(kadd(R4p1213,R4p1312),rm2,kmul(R4p1313,kmul(rm3,ToReal(2.))))),kmadd(kmul(ltet2,ltet2),kmadd(kadd(R4p2123,R4p2321),rm1,kmadd(kadd(R4p2223,R4p2322),rm2,kmul(R4p2323,kmul(rm3,ToReal(2.))))),kmadd(ltet1,kmadd(ltet2,kmadd(kadd(R4p1123,kadd(R4p1321,kadd(R4p2113,R4p2311))),rm1,kmadd(kadd(R4p1223,kadd(R4p1322,kadd(R4p2213,R4p2312))),rm2,kmul(kadd(R4p1323,R4p2313),kmul(rm3,ToReal(2.))))),kmadd(ltet3,kmadd(kadd(R4p1133,kadd(R4p1331,kadd(R4p3113,R4p3311))),rm1,kmadd(kadd(R4p1233,kadd(R4p1332,kadd(R4p3213,R4p3312))),rm2,kmul(kadd(R4p1333,R4p3313),kmul(rm3,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.))))))))),kmadd(ltet2,kmadd(ltet3,kmadd(kadd(R4p2133,kadd(R4p2331,kadd(R4p3123,R4p3321))),rm1,kmadd(kadd(R4p2233,kadd(R4p2332,kadd(R4p3223,R4p3322))),rm2,kmul(kadd(R4p2333,R4p3323),kmul(rm3,ToReal(2.))))),kmul(nn,kmul(ToReal(2.),kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.)))))))),kmul(rm3,kmadd(Rojo33,kmul(kmul(nn,nn),ToReal(2.)),kmul(ltet3,kmul(nn,kmul(Ro333,ToReal(4.)))))))))))))))));
+      kmadd(im1,kmadd(nn,kmadd(ltet1,kmul(ToReal(2.),kmadd(rm2,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro113,Ro311),kmul(rm1,kmul(Ro111,ToReal(2.)))))),kmul(nn,kmadd(rm2,kadd(Rojo12,Rojo21),kmadd(rm3,kadd(Rojo13,Rojo31),kmul(rm1,kmul(Rojo11,ToReal(2.))))))),kmul(ToReal(2.),kmadd(kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmul(ltet3,ltet3),kmadd(kmul(ltet2,ltet2),kmsub(R4p1212,rm1,kmul(R4p1223,rm3)),kmadd(ltet2,knmsub(ltet1,kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmadd(ltet3,kmadd(R4p1223,rm2,kmsub(R4p1213,kmul(rm1,ToReal(2.)),kmul(R4p1323,rm3))),kmul(nn,kmadd(rm2,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro123,Ro321),kmul(rm1,kmul(Ro121,ToReal(2.)))))))),kmul(ltet3,kmsub(nn,kmadd(rm2,kadd(Ro132,Ro231),kmadd(rm3,kadd(Ro133,Ro331),kmul(rm1,kmul(Ro131,ToReal(2.))))),kmul(ltet1,kmadd(R4p1213,rm2,kmul(R4p1313,rm3)))))))))),kmadd(im3,kmadd(kmul(ltet2,ltet2),kmadd(R4p1223,kmul(rm1,ToReal(-2.)),kmul(R4p2323,kmul(rm3,ToReal(2.)))),kmadd(nn,kmadd(ltet3,kmul(ToReal(2.),kmadd(rm1,kadd(Ro133,Ro331),kmadd(rm2,kadd(Ro233,Ro332),kmul(rm3,kmul(Ro333,ToReal(2.)))))),kmul(nn,kmadd(rm1,kadd(Rojo13,Rojo31),kmadd(rm2,kadd(Rojo23,Rojo32),kmul(rm3,kmul(Rojo33,ToReal(2.))))))),kmul(ToReal(2.),kmadd(kmadd(R4p1213,rm2,kmul(R4p1313,rm3)),kmul(ltet1,ltet1),kmadd(ltet1,knmsub(ltet3,kmadd(R4p1313,rm1,kmul(R4p1323,rm2)),kmadd(ltet2,kmadd(R4p1223,rm2,kmsub(R4p1323,kmul(rm3,ToReal(2.)),kmul(R4p1213,rm1))),kmul(nn,kmadd(rm1,kadd(Ro113,Ro311),kmadd(rm2,kadd(Ro213,Ro312),kmul(rm3,kmul(Ro313,ToReal(2.)))))))),kmul(ltet2,kmsub(nn,kmadd(rm1,kadd(Ro123,Ro321),kmadd(rm2,kadd(Ro223,Ro322),kmul(rm3,kmul(Ro323,ToReal(2.))))),kmul(ltet3,kmadd(R4p1323,rm1,kmul(R4p2323,rm2)))))))))),kmul(im2,kmadd(kmadd(rm1,kadd(Rojo12,Rojo21),kmul(rm3,kadd(Rojo23,Rojo32))),kmul(nn,nn),kmadd(ToReal(2.),kmadd(ltet3,kmul(nn,kmadd(rm1,kadd(Ro132,Ro231),kmul(rm3,Ro233))),kmadd(kmadd(R4p1212,rm2,kmul(R4p1213,rm3)),kmul(ltet1,ltet1),kmadd(kmadd(R4p1323,rm1,kmul(R4p2323,rm2)),kmul(ltet3,ltet3),kmadd(rm2,kmul(Rojo22,kmul(nn,nn)),kmadd(ltet1,kmadd(ltet2,kmsub(R4p1223,rm3,kmul(R4p1212,rm1)),kmsub(nn,kmadd(rm1,kadd(Ro112,Ro211),kmadd(rm3,kadd(Ro213,Ro312),kmul(rm2,kmul(Ro212,ToReal(2.))))),kmul(ltet3,kmadd(R4p1213,rm1,kmadd(R4p1323,rm3,kmul(R4p1223,kmul(rm2,ToReal(2.)))))))),kmul(ltet2,kmadd(ltet3,kmsub(R4p1223,rm1,kmul(R4p2323,rm3)),kmul(nn,kmadd(rm1,kadd(Ro122,Ro221),kmadd(rm3,kadd(Ro223,Ro322),kmul(rm2,kmul(Ro222,ToReal(2.))))))))))))),kmul(ltet3,kmul(nn,kmadd(rm3,kmul(Ro332,ToReal(2.)),kmul(rm2,kmul(Ro232,ToReal(4.)))))))))));
     
     /* Copy local copies back to grid functions */
     vec_store_partial_prepare(i,lc_imin,lc_imax);