diff options
| author | Erik Schnetter <schnetter@cct.lsu.edu> | 2007-11-07 12:44:05 -0600 |
|---|---|---|
| committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2007-11-07 12:44:05 -0600 |
| commit | e60ba9d22635fdf440f0d6cc7be5eafb1677facd (patch) | |
| tree | 33b52772d09f1517be42d2af63100d5b8de79932 /ML_BSSN | |
| parent | c05465066a8cc1adacaa8fd6f2d3f19e70729e85 (diff) | |
Implement arbitrary finite differencing orders
Diffstat (limited to 'ML_BSSN')
| -rw-r--r-- | ML_BSSN/src/Differencing.h | 24 | ||||
| -rw-r--r-- | ML_BSSN/src/ML_BSSN_RHS.c | 1690 | ||||
| -rw-r--r-- | ML_BSSN/src/ML_BSSN_constraints.c | 734 | ||||
| -rw-r--r-- | ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c | 144 |
4 files changed, 1296 insertions, 1296 deletions
diff --git a/ML_BSSN/src/Differencing.h b/ML_BSSN/src/Differencing.h index 7ada6a7..876855b 100644 --- a/ML_BSSN/src/Differencing.h +++ b/ML_BSSN/src/Differencing.h @@ -1,12 +1,12 @@ -#define PDstandard4th1(u,i,j,k) (p1o12dx*(-8*u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,k)] + 8*u[CCTK_GFINDEX3D(cctkGH,1 + i,j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,j,k)])) -#define PDstandard4th2(u,i,j,k) (p1o12dy*(-8*u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,k)] + 8*u[CCTK_GFINDEX3D(cctkGH,i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,i,2 + j,k)])) -#define PDstandard4th3(u,i,j,k) (p1o12dz*(-8*u[CCTK_GFINDEX3D(cctkGH,i,j,-1 + k)] + 8*u[CCTK_GFINDEX3D(cctkGH,i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,j,2 + k)])) -#define PDstandard4th11(u,i,j,k) (pm1o12dx2*(-16*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,k)] + 30*u[CCTK_GFINDEX3D(cctkGH,i,j,k)])) -#define PDstandard4th22(u,i,j,k) (pm1o12dy2*(-16*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,k)]) + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,k)] + 30*u[CCTK_GFINDEX3D(cctkGH,i,j,k)])) -#define PDstandard4th33(u,i,j,k) (pm1o12dz2*(-16*(u[CCTK_GFINDEX3D(cctkGH,i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,j,2 + k)] + 30*u[CCTK_GFINDEX3D(cctkGH,i,j,k)])) -#define PDstandard4th12(u,i,j,k) (p1o144dxdy*(-64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,-1 + j,k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,1 + j,k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,-1 + j,k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,1 + j,k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,-2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,-2 + i,2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,2 + j,k)])) -#define PDstandard4th13(u,i,j,k) (p1o144dxdz*(-64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,-1 + k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,1 + k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,-1 + k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,2 + k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,2 + k)])) -#define PDstandard4th21(u,i,j,k) (p1o144dxdy*(-64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,-1 + j,k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,1 + j,k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,-1 + j,k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,1 + j,k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,-2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,-2 + i,2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,2 + j,k)])) -#define PDstandard4th23(u,i,j,k) (p1o144dydz*(-64*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,-1 + k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,1 + k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,-1 + k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,2 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,2 + k)])) -#define PDstandard4th31(u,i,j,k) (p1o144dxdz*(-64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,-1 + k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,1 + k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,-1 + k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,2 + k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,2 + k)])) -#define PDstandard4th32(u,i,j,k) (p1o144dydz*(-64*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,-1 + k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,1 + k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,-1 + k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,2 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,2 + k)])) +#define PDstandardNth1(u,i,j,k) (p1o12dx*(-8*u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,k)] + 8*u[CCTK_GFINDEX3D(cctkGH,1 + i,j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,j,k)])) +#define PDstandardNth2(u,i,j,k) (p1o12dy*(-8*u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,k)] + 8*u[CCTK_GFINDEX3D(cctkGH,i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,i,2 + j,k)])) +#define PDstandardNth3(u,i,j,k) (p1o12dz*(-8*u[CCTK_GFINDEX3D(cctkGH,i,j,-1 + k)] + 8*u[CCTK_GFINDEX3D(cctkGH,i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,j,2 + k)])) +#define PDstandardNth11(u,i,j,k) (pm1o12dx2*(-16*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,k)] + 30*u[CCTK_GFINDEX3D(cctkGH,i,j,k)])) +#define PDstandardNth22(u,i,j,k) (pm1o12dy2*(-16*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,k)]) + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,k)] + 30*u[CCTK_GFINDEX3D(cctkGH,i,j,k)])) +#define PDstandardNth33(u,i,j,k) (pm1o12dz2*(-16*(u[CCTK_GFINDEX3D(cctkGH,i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,j,2 + k)] + 30*u[CCTK_GFINDEX3D(cctkGH,i,j,k)])) +#define PDstandardNth12(u,i,j,k) (p1o144dxdy*(-64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,-1 + j,k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,1 + j,k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,-1 + j,k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,1 + j,k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,-2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,-2 + i,2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,2 + j,k)])) +#define PDstandardNth13(u,i,j,k) (p1o144dxdz*(-64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,-1 + k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,1 + k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,-1 + k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,2 + k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,2 + k)])) +#define PDstandardNth21(u,i,j,k) (p1o144dxdy*(-64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,-1 + j,k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,1 + j,k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,-1 + j,k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,-1 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,1 + j,k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,-2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,-2 + i,2 + j,k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,-2 + j,k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,2 + j,k)])) +#define PDstandardNth23(u,i,j,k) (p1o144dydz*(-64*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,-1 + k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,1 + k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,-1 + k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,2 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,2 + k)])) +#define PDstandardNth31(u,i,j,k) (p1o144dxdz*(-64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,-1 + k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,1 + k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,-1 + k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,-1 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,1 + i,j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,-2 + i,j,2 + k)] - u[CCTK_GFINDEX3D(cctkGH,2 + i,j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,2 + i,j,2 + k)])) +#define PDstandardNth32(u,i,j,k) (p1o144dydz*(-64*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,-1 + k)]) + 64*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,1 + k)]) + 8*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,-1 + k)]) - 8*(u[CCTK_GFINDEX3D(cctkGH,i,-1 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,1 + j,2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,-1 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,1 + k)]) + u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,-2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,-2 + j,2 + k)] - u[CCTK_GFINDEX3D(cctkGH,i,2 + j,-2 + k)] + u[CCTK_GFINDEX3D(cctkGH,i,2 + j,2 + k)])) diff --git a/ML_BSSN/src/ML_BSSN_RHS.c b/ML_BSSN/src/ML_BSSN_RHS.c index ce804de..812fbca 100644 --- a/ML_BSSN/src/ML_BSSN_RHS.c +++ b/ML_BSSN/src/ML_BSSN_RHS.c @@ -147,168 +147,168 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal /* Declare precomputed derivatives*/ /* Declare derivatives */ - CCTK_REAL PDstandard4th1alpha = INITVALUE; - CCTK_REAL PDstandard4th2alpha = INITVALUE; - CCTK_REAL PDstandard4th3alpha = INITVALUE; - CCTK_REAL PDstandard4th11alpha = INITVALUE; - CCTK_REAL PDstandard4th22alpha = INITVALUE; - CCTK_REAL PDstandard4th33alpha = INITVALUE; - CCTK_REAL PDstandard4th12alpha = INITVALUE; - CCTK_REAL PDstandard4th13alpha = INITVALUE; - CCTK_REAL PDstandard4th21alpha = INITVALUE; - CCTK_REAL PDstandard4th23alpha = INITVALUE; - CCTK_REAL PDstandard4th31alpha = INITVALUE; - CCTK_REAL PDstandard4th32alpha = INITVALUE; - CCTK_REAL PDstandard4th1At11 = INITVALUE; - CCTK_REAL PDstandard4th2At11 = INITVALUE; - CCTK_REAL PDstandard4th3At11 = INITVALUE; - CCTK_REAL PDstandard4th1At12 = INITVALUE; - CCTK_REAL PDstandard4th2At12 = INITVALUE; - CCTK_REAL PDstandard4th3At12 = INITVALUE; - CCTK_REAL PDstandard4th1At13 = INITVALUE; - CCTK_REAL PDstandard4th2At13 = INITVALUE; - CCTK_REAL PDstandard4th3At13 = INITVALUE; - CCTK_REAL PDstandard4th1At22 = INITVALUE; - CCTK_REAL PDstandard4th2At22 = INITVALUE; - CCTK_REAL PDstandard4th3At22 = INITVALUE; - CCTK_REAL PDstandard4th1At23 = INITVALUE; - CCTK_REAL PDstandard4th2At23 = INITVALUE; - CCTK_REAL PDstandard4th3At23 = INITVALUE; - CCTK_REAL PDstandard4th1At33 = INITVALUE; - CCTK_REAL PDstandard4th2At33 = INITVALUE; - CCTK_REAL PDstandard4th3At33 = INITVALUE; - CCTK_REAL PDstandard4th1beta1 = INITVALUE; - CCTK_REAL PDstandard4th2beta1 = INITVALUE; - CCTK_REAL PDstandard4th3beta1 = INITVALUE; - CCTK_REAL PDstandard4th11beta1 = INITVALUE; - CCTK_REAL PDstandard4th22beta1 = INITVALUE; - CCTK_REAL PDstandard4th33beta1 = INITVALUE; - CCTK_REAL PDstandard4th12beta1 = INITVALUE; - CCTK_REAL PDstandard4th13beta1 = INITVALUE; - CCTK_REAL PDstandard4th21beta1 = INITVALUE; - CCTK_REAL PDstandard4th23beta1 = INITVALUE; - CCTK_REAL PDstandard4th31beta1 = INITVALUE; - CCTK_REAL PDstandard4th32beta1 = INITVALUE; - CCTK_REAL PDstandard4th1beta2 = INITVALUE; - CCTK_REAL PDstandard4th2beta2 = INITVALUE; - CCTK_REAL PDstandard4th3beta2 = INITVALUE; - CCTK_REAL PDstandard4th11beta2 = INITVALUE; - CCTK_REAL PDstandard4th22beta2 = INITVALUE; - CCTK_REAL PDstandard4th33beta2 = INITVALUE; - CCTK_REAL PDstandard4th12beta2 = INITVALUE; - CCTK_REAL PDstandard4th13beta2 = INITVALUE; - CCTK_REAL PDstandard4th21beta2 = INITVALUE; - CCTK_REAL PDstandard4th23beta2 = INITVALUE; - CCTK_REAL PDstandard4th31beta2 = INITVALUE; - CCTK_REAL PDstandard4th32beta2 = INITVALUE; - CCTK_REAL PDstandard4th1beta3 = INITVALUE; - CCTK_REAL PDstandard4th2beta3 = INITVALUE; - CCTK_REAL PDstandard4th3beta3 = INITVALUE; - CCTK_REAL PDstandard4th11beta3 = INITVALUE; - CCTK_REAL PDstandard4th22beta3 = INITVALUE; - CCTK_REAL PDstandard4th33beta3 = INITVALUE; - CCTK_REAL PDstandard4th12beta3 = INITVALUE; - CCTK_REAL PDstandard4th13beta3 = INITVALUE; - CCTK_REAL PDstandard4th21beta3 = INITVALUE; - CCTK_REAL PDstandard4th23beta3 = INITVALUE; - CCTK_REAL PDstandard4th31beta3 = INITVALUE; - CCTK_REAL PDstandard4th32beta3 = INITVALUE; - CCTK_REAL PDstandard4th1gt11 = INITVALUE; - CCTK_REAL PDstandard4th2gt11 = INITVALUE; - CCTK_REAL PDstandard4th3gt11 = INITVALUE; - CCTK_REAL PDstandard4th11gt11 = INITVALUE; - CCTK_REAL PDstandard4th22gt11 = INITVALUE; - CCTK_REAL PDstandard4th33gt11 = INITVALUE; - CCTK_REAL PDstandard4th12gt11 = INITVALUE; - CCTK_REAL PDstandard4th13gt11 = INITVALUE; - CCTK_REAL PDstandard4th21gt11 = INITVALUE; - CCTK_REAL PDstandard4th23gt11 = INITVALUE; - CCTK_REAL PDstandard4th31gt11 = INITVALUE; - CCTK_REAL PDstandard4th32gt11 = INITVALUE; - CCTK_REAL PDstandard4th1gt12 = INITVALUE; - CCTK_REAL PDstandard4th2gt12 = INITVALUE; - CCTK_REAL PDstandard4th3gt12 = INITVALUE; - CCTK_REAL PDstandard4th11gt12 = INITVALUE; - CCTK_REAL PDstandard4th22gt12 = INITVALUE; - CCTK_REAL PDstandard4th33gt12 = INITVALUE; - CCTK_REAL PDstandard4th12gt12 = INITVALUE; - CCTK_REAL PDstandard4th13gt12 = INITVALUE; - CCTK_REAL PDstandard4th21gt12 = INITVALUE; - CCTK_REAL PDstandard4th23gt12 = INITVALUE; - CCTK_REAL PDstandard4th31gt12 = INITVALUE; - CCTK_REAL PDstandard4th32gt12 = INITVALUE; - CCTK_REAL PDstandard4th1gt13 = INITVALUE; - CCTK_REAL PDstandard4th2gt13 = INITVALUE; - CCTK_REAL PDstandard4th3gt13 = INITVALUE; - CCTK_REAL PDstandard4th11gt13 = INITVALUE; - CCTK_REAL PDstandard4th22gt13 = INITVALUE; - CCTK_REAL PDstandard4th33gt13 = INITVALUE; - CCTK_REAL PDstandard4th12gt13 = INITVALUE; - CCTK_REAL PDstandard4th13gt13 = INITVALUE; - CCTK_REAL PDstandard4th21gt13 = INITVALUE; - CCTK_REAL PDstandard4th23gt13 = INITVALUE; - CCTK_REAL PDstandard4th31gt13 = INITVALUE; - CCTK_REAL PDstandard4th32gt13 = INITVALUE; - CCTK_REAL PDstandard4th1gt22 = INITVALUE; - CCTK_REAL PDstandard4th2gt22 = INITVALUE; - CCTK_REAL PDstandard4th3gt22 = INITVALUE; - CCTK_REAL PDstandard4th11gt22 = INITVALUE; - CCTK_REAL PDstandard4th22gt22 = INITVALUE; - CCTK_REAL PDstandard4th33gt22 = INITVALUE; - CCTK_REAL PDstandard4th12gt22 = INITVALUE; - CCTK_REAL PDstandard4th13gt22 = INITVALUE; - CCTK_REAL PDstandard4th21gt22 = INITVALUE; - CCTK_REAL PDstandard4th23gt22 = INITVALUE; - CCTK_REAL PDstandard4th31gt22 = INITVALUE; - CCTK_REAL PDstandard4th32gt22 = INITVALUE; - CCTK_REAL PDstandard4th1gt23 = INITVALUE; - CCTK_REAL PDstandard4th2gt23 = INITVALUE; - CCTK_REAL PDstandard4th3gt23 = INITVALUE; - CCTK_REAL PDstandard4th11gt23 = INITVALUE; - CCTK_REAL PDstandard4th22gt23 = INITVALUE; - CCTK_REAL PDstandard4th33gt23 = INITVALUE; - CCTK_REAL PDstandard4th12gt23 = INITVALUE; - CCTK_REAL PDstandard4th13gt23 = INITVALUE; - CCTK_REAL PDstandard4th21gt23 = INITVALUE; - CCTK_REAL PDstandard4th23gt23 = INITVALUE; - CCTK_REAL PDstandard4th31gt23 = INITVALUE; - CCTK_REAL PDstandard4th32gt23 = INITVALUE; - CCTK_REAL PDstandard4th1gt33 = INITVALUE; - CCTK_REAL PDstandard4th2gt33 = INITVALUE; - CCTK_REAL PDstandard4th3gt33 = INITVALUE; - CCTK_REAL PDstandard4th11gt33 = INITVALUE; - CCTK_REAL PDstandard4th22gt33 = INITVALUE; - CCTK_REAL PDstandard4th33gt33 = INITVALUE; - CCTK_REAL PDstandard4th12gt33 = INITVALUE; - CCTK_REAL PDstandard4th13gt33 = INITVALUE; - CCTK_REAL PDstandard4th21gt33 = INITVALUE; - CCTK_REAL PDstandard4th23gt33 = INITVALUE; - CCTK_REAL PDstandard4th31gt33 = INITVALUE; - CCTK_REAL PDstandard4th32gt33 = INITVALUE; - CCTK_REAL PDstandard4th1phi = INITVALUE; - CCTK_REAL PDstandard4th2phi = INITVALUE; - CCTK_REAL PDstandard4th3phi = INITVALUE; - CCTK_REAL PDstandard4th11phi = INITVALUE; - CCTK_REAL PDstandard4th22phi = INITVALUE; - CCTK_REAL PDstandard4th33phi = INITVALUE; - CCTK_REAL PDstandard4th12phi = INITVALUE; - CCTK_REAL PDstandard4th13phi = INITVALUE; - CCTK_REAL PDstandard4th21phi = INITVALUE; - CCTK_REAL PDstandard4th23phi = INITVALUE; - CCTK_REAL PDstandard4th31phi = INITVALUE; - CCTK_REAL PDstandard4th32phi = INITVALUE; - CCTK_REAL PDstandard4th1trK = INITVALUE; - CCTK_REAL PDstandard4th2trK = INITVALUE; - CCTK_REAL PDstandard4th3trK = INITVALUE; - CCTK_REAL PDstandard4th1Xt1 = INITVALUE; - CCTK_REAL PDstandard4th2Xt1 = INITVALUE; - CCTK_REAL PDstandard4th3Xt1 = INITVALUE; - CCTK_REAL PDstandard4th1Xt2 = INITVALUE; - CCTK_REAL PDstandard4th2Xt2 = INITVALUE; - CCTK_REAL PDstandard4th3Xt2 = INITVALUE; - CCTK_REAL PDstandard4th1Xt3 = INITVALUE; - CCTK_REAL PDstandard4th2Xt3 = INITVALUE; - CCTK_REAL PDstandard4th3Xt3 = INITVALUE; + CCTK_REAL PDstandardNth1alpha = INITVALUE; + CCTK_REAL PDstandardNth2alpha = INITVALUE; + CCTK_REAL PDstandardNth3alpha = INITVALUE; + CCTK_REAL PDstandardNth11alpha = INITVALUE; + CCTK_REAL PDstandardNth22alpha = INITVALUE; + CCTK_REAL PDstandardNth33alpha = INITVALUE; + CCTK_REAL PDstandardNth12alpha = INITVALUE; + CCTK_REAL PDstandardNth13alpha = INITVALUE; + CCTK_REAL PDstandardNth21alpha = INITVALUE; + CCTK_REAL PDstandardNth23alpha = INITVALUE; + CCTK_REAL PDstandardNth31alpha = INITVALUE; + CCTK_REAL PDstandardNth32alpha = INITVALUE; + CCTK_REAL PDstandardNth1At11 = INITVALUE; + CCTK_REAL PDstandardNth2At11 = INITVALUE; + CCTK_REAL PDstandardNth3At11 = INITVALUE; + CCTK_REAL PDstandardNth1At12 = INITVALUE; + CCTK_REAL PDstandardNth2At12 = INITVALUE; + CCTK_REAL PDstandardNth3At12 = INITVALUE; + CCTK_REAL PDstandardNth1At13 = INITVALUE; + CCTK_REAL PDstandardNth2At13 = INITVALUE; + CCTK_REAL PDstandardNth3At13 = INITVALUE; + CCTK_REAL PDstandardNth1At22 = INITVALUE; + CCTK_REAL PDstandardNth2At22 = INITVALUE; + CCTK_REAL PDstandardNth3At22 = INITVALUE; + CCTK_REAL PDstandardNth1At23 = INITVALUE; + CCTK_REAL PDstandardNth2At23 = INITVALUE; + CCTK_REAL PDstandardNth3At23 = INITVALUE; + CCTK_REAL PDstandardNth1At33 = INITVALUE; + CCTK_REAL PDstandardNth2At33 = INITVALUE; + CCTK_REAL PDstandardNth3At33 = INITVALUE; + CCTK_REAL PDstandardNth1beta1 = INITVALUE; + CCTK_REAL PDstandardNth2beta1 = INITVALUE; + CCTK_REAL PDstandardNth3beta1 = INITVALUE; + CCTK_REAL PDstandardNth11beta1 = INITVALUE; + CCTK_REAL PDstandardNth22beta1 = INITVALUE; + CCTK_REAL PDstandardNth33beta1 = INITVALUE; + CCTK_REAL PDstandardNth12beta1 = INITVALUE; + CCTK_REAL PDstandardNth13beta1 = INITVALUE; + CCTK_REAL PDstandardNth21beta1 = INITVALUE; + CCTK_REAL PDstandardNth23beta1 = INITVALUE; + CCTK_REAL PDstandardNth31beta1 = INITVALUE; + CCTK_REAL PDstandardNth32beta1 = INITVALUE; + CCTK_REAL PDstandardNth1beta2 = INITVALUE; + CCTK_REAL PDstandardNth2beta2 = INITVALUE; + CCTK_REAL PDstandardNth3beta2 = INITVALUE; + CCTK_REAL PDstandardNth11beta2 = INITVALUE; + CCTK_REAL PDstandardNth22beta2 = INITVALUE; + CCTK_REAL PDstandardNth33beta2 = INITVALUE; + CCTK_REAL PDstandardNth12beta2 = INITVALUE; + CCTK_REAL PDstandardNth13beta2 = INITVALUE; + CCTK_REAL PDstandardNth21beta2 = INITVALUE; + CCTK_REAL PDstandardNth23beta2 = INITVALUE; + CCTK_REAL PDstandardNth31beta2 = INITVALUE; + CCTK_REAL PDstandardNth32beta2 = INITVALUE; + CCTK_REAL PDstandardNth1beta3 = INITVALUE; + CCTK_REAL PDstandardNth2beta3 = INITVALUE; + CCTK_REAL PDstandardNth3beta3 = INITVALUE; + CCTK_REAL PDstandardNth11beta3 = INITVALUE; + CCTK_REAL PDstandardNth22beta3 = INITVALUE; + CCTK_REAL PDstandardNth33beta3 = INITVALUE; + CCTK_REAL PDstandardNth12beta3 = INITVALUE; + CCTK_REAL PDstandardNth13beta3 = INITVALUE; + CCTK_REAL PDstandardNth21beta3 = INITVALUE; + CCTK_REAL PDstandardNth23beta3 = INITVALUE; + CCTK_REAL PDstandardNth31beta3 = INITVALUE; + CCTK_REAL PDstandardNth32beta3 = INITVALUE; + CCTK_REAL PDstandardNth1gt11 = INITVALUE; + CCTK_REAL PDstandardNth2gt11 = INITVALUE; + CCTK_REAL PDstandardNth3gt11 = INITVALUE; + CCTK_REAL PDstandardNth11gt11 = INITVALUE; + CCTK_REAL PDstandardNth22gt11 = INITVALUE; + CCTK_REAL PDstandardNth33gt11 = INITVALUE; + CCTK_REAL PDstandardNth12gt11 = INITVALUE; + CCTK_REAL PDstandardNth13gt11 = INITVALUE; + CCTK_REAL PDstandardNth21gt11 = INITVALUE; + CCTK_REAL PDstandardNth23gt11 = INITVALUE; + CCTK_REAL PDstandardNth31gt11 = INITVALUE; + CCTK_REAL PDstandardNth32gt11 = INITVALUE; + CCTK_REAL PDstandardNth1gt12 = INITVALUE; + CCTK_REAL PDstandardNth2gt12 = INITVALUE; + CCTK_REAL PDstandardNth3gt12 = INITVALUE; + CCTK_REAL PDstandardNth11gt12 = INITVALUE; + CCTK_REAL PDstandardNth22gt12 = INITVALUE; + CCTK_REAL PDstandardNth33gt12 = INITVALUE; + CCTK_REAL PDstandardNth12gt12 = INITVALUE; + CCTK_REAL PDstandardNth13gt12 = INITVALUE; + CCTK_REAL PDstandardNth21gt12 = INITVALUE; + CCTK_REAL PDstandardNth23gt12 = INITVALUE; + CCTK_REAL PDstandardNth31gt12 = INITVALUE; + CCTK_REAL PDstandardNth32gt12 = INITVALUE; + CCTK_REAL PDstandardNth1gt13 = INITVALUE; + CCTK_REAL PDstandardNth2gt13 = INITVALUE; + CCTK_REAL PDstandardNth3gt13 = INITVALUE; + CCTK_REAL PDstandardNth11gt13 = INITVALUE; + CCTK_REAL PDstandardNth22gt13 = INITVALUE; + CCTK_REAL PDstandardNth33gt13 = INITVALUE; + CCTK_REAL PDstandardNth12gt13 = INITVALUE; + CCTK_REAL PDstandardNth13gt13 = INITVALUE; + CCTK_REAL PDstandardNth21gt13 = INITVALUE; + CCTK_REAL PDstandardNth23gt13 = INITVALUE; + CCTK_REAL PDstandardNth31gt13 = INITVALUE; + CCTK_REAL PDstandardNth32gt13 = INITVALUE; + CCTK_REAL PDstandardNth1gt22 = INITVALUE; + CCTK_REAL PDstandardNth2gt22 = INITVALUE; + CCTK_REAL PDstandardNth3gt22 = INITVALUE; + CCTK_REAL PDstandardNth11gt22 = INITVALUE; + CCTK_REAL PDstandardNth22gt22 = INITVALUE; + CCTK_REAL PDstandardNth33gt22 = INITVALUE; + CCTK_REAL PDstandardNth12gt22 = INITVALUE; + CCTK_REAL PDstandardNth13gt22 = INITVALUE; + CCTK_REAL PDstandardNth21gt22 = INITVALUE; + CCTK_REAL PDstandardNth23gt22 = INITVALUE; + CCTK_REAL PDstandardNth31gt22 = INITVALUE; + CCTK_REAL PDstandardNth32gt22 = INITVALUE; + CCTK_REAL PDstandardNth1gt23 = INITVALUE; + CCTK_REAL PDstandardNth2gt23 = INITVALUE; + CCTK_REAL PDstandardNth3gt23 = INITVALUE; + CCTK_REAL PDstandardNth11gt23 = INITVALUE; + CCTK_REAL PDstandardNth22gt23 = INITVALUE; + CCTK_REAL PDstandardNth33gt23 = INITVALUE; + CCTK_REAL PDstandardNth12gt23 = INITVALUE; + CCTK_REAL PDstandardNth13gt23 = INITVALUE; + CCTK_REAL PDstandardNth21gt23 = INITVALUE; + CCTK_REAL PDstandardNth23gt23 = INITVALUE; + CCTK_REAL PDstandardNth31gt23 = INITVALUE; + CCTK_REAL PDstandardNth32gt23 = INITVALUE; + CCTK_REAL PDstandardNth1gt33 = INITVALUE; + CCTK_REAL PDstandardNth2gt33 = INITVALUE; + CCTK_REAL PDstandardNth3gt33 = INITVALUE; + CCTK_REAL PDstandardNth11gt33 = INITVALUE; + CCTK_REAL PDstandardNth22gt33 = INITVALUE; + CCTK_REAL PDstandardNth33gt33 = INITVALUE; + CCTK_REAL PDstandardNth12gt33 = INITVALUE; + CCTK_REAL PDstandardNth13gt33 = INITVALUE; + CCTK_REAL PDstandardNth21gt33 = INITVALUE; + CCTK_REAL PDstandardNth23gt33 = INITVALUE; + CCTK_REAL PDstandardNth31gt33 = INITVALUE; + CCTK_REAL PDstandardNth32gt33 = INITVALUE; + CCTK_REAL PDstandardNth1phi = INITVALUE; + CCTK_REAL PDstandardNth2phi = INITVALUE; + CCTK_REAL PDstandardNth3phi = INITVALUE; + CCTK_REAL PDstandardNth11phi = INITVALUE; + CCTK_REAL PDstandardNth22phi = INITVALUE; + CCTK_REAL PDstandardNth33phi = INITVALUE; + CCTK_REAL PDstandardNth12phi = INITVALUE; + CCTK_REAL PDstandardNth13phi = INITVALUE; + CCTK_REAL PDstandardNth21phi = INITVALUE; + CCTK_REAL PDstandardNth23phi = INITVALUE; + CCTK_REAL PDstandardNth31phi = INITVALUE; + CCTK_REAL PDstandardNth32phi = INITVALUE; + CCTK_REAL PDstandardNth1trK = INITVALUE; + CCTK_REAL PDstandardNth2trK = INITVALUE; + CCTK_REAL PDstandardNth3trK = INITVALUE; + CCTK_REAL PDstandardNth1Xt1 = INITVALUE; + CCTK_REAL PDstandardNth2Xt1 = INITVALUE; + CCTK_REAL PDstandardNth3Xt1 = INITVALUE; + CCTK_REAL PDstandardNth1Xt2 = INITVALUE; + CCTK_REAL PDstandardNth2Xt2 = INITVALUE; + CCTK_REAL PDstandardNth3Xt2 = INITVALUE; + CCTK_REAL PDstandardNth1Xt3 = INITVALUE; + CCTK_REAL PDstandardNth2Xt3 = INITVALUE; + CCTK_REAL PDstandardNth3Xt3 = INITVALUE; /* Assign local copies of grid functions */ AL = A[index]; @@ -346,135 +346,135 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal /* Include user supplied include files */ /* Precompute derivatives (new style) */ - PDstandard4th1alpha = PDstandard4th1(alpha, i, j, k); - PDstandard4th2alpha = PDstandard4th2(alpha, i, j, k); - PDstandard4th3alpha = PDstandard4th3(alpha, i, j, k); - PDstandard4th11alpha = PDstandard4th11(alpha, i, j, k); - PDstandard4th22alpha = PDstandard4th22(alpha, i, j, k); - PDstandard4th33alpha = PDstandard4th33(alpha, i, j, k); - PDstandard4th12alpha = PDstandard4th12(alpha, i, j, k); - PDstandard4th13alpha = PDstandard4th13(alpha, i, j, k); - PDstandard4th23alpha = PDstandard4th23(alpha, i, j, k); - PDstandard4th1At11 = PDstandard4th1(At11, i, j, k); - PDstandard4th2At11 = PDstandard4th2(At11, i, j, k); - PDstandard4th3At11 = PDstandard4th3(At11, i, j, k); - PDstandard4th1At12 = PDstandard4th1(At12, i, j, k); - PDstandard4th2At12 = PDstandard4th2(At12, i, j, k); - PDstandard4th3At12 = PDstandard4th3(At12, i, j, k); - PDstandard4th1At13 = PDstandard4th1(At13, i, j, k); - PDstandard4th2At13 = PDstandard4th2(At13, i, j, k); - PDstandard4th3At13 = PDstandard4th3(At13, i, j, k); - PDstandard4th1At22 = PDstandard4th1(At22, i, j, k); - PDstandard4th2At22 = PDstandard4th2(At22, i, j, k); - PDstandard4th3At22 = PDstandard4th3(At22, i, j, k); - PDstandard4th1At23 = PDstandard4th1(At23, i, j, k); - PDstandard4th2At23 = PDstandard4th2(At23, i, j, k); - PDstandard4th3At23 = PDstandard4th3(At23, i, j, k); - PDstandard4th1At33 = PDstandard4th1(At33, i, j, k); - PDstandard4th2At33 = PDstandard4th2(At33, i, j, k); - PDstandard4th3At33 = PDstandard4th3(At33, i, j, k); - PDstandard4th1beta1 = PDstandard4th1(beta1, i, j, k); - PDstandard4th2beta1 = PDstandard4th2(beta1, i, j, k); - PDstandard4th3beta1 = PDstandard4th3(beta1, i, j, k); - PDstandard4th11beta1 = PDstandard4th11(beta1, i, j, k); - PDstandard4th22beta1 = PDstandard4th22(beta1, i, j, k); - PDstandard4th33beta1 = PDstandard4th33(beta1, i, j, k); - PDstandard4th12beta1 = PDstandard4th12(beta1, i, j, k); - PDstandard4th13beta1 = PDstandard4th13(beta1, i, j, k); - PDstandard4th23beta1 = PDstandard4th23(beta1, i, j, k); - PDstandard4th1beta2 = PDstandard4th1(beta2, i, j, k); - PDstandard4th2beta2 = PDstandard4th2(beta2, i, j, k); - PDstandard4th3beta2 = PDstandard4th3(beta2, i, j, k); - PDstandard4th11beta2 = PDstandard4th11(beta2, i, j, k); - PDstandard4th22beta2 = PDstandard4th22(beta2, i, j, k); - PDstandard4th33beta2 = PDstandard4th33(beta2, i, j, k); - PDstandard4th12beta2 = PDstandard4th12(beta2, i, j, k); - PDstandard4th13beta2 = PDstandard4th13(beta2, i, j, k); - PDstandard4th23beta2 = PDstandard4th23(beta2, i, j, k); - PDstandard4th1beta3 = PDstandard4th1(beta3, i, j, k); - PDstandard4th2beta3 = PDstandard4th2(beta3, i, j, k); - PDstandard4th3beta3 = PDstandard4th3(beta3, i, j, k); - PDstandard4th11beta3 = PDstandard4th11(beta3, i, j, k); - PDstandard4th22beta3 = PDstandard4th22(beta3, i, j, k); - PDstandard4th33beta3 = PDstandard4th33(beta3, i, j, k); - PDstandard4th12beta3 = PDstandard4th12(beta3, i, j, k); - PDstandard4th13beta3 = PDstandard4th13(beta3, i, j, k); - PDstandard4th23beta3 = PDstandard4th23(beta3, i, j, k); - PDstandard4th1gt11 = PDstandard4th1(gt11, i, j, k); - PDstandard4th2gt11 = PDstandard4th2(gt11, i, j, k); - PDstandard4th3gt11 = PDstandard4th3(gt11, i, j, k); - PDstandard4th11gt11 = PDstandard4th11(gt11, i, j, k); - PDstandard4th22gt11 = PDstandard4th22(gt11, i, j, k); - PDstandard4th33gt11 = PDstandard4th33(gt11, i, j, k); - PDstandard4th12gt11 = PDstandard4th12(gt11, i, j, k); - PDstandard4th13gt11 = PDstandard4th13(gt11, i, j, k); - PDstandard4th23gt11 = PDstandard4th23(gt11, i, j, k); - PDstandard4th1gt12 = PDstandard4th1(gt12, i, j, k); - PDstandard4th2gt12 = PDstandard4th2(gt12, i, j, k); - PDstandard4th3gt12 = PDstandard4th3(gt12, i, j, k); - PDstandard4th11gt12 = PDstandard4th11(gt12, i, j, k); - PDstandard4th22gt12 = PDstandard4th22(gt12, i, j, k); - PDstandard4th33gt12 = PDstandard4th33(gt12, i, j, k); - PDstandard4th12gt12 = PDstandard4th12(gt12, i, j, k); - PDstandard4th13gt12 = PDstandard4th13(gt12, i, j, k); - PDstandard4th23gt12 = PDstandard4th23(gt12, i, j, k); - PDstandard4th1gt13 = PDstandard4th1(gt13, i, j, k); - PDstandard4th2gt13 = PDstandard4th2(gt13, i, j, k); - PDstandard4th3gt13 = PDstandard4th3(gt13, i, j, k); - PDstandard4th11gt13 = PDstandard4th11(gt13, i, j, k); - PDstandard4th22gt13 = PDstandard4th22(gt13, i, j, k); - PDstandard4th33gt13 = PDstandard4th33(gt13, i, j, k); - PDstandard4th12gt13 = PDstandard4th12(gt13, i, j, k); - PDstandard4th13gt13 = PDstandard4th13(gt13, i, j, k); - PDstandard4th23gt13 = PDstandard4th23(gt13, i, j, k); - PDstandard4th1gt22 = PDstandard4th1(gt22, i, j, k); - PDstandard4th2gt22 = PDstandard4th2(gt22, i, j, k); - PDstandard4th3gt22 = PDstandard4th3(gt22, i, j, k); - PDstandard4th11gt22 = PDstandard4th11(gt22, i, j, k); - PDstandard4th22gt22 = PDstandard4th22(gt22, i, j, k); - PDstandard4th33gt22 = PDstandard4th33(gt22, i, j, k); - PDstandard4th12gt22 = PDstandard4th12(gt22, i, j, k); - PDstandard4th13gt22 = PDstandard4th13(gt22, i, j, k); - PDstandard4th23gt22 = PDstandard4th23(gt22, i, j, k); - PDstandard4th1gt23 = PDstandard4th1(gt23, i, j, k); - PDstandard4th2gt23 = PDstandard4th2(gt23, i, j, k); - PDstandard4th3gt23 = PDstandard4th3(gt23, i, j, k); - PDstandard4th11gt23 = PDstandard4th11(gt23, i, j, k); - PDstandard4th22gt23 = PDstandard4th22(gt23, i, j, k); - PDstandard4th33gt23 = PDstandard4th33(gt23, i, j, k); - PDstandard4th12gt23 = PDstandard4th12(gt23, i, j, k); - PDstandard4th13gt23 = PDstandard4th13(gt23, i, j, k); - PDstandard4th23gt23 = PDstandard4th23(gt23, i, j, k); - PDstandard4th1gt33 = PDstandard4th1(gt33, i, j, k); - PDstandard4th2gt33 = PDstandard4th2(gt33, i, j, k); - PDstandard4th3gt33 = PDstandard4th3(gt33, i, j, k); - PDstandard4th11gt33 = PDstandard4th11(gt33, i, j, k); - PDstandard4th22gt33 = PDstandard4th22(gt33, i, j, k); - PDstandard4th33gt33 = PDstandard4th33(gt33, i, j, k); - PDstandard4th12gt33 = PDstandard4th12(gt33, i, j, k); - PDstandard4th13gt33 = PDstandard4th13(gt33, i, j, k); - PDstandard4th23gt33 = PDstandard4th23(gt33, i, j, k); - PDstandard4th1phi = PDstandard4th1(phi, i, j, k); - PDstandard4th2phi = PDstandard4th2(phi, i, j, k); - PDstandard4th3phi = PDstandard4th3(phi, i, j, k); - PDstandard4th11phi = PDstandard4th11(phi, i, j, k); - PDstandard4th22phi = PDstandard4th22(phi, i, j, k); - PDstandard4th33phi = PDstandard4th33(phi, i, j, k); - PDstandard4th12phi = PDstandard4th12(phi, i, j, k); - PDstandard4th13phi = PDstandard4th13(phi, i, j, k); - PDstandard4th23phi = PDstandard4th23(phi, i, j, k); - PDstandard4th1trK = PDstandard4th1(trK, i, j, k); - PDstandard4th2trK = PDstandard4th2(trK, i, j, k); - PDstandard4th3trK = PDstandard4th3(trK, i, j, k); - PDstandard4th1Xt1 = PDstandard4th1(Xt1, i, j, k); - PDstandard4th2Xt1 = PDstandard4th2(Xt1, i, j, k); - PDstandard4th3Xt1 = PDstandard4th3(Xt1, i, j, k); - PDstandard4th1Xt2 = PDstandard4th1(Xt2, i, j, k); - PDstandard4th2Xt2 = PDstandard4th2(Xt2, i, j, k); - PDstandard4th3Xt2 = PDstandard4th3(Xt2, i, j, k); - PDstandard4th1Xt3 = PDstandard4th1(Xt3, i, j, k); - PDstandard4th2Xt3 = PDstandard4th2(Xt3, i, j, k); - PDstandard4th3Xt3 = PDstandard4th3(Xt3, i, j, k); + PDstandardNth1alpha = PDstandardNth1(alpha, i, j, k); + PDstandardNth2alpha = PDstandardNth2(alpha, i, j, k); + PDstandardNth3alpha = PDstandardNth3(alpha, i, j, k); + PDstandardNth11alpha = PDstandardNth11(alpha, i, j, k); + PDstandardNth22alpha = PDstandardNth22(alpha, i, j, k); + PDstandardNth33alpha = PDstandardNth33(alpha, i, j, k); + PDstandardNth12alpha = PDstandardNth12(alpha, i, j, k); + PDstandardNth13alpha = PDstandardNth13(alpha, i, j, k); + PDstandardNth23alpha = PDstandardNth23(alpha, i, j, k); + PDstandardNth1At11 = PDstandardNth1(At11, i, j, k); + PDstandardNth2At11 = PDstandardNth2(At11, i, j, k); + PDstandardNth3At11 = PDstandardNth3(At11, i, j, k); + PDstandardNth1At12 = PDstandardNth1(At12, i, j, k); + PDstandardNth2At12 = PDstandardNth2(At12, i, j, k); + PDstandardNth3At12 = PDstandardNth3(At12, i, j, k); + PDstandardNth1At13 = PDstandardNth1(At13, i, j, k); + PDstandardNth2At13 = PDstandardNth2(At13, i, j, k); + PDstandardNth3At13 = PDstandardNth3(At13, i, j, k); + PDstandardNth1At22 = PDstandardNth1(At22, i, j, k); + PDstandardNth2At22 = PDstandardNth2(At22, i, j, k); + PDstandardNth3At22 = PDstandardNth3(At22, i, j, k); + PDstandardNth1At23 = PDstandardNth1(At23, i, j, k); + PDstandardNth2At23 = PDstandardNth2(At23, i, j, k); + PDstandardNth3At23 = PDstandardNth3(At23, i, j, k); + PDstandardNth1At33 = PDstandardNth1(At33, i, j, k); + PDstandardNth2At33 = PDstandardNth2(At33, i, j, k); + PDstandardNth3At33 = PDstandardNth3(At33, i, j, k); + PDstandardNth1beta1 = PDstandardNth1(beta1, i, j, k); + PDstandardNth2beta1 = PDstandardNth2(beta1, i, j, k); + PDstandardNth3beta1 = PDstandardNth3(beta1, i, j, k); + PDstandardNth11beta1 = PDstandardNth11(beta1, i, j, k); + PDstandardNth22beta1 = PDstandardNth22(beta1, i, j, k); + PDstandardNth33beta1 = PDstandardNth33(beta1, i, j, k); + PDstandardNth12beta1 = PDstandardNth12(beta1, i, j, k); + PDstandardNth13beta1 = PDstandardNth13(beta1, i, j, k); + PDstandardNth23beta1 = PDstandardNth23(beta1, i, j, k); + PDstandardNth1beta2 = PDstandardNth1(beta2, i, j, k); + PDstandardNth2beta2 = PDstandardNth2(beta2, i, j, k); + PDstandardNth3beta2 = PDstandardNth3(beta2, i, j, k); + PDstandardNth11beta2 = PDstandardNth11(beta2, i, j, k); + PDstandardNth22beta2 = PDstandardNth22(beta2, i, j, k); + PDstandardNth33beta2 = PDstandardNth33(beta2, i, j, k); + PDstandardNth12beta2 = PDstandardNth12(beta2, i, j, k); + PDstandardNth13beta2 = PDstandardNth13(beta2, i, j, k); + PDstandardNth23beta2 = PDstandardNth23(beta2, i, j, k); + PDstandardNth1beta3 = PDstandardNth1(beta3, i, j, k); + PDstandardNth2beta3 = PDstandardNth2(beta3, i, j, k); + PDstandardNth3beta3 = PDstandardNth3(beta3, i, j, k); + PDstandardNth11beta3 = PDstandardNth11(beta3, i, j, k); + PDstandardNth22beta3 = PDstandardNth22(beta3, i, j, k); + PDstandardNth33beta3 = PDstandardNth33(beta3, i, j, k); + PDstandardNth12beta3 = PDstandardNth12(beta3, i, j, k); + PDstandardNth13beta3 = PDstandardNth13(beta3, i, j, k); + PDstandardNth23beta3 = PDstandardNth23(beta3, i, j, k); + PDstandardNth1gt11 = PDstandardNth1(gt11, i, j, k); + PDstandardNth2gt11 = PDstandardNth2(gt11, i, j, k); + PDstandardNth3gt11 = PDstandardNth3(gt11, i, j, k); + PDstandardNth11gt11 = PDstandardNth11(gt11, i, j, k); + PDstandardNth22gt11 = PDstandardNth22(gt11, i, j, k); + PDstandardNth33gt11 = PDstandardNth33(gt11, i, j, k); + PDstandardNth12gt11 = PDstandardNth12(gt11, i, j, k); + PDstandardNth13gt11 = PDstandardNth13(gt11, i, j, k); + PDstandardNth23gt11 = PDstandardNth23(gt11, i, j, k); + PDstandardNth1gt12 = PDstandardNth1(gt12, i, j, k); + PDstandardNth2gt12 = PDstandardNth2(gt12, i, j, k); + PDstandardNth3gt12 = PDstandardNth3(gt12, i, j, k); + PDstandardNth11gt12 = PDstandardNth11(gt12, i, j, k); + PDstandardNth22gt12 = PDstandardNth22(gt12, i, j, k); + PDstandardNth33gt12 = PDstandardNth33(gt12, i, j, k); + PDstandardNth12gt12 = PDstandardNth12(gt12, i, j, k); + PDstandardNth13gt12 = PDstandardNth13(gt12, i, j, k); + PDstandardNth23gt12 = PDstandardNth23(gt12, i, j, k); + PDstandardNth1gt13 = PDstandardNth1(gt13, i, j, k); + PDstandardNth2gt13 = PDstandardNth2(gt13, i, j, k); + PDstandardNth3gt13 = PDstandardNth3(gt13, i, j, k); + PDstandardNth11gt13 = PDstandardNth11(gt13, i, j, k); + PDstandardNth22gt13 = PDstandardNth22(gt13, i, j, k); + PDstandardNth33gt13 = PDstandardNth33(gt13, i, j, k); + PDstandardNth12gt13 = PDstandardNth12(gt13, i, j, k); + PDstandardNth13gt13 = PDstandardNth13(gt13, i, j, k); + PDstandardNth23gt13 = PDstandardNth23(gt13, i, j, k); + PDstandardNth1gt22 = PDstandardNth1(gt22, i, j, k); + PDstandardNth2gt22 = PDstandardNth2(gt22, i, j, k); + PDstandardNth3gt22 = PDstandardNth3(gt22, i, j, k); + PDstandardNth11gt22 = PDstandardNth11(gt22, i, j, k); + PDstandardNth22gt22 = PDstandardNth22(gt22, i, j, k); + PDstandardNth33gt22 = PDstandardNth33(gt22, i, j, k); + PDstandardNth12gt22 = PDstandardNth12(gt22, i, j, k); + PDstandardNth13gt22 = PDstandardNth13(gt22, i, j, k); + PDstandardNth23gt22 = PDstandardNth23(gt22, i, j, k); + PDstandardNth1gt23 = PDstandardNth1(gt23, i, j, k); + PDstandardNth2gt23 = PDstandardNth2(gt23, i, j, k); + PDstandardNth3gt23 = PDstandardNth3(gt23, i, j, k); + PDstandardNth11gt23 = PDstandardNth11(gt23, i, j, k); + PDstandardNth22gt23 = PDstandardNth22(gt23, i, j, k); + PDstandardNth33gt23 = PDstandardNth33(gt23, i, j, k); + PDstandardNth12gt23 = PDstandardNth12(gt23, i, j, k); + PDstandardNth13gt23 = PDstandardNth13(gt23, i, j, k); + PDstandardNth23gt23 = PDstandardNth23(gt23, i, j, k); + PDstandardNth1gt33 = PDstandardNth1(gt33, i, j, k); + PDstandardNth2gt33 = PDstandardNth2(gt33, i, j, k); + PDstandardNth3gt33 = PDstandardNth3(gt33, i, j, k); + PDstandardNth11gt33 = PDstandardNth11(gt33, i, j, k); + PDstandardNth22gt33 = PDstandardNth22(gt33, i, j, k); + PDstandardNth33gt33 = PDstandardNth33(gt33, i, j, k); + PDstandardNth12gt33 = PDstandardNth12(gt33, i, j, k); + PDstandardNth13gt33 = PDstandardNth13(gt33, i, j, k); + PDstandardNth23gt33 = PDstandardNth23(gt33, i, j, k); + PDstandardNth1phi = PDstandardNth1(phi, i, j, k); + PDstandardNth2phi = PDstandardNth2(phi, i, j, k); + PDstandardNth3phi = PDstandardNth3(phi, i, j, k); + PDstandardNth11phi = PDstandardNth11(phi, i, j, k); + PDstandardNth22phi = PDstandardNth22(phi, i, j, k); + PDstandardNth33phi = PDstandardNth33(phi, i, j, k); + PDstandardNth12phi = PDstandardNth12(phi, i, j, k); + PDstandardNth13phi = PDstandardNth13(phi, i, j, k); + PDstandardNth23phi = PDstandardNth23(phi, i, j, k); + PDstandardNth1trK = PDstandardNth1(trK, i, j, k); + PDstandardNth2trK = PDstandardNth2(trK, i, j, k); + PDstandardNth3trK = PDstandardNth3(trK, i, j, k); + PDstandardNth1Xt1 = PDstandardNth1(Xt1, i, j, k); + PDstandardNth2Xt1 = PDstandardNth2(Xt1, i, j, k); + PDstandardNth3Xt1 = PDstandardNth3(Xt1, i, j, k); + PDstandardNth1Xt2 = PDstandardNth1(Xt2, i, j, k); + PDstandardNth2Xt2 = PDstandardNth2(Xt2, i, j, k); + PDstandardNth3Xt2 = PDstandardNth3(Xt2, i, j, k); + PDstandardNth1Xt3 = PDstandardNth1(Xt3, i, j, k); + PDstandardNth2Xt3 = PDstandardNth2(Xt3, i, j, k); + PDstandardNth3Xt3 = PDstandardNth3(Xt3, i, j, k); /* Precompute derivatives (old style) */ @@ -499,335 +499,335 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); - dgtu111 = -2*(gtu11*gtu21*PDstandard4th1gt12 + gtu11*gtu31*PDstandard4th1gt13 + gtu21*gtu31*PDstandard4th1gt23) - - PDstandard4th1gt11*SQR(gtu11) - PDstandard4th1gt22*SQR(gtu21) - PDstandard4th1gt33*SQR(gtu31); - - dgtu211 = -(gtu11*gtu21*PDstandard4th1gt11) - gtu11*gtu22*PDstandard4th1gt12 - gtu21*gtu31*PDstandard4th1gt13 - - gtu11*gtu32*PDstandard4th1gt13 - gtu21*gtu22*PDstandard4th1gt22 - gtu22*gtu31*PDstandard4th1gt23 - - gtu21*gtu32*PDstandard4th1gt23 - gtu31*gtu32*PDstandard4th1gt33 - PDstandard4th1gt12*SQR(gtu21); - - dgtu311 = -(gtu11*gtu31*PDstandard4th1gt11) - gtu21*gtu31*PDstandard4th1gt12 - gtu11*gtu32*PDstandard4th1gt12 - - gtu11*gtu33*PDstandard4th1gt13 - gtu21*gtu32*PDstandard4th1gt22 - gtu31*gtu32*PDstandard4th1gt23 - - gtu21*gtu33*PDstandard4th1gt23 - gtu31*gtu33*PDstandard4th1gt33 - PDstandard4th1gt13*SQR(gtu31); - - dgtu221 = -2*(gtu21*gtu22*PDstandard4th1gt12 + gtu21*gtu32*PDstandard4th1gt13 + gtu22*gtu32*PDstandard4th1gt23) - - PDstandard4th1gt11*SQR(gtu21) - PDstandard4th1gt22*SQR(gtu22) - PDstandard4th1gt33*SQR(gtu32); - - dgtu321 = -(gtu21*gtu31*PDstandard4th1gt11) - gtu22*gtu31*PDstandard4th1gt12 - gtu21*gtu32*PDstandard4th1gt12 - - gtu31*gtu32*PDstandard4th1gt13 - gtu21*gtu33*PDstandard4th1gt13 - gtu22*gtu32*PDstandard4th1gt22 - - gtu22*gtu33*PDstandard4th1gt23 - gtu32*gtu33*PDstandard4th1gt33 - PDstandard4th1gt23*SQR(gtu32); - - dgtu331 = -2*(gtu31*gtu32*PDstandard4th1gt12 + gtu31*gtu33*PDstandard4th1gt13 + gtu32*gtu33*PDstandard4th1gt23) - - PDstandard4th1gt11*SQR(gtu31) - PDstandard4th1gt22*SQR(gtu32) - PDstandard4th1gt33*SQR(gtu33); - - dgtu112 = -2*(gtu11*gtu21*PDstandard4th2gt12 + gtu11*gtu31*PDstandard4th2gt13 + gtu21*gtu31*PDstandard4th2gt23) - - PDstandard4th2gt11*SQR(gtu11) - PDstandard4th2gt22*SQR(gtu21) - PDstandard4th2gt33*SQR(gtu31); - - dgtu212 = -(gtu11*gtu21*PDstandard4th2gt11) - gtu11*gtu22*PDstandard4th2gt12 - gtu21*gtu31*PDstandard4th2gt13 - - gtu11*gtu32*PDstandard4th2gt13 - gtu21*gtu22*PDstandard4th2gt22 - gtu22*gtu31*PDstandard4th2gt23 - - gtu21*gtu32*PDstandard4th2gt23 - gtu31*gtu32*PDstandard4th2gt33 - PDstandard4th2gt12*SQR(gtu21); - - dgtu312 = -(gtu11*gtu31*PDstandard4th2gt11) - gtu21*gtu31*PDstandard4th2gt12 - gtu11*gtu32*PDstandard4th2gt12 - - gtu11*gtu33*PDstandard4th2gt13 - gtu21*gtu32*PDstandard4th2gt22 - gtu31*gtu32*PDstandard4th2gt23 - - gtu21*gtu33*PDstandard4th2gt23 - gtu31*gtu33*PDstandard4th2gt33 - PDstandard4th2gt13*SQR(gtu31); - - dgtu222 = -2*(gtu21*gtu22*PDstandard4th2gt12 + gtu21*gtu32*PDstandard4th2gt13 + gtu22*gtu32*PDstandard4th2gt23) - - PDstandard4th2gt11*SQR(gtu21) - PDstandard4th2gt22*SQR(gtu22) - PDstandard4th2gt33*SQR(gtu32); - - dgtu322 = -(gtu21*gtu31*PDstandard4th2gt11) - gtu22*gtu31*PDstandard4th2gt12 - gtu21*gtu32*PDstandard4th2gt12 - - gtu31*gtu32*PDstandard4th2gt13 - gtu21*gtu33*PDstandard4th2gt13 - gtu22*gtu32*PDstandard4th2gt22 - - gtu22*gtu33*PDstandard4th2gt23 - gtu32*gtu33*PDstandard4th2gt33 - PDstandard4th2gt23*SQR(gtu32); - - dgtu332 = -2*(gtu31*gtu32*PDstandard4th2gt12 + gtu31*gtu33*PDstandard4th2gt13 + gtu32*gtu33*PDstandard4th2gt23) - - PDstandard4th2gt11*SQR(gtu31) - PDstandard4th2gt22*SQR(gtu32) - PDstandard4th2gt33*SQR(gtu33); - - dgtu113 = -2*(gtu11*gtu21*PDstandard4th3gt12 + gtu11*gtu31*PDstandard4th3gt13 + gtu21*gtu31*PDstandard4th3gt23) - - PDstandard4th3gt11*SQR(gtu11) - PDstandard4th3gt22*SQR(gtu21) - PDstandard4th3gt33*SQR(gtu31); - - dgtu213 = -(gtu11*gtu21*PDstandard4th3gt11) - gtu11*gtu22*PDstandard4th3gt12 - gtu21*gtu31*PDstandard4th3gt13 - - gtu11*gtu32*PDstandard4th3gt13 - gtu21*gtu22*PDstandard4th3gt22 - gtu22*gtu31*PDstandard4th3gt23 - - gtu21*gtu32*PDstandard4th3gt23 - gtu31*gtu32*PDstandard4th3gt33 - PDstandard4th3gt12*SQR(gtu21); - - dgtu313 = -(gtu11*gtu31*PDstandard4th3gt11) - gtu21*gtu31*PDstandard4th3gt12 - gtu11*gtu32*PDstandard4th3gt12 - - gtu11*gtu33*PDstandard4th3gt13 - gtu21*gtu32*PDstandard4th3gt22 - gtu31*gtu32*PDstandard4th3gt23 - - gtu21*gtu33*PDstandard4th3gt23 - gtu31*gtu33*PDstandard4th3gt33 - PDstandard4th3gt13*SQR(gtu31); - - dgtu223 = -2*(gtu21*gtu22*PDstandard4th3gt12 + gtu21*gtu32*PDstandard4th3gt13 + gtu22*gtu32*PDstandard4th3gt23) - - PDstandard4th3gt11*SQR(gtu21) - PDstandard4th3gt22*SQR(gtu22) - PDstandard4th3gt33*SQR(gtu32); - - dgtu323 = -(gtu21*gtu31*PDstandard4th3gt11) - gtu22*gtu31*PDstandard4th3gt12 - gtu21*gtu32*PDstandard4th3gt12 - - gtu31*gtu32*PDstandard4th3gt13 - gtu21*gtu33*PDstandard4th3gt13 - gtu22*gtu32*PDstandard4th3gt22 - - gtu22*gtu33*PDstandard4th3gt23 - gtu32*gtu33*PDstandard4th3gt33 - PDstandard4th3gt23*SQR(gtu32); - - dgtu333 = -2*(gtu31*gtu32*PDstandard4th3gt12 + gtu31*gtu33*PDstandard4th3gt13 + gtu32*gtu33*PDstandard4th3gt23) - - PDstandard4th3gt11*SQR(gtu31) - PDstandard4th3gt22*SQR(gtu32) - PDstandard4th3gt33*SQR(gtu33); - - ddgtu1111 = -2*(gtu11*gtu21*PDstandard4th11gt12 + gtu11*gtu31*PDstandard4th11gt13 + gtu21*gtu31*PDstandard4th11gt23 + - dgtu111*gtu11*PDstandard4th1gt11 + dgtu211*gtu11*PDstandard4th1gt12 + dgtu111*gtu21*PDstandard4th1gt12 + - dgtu311*gtu11*PDstandard4th1gt13 + dgtu111*gtu31*PDstandard4th1gt13 + dgtu211*gtu21*PDstandard4th1gt22 + - dgtu311*gtu21*PDstandard4th1gt23 + dgtu211*gtu31*PDstandard4th1gt23 + dgtu311*gtu31*PDstandard4th1gt33) - - PDstandard4th11gt11*SQR(gtu11) - PDstandard4th11gt22*SQR(gtu21) - PDstandard4th11gt33*SQR(gtu31); - - ddgtu2111 = -(gtu11*gtu21*PDstandard4th11gt11) - gtu11*gtu22*PDstandard4th11gt12 - gtu21*gtu31*PDstandard4th11gt13 - - gtu11*gtu32*PDstandard4th11gt13 - gtu21*gtu22*PDstandard4th11gt22 - gtu22*gtu31*PDstandard4th11gt23 - - gtu21*gtu32*PDstandard4th11gt23 - gtu31*gtu32*PDstandard4th11gt33 - dgtu211*gtu11*PDstandard4th1gt11 - - dgtu111*gtu21*PDstandard4th1gt11 - dgtu221*gtu11*PDstandard4th1gt12 - 2*dgtu211*gtu21*PDstandard4th1gt12 - - dgtu111*gtu22*PDstandard4th1gt12 - dgtu321*gtu11*PDstandard4th1gt13 - dgtu311*gtu21*PDstandard4th1gt13 - - dgtu211*gtu31*PDstandard4th1gt13 - dgtu111*gtu32*PDstandard4th1gt13 - dgtu221*gtu21*PDstandard4th1gt22 - - dgtu211*gtu22*PDstandard4th1gt22 - dgtu321*gtu21*PDstandard4th1gt23 - dgtu311*gtu22*PDstandard4th1gt23 - - dgtu221*gtu31*PDstandard4th1gt23 - dgtu211*gtu32*PDstandard4th1gt23 - dgtu321*gtu31*PDstandard4th1gt33 - - dgtu311*gtu32*PDstandard4th1gt33 - PDstandard4th11gt12*SQR(gtu21); - - ddgtu3111 = -(gtu11*gtu31*PDstandard4th11gt11) - gtu21*gtu31*PDstandard4th11gt12 - gtu11*gtu32*PDstandard4th11gt12 - - gtu11*gtu33*PDstandard4th11gt13 - gtu21*gtu32*PDstandard4th11gt22 - gtu31*gtu32*PDstandard4th11gt23 - - gtu21*gtu33*PDstandard4th11gt23 - gtu31*gtu33*PDstandard4th11gt33 - dgtu311*gtu11*PDstandard4th1gt11 - - dgtu111*gtu31*PDstandard4th1gt11 - dgtu321*gtu11*PDstandard4th1gt12 - dgtu311*gtu21*PDstandard4th1gt12 - - dgtu211*gtu31*PDstandard4th1gt12 - dgtu111*gtu32*PDstandard4th1gt12 - dgtu331*gtu11*PDstandard4th1gt13 - - 2*dgtu311*gtu31*PDstandard4th1gt13 - dgtu111*gtu33*PDstandard4th1gt13 - dgtu321*gtu21*PDstandard4th1gt22 - - dgtu211*gtu32*PDstandard4th1gt22 - dgtu331*gtu21*PDstandard4th1gt23 - dgtu321*gtu31*PDstandard4th1gt23 - - dgtu311*gtu32*PDstandard4th1gt23 - dgtu211*gtu33*PDstandard4th1gt23 - dgtu331*gtu31*PDstandard4th1gt33 - - dgtu311*gtu33*PDstandard4th1gt33 - PDstandard4th11gt13*SQR(gtu31); - - ddgtu1112 = -2*(gtu11*gtu21*PDstandard4th12gt12 + gtu11*gtu31*PDstandard4th12gt13 + gtu21*gtu31*PDstandard4th12gt23 + - dgtu112*gtu11*PDstandard4th1gt11 + dgtu212*gtu11*PDstandard4th1gt12 + dgtu112*gtu21*PDstandard4th1gt12 + - dgtu312*gtu11*PDstandard4th1gt13 + dgtu112*gtu31*PDstandard4th1gt13 + dgtu212*gtu21*PDstandard4th1gt22 + - dgtu312*gtu21*PDstandard4th1gt23 + dgtu212*gtu31*PDstandard4th1gt23 + dgtu312*gtu31*PDstandard4th1gt33) - - PDstandard4th12gt11*SQR(gtu11) - PDstandard4th12gt22*SQR(gtu21) - PDstandard4th12gt33*SQR(gtu31); - - ddgtu2112 = -(gtu11*gtu21*PDstandard4th12gt11) - gtu11*gtu22*PDstandard4th12gt12 - gtu21*gtu31*PDstandard4th12gt13 - - gtu11*gtu32*PDstandard4th12gt13 - gtu21*gtu22*PDstandard4th12gt22 - gtu22*gtu31*PDstandard4th12gt23 - - gtu21*gtu32*PDstandard4th12gt23 - gtu31*gtu32*PDstandard4th12gt33 - dgtu212*gtu11*PDstandard4th1gt11 - - dgtu112*gtu21*PDstandard4th1gt11 - dgtu222*gtu11*PDstandard4th1gt12 - 2*dgtu212*gtu21*PDstandard4th1gt12 - - dgtu112*gtu22*PDstandard4th1gt12 - dgtu322*gtu11*PDstandard4th1gt13 - dgtu312*gtu21*PDstandard4th1gt13 - - dgtu212*gtu31*PDstandard4th1gt13 - dgtu112*gtu32*PDstandard4th1gt13 - dgtu222*gtu21*PDstandard4th1gt22 - - dgtu212*gtu22*PDstandard4th1gt22 - dgtu322*gtu21*PDstandard4th1gt23 - dgtu312*gtu22*PDstandard4th1gt23 - - dgtu222*gtu31*PDstandard4th1gt23 - dgtu212*gtu32*PDstandard4th1gt23 - dgtu322*gtu31*PDstandard4th1gt33 - - dgtu312*gtu32*PDstandard4th1gt33 - PDstandard4th12gt12*SQR(gtu21); - - ddgtu3112 = -(gtu11*gtu31*PDstandard4th12gt11) - gtu21*gtu31*PDstandard4th12gt12 - gtu11*gtu32*PDstandard4th12gt12 - - gtu11*gtu33*PDstandard4th12gt13 - gtu21*gtu32*PDstandard4th12gt22 - gtu31*gtu32*PDstandard4th12gt23 - - gtu21*gtu33*PDstandard4th12gt23 - gtu31*gtu33*PDstandard4th12gt33 - dgtu312*gtu11*PDstandard4th1gt11 - - dgtu112*gtu31*PDstandard4th1gt11 - dgtu322*gtu11*PDstandard4th1gt12 - dgtu312*gtu21*PDstandard4th1gt12 - - dgtu212*gtu31*PDstandard4th1gt12 - dgtu112*gtu32*PDstandard4th1gt12 - dgtu332*gtu11*PDstandard4th1gt13 - - 2*dgtu312*gtu31*PDstandard4th1gt13 - dgtu112*gtu33*PDstandard4th1gt13 - dgtu322*gtu21*PDstandard4th1gt22 - - dgtu212*gtu32*PDstandard4th1gt22 - dgtu332*gtu21*PDstandard4th1gt23 - dgtu322*gtu31*PDstandard4th1gt23 - - dgtu312*gtu32*PDstandard4th1gt23 - dgtu212*gtu33*PDstandard4th1gt23 - dgtu332*gtu31*PDstandard4th1gt33 - - dgtu312*gtu33*PDstandard4th1gt33 - PDstandard4th12gt13*SQR(gtu31); - - ddgtu2212 = -2*(gtu21*gtu22*PDstandard4th12gt12 + gtu21*gtu32*PDstandard4th12gt13 + gtu22*gtu32*PDstandard4th12gt23 + - dgtu212*gtu21*PDstandard4th1gt11 + dgtu222*gtu21*PDstandard4th1gt12 + dgtu212*gtu22*PDstandard4th1gt12 + - dgtu322*gtu21*PDstandard4th1gt13 + dgtu212*gtu32*PDstandard4th1gt13 + dgtu222*gtu22*PDstandard4th1gt22 + - dgtu322*gtu22*PDstandard4th1gt23 + dgtu222*gtu32*PDstandard4th1gt23 + dgtu322*gtu32*PDstandard4th1gt33) - - PDstandard4th12gt11*SQR(gtu21) - PDstandard4th12gt22*SQR(gtu22) - PDstandard4th12gt33*SQR(gtu32); - - ddgtu3212 = -(gtu21*gtu31*PDstandard4th12gt11) - gtu22*gtu31*PDstandard4th12gt12 - gtu21*gtu32*PDstandard4th12gt12 - - gtu31*gtu32*PDstandard4th12gt13 - gtu21*gtu33*PDstandard4th12gt13 - gtu22*gtu32*PDstandard4th12gt22 - - gtu22*gtu33*PDstandard4th12gt23 - gtu32*gtu33*PDstandard4th12gt33 - dgtu312*gtu21*PDstandard4th1gt11 - - dgtu212*gtu31*PDstandard4th1gt11 - dgtu322*gtu21*PDstandard4th1gt12 - dgtu312*gtu22*PDstandard4th1gt12 - - dgtu222*gtu31*PDstandard4th1gt12 - dgtu212*gtu32*PDstandard4th1gt12 - dgtu332*gtu21*PDstandard4th1gt13 - - dgtu322*gtu31*PDstandard4th1gt13 - dgtu312*gtu32*PDstandard4th1gt13 - dgtu212*gtu33*PDstandard4th1gt13 - - dgtu322*gtu22*PDstandard4th1gt22 - dgtu222*gtu32*PDstandard4th1gt22 - dgtu332*gtu22*PDstandard4th1gt23 - - 2*dgtu322*gtu32*PDstandard4th1gt23 - dgtu222*gtu33*PDstandard4th1gt23 - dgtu332*gtu32*PDstandard4th1gt33 - - dgtu322*gtu33*PDstandard4th1gt33 - PDstandard4th12gt23*SQR(gtu32); - - ddgtu1113 = -2*(gtu11*gtu21*PDstandard4th13gt12 + gtu11*gtu31*PDstandard4th13gt13 + gtu21*gtu31*PDstandard4th13gt23 + - dgtu113*gtu11*PDstandard4th1gt11 + dgtu213*gtu11*PDstandard4th1gt12 + dgtu113*gtu21*PDstandard4th1gt12 + - dgtu313*gtu11*PDstandard4th1gt13 + dgtu113*gtu31*PDstandard4th1gt13 + dgtu213*gtu21*PDstandard4th1gt22 + - dgtu313*gtu21*PDstandard4th1gt23 + dgtu213*gtu31*PDstandard4th1gt23 + dgtu313*gtu31*PDstandard4th1gt33) - - PDstandard4th13gt11*SQR(gtu11) - PDstandard4th13gt22*SQR(gtu21) - PDstandard4th13gt33*SQR(gtu31); - - ddgtu2113 = -(gtu11*gtu21*PDstandard4th13gt11) - gtu11*gtu22*PDstandard4th13gt12 - gtu21*gtu31*PDstandard4th13gt13 - - gtu11*gtu32*PDstandard4th13gt13 - gtu21*gtu22*PDstandard4th13gt22 - gtu22*gtu31*PDstandard4th13gt23 - - gtu21*gtu32*PDstandard4th13gt23 - gtu31*gtu32*PDstandard4th13gt33 - dgtu213*gtu11*PDstandard4th1gt11 - - dgtu113*gtu21*PDstandard4th1gt11 - dgtu223*gtu11*PDstandard4th1gt12 - 2*dgtu213*gtu21*PDstandard4th1gt12 - - dgtu113*gtu22*PDstandard4th1gt12 - dgtu323*gtu11*PDstandard4th1gt13 - dgtu313*gtu21*PDstandard4th1gt13 - - dgtu213*gtu31*PDstandard4th1gt13 - dgtu113*gtu32*PDstandard4th1gt13 - dgtu223*gtu21*PDstandard4th1gt22 - - dgtu213*gtu22*PDstandard4th1gt22 - dgtu323*gtu21*PDstandard4th1gt23 - dgtu313*gtu22*PDstandard4th1gt23 - - dgtu223*gtu31*PDstandard4th1gt23 - dgtu213*gtu32*PDstandard4th1gt23 - dgtu323*gtu31*PDstandard4th1gt33 - - dgtu313*gtu32*PDstandard4th1gt33 - PDstandard4th13gt12*SQR(gtu21); - - ddgtu3113 = -(gtu11*gtu31*PDstandard4th13gt11) - gtu21*gtu31*PDstandard4th13gt12 - gtu11*gtu32*PDstandard4th13gt12 - - gtu11*gtu33*PDstandard4th13gt13 - gtu21*gtu32*PDstandard4th13gt22 - gtu31*gtu32*PDstandard4th13gt23 - - gtu21*gtu33*PDstandard4th13gt23 - gtu31*gtu33*PDstandard4th13gt33 - dgtu313*gtu11*PDstandard4th1gt11 - - dgtu113*gtu31*PDstandard4th1gt11 - dgtu323*gtu11*PDstandard4th1gt12 - dgtu313*gtu21*PDstandard4th1gt12 - - dgtu213*gtu31*PDstandard4th1gt12 - dgtu113*gtu32*PDstandard4th1gt12 - dgtu333*gtu11*PDstandard4th1gt13 - - 2*dgtu313*gtu31*PDstandard4th1gt13 - dgtu113*gtu33*PDstandard4th1gt13 - dgtu323*gtu21*PDstandard4th1gt22 - - dgtu213*gtu32*PDstandard4th1gt22 - dgtu333*gtu21*PDstandard4th1gt23 - dgtu323*gtu31*PDstandard4th1gt23 - - dgtu313*gtu32*PDstandard4th1gt23 - dgtu213*gtu33*PDstandard4th1gt23 - dgtu333*gtu31*PDstandard4th1gt33 - - dgtu313*gtu33*PDstandard4th1gt33 - PDstandard4th13gt13*SQR(gtu31); - - ddgtu3213 = -(gtu21*gtu31*PDstandard4th13gt11) - gtu22*gtu31*PDstandard4th13gt12 - gtu21*gtu32*PDstandard4th13gt12 - - gtu31*gtu32*PDstandard4th13gt13 - gtu21*gtu33*PDstandard4th13gt13 - gtu22*gtu32*PDstandard4th13gt22 - - gtu22*gtu33*PDstandard4th13gt23 - gtu32*gtu33*PDstandard4th13gt33 - dgtu313*gtu21*PDstandard4th1gt11 - - dgtu213*gtu31*PDstandard4th1gt11 - dgtu323*gtu21*PDstandard4th1gt12 - dgtu313*gtu22*PDstandard4th1gt12 - - dgtu223*gtu31*PDstandard4th1gt12 - dgtu213*gtu32*PDstandard4th1gt12 - dgtu333*gtu21*PDstandard4th1gt13 - - dgtu323*gtu31*PDstandard4th1gt13 - dgtu313*gtu32*PDstandard4th1gt13 - dgtu213*gtu33*PDstandard4th1gt13 - - dgtu323*gtu22*PDstandard4th1gt22 - dgtu223*gtu32*PDstandard4th1gt22 - dgtu333*gtu22*PDstandard4th1gt23 - - 2*dgtu323*gtu32*PDstandard4th1gt23 - dgtu223*gtu33*PDstandard4th1gt23 - dgtu333*gtu32*PDstandard4th1gt33 - - dgtu323*gtu33*PDstandard4th1gt33 - PDstandard4th13gt23*SQR(gtu32); - - ddgtu3313 = -2*(gtu31*gtu32*PDstandard4th13gt12 + gtu31*gtu33*PDstandard4th13gt13 + gtu32*gtu33*PDstandard4th13gt23 + - dgtu313*gtu31*PDstandard4th1gt11 + dgtu323*gtu31*PDstandard4th1gt12 + dgtu313*gtu32*PDstandard4th1gt12 + - dgtu333*gtu31*PDstandard4th1gt13 + dgtu313*gtu33*PDstandard4th1gt13 + dgtu323*gtu32*PDstandard4th1gt22 + - dgtu333*gtu32*PDstandard4th1gt23 + dgtu323*gtu33*PDstandard4th1gt23 + dgtu333*gtu33*PDstandard4th1gt33) - - PDstandard4th13gt11*SQR(gtu31) - PDstandard4th13gt22*SQR(gtu32) - PDstandard4th13gt33*SQR(gtu33); - - ddgtu2122 = -(gtu11*gtu21*PDstandard4th22gt11) - gtu11*gtu22*PDstandard4th22gt12 - gtu21*gtu31*PDstandard4th22gt13 - - gtu11*gtu32*PDstandard4th22gt13 - gtu21*gtu22*PDstandard4th22gt22 - gtu22*gtu31*PDstandard4th22gt23 - - gtu21*gtu32*PDstandard4th22gt23 - gtu31*gtu32*PDstandard4th22gt33 - dgtu212*gtu11*PDstandard4th2gt11 - - dgtu112*gtu21*PDstandard4th2gt11 - dgtu222*gtu11*PDstandard4th2gt12 - 2*dgtu212*gtu21*PDstandard4th2gt12 - - dgtu112*gtu22*PDstandard4th2gt12 - dgtu322*gtu11*PDstandard4th2gt13 - dgtu312*gtu21*PDstandard4th2gt13 - - dgtu212*gtu31*PDstandard4th2gt13 - dgtu112*gtu32*PDstandard4th2gt13 - dgtu222*gtu21*PDstandard4th2gt22 - - dgtu212*gtu22*PDstandard4th2gt22 - dgtu322*gtu21*PDstandard4th2gt23 - dgtu312*gtu22*PDstandard4th2gt23 - - dgtu222*gtu31*PDstandard4th2gt23 - dgtu212*gtu32*PDstandard4th2gt23 - dgtu322*gtu31*PDstandard4th2gt33 - - dgtu312*gtu32*PDstandard4th2gt33 - PDstandard4th22gt12*SQR(gtu21); - - ddgtu2222 = -2*(gtu21*gtu22*PDstandard4th22gt12 + gtu21*gtu32*PDstandard4th22gt13 + gtu22*gtu32*PDstandard4th22gt23 + - dgtu212*gtu21*PDstandard4th2gt11 + dgtu222*gtu21*PDstandard4th2gt12 + dgtu212*gtu22*PDstandard4th2gt12 + - dgtu322*gtu21*PDstandard4th2gt13 + dgtu212*gtu32*PDstandard4th2gt13 + dgtu222*gtu22*PDstandard4th2gt22 + - dgtu322*gtu22*PDstandard4th2gt23 + dgtu222*gtu32*PDstandard4th2gt23 + dgtu322*gtu32*PDstandard4th2gt33) - - PDstandard4th22gt11*SQR(gtu21) - PDstandard4th22gt22*SQR(gtu22) - PDstandard4th22gt33*SQR(gtu32); - - ddgtu3222 = -(gtu21*gtu31*PDstandard4th22gt11) - gtu22*gtu31*PDstandard4th22gt12 - gtu21*gtu32*PDstandard4th22gt12 - - gtu31*gtu32*PDstandard4th22gt13 - gtu21*gtu33*PDstandard4th22gt13 - gtu22*gtu32*PDstandard4th22gt22 - - gtu22*gtu33*PDstandard4th22gt23 - gtu32*gtu33*PDstandard4th22gt33 - dgtu312*gtu21*PDstandard4th2gt11 - - dgtu212*gtu31*PDstandard4th2gt11 - dgtu322*gtu21*PDstandard4th2gt12 - dgtu312*gtu22*PDstandard4th2gt12 - - dgtu222*gtu31*PDstandard4th2gt12 - dgtu212*gtu32*PDstandard4th2gt12 - dgtu332*gtu21*PDstandard4th2gt13 - - dgtu322*gtu31*PDstandard4th2gt13 - dgtu312*gtu32*PDstandard4th2gt13 - dgtu212*gtu33*PDstandard4th2gt13 - - dgtu322*gtu22*PDstandard4th2gt22 - dgtu222*gtu32*PDstandard4th2gt22 - dgtu332*gtu22*PDstandard4th2gt23 - - 2*dgtu322*gtu32*PDstandard4th2gt23 - dgtu222*gtu33*PDstandard4th2gt23 - dgtu332*gtu32*PDstandard4th2gt33 - - dgtu322*gtu33*PDstandard4th2gt33 - PDstandard4th22gt23*SQR(gtu32); - - ddgtu2123 = -(gtu11*gtu21*PDstandard4th23gt11) - gtu11*gtu22*PDstandard4th23gt12 - gtu21*gtu31*PDstandard4th23gt13 - - gtu11*gtu32*PDstandard4th23gt13 - gtu21*gtu22*PDstandard4th23gt22 - gtu22*gtu31*PDstandard4th23gt23 - - gtu21*gtu32*PDstandard4th23gt23 - gtu31*gtu32*PDstandard4th23gt33 - dgtu213*gtu11*PDstandard4th2gt11 - - dgtu113*gtu21*PDstandard4th2gt11 - dgtu223*gtu11*PDstandard4th2gt12 - 2*dgtu213*gtu21*PDstandard4th2gt12 - - dgtu113*gtu22*PDstandard4th2gt12 - dgtu323*gtu11*PDstandard4th2gt13 - dgtu313*gtu21*PDstandard4th2gt13 - - dgtu213*gtu31*PDstandard4th2gt13 - dgtu113*gtu32*PDstandard4th2gt13 - dgtu223*gtu21*PDstandard4th2gt22 - - dgtu213*gtu22*PDstandard4th2gt22 - dgtu323*gtu21*PDstandard4th2gt23 - dgtu313*gtu22*PDstandard4th2gt23 - - dgtu223*gtu31*PDstandard4th2gt23 - dgtu213*gtu32*PDstandard4th2gt23 - dgtu323*gtu31*PDstandard4th2gt33 - - dgtu313*gtu32*PDstandard4th2gt33 - PDstandard4th23gt12*SQR(gtu21); - - ddgtu3123 = -(gtu11*gtu31*PDstandard4th23gt11) - gtu21*gtu31*PDstandard4th23gt12 - gtu11*gtu32*PDstandard4th23gt12 - - gtu11*gtu33*PDstandard4th23gt13 - gtu21*gtu32*PDstandard4th23gt22 - gtu31*gtu32*PDstandard4th23gt23 - - gtu21*gtu33*PDstandard4th23gt23 - gtu31*gtu33*PDstandard4th23gt33 - dgtu313*gtu11*PDstandard4th2gt11 - - dgtu113*gtu31*PDstandard4th2gt11 - dgtu323*gtu11*PDstandard4th2gt12 - dgtu313*gtu21*PDstandard4th2gt12 - - dgtu213*gtu31*PDstandard4th2gt12 - dgtu113*gtu32*PDstandard4th2gt12 - dgtu333*gtu11*PDstandard4th2gt13 - - 2*dgtu313*gtu31*PDstandard4th2gt13 - dgtu113*gtu33*PDstandard4th2gt13 - dgtu323*gtu21*PDstandard4th2gt22 - - dgtu213*gtu32*PDstandard4th2gt22 - dgtu333*gtu21*PDstandard4th2gt23 - dgtu323*gtu31*PDstandard4th2gt23 - - dgtu313*gtu32*PDstandard4th2gt23 - dgtu213*gtu33*PDstandard4th2gt23 - dgtu333*gtu31*PDstandard4th2gt33 - - dgtu313*gtu33*PDstandard4th2gt33 - PDstandard4th23gt13*SQR(gtu31); - - ddgtu2223 = -2*(gtu21*gtu22*PDstandard4th23gt12 + gtu21*gtu32*PDstandard4th23gt13 + gtu22*gtu32*PDstandard4th23gt23 + - dgtu213*gtu21*PDstandard4th2gt11 + dgtu223*gtu21*PDstandard4th2gt12 + dgtu213*gtu22*PDstandard4th2gt12 + - dgtu323*gtu21*PDstandard4th2gt13 + dgtu213*gtu32*PDstandard4th2gt13 + dgtu223*gtu22*PDstandard4th2gt22 + - dgtu323*gtu22*PDstandard4th2gt23 + dgtu223*gtu32*PDstandard4th2gt23 + dgtu323*gtu32*PDstandard4th2gt33) - - PDstandard4th23gt11*SQR(gtu21) - PDstandard4th23gt22*SQR(gtu22) - PDstandard4th23gt33*SQR(gtu32); - - ddgtu3223 = -(gtu21*gtu31*PDstandard4th23gt11) - gtu22*gtu31*PDstandard4th23gt12 - gtu21*gtu32*PDstandard4th23gt12 - - gtu31*gtu32*PDstandard4th23gt13 - gtu21*gtu33*PDstandard4th23gt13 - gtu22*gtu32*PDstandard4th23gt22 - - gtu22*gtu33*PDstandard4th23gt23 - gtu32*gtu33*PDstandard4th23gt33 - dgtu313*gtu21*PDstandard4th2gt11 - - dgtu213*gtu31*PDstandard4th2gt11 - dgtu323*gtu21*PDstandard4th2gt12 - dgtu313*gtu22*PDstandard4th2gt12 - - dgtu223*gtu31*PDstandard4th2gt12 - dgtu213*gtu32*PDstandard4th2gt12 - dgtu333*gtu21*PDstandard4th2gt13 - - dgtu323*gtu31*PDstandard4th2gt13 - dgtu313*gtu32*PDstandard4th2gt13 - dgtu213*gtu33*PDstandard4th2gt13 - - dgtu323*gtu22*PDstandard4th2gt22 - dgtu223*gtu32*PDstandard4th2gt22 - dgtu333*gtu22*PDstandard4th2gt23 - - 2*dgtu323*gtu32*PDstandard4th2gt23 - dgtu223*gtu33*PDstandard4th2gt23 - dgtu333*gtu32*PDstandard4th2gt33 - - dgtu323*gtu33*PDstandard4th2gt33 - PDstandard4th23gt23*SQR(gtu32); - - ddgtu3323 = -2*(gtu31*gtu32*PDstandard4th23gt12 + gtu31*gtu33*PDstandard4th23gt13 + gtu32*gtu33*PDstandard4th23gt23 + - dgtu313*gtu31*PDstandard4th2gt11 + dgtu323*gtu31*PDstandard4th2gt12 + dgtu313*gtu32*PDstandard4th2gt12 + - dgtu333*gtu31*PDstandard4th2gt13 + dgtu313*gtu33*PDstandard4th2gt13 + dgtu323*gtu32*PDstandard4th2gt22 + - dgtu333*gtu32*PDstandard4th2gt23 + dgtu323*gtu33*PDstandard4th2gt23 + dgtu333*gtu33*PDstandard4th2gt33) - - PDstandard4th23gt11*SQR(gtu31) - PDstandard4th23gt22*SQR(gtu32) - PDstandard4th23gt33*SQR(gtu33); - - ddgtu3133 = -(gtu11*gtu31*PDstandard4th33gt11) - gtu21*gtu31*PDstandard4th33gt12 - gtu11*gtu32*PDstandard4th33gt12 - - gtu11*gtu33*PDstandard4th33gt13 - gtu21*gtu32*PDstandard4th33gt22 - gtu31*gtu32*PDstandard4th33gt23 - - gtu21*gtu33*PDstandard4th33gt23 - gtu31*gtu33*PDstandard4th33gt33 - dgtu313*gtu11*PDstandard4th3gt11 - - dgtu113*gtu31*PDstandard4th3gt11 - dgtu323*gtu11*PDstandard4th3gt12 - dgtu313*gtu21*PDstandard4th3gt12 - - dgtu213*gtu31*PDstandard4th3gt12 - dgtu113*gtu32*PDstandard4th3gt12 - dgtu333*gtu11*PDstandard4th3gt13 - - 2*dgtu313*gtu31*PDstandard4th3gt13 - dgtu113*gtu33*PDstandard4th3gt13 - dgtu323*gtu21*PDstandard4th3gt22 - - dgtu213*gtu32*PDstandard4th3gt22 - dgtu333*gtu21*PDstandard4th3gt23 - dgtu323*gtu31*PDstandard4th3gt23 - - dgtu313*gtu32*PDstandard4th3gt23 - dgtu213*gtu33*PDstandard4th3gt23 - dgtu333*gtu31*PDstandard4th3gt33 - - dgtu313*gtu33*PDstandard4th3gt33 - PDstandard4th33gt13*SQR(gtu31); - - ddgtu3233 = -(gtu21*gtu31*PDstandard4th33gt11) - gtu22*gtu31*PDstandard4th33gt12 - gtu21*gtu32*PDstandard4th33gt12 - - gtu31*gtu32*PDstandard4th33gt13 - gtu21*gtu33*PDstandard4th33gt13 - gtu22*gtu32*PDstandard4th33gt22 - - gtu22*gtu33*PDstandard4th33gt23 - gtu32*gtu33*PDstandard4th33gt33 - dgtu313*gtu21*PDstandard4th3gt11 - - dgtu213*gtu31*PDstandard4th3gt11 - dgtu323*gtu21*PDstandard4th3gt12 - dgtu313*gtu22*PDstandard4th3gt12 - - dgtu223*gtu31*PDstandard4th3gt12 - dgtu213*gtu32*PDstandard4th3gt12 - dgtu333*gtu21*PDstandard4th3gt13 - - dgtu323*gtu31*PDstandard4th3gt13 - dgtu313*gtu32*PDstandard4th3gt13 - dgtu213*gtu33*PDstandard4th3gt13 - - dgtu323*gtu22*PDstandard4th3gt22 - dgtu223*gtu32*PDstandard4th3gt22 - dgtu333*gtu22*PDstandard4th3gt23 - - 2*dgtu323*gtu32*PDstandard4th3gt23 - dgtu223*gtu33*PDstandard4th3gt23 - dgtu333*gtu32*PDstandard4th3gt33 - - dgtu323*gtu33*PDstandard4th3gt33 - PDstandard4th33gt23*SQR(gtu32); - - ddgtu3333 = -2*(gtu31*gtu32*PDstandard4th33gt12 + gtu31*gtu33*PDstandard4th33gt13 + gtu32*gtu33*PDstandard4th33gt23 + - dgtu313*gtu31*PDstandard4th3gt11 + dgtu323*gtu31*PDstandard4th3gt12 + dgtu313*gtu32*PDstandard4th3gt12 + - dgtu333*gtu31*PDstandard4th3gt13 + dgtu313*gtu33*PDstandard4th3gt13 + dgtu323*gtu32*PDstandard4th3gt22 + - dgtu333*gtu32*PDstandard4th3gt23 + dgtu323*gtu33*PDstandard4th3gt23 + dgtu333*gtu33*PDstandard4th3gt33) - - PDstandard4th33gt11*SQR(gtu31) - PDstandard4th33gt22*SQR(gtu32) - PDstandard4th33gt33*SQR(gtu33); - - Gt111 = khalf*(gtu11*PDstandard4th1gt11 + 2*(gtu21*PDstandard4th1gt12 + gtu31*PDstandard4th1gt13) - - gtu21*PDstandard4th2gt11 - gtu31*PDstandard4th3gt11); - - Gt211 = khalf*(gtu21*PDstandard4th1gt11 + 2*(gtu22*PDstandard4th1gt12 + gtu32*PDstandard4th1gt13) - - gtu22*PDstandard4th2gt11 - gtu32*PDstandard4th3gt11); - - Gt311 = khalf*(gtu31*PDstandard4th1gt11 + 2*(gtu32*PDstandard4th1gt12 + gtu33*PDstandard4th1gt13) - - gtu32*PDstandard4th2gt11 - gtu33*PDstandard4th3gt11); - - Gt112 = khalf*(gtu21*PDstandard4th1gt22 + gtu11*PDstandard4th2gt11 + - gtu31*(PDstandard4th1gt23 + PDstandard4th2gt13 - PDstandard4th3gt12)); - - Gt212 = khalf*(gtu22*PDstandard4th1gt22 + gtu21*PDstandard4th2gt11 + - gtu32*(PDstandard4th1gt23 + PDstandard4th2gt13 - PDstandard4th3gt12)); - - Gt312 = khalf*(gtu32*PDstandard4th1gt22 + gtu31*PDstandard4th2gt11 + - gtu33*(PDstandard4th1gt23 + PDstandard4th2gt13 - PDstandard4th3gt12)); - - Gt113 = khalf*(gtu31*PDstandard4th1gt33 + gtu11*PDstandard4th3gt11 + - gtu21*(PDstandard4th1gt23 - PDstandard4th2gt13 + PDstandard4th3gt12)); - - Gt213 = khalf*(gtu32*PDstandard4th1gt33 + gtu21*PDstandard4th3gt11 + - gtu22*(PDstandard4th1gt23 - PDstandard4th2gt13 + PDstandard4th3gt12)); - - Gt313 = khalf*(gtu33*PDstandard4th1gt33 + gtu31*PDstandard4th3gt11 + - gtu32*(PDstandard4th1gt23 - PDstandard4th2gt13 + PDstandard4th3gt12)); - - Gt122 = khalf*(gtu11*(-PDstandard4th1gt22 + 2*PDstandard4th2gt12) + gtu21*PDstandard4th2gt22 + - gtu31*(2*PDstandard4th2gt23 - PDstandard4th3gt22)); - - Gt222 = khalf*(gtu21*(-PDstandard4th1gt22 + 2*PDstandard4th2gt12) + gtu22*PDstandard4th2gt22 + - gtu32*(2*PDstandard4th2gt23 - PDstandard4th3gt22)); - - Gt322 = khalf*(gtu31*(-PDstandard4th1gt22 + 2*PDstandard4th2gt12) + gtu32*PDstandard4th2gt22 + - gtu33*(2*PDstandard4th2gt23 - PDstandard4th3gt22)); - - Gt123 = khalf*(gtu31*PDstandard4th2gt33 + gtu11*(-PDstandard4th1gt23 + PDstandard4th2gt13 + PDstandard4th3gt12) + - gtu21*PDstandard4th3gt22); - - Gt223 = khalf*(gtu32*PDstandard4th2gt33 + gtu21*(-PDstandard4th1gt23 + PDstandard4th2gt13 + PDstandard4th3gt12) + - gtu22*PDstandard4th3gt22); - - Gt323 = khalf*(gtu33*PDstandard4th2gt33 + gtu31*(-PDstandard4th1gt23 + PDstandard4th2gt13 + PDstandard4th3gt12) + - gtu32*PDstandard4th3gt22); - - Gt133 = khalf*(-(gtu11*PDstandard4th1gt33) - gtu21*PDstandard4th2gt33 + 2*gtu11*PDstandard4th3gt13 + - 2*gtu21*PDstandard4th3gt23 + gtu31*PDstandard4th3gt33); - - Gt233 = khalf*(-(gtu21*PDstandard4th1gt33) - gtu22*PDstandard4th2gt33 + 2*gtu21*PDstandard4th3gt13 + - 2*gtu22*PDstandard4th3gt23 + gtu32*PDstandard4th3gt33); - - Gt333 = khalf*(-(gtu31*PDstandard4th1gt33) - gtu32*PDstandard4th2gt33 + 2*gtu31*PDstandard4th3gt13 + - 2*gtu32*PDstandard4th3gt23 + gtu33*PDstandard4th3gt33); - - Rt11 = -(gtu11*khalf*PDstandard4th11gt11) + gtu21* + dgtu111 = -2*(gtu11*gtu21*PDstandardNth1gt12 + gtu11*gtu31*PDstandardNth1gt13 + gtu21*gtu31*PDstandardNth1gt23) - + PDstandardNth1gt11*SQR(gtu11) - PDstandardNth1gt22*SQR(gtu21) - PDstandardNth1gt33*SQR(gtu31); + + dgtu211 = -(gtu11*gtu21*PDstandardNth1gt11) - gtu11*gtu22*PDstandardNth1gt12 - gtu21*gtu31*PDstandardNth1gt13 - + gtu11*gtu32*PDstandardNth1gt13 - gtu21*gtu22*PDstandardNth1gt22 - gtu22*gtu31*PDstandardNth1gt23 - + gtu21*gtu32*PDstandardNth1gt23 - gtu31*gtu32*PDstandardNth1gt33 - PDstandardNth1gt12*SQR(gtu21); + + dgtu311 = -(gtu11*gtu31*PDstandardNth1gt11) - gtu21*gtu31*PDstandardNth1gt12 - gtu11*gtu32*PDstandardNth1gt12 - + gtu11*gtu33*PDstandardNth1gt13 - gtu21*gtu32*PDstandardNth1gt22 - gtu31*gtu32*PDstandardNth1gt23 - + gtu21*gtu33*PDstandardNth1gt23 - gtu31*gtu33*PDstandardNth1gt33 - PDstandardNth1gt13*SQR(gtu31); + + dgtu221 = -2*(gtu21*gtu22*PDstandardNth1gt12 + gtu21*gtu32*PDstandardNth1gt13 + gtu22*gtu32*PDstandardNth1gt23) - + PDstandardNth1gt11*SQR(gtu21) - PDstandardNth1gt22*SQR(gtu22) - PDstandardNth1gt33*SQR(gtu32); + + dgtu321 = -(gtu21*gtu31*PDstandardNth1gt11) - gtu22*gtu31*PDstandardNth1gt12 - gtu21*gtu32*PDstandardNth1gt12 - + gtu31*gtu32*PDstandardNth1gt13 - gtu21*gtu33*PDstandardNth1gt13 - gtu22*gtu32*PDstandardNth1gt22 - + gtu22*gtu33*PDstandardNth1gt23 - gtu32*gtu33*PDstandardNth1gt33 - PDstandardNth1gt23*SQR(gtu32); + + dgtu331 = -2*(gtu31*gtu32*PDstandardNth1gt12 + gtu31*gtu33*PDstandardNth1gt13 + gtu32*gtu33*PDstandardNth1gt23) - + PDstandardNth1gt11*SQR(gtu31) - PDstandardNth1gt22*SQR(gtu32) - PDstandardNth1gt33*SQR(gtu33); + + dgtu112 = -2*(gtu11*gtu21*PDstandardNth2gt12 + gtu11*gtu31*PDstandardNth2gt13 + gtu21*gtu31*PDstandardNth2gt23) - + PDstandardNth2gt11*SQR(gtu11) - PDstandardNth2gt22*SQR(gtu21) - PDstandardNth2gt33*SQR(gtu31); + + dgtu212 = -(gtu11*gtu21*PDstandardNth2gt11) - gtu11*gtu22*PDstandardNth2gt12 - gtu21*gtu31*PDstandardNth2gt13 - + gtu11*gtu32*PDstandardNth2gt13 - gtu21*gtu22*PDstandardNth2gt22 - gtu22*gtu31*PDstandardNth2gt23 - + gtu21*gtu32*PDstandardNth2gt23 - gtu31*gtu32*PDstandardNth2gt33 - PDstandardNth2gt12*SQR(gtu21); + + dgtu312 = -(gtu11*gtu31*PDstandardNth2gt11) - gtu21*gtu31*PDstandardNth2gt12 - gtu11*gtu32*PDstandardNth2gt12 - + gtu11*gtu33*PDstandardNth2gt13 - gtu21*gtu32*PDstandardNth2gt22 - gtu31*gtu32*PDstandardNth2gt23 - + gtu21*gtu33*PDstandardNth2gt23 - gtu31*gtu33*PDstandardNth2gt33 - PDstandardNth2gt13*SQR(gtu31); + + dgtu222 = -2*(gtu21*gtu22*PDstandardNth2gt12 + gtu21*gtu32*PDstandardNth2gt13 + gtu22*gtu32*PDstandardNth2gt23) - + PDstandardNth2gt11*SQR(gtu21) - PDstandardNth2gt22*SQR(gtu22) - PDstandardNth2gt33*SQR(gtu32); + + dgtu322 = -(gtu21*gtu31*PDstandardNth2gt11) - gtu22*gtu31*PDstandardNth2gt12 - gtu21*gtu32*PDstandardNth2gt12 - + gtu31*gtu32*PDstandardNth2gt13 - gtu21*gtu33*PDstandardNth2gt13 - gtu22*gtu32*PDstandardNth2gt22 - + gtu22*gtu33*PDstandardNth2gt23 - gtu32*gtu33*PDstandardNth2gt33 - PDstandardNth2gt23*SQR(gtu32); + + dgtu332 = -2*(gtu31*gtu32*PDstandardNth2gt12 + gtu31*gtu33*PDstandardNth2gt13 + gtu32*gtu33*PDstandardNth2gt23) - + PDstandardNth2gt11*SQR(gtu31) - PDstandardNth2gt22*SQR(gtu32) - PDstandardNth2gt33*SQR(gtu33); + + dgtu113 = -2*(gtu11*gtu21*PDstandardNth3gt12 + gtu11*gtu31*PDstandardNth3gt13 + gtu21*gtu31*PDstandardNth3gt23) - + PDstandardNth3gt11*SQR(gtu11) - PDstandardNth3gt22*SQR(gtu21) - PDstandardNth3gt33*SQR(gtu31); + + dgtu213 = -(gtu11*gtu21*PDstandardNth3gt11) - gtu11*gtu22*PDstandardNth3gt12 - gtu21*gtu31*PDstandardNth3gt13 - + gtu11*gtu32*PDstandardNth3gt13 - gtu21*gtu22*PDstandardNth3gt22 - gtu22*gtu31*PDstandardNth3gt23 - + gtu21*gtu32*PDstandardNth3gt23 - gtu31*gtu32*PDstandardNth3gt33 - PDstandardNth3gt12*SQR(gtu21); + + dgtu313 = -(gtu11*gtu31*PDstandardNth3gt11) - gtu21*gtu31*PDstandardNth3gt12 - gtu11*gtu32*PDstandardNth3gt12 - + gtu11*gtu33*PDstandardNth3gt13 - gtu21*gtu32*PDstandardNth3gt22 - gtu31*gtu32*PDstandardNth3gt23 - + gtu21*gtu33*PDstandardNth3gt23 - gtu31*gtu33*PDstandardNth3gt33 - PDstandardNth3gt13*SQR(gtu31); + + dgtu223 = -2*(gtu21*gtu22*PDstandardNth3gt12 + gtu21*gtu32*PDstandardNth3gt13 + gtu22*gtu32*PDstandardNth3gt23) - + PDstandardNth3gt11*SQR(gtu21) - PDstandardNth3gt22*SQR(gtu22) - PDstandardNth3gt33*SQR(gtu32); + + dgtu323 = -(gtu21*gtu31*PDstandardNth3gt11) - gtu22*gtu31*PDstandardNth3gt12 - gtu21*gtu32*PDstandardNth3gt12 - + gtu31*gtu32*PDstandardNth3gt13 - gtu21*gtu33*PDstandardNth3gt13 - gtu22*gtu32*PDstandardNth3gt22 - + gtu22*gtu33*PDstandardNth3gt23 - gtu32*gtu33*PDstandardNth3gt33 - PDstandardNth3gt23*SQR(gtu32); + + dgtu333 = -2*(gtu31*gtu32*PDstandardNth3gt12 + gtu31*gtu33*PDstandardNth3gt13 + gtu32*gtu33*PDstandardNth3gt23) - + PDstandardNth3gt11*SQR(gtu31) - PDstandardNth3gt22*SQR(gtu32) - PDstandardNth3gt33*SQR(gtu33); + + ddgtu1111 = -2*(gtu11*gtu21*PDstandardNth11gt12 + gtu11*gtu31*PDstandardNth11gt13 + gtu21*gtu31*PDstandardNth11gt23 + + dgtu111*gtu11*PDstandardNth1gt11 + dgtu211*gtu11*PDstandardNth1gt12 + dgtu111*gtu21*PDstandardNth1gt12 + + dgtu311*gtu11*PDstandardNth1gt13 + dgtu111*gtu31*PDstandardNth1gt13 + dgtu211*gtu21*PDstandardNth1gt22 + + dgtu311*gtu21*PDstandardNth1gt23 + dgtu211*gtu31*PDstandardNth1gt23 + dgtu311*gtu31*PDstandardNth1gt33) - + PDstandardNth11gt11*SQR(gtu11) - PDstandardNth11gt22*SQR(gtu21) - PDstandardNth11gt33*SQR(gtu31); + + ddgtu2111 = -(gtu11*gtu21*PDstandardNth11gt11) - gtu11*gtu22*PDstandardNth11gt12 - gtu21*gtu31*PDstandardNth11gt13 - + gtu11*gtu32*PDstandardNth11gt13 - gtu21*gtu22*PDstandardNth11gt22 - gtu22*gtu31*PDstandardNth11gt23 - + gtu21*gtu32*PDstandardNth11gt23 - gtu31*gtu32*PDstandardNth11gt33 - dgtu211*gtu11*PDstandardNth1gt11 - + dgtu111*gtu21*PDstandardNth1gt11 - dgtu221*gtu11*PDstandardNth1gt12 - 2*dgtu211*gtu21*PDstandardNth1gt12 - + dgtu111*gtu22*PDstandardNth1gt12 - dgtu321*gtu11*PDstandardNth1gt13 - dgtu311*gtu21*PDstandardNth1gt13 - + dgtu211*gtu31*PDstandardNth1gt13 - dgtu111*gtu32*PDstandardNth1gt13 - dgtu221*gtu21*PDstandardNth1gt22 - + dgtu211*gtu22*PDstandardNth1gt22 - dgtu321*gtu21*PDstandardNth1gt23 - dgtu311*gtu22*PDstandardNth1gt23 - + dgtu221*gtu31*PDstandardNth1gt23 - dgtu211*gtu32*PDstandardNth1gt23 - dgtu321*gtu31*PDstandardNth1gt33 - + dgtu311*gtu32*PDstandardNth1gt33 - PDstandardNth11gt12*SQR(gtu21); + + ddgtu3111 = -(gtu11*gtu31*PDstandardNth11gt11) - gtu21*gtu31*PDstandardNth11gt12 - gtu11*gtu32*PDstandardNth11gt12 - + gtu11*gtu33*PDstandardNth11gt13 - gtu21*gtu32*PDstandardNth11gt22 - gtu31*gtu32*PDstandardNth11gt23 - + gtu21*gtu33*PDstandardNth11gt23 - gtu31*gtu33*PDstandardNth11gt33 - dgtu311*gtu11*PDstandardNth1gt11 - + dgtu111*gtu31*PDstandardNth1gt11 - dgtu321*gtu11*PDstandardNth1gt12 - dgtu311*gtu21*PDstandardNth1gt12 - + dgtu211*gtu31*PDstandardNth1gt12 - dgtu111*gtu32*PDstandardNth1gt12 - dgtu331*gtu11*PDstandardNth1gt13 - + 2*dgtu311*gtu31*PDstandardNth1gt13 - dgtu111*gtu33*PDstandardNth1gt13 - dgtu321*gtu21*PDstandardNth1gt22 - + dgtu211*gtu32*PDstandardNth1gt22 - dgtu331*gtu21*PDstandardNth1gt23 - dgtu321*gtu31*PDstandardNth1gt23 - + dgtu311*gtu32*PDstandardNth1gt23 - dgtu211*gtu33*PDstandardNth1gt23 - dgtu331*gtu31*PDstandardNth1gt33 - + dgtu311*gtu33*PDstandardNth1gt33 - PDstandardNth11gt13*SQR(gtu31); + + ddgtu1112 = -2*(gtu11*gtu21*PDstandardNth12gt12 + gtu11*gtu31*PDstandardNth12gt13 + gtu21*gtu31*PDstandardNth12gt23 + + dgtu112*gtu11*PDstandardNth1gt11 + dgtu212*gtu11*PDstandardNth1gt12 + dgtu112*gtu21*PDstandardNth1gt12 + + dgtu312*gtu11*PDstandardNth1gt13 + dgtu112*gtu31*PDstandardNth1gt13 + dgtu212*gtu21*PDstandardNth1gt22 + + dgtu312*gtu21*PDstandardNth1gt23 + dgtu212*gtu31*PDstandardNth1gt23 + dgtu312*gtu31*PDstandardNth1gt33) - + PDstandardNth12gt11*SQR(gtu11) - PDstandardNth12gt22*SQR(gtu21) - PDstandardNth12gt33*SQR(gtu31); + + ddgtu2112 = -(gtu11*gtu21*PDstandardNth12gt11) - gtu11*gtu22*PDstandardNth12gt12 - gtu21*gtu31*PDstandardNth12gt13 - + gtu11*gtu32*PDstandardNth12gt13 - gtu21*gtu22*PDstandardNth12gt22 - gtu22*gtu31*PDstandardNth12gt23 - + gtu21*gtu32*PDstandardNth12gt23 - gtu31*gtu32*PDstandardNth12gt33 - dgtu212*gtu11*PDstandardNth1gt11 - + dgtu112*gtu21*PDstandardNth1gt11 - dgtu222*gtu11*PDstandardNth1gt12 - 2*dgtu212*gtu21*PDstandardNth1gt12 - + dgtu112*gtu22*PDstandardNth1gt12 - dgtu322*gtu11*PDstandardNth1gt13 - dgtu312*gtu21*PDstandardNth1gt13 - + dgtu212*gtu31*PDstandardNth1gt13 - dgtu112*gtu32*PDstandardNth1gt13 - dgtu222*gtu21*PDstandardNth1gt22 - + dgtu212*gtu22*PDstandardNth1gt22 - dgtu322*gtu21*PDstandardNth1gt23 - dgtu312*gtu22*PDstandardNth1gt23 - + dgtu222*gtu31*PDstandardNth1gt23 - dgtu212*gtu32*PDstandardNth1gt23 - dgtu322*gtu31*PDstandardNth1gt33 - + dgtu312*gtu32*PDstandardNth1gt33 - PDstandardNth12gt12*SQR(gtu21); + + ddgtu3112 = -(gtu11*gtu31*PDstandardNth12gt11) - gtu21*gtu31*PDstandardNth12gt12 - gtu11*gtu32*PDstandardNth12gt12 - + gtu11*gtu33*PDstandardNth12gt13 - gtu21*gtu32*PDstandardNth12gt22 - gtu31*gtu32*PDstandardNth12gt23 - + gtu21*gtu33*PDstandardNth12gt23 - gtu31*gtu33*PDstandardNth12gt33 - dgtu312*gtu11*PDstandardNth1gt11 - + dgtu112*gtu31*PDstandardNth1gt11 - dgtu322*gtu11*PDstandardNth1gt12 - dgtu312*gtu21*PDstandardNth1gt12 - + dgtu212*gtu31*PDstandardNth1gt12 - dgtu112*gtu32*PDstandardNth1gt12 - dgtu332*gtu11*PDstandardNth1gt13 - + 2*dgtu312*gtu31*PDstandardNth1gt13 - dgtu112*gtu33*PDstandardNth1gt13 - dgtu322*gtu21*PDstandardNth1gt22 - + dgtu212*gtu32*PDstandardNth1gt22 - dgtu332*gtu21*PDstandardNth1gt23 - dgtu322*gtu31*PDstandardNth1gt23 - + dgtu312*gtu32*PDstandardNth1gt23 - dgtu212*gtu33*PDstandardNth1gt23 - dgtu332*gtu31*PDstandardNth1gt33 - + dgtu312*gtu33*PDstandardNth1gt33 - PDstandardNth12gt13*SQR(gtu31); + + ddgtu2212 = -2*(gtu21*gtu22*PDstandardNth12gt12 + gtu21*gtu32*PDstandardNth12gt13 + gtu22*gtu32*PDstandardNth12gt23 + + dgtu212*gtu21*PDstandardNth1gt11 + dgtu222*gtu21*PDstandardNth1gt12 + dgtu212*gtu22*PDstandardNth1gt12 + + dgtu322*gtu21*PDstandardNth1gt13 + dgtu212*gtu32*PDstandardNth1gt13 + dgtu222*gtu22*PDstandardNth1gt22 + + dgtu322*gtu22*PDstandardNth1gt23 + dgtu222*gtu32*PDstandardNth1gt23 + dgtu322*gtu32*PDstandardNth1gt33) - + PDstandardNth12gt11*SQR(gtu21) - PDstandardNth12gt22*SQR(gtu22) - PDstandardNth12gt33*SQR(gtu32); + + ddgtu3212 = -(gtu21*gtu31*PDstandardNth12gt11) - gtu22*gtu31*PDstandardNth12gt12 - gtu21*gtu32*PDstandardNth12gt12 - + gtu31*gtu32*PDstandardNth12gt13 - gtu21*gtu33*PDstandardNth12gt13 - gtu22*gtu32*PDstandardNth12gt22 - + gtu22*gtu33*PDstandardNth12gt23 - gtu32*gtu33*PDstandardNth12gt33 - dgtu312*gtu21*PDstandardNth1gt11 - + dgtu212*gtu31*PDstandardNth1gt11 - dgtu322*gtu21*PDstandardNth1gt12 - dgtu312*gtu22*PDstandardNth1gt12 - + dgtu222*gtu31*PDstandardNth1gt12 - dgtu212*gtu32*PDstandardNth1gt12 - dgtu332*gtu21*PDstandardNth1gt13 - + dgtu322*gtu31*PDstandardNth1gt13 - dgtu312*gtu32*PDstandardNth1gt13 - dgtu212*gtu33*PDstandardNth1gt13 - + dgtu322*gtu22*PDstandardNth1gt22 - dgtu222*gtu32*PDstandardNth1gt22 - dgtu332*gtu22*PDstandardNth1gt23 - + 2*dgtu322*gtu32*PDstandardNth1gt23 - dgtu222*gtu33*PDstandardNth1gt23 - dgtu332*gtu32*PDstandardNth1gt33 - + dgtu322*gtu33*PDstandardNth1gt33 - PDstandardNth12gt23*SQR(gtu32); + + ddgtu1113 = -2*(gtu11*gtu21*PDstandardNth13gt12 + gtu11*gtu31*PDstandardNth13gt13 + gtu21*gtu31*PDstandardNth13gt23 + + dgtu113*gtu11*PDstandardNth1gt11 + dgtu213*gtu11*PDstandardNth1gt12 + dgtu113*gtu21*PDstandardNth1gt12 + + dgtu313*gtu11*PDstandardNth1gt13 + dgtu113*gtu31*PDstandardNth1gt13 + dgtu213*gtu21*PDstandardNth1gt22 + + dgtu313*gtu21*PDstandardNth1gt23 + dgtu213*gtu31*PDstandardNth1gt23 + dgtu313*gtu31*PDstandardNth1gt33) - + PDstandardNth13gt11*SQR(gtu11) - PDstandardNth13gt22*SQR(gtu21) - PDstandardNth13gt33*SQR(gtu31); + + ddgtu2113 = -(gtu11*gtu21*PDstandardNth13gt11) - gtu11*gtu22*PDstandardNth13gt12 - gtu21*gtu31*PDstandardNth13gt13 - + gtu11*gtu32*PDstandardNth13gt13 - gtu21*gtu22*PDstandardNth13gt22 - gtu22*gtu31*PDstandardNth13gt23 - + gtu21*gtu32*PDstandardNth13gt23 - gtu31*gtu32*PDstandardNth13gt33 - dgtu213*gtu11*PDstandardNth1gt11 - + dgtu113*gtu21*PDstandardNth1gt11 - dgtu223*gtu11*PDstandardNth1gt12 - 2*dgtu213*gtu21*PDstandardNth1gt12 - + dgtu113*gtu22*PDstandardNth1gt12 - dgtu323*gtu11*PDstandardNth1gt13 - dgtu313*gtu21*PDstandardNth1gt13 - + dgtu213*gtu31*PDstandardNth1gt13 - dgtu113*gtu32*PDstandardNth1gt13 - dgtu223*gtu21*PDstandardNth1gt22 - + dgtu213*gtu22*PDstandardNth1gt22 - dgtu323*gtu21*PDstandardNth1gt23 - dgtu313*gtu22*PDstandardNth1gt23 - + dgtu223*gtu31*PDstandardNth1gt23 - dgtu213*gtu32*PDstandardNth1gt23 - dgtu323*gtu31*PDstandardNth1gt33 - + dgtu313*gtu32*PDstandardNth1gt33 - PDstandardNth13gt12*SQR(gtu21); + + ddgtu3113 = -(gtu11*gtu31*PDstandardNth13gt11) - gtu21*gtu31*PDstandardNth13gt12 - gtu11*gtu32*PDstandardNth13gt12 - + gtu11*gtu33*PDstandardNth13gt13 - gtu21*gtu32*PDstandardNth13gt22 - gtu31*gtu32*PDstandardNth13gt23 - + gtu21*gtu33*PDstandardNth13gt23 - gtu31*gtu33*PDstandardNth13gt33 - dgtu313*gtu11*PDstandardNth1gt11 - + dgtu113*gtu31*PDstandardNth1gt11 - dgtu323*gtu11*PDstandardNth1gt12 - dgtu313*gtu21*PDstandardNth1gt12 - + dgtu213*gtu31*PDstandardNth1gt12 - dgtu113*gtu32*PDstandardNth1gt12 - dgtu333*gtu11*PDstandardNth1gt13 - + 2*dgtu313*gtu31*PDstandardNth1gt13 - dgtu113*gtu33*PDstandardNth1gt13 - dgtu323*gtu21*PDstandardNth1gt22 - + dgtu213*gtu32*PDstandardNth1gt22 - dgtu333*gtu21*PDstandardNth1gt23 - dgtu323*gtu31*PDstandardNth1gt23 - + dgtu313*gtu32*PDstandardNth1gt23 - dgtu213*gtu33*PDstandardNth1gt23 - dgtu333*gtu31*PDstandardNth1gt33 - + dgtu313*gtu33*PDstandardNth1gt33 - PDstandardNth13gt13*SQR(gtu31); + + ddgtu3213 = -(gtu21*gtu31*PDstandardNth13gt11) - gtu22*gtu31*PDstandardNth13gt12 - gtu21*gtu32*PDstandardNth13gt12 - + gtu31*gtu32*PDstandardNth13gt13 - gtu21*gtu33*PDstandardNth13gt13 - gtu22*gtu32*PDstandardNth13gt22 - + gtu22*gtu33*PDstandardNth13gt23 - gtu32*gtu33*PDstandardNth13gt33 - dgtu313*gtu21*PDstandardNth1gt11 - + dgtu213*gtu31*PDstandardNth1gt11 - dgtu323*gtu21*PDstandardNth1gt12 - dgtu313*gtu22*PDstandardNth1gt12 - + dgtu223*gtu31*PDstandardNth1gt12 - dgtu213*gtu32*PDstandardNth1gt12 - dgtu333*gtu21*PDstandardNth1gt13 - + dgtu323*gtu31*PDstandardNth1gt13 - dgtu313*gtu32*PDstandardNth1gt13 - dgtu213*gtu33*PDstandardNth1gt13 - + dgtu323*gtu22*PDstandardNth1gt22 - dgtu223*gtu32*PDstandardNth1gt22 - dgtu333*gtu22*PDstandardNth1gt23 - + 2*dgtu323*gtu32*PDstandardNth1gt23 - dgtu223*gtu33*PDstandardNth1gt23 - dgtu333*gtu32*PDstandardNth1gt33 - + dgtu323*gtu33*PDstandardNth1gt33 - PDstandardNth13gt23*SQR(gtu32); + + ddgtu3313 = -2*(gtu31*gtu32*PDstandardNth13gt12 + gtu31*gtu33*PDstandardNth13gt13 + gtu32*gtu33*PDstandardNth13gt23 + + dgtu313*gtu31*PDstandardNth1gt11 + dgtu323*gtu31*PDstandardNth1gt12 + dgtu313*gtu32*PDstandardNth1gt12 + + dgtu333*gtu31*PDstandardNth1gt13 + dgtu313*gtu33*PDstandardNth1gt13 + dgtu323*gtu32*PDstandardNth1gt22 + + dgtu333*gtu32*PDstandardNth1gt23 + dgtu323*gtu33*PDstandardNth1gt23 + dgtu333*gtu33*PDstandardNth1gt33) - + PDstandardNth13gt11*SQR(gtu31) - PDstandardNth13gt22*SQR(gtu32) - PDstandardNth13gt33*SQR(gtu33); + + ddgtu2122 = -(gtu11*gtu21*PDstandardNth22gt11) - gtu11*gtu22*PDstandardNth22gt12 - gtu21*gtu31*PDstandardNth22gt13 - + gtu11*gtu32*PDstandardNth22gt13 - gtu21*gtu22*PDstandardNth22gt22 - gtu22*gtu31*PDstandardNth22gt23 - + gtu21*gtu32*PDstandardNth22gt23 - gtu31*gtu32*PDstandardNth22gt33 - dgtu212*gtu11*PDstandardNth2gt11 - + dgtu112*gtu21*PDstandardNth2gt11 - dgtu222*gtu11*PDstandardNth2gt12 - 2*dgtu212*gtu21*PDstandardNth2gt12 - + dgtu112*gtu22*PDstandardNth2gt12 - dgtu322*gtu11*PDstandardNth2gt13 - dgtu312*gtu21*PDstandardNth2gt13 - + dgtu212*gtu31*PDstandardNth2gt13 - dgtu112*gtu32*PDstandardNth2gt13 - dgtu222*gtu21*PDstandardNth2gt22 - + dgtu212*gtu22*PDstandardNth2gt22 - dgtu322*gtu21*PDstandardNth2gt23 - dgtu312*gtu22*PDstandardNth2gt23 - + dgtu222*gtu31*PDstandardNth2gt23 - dgtu212*gtu32*PDstandardNth2gt23 - dgtu322*gtu31*PDstandardNth2gt33 - + dgtu312*gtu32*PDstandardNth2gt33 - PDstandardNth22gt12*SQR(gtu21); + + ddgtu2222 = -2*(gtu21*gtu22*PDstandardNth22gt12 + gtu21*gtu32*PDstandardNth22gt13 + gtu22*gtu32*PDstandardNth22gt23 + + dgtu212*gtu21*PDstandardNth2gt11 + dgtu222*gtu21*PDstandardNth2gt12 + dgtu212*gtu22*PDstandardNth2gt12 + + dgtu322*gtu21*PDstandardNth2gt13 + dgtu212*gtu32*PDstandardNth2gt13 + dgtu222*gtu22*PDstandardNth2gt22 + + dgtu322*gtu22*PDstandardNth2gt23 + dgtu222*gtu32*PDstandardNth2gt23 + dgtu322*gtu32*PDstandardNth2gt33) - + PDstandardNth22gt11*SQR(gtu21) - PDstandardNth22gt22*SQR(gtu22) - PDstandardNth22gt33*SQR(gtu32); + + ddgtu3222 = -(gtu21*gtu31*PDstandardNth22gt11) - gtu22*gtu31*PDstandardNth22gt12 - gtu21*gtu32*PDstandardNth22gt12 - + gtu31*gtu32*PDstandardNth22gt13 - gtu21*gtu33*PDstandardNth22gt13 - gtu22*gtu32*PDstandardNth22gt22 - + gtu22*gtu33*PDstandardNth22gt23 - gtu32*gtu33*PDstandardNth22gt33 - dgtu312*gtu21*PDstandardNth2gt11 - + dgtu212*gtu31*PDstandardNth2gt11 - dgtu322*gtu21*PDstandardNth2gt12 - dgtu312*gtu22*PDstandardNth2gt12 - + dgtu222*gtu31*PDstandardNth2gt12 - dgtu212*gtu32*PDstandardNth2gt12 - dgtu332*gtu21*PDstandardNth2gt13 - + dgtu322*gtu31*PDstandardNth2gt13 - dgtu312*gtu32*PDstandardNth2gt13 - dgtu212*gtu33*PDstandardNth2gt13 - + dgtu322*gtu22*PDstandardNth2gt22 - dgtu222*gtu32*PDstandardNth2gt22 - dgtu332*gtu22*PDstandardNth2gt23 - + 2*dgtu322*gtu32*PDstandardNth2gt23 - dgtu222*gtu33*PDstandardNth2gt23 - dgtu332*gtu32*PDstandardNth2gt33 - + dgtu322*gtu33*PDstandardNth2gt33 - PDstandardNth22gt23*SQR(gtu32); + + ddgtu2123 = -(gtu11*gtu21*PDstandardNth23gt11) - gtu11*gtu22*PDstandardNth23gt12 - gtu21*gtu31*PDstandardNth23gt13 - + gtu11*gtu32*PDstandardNth23gt13 - gtu21*gtu22*PDstandardNth23gt22 - gtu22*gtu31*PDstandardNth23gt23 - + gtu21*gtu32*PDstandardNth23gt23 - gtu31*gtu32*PDstandardNth23gt33 - dgtu213*gtu11*PDstandardNth2gt11 - + dgtu113*gtu21*PDstandardNth2gt11 - dgtu223*gtu11*PDstandardNth2gt12 - 2*dgtu213*gtu21*PDstandardNth2gt12 - + dgtu113*gtu22*PDstandardNth2gt12 - dgtu323*gtu11*PDstandardNth2gt13 - dgtu313*gtu21*PDstandardNth2gt13 - + dgtu213*gtu31*PDstandardNth2gt13 - dgtu113*gtu32*PDstandardNth2gt13 - dgtu223*gtu21*PDstandardNth2gt22 - + dgtu213*gtu22*PDstandardNth2gt22 - dgtu323*gtu21*PDstandardNth2gt23 - dgtu313*gtu22*PDstandardNth2gt23 - + dgtu223*gtu31*PDstandardNth2gt23 - dgtu213*gtu32*PDstandardNth2gt23 - dgtu323*gtu31*PDstandardNth2gt33 - + dgtu313*gtu32*PDstandardNth2gt33 - PDstandardNth23gt12*SQR(gtu21); + + ddgtu3123 = -(gtu11*gtu31*PDstandardNth23gt11) - gtu21*gtu31*PDstandardNth23gt12 - gtu11*gtu32*PDstandardNth23gt12 - + gtu11*gtu33*PDstandardNth23gt13 - gtu21*gtu32*PDstandardNth23gt22 - gtu31*gtu32*PDstandardNth23gt23 - + gtu21*gtu33*PDstandardNth23gt23 - gtu31*gtu33*PDstandardNth23gt33 - dgtu313*gtu11*PDstandardNth2gt11 - + dgtu113*gtu31*PDstandardNth2gt11 - dgtu323*gtu11*PDstandardNth2gt12 - dgtu313*gtu21*PDstandardNth2gt12 - + dgtu213*gtu31*PDstandardNth2gt12 - dgtu113*gtu32*PDstandardNth2gt12 - dgtu333*gtu11*PDstandardNth2gt13 - + 2*dgtu313*gtu31*PDstandardNth2gt13 - dgtu113*gtu33*PDstandardNth2gt13 - dgtu323*gtu21*PDstandardNth2gt22 - + dgtu213*gtu32*PDstandardNth2gt22 - dgtu333*gtu21*PDstandardNth2gt23 - dgtu323*gtu31*PDstandardNth2gt23 - + dgtu313*gtu32*PDstandardNth2gt23 - dgtu213*gtu33*PDstandardNth2gt23 - dgtu333*gtu31*PDstandardNth2gt33 - + dgtu313*gtu33*PDstandardNth2gt33 - PDstandardNth23gt13*SQR(gtu31); + + ddgtu2223 = -2*(gtu21*gtu22*PDstandardNth23gt12 + gtu21*gtu32*PDstandardNth23gt13 + gtu22*gtu32*PDstandardNth23gt23 + + dgtu213*gtu21*PDstandardNth2gt11 + dgtu223*gtu21*PDstandardNth2gt12 + dgtu213*gtu22*PDstandardNth2gt12 + + dgtu323*gtu21*PDstandardNth2gt13 + dgtu213*gtu32*PDstandardNth2gt13 + dgtu223*gtu22*PDstandardNth2gt22 + + dgtu323*gtu22*PDstandardNth2gt23 + dgtu223*gtu32*PDstandardNth2gt23 + dgtu323*gtu32*PDstandardNth2gt33) - + PDstandardNth23gt11*SQR(gtu21) - PDstandardNth23gt22*SQR(gtu22) - PDstandardNth23gt33*SQR(gtu32); + + ddgtu3223 = -(gtu21*gtu31*PDstandardNth23gt11) - gtu22*gtu31*PDstandardNth23gt12 - gtu21*gtu32*PDstandardNth23gt12 - + gtu31*gtu32*PDstandardNth23gt13 - gtu21*gtu33*PDstandardNth23gt13 - gtu22*gtu32*PDstandardNth23gt22 - + gtu22*gtu33*PDstandardNth23gt23 - gtu32*gtu33*PDstandardNth23gt33 - dgtu313*gtu21*PDstandardNth2gt11 - + dgtu213*gtu31*PDstandardNth2gt11 - dgtu323*gtu21*PDstandardNth2gt12 - dgtu313*gtu22*PDstandardNth2gt12 - + dgtu223*gtu31*PDstandardNth2gt12 - dgtu213*gtu32*PDstandardNth2gt12 - dgtu333*gtu21*PDstandardNth2gt13 - + dgtu323*gtu31*PDstandardNth2gt13 - dgtu313*gtu32*PDstandardNth2gt13 - dgtu213*gtu33*PDstandardNth2gt13 - + dgtu323*gtu22*PDstandardNth2gt22 - dgtu223*gtu32*PDstandardNth2gt22 - dgtu333*gtu22*PDstandardNth2gt23 - + 2*dgtu323*gtu32*PDstandardNth2gt23 - dgtu223*gtu33*PDstandardNth2gt23 - dgtu333*gtu32*PDstandardNth2gt33 - + dgtu323*gtu33*PDstandardNth2gt33 - PDstandardNth23gt23*SQR(gtu32); + + ddgtu3323 = -2*(gtu31*gtu32*PDstandardNth23gt12 + gtu31*gtu33*PDstandardNth23gt13 + gtu32*gtu33*PDstandardNth23gt23 + + dgtu313*gtu31*PDstandardNth2gt11 + dgtu323*gtu31*PDstandardNth2gt12 + dgtu313*gtu32*PDstandardNth2gt12 + + dgtu333*gtu31*PDstandardNth2gt13 + dgtu313*gtu33*PDstandardNth2gt13 + dgtu323*gtu32*PDstandardNth2gt22 + + dgtu333*gtu32*PDstandardNth2gt23 + dgtu323*gtu33*PDstandardNth2gt23 + dgtu333*gtu33*PDstandardNth2gt33) - + PDstandardNth23gt11*SQR(gtu31) - PDstandardNth23gt22*SQR(gtu32) - PDstandardNth23gt33*SQR(gtu33); + + ddgtu3133 = -(gtu11*gtu31*PDstandardNth33gt11) - gtu21*gtu31*PDstandardNth33gt12 - gtu11*gtu32*PDstandardNth33gt12 - + gtu11*gtu33*PDstandardNth33gt13 - gtu21*gtu32*PDstandardNth33gt22 - gtu31*gtu32*PDstandardNth33gt23 - + gtu21*gtu33*PDstandardNth33gt23 - gtu31*gtu33*PDstandardNth33gt33 - dgtu313*gtu11*PDstandardNth3gt11 - + dgtu113*gtu31*PDstandardNth3gt11 - dgtu323*gtu11*PDstandardNth3gt12 - dgtu313*gtu21*PDstandardNth3gt12 - + dgtu213*gtu31*PDstandardNth3gt12 - dgtu113*gtu32*PDstandardNth3gt12 - dgtu333*gtu11*PDstandardNth3gt13 - + 2*dgtu313*gtu31*PDstandardNth3gt13 - dgtu113*gtu33*PDstandardNth3gt13 - dgtu323*gtu21*PDstandardNth3gt22 - + dgtu213*gtu32*PDstandardNth3gt22 - dgtu333*gtu21*PDstandardNth3gt23 - dgtu323*gtu31*PDstandardNth3gt23 - + dgtu313*gtu32*PDstandardNth3gt23 - dgtu213*gtu33*PDstandardNth3gt23 - dgtu333*gtu31*PDstandardNth3gt33 - + dgtu313*gtu33*PDstandardNth3gt33 - PDstandardNth33gt13*SQR(gtu31); + + ddgtu3233 = -(gtu21*gtu31*PDstandardNth33gt11) - gtu22*gtu31*PDstandardNth33gt12 - gtu21*gtu32*PDstandardNth33gt12 - + gtu31*gtu32*PDstandardNth33gt13 - gtu21*gtu33*PDstandardNth33gt13 - gtu22*gtu32*PDstandardNth33gt22 - + gtu22*gtu33*PDstandardNth33gt23 - gtu32*gtu33*PDstandardNth33gt33 - dgtu313*gtu21*PDstandardNth3gt11 - + dgtu213*gtu31*PDstandardNth3gt11 - dgtu323*gtu21*PDstandardNth3gt12 - dgtu313*gtu22*PDstandardNth3gt12 - + dgtu223*gtu31*PDstandardNth3gt12 - dgtu213*gtu32*PDstandardNth3gt12 - dgtu333*gtu21*PDstandardNth3gt13 - + dgtu323*gtu31*PDstandardNth3gt13 - dgtu313*gtu32*PDstandardNth3gt13 - dgtu213*gtu33*PDstandardNth3gt13 - + dgtu323*gtu22*PDstandardNth3gt22 - dgtu223*gtu32*PDstandardNth3gt22 - dgtu333*gtu22*PDstandardNth3gt23 - + 2*dgtu323*gtu32*PDstandardNth3gt23 - dgtu223*gtu33*PDstandardNth3gt23 - dgtu333*gtu32*PDstandardNth3gt33 - + dgtu323*gtu33*PDstandardNth3gt33 - PDstandardNth33gt23*SQR(gtu32); + + ddgtu3333 = -2*(gtu31*gtu32*PDstandardNth33gt12 + gtu31*gtu33*PDstandardNth33gt13 + gtu32*gtu33*PDstandardNth33gt23 + + dgtu313*gtu31*PDstandardNth3gt11 + dgtu323*gtu31*PDstandardNth3gt12 + dgtu313*gtu32*PDstandardNth3gt12 + + dgtu333*gtu31*PDstandardNth3gt13 + dgtu313*gtu33*PDstandardNth3gt13 + dgtu323*gtu32*PDstandardNth3gt22 + + dgtu333*gtu32*PDstandardNth3gt23 + dgtu323*gtu33*PDstandardNth3gt23 + dgtu333*gtu33*PDstandardNth3gt33) - + PDstandardNth33gt11*SQR(gtu31) - PDstandardNth33gt22*SQR(gtu32) - PDstandardNth33gt33*SQR(gtu33); + + Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - + gtu21*PDstandardNth2gt11 - gtu31*PDstandardNth3gt11); + + Gt211 = khalf*(gtu21*PDstandardNth1gt11 + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - + gtu22*PDstandardNth2gt11 - gtu32*PDstandardNth3gt11); + + Gt311 = khalf*(gtu31*PDstandardNth1gt11 + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - + gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); + + Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + + gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + + Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + + gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + + Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + + gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); + + Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + + gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + + Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + + gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + + Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + + gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); + + Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + + gtu31*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); + + Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu22*PDstandardNth2gt22 + + gtu32*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); + + Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu32*PDstandardNth2gt22 + + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); + + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + + gtu21*PDstandardNth3gt22); + + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + + gtu22*PDstandardNth3gt22); + + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + + gtu32*PDstandardNth3gt22); + + Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + + 2*gtu21*PDstandardNth3gt23 + gtu31*PDstandardNth3gt33); + + Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + 2*gtu21*PDstandardNth3gt13 + + 2*gtu22*PDstandardNth3gt23 + gtu32*PDstandardNth3gt33); + + Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + 2*gtu31*PDstandardNth3gt13 + + 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); + + Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + gtu21* (2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + - 2*gt13L*Gt311*Gt323 + 2*Gt311*Gt312*gt33L - PDstandard4th12gt11) - gtu31*PDstandard4th13gt11 + - gt11L*PDstandard4th1Xt1 + gt12L*(4*Gt111*Gt212*gtu21 + 2*Gt211*Gt222*gtu21 + 2*Gt212*Gt222*gtu22 + - 4*Gt113*Gt211*gtu31 + 4*Gt113*Gt212*gtu32 + 4*Gt113*Gt213*gtu33 + PDstandard4th1Xt2) + + 2*gt13L*Gt311*Gt323 + 2*Gt311*Gt312*gt33L - PDstandardNth12gt11) - gtu31*PDstandardNth13gt11 + + gt11L*PDstandardNth1Xt1 + gt12L*(4*Gt111*Gt212*gtu21 + 2*Gt211*Gt222*gtu21 + 2*Gt212*Gt222*gtu22 + + 4*Gt113*Gt211*gtu31 + 4*Gt113*Gt212*gtu32 + 4*Gt113*Gt213*gtu33 + PDstandardNth1Xt2) + gt13L*(4*Gt111*Gt312*gtu21 + 2*Gt212*Gt312*gtu21 + 4*Gt112*Gt312*gtu22 + 4*Gt113*Gt311*gtu31 + - 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandard4th1Xt3) - gtu22*khalf*PDstandard4th22gt11 - - gtu32*PDstandard4th23gt11 - gtu33*khalf*PDstandard4th33gt11 + + 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - + gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + Gt111*(6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xt1L) + Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + 2*gt11L*Gt123*gtu31 + gt12L*Xt1L) + Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + 2*gt11L*Gt123*gtu21 + @@ -852,10 +852,10 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal gt12L*gtu21*SQR(Gt212)) + gt22L*gtu33*SQR(Gt213) + gt33L*gtu11*SQR(Gt311) + gt33L*gtu22*SQR(Gt312) + 2*gt13L*gtu31*SQR(Gt313) + gt33L*gtu33*SQR(Gt313); - Rt12 = khalf*(-(gtu11*PDstandard4th11gt12) - 2*gtu21*PDstandard4th12gt12 - 2*gtu31*PDstandard4th13gt12 + - gt12L*PDstandard4th1Xt1 + gt22L*PDstandard4th1Xt2 + gt23L*PDstandard4th1Xt3 - gtu22*PDstandard4th22gt12 - - 2*gtu32*PDstandard4th23gt12 + gt11L*PDstandard4th2Xt1 + gt12L*PDstandard4th2Xt2 + gt13L*PDstandard4th2Xt3 - - gtu33*PDstandard4th33gt12 + (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xt1L + + Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - 2*gtu31*PDstandardNth13gt12 + + gt12L*PDstandardNth1Xt1 + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt12 - + 2*gtu32*PDstandardNth23gt12 + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3 - + gtu33*PDstandardNth33gt12 + (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xt1L + (Gt112*gt11L + gt12L*Gt212 + gt13L*Gt312)*Xt1L + (Gt112*gt12L + Gt212*gt22L + gt23L*Gt312)*Xt2L + (gt11L*Gt122 + gt12L*Gt222 + gt13L*Gt322)*Xt2L + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt3L + (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt3L + @@ -904,10 +904,10 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal Gt112*(2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + gt12L*(Gt122*Gt213 + Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323)) + Gt312*Gt323*gt33L + gt13L*SQR(Gt323))); - Rt13 = khalf*(-(gtu11*PDstandard4th11gt13) - 2*gtu21*PDstandard4th12gt13 - 2*gtu31*PDstandard4th13gt13 + - gt13L*PDstandard4th1Xt1 + gt23L*PDstandard4th1Xt2 + gt33L*PDstandard4th1Xt3 - gtu22*PDstandard4th22gt13 - - 2*gtu32*PDstandard4th23gt13 - gtu33*PDstandard4th33gt13 + gt11L*PDstandard4th3Xt1 + gt12L*PDstandard4th3Xt2 + - gt13L*PDstandard4th3Xt3 + (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xt1L + + Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - 2*gtu31*PDstandardNth13gt13 + + gt13L*PDstandardNth1Xt1 + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt13 - + 2*gtu32*PDstandardNth23gt13 - gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + + gt13L*PDstandardNth3Xt3 + (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xt1L + (Gt111*gt13L + Gt211*gt23L + Gt311*gt33L)*Xt1L + (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt2L + (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt2L + (gt11L*Gt133 + gt12L*Gt233 + gt13L*Gt333)*Xt3L + (Gt113*gt13L + Gt213*gt23L + Gt313*gt33L)*Xt3L + @@ -957,18 +957,18 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal gt13L*SQR(Gt333))); Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + - Gt123*gt12L*Gt222*gtu32 + Gt123*gt12L*Gt223*gtu33) - gtu11*khalf*PDstandard4th11gt22 + + Gt123*gt12L*Gt222*gtu32 + Gt123*gt12L*Gt223*gtu33) - gtu11*khalf*PDstandardNth11gt22 + gtu21*(6*Gt212*Gt222*gt22L + 2*Gt122*gt23L*Gt311 + 2*Gt122*gt13L*Gt312 + 4*Gt222*gt23L*Gt312 + - 2*Gt113*gt12L*Gt322 + 2*gt23L*Gt312*Gt323 + 2*Gt312*Gt322*gt33L - PDstandard4th12gt22) + + 2*Gt113*gt12L*Gt322 + 2*gt23L*Gt312*Gt323 + 2*Gt312*Gt322*gt33L - PDstandardNth12gt22) + gtu31*(6*Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + 2*Gt112*gt23L*Gt313 + 2*Gt113*gt12L*Gt323 + - 2*gt23L*Gt312*Gt333 + 2*Gt312*Gt323*gt33L - PDstandard4th13gt22) - gtu22*khalf*PDstandard4th22gt22 + + 2*gt23L*Gt312*Gt333 + 2*Gt312*Gt323*gt33L - PDstandardNth13gt22) - gtu22*khalf*PDstandardNth22gt22 + gtu32*(4*Gt122*gt12L*Gt223 + 2*Gt123*Gt212*gt22L + 2*gt12L*Gt133*Gt322 + 4*Gt223*gt23L*Gt322 + - 2*Gt123*gt12L*Gt323 + 4*Gt222*gt23L*Gt323 + 2*gt23L*Gt322*Gt333 + 2*Gt322*Gt323*gt33L - PDstandard4th23gt22) + - gt12L*(2*Gt111*Gt123*gtu31 + 4*Gt112*Gt223*gtu31 + 2*Gt113*Gt122*gtu32 + 2*Gt113*Gt123*gtu33 + PDstandard4th2Xt1) + - gt22L*(2*Gt122*Gt213*gtu32 + 6*Gt222*Gt223*gtu32 + 2*Gt123*Gt213*gtu33 + PDstandard4th2Xt2) + + 2*Gt123*gt12L*Gt323 + 4*Gt222*gt23L*Gt323 + 2*gt23L*Gt322*Gt333 + 2*Gt322*Gt323*gt33L - PDstandardNth23gt22) + + gt12L*(2*Gt111*Gt123*gtu31 + 4*Gt112*Gt223*gtu31 + 2*Gt113*Gt122*gtu32 + 2*Gt113*Gt123*gtu33 + PDstandardNth2Xt1) + + gt22L*(2*Gt122*Gt213*gtu32 + 6*Gt222*Gt223*gtu32 + 2*Gt123*Gt213*gtu33 + PDstandardNth2Xt2) + gt23L*(4*Gt212*Gt322*gtu21 + 2*Gt313*Gt322*gtu21 + 4*Gt222*Gt322*gtu22 + 2*Gt123*Gt311*gtu31 + 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + - 2*Gt323*Gt333*gtu33 + PDstandard4th2Xt3) - gtu33*khalf*PDstandard4th33gt22 + Gt212*gt22L*Xt1L + + 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - gtu33*khalf*PDstandardNth33gt22 + Gt212*gt22L*Xt1L + Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + 2*Gt123*gt12L*gtu32 + gt12L*Xt1L) + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + 2*Gt123*gt12L*gtu21 + @@ -986,10 +986,10 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal 3*gt22L*gtu11*SQR(Gt212) + 3*gt22L*gtu22*SQR(Gt222) + 3*gt22L*gtu33*SQR(Gt223) + gt33L*gtu11*SQR(Gt312) + gt33L*gtu22*SQR(Gt322) + 2*gt23L*gtu32*SQR(Gt323) + gt33L*gtu33*SQR(Gt323); - Rt23 = khalf*(-(gtu11*PDstandard4th11gt23) - 2*gtu21*PDstandard4th12gt23 - 2*gtu31*PDstandard4th13gt23 - - gtu22*PDstandard4th22gt23 - 2*gtu32*PDstandard4th23gt23 + gt13L*PDstandard4th2Xt1 + gt23L*PDstandard4th2Xt2 + - gt33L*PDstandard4th2Xt3 - gtu33*PDstandard4th33gt23 + gt12L*PDstandard4th3Xt1 + gt22L*PDstandard4th3Xt2 + - gt23L*PDstandard4th3Xt3 + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt1L + + Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - 2*gtu31*PDstandardNth13gt23 - + gtu22*PDstandardNth22gt23 - 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + gt23L*PDstandardNth2Xt2 + + gt33L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + + gt23L*PDstandardNth3Xt3 + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt1L + (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt1L + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xt2L + (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xt2L + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xt3L + (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xt3L + @@ -1040,16 +1040,16 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + Gt113*gt13L*Gt333*gtu31 + Gt133*gt13L*Gt323*gtu32 + Gt233*gt23L*Gt323*gtu32 + Gt123*gt13L*Gt333*gtu32 + Gt133*gt13L*Gt333*gtu33) + gtu21*(2*Gt212*Gt223*gt23L + 4*Gt123*gt13L*Gt313 + 4*Gt223*gt23L*Gt313 + - 4*Gt113*gt13L*Gt323 + 4*Gt213*gt23L*Gt323 + 2*Gt123*Gt311*gt33L - PDstandard4th12gt33) + - gtu31*(4*Gt213*gt23L*Gt333 + 2*Gt233*Gt312*gt33L + 6*Gt313*Gt333*gt33L - PDstandard4th13gt33) - - gtu22*khalf*PDstandard4th22gt33 + gtu32*(4*Gt223*gt23L*Gt333 + 2*Gt123*Gt313*gt33L + 6*Gt323*Gt333*gt33L - - PDstandard4th23gt33) - gtu33*khalf*PDstandard4th33gt33 + gt13L*PDstandard4th3Xt1 + gt23L*PDstandard4th3Xt2 + + 4*Gt113*gt13L*Gt323 + 4*Gt213*gt23L*Gt323 + 2*Gt123*Gt311*gt33L - PDstandardNth12gt33) + + gtu31*(4*Gt213*gt23L*Gt333 + 2*Gt233*Gt312*gt33L + 6*Gt313*Gt333*gt33L - PDstandardNth13gt33) - + gtu22*khalf*PDstandardNth22gt33 + gtu32*(4*Gt223*gt23L*Gt333 + 2*Gt123*Gt313*gt33L + 6*Gt323*Gt333*gt33L - + PDstandardNth23gt33) - gtu33*khalf*PDstandardNth33gt33 + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + 2*Gt133*Gt311*gtu31 + - 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + PDstandard4th3Xt3) + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + + 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + PDstandardNth3Xt3) + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + Gt313*gt33L*Xt1L + Gt123*gt13L*Xt2L + Gt223*gt23L*Xt2L + Gt323*gt33L*Xt2L + Gt133*gt13L*Xt3L + Gt333*gt33L*Xt3L + Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xt3L) + gtu11*(2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + 2*Gt113*Gt311*gt33L + - 2*Gt213*Gt312*gt33L - khalf*PDstandard4th11gt33 + gt11L*SQR(Gt113)) + + 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + gt11L*SQR(Gt113)) + 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + @@ -1067,82 +1067,82 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal gt11L*gtu33*SQR(Gt133) + gt22L*gtu11*SQR(Gt213) + gt22L*gtu22*SQR(Gt223) + 2*gt23L*gtu32*SQR(Gt223) + gt22L*gtu33*SQR(Gt233) + 3*gt33L*gtu11*SQR(Gt313) + 3*gt33L*gtu22*SQR(Gt323) + 3*gt33L*gtu33*SQR(Gt333); - Rphi11 = 2*(-PDstandard4th11phi - gt11L*gtu11*PDstandard4th11phi - 2*gt11L*gtu21*PDstandard4th12phi - - 2*gt11L*gtu31*PDstandard4th13phi - gt11L*gtu22*PDstandard4th22phi - 2*gt11L*gtu32*PDstandard4th23phi - - gt11L*gtu33*PDstandard4th33phi + Gt311*PDstandard4th3phi + gt11L*Gt311*gtu11*PDstandard4th3phi + - 2*gt11L*Gt312*gtu21*PDstandard4th3phi + gt11L*Gt322*gtu22*PDstandard4th3phi + - 2*gt11L*Gt313*gtu31*PDstandard4th3phi + 2*gt11L*Gt323*gtu32*PDstandard4th3phi + - gt11L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + Rphi11 = 2*(-PDstandardNth11phi - gt11L*gtu11*PDstandardNth11phi - 2*gt11L*gtu21*PDstandardNth12phi - + 2*gt11L*gtu31*PDstandardNth13phi - gt11L*gtu22*PDstandardNth22phi - 2*gt11L*gtu32*PDstandardNth23phi - + gt11L*gtu33*PDstandardNth33phi + Gt311*PDstandardNth3phi + gt11L*Gt311*gtu11*PDstandardNth3phi + + 2*gt11L*Gt312*gtu21*PDstandardNth3phi + gt11L*Gt322*gtu22*PDstandardNth3phi + + 2*gt11L*Gt313*gtu31*PDstandardNth3phi + 2*gt11L*Gt323*gtu32*PDstandardNth3phi + + gt11L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt111 + Gt111*gt11L*gtu11 + 2*Gt112*gt11L*gtu21 + gt11L*Gt122*gtu22 + 2*Gt113*gt11L*gtu31 + - 2*gt11L*Gt123*gtu32 + gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandard4th2phi - 4*gt11L*gtu31*PDstandard4th3phi) + - PDstandard4th2phi*(Gt211 + gt11L*Gt211*gtu11 + + 2*gt11L*Gt123*gtu32 + gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandardNth2phi - 4*gt11L*gtu31*PDstandardNth3phi) + + PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 + gt11L*(2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + Gt233*gtu33) - - 4*gt11L*gtu32*PDstandard4th3phi) + (2 - 2*gt11L*gtu11)*SQR(PDstandard4th1phi) - - 2*gt11L*gtu22*SQR(PDstandard4th2phi) - 2*gt11L*gtu33*SQR(PDstandard4th3phi)); - - Rphi12 = 2*(-(gt12L*gtu11*PDstandard4th11phi) - PDstandard4th12phi - 2*gt12L*gtu21*PDstandard4th12phi - - 2*gt12L*gtu31*PDstandard4th13phi - gt12L*gtu22*PDstandard4th22phi - 2*gt12L*gtu32*PDstandard4th23phi - - gt12L*gtu33*PDstandard4th33phi + Gt312*PDstandard4th3phi + gt12L*Gt311*gtu11*PDstandard4th3phi + - 2*gt12L*Gt312*gtu21*PDstandard4th3phi + gt12L*Gt322*gtu22*PDstandard4th3phi + - 2*gt12L*Gt313*gtu31*PDstandard4th3phi + 2*gt12L*Gt323*gtu32*PDstandard4th3phi + - gt12L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + 4*gt11L*gtu32*PDstandardNth3phi) + (2 - 2*gt11L*gtu11)*SQR(PDstandardNth1phi) - + 2*gt11L*gtu22*SQR(PDstandardNth2phi) - 2*gt11L*gtu33*SQR(PDstandardNth3phi)); + + Rphi12 = 2*(-(gt12L*gtu11*PDstandardNth11phi) - PDstandardNth12phi - 2*gt12L*gtu21*PDstandardNth12phi - + 2*gt12L*gtu31*PDstandardNth13phi - gt12L*gtu22*PDstandardNth22phi - 2*gt12L*gtu32*PDstandardNth23phi - + gt12L*gtu33*PDstandardNth33phi + Gt312*PDstandardNth3phi + gt12L*Gt311*gtu11*PDstandardNth3phi + + 2*gt12L*Gt312*gtu21*PDstandardNth3phi + gt12L*Gt322*gtu22*PDstandardNth3phi + + 2*gt12L*Gt313*gtu31*PDstandardNth3phi + 2*gt12L*Gt323*gtu32*PDstandardNth3phi + + gt12L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt112 + Gt111*gt12L*gtu11 + 2*Gt112*gt12L*gtu21 + Gt122*gt12L*gtu22 + 2*Gt113*gt12L*gtu31 + - 2*Gt123*gt12L*gtu32 + gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandard4th2phi - - 4*gt12L*gtu31*PDstandard4th3phi) + PDstandard4th2phi* + 2*Gt123*gt12L*gtu32 + gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandardNth2phi - + 4*gt12L*gtu31*PDstandardNth3phi) + PDstandardNth2phi* (Gt212 + 2*gt12L*Gt212*gtu21 + gt12L*(Gt211*gtu11 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + Gt233*gtu33) - - 4*gt12L*gtu32*PDstandard4th3phi) - 2*gt12L*gtu11*SQR(PDstandard4th1phi) - - 2*gt12L*gtu22*SQR(PDstandard4th2phi) - 2*gt12L*gtu33*SQR(PDstandard4th3phi)); - - Rphi13 = 2*(-PDstandard4th13phi + gt13L*(-(gtu11*PDstandard4th11phi) - 2*gtu21*PDstandard4th12phi - - 2*gtu31*PDstandard4th13phi) - gt13L*gtu22*PDstandard4th22phi - 2*gt13L*gtu32*PDstandard4th23phi - - gt13L*gtu33*PDstandard4th33phi + Gt313*PDstandard4th3phi + gt13L*Gt311*gtu11*PDstandard4th3phi + - 2*gt13L*Gt312*gtu21*PDstandard4th3phi + gt13L*Gt322*gtu22*PDstandard4th3phi + - 2*gt13L*Gt313*gtu31*PDstandard4th3phi + 2*gt13L*Gt323*gtu32*PDstandard4th3phi + - gt13L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + 4*gt12L*gtu32*PDstandardNth3phi) - 2*gt12L*gtu11*SQR(PDstandardNth1phi) - + 2*gt12L*gtu22*SQR(PDstandardNth2phi) - 2*gt12L*gtu33*SQR(PDstandardNth3phi)); + + Rphi13 = 2*(-PDstandardNth13phi + gt13L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi) - gt13L*gtu22*PDstandardNth22phi - 2*gt13L*gtu32*PDstandardNth23phi - + gt13L*gtu33*PDstandardNth33phi + Gt313*PDstandardNth3phi + gt13L*Gt311*gtu11*PDstandardNth3phi + + 2*gt13L*Gt312*gtu21*PDstandardNth3phi + gt13L*Gt322*gtu22*PDstandardNth3phi + + 2*gt13L*Gt313*gtu31*PDstandardNth3phi + 2*gt13L*Gt323*gtu32*PDstandardNth3phi + + gt13L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt113 + Gt111*gt13L*gtu11 + 2*Gt112*gt13L*gtu21 + Gt122*gt13L*gtu22 + 2*Gt113*gt13L*gtu31 + - 2*Gt123*gt13L*gtu32 + Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandard4th2phi + - (2 - 4*gt13L*gtu31)*PDstandard4th3phi) + - PDstandard4th2phi*(Gt213 + 2*gt13L*Gt213*gtu31 + + 2*Gt123*gt13L*gtu32 + Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandardNth2phi + + (2 - 4*gt13L*gtu31)*PDstandardNth3phi) + + PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 + gt13L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt223*gtu32 + Gt233*gtu33) - - 4*gt13L*gtu32*PDstandard4th3phi) - 2*gt13L*gtu11*SQR(PDstandard4th1phi) - - 2*gt13L*gtu22*SQR(PDstandard4th2phi) - 2*gt13L*gtu33*SQR(PDstandard4th3phi)); - - Rphi22 = 2*(-PDstandard4th22phi + gt22L*(-(gtu11*PDstandard4th11phi) - 2*gtu21*PDstandard4th12phi - - 2*gtu31*PDstandard4th13phi - gtu22*PDstandard4th22phi) - 2*gt22L*gtu32*PDstandard4th23phi - - gt22L*gtu33*PDstandard4th33phi + Gt322*PDstandard4th3phi + gt22L*Gt311*gtu11*PDstandard4th3phi + - 2*gt22L*Gt312*gtu21*PDstandard4th3phi + gt22L*Gt322*gtu22*PDstandard4th3phi + - 2*gt22L*Gt313*gtu31*PDstandard4th3phi + 2*gt22L*Gt323*gtu32*PDstandard4th3phi + - gt22L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + 4*gt13L*gtu32*PDstandardNth3phi) - 2*gt13L*gtu11*SQR(PDstandardNth1phi) - + 2*gt13L*gtu22*SQR(PDstandardNth2phi) - 2*gt13L*gtu33*SQR(PDstandardNth3phi)); + + Rphi22 = 2*(-PDstandardNth22phi + gt22L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi) - 2*gt22L*gtu32*PDstandardNth23phi - + gt22L*gtu33*PDstandardNth33phi + Gt322*PDstandardNth3phi + gt22L*Gt311*gtu11*PDstandardNth3phi + + 2*gt22L*Gt312*gtu21*PDstandardNth3phi + gt22L*Gt322*gtu22*PDstandardNth3phi + + 2*gt22L*Gt313*gtu31*PDstandardNth3phi + 2*gt22L*Gt323*gtu32*PDstandardNth3phi + + gt22L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt122 + Gt111*gt22L*gtu11 + 2*Gt112*gt22L*gtu21 + Gt122*gt22L*gtu22 + 2*Gt113*gt22L*gtu31 + - 2*Gt123*gt22L*gtu32 + Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandard4th2phi - 4*gt22L*gtu31*PDstandard4th3phi) + - PDstandard4th2phi*(Gt222 + Gt222*gt22L*gtu22 + + 2*Gt123*gt22L*gtu32 + Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandardNth2phi - 4*gt22L*gtu31*PDstandardNth3phi) + + PDstandardNth2phi*(Gt222 + Gt222*gt22L*gtu22 + gt22L*(Gt211*gtu11 + 2*Gt212*gtu21 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + Gt233*gtu33) - - 4*gt22L*gtu32*PDstandard4th3phi) - 2*gt22L*gtu11*SQR(PDstandard4th1phi) + - (2 - 2*gt22L*gtu22)*SQR(PDstandard4th2phi) - 2*gt22L*gtu33*SQR(PDstandard4th3phi)); - - Rphi23 = 2*(-PDstandard4th23phi + gt23L*(-(gtu11*PDstandard4th11phi) - 2*gtu21*PDstandard4th12phi - - 2*gtu31*PDstandard4th13phi - gtu22*PDstandard4th22phi - 2*gtu32*PDstandard4th23phi) - - gt23L*gtu33*PDstandard4th33phi + Gt323*PDstandard4th3phi + gt23L*Gt311*gtu11*PDstandard4th3phi + - 2*gt23L*Gt312*gtu21*PDstandard4th3phi + gt23L*Gt322*gtu22*PDstandard4th3phi + - 2*gt23L*Gt313*gtu31*PDstandard4th3phi + 2*gt23L*Gt323*gtu32*PDstandard4th3phi + - gt23L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + 4*gt22L*gtu32*PDstandardNth3phi) - 2*gt22L*gtu11*SQR(PDstandardNth1phi) + + (2 - 2*gt22L*gtu22)*SQR(PDstandardNth2phi) - 2*gt22L*gtu33*SQR(PDstandardNth3phi)); + + Rphi23 = 2*(-PDstandardNth23phi + gt23L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - 2*gtu32*PDstandardNth23phi) - + gt23L*gtu33*PDstandardNth33phi + Gt323*PDstandardNth3phi + gt23L*Gt311*gtu11*PDstandardNth3phi + + 2*gt23L*Gt312*gtu21*PDstandardNth3phi + gt23L*Gt322*gtu22*PDstandardNth3phi + + 2*gt23L*Gt313*gtu31*PDstandardNth3phi + 2*gt23L*Gt323*gtu32*PDstandardNth3phi + + gt23L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt123 + Gt111*gt23L*gtu11 + 2*Gt112*gt23L*gtu21 + Gt122*gt23L*gtu22 + 2*Gt113*gt23L*gtu31 + - 2*Gt123*gt23L*gtu32 + Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandard4th2phi - 4*gt23L*gtu31*PDstandard4th3phi) + - PDstandard4th2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + + 2*Gt123*gt23L*gtu32 + Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandardNth2phi - 4*gt23L*gtu31*PDstandardNth3phi) + + PDstandardNth2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + gt23L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + Gt233*gtu33) + - (2 - 4*gt23L*gtu32)*PDstandard4th3phi) - 2*gt23L*gtu11*SQR(PDstandard4th1phi) - - 2*gt23L*gtu22*SQR(PDstandard4th2phi) - 2*gt23L*gtu33*SQR(PDstandard4th3phi)); - - Rphi33 = 2*(-PDstandard4th33phi + (Gt333 + gt33L* - (Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))*PDstandard4th3phi + - PDstandard4th2phi*(Gt233 + gt33L*(Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + - Gt233*gtu33 - 4*gtu32*PDstandard4th3phi)) + - PDstandard4th1phi*(Gt133 + gt33L*(Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + - Gt133*gtu33 - 4*(gtu21*PDstandard4th2phi + gtu31*PDstandard4th3phi))) + 2*SQR(PDstandard4th3phi) + - gt33L*(-(gtu11*PDstandard4th11phi) - 2*gtu21*PDstandard4th12phi - 2*gtu31*PDstandard4th13phi - - gtu22*PDstandard4th22phi - 2*gtu32*PDstandard4th23phi - gtu33*PDstandard4th33phi + - Gt311*gtu11*PDstandard4th3phi - 2*gtu11*SQR(PDstandard4th1phi) - 2*gtu22*SQR(PDstandard4th2phi) - - 2*gtu33*SQR(PDstandard4th3phi))); + (2 - 4*gt23L*gtu32)*PDstandardNth3phi) - 2*gt23L*gtu11*SQR(PDstandardNth1phi) - + 2*gt23L*gtu22*SQR(PDstandardNth2phi) - 2*gt23L*gtu33*SQR(PDstandardNth3phi)); + + Rphi33 = 2*(-PDstandardNth33phi + (Gt333 + gt33L* + (Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))*PDstandardNth3phi + + PDstandardNth2phi*(Gt233 + gt33L*(Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + + Gt233*gtu33 - 4*gtu32*PDstandardNth3phi)) + + PDstandardNth1phi*(Gt133 + gt33L*(Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + + Gt133*gtu33 - 4*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi))) + 2*SQR(PDstandardNth3phi) + + gt33L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - 2*gtu31*PDstandardNth13phi - + gtu22*PDstandardNth22phi - 2*gtu32*PDstandardNth23phi - gtu33*PDstandardNth33phi + + Gt311*gtu11*PDstandardNth3phi - 2*gtu11*SQR(PDstandardNth1phi) - 2*gtu22*SQR(PDstandardNth2phi) - + 2*gtu33*SQR(PDstandardNth3phi))); Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; @@ -1204,11 +1204,11 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal gu33 = em4phi*gtu33; - ddetg1 = e4phi*(ddetgt1 + 4*detgt*PDstandard4th1phi); + ddetg1 = e4phi*(ddetgt1 + 4*detgt*PDstandardNth1phi); - ddetg2 = e4phi*(ddetgt2 + 4*detgt*PDstandard4th2phi); + ddetg2 = e4phi*(ddetgt2 + 4*detgt*PDstandardNth2phi); - ddetg3 = e4phi*(ddetgt3 + 4*detgt*PDstandard4th3phi); + ddetg3 = e4phi*(ddetgt3 + 4*detgt*PDstandardNth3phi); G111 = -((-6*detg*Gt111 + ddetg1*(-6 + g11*gu11) + g11*(ddetg2*gu21 + ddetg3*gu31))*INV(detg))/6.; @@ -1258,182 +1258,182 @@ void ML_BSSN_RHS_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REAL normal R33 = Rphi33 + Rt33; - phirhsL = beta1L*PDstandard4th1phi + beta2L*PDstandard4th2phi + beta3L*PDstandard4th3phi + - ((PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3)*phiL)/6. - (alphaL*trKL)/6.; + phirhsL = beta1L*PDstandardNth1phi + beta2L*PDstandardNth2phi + beta3L*PDstandardNth3phi + + ((PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)*phiL)/6. - (alphaL*trKL)/6.; - gt11rhsL = -2*alphaL*At11L + 2*(gt11L*PDstandard4th1beta1 + gt12L*PDstandard4th1beta2 + gt13L*PDstandard4th1beta3) + - beta1L*PDstandard4th1gt11 + beta2L*PDstandard4th2gt11 - - gt11L*ktwothird*(PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3) + beta3L*PDstandard4th3gt11; + gt11rhsL = -2*alphaL*At11L + 2*(gt11L*PDstandardNth1beta1 + gt12L*PDstandardNth1beta2 + gt13L*PDstandardNth1beta3) + + beta1L*PDstandardNth1gt11 + beta2L*PDstandardNth2gt11 - + gt11L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) + beta3L*PDstandardNth3gt11; - gt12rhsL = -2*alphaL*At12L + gt22L*PDstandard4th1beta2 + gt23L*PDstandard4th1beta3 + beta1L*PDstandard4th1gt12 + - gt11L*PDstandard4th2beta1 + gt13L*PDstandard4th2beta3 + beta2L*PDstandard4th2gt12 + - gt12L*(kthird*(PDstandard4th1beta1 + PDstandard4th2beta2) - ktwothird*PDstandard4th3beta3) + - beta3L*PDstandard4th3gt12; + gt12rhsL = -2*alphaL*At12L + gt22L*PDstandardNth1beta2 + gt23L*PDstandardNth1beta3 + beta1L*PDstandardNth1gt12 + + gt11L*PDstandardNth2beta1 + gt13L*PDstandardNth2beta3 + beta2L*PDstandardNth2gt12 + + gt12L*(kthird*(PDstandardNth1beta1 + PDstandardNth2beta2) - ktwothird*PDstandardNth3beta3) + + beta3L*PDstandardNth3gt12; - gt13rhsL = -2*alphaL*At13L + gt23L*PDstandard4th1beta2 + gt33L*PDstandard4th1beta3 + beta1L*PDstandard4th1gt13 + - beta2L*PDstandard4th2gt13 + gt11L*PDstandard4th3beta1 + gt12L*PDstandard4th3beta2 + - gt13L*(-(ktwothird*PDstandard4th2beta2) + kthird*(PDstandard4th1beta1 + PDstandard4th3beta3)) + - beta3L*PDstandard4th3gt13; + gt13rhsL = -2*alphaL*At13L + gt23L*PDstandardNth1beta2 + gt33L*PDstandardNth1beta3 + beta1L*PDstandardNth1gt13 + + beta2L*PDstandardNth2gt13 + gt11L*PDstandardNth3beta1 + gt12L*PDstandardNth3beta2 + + gt13L*(-(ktwothird*PDstandardNth2beta2) + kthird*(PDstandardNth1beta1 + PDstandardNth3beta3)) + + beta3L*PDstandardNth3gt13; - gt22rhsL = -2*alphaL*At22L + beta1L*PDstandard4th1gt22 + - 2*(gt12L*PDstandard4th2beta1 + gt22L*PDstandard4th2beta2 + gt23L*PDstandard4th2beta3) + beta2L*PDstandard4th2gt22 - - gt22L*ktwothird*(PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3) + beta3L*PDstandard4th3gt22; + gt22rhsL = -2*alphaL*At22L + beta1L*PDstandardNth1gt22 + + 2*(gt12L*PDstandardNth2beta1 + gt22L*PDstandardNth2beta2 + gt23L*PDstandardNth2beta3) + beta2L*PDstandardNth2gt22 - + gt22L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) + beta3L*PDstandardNth3gt22; - gt23rhsL = -2*alphaL*At23L + beta1L*PDstandard4th1gt23 + gt13L*PDstandard4th2beta1 + gt33L*PDstandard4th2beta3 + - beta2L*PDstandard4th2gt23 + gt12L*PDstandard4th3beta1 + gt22L*PDstandard4th3beta2 + - gt23L*(-(ktwothird*PDstandard4th1beta1) + kthird*(PDstandard4th2beta2 + PDstandard4th3beta3)) + - beta3L*PDstandard4th3gt23; + gt23rhsL = -2*alphaL*At23L + beta1L*PDstandardNth1gt23 + gt13L*PDstandardNth2beta1 + gt33L*PDstandardNth2beta3 + + beta2L*PDstandardNth2gt23 + gt12L*PDstandardNth3beta1 + gt22L*PDstandardNth3beta2 + + gt23L*(-(ktwothird*PDstandardNth1beta1) + kthird*(PDstandardNth2beta2 + PDstandardNth3beta3)) + + beta3L*PDstandardNth3gt23; - gt33rhsL = -2*alphaL*At33L + beta1L*PDstandard4th1gt33 + beta2L*PDstandard4th2gt33 - - gt33L*ktwothird*(PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3) + - 2*(gt13L*PDstandard4th3beta1 + gt23L*PDstandard4th3beta2 + gt33L*PDstandard4th3beta3) + beta3L*PDstandard4th3gt33; + gt33rhsL = -2*alphaL*At33L + beta1L*PDstandardNth1gt33 + beta2L*PDstandardNth2gt33 - + gt33L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) + + 2*(gt13L*PDstandardNth3beta1 + gt23L*PDstandardNth3beta2 + gt33L*PDstandardNth3beta3) + beta3L*PDstandardNth3gt33; Xt1rhsL = kthird*(-3*(beta1L*(ddgtu1111 + ddgtu2112 + ddgtu3113) + beta2L*(ddgtu1112 + ddgtu2122 + ddgtu3123) + - beta3L*(ddgtu1113 + ddgtu2123 + ddgtu3133)) + 16*(gtu21*PDstandard4th12beta1 + gtu31*PDstandard4th13beta1) + - (7*dgtu111 + 4*(dgtu212 + dgtu313))*PDstandard4th1beta1 + - gtu11*(10*PDstandard4th11beta1 + 4*(PDstandard4th12beta2 + PDstandard4th13beta3) - 4*alphaL*PDstandard4th1trK) + - 12*gtu32*PDstandard4th23beta1 + (9*dgtu211 + 6*dgtu323)*PDstandard4th2beta1 + - (dgtu212 - 2*(dgtu111 + dgtu313))*PDstandard4th2beta2 + - 4*(gtu21*(PDstandard4th22beta2 + PDstandard4th23beta3) + gtu31*(PDstandard4th23beta2 + PDstandard4th33beta3)) - - 6*(Atu11*PDstandard4th1alpha + Atu21*PDstandard4th2alpha + Atu31*PDstandard4th3alpha) + - (9*dgtu311 + 6*dgtu333)*PDstandard4th3beta1 + - 6*(gtu22*PDstandard4th22beta1 + dgtu222*PDstandard4th2beta1 + gtu33*PDstandard4th33beta1 + - dgtu322*PDstandard4th3beta1) + 3*(dgtu112*PDstandard4th1beta2 + dgtu113*PDstandard4th1beta3 + - dgtu213*PDstandard4th2beta3 + dgtu312*PDstandard4th3beta2) + - (-2*(dgtu111 + dgtu212) + dgtu313)*PDstandard4th3beta3 + + beta3L*(ddgtu1113 + ddgtu2123 + ddgtu3133)) + 16*(gtu21*PDstandardNth12beta1 + gtu31*PDstandardNth13beta1) + + (7*dgtu111 + 4*(dgtu212 + dgtu313))*PDstandardNth1beta1 + + gtu11*(10*PDstandardNth11beta1 + 4*(PDstandardNth12beta2 + PDstandardNth13beta3) - 4*alphaL*PDstandardNth1trK) + + 12*gtu32*PDstandardNth23beta1 + (9*dgtu211 + 6*dgtu323)*PDstandardNth2beta1 + + (dgtu212 - 2*(dgtu111 + dgtu313))*PDstandardNth2beta2 + + 4*(gtu21*(PDstandardNth22beta2 + PDstandardNth23beta3) + gtu31*(PDstandardNth23beta2 + PDstandardNth33beta3)) - + 6*(Atu11*PDstandardNth1alpha + Atu21*PDstandardNth2alpha + Atu31*PDstandardNth3alpha) + + (9*dgtu311 + 6*dgtu333)*PDstandardNth3beta1 + + 6*(gtu22*PDstandardNth22beta1 + dgtu222*PDstandardNth2beta1 + gtu33*PDstandardNth33beta1 + + dgtu322*PDstandardNth3beta1) + 3*(dgtu112*PDstandardNth1beta2 + dgtu113*PDstandardNth1beta3 + + dgtu213*PDstandardNth2beta3 + dgtu312*PDstandardNth3beta2) + + (-2*(dgtu111 + dgtu212) + dgtu313)*PDstandardNth3beta3 + alphaL*(12*(Atu21*Gt112 + Atu31*Gt113 + Atu32*Gt123) + 6*(Atu11*Gt111 + Atu22*Gt122 + Atu33*Gt133) + - 36*(Atu11*PDstandard4th1phi + Atu21*PDstandard4th2phi + Atu31*PDstandard4th3phi) - - 4*(gtu21*PDstandard4th2trK + gtu31*PDstandard4th3trK))); + 36*(Atu11*PDstandardNth1phi + Atu21*PDstandardNth2phi + Atu31*PDstandardNth3phi) - + 4*(gtu21*PDstandardNth2trK + gtu31*PDstandardNth3trK))); Xt2rhsL = kthird*(-3*(beta1L*(ddgtu2111 + ddgtu2212 + ddgtu3213) + beta2L*(ddgtu2112 + ddgtu2222 + ddgtu3223) + - beta3L*(ddgtu2113 + ddgtu2223 + ddgtu3233)) + 12*gtu31*PDstandard4th13beta2 + - (dgtu211 - 2*(dgtu222 + dgtu323))*PDstandard4th1beta1 + (9*dgtu212 + 6*dgtu313)*PDstandard4th1beta2 + - gtu21*(16*PDstandard4th12beta2 + 4*PDstandard4th13beta3 - 4*alphaL*PDstandard4th1trK) + - (7*dgtu222 + 4*dgtu323)*PDstandard4th2beta2 + - 4*(gtu21*PDstandard4th11beta1 + gtu32*PDstandard4th13beta1 + - gtu22*(PDstandard4th12beta1 + PDstandard4th23beta3) + dgtu211*PDstandard4th2beta2) + - gtu22*(10*PDstandard4th22beta2 - 4*alphaL*PDstandard4th2trK) - - 6*(Atu21*PDstandard4th1alpha + Atu22*PDstandard4th2alpha + Atu32*PDstandard4th3alpha) + - 3*(dgtu213*PDstandard4th1beta3 + dgtu221*PDstandard4th2beta1 + dgtu223*PDstandard4th2beta3 + - dgtu321*PDstandard4th3beta1) + (9*dgtu322 + 6*dgtu333)*PDstandard4th3beta2 + - 6*(gtu11*PDstandard4th11beta2 + dgtu111*PDstandard4th1beta2 + gtu33*PDstandard4th33beta2 + - dgtu311*PDstandard4th3beta2) + (-2*(dgtu211 + dgtu222) + dgtu323)*PDstandard4th3beta3 + + beta3L*(ddgtu2113 + ddgtu2223 + ddgtu3233)) + 12*gtu31*PDstandardNth13beta2 + + (dgtu211 - 2*(dgtu222 + dgtu323))*PDstandardNth1beta1 + (9*dgtu212 + 6*dgtu313)*PDstandardNth1beta2 + + gtu21*(16*PDstandardNth12beta2 + 4*PDstandardNth13beta3 - 4*alphaL*PDstandardNth1trK) + + (7*dgtu222 + 4*dgtu323)*PDstandardNth2beta2 + + 4*(gtu21*PDstandardNth11beta1 + gtu32*PDstandardNth13beta1 + + gtu22*(PDstandardNth12beta1 + PDstandardNth23beta3) + dgtu211*PDstandardNth2beta2) + + gtu22*(10*PDstandardNth22beta2 - 4*alphaL*PDstandardNth2trK) - + 6*(Atu21*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + Atu32*PDstandardNth3alpha) + + 3*(dgtu213*PDstandardNth1beta3 + dgtu221*PDstandardNth2beta1 + dgtu223*PDstandardNth2beta3 + + dgtu321*PDstandardNth3beta1) + (9*dgtu322 + 6*dgtu333)*PDstandardNth3beta2 + + 6*(gtu11*PDstandardNth11beta2 + dgtu111*PDstandardNth1beta2 + gtu33*PDstandardNth33beta2 + + dgtu311*PDstandardNth3beta2) + (-2*(dgtu211 + dgtu222) + dgtu323)*PDstandardNth3beta3 + alphaL*(12*(Atu21*Gt212 + Atu31*Gt213 + Atu32*Gt223) + 6*(Atu11*Gt211 + Atu22*Gt222 + Atu33*Gt233) + - 36*(Atu21*PDstandard4th1phi + Atu22*PDstandard4th2phi + Atu32*PDstandard4th3phi)) + - gtu32*(16*PDstandard4th23beta2 + 4*PDstandard4th33beta3 - 4*alphaL*PDstandard4th3trK)); + 36*(Atu21*PDstandardNth1phi + Atu22*PDstandardNth2phi + Atu32*PDstandardNth3phi)) + + gtu32*(16*PDstandardNth23beta2 + 4*PDstandardNth33beta3 - 4*alphaL*PDstandardNth3trK)); Xt3rhsL = kthird*(-3*(beta1L*(ddgtu3111 + ddgtu3212 + ddgtu3313) + beta2L*(ddgtu3112 + ddgtu3222 + ddgtu3323) + - beta3L*(ddgtu3113 + ddgtu3223 + ddgtu3333)) + 12*gtu21*PDstandard4th12beta3 + - (dgtu311 - 2*(dgtu322 + dgtu333))*PDstandard4th1beta1 + (6*dgtu212 + 9*dgtu313)*PDstandard4th1beta3 + - gtu31*(16*PDstandard4th13beta3 - 4*alphaL*PDstandard4th1trK) + - (dgtu322 - 2*(dgtu311 + dgtu333))*PDstandard4th2beta2 + (6*dgtu222 + 9*dgtu323)*PDstandard4th2beta3 + - 6*(gtu11*PDstandard4th11beta3 + dgtu111*PDstandard4th1beta3 + gtu22*PDstandard4th22beta3 + - dgtu211*PDstandard4th2beta3) + gtu32*(16*PDstandard4th23beta3 - 4*alphaL*PDstandard4th2trK) - - 6*(Atu31*PDstandard4th1alpha + Atu32*PDstandard4th2alpha + Atu33*PDstandard4th3alpha) + - 3*(dgtu312*PDstandard4th1beta2 + dgtu321*PDstandard4th2beta1 + dgtu331*PDstandard4th3beta1 + - dgtu332*PDstandard4th3beta2) + (4*dgtu322 + 7*dgtu333)*PDstandard4th3beta3 + - 4*(gtu31*(PDstandard4th11beta1 + PDstandard4th12beta2) + gtu32*(PDstandard4th12beta1 + PDstandard4th22beta2) + - gtu33*(PDstandard4th13beta1 + PDstandard4th23beta2) + dgtu311*PDstandard4th3beta3) + + beta3L*(ddgtu3113 + ddgtu3223 + ddgtu3333)) + 12*gtu21*PDstandardNth12beta3 + + (dgtu311 - 2*(dgtu322 + dgtu333))*PDstandardNth1beta1 + (6*dgtu212 + 9*dgtu313)*PDstandardNth1beta3 + + gtu31*(16*PDstandardNth13beta3 - 4*alphaL*PDstandardNth1trK) + + (dgtu322 - 2*(dgtu311 + dgtu333))*PDstandardNth2beta2 + (6*dgtu222 + 9*dgtu323)*PDstandardNth2beta3 + + 6*(gtu11*PDstandardNth11beta3 + dgtu111*PDstandardNth1beta3 + gtu22*PDstandardNth22beta3 + + dgtu211*PDstandardNth2beta3) + gtu32*(16*PDstandardNth23beta3 - 4*alphaL*PDstandardNth2trK) - + 6*(Atu31*PDstandardNth1alpha + Atu32*PDstandardNth2alpha + Atu33*PDstandardNth3alpha) + + 3*(dgtu312*PDstandardNth1beta2 + dgtu321*PDstandardNth2beta1 + dgtu331*PDstandardNth3beta1 + + dgtu332*PDstandardNth3beta2) + (4*dgtu322 + 7*dgtu333)*PDstandardNth3beta3 + + 4*(gtu31*(PDstandardNth11beta1 + PDstandardNth12beta2) + gtu32*(PDstandardNth12beta1 + PDstandardNth22beta2) + + gtu33*(PDstandardNth13beta1 + PDstandardNth23beta2) + dgtu311*PDstandardNth3beta3) + alphaL*(12*(Atu21*Gt312 + Atu31*Gt313 + Atu32*Gt323) + 6*(Atu11*Gt311 + Atu22*Gt322 + Atu33*Gt333) + - 36*(Atu31*PDstandard4th1phi + Atu32*PDstandard4th2phi + Atu33*PDstandard4th3phi)) + - gtu33*(10*PDstandard4th33beta3 - 4*alphaL*PDstandard4th3trK)); - - trKrhsL = -(gu11*PDstandard4th11alpha) - 2*gu21*PDstandard4th12alpha - 2*gu31*PDstandard4th13alpha + - (G111*gu11 + 2*G112*gu21 + G122*gu22 + 2*G113*gu31 + 2*G123*gu32 + G133*gu33)*PDstandard4th1alpha + - beta1L*PDstandard4th1trK - gu22*PDstandard4th22alpha - 2*gu32*PDstandard4th23alpha + - (G211*gu11 + 2*G212*gu21 + G222*gu22 + 2*G213*gu31 + 2*G223*gu32 + G233*gu33)*PDstandard4th2alpha + - beta2L*PDstandard4th2trK - gu33*PDstandard4th33alpha + G311*gu11*PDstandard4th3alpha + - G322*gu22*PDstandard4th3alpha + 2*G313*gu31*PDstandard4th3alpha + 2*G323*gu32*PDstandard4th3alpha + - G333*gu33*PDstandard4th3alpha + 2*(alphaL*Atm12*Atm21 + alphaL*Atm13*Atm31 + alphaL*Atm23*Atm32 + - G312*gu21*PDstandard4th3alpha) + beta3L*PDstandard4th3trK + alphaL*SQR(Atm11) + alphaL*SQR(Atm22) + + 36*(Atu31*PDstandardNth1phi + Atu32*PDstandardNth2phi + Atu33*PDstandardNth3phi)) + + gtu33*(10*PDstandardNth33beta3 - 4*alphaL*PDstandardNth3trK)); + + trKrhsL = -(gu11*PDstandardNth11alpha) - 2*gu21*PDstandardNth12alpha - 2*gu31*PDstandardNth13alpha + + (G111*gu11 + 2*G112*gu21 + G122*gu22 + 2*G113*gu31 + 2*G123*gu32 + G133*gu33)*PDstandardNth1alpha + + beta1L*PDstandardNth1trK - gu22*PDstandardNth22alpha - 2*gu32*PDstandardNth23alpha + + (G211*gu11 + 2*G212*gu21 + G222*gu22 + 2*G213*gu31 + 2*G223*gu32 + G233*gu33)*PDstandardNth2alpha + + beta2L*PDstandardNth2trK - gu33*PDstandardNth33alpha + G311*gu11*PDstandardNth3alpha + + G322*gu22*PDstandardNth3alpha + 2*G313*gu31*PDstandardNth3alpha + 2*G323*gu32*PDstandardNth3alpha + + G333*gu33*PDstandardNth3alpha + 2*(alphaL*Atm12*Atm21 + alphaL*Atm13*Atm31 + alphaL*Atm23*Atm32 + + G312*gu21*PDstandardNth3alpha) + beta3L*PDstandardNth3trK + alphaL*SQR(Atm11) + alphaL*SQR(Atm22) + alphaL*SQR(Atm33) + alphaL*kthird*SQR(trKL); - At11rhsL = beta1L*PDstandard4th1At11 + 2*(At11L*PDstandard4th1beta1 + At12L*PDstandard4th1beta2 + - At13L*PDstandard4th1beta3) + beta2L*PDstandard4th2At11 + beta3L*PDstandard4th3At11 - - At11L*ktwothird*(PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3) - - em4phi*kthird*(3*PDstandard4th11alpha - g11*gu11*PDstandard4th11alpha - 2*g11*gu21*PDstandard4th12alpha - - 2*g11*gu31*PDstandard4th13alpha + (G111*(-3 + g11*gu11) + - g11*(2*G112*gu21 + G122*gu22 + 2*G113*gu31 + 2*G123*gu32 + G133*gu33))*PDstandard4th1alpha - - g11*gu22*PDstandard4th22alpha - 2*g11*gu32*PDstandard4th23alpha + + At11rhsL = beta1L*PDstandardNth1At11 + 2*(At11L*PDstandardNth1beta1 + At12L*PDstandardNth1beta2 + + At13L*PDstandardNth1beta3) + beta2L*PDstandardNth2At11 + beta3L*PDstandardNth3At11 - + At11L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) - + em4phi*kthird*(3*PDstandardNth11alpha - g11*gu11*PDstandardNth11alpha - 2*g11*gu21*PDstandardNth12alpha - + 2*g11*gu31*PDstandardNth13alpha + (G111*(-3 + g11*gu11) + + g11*(2*G112*gu21 + G122*gu22 + 2*G113*gu31 + 2*G123*gu32 + G133*gu33))*PDstandardNth1alpha - + g11*gu22*PDstandardNth22alpha - 2*g11*gu32*PDstandardNth23alpha + (G211*(-3 + g11*gu11) + g11*(2*G212*gu21 + G222*gu22 + 2*G213*gu31 + 2*G223*gu32 + G233*gu33))* - PDstandard4th2alpha - g11*gu33*PDstandard4th33alpha - 3*G311*PDstandard4th3alpha + - g11*G311*gu11*PDstandard4th3alpha + 2*g11*G312*gu21*PDstandard4th3alpha + g11*G322*gu22*PDstandard4th3alpha + - 2*g11*G313*gu31*PDstandard4th3alpha + 2*g11*G323*gu32*PDstandard4th3alpha + g11*G333*gu33*PDstandard4th3alpha - + PDstandardNth2alpha - g11*gu33*PDstandardNth33alpha - 3*G311*PDstandardNth3alpha + + g11*G311*gu11*PDstandardNth3alpha + 2*g11*G312*gu21*PDstandardNth3alpha + g11*G322*gu22*PDstandardNth3alpha + + 2*g11*G313*gu31*PDstandardNth3alpha + 2*g11*G323*gu32*PDstandardNth3alpha + g11*G333*gu33*PDstandardNth3alpha - 3*alphaL*R11 + alphaL*g11*gu11*R11 + 2*alphaL*g11*gu21*R12 + 2*alphaL*g11*gu31*R13 + alphaL*g11*gu22*R22 + 2*alphaL*g11*gu32*R23 + alphaL*g11*gu33*R33) + alphaL*(-2*(At11L*Atm11 + At12L*Atm21 + At13L*Atm31) + At11L*trKL); - At12rhsL = beta1L*PDstandard4th1At12 + At22L*PDstandard4th1beta2 + At23L*PDstandard4th1beta3 + - beta2L*PDstandard4th2At12 + At11L*PDstandard4th2beta1 + At13L*PDstandard4th2beta3 + beta3L*PDstandard4th3At12 + - At12L*(PDstandard4th1beta1 + PDstandard4th2beta2 - - ktwothird*(PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3)) - - em4phi*kthird*(3*PDstandard4th12alpha + (G112*(-3 + 2*g12*gu21) + - g12*(G111*gu11 + G122*gu22 + 2*(G113*gu31 + G123*gu32) + G133*gu33))*PDstandard4th1alpha + + At12rhsL = beta1L*PDstandardNth1At12 + At22L*PDstandardNth1beta2 + At23L*PDstandardNth1beta3 + + beta2L*PDstandardNth2At12 + At11L*PDstandardNth2beta1 + At13L*PDstandardNth2beta3 + beta3L*PDstandardNth3At12 + + At12L*(PDstandardNth1beta1 + PDstandardNth2beta2 - + ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)) - + em4phi*kthird*(3*PDstandardNth12alpha + (G112*(-3 + 2*g12*gu21) + + g12*(G111*gu11 + G122*gu22 + 2*(G113*gu31 + G123*gu32) + G133*gu33))*PDstandardNth1alpha + (G212*(-3 + 2*g12*gu21) + g12*(G211*gu11 + G222*gu22 + 2*(G213*gu31 + G223*gu32) + G233*gu33))* - PDstandard4th2alpha + G312*(-3 + 2*g12*gu21)*PDstandard4th3alpha + + PDstandardNth2alpha + G312*(-3 + 2*g12*gu21)*PDstandardNth3alpha + alphaL*(-3*R12 + 2*g12*(gu31*R13 + gu32*R23)) + - g12*(-(gu11*PDstandard4th11alpha) - 2*gu21*PDstandard4th12alpha - 2*gu31*PDstandard4th13alpha - - gu22*PDstandard4th22alpha - 2*gu32*PDstandard4th23alpha - gu33*PDstandard4th33alpha + - G311*gu11*PDstandard4th3alpha + G322*gu22*PDstandard4th3alpha + 2*G313*gu31*PDstandard4th3alpha + - 2*G323*gu32*PDstandard4th3alpha + G333*gu33*PDstandard4th3alpha + alphaL*gu11*R11 + 2*alphaL*gu21*R12 + + g12*(-(gu11*PDstandardNth11alpha) - 2*gu21*PDstandardNth12alpha - 2*gu31*PDstandardNth13alpha - + gu22*PDstandardNth22alpha - 2*gu32*PDstandardNth23alpha - gu33*PDstandardNth33alpha + + G311*gu11*PDstandardNth3alpha + G322*gu22*PDstandardNth3alpha + 2*G313*gu31*PDstandardNth3alpha + + 2*G323*gu32*PDstandardNth3alpha + G333*gu33*PDstandardNth3alpha + alphaL*gu11*R11 + 2*alphaL*gu21*R12 + alphaL*gu22*R22 + alphaL*gu33*R33)) + alphaL*(-2*(At11L*Atm12 + At12L*Atm22 + At13L*Atm32) + At12L*trKL); - At13rhsL = beta1L*PDstandard4th1At13 + At23L*PDstandard4th1beta2 + At33L*PDstandard4th1beta3 + - beta2L*PDstandard4th2At13 + beta3L*PDstandard4th3At13 + At11L*PDstandard4th3beta1 + At12L*PDstandard4th3beta2 + - At13L*(PDstandard4th1beta1 + PDstandard4th3beta3 - - ktwothird*(PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3)) - - em4phi*kthird*(3*PDstandard4th13alpha + (G113*(-3 + 2*g13*gu31) + - g13*(G111*gu11 + G122*gu22 + 2*(G112*gu21 + G123*gu32) + G133*gu33))*PDstandard4th1alpha + + At13rhsL = beta1L*PDstandardNth1At13 + At23L*PDstandardNth1beta2 + At33L*PDstandardNth1beta3 + + beta2L*PDstandardNth2At13 + beta3L*PDstandardNth3At13 + At11L*PDstandardNth3beta1 + At12L*PDstandardNth3beta2 + + At13L*(PDstandardNth1beta1 + PDstandardNth3beta3 - + ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)) - + em4phi*kthird*(3*PDstandardNth13alpha + (G113*(-3 + 2*g13*gu31) + + g13*(G111*gu11 + G122*gu22 + 2*(G112*gu21 + G123*gu32) + G133*gu33))*PDstandardNth1alpha + (G213*(-3 + 2*g13*gu31) + g13*(G211*gu11 + G222*gu22 + 2*(G212*gu21 + G223*gu32) + G233*gu33))* - PDstandard4th2alpha + (G313*(-3 + 2*g13*gu31) + g13*(G322*gu22 + 2*(G312*gu21 + G323*gu32) + G333*gu33))* - PDstandard4th3alpha + g13*(-(gu11*PDstandard4th11alpha) - 2*gu21*PDstandard4th12alpha - - 2*gu31*PDstandard4th13alpha - gu22*PDstandard4th22alpha - 2*gu32*PDstandard4th23alpha - - gu33*PDstandard4th33alpha + G311*gu11*PDstandard4th3alpha + alphaL*gu11*R11 + 2*alphaL*gu21*R12 + + PDstandardNth2alpha + (G313*(-3 + 2*g13*gu31) + g13*(G322*gu22 + 2*(G312*gu21 + G323*gu32) + G333*gu33))* + PDstandardNth3alpha + g13*(-(gu11*PDstandardNth11alpha) - 2*gu21*PDstandardNth12alpha - + 2*gu31*PDstandardNth13alpha - gu22*PDstandardNth22alpha - 2*gu32*PDstandardNth23alpha - + gu33*PDstandardNth33alpha + G311*gu11*PDstandardNth3alpha + alphaL*gu11*R11 + 2*alphaL*gu21*R12 + 2*alphaL*gu31*R13 + 2*alphaL*gu32*R23) + alphaL*(-3*R13 + g13*(gu22*R22 + gu33*R33))) + alphaL*(-2*(At11L*Atm13 + At12L*Atm23 + At13L*Atm33) + At13L*trKL); - At22rhsL = beta1L*PDstandard4th1At22 + beta2L*PDstandard4th2At22 + - 2*(At12L*PDstandard4th2beta1 + At22L*PDstandard4th2beta2 + At23L*PDstandard4th2beta3) + beta3L*PDstandard4th3At22 - - At22L*ktwothird*(PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3) - - em4phi*kthird*(-(g22*gu11*PDstandard4th11alpha) - 2*g22*gu21*PDstandard4th12alpha - - 2*g22*gu31*PDstandard4th13alpha + (G122*(-3 + g22*gu22) + - g22*(G111*gu11 + 2*G112*gu21 + 2*G113*gu31 + 2*G123*gu32 + G133*gu33))*PDstandard4th1alpha + - 3*PDstandard4th22alpha - g22*gu22*PDstandard4th22alpha - 2*g22*gu32*PDstandard4th23alpha + + At22rhsL = beta1L*PDstandardNth1At22 + beta2L*PDstandardNth2At22 + + 2*(At12L*PDstandardNth2beta1 + At22L*PDstandardNth2beta2 + At23L*PDstandardNth2beta3) + beta3L*PDstandardNth3At22 - + At22L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) - + em4phi*kthird*(-(g22*gu11*PDstandardNth11alpha) - 2*g22*gu21*PDstandardNth12alpha - + 2*g22*gu31*PDstandardNth13alpha + (G122*(-3 + g22*gu22) + + g22*(G111*gu11 + 2*G112*gu21 + 2*G113*gu31 + 2*G123*gu32 + G133*gu33))*PDstandardNth1alpha + + 3*PDstandardNth22alpha - g22*gu22*PDstandardNth22alpha - 2*g22*gu32*PDstandardNth23alpha + (G222*(-3 + g22*gu22) + g22*(G211*gu11 + 2*G212*gu21 + 2*G213*gu31 + 2*G223*gu32 + G233*gu33))* - PDstandard4th2alpha - g22*gu33*PDstandard4th33alpha - 3*G322*PDstandard4th3alpha + - g22*G311*gu11*PDstandard4th3alpha + 2*g22*G312*gu21*PDstandard4th3alpha + g22*G322*gu22*PDstandard4th3alpha + - 2*g22*G313*gu31*PDstandard4th3alpha + 2*g22*G323*gu32*PDstandard4th3alpha + g22*G333*gu33*PDstandard4th3alpha + + PDstandardNth2alpha - g22*gu33*PDstandardNth33alpha - 3*G322*PDstandardNth3alpha + + g22*G311*gu11*PDstandardNth3alpha + 2*g22*G312*gu21*PDstandardNth3alpha + g22*G322*gu22*PDstandardNth3alpha + + 2*g22*G313*gu31*PDstandardNth3alpha + 2*g22*G323*gu32*PDstandardNth3alpha + g22*G333*gu33*PDstandardNth3alpha + alphaL*g22*gu11*R11 + 2*alphaL*g22*gu21*R12 + 2*alphaL*g22*gu31*R13 - 3*alphaL*R22 + alphaL*g22*gu22*R22 + 2*alphaL*g22*gu32*R23 + alphaL*g22*gu33*R33) + alphaL*(-2*(At12L*Atm12 + At22L*Atm22 + At23L*Atm32) + At22L*trKL); - At23rhsL = beta1L*PDstandard4th1At23 + beta2L*PDstandard4th2At23 + At13L*PDstandard4th2beta1 + - At33L*PDstandard4th2beta3 + beta3L*PDstandard4th3At23 + At12L*PDstandard4th3beta1 + At22L*PDstandard4th3beta2 + - At23L*(PDstandard4th2beta2 + PDstandard4th3beta3 - - ktwothird*(PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3)) - + At23rhsL = beta1L*PDstandardNth1At23 + beta2L*PDstandardNth2At23 + At13L*PDstandardNth2beta1 + + At33L*PDstandardNth2beta3 + beta3L*PDstandardNth3At23 + At12L*PDstandardNth3beta1 + At22L*PDstandardNth3beta2 + + At23L*(PDstandardNth2beta2 + PDstandardNth3beta3 - + ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3)) - em4phi*kthird*((G123*(-3 + 2*g23*gu32) + g23*(G111*gu11 + G122*gu22 + 2*(G112*gu21 + G113*gu31) + G133*gu33))* - PDstandard4th1alpha + 3*PDstandard4th23alpha + + PDstandardNth1alpha + 3*PDstandardNth23alpha + (G223*(-3 + 2*g23*gu32) + g23*(G211*gu11 + G222*gu22 + 2*(G212*gu21 + G213*gu31) + G233*gu33))* - PDstandard4th2alpha + (G323*(-3 + 2*g23*gu32) + g23*(G322*gu22 + 2*(G312*gu21 + G313*gu31) + G333*gu33))* - PDstandard4th3alpha + g23*(-(gu11*PDstandard4th11alpha) - 2*gu21*PDstandard4th12alpha - - 2*gu31*PDstandard4th13alpha - gu22*PDstandard4th22alpha - 2*gu32*PDstandard4th23alpha - - gu33*PDstandard4th33alpha + G311*gu11*PDstandard4th3alpha + alphaL*gu11*R11 + 2*alphaL*gu21*R12 + + PDstandardNth2alpha + (G323*(-3 + 2*g23*gu32) + g23*(G322*gu22 + 2*(G312*gu21 + G313*gu31) + G333*gu33))* + PDstandardNth3alpha + g23*(-(gu11*PDstandardNth11alpha) - 2*gu21*PDstandardNth12alpha - + 2*gu31*PDstandardNth13alpha - gu22*PDstandardNth22alpha - 2*gu32*PDstandardNth23alpha - + gu33*PDstandardNth33alpha + G311*gu11*PDstandardNth3alpha + alphaL*gu11*R11 + 2*alphaL*gu21*R12 + 2*alphaL*gu31*R13 + alphaL*gu22*R22 + 2*alphaL*gu32*R23) + alphaL*(-3*R23 + g23*gu33*R33)) + alphaL*(-2*(At12L*Atm13 + At22L*Atm23 + At23L*Atm33) + At23L*trKL); - At33rhsL = beta1L*PDstandard4th1At33 + beta2L*PDstandard4th2At33 + beta3L*PDstandard4th3At33 - - At33L*ktwothird*(PDstandard4th1beta1 + PDstandard4th2beta2 + PDstandard4th3beta3) + - 2*(At13L*PDstandard4th3beta1 + At23L*PDstandard4th3beta2 + At33L*PDstandard4th3beta3) - - em4phi*kthird*(-(g33*gu11*PDstandard4th11alpha) - 2*g33*gu21*PDstandard4th12alpha - - 2*g33*gu31*PDstandard4th13alpha + (g33*(G111*gu11 + 2*G112*gu21 + G122*gu22 + 2*G113*gu31 + 2*G123*gu32) + - G133*(-3 + g33*gu33))*PDstandard4th1alpha - g33*gu22*PDstandard4th22alpha - 2*g33*gu32*PDstandard4th23alpha + + At33rhsL = beta1L*PDstandardNth1At33 + beta2L*PDstandardNth2At33 + beta3L*PDstandardNth3At33 - + At33L*ktwothird*(PDstandardNth1beta1 + PDstandardNth2beta2 + PDstandardNth3beta3) + + 2*(At13L*PDstandardNth3beta1 + At23L*PDstandardNth3beta2 + At33L*PDstandardNth3beta3) - + em4phi*kthird*(-(g33*gu11*PDstandardNth11alpha) - 2*g33*gu21*PDstandardNth12alpha - + 2*g33*gu31*PDstandardNth13alpha + (g33*(G111*gu11 + 2*G112*gu21 + G122*gu22 + 2*G113*gu31 + 2*G123*gu32) + + G133*(-3 + g33*gu33))*PDstandardNth1alpha - g33*gu22*PDstandardNth22alpha - 2*g33*gu32*PDstandardNth23alpha + (g33*(G211*gu11 + 2*G212*gu21 + G222*gu22 + 2*G213*gu31 + 2*G223*gu32) + G233*(-3 + g33*gu33))* - PDstandard4th2alpha + 3*PDstandard4th33alpha - g33*gu33*PDstandard4th33alpha - 3*G333*PDstandard4th3alpha + - G311*g33*gu11*PDstandard4th3alpha + 2*G312*g33*gu21*PDstandard4th3alpha + G322*g33*gu22*PDstandard4th3alpha + - 2*G313*g33*gu31*PDstandard4th3alpha + 2*G323*g33*gu32*PDstandard4th3alpha + g33*G333*gu33*PDstandard4th3alpha + + PDstandardNth2alpha + 3*PDstandardNth33alpha - g33*gu33*PDstandardNth33alpha - 3*G333*PDstandardNth3alpha + + G311*g33*gu11*PDstandardNth3alpha + 2*G312*g33*gu21*PDstandardNth3alpha + G322*g33*gu22*PDstandardNth3alpha + + 2*G313*g33*gu31*PDstandardNth3alpha + 2*G323*g33*gu32*PDstandardNth3alpha + g33*G333*gu33*PDstandardNth3alpha + alphaL*g33*gu11*R11 + 2*alphaL*g33*gu21*R12 + 2*alphaL*g33*gu31*R13 + alphaL*g33*gu22*R22 + 2*alphaL*g33*gu32*R23 - 3*alphaL*R33 + alphaL*g33*gu33*R33) + alphaL*(-2*(At13L*Atm13 + At23L*Atm23 + At33L*Atm33) + At33L*trKL); - alpharhsL = beta1L*PDstandard4th1alpha + beta2L*PDstandard4th2alpha + beta3L*PDstandard4th3alpha - + alpharhsL = beta1L*PDstandardNth1alpha + beta2L*PDstandardNth2alpha + beta3L*PDstandardNth3alpha - AL*harmonicF*pow(alphaL,harmonicN); ArhsL = -(AL*AlphaDriver) + trKrhsL; diff --git a/ML_BSSN/src/ML_BSSN_constraints.c b/ML_BSSN/src/ML_BSSN_constraints.c index fc1c71e..bb3802f 100644 --- a/ML_BSSN/src/ML_BSSN_constraints.c +++ b/ML_BSSN/src/ML_BSSN_constraints.c @@ -141,117 +141,117 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA /* Declare precomputed derivatives*/ /* Declare derivatives */ - CCTK_REAL PDstandard4th2At11 = INITVALUE; - CCTK_REAL PDstandard4th3At11 = INITVALUE; - CCTK_REAL PDstandard4th1At12 = INITVALUE; - CCTK_REAL PDstandard4th2At12 = INITVALUE; - CCTK_REAL PDstandard4th3At12 = INITVALUE; - CCTK_REAL PDstandard4th1At13 = INITVALUE; - CCTK_REAL PDstandard4th2At13 = INITVALUE; - CCTK_REAL PDstandard4th3At13 = INITVALUE; - CCTK_REAL PDstandard4th1At22 = INITVALUE; - CCTK_REAL PDstandard4th3At22 = INITVALUE; - CCTK_REAL PDstandard4th1At23 = INITVALUE; - CCTK_REAL PDstandard4th2At23 = INITVALUE; - CCTK_REAL PDstandard4th3At23 = INITVALUE; - CCTK_REAL PDstandard4th1At33 = INITVALUE; - CCTK_REAL PDstandard4th2At33 = INITVALUE; - CCTK_REAL PDstandard4th1gt11 = INITVALUE; - CCTK_REAL PDstandard4th2gt11 = INITVALUE; - CCTK_REAL PDstandard4th3gt11 = INITVALUE; - CCTK_REAL PDstandard4th11gt11 = INITVALUE; - CCTK_REAL PDstandard4th22gt11 = INITVALUE; - CCTK_REAL PDstandard4th33gt11 = INITVALUE; - CCTK_REAL PDstandard4th12gt11 = INITVALUE; - CCTK_REAL PDstandard4th13gt11 = INITVALUE; - CCTK_REAL PDstandard4th21gt11 = INITVALUE; - CCTK_REAL PDstandard4th23gt11 = INITVALUE; - CCTK_REAL PDstandard4th31gt11 = INITVALUE; - CCTK_REAL PDstandard4th32gt11 = INITVALUE; - CCTK_REAL PDstandard4th1gt12 = INITVALUE; - CCTK_REAL PDstandard4th2gt12 = INITVALUE; - CCTK_REAL PDstandard4th3gt12 = INITVALUE; - CCTK_REAL PDstandard4th11gt12 = INITVALUE; - CCTK_REAL PDstandard4th22gt12 = INITVALUE; - CCTK_REAL PDstandard4th33gt12 = INITVALUE; - CCTK_REAL PDstandard4th12gt12 = INITVALUE; - CCTK_REAL PDstandard4th13gt12 = INITVALUE; - CCTK_REAL PDstandard4th21gt12 = INITVALUE; - CCTK_REAL PDstandard4th23gt12 = INITVALUE; - CCTK_REAL PDstandard4th31gt12 = INITVALUE; - CCTK_REAL PDstandard4th32gt12 = INITVALUE; - CCTK_REAL PDstandard4th1gt13 = INITVALUE; - CCTK_REAL PDstandard4th2gt13 = INITVALUE; - CCTK_REAL PDstandard4th3gt13 = INITVALUE; - CCTK_REAL PDstandard4th11gt13 = INITVALUE; - CCTK_REAL PDstandard4th22gt13 = INITVALUE; - CCTK_REAL PDstandard4th33gt13 = INITVALUE; - CCTK_REAL PDstandard4th12gt13 = INITVALUE; - CCTK_REAL PDstandard4th13gt13 = INITVALUE; - CCTK_REAL PDstandard4th21gt13 = INITVALUE; - CCTK_REAL PDstandard4th23gt13 = INITVALUE; - CCTK_REAL PDstandard4th31gt13 = INITVALUE; - CCTK_REAL PDstandard4th32gt13 = INITVALUE; - CCTK_REAL PDstandard4th1gt22 = INITVALUE; - CCTK_REAL PDstandard4th2gt22 = INITVALUE; - CCTK_REAL PDstandard4th3gt22 = INITVALUE; - CCTK_REAL PDstandard4th11gt22 = INITVALUE; - CCTK_REAL PDstandard4th22gt22 = INITVALUE; - CCTK_REAL PDstandard4th33gt22 = INITVALUE; - CCTK_REAL PDstandard4th12gt22 = INITVALUE; - CCTK_REAL PDstandard4th13gt22 = INITVALUE; - CCTK_REAL PDstandard4th21gt22 = INITVALUE; - CCTK_REAL PDstandard4th23gt22 = INITVALUE; - CCTK_REAL PDstandard4th31gt22 = INITVALUE; - CCTK_REAL PDstandard4th32gt22 = INITVALUE; - CCTK_REAL PDstandard4th1gt23 = INITVALUE; - CCTK_REAL PDstandard4th2gt23 = INITVALUE; - CCTK_REAL PDstandard4th3gt23 = INITVALUE; - CCTK_REAL PDstandard4th11gt23 = INITVALUE; - CCTK_REAL PDstandard4th22gt23 = INITVALUE; - CCTK_REAL PDstandard4th33gt23 = INITVALUE; - CCTK_REAL PDstandard4th12gt23 = INITVALUE; - CCTK_REAL PDstandard4th13gt23 = INITVALUE; - CCTK_REAL PDstandard4th21gt23 = INITVALUE; - CCTK_REAL PDstandard4th23gt23 = INITVALUE; - CCTK_REAL PDstandard4th31gt23 = INITVALUE; - CCTK_REAL PDstandard4th32gt23 = INITVALUE; - CCTK_REAL PDstandard4th1gt33 = INITVALUE; - CCTK_REAL PDstandard4th2gt33 = INITVALUE; - CCTK_REAL PDstandard4th3gt33 = INITVALUE; - CCTK_REAL PDstandard4th11gt33 = INITVALUE; - CCTK_REAL PDstandard4th22gt33 = INITVALUE; - CCTK_REAL PDstandard4th33gt33 = INITVALUE; - CCTK_REAL PDstandard4th12gt33 = INITVALUE; - CCTK_REAL PDstandard4th13gt33 = INITVALUE; - CCTK_REAL PDstandard4th21gt33 = INITVALUE; - CCTK_REAL PDstandard4th23gt33 = INITVALUE; - CCTK_REAL PDstandard4th31gt33 = INITVALUE; - CCTK_REAL PDstandard4th32gt33 = INITVALUE; - CCTK_REAL PDstandard4th1phi = INITVALUE; - CCTK_REAL PDstandard4th2phi = INITVALUE; - CCTK_REAL PDstandard4th3phi = INITVALUE; - CCTK_REAL PDstandard4th11phi = INITVALUE; - CCTK_REAL PDstandard4th22phi = INITVALUE; - CCTK_REAL PDstandard4th33phi = INITVALUE; - CCTK_REAL PDstandard4th12phi = INITVALUE; - CCTK_REAL PDstandard4th13phi = INITVALUE; - CCTK_REAL PDstandard4th21phi = INITVALUE; - CCTK_REAL PDstandard4th23phi = INITVALUE; - CCTK_REAL PDstandard4th31phi = INITVALUE; - CCTK_REAL PDstandard4th32phi = INITVALUE; - CCTK_REAL PDstandard4th1trK = INITVALUE; - CCTK_REAL PDstandard4th2trK = INITVALUE; - CCTK_REAL PDstandard4th3trK = INITVALUE; - CCTK_REAL PDstandard4th1Xt1 = INITVALUE; - CCTK_REAL PDstandard4th2Xt1 = INITVALUE; - CCTK_REAL PDstandard4th3Xt1 = INITVALUE; - CCTK_REAL PDstandard4th1Xt2 = INITVALUE; - CCTK_REAL PDstandard4th2Xt2 = INITVALUE; - CCTK_REAL PDstandard4th3Xt2 = INITVALUE; - CCTK_REAL PDstandard4th1Xt3 = INITVALUE; - CCTK_REAL PDstandard4th2Xt3 = INITVALUE; - CCTK_REAL PDstandard4th3Xt3 = INITVALUE; + CCTK_REAL PDstandardNth2At11 = INITVALUE; + CCTK_REAL PDstandardNth3At11 = INITVALUE; + CCTK_REAL PDstandardNth1At12 = INITVALUE; + CCTK_REAL PDstandardNth2At12 = INITVALUE; + CCTK_REAL PDstandardNth3At12 = INITVALUE; + CCTK_REAL PDstandardNth1At13 = INITVALUE; + CCTK_REAL PDstandardNth2At13 = INITVALUE; + CCTK_REAL PDstandardNth3At13 = INITVALUE; + CCTK_REAL PDstandardNth1At22 = INITVALUE; + CCTK_REAL PDstandardNth3At22 = INITVALUE; + CCTK_REAL PDstandardNth1At23 = INITVALUE; + CCTK_REAL PDstandardNth2At23 = INITVALUE; + CCTK_REAL PDstandardNth3At23 = INITVALUE; + CCTK_REAL PDstandardNth1At33 = INITVALUE; + CCTK_REAL PDstandardNth2At33 = INITVALUE; + CCTK_REAL PDstandardNth1gt11 = INITVALUE; + CCTK_REAL PDstandardNth2gt11 = INITVALUE; + CCTK_REAL PDstandardNth3gt11 = INITVALUE; + CCTK_REAL PDstandardNth11gt11 = INITVALUE; + CCTK_REAL PDstandardNth22gt11 = INITVALUE; + CCTK_REAL PDstandardNth33gt11 = INITVALUE; + CCTK_REAL PDstandardNth12gt11 = INITVALUE; + CCTK_REAL PDstandardNth13gt11 = INITVALUE; + CCTK_REAL PDstandardNth21gt11 = INITVALUE; + CCTK_REAL PDstandardNth23gt11 = INITVALUE; + CCTK_REAL PDstandardNth31gt11 = INITVALUE; + CCTK_REAL PDstandardNth32gt11 = INITVALUE; + CCTK_REAL PDstandardNth1gt12 = INITVALUE; + CCTK_REAL PDstandardNth2gt12 = INITVALUE; + CCTK_REAL PDstandardNth3gt12 = INITVALUE; + CCTK_REAL PDstandardNth11gt12 = INITVALUE; + CCTK_REAL PDstandardNth22gt12 = INITVALUE; + CCTK_REAL PDstandardNth33gt12 = INITVALUE; + CCTK_REAL PDstandardNth12gt12 = INITVALUE; + CCTK_REAL PDstandardNth13gt12 = INITVALUE; + CCTK_REAL PDstandardNth21gt12 = INITVALUE; + CCTK_REAL PDstandardNth23gt12 = INITVALUE; + CCTK_REAL PDstandardNth31gt12 = INITVALUE; + CCTK_REAL PDstandardNth32gt12 = INITVALUE; + CCTK_REAL PDstandardNth1gt13 = INITVALUE; + CCTK_REAL PDstandardNth2gt13 = INITVALUE; + CCTK_REAL PDstandardNth3gt13 = INITVALUE; + CCTK_REAL PDstandardNth11gt13 = INITVALUE; + CCTK_REAL PDstandardNth22gt13 = INITVALUE; + CCTK_REAL PDstandardNth33gt13 = INITVALUE; + CCTK_REAL PDstandardNth12gt13 = INITVALUE; + CCTK_REAL PDstandardNth13gt13 = INITVALUE; + CCTK_REAL PDstandardNth21gt13 = INITVALUE; + CCTK_REAL PDstandardNth23gt13 = INITVALUE; + CCTK_REAL PDstandardNth31gt13 = INITVALUE; + CCTK_REAL PDstandardNth32gt13 = INITVALUE; + CCTK_REAL PDstandardNth1gt22 = INITVALUE; + CCTK_REAL PDstandardNth2gt22 = INITVALUE; + CCTK_REAL PDstandardNth3gt22 = INITVALUE; + CCTK_REAL PDstandardNth11gt22 = INITVALUE; + CCTK_REAL PDstandardNth22gt22 = INITVALUE; + CCTK_REAL PDstandardNth33gt22 = INITVALUE; + CCTK_REAL PDstandardNth12gt22 = INITVALUE; + CCTK_REAL PDstandardNth13gt22 = INITVALUE; + CCTK_REAL PDstandardNth21gt22 = INITVALUE; + CCTK_REAL PDstandardNth23gt22 = INITVALUE; + CCTK_REAL PDstandardNth31gt22 = INITVALUE; + CCTK_REAL PDstandardNth32gt22 = INITVALUE; + CCTK_REAL PDstandardNth1gt23 = INITVALUE; + CCTK_REAL PDstandardNth2gt23 = INITVALUE; + CCTK_REAL PDstandardNth3gt23 = INITVALUE; + CCTK_REAL PDstandardNth11gt23 = INITVALUE; + CCTK_REAL PDstandardNth22gt23 = INITVALUE; + CCTK_REAL PDstandardNth33gt23 = INITVALUE; + CCTK_REAL PDstandardNth12gt23 = INITVALUE; + CCTK_REAL PDstandardNth13gt23 = INITVALUE; + CCTK_REAL PDstandardNth21gt23 = INITVALUE; + CCTK_REAL PDstandardNth23gt23 = INITVALUE; + CCTK_REAL PDstandardNth31gt23 = INITVALUE; + CCTK_REAL PDstandardNth32gt23 = INITVALUE; + CCTK_REAL PDstandardNth1gt33 = INITVALUE; + CCTK_REAL PDstandardNth2gt33 = INITVALUE; + CCTK_REAL PDstandardNth3gt33 = INITVALUE; + CCTK_REAL PDstandardNth11gt33 = INITVALUE; + CCTK_REAL PDstandardNth22gt33 = INITVALUE; + CCTK_REAL PDstandardNth33gt33 = INITVALUE; + CCTK_REAL PDstandardNth12gt33 = INITVALUE; + CCTK_REAL PDstandardNth13gt33 = INITVALUE; + CCTK_REAL PDstandardNth21gt33 = INITVALUE; + CCTK_REAL PDstandardNth23gt33 = INITVALUE; + CCTK_REAL PDstandardNth31gt33 = INITVALUE; + CCTK_REAL PDstandardNth32gt33 = INITVALUE; + CCTK_REAL PDstandardNth1phi = INITVALUE; + CCTK_REAL PDstandardNth2phi = INITVALUE; + CCTK_REAL PDstandardNth3phi = INITVALUE; + CCTK_REAL PDstandardNth11phi = INITVALUE; + CCTK_REAL PDstandardNth22phi = INITVALUE; + CCTK_REAL PDstandardNth33phi = INITVALUE; + CCTK_REAL PDstandardNth12phi = INITVALUE; + CCTK_REAL PDstandardNth13phi = INITVALUE; + CCTK_REAL PDstandardNth21phi = INITVALUE; + CCTK_REAL PDstandardNth23phi = INITVALUE; + CCTK_REAL PDstandardNth31phi = INITVALUE; + CCTK_REAL PDstandardNth32phi = INITVALUE; + CCTK_REAL PDstandardNth1trK = INITVALUE; + CCTK_REAL PDstandardNth2trK = INITVALUE; + CCTK_REAL PDstandardNth3trK = INITVALUE; + CCTK_REAL PDstandardNth1Xt1 = INITVALUE; + CCTK_REAL PDstandardNth2Xt1 = INITVALUE; + CCTK_REAL PDstandardNth3Xt1 = INITVALUE; + CCTK_REAL PDstandardNth1Xt2 = INITVALUE; + CCTK_REAL PDstandardNth2Xt2 = INITVALUE; + CCTK_REAL PDstandardNth3Xt2 = INITVALUE; + CCTK_REAL PDstandardNth1Xt3 = INITVALUE; + CCTK_REAL PDstandardNth2Xt3 = INITVALUE; + CCTK_REAL PDstandardNth3Xt3 = INITVALUE; /* Assign local copies of grid functions */ At11L = At11[index]; @@ -277,96 +277,96 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA /* Include user supplied include files */ /* Precompute derivatives (new style) */ - PDstandard4th2At11 = PDstandard4th2(At11, i, j, k); - PDstandard4th3At11 = PDstandard4th3(At11, i, j, k); - PDstandard4th1At12 = PDstandard4th1(At12, i, j, k); - PDstandard4th2At12 = PDstandard4th2(At12, i, j, k); - PDstandard4th3At12 = PDstandard4th3(At12, i, j, k); - PDstandard4th1At13 = PDstandard4th1(At13, i, j, k); - PDstandard4th2At13 = PDstandard4th2(At13, i, j, k); - PDstandard4th3At13 = PDstandard4th3(At13, i, j, k); - PDstandard4th1At22 = PDstandard4th1(At22, i, j, k); - PDstandard4th3At22 = PDstandard4th3(At22, i, j, k); - PDstandard4th1At23 = PDstandard4th1(At23, i, j, k); - PDstandard4th2At23 = PDstandard4th2(At23, i, j, k); - PDstandard4th3At23 = PDstandard4th3(At23, i, j, k); - PDstandard4th1At33 = PDstandard4th1(At33, i, j, k); - PDstandard4th2At33 = PDstandard4th2(At33, i, j, k); - PDstandard4th1gt11 = PDstandard4th1(gt11, i, j, k); - PDstandard4th2gt11 = PDstandard4th2(gt11, i, j, k); - PDstandard4th3gt11 = PDstandard4th3(gt11, i, j, k); - PDstandard4th11gt11 = PDstandard4th11(gt11, i, j, k); - PDstandard4th22gt11 = PDstandard4th22(gt11, i, j, k); - PDstandard4th33gt11 = PDstandard4th33(gt11, i, j, k); - PDstandard4th12gt11 = PDstandard4th12(gt11, i, j, k); - PDstandard4th13gt11 = PDstandard4th13(gt11, i, j, k); - PDstandard4th23gt11 = PDstandard4th23(gt11, i, j, k); - PDstandard4th1gt12 = PDstandard4th1(gt12, i, j, k); - PDstandard4th2gt12 = PDstandard4th2(gt12, i, j, k); - PDstandard4th3gt12 = PDstandard4th3(gt12, i, j, k); - PDstandard4th11gt12 = PDstandard4th11(gt12, i, j, k); - PDstandard4th22gt12 = PDstandard4th22(gt12, i, j, k); - PDstandard4th33gt12 = PDstandard4th33(gt12, i, j, k); - PDstandard4th12gt12 = PDstandard4th12(gt12, i, j, k); - PDstandard4th13gt12 = PDstandard4th13(gt12, i, j, k); - PDstandard4th23gt12 = PDstandard4th23(gt12, i, j, k); - PDstandard4th1gt13 = PDstandard4th1(gt13, i, j, k); - PDstandard4th2gt13 = PDstandard4th2(gt13, i, j, k); - PDstandard4th3gt13 = PDstandard4th3(gt13, i, j, k); - PDstandard4th11gt13 = PDstandard4th11(gt13, i, j, k); - PDstandard4th22gt13 = PDstandard4th22(gt13, i, j, k); - PDstandard4th33gt13 = PDstandard4th33(gt13, i, j, k); - PDstandard4th12gt13 = PDstandard4th12(gt13, i, j, k); - PDstandard4th13gt13 = PDstandard4th13(gt13, i, j, k); - PDstandard4th23gt13 = PDstandard4th23(gt13, i, j, k); - PDstandard4th1gt22 = PDstandard4th1(gt22, i, j, k); - PDstandard4th2gt22 = PDstandard4th2(gt22, i, j, k); - PDstandard4th3gt22 = PDstandard4th3(gt22, i, j, k); - PDstandard4th11gt22 = PDstandard4th11(gt22, i, j, k); - PDstandard4th22gt22 = PDstandard4th22(gt22, i, j, k); - PDstandard4th33gt22 = PDstandard4th33(gt22, i, j, k); - PDstandard4th12gt22 = PDstandard4th12(gt22, i, j, k); - PDstandard4th13gt22 = PDstandard4th13(gt22, i, j, k); - PDstandard4th23gt22 = PDstandard4th23(gt22, i, j, k); - PDstandard4th1gt23 = PDstandard4th1(gt23, i, j, k); - PDstandard4th2gt23 = PDstandard4th2(gt23, i, j, k); - PDstandard4th3gt23 = PDstandard4th3(gt23, i, j, k); - PDstandard4th11gt23 = PDstandard4th11(gt23, i, j, k); - PDstandard4th22gt23 = PDstandard4th22(gt23, i, j, k); - PDstandard4th33gt23 = PDstandard4th33(gt23, i, j, k); - PDstandard4th12gt23 = PDstandard4th12(gt23, i, j, k); - PDstandard4th13gt23 = PDstandard4th13(gt23, i, j, k); - PDstandard4th23gt23 = PDstandard4th23(gt23, i, j, k); - PDstandard4th1gt33 = PDstandard4th1(gt33, i, j, k); - PDstandard4th2gt33 = PDstandard4th2(gt33, i, j, k); - PDstandard4th3gt33 = PDstandard4th3(gt33, i, j, k); - PDstandard4th11gt33 = PDstandard4th11(gt33, i, j, k); - PDstandard4th22gt33 = PDstandard4th22(gt33, i, j, k); - PDstandard4th33gt33 = PDstandard4th33(gt33, i, j, k); - PDstandard4th12gt33 = PDstandard4th12(gt33, i, j, k); - PDstandard4th13gt33 = PDstandard4th13(gt33, i, j, k); - PDstandard4th23gt33 = PDstandard4th23(gt33, i, j, k); - PDstandard4th1phi = PDstandard4th1(phi, i, j, k); - PDstandard4th2phi = PDstandard4th2(phi, i, j, k); - PDstandard4th3phi = PDstandard4th3(phi, i, j, k); - PDstandard4th11phi = PDstandard4th11(phi, i, j, k); - PDstandard4th22phi = PDstandard4th22(phi, i, j, k); - PDstandard4th33phi = PDstandard4th33(phi, i, j, k); - PDstandard4th12phi = PDstandard4th12(phi, i, j, k); - PDstandard4th13phi = PDstandard4th13(phi, i, j, k); - PDstandard4th23phi = PDstandard4th23(phi, i, j, k); - PDstandard4th1trK = PDstandard4th1(trK, i, j, k); - PDstandard4th2trK = PDstandard4th2(trK, i, j, k); - PDstandard4th3trK = PDstandard4th3(trK, i, j, k); - PDstandard4th1Xt1 = PDstandard4th1(Xt1, i, j, k); - PDstandard4th2Xt1 = PDstandard4th2(Xt1, i, j, k); - PDstandard4th3Xt1 = PDstandard4th3(Xt1, i, j, k); - PDstandard4th1Xt2 = PDstandard4th1(Xt2, i, j, k); - PDstandard4th2Xt2 = PDstandard4th2(Xt2, i, j, k); - PDstandard4th3Xt2 = PDstandard4th3(Xt2, i, j, k); - PDstandard4th1Xt3 = PDstandard4th1(Xt3, i, j, k); - PDstandard4th2Xt3 = PDstandard4th2(Xt3, i, j, k); - PDstandard4th3Xt3 = PDstandard4th3(Xt3, i, j, k); + PDstandardNth2At11 = PDstandardNth2(At11, i, j, k); + PDstandardNth3At11 = PDstandardNth3(At11, i, j, k); + PDstandardNth1At12 = PDstandardNth1(At12, i, j, k); + PDstandardNth2At12 = PDstandardNth2(At12, i, j, k); + PDstandardNth3At12 = PDstandardNth3(At12, i, j, k); + PDstandardNth1At13 = PDstandardNth1(At13, i, j, k); + PDstandardNth2At13 = PDstandardNth2(At13, i, j, k); + PDstandardNth3At13 = PDstandardNth3(At13, i, j, k); + PDstandardNth1At22 = PDstandardNth1(At22, i, j, k); + PDstandardNth3At22 = PDstandardNth3(At22, i, j, k); + PDstandardNth1At23 = PDstandardNth1(At23, i, j, k); + PDstandardNth2At23 = PDstandardNth2(At23, i, j, k); + PDstandardNth3At23 = PDstandardNth3(At23, i, j, k); + PDstandardNth1At33 = PDstandardNth1(At33, i, j, k); + PDstandardNth2At33 = PDstandardNth2(At33, i, j, k); + PDstandardNth1gt11 = PDstandardNth1(gt11, i, j, k); + PDstandardNth2gt11 = PDstandardNth2(gt11, i, j, k); + PDstandardNth3gt11 = PDstandardNth3(gt11, i, j, k); + PDstandardNth11gt11 = PDstandardNth11(gt11, i, j, k); + PDstandardNth22gt11 = PDstandardNth22(gt11, i, j, k); + PDstandardNth33gt11 = PDstandardNth33(gt11, i, j, k); + PDstandardNth12gt11 = PDstandardNth12(gt11, i, j, k); + PDstandardNth13gt11 = PDstandardNth13(gt11, i, j, k); + PDstandardNth23gt11 = PDstandardNth23(gt11, i, j, k); + PDstandardNth1gt12 = PDstandardNth1(gt12, i, j, k); + PDstandardNth2gt12 = PDstandardNth2(gt12, i, j, k); + PDstandardNth3gt12 = PDstandardNth3(gt12, i, j, k); + PDstandardNth11gt12 = PDstandardNth11(gt12, i, j, k); + PDstandardNth22gt12 = PDstandardNth22(gt12, i, j, k); + PDstandardNth33gt12 = PDstandardNth33(gt12, i, j, k); + PDstandardNth12gt12 = PDstandardNth12(gt12, i, j, k); + PDstandardNth13gt12 = PDstandardNth13(gt12, i, j, k); + PDstandardNth23gt12 = PDstandardNth23(gt12, i, j, k); + PDstandardNth1gt13 = PDstandardNth1(gt13, i, j, k); + PDstandardNth2gt13 = PDstandardNth2(gt13, i, j, k); + PDstandardNth3gt13 = PDstandardNth3(gt13, i, j, k); + PDstandardNth11gt13 = PDstandardNth11(gt13, i, j, k); + PDstandardNth22gt13 = PDstandardNth22(gt13, i, j, k); + PDstandardNth33gt13 = PDstandardNth33(gt13, i, j, k); + PDstandardNth12gt13 = PDstandardNth12(gt13, i, j, k); + PDstandardNth13gt13 = PDstandardNth13(gt13, i, j, k); + PDstandardNth23gt13 = PDstandardNth23(gt13, i, j, k); + PDstandardNth1gt22 = PDstandardNth1(gt22, i, j, k); + PDstandardNth2gt22 = PDstandardNth2(gt22, i, j, k); + PDstandardNth3gt22 = PDstandardNth3(gt22, i, j, k); + PDstandardNth11gt22 = PDstandardNth11(gt22, i, j, k); + PDstandardNth22gt22 = PDstandardNth22(gt22, i, j, k); + PDstandardNth33gt22 = PDstandardNth33(gt22, i, j, k); + PDstandardNth12gt22 = PDstandardNth12(gt22, i, j, k); + PDstandardNth13gt22 = PDstandardNth13(gt22, i, j, k); + PDstandardNth23gt22 = PDstandardNth23(gt22, i, j, k); + PDstandardNth1gt23 = PDstandardNth1(gt23, i, j, k); + PDstandardNth2gt23 = PDstandardNth2(gt23, i, j, k); + PDstandardNth3gt23 = PDstandardNth3(gt23, i, j, k); + PDstandardNth11gt23 = PDstandardNth11(gt23, i, j, k); + PDstandardNth22gt23 = PDstandardNth22(gt23, i, j, k); + PDstandardNth33gt23 = PDstandardNth33(gt23, i, j, k); + PDstandardNth12gt23 = PDstandardNth12(gt23, i, j, k); + PDstandardNth13gt23 = PDstandardNth13(gt23, i, j, k); + PDstandardNth23gt23 = PDstandardNth23(gt23, i, j, k); + PDstandardNth1gt33 = PDstandardNth1(gt33, i, j, k); + PDstandardNth2gt33 = PDstandardNth2(gt33, i, j, k); + PDstandardNth3gt33 = PDstandardNth3(gt33, i, j, k); + PDstandardNth11gt33 = PDstandardNth11(gt33, i, j, k); + PDstandardNth22gt33 = PDstandardNth22(gt33, i, j, k); + PDstandardNth33gt33 = PDstandardNth33(gt33, i, j, k); + PDstandardNth12gt33 = PDstandardNth12(gt33, i, j, k); + PDstandardNth13gt33 = PDstandardNth13(gt33, i, j, k); + PDstandardNth23gt33 = PDstandardNth23(gt33, i, j, k); + PDstandardNth1phi = PDstandardNth1(phi, i, j, k); + PDstandardNth2phi = PDstandardNth2(phi, i, j, k); + PDstandardNth3phi = PDstandardNth3(phi, i, j, k); + PDstandardNth11phi = PDstandardNth11(phi, i, j, k); + PDstandardNth22phi = PDstandardNth22(phi, i, j, k); + PDstandardNth33phi = PDstandardNth33(phi, i, j, k); + PDstandardNth12phi = PDstandardNth12(phi, i, j, k); + PDstandardNth13phi = PDstandardNth13(phi, i, j, k); + PDstandardNth23phi = PDstandardNth23(phi, i, j, k); + PDstandardNth1trK = PDstandardNth1(trK, i, j, k); + PDstandardNth2trK = PDstandardNth2(trK, i, j, k); + PDstandardNth3trK = PDstandardNth3(trK, i, j, k); + PDstandardNth1Xt1 = PDstandardNth1(Xt1, i, j, k); + PDstandardNth2Xt1 = PDstandardNth2(Xt1, i, j, k); + PDstandardNth3Xt1 = PDstandardNth3(Xt1, i, j, k); + PDstandardNth1Xt2 = PDstandardNth1(Xt2, i, j, k); + PDstandardNth2Xt2 = PDstandardNth2(Xt2, i, j, k); + PDstandardNth3Xt2 = PDstandardNth3(Xt2, i, j, k); + PDstandardNth1Xt3 = PDstandardNth1(Xt3, i, j, k); + PDstandardNth2Xt3 = PDstandardNth2(Xt3, i, j, k); + PDstandardNth3Xt3 = PDstandardNth3(Xt3, i, j, k); /* Precompute derivatives (old style) */ @@ -391,68 +391,68 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); - Gt111 = khalf*(gtu11*PDstandard4th1gt11 + 2*(gtu21*PDstandard4th1gt12 + gtu31*PDstandard4th1gt13) - - gtu21*PDstandard4th2gt11 - gtu31*PDstandard4th3gt11); + Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - + gtu21*PDstandardNth2gt11 - gtu31*PDstandardNth3gt11); - Gt211 = khalf*(gtu21*PDstandard4th1gt11 + 2*(gtu22*PDstandard4th1gt12 + gtu32*PDstandard4th1gt13) - - gtu22*PDstandard4th2gt11 - gtu32*PDstandard4th3gt11); + Gt211 = khalf*(gtu21*PDstandardNth1gt11 + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - + gtu22*PDstandardNth2gt11 - gtu32*PDstandardNth3gt11); - Gt311 = khalf*(gtu31*PDstandard4th1gt11 + 2*(gtu32*PDstandard4th1gt12 + gtu33*PDstandard4th1gt13) - - gtu32*PDstandard4th2gt11 - gtu33*PDstandard4th3gt11); + Gt311 = khalf*(gtu31*PDstandardNth1gt11 + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - + gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); - Gt112 = khalf*(gtu21*PDstandard4th1gt22 + gtu11*PDstandard4th2gt11 + - gtu31*(PDstandard4th1gt23 + PDstandard4th2gt13 - PDstandard4th3gt12)); + Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + + gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); - Gt212 = khalf*(gtu22*PDstandard4th1gt22 + gtu21*PDstandard4th2gt11 + - gtu32*(PDstandard4th1gt23 + PDstandard4th2gt13 - PDstandard4th3gt12)); + Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + + gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); - Gt312 = khalf*(gtu32*PDstandard4th1gt22 + gtu31*PDstandard4th2gt11 + - gtu33*(PDstandard4th1gt23 + PDstandard4th2gt13 - PDstandard4th3gt12)); + Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + + gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); - Gt113 = khalf*(gtu31*PDstandard4th1gt33 + gtu11*PDstandard4th3gt11 + - gtu21*(PDstandard4th1gt23 - PDstandard4th2gt13 + PDstandard4th3gt12)); + Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + + gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); - Gt213 = khalf*(gtu32*PDstandard4th1gt33 + gtu21*PDstandard4th3gt11 + - gtu22*(PDstandard4th1gt23 - PDstandard4th2gt13 + PDstandard4th3gt12)); + Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + + gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); - Gt313 = khalf*(gtu33*PDstandard4th1gt33 + gtu31*PDstandard4th3gt11 + - gtu32*(PDstandard4th1gt23 - PDstandard4th2gt13 + PDstandard4th3gt12)); + Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + + gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); - Gt122 = khalf*(gtu11*(-PDstandard4th1gt22 + 2*PDstandard4th2gt12) + gtu21*PDstandard4th2gt22 + - gtu31*(2*PDstandard4th2gt23 - PDstandard4th3gt22)); + Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + + gtu31*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt222 = khalf*(gtu21*(-PDstandard4th1gt22 + 2*PDstandard4th2gt12) + gtu22*PDstandard4th2gt22 + - gtu32*(2*PDstandard4th2gt23 - PDstandard4th3gt22)); + Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu22*PDstandardNth2gt22 + + gtu32*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt322 = khalf*(gtu31*(-PDstandard4th1gt22 + 2*PDstandard4th2gt12) + gtu32*PDstandard4th2gt22 + - gtu33*(2*PDstandard4th2gt23 - PDstandard4th3gt22)); + Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu32*PDstandardNth2gt22 + + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandard4th2gt33 + gtu11*(-PDstandard4th1gt23 + PDstandard4th2gt13 + PDstandard4th3gt12) + - gtu21*PDstandard4th3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + + gtu21*PDstandardNth3gt22); - Gt223 = khalf*(gtu32*PDstandard4th2gt33 + gtu21*(-PDstandard4th1gt23 + PDstandard4th2gt13 + PDstandard4th3gt12) + - gtu22*PDstandard4th3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + + gtu22*PDstandardNth3gt22); - Gt323 = khalf*(gtu33*PDstandard4th2gt33 + gtu31*(-PDstandard4th1gt23 + PDstandard4th2gt13 + PDstandard4th3gt12) + - gtu32*PDstandard4th3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + + gtu32*PDstandardNth3gt22); - Gt133 = khalf*(-(gtu11*PDstandard4th1gt33) - gtu21*PDstandard4th2gt33 + 2*gtu11*PDstandard4th3gt13 + - 2*gtu21*PDstandard4th3gt23 + gtu31*PDstandard4th3gt33); + Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + + 2*gtu21*PDstandardNth3gt23 + gtu31*PDstandardNth3gt33); - Gt233 = khalf*(-(gtu21*PDstandard4th1gt33) - gtu22*PDstandard4th2gt33 + 2*gtu21*PDstandard4th3gt13 + - 2*gtu22*PDstandard4th3gt23 + gtu32*PDstandard4th3gt33); + Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + 2*gtu21*PDstandardNth3gt13 + + 2*gtu22*PDstandardNth3gt23 + gtu32*PDstandardNth3gt33); - Gt333 = khalf*(-(gtu31*PDstandard4th1gt33) - gtu32*PDstandard4th2gt33 + 2*gtu31*PDstandard4th3gt13 + - 2*gtu32*PDstandard4th3gt23 + gtu33*PDstandard4th3gt33); + Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + 2*gtu31*PDstandardNth3gt13 + + 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); - Rt11 = -(gtu11*khalf*PDstandard4th11gt11) + gtu21* + Rt11 = -(gtu11*khalf*PDstandardNth11gt11) + gtu21* (2*Gt211*Gt212*gt22L + 4*Gt112*gt13L*Gt311 + 2*Gt113*gt11L*Gt312 + 2*gt13L*Gt312*Gt313 + 2*gt13L*Gt211*Gt322 + - 2*gt13L*Gt311*Gt323 + 2*Gt311*Gt312*gt33L - PDstandard4th12gt11) - gtu31*PDstandard4th13gt11 + - gt11L*PDstandard4th1Xt1 + gt12L*(4*Gt111*Gt212*gtu21 + 2*Gt211*Gt222*gtu21 + 2*Gt212*Gt222*gtu22 + - 4*Gt113*Gt211*gtu31 + 4*Gt113*Gt212*gtu32 + 4*Gt113*Gt213*gtu33 + PDstandard4th1Xt2) + + 2*gt13L*Gt311*Gt323 + 2*Gt311*Gt312*gt33L - PDstandardNth12gt11) - gtu31*PDstandardNth13gt11 + + gt11L*PDstandardNth1Xt1 + gt12L*(4*Gt111*Gt212*gtu21 + 2*Gt211*Gt222*gtu21 + 2*Gt212*Gt222*gtu22 + + 4*Gt113*Gt211*gtu31 + 4*Gt113*Gt212*gtu32 + 4*Gt113*Gt213*gtu33 + PDstandardNth1Xt2) + gt13L*(4*Gt111*Gt312*gtu21 + 2*Gt212*Gt312*gtu21 + 4*Gt112*Gt312*gtu22 + 4*Gt113*Gt311*gtu31 + - 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandard4th1Xt3) - gtu22*khalf*PDstandard4th22gt11 - - gtu32*PDstandard4th23gt11 - gtu33*khalf*PDstandard4th33gt11 + + 4*Gt113*Gt312*gtu32 + 4*Gt113*Gt313*gtu33 + PDstandardNth1Xt3) - gtu22*khalf*PDstandardNth22gt11 - + gtu32*PDstandardNth23gt11 - gtu33*khalf*PDstandardNth33gt11 + Gt111*(6*Gt113*gt11L*gtu31 + 4*gt12L*Gt213*gtu31 + gt11L*Xt1L) + Gt211*(2*Gt112*gt11L*gtu11 + 4*Gt111*gt12L*gtu11 + 2*gt11L*Gt122*gtu21 + 2*gt11L*Gt123*gtu31 + gt12L*Xt1L) + Gt311*(4*Gt111*gt13L*gtu11 + 2*gt12L*Gt213*gtu11 + 2*gt13L*Gt313*gtu11 + 2*gt11L*Gt123*gtu21 + @@ -477,10 +477,10 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA gt12L*gtu21*SQR(Gt212)) + gt22L*gtu33*SQR(Gt213) + gt33L*gtu11*SQR(Gt311) + gt33L*gtu22*SQR(Gt312) + 2*gt13L*gtu31*SQR(Gt313) + gt33L*gtu33*SQR(Gt313); - Rt12 = khalf*(-(gtu11*PDstandard4th11gt12) - 2*gtu21*PDstandard4th12gt12 - 2*gtu31*PDstandard4th13gt12 + - gt12L*PDstandard4th1Xt1 + gt22L*PDstandard4th1Xt2 + gt23L*PDstandard4th1Xt3 - gtu22*PDstandard4th22gt12 - - 2*gtu32*PDstandard4th23gt12 + gt11L*PDstandard4th2Xt1 + gt12L*PDstandard4th2Xt2 + gt13L*PDstandard4th2Xt3 - - gtu33*PDstandard4th33gt12 + (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xt1L + + Rt12 = khalf*(-(gtu11*PDstandardNth11gt12) - 2*gtu21*PDstandardNth12gt12 - 2*gtu31*PDstandardNth13gt12 + + gt12L*PDstandardNth1Xt1 + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt12 - + 2*gtu32*PDstandardNth23gt12 + gt11L*PDstandardNth2Xt1 + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3 - + gtu33*PDstandardNth33gt12 + (Gt111*gt12L + Gt211*gt22L + gt23L*Gt311)*Xt1L + (Gt112*gt11L + gt12L*Gt212 + gt13L*Gt312)*Xt1L + (Gt112*gt12L + Gt212*gt22L + gt23L*Gt312)*Xt2L + (gt11L*Gt122 + gt12L*Gt222 + gt13L*Gt322)*Xt2L + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt3L + (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt3L + @@ -529,10 +529,10 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA Gt112*(2*gt11L*Gt123 + Gt113*gt12L + gt12L*Gt223 + gt13L*Gt323) + gt12L*(Gt122*Gt213 + Gt123*(2*Gt212 + Gt313) + Gt223*(Gt222 + Gt323)) + Gt312*Gt323*gt33L + gt13L*SQR(Gt323))); - Rt13 = khalf*(-(gtu11*PDstandard4th11gt13) - 2*gtu21*PDstandard4th12gt13 - 2*gtu31*PDstandard4th13gt13 + - gt13L*PDstandard4th1Xt1 + gt23L*PDstandard4th1Xt2 + gt33L*PDstandard4th1Xt3 - gtu22*PDstandard4th22gt13 - - 2*gtu32*PDstandard4th23gt13 - gtu33*PDstandard4th33gt13 + gt11L*PDstandard4th3Xt1 + gt12L*PDstandard4th3Xt2 + - gt13L*PDstandard4th3Xt3 + (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xt1L + + Rt13 = khalf*(-(gtu11*PDstandardNth11gt13) - 2*gtu21*PDstandardNth12gt13 - 2*gtu31*PDstandardNth13gt13 + + gt13L*PDstandardNth1Xt1 + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt13 - + 2*gtu32*PDstandardNth23gt13 - gtu33*PDstandardNth33gt13 + gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + + gt13L*PDstandardNth3Xt3 + (Gt113*gt11L + gt12L*Gt213 + gt13L*Gt313)*Xt1L + (Gt111*gt13L + Gt211*gt23L + Gt311*gt33L)*Xt1L + (gt11L*Gt123 + gt12L*Gt223 + gt13L*Gt323)*Xt2L + (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt2L + (gt11L*Gt133 + gt12L*Gt233 + gt13L*Gt333)*Xt3L + (Gt113*gt13L + Gt213*gt23L + Gt313*gt33L)*Xt3L + @@ -582,18 +582,18 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA gt13L*SQR(Gt333))); Rt22 = 4*(Gt122*gt12L*Gt212*gtu21 + Gt112*gt12L*Gt222*gtu21 + Gt122*gt12L*Gt222*gtu22 + Gt123*gt12L*Gt212*gtu31 + - Gt123*gt12L*Gt222*gtu32 + Gt123*gt12L*Gt223*gtu33) - gtu11*khalf*PDstandard4th11gt22 + + Gt123*gt12L*Gt222*gtu32 + Gt123*gt12L*Gt223*gtu33) - gtu11*khalf*PDstandardNth11gt22 + gtu21*(6*Gt212*Gt222*gt22L + 2*Gt122*gt23L*Gt311 + 2*Gt122*gt13L*Gt312 + 4*Gt222*gt23L*Gt312 + - 2*Gt113*gt12L*Gt322 + 2*gt23L*Gt312*Gt323 + 2*Gt312*Gt322*gt33L - PDstandard4th12gt22) + + 2*Gt113*gt12L*Gt322 + 2*gt23L*Gt312*Gt323 + 2*Gt312*Gt322*gt33L - PDstandardNth12gt22) + gtu31*(6*Gt212*Gt223*gt22L + 2*Gt123*gt13L*Gt312 + 2*Gt112*gt23L*Gt313 + 2*Gt113*gt12L*Gt323 + - 2*gt23L*Gt312*Gt333 + 2*Gt312*Gt323*gt33L - PDstandard4th13gt22) - gtu22*khalf*PDstandard4th22gt22 + + 2*gt23L*Gt312*Gt333 + 2*Gt312*Gt323*gt33L - PDstandardNth13gt22) - gtu22*khalf*PDstandardNth22gt22 + gtu32*(4*Gt122*gt12L*Gt223 + 2*Gt123*Gt212*gt22L + 2*gt12L*Gt133*Gt322 + 4*Gt223*gt23L*Gt322 + - 2*Gt123*gt12L*Gt323 + 4*Gt222*gt23L*Gt323 + 2*gt23L*Gt322*Gt333 + 2*Gt322*Gt323*gt33L - PDstandard4th23gt22) + - gt12L*(2*Gt111*Gt123*gtu31 + 4*Gt112*Gt223*gtu31 + 2*Gt113*Gt122*gtu32 + 2*Gt113*Gt123*gtu33 + PDstandard4th2Xt1) + - gt22L*(2*Gt122*Gt213*gtu32 + 6*Gt222*Gt223*gtu32 + 2*Gt123*Gt213*gtu33 + PDstandard4th2Xt2) + + 2*Gt123*gt12L*Gt323 + 4*Gt222*gt23L*Gt323 + 2*gt23L*Gt322*Gt333 + 2*Gt322*Gt323*gt33L - PDstandardNth23gt22) + + gt12L*(2*Gt111*Gt123*gtu31 + 4*Gt112*Gt223*gtu31 + 2*Gt113*Gt122*gtu32 + 2*Gt113*Gt123*gtu33 + PDstandardNth2Xt1) + + gt22L*(2*Gt122*Gt213*gtu32 + 6*Gt222*Gt223*gtu32 + 2*Gt123*Gt213*gtu33 + PDstandardNth2Xt2) + gt23L*(4*Gt212*Gt322*gtu21 + 2*Gt313*Gt322*gtu21 + 4*Gt222*Gt322*gtu22 + 2*Gt123*Gt311*gtu31 + 4*Gt212*Gt323*gtu31 + 2*Gt313*Gt323*gtu31 + 2*Gt122*Gt313*gtu32 + 2*Gt123*Gt313*gtu33 + 4*Gt223*Gt323*gtu33 + - 2*Gt323*Gt333*gtu33 + PDstandard4th2Xt3) - gtu33*khalf*PDstandard4th33gt22 + Gt212*gt22L*Xt1L + + 2*Gt323*Gt333*gtu33 + PDstandardNth2Xt3) - gtu33*khalf*PDstandardNth33gt22 + Gt212*gt22L*Xt1L + Gt112*(2*Gt111*gt12L*gtu11 + 4*gt12L*Gt212*gtu11 + 2*gt11L*Gt122*gtu21 + 2*Gt122*gt12L*gtu22 + 2*gt11L*Gt123*gtu31 + 2*Gt123*gt12L*gtu32 + gt12L*Xt1L) + Gt312*(2*Gt213*gt22L*gtu11 + 4*Gt212*gt23L*gtu11 + 2*gt23L*Gt313*gtu11 + 2*Gt123*gt12L*gtu21 + @@ -611,10 +611,10 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA 3*gt22L*gtu11*SQR(Gt212) + 3*gt22L*gtu22*SQR(Gt222) + 3*gt22L*gtu33*SQR(Gt223) + gt33L*gtu11*SQR(Gt312) + gt33L*gtu22*SQR(Gt322) + 2*gt23L*gtu32*SQR(Gt323) + gt33L*gtu33*SQR(Gt323); - Rt23 = khalf*(-(gtu11*PDstandard4th11gt23) - 2*gtu21*PDstandard4th12gt23 - 2*gtu31*PDstandard4th13gt23 - - gtu22*PDstandard4th22gt23 - 2*gtu32*PDstandard4th23gt23 + gt13L*PDstandard4th2Xt1 + gt23L*PDstandard4th2Xt2 + - gt33L*PDstandard4th2Xt3 - gtu33*PDstandard4th33gt23 + gt12L*PDstandard4th3Xt1 + gt22L*PDstandard4th3Xt2 + - gt23L*PDstandard4th3Xt3 + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt1L + + Rt23 = khalf*(-(gtu11*PDstandardNth11gt23) - 2*gtu21*PDstandardNth12gt23 - 2*gtu31*PDstandardNth13gt23 - + gtu22*PDstandardNth22gt23 - 2*gtu32*PDstandardNth23gt23 + gt13L*PDstandardNth2Xt1 + gt23L*PDstandardNth2Xt2 + + gt33L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt23 + gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + + gt23L*PDstandardNth3Xt3 + (Gt113*gt12L + Gt213*gt22L + gt23L*Gt313)*Xt1L + (Gt112*gt13L + Gt212*gt23L + Gt312*gt33L)*Xt1L + (Gt123*gt12L + Gt223*gt22L + gt23L*Gt323)*Xt2L + (Gt122*gt13L + Gt222*gt23L + Gt322*gt33L)*Xt2L + (gt12L*Gt133 + gt22L*Gt233 + gt23L*Gt333)*Xt3L + (Gt123*gt13L + Gt223*gt23L + Gt323*gt33L)*Xt3L + @@ -665,16 +665,16 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA Rt33 = 4*(Gt123*gt13L*Gt323*gtu22 + Gt223*gt23L*Gt323*gtu22 + Gt133*gt13L*Gt313*gtu31 + Gt233*gt23L*Gt313*gtu31 + Gt113*gt13L*Gt333*gtu31 + Gt133*gt13L*Gt323*gtu32 + Gt233*gt23L*Gt323*gtu32 + Gt123*gt13L*Gt333*gtu32 + Gt133*gt13L*Gt333*gtu33) + gtu21*(2*Gt212*Gt223*gt23L + 4*Gt123*gt13L*Gt313 + 4*Gt223*gt23L*Gt313 + - 4*Gt113*gt13L*Gt323 + 4*Gt213*gt23L*Gt323 + 2*Gt123*Gt311*gt33L - PDstandard4th12gt33) + - gtu31*(4*Gt213*gt23L*Gt333 + 2*Gt233*Gt312*gt33L + 6*Gt313*Gt333*gt33L - PDstandard4th13gt33) - - gtu22*khalf*PDstandard4th22gt33 + gtu32*(4*Gt223*gt23L*Gt333 + 2*Gt123*Gt313*gt33L + 6*Gt323*Gt333*gt33L - - PDstandard4th23gt33) - gtu33*khalf*PDstandard4th33gt33 + gt13L*PDstandard4th3Xt1 + gt23L*PDstandard4th3Xt2 + + 4*Gt113*gt13L*Gt323 + 4*Gt213*gt23L*Gt323 + 2*Gt123*Gt311*gt33L - PDstandardNth12gt33) + + gtu31*(4*Gt213*gt23L*Gt333 + 2*Gt233*Gt312*gt33L + 6*Gt313*Gt333*gt33L - PDstandardNth13gt33) - + gtu22*khalf*PDstandardNth22gt33 + gtu32*(4*Gt223*gt23L*Gt333 + 2*Gt123*Gt313*gt33L + 6*Gt323*Gt333*gt33L - + PDstandardNth23gt33) - gtu33*khalf*PDstandardNth33gt33 + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + gt33L*(2*Gt213*Gt322*gtu21 + 6*Gt313*Gt323*gtu21 + 2*Gt123*Gt312*gtu22 + 2*Gt133*Gt311*gtu31 + - 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + PDstandard4th3Xt3) + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + + 2*Gt133*Gt312*gtu32 + 2*Gt133*Gt313*gtu33 + PDstandardNth3Xt3) + Gt113*gt13L*Xt1L + Gt213*gt23L*Xt1L + Gt313*gt33L*Xt1L + Gt123*gt13L*Xt2L + Gt223*gt23L*Xt2L + Gt323*gt33L*Xt2L + Gt133*gt13L*Xt3L + Gt333*gt33L*Xt3L + Gt233*(4*gt23L*Gt333*gtu33 + 2*Gt323*gt33L*gtu33 + gt23L*Xt3L) + gtu11*(2*Gt212*Gt213*gt23L + 4*Gt113*gt13L*Gt313 + 4*Gt213*gt23L*Gt313 + 2*Gt113*Gt311*gt33L + - 2*Gt213*Gt312*gt33L - khalf*PDstandard4th11gt33 + gt11L*SQR(Gt113)) + + 2*Gt213*Gt312*gt33L - khalf*PDstandardNth11gt33 + gt11L*SQR(Gt113)) + 2*(Gt111*Gt113*gt13L*gtu11 + Gt113*gt12L*Gt213*gtu11 + Gt112*gt13L*Gt213*gtu11 + Gt113*Gt211*gt23L*gtu11 + Gt113*gt11L*Gt123*gtu21 + Gt112*Gt113*gt13L*gtu21 + Gt111*Gt123*gt13L*gtu21 + Gt123*gt12L*Gt213*gtu21 + Gt122*gt13L*Gt213*gtu21 + Gt113*gt12L*Gt223*gtu21 + Gt112*gt13L*Gt223*gtu21 + Gt213*Gt223*gt22L*gtu21 + @@ -692,82 +692,82 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA gt11L*gtu33*SQR(Gt133) + gt22L*gtu11*SQR(Gt213) + gt22L*gtu22*SQR(Gt223) + 2*gt23L*gtu32*SQR(Gt223) + gt22L*gtu33*SQR(Gt233) + 3*gt33L*gtu11*SQR(Gt313) + 3*gt33L*gtu22*SQR(Gt323) + 3*gt33L*gtu33*SQR(Gt333); - Rphi11 = 2*(-PDstandard4th11phi - gt11L*gtu11*PDstandard4th11phi - 2*gt11L*gtu21*PDstandard4th12phi - - 2*gt11L*gtu31*PDstandard4th13phi - gt11L*gtu22*PDstandard4th22phi - 2*gt11L*gtu32*PDstandard4th23phi - - gt11L*gtu33*PDstandard4th33phi + Gt311*PDstandard4th3phi + gt11L*Gt311*gtu11*PDstandard4th3phi + - 2*gt11L*Gt312*gtu21*PDstandard4th3phi + gt11L*Gt322*gtu22*PDstandard4th3phi + - 2*gt11L*Gt313*gtu31*PDstandard4th3phi + 2*gt11L*Gt323*gtu32*PDstandard4th3phi + - gt11L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + Rphi11 = 2*(-PDstandardNth11phi - gt11L*gtu11*PDstandardNth11phi - 2*gt11L*gtu21*PDstandardNth12phi - + 2*gt11L*gtu31*PDstandardNth13phi - gt11L*gtu22*PDstandardNth22phi - 2*gt11L*gtu32*PDstandardNth23phi - + gt11L*gtu33*PDstandardNth33phi + Gt311*PDstandardNth3phi + gt11L*Gt311*gtu11*PDstandardNth3phi + + 2*gt11L*Gt312*gtu21*PDstandardNth3phi + gt11L*Gt322*gtu22*PDstandardNth3phi + + 2*gt11L*Gt313*gtu31*PDstandardNth3phi + 2*gt11L*Gt323*gtu32*PDstandardNth3phi + + gt11L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt111 + Gt111*gt11L*gtu11 + 2*Gt112*gt11L*gtu21 + gt11L*Gt122*gtu22 + 2*Gt113*gt11L*gtu31 + - 2*gt11L*Gt123*gtu32 + gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandard4th2phi - 4*gt11L*gtu31*PDstandard4th3phi) + - PDstandard4th2phi*(Gt211 + gt11L*Gt211*gtu11 + + 2*gt11L*Gt123*gtu32 + gt11L*Gt133*gtu33 - 4*gt11L*gtu21*PDstandardNth2phi - 4*gt11L*gtu31*PDstandardNth3phi) + + PDstandardNth2phi*(Gt211 + gt11L*Gt211*gtu11 + gt11L*(2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + Gt233*gtu33) - - 4*gt11L*gtu32*PDstandard4th3phi) + (2 - 2*gt11L*gtu11)*SQR(PDstandard4th1phi) - - 2*gt11L*gtu22*SQR(PDstandard4th2phi) - 2*gt11L*gtu33*SQR(PDstandard4th3phi)); - - Rphi12 = 2*(-(gt12L*gtu11*PDstandard4th11phi) - PDstandard4th12phi - 2*gt12L*gtu21*PDstandard4th12phi - - 2*gt12L*gtu31*PDstandard4th13phi - gt12L*gtu22*PDstandard4th22phi - 2*gt12L*gtu32*PDstandard4th23phi - - gt12L*gtu33*PDstandard4th33phi + Gt312*PDstandard4th3phi + gt12L*Gt311*gtu11*PDstandard4th3phi + - 2*gt12L*Gt312*gtu21*PDstandard4th3phi + gt12L*Gt322*gtu22*PDstandard4th3phi + - 2*gt12L*Gt313*gtu31*PDstandard4th3phi + 2*gt12L*Gt323*gtu32*PDstandard4th3phi + - gt12L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + 4*gt11L*gtu32*PDstandardNth3phi) + (2 - 2*gt11L*gtu11)*SQR(PDstandardNth1phi) - + 2*gt11L*gtu22*SQR(PDstandardNth2phi) - 2*gt11L*gtu33*SQR(PDstandardNth3phi)); + + Rphi12 = 2*(-(gt12L*gtu11*PDstandardNth11phi) - PDstandardNth12phi - 2*gt12L*gtu21*PDstandardNth12phi - + 2*gt12L*gtu31*PDstandardNth13phi - gt12L*gtu22*PDstandardNth22phi - 2*gt12L*gtu32*PDstandardNth23phi - + gt12L*gtu33*PDstandardNth33phi + Gt312*PDstandardNth3phi + gt12L*Gt311*gtu11*PDstandardNth3phi + + 2*gt12L*Gt312*gtu21*PDstandardNth3phi + gt12L*Gt322*gtu22*PDstandardNth3phi + + 2*gt12L*Gt313*gtu31*PDstandardNth3phi + 2*gt12L*Gt323*gtu32*PDstandardNth3phi + + gt12L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt112 + Gt111*gt12L*gtu11 + 2*Gt112*gt12L*gtu21 + Gt122*gt12L*gtu22 + 2*Gt113*gt12L*gtu31 + - 2*Gt123*gt12L*gtu32 + gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandard4th2phi - - 4*gt12L*gtu31*PDstandard4th3phi) + PDstandard4th2phi* + 2*Gt123*gt12L*gtu32 + gt12L*Gt133*gtu33 + (2 - 4*gt12L*gtu21)*PDstandardNth2phi - + 4*gt12L*gtu31*PDstandardNth3phi) + PDstandardNth2phi* (Gt212 + 2*gt12L*Gt212*gtu21 + gt12L*(Gt211*gtu11 + Gt222*gtu22 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + Gt233*gtu33) - - 4*gt12L*gtu32*PDstandard4th3phi) - 2*gt12L*gtu11*SQR(PDstandard4th1phi) - - 2*gt12L*gtu22*SQR(PDstandard4th2phi) - 2*gt12L*gtu33*SQR(PDstandard4th3phi)); - - Rphi13 = 2*(-PDstandard4th13phi + gt13L*(-(gtu11*PDstandard4th11phi) - 2*gtu21*PDstandard4th12phi - - 2*gtu31*PDstandard4th13phi) - gt13L*gtu22*PDstandard4th22phi - 2*gt13L*gtu32*PDstandard4th23phi - - gt13L*gtu33*PDstandard4th33phi + Gt313*PDstandard4th3phi + gt13L*Gt311*gtu11*PDstandard4th3phi + - 2*gt13L*Gt312*gtu21*PDstandard4th3phi + gt13L*Gt322*gtu22*PDstandard4th3phi + - 2*gt13L*Gt313*gtu31*PDstandard4th3phi + 2*gt13L*Gt323*gtu32*PDstandard4th3phi + - gt13L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + 4*gt12L*gtu32*PDstandardNth3phi) - 2*gt12L*gtu11*SQR(PDstandardNth1phi) - + 2*gt12L*gtu22*SQR(PDstandardNth2phi) - 2*gt12L*gtu33*SQR(PDstandardNth3phi)); + + Rphi13 = 2*(-PDstandardNth13phi + gt13L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi) - gt13L*gtu22*PDstandardNth22phi - 2*gt13L*gtu32*PDstandardNth23phi - + gt13L*gtu33*PDstandardNth33phi + Gt313*PDstandardNth3phi + gt13L*Gt311*gtu11*PDstandardNth3phi + + 2*gt13L*Gt312*gtu21*PDstandardNth3phi + gt13L*Gt322*gtu22*PDstandardNth3phi + + 2*gt13L*Gt313*gtu31*PDstandardNth3phi + 2*gt13L*Gt323*gtu32*PDstandardNth3phi + + gt13L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt113 + Gt111*gt13L*gtu11 + 2*Gt112*gt13L*gtu21 + Gt122*gt13L*gtu22 + 2*Gt113*gt13L*gtu31 + - 2*Gt123*gt13L*gtu32 + Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandard4th2phi + - (2 - 4*gt13L*gtu31)*PDstandard4th3phi) + - PDstandard4th2phi*(Gt213 + 2*gt13L*Gt213*gtu31 + + 2*Gt123*gt13L*gtu32 + Gt133*gt13L*gtu33 - 4*gt13L*gtu21*PDstandardNth2phi + + (2 - 4*gt13L*gtu31)*PDstandardNth3phi) + + PDstandardNth2phi*(Gt213 + 2*gt13L*Gt213*gtu31 + gt13L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt223*gtu32 + Gt233*gtu33) - - 4*gt13L*gtu32*PDstandard4th3phi) - 2*gt13L*gtu11*SQR(PDstandard4th1phi) - - 2*gt13L*gtu22*SQR(PDstandard4th2phi) - 2*gt13L*gtu33*SQR(PDstandard4th3phi)); - - Rphi22 = 2*(-PDstandard4th22phi + gt22L*(-(gtu11*PDstandard4th11phi) - 2*gtu21*PDstandard4th12phi - - 2*gtu31*PDstandard4th13phi - gtu22*PDstandard4th22phi) - 2*gt22L*gtu32*PDstandard4th23phi - - gt22L*gtu33*PDstandard4th33phi + Gt322*PDstandard4th3phi + gt22L*Gt311*gtu11*PDstandard4th3phi + - 2*gt22L*Gt312*gtu21*PDstandard4th3phi + gt22L*Gt322*gtu22*PDstandard4th3phi + - 2*gt22L*Gt313*gtu31*PDstandard4th3phi + 2*gt22L*Gt323*gtu32*PDstandard4th3phi + - gt22L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + 4*gt13L*gtu32*PDstandardNth3phi) - 2*gt13L*gtu11*SQR(PDstandardNth1phi) - + 2*gt13L*gtu22*SQR(PDstandardNth2phi) - 2*gt13L*gtu33*SQR(PDstandardNth3phi)); + + Rphi22 = 2*(-PDstandardNth22phi + gt22L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi) - 2*gt22L*gtu32*PDstandardNth23phi - + gt22L*gtu33*PDstandardNth33phi + Gt322*PDstandardNth3phi + gt22L*Gt311*gtu11*PDstandardNth3phi + + 2*gt22L*Gt312*gtu21*PDstandardNth3phi + gt22L*Gt322*gtu22*PDstandardNth3phi + + 2*gt22L*Gt313*gtu31*PDstandardNth3phi + 2*gt22L*Gt323*gtu32*PDstandardNth3phi + + gt22L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt122 + Gt111*gt22L*gtu11 + 2*Gt112*gt22L*gtu21 + Gt122*gt22L*gtu22 + 2*Gt113*gt22L*gtu31 + - 2*Gt123*gt22L*gtu32 + Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandard4th2phi - 4*gt22L*gtu31*PDstandard4th3phi) + - PDstandard4th2phi*(Gt222 + Gt222*gt22L*gtu22 + + 2*Gt123*gt22L*gtu32 + Gt133*gt22L*gtu33 - 4*gt22L*gtu21*PDstandardNth2phi - 4*gt22L*gtu31*PDstandardNth3phi) + + PDstandardNth2phi*(Gt222 + Gt222*gt22L*gtu22 + gt22L*(Gt211*gtu11 + 2*Gt212*gtu21 + 2*Gt213*gtu31 + 2*Gt223*gtu32 + Gt233*gtu33) - - 4*gt22L*gtu32*PDstandard4th3phi) - 2*gt22L*gtu11*SQR(PDstandard4th1phi) + - (2 - 2*gt22L*gtu22)*SQR(PDstandard4th2phi) - 2*gt22L*gtu33*SQR(PDstandard4th3phi)); - - Rphi23 = 2*(-PDstandard4th23phi + gt23L*(-(gtu11*PDstandard4th11phi) - 2*gtu21*PDstandard4th12phi - - 2*gtu31*PDstandard4th13phi - gtu22*PDstandard4th22phi - 2*gtu32*PDstandard4th23phi) - - gt23L*gtu33*PDstandard4th33phi + Gt323*PDstandard4th3phi + gt23L*Gt311*gtu11*PDstandard4th3phi + - 2*gt23L*Gt312*gtu21*PDstandard4th3phi + gt23L*Gt322*gtu22*PDstandard4th3phi + - 2*gt23L*Gt313*gtu31*PDstandard4th3phi + 2*gt23L*Gt323*gtu32*PDstandard4th3phi + - gt23L*Gt333*gtu33*PDstandard4th3phi + PDstandard4th1phi* + 4*gt22L*gtu32*PDstandardNth3phi) - 2*gt22L*gtu11*SQR(PDstandardNth1phi) + + (2 - 2*gt22L*gtu22)*SQR(PDstandardNth2phi) - 2*gt22L*gtu33*SQR(PDstandardNth3phi)); + + Rphi23 = 2*(-PDstandardNth23phi + gt23L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - + 2*gtu31*PDstandardNth13phi - gtu22*PDstandardNth22phi - 2*gtu32*PDstandardNth23phi) - + gt23L*gtu33*PDstandardNth33phi + Gt323*PDstandardNth3phi + gt23L*Gt311*gtu11*PDstandardNth3phi + + 2*gt23L*Gt312*gtu21*PDstandardNth3phi + gt23L*Gt322*gtu22*PDstandardNth3phi + + 2*gt23L*Gt313*gtu31*PDstandardNth3phi + 2*gt23L*Gt323*gtu32*PDstandardNth3phi + + gt23L*Gt333*gtu33*PDstandardNth3phi + PDstandardNth1phi* (Gt123 + Gt111*gt23L*gtu11 + 2*Gt112*gt23L*gtu21 + Gt122*gt23L*gtu22 + 2*Gt113*gt23L*gtu31 + - 2*Gt123*gt23L*gtu32 + Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandard4th2phi - 4*gt23L*gtu31*PDstandard4th3phi) + - PDstandard4th2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + + 2*Gt123*gt23L*gtu32 + Gt133*gt23L*gtu33 - 4*gt23L*gtu21*PDstandardNth2phi - 4*gt23L*gtu31*PDstandardNth3phi) + + PDstandardNth2phi*(Gt223 + 2*Gt223*gt23L*gtu32 + gt23L*(Gt211*gtu11 + 2*Gt212*gtu21 + Gt222*gtu22 + 2*Gt213*gtu31 + Gt233*gtu33) + - (2 - 4*gt23L*gtu32)*PDstandard4th3phi) - 2*gt23L*gtu11*SQR(PDstandard4th1phi) - - 2*gt23L*gtu22*SQR(PDstandard4th2phi) - 2*gt23L*gtu33*SQR(PDstandard4th3phi)); - - Rphi33 = 2*(-PDstandard4th33phi + (Gt333 + gt33L* - (Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))*PDstandard4th3phi + - PDstandard4th2phi*(Gt233 + gt33L*(Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + - Gt233*gtu33 - 4*gtu32*PDstandard4th3phi)) + - PDstandard4th1phi*(Gt133 + gt33L*(Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + - Gt133*gtu33 - 4*(gtu21*PDstandard4th2phi + gtu31*PDstandard4th3phi))) + 2*SQR(PDstandard4th3phi) + - gt33L*(-(gtu11*PDstandard4th11phi) - 2*gtu21*PDstandard4th12phi - 2*gtu31*PDstandard4th13phi - - gtu22*PDstandard4th22phi - 2*gtu32*PDstandard4th23phi - gtu33*PDstandard4th33phi + - Gt311*gtu11*PDstandard4th3phi - 2*gtu11*SQR(PDstandard4th1phi) - 2*gtu22*SQR(PDstandard4th2phi) - - 2*gtu33*SQR(PDstandard4th3phi))); + (2 - 4*gt23L*gtu32)*PDstandardNth3phi) - 2*gt23L*gtu11*SQR(PDstandardNth1phi) - + 2*gt23L*gtu22*SQR(PDstandardNth2phi) - 2*gt23L*gtu33*SQR(PDstandardNth3phi)); + + Rphi33 = 2*(-PDstandardNth33phi + (Gt333 + gt33L* + (Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33))*PDstandardNth3phi + + PDstandardNth2phi*(Gt233 + gt33L*(Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + + Gt233*gtu33 - 4*gtu32*PDstandardNth3phi)) + + PDstandardNth1phi*(Gt133 + gt33L*(Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + + Gt133*gtu33 - 4*(gtu21*PDstandardNth2phi + gtu31*PDstandardNth3phi))) + 2*SQR(PDstandardNth3phi) + + gt33L*(-(gtu11*PDstandardNth11phi) - 2*gtu21*PDstandardNth12phi - 2*gtu31*PDstandardNth13phi - + gtu22*PDstandardNth22phi - 2*gtu32*PDstandardNth23phi - gtu33*PDstandardNth33phi + + Gt311*gtu11*PDstandardNth3phi - 2*gtu11*SQR(PDstandardNth1phi) - 2*gtu22*SQR(PDstandardNth2phi) - + 2*gtu33*SQR(PDstandardNth3phi))); e4phi = exp(4*phiL); @@ -799,11 +799,11 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA gu33 = em4phi*gtu33; - ddetg1 = e4phi*(ddetgt1 + 4*detgt*PDstandard4th1phi); + ddetg1 = e4phi*(ddetgt1 + 4*detgt*PDstandardNth1phi); - ddetg2 = e4phi*(ddetgt2 + 4*detgt*PDstandard4th2phi); + ddetg2 = e4phi*(ddetgt2 + 4*detgt*PDstandardNth2phi); - ddetg3 = e4phi*(ddetgt3 + 4*detgt*PDstandard4th3phi); + ddetg3 = e4phi*(ddetgt3 + 4*detgt*PDstandardNth3phi); G111 = -((-6*detg*Gt111 + ddetg1*(-6 + g11*gu11) + g11*(ddetg2*gu21 + ddetg3*gu31))*INV(detg))/6.; @@ -875,50 +875,50 @@ void ML_BSSN_constraints_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT face, CCTK_REA HL = -2*(Atm12*Atm21 + Atm13*Atm31 + Atm23*Atm32) + trR - SQR(Atm11) - SQR(Atm22) - SQR(Atm33) + ktwothird*SQR(trKL); - gK112 = e4phi*(-2*(At11L*G112 + At12L*G212 + At13L*G312) + PDstandard4th2At11 + 4*At11L*PDstandard4th2phi) + - g11*kthird*PDstandard4th2trK; + gK112 = e4phi*(-2*(At11L*G112 + At12L*G212 + At13L*G312) + PDstandardNth2At11 + 4*At11L*PDstandardNth2phi) + + g11*kthird*PDstandardNth2trK; - gK113 = e4phi*(-2*(At11L*G113 + At12L*G213 + At13L*G313) + PDstandard4th3At11 + 4*At11L*PDstandard4th3phi) + - g11*kthird*PDstandard4th3trK; + gK113 = e4phi*(-2*(At11L*G113 + At12L*G213 + At13L*G313) + PDstandardNth3At11 + 4*At11L*PDstandardNth3phi) + + g11*kthird*PDstandardNth3trK; - gK121 = e4phi*(-(At11L*G112) - At22L*G211 - At12L*(G111 + G212) - At23L*G311 - At13L*G312 + PDstandard4th1At12 + - 4*At12L*PDstandard4th1phi) + g12*kthird*PDstandard4th1trK; + gK121 = e4phi*(-(At11L*G112) - At22L*G211 - At12L*(G111 + G212) - At23L*G311 - At13L*G312 + PDstandardNth1At12 + + 4*At12L*PDstandardNth1phi) + g12*kthird*PDstandardNth1trK; - gK122 = e4phi*(-(At11L*G122) - At22L*G212 - At12L*(G112 + G222) - At23L*G312 - At13L*G322 + PDstandard4th2At12 + - 4*At12L*PDstandard4th2phi) + g12*kthird*PDstandard4th2trK; + gK122 = e4phi*(-(At11L*G122) - At22L*G212 - At12L*(G112 + G222) - At23L*G312 - At13L*G322 + PDstandardNth2At12 + + 4*At12L*PDstandardNth2phi) + g12*kthird*PDstandardNth2trK; - gK123 = e4phi*(-(At11L*G123) - At22L*G213 - At12L*(G113 + G223) - At23L*G313 - At13L*G323 + PDstandard4th3At12 + - 4*At12L*PDstandard4th3phi) + g12*kthird*PDstandard4th3trK; + gK123 = e4phi*(-(At11L*G123) - At22L*G213 - At12L*(G113 + G223) - At23L*G313 - At13L*G323 + PDstandardNth3At12 + + 4*At12L*PDstandardNth3phi) + g12*kthird*PDstandardNth3trK; - gK131 = e4phi*(-(At11L*G113) - At23L*G211 - At12L*G213 - At33L*G311 - At13L*(G111 + G313) + PDstandard4th1At13 + - 4*At13L*PDstandard4th1phi) + g13*kthird*PDstandard4th1trK; + gK131 = e4phi*(-(At11L*G113) - At23L*G211 - At12L*G213 - At33L*G311 - At13L*(G111 + G313) + PDstandardNth1At13 + + 4*At13L*PDstandardNth1phi) + g13*kthird*PDstandardNth1trK; - gK132 = e4phi*(-(At11L*G123) - At23L*G212 - At12L*G223 - At33L*G312 - At13L*(G112 + G323) + PDstandard4th2At13 + - 4*At13L*PDstandard4th2phi) + g13*kthird*PDstandard4th2trK; + gK132 = e4phi*(-(At11L*G123) - At23L*G212 - At12L*G223 - At33L*G312 - At13L*(G112 + G323) + PDstandardNth2At13 + + 4*At13L*PDstandardNth2phi) + g13*kthird*PDstandardNth2trK; - gK133 = e4phi*(-(At11L*G133) - At23L*G213 - At12L*G233 - At33L*G313 - At13L*(G113 + G333) + PDstandard4th3At13 + - 4*At13L*PDstandard4th3phi) + g13*kthird*PDstandard4th3trK; + gK133 = e4phi*(-(At11L*G133) - At23L*G213 - At12L*G233 - At33L*G313 - At13L*(G113 + G333) + PDstandardNth3At13 + + 4*At13L*PDstandardNth3phi) + g13*kthird*PDstandardNth3trK; - gK221 = e4phi*(-2*(At12L*G112 + At22L*G212 + At23L*G312) + PDstandard4th1At22 + 4*At22L*PDstandard4th1phi) + - g22*kthird*PDstandard4th1trK; + gK221 = e4phi*(-2*(At12L*G112 + At22L*G212 + At23L*G312) + PDstandardNth1At22 + 4*At22L*PDstandardNth1phi) + + g22*kthird*PDstandardNth1trK; - gK223 = e4phi*(-2*(At12L*G123 + At22L*G223 + At23L*G323) + PDstandard4th3At22 + 4*At22L*PDstandard4th3phi) + - g22*kthird*PDstandard4th3trK; + gK223 = e4phi*(-2*(At12L*G123 + At22L*G223 + At23L*G323) + PDstandardNth3At22 + 4*At22L*PDstandardNth3phi) + + g22*kthird*PDstandardNth3trK; - gK231 = e4phi*(-(At13L*G112) - At12L*G113 - At23L*G212 - At22L*G213 - At33L*G312 - At23L*G313 + PDstandard4th1At23 + - 4*At23L*PDstandard4th1phi) + g23*kthird*PDstandard4th1trK; + gK231 = e4phi*(-(At13L*G112) - At12L*G113 - At23L*G212 - At22L*G213 - At33L*G312 - At23L*G313 + PDstandardNth1At23 + + 4*At23L*PDstandardNth1phi) + g23*kthird*PDstandardNth1trK; - gK232 = e4phi*(-(At13L*G122) - At12L*G123 - At23L*G222 - At22L*G223 - At33L*G322 - At23L*G323 + PDstandard4th2At23 + - 4*At23L*PDstandard4th2phi) + g23*kthird*PDstandard4th2trK; + gK232 = e4phi*(-(At13L*G122) - At12L*G123 - At23L*G222 - At22L*G223 - At33L*G322 - At23L*G323 + PDstandardNth2At23 + + 4*At23L*PDstandardNth2phi) + g23*kthird*PDstandardNth2trK; - gK233 = e4phi*(-(At13L*G123) - At12L*G133 - At23L*G223 - At22L*G233 - At33L*G323 - At23L*G333 + PDstandard4th3At23 + - 4*At23L*PDstandard4th3phi) + g23*kthird*PDstandard4th3trK; + gK233 = e4phi*(-(At13L*G123) - At12L*G133 - At23L*G223 - At22L*G233 - At33L*G323 - At23L*G333 + PDstandardNth3At23 + + 4*At23L*PDstandardNth3phi) + g23*kthird*PDstandardNth3trK; - gK331 = e4phi*(-2*(At13L*G113 + At23L*G213 + At33L*G313) + PDstandard4th1At33 + 4*At33L*PDstandard4th1phi) + - g33*kthird*PDstandard4th1trK; + gK331 = e4phi*(-2*(At13L*G113 + At23L*G213 + At33L*G313) + PDstandardNth1At33 + 4*At33L*PDstandardNth1phi) + + g33*kthird*PDstandardNth1trK; - gK332 = e4phi*(-2*(At13L*G123 + At23L*G223 + At33L*G323) + PDstandard4th2At33 + 4*At33L*PDstandard4th2phi) + - g33*kthird*PDstandard4th2trK; + gK332 = e4phi*(-2*(At13L*G123 + At23L*G223 + At33L*G323) + PDstandardNth2At33 + 4*At33L*PDstandardNth2phi) + + g33*kthird*PDstandardNth2trK; M1L = (gK112 - gK121)*gu21 + (gK122 - gK221)*gu22 + (gK113 - gK131)*gu31 + (gK123 + gK132 - 2*gK231)*gu32 + (gK133 - gK331)*gu33; diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c index f71797b..592327e 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.c @@ -106,24 +106,24 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT fa /* Declare precomputed derivatives*/ /* Declare derivatives */ - CCTK_REAL PDstandard4th1gt11 = INITVALUE; - CCTK_REAL PDstandard4th2gt11 = INITVALUE; - CCTK_REAL PDstandard4th3gt11 = INITVALUE; - CCTK_REAL PDstandard4th1gt12 = INITVALUE; - CCTK_REAL PDstandard4th2gt12 = INITVALUE; - CCTK_REAL PDstandard4th3gt12 = INITVALUE; - CCTK_REAL PDstandard4th1gt13 = INITVALUE; - CCTK_REAL PDstandard4th2gt13 = INITVALUE; - CCTK_REAL PDstandard4th3gt13 = INITVALUE; - CCTK_REAL PDstandard4th1gt22 = INITVALUE; - CCTK_REAL PDstandard4th2gt22 = INITVALUE; - CCTK_REAL PDstandard4th3gt22 = INITVALUE; - CCTK_REAL PDstandard4th1gt23 = INITVALUE; - CCTK_REAL PDstandard4th2gt23 = INITVALUE; - CCTK_REAL PDstandard4th3gt23 = INITVALUE; - CCTK_REAL PDstandard4th1gt33 = INITVALUE; - CCTK_REAL PDstandard4th2gt33 = INITVALUE; - CCTK_REAL PDstandard4th3gt33 = INITVALUE; + CCTK_REAL PDstandardNth1gt11 = INITVALUE; + CCTK_REAL PDstandardNth2gt11 = INITVALUE; + CCTK_REAL PDstandardNth3gt11 = INITVALUE; + CCTK_REAL PDstandardNth1gt12 = INITVALUE; + CCTK_REAL PDstandardNth2gt12 = INITVALUE; + CCTK_REAL PDstandardNth3gt12 = INITVALUE; + CCTK_REAL PDstandardNth1gt13 = INITVALUE; + CCTK_REAL PDstandardNth2gt13 = INITVALUE; + CCTK_REAL PDstandardNth3gt13 = INITVALUE; + CCTK_REAL PDstandardNth1gt22 = INITVALUE; + CCTK_REAL PDstandardNth2gt22 = INITVALUE; + CCTK_REAL PDstandardNth3gt22 = INITVALUE; + CCTK_REAL PDstandardNth1gt23 = INITVALUE; + CCTK_REAL PDstandardNth2gt23 = INITVALUE; + CCTK_REAL PDstandardNth3gt23 = INITVALUE; + CCTK_REAL PDstandardNth1gt33 = INITVALUE; + CCTK_REAL PDstandardNth2gt33 = INITVALUE; + CCTK_REAL PDstandardNth3gt33 = INITVALUE; /* Assign local copies of grid functions */ gt11L = gt11[index]; @@ -138,24 +138,24 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT fa /* Include user supplied include files */ /* Precompute derivatives (new style) */ - PDstandard4th1gt11 = PDstandard4th1(gt11, i, j, k); - PDstandard4th2gt11 = PDstandard4th2(gt11, i, j, k); - PDstandard4th3gt11 = PDstandard4th3(gt11, i, j, k); - PDstandard4th1gt12 = PDstandard4th1(gt12, i, j, k); - PDstandard4th2gt12 = PDstandard4th2(gt12, i, j, k); - PDstandard4th3gt12 = PDstandard4th3(gt12, i, j, k); - PDstandard4th1gt13 = PDstandard4th1(gt13, i, j, k); - PDstandard4th2gt13 = PDstandard4th2(gt13, i, j, k); - PDstandard4th3gt13 = PDstandard4th3(gt13, i, j, k); - PDstandard4th1gt22 = PDstandard4th1(gt22, i, j, k); - PDstandard4th2gt22 = PDstandard4th2(gt22, i, j, k); - PDstandard4th3gt22 = PDstandard4th3(gt22, i, j, k); - PDstandard4th1gt23 = PDstandard4th1(gt23, i, j, k); - PDstandard4th2gt23 = PDstandard4th2(gt23, i, j, k); - PDstandard4th3gt23 = PDstandard4th3(gt23, i, j, k); - PDstandard4th1gt33 = PDstandard4th1(gt33, i, j, k); - PDstandard4th2gt33 = PDstandard4th2(gt33, i, j, k); - PDstandard4th3gt33 = PDstandard4th3(gt33, i, j, k); + PDstandardNth1gt11 = PDstandardNth1(gt11, i, j, k); + PDstandardNth2gt11 = PDstandardNth2(gt11, i, j, k); + PDstandardNth3gt11 = PDstandardNth3(gt11, i, j, k); + PDstandardNth1gt12 = PDstandardNth1(gt12, i, j, k); + PDstandardNth2gt12 = PDstandardNth2(gt12, i, j, k); + PDstandardNth3gt12 = PDstandardNth3(gt12, i, j, k); + PDstandardNth1gt13 = PDstandardNth1(gt13, i, j, k); + PDstandardNth2gt13 = PDstandardNth2(gt13, i, j, k); + PDstandardNth3gt13 = PDstandardNth3(gt13, i, j, k); + PDstandardNth1gt22 = PDstandardNth1(gt22, i, j, k); + PDstandardNth2gt22 = PDstandardNth2(gt22, i, j, k); + PDstandardNth3gt22 = PDstandardNth3(gt22, i, j, k); + PDstandardNth1gt23 = PDstandardNth1(gt23, i, j, k); + PDstandardNth2gt23 = PDstandardNth2(gt23, i, j, k); + PDstandardNth3gt23 = PDstandardNth3(gt23, i, j, k); + PDstandardNth1gt33 = PDstandardNth1(gt33, i, j, k); + PDstandardNth2gt33 = PDstandardNth2(gt33, i, j, k); + PDstandardNth3gt33 = PDstandardNth3(gt33, i, j, k); /* Precompute derivatives (old style) */ @@ -174,59 +174,59 @@ void ML_BSSN_convertFromADMBaseGamma_Body(cGH *cctkGH, CCTK_INT dir, CCTK_INT fa gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); - Gt111 = khalf*(gtu11*PDstandard4th1gt11 + 2*(gtu21*PDstandard4th1gt12 + gtu31*PDstandard4th1gt13) - - gtu21*PDstandard4th2gt11 - gtu31*PDstandard4th3gt11); + Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - + gtu21*PDstandardNth2gt11 - gtu31*PDstandardNth3gt11); - Gt211 = khalf*(gtu21*PDstandard4th1gt11 + 2*(gtu22*PDstandard4th1gt12 + gtu32*PDstandard4th1gt13) - - gtu22*PDstandard4th2gt11 - gtu32*PDstandard4th3gt11); + Gt211 = khalf*(gtu21*PDstandardNth1gt11 + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - + gtu22*PDstandardNth2gt11 - gtu32*PDstandardNth3gt11); - Gt311 = khalf*(gtu31*PDstandard4th1gt11 + 2*(gtu32*PDstandard4th1gt12 + gtu33*PDstandard4th1gt13) - - gtu32*PDstandard4th2gt11 - gtu33*PDstandard4th3gt11); + Gt311 = khalf*(gtu31*PDstandardNth1gt11 + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - + gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); - Gt112 = khalf*(gtu21*PDstandard4th1gt22 + gtu11*PDstandard4th2gt11 + - gtu31*(PDstandard4th1gt23 + PDstandard4th2gt13 - PDstandard4th3gt12)); + Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + + gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); - Gt212 = khalf*(gtu22*PDstandard4th1gt22 + gtu21*PDstandard4th2gt11 + - gtu32*(PDstandard4th1gt23 + PDstandard4th2gt13 - PDstandard4th3gt12)); + Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + + gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); - Gt312 = khalf*(gtu32*PDstandard4th1gt22 + gtu31*PDstandard4th2gt11 + - gtu33*(PDstandard4th1gt23 + PDstandard4th2gt13 - PDstandard4th3gt12)); + Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + + gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); - Gt113 = khalf*(gtu31*PDstandard4th1gt33 + gtu11*PDstandard4th3gt11 + - gtu21*(PDstandard4th1gt23 - PDstandard4th2gt13 + PDstandard4th3gt12)); + Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + + gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); - Gt213 = khalf*(gtu32*PDstandard4th1gt33 + gtu21*PDstandard4th3gt11 + - gtu22*(PDstandard4th1gt23 - PDstandard4th2gt13 + PDstandard4th3gt12)); + Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + + gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); - Gt313 = khalf*(gtu33*PDstandard4th1gt33 + gtu31*PDstandard4th3gt11 + - gtu32*(PDstandard4th1gt23 - PDstandard4th2gt13 + PDstandard4th3gt12)); + Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + + gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); - Gt122 = khalf*(gtu11*(-PDstandard4th1gt22 + 2*PDstandard4th2gt12) + gtu21*PDstandard4th2gt22 + - gtu31*(2*PDstandard4th2gt23 - PDstandard4th3gt22)); + Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + + gtu31*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt222 = khalf*(gtu21*(-PDstandard4th1gt22 + 2*PDstandard4th2gt12) + gtu22*PDstandard4th2gt22 + - gtu32*(2*PDstandard4th2gt23 - PDstandard4th3gt22)); + Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu22*PDstandardNth2gt22 + + gtu32*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt322 = khalf*(gtu31*(-PDstandard4th1gt22 + 2*PDstandard4th2gt12) + gtu32*PDstandard4th2gt22 + - gtu33*(2*PDstandard4th2gt23 - PDstandard4th3gt22)); + Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu32*PDstandardNth2gt22 + + gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - Gt123 = khalf*(gtu31*PDstandard4th2gt33 + gtu11*(-PDstandard4th1gt23 + PDstandard4th2gt13 + PDstandard4th3gt12) + - gtu21*PDstandard4th3gt22); + Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + + gtu21*PDstandardNth3gt22); - Gt223 = khalf*(gtu32*PDstandard4th2gt33 + gtu21*(-PDstandard4th1gt23 + PDstandard4th2gt13 + PDstandard4th3gt12) + - gtu22*PDstandard4th3gt22); + Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + + gtu22*PDstandardNth3gt22); - Gt323 = khalf*(gtu33*PDstandard4th2gt33 + gtu31*(-PDstandard4th1gt23 + PDstandard4th2gt13 + PDstandard4th3gt12) + - gtu32*PDstandard4th3gt22); + Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + + gtu32*PDstandardNth3gt22); - Gt133 = khalf*(-(gtu11*PDstandard4th1gt33) - gtu21*PDstandard4th2gt33 + 2*gtu11*PDstandard4th3gt13 + - 2*gtu21*PDstandard4th3gt23 + gtu31*PDstandard4th3gt33); + Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + + 2*gtu21*PDstandardNth3gt23 + gtu31*PDstandardNth3gt33); - Gt233 = khalf*(-(gtu21*PDstandard4th1gt33) - gtu22*PDstandard4th2gt33 + 2*gtu21*PDstandard4th3gt13 + - 2*gtu22*PDstandard4th3gt23 + gtu32*PDstandard4th3gt33); + Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + 2*gtu21*PDstandardNth3gt13 + + 2*gtu22*PDstandardNth3gt23 + gtu32*PDstandardNth3gt33); - Gt333 = khalf*(-(gtu31*PDstandard4th1gt33) - gtu32*PDstandard4th2gt33 + 2*gtu31*PDstandard4th3gt13 + - 2*gtu32*PDstandard4th3gt23 + gtu33*PDstandard4th3gt33); + Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + 2*gtu31*PDstandardNth3gt13 + + 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); Xt1L = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; |