diff options
-rw-r--r-- | interface.ccl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index 6aad1e4..dd40a3e 100644 --- a/interface.ccl +++ b/interface.ccl @@ -8,6 +8,44 @@ inherits: ADMBase, StaticConformal, Grid, ADMMacros, Boundary USES INCLUDE HEADER: Symmetry.h USES INCLUDE HEADER: Boundary.h +void FUNCTION CartToSphere(CCTK_INT IN ARRAY lsh, \ + CCTK_INT IN r2norm, \ + CCTK_REAL IN ARRAY x, \ + CCTK_REAL IN ARRAY y, \ + CCTK_REAL IN ARRAY z, \ + CCTK_REAL IN ARRAY r, \ + CCTK_REAL IN ARRAY cart_xx, \ + CCTK_REAL IN ARRAY cart_xy, \ + CCTK_REAL IN ARRAY cart_xz, \ + CCTK_REAL IN ARRAY cart_yy, \ + CCTK_REAL IN ARRAY cart_yz, \ + CCTK_REAL IN ARRAY cart_zz, \ + CCTK_REAL OUT ARRAY sphere_rr, \ + CCTK_REAL OUT ARRAY sphere_rq, \ + CCTK_REAL OUT ARRAY sphere_rp, \ + CCTK_REAL OUT ARRAY sphere_qq, \ + CCTK_REAL OUT ARRAY sphere_qp, \ + CCTK_REAL OUT ARRAY sphere_pp) + +void FUNCTION Trace(CCTK_INT IN ARRAY lsh, \ + CCTK_REAL IN ARRAY g11, \ + CCTK_REAL IN ARRAY g12, \ + CCTK_REAL IN ARRAY g13, \ + CCTK_REAL IN ARRAY g22, \ + CCTK_REAL IN ARRAY g23, \ + CCTK_REAL IN ARRAY g33, \ + CCTK_REAL OUT ARRAY tensor11, \ + CCTK_REAL OUT ARRAY tensor12, \ + CCTK_REAL OUT ARRAY tensor13, \ + CCTK_REAL OUT ARRAY tensor22, \ + CCTK_REAL OUT ARRAY tensor23, \ + CCTK_REAL OUT ARRAY tensor33, \ + CCTK_REAL OUT ARRAY trace, \ + CCTK_REAL OUT ARRAY detg) + +PROVIDES FUNCTION CartToSphere WITH ADMAnalysis_CartToSphere LANGUAGE C +PROVIDES FUNCTION Trace WITH ADMAnalysis_Trace LANGUAGE C + # For evaltrK REAL trace_of_K TYPE = GF { |