From 8cb151b48f3be15cfcff34f19033d63c81f63d1c Mon Sep 17 00:00:00 2001 From: diener Date: Fri, 6 Feb 2004 22:54:23 +0000 Subject: 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 --- interface.ccl | 26 ++++++++++++++++++++++++++ src/AHFinder.F | 4 ++-- 2 files changed, 28 insertions(+), 2 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 ### ################################ diff --git a/src/AHFinder.F b/src/AHFinder.F index a4bfdaf..d67a0a2 100644 --- a/src/AHFinder.F +++ b/src/AHFinder.F @@ -195,7 +195,7 @@ save_conformal_state = conformal_state conformal_state = 0 - call StaticConf_ConfToPhysInPlace (nx,ny,nz,psi, + call ConfToPhysInPlace (nx,ny,nz,psi, & gxx,gxy,gxz,gyy,gyz,gzz) end if @@ -1520,7 +1520,7 @@ conformal_state = save_conformal_state - call StaticConf_PhysToConfInPlace (nx,ny,nz,psi, + call PhysToConfInPlace (nx,ny,nz,psi, & gxx,gxy,gxz,gyy,gyz,gzz) end if -- cgit v1.2.3