diff options
author | allen <allen@0cbbb82d-14ec-4423-a1fb-2ab18257ecaa> | 2002-05-03 19:51:54 +0000 |
---|---|---|
committer | allen <allen@0cbbb82d-14ec-4423-a1fb-2ab18257ecaa> | 2002-05-03 19:51:54 +0000 |
commit | 8b61484cddbf23a7578773eb2be9ec449fab7f94 (patch) | |
tree | 1ebacb3bc615ac27ed5d6127b44ae8262ab5c25d | |
parent | fc8dc00bf59a006df78044daef3811abdae874b3 (diff) |
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
-rw-r--r-- | interface.ccl | 8 | ||||
-rw-r--r-- | 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); } /******************************************************************** |