From 8b61484cddbf23a7578773eb2be9ec449fab7f94 Mon Sep 17 00:00:00 2001 From: allen Date: Fri, 3 May 2002 19:51:54 +0000 Subject: reducing length of function names for Absoft Linux git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/StaticConformal/trunk@9 0cbbb82d-14ec-4423-a1fb-2ab18257ecaa --- interface.ccl | 8 ++-- src/ConfPhys.c | 128 ++++++++++++++++++++++++++++----------------------------- 2 files changed, 68 insertions(+), 68 deletions(-) diff --git a/interface.ccl b/interface.ccl index d9ccc56..7c1484e 100644 --- a/interface.ccl +++ b/interface.ccl @@ -34,14 +34,14 @@ REAL confac_2derivs TYPE = GF # psi_11, psi_12, psi_13, psi_22, psi_23, psi_33 #} "Second spatial derivatives of conformal factor divided by psi" -#void FUNCTION StaticConformal_ConfToPhysInPlace CCTK_INT nx, CCTK_INT ny, CCTK_INT nz, \ +#void FUNCTION StaticConf_ConfToPhysInPlace CCTK_INT nx, CCTK_INT ny, CCTK_INT nz, \ # CCTK_REAL:ARRAY gxx, CCTK_REAL:ARRAY gxy, CCTK_REAL:ARRAY gxz, \ # CCTK_REAL:ARRAY gyy, CCTK_REAL:ARRAY gyz, CCTK_REAL:ARRAY gzz, -#PROVIDES FUNCTION StaticConformal_ConfToPhysInPlace WITH StaticConformali_ConfToPhysInPlace +#PROVIDES FUNCTION StaticConf_ConfToPhysInPlace WITH StaticConformali_ConfToPhysInPlace -#void FUNCTION StaticConformal_PhysToConfInPlace CCTK_INT nx, CCTK_INT ny, CCTK_INT nz, \ +#void FUNCTION StaticConf_PhysToConfInPlace CCTK_INT nx, CCTK_INT ny, CCTK_INT nz, \ # CCTK_REAL:ARRAY gxx, CCTK_REAL:ARRAY gxy, CCTK_REAL:ARRAY gxz, \ # CCTK_REAL:ARRAY gyy, CCTK_REAL:ARRAY gyz, CCTK_REAL:ARRAY gzz, -#PROVIDES FUNCTION StaticConformal_PhysToConfInPlace WITH StaticConformali_PhysToConfInPlace +#PROVIDES FUNCTION StaticConf_PhysToConfInPlace WITH StaticConformali_PhysToConfInPlace diff --git a/src/ConfPhys.c b/src/ConfPhys.c index 65e7f3b..c0e29cc 100644 --- a/src/ConfPhys.c +++ b/src/ConfPhys.c @@ -34,26 +34,26 @@ CCTK_FILEVERSION(CactusEinstein_StaticConformal_ConfPhys_c) ********************* Other Routine Prototypes ********************* ********************************************************************/ -void CCTK_FCALL CCTK_FNAME (StaticConformal_PhysToConfInPlace) (int *nx, - int *ny, - int *nz, - CCTK_REAL *psi, - CCTK_REAL *gxx, - CCTK_REAL *gxy, - CCTK_REAL *gxz, - CCTK_REAL *gyy, - CCTK_REAL *gyz, - CCTK_REAL *gzz); -void CCTK_FCALL CCTK_FNAME (StaticConformal_ConfToPhysInPlace) (int *nx, - int *ny, - int *nz, - CCTK_REAL *psi, - CCTK_REAL *gxx, - CCTK_REAL *gxy, - CCTK_REAL *gxz, - CCTK_REAL *gyy, - CCTK_REAL *gyz, - CCTK_REAL *gzz); +void CCTK_FCALL CCTK_FNAME (StaticConf_PhysToConfInPlace) (int *nx, + int *ny, + int *nz, + CCTK_REAL *psi, + CCTK_REAL *gxx, + CCTK_REAL *gxy, + CCTK_REAL *gxz, + CCTK_REAL *gyy, + CCTK_REAL *gyz, + CCTK_REAL *gzz); +void CCTK_FCALL CCTK_FNAME (StaticConf_ConfToPhysInPlace) (int *nx, + int *ny, + int *nz, + CCTK_REAL *psi, + CCTK_REAL *gxx, + CCTK_REAL *gxy, + CCTK_REAL *gxz, + CCTK_REAL *gyy, + CCTK_REAL *gyz, + CCTK_REAL *gzz); /******************************************************************** ********************* Local Data ***************************** @@ -65,7 +65,7 @@ void CCTK_FCALL CCTK_FNAME (StaticConformal_ConfToPhysInPlace) (int *nx, /*@@ - @routine StaticConformal_ConfToPhysInPlace + @routine StaticConf_ConfToPhysInPlace @date September 3rd 1999 @author Gabrielle Allen @desc @@ -118,16 +118,16 @@ void CCTK_FCALL CCTK_FNAME (StaticConformal_ConfToPhysInPlace) (int *nx, @vio inout @@*/ -void StaticConformal_ConfToPhysInPlace (int nx, - int ny, - int nz, - const CCTK_REAL *psi, - CCTK_REAL *gxx, - CCTK_REAL *gxy, - CCTK_REAL *gxz, - CCTK_REAL *gyy, - CCTK_REAL *gyz, - CCTK_REAL *gzz) +void StaticConf_ConfToPhysInPlace (int nx, + int ny, + int nz, + const CCTK_REAL *psi, + CCTK_REAL *gxx, + CCTK_REAL *gxy, + CCTK_REAL *gxz, + CCTK_REAL *gyy, + CCTK_REAL *gyz, + CCTK_REAL *gzz) { CCTK_REAL psi4; int index; @@ -152,23 +152,23 @@ void StaticConformal_ConfToPhysInPlace (int nx, } -void CCTK_FCALL CCTK_FNAME (StaticConformal_ConfToPhysInPlace) (int *nx, - int *ny, - int *nz, - CCTK_REAL *psi, - CCTK_REAL *gxx, - CCTK_REAL *gxy, - CCTK_REAL *gxz, - CCTK_REAL *gyy, - CCTK_REAL *gyz, - CCTK_REAL *gzz) +void CCTK_FCALL CCTK_FNAME (StaticConf_ConfToPhysInPlace) (int *nx, + int *ny, + int *nz, + CCTK_REAL *psi, + CCTK_REAL *gxx, + CCTK_REAL *gxy, + CCTK_REAL *gxz, + CCTK_REAL *gyy, + CCTK_REAL *gyz, + CCTK_REAL *gzz) { - StaticConformal_ConfToPhysInPlace (*nx, *ny, *nz, psi, gxx, gxy, gxz, gyy, gyz, gzz); + StaticConf_ConfToPhysInPlace (*nx, *ny, *nz, psi, gxx, gxy, gxz, gyy, gyz, gzz); } /*@@ - @routine StaticConformal_PhysToConfInPlace + @routine StaticConf_PhysToConfInPlace @date September 3rd 1999 @author Gabrielle Allen @desc @@ -221,16 +221,16 @@ void CCTK_FCALL CCTK_FNAME (StaticConformal_ConfToPhysInPlace) (int *nx, @vio inout @@*/ -void StaticConformal_PhysToConfInPlace (int nx, - int ny, - int nz, - const CCTK_REAL *psi, - CCTK_REAL *gxx, - CCTK_REAL *gxy, - CCTK_REAL *gxz, - CCTK_REAL *gyy, - CCTK_REAL *gyz, - CCTK_REAL *gzz) +void StaticConf_PhysToConfInPlace (int nx, + int ny, + int nz, + const CCTK_REAL *psi, + CCTK_REAL *gxx, + CCTK_REAL *gxy, + CCTK_REAL *gxz, + CCTK_REAL *gyy, + CCTK_REAL *gyz, + CCTK_REAL *gzz) { int index; CCTK_REAL psi4; @@ -258,18 +258,18 @@ void StaticConformal_PhysToConfInPlace (int nx, } -void CCTK_FCALL CCTK_FNAME (StaticConformal_PhysToConfInPlace) (int *nx, - int *ny, - int *nz, - CCTK_REAL *psi, - CCTK_REAL *gxx, - CCTK_REAL *gxy, - CCTK_REAL *gxz, - CCTK_REAL *gyy, - CCTK_REAL *gyz, - CCTK_REAL *gzz) +void CCTK_FCALL CCTK_FNAME (StaticConf_PhysToConfInPlace) (int *nx, + int *ny, + int *nz, + CCTK_REAL *psi, + CCTK_REAL *gxx, + CCTK_REAL *gxy, + CCTK_REAL *gxz, + CCTK_REAL *gyy, + CCTK_REAL *gyz, + CCTK_REAL *gzz) { - StaticConformal_PhysToConfInPlace (*nx, *ny, *nz, psi, gxx, gxy, gxz, gyy, gyz, gzz); + StaticConf_PhysToConfInPlace (*nx, *ny, *nz, psi, gxx, gxy, gxz, gyy, gyz, gzz); } /******************************************************************** -- cgit v1.2.3