aboutsummaryrefslogtreecommitdiff
path: root/interface.ccl
diff options
context:
space:
mode:
authordiener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c>2004-02-06 22:54:23 +0000
committerdiener <diener@89daf98e-ef62-4674-b946-b8ff9de2216c>2004-02-06 22:54:23 +0000
commit8cb151b48f3be15cfcff34f19033d63c81f63d1c (patch)
tree52358ed36be0ddca5d520e847c9d16e66188cfb8 /interface.ccl
parent23a3010f7c6d06d1b2347532ae29ccad902a5fbe (diff)
Modified the code to use the aliased functions provided by StaticConformal.
Otherwise the code wouldn't compile!!! git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@361 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'interface.ccl')
-rw-r--r--interface.ccl26
1 files changed, 26 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl
index 037875e..562a180 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -12,6 +12,32 @@ SUBROUTINE SetDriftCorrectPosition ( CCTK_POINTER_TO_CONST IN GH_Pointer, \
USES FUNCTION SetDriftCorrectPosition
+SUBROUTINE ConfToPhysInPlace (CCTK_INT IN nx, \
+ CCTK_INT IN ny, \
+ CCTK_INT IN nz, \
+ CCTK_REAL ARRAY IN psi, \
+ CCTK_REAL ARRAY INOUT gxx, \
+ CCTK_REAL ARRAY INOUT gxy, \
+ CCTK_REAL ARRAY INOUT gxz, \
+ CCTK_REAL ARRAY INOUT gyy, \
+ CCTK_REAL ARRAY INOUT gyz, \
+ CCTK_REAL ARRAY INOUT gzz)
+
+USES FUNCTION ConfToPhysInPlace
+
+SUBROUTINE PhysToConfInPlace (CCTK_INT IN nx, \
+ CCTK_INT IN ny, \
+ CCTK_INT IN nz, \
+ CCTK_REAL ARRAY IN psi, \
+ CCTK_REAL ARRAY INOUT gxx, \
+ CCTK_REAL ARRAY INOUT gxy, \
+ CCTK_REAL ARRAY INOUT gxz, \
+ CCTK_REAL ARRAY INOUT gyy, \
+ CCTK_REAL ARRAY INOUT gyz, \
+ CCTK_REAL ARRAY INOUT gzz)
+
+USES FUNCTION PhysToConfInPlace
+
################################
### PUBLIC GRID FUNCTIONS ###
################################