diff options
author | goodale <goodale@6a3ddf76-46e1-4315-99d9-bc56cac1ef84> | 1999-06-24 08:53:14 +0000 |
---|---|---|
committer | goodale <goodale@6a3ddf76-46e1-4315-99d9-bc56cac1ef84> | 1999-06-24 08:53:14 +0000 |
commit | 82c319ee6787a66cc9b25b9b89829ce286557182 (patch) | |
tree | 7491e62f9458db9b019721348fc95f9d6dbcc0a8 /src/Misner_points.c | |
parent | e227a1eb424d3e1754c5cf1f573561cedb741ee4 (diff) |
Added FMODIFIER to Fortran subroutine definitions.
FMODIFIER is now in config.h, so you may need to do a <conf>-reconfig after
updating.
Tom
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAnalyticBH/trunk@18 6a3ddf76-46e1-4315-99d9-bc56cac1ef84
Diffstat (limited to 'src/Misner_points.c')
-rw-r--r-- | src/Misner_points.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Misner_points.c b/src/Misner_points.c index b7e238d..2eb5541 100644 --- a/src/Misner_points.c +++ b/src/Misner_points.c @@ -122,7 +122,7 @@ void fill_iso(struct bhole *b, int n) @@*/ -void FORTRAN_NAME(Misner_init)(int *n, CCTK_REAL *mu, int *terms) +void FMODIFIER FORTRAN_NAME(Misner_init)(int *n, CCTK_REAL *mu, int *terms) { int i; @@ -198,7 +198,7 @@ CCTK_REAL eval_bh_psi(struct bhole *b, CCTK_REAL x, CCTK_REAL y, CCTK_REAL z) @@*/ -void FORTRAN_NAME(MisnerEvalPsi)(CCTK_REAL *x, CCTK_REAL *y, CCTK_REAL *z, CCTK_REAL *res) +void FMODIFIER FORTRAN_NAME(MisnerEvalPsi)(CCTK_REAL *x, CCTK_REAL *y, CCTK_REAL *z, CCTK_REAL *res) { int i; *res = 1; |