diff options
Diffstat (limited to 'src/sor_wrapper.c')
-rw-r--r-- | src/sor_wrapper.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/sor_wrapper.c b/src/sor_wrapper.c index 9da5dbd..d05e646 100644 --- a/src/sor_wrapper.c +++ b/src/sor_wrapper.c @@ -22,7 +22,7 @@ #include "cctk_Parameters.h" #include "cctk_FortranString.h" -void FORTRAN_NAME(sor_confmetric_core3d) +void CCTK_FNAME(sor_confmetric_core3d) (_CCTK_C2F_PROTO(GH), int *, CCTK_REAL *, @@ -40,7 +40,7 @@ void FORTRAN_NAME(sor_confmetric_core3d) CCTK_REAL *, CCTK_REAL *); -void FORTRAN_NAME(sor_flat_core3d) +void CCTK_FNAME(sor_flat_core3d) (int *ierr, _CCTK_C2F_PROTO(GH), int *, @@ -117,7 +117,7 @@ void sor_confmetric(cGH *GH, /* call the fortran routine */ - FORTRAN_NAME(sor_confmetric_core3d)(_PASS_CCTK_C2F(GH), + CCTK_FNAME(sor_confmetric_core3d)(_PASS_CCTK_C2F(GH), Mlinear_lsh, Mlinear, Nsource_lsh, Nsources, gxx,gxy,gxz,gyy,gyz,gzz,psi, @@ -161,7 +161,7 @@ int sor_flat(cGH *GH, } /* call the fortran routine */ - FORTRAN_NAME(sor_flat_core3d) + CCTK_FNAME(sor_flat_core3d) (&ierr, _PASS_CCTK_C2F(GH), Mlinear_lsh, |