diff options
| author | hawke <hawke@80bd93c7-81bc-453a-9e3f-619c0b4f6fe4> | 2003-05-03 09:53:40 +0000 |
|---|---|---|
| committer | hawke <hawke@80bd93c7-81bc-453a-9e3f-619c0b4f6fe4> | 2003-05-03 09:53:40 +0000 |
| commit | 5bfd18a89278c2c2ecee86d6fcdf135cb8794bb3 (patch) | |
| tree | c3ba1138432a9c9a37eae45ca3fdab4288cb53e2 | |
| parent | f32c9259e6de880ae7bd3f43cde2632f69f023d8 (diff) | |
Add aliased functions for the CartToSphere and Trace functions provided by ADMAnalysis. This uses the latest form of function aliasing (i.e., including intent statements).
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMAnalysis/trunk@17 80bd93c7-81bc-453a-9e3f-619c0b4f6fe4
| -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 { |