diff options
author | allen <allen@57bc7290-fb3d-4efd-a9b1-28e84cce6043> | 2000-05-10 12:12:43 +0000 |
---|---|---|
committer | allen <allen@57bc7290-fb3d-4efd-a9b1-28e84cce6043> | 2000-05-10 12:12:43 +0000 |
commit | fb5d0bf9730244296cb0bd87ca4e5e8d0b640ae9 (patch) | |
tree | f097c24f42179865b10b045f31bd84a8af6d745a /doc | |
parent | 4e9745d03b4865b258fb792c38cb94581916b915 (diff) |
New macros for calling C from fortran
using PUGH_pGH
git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllBase/trunk@44 57bc7290-fb3d-4efd-a9b1-28e84cce6043
Diffstat (limited to 'doc')
-rw-r--r-- | doc/ThornGuide.tex | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/doc/ThornGuide.tex b/doc/ThornGuide.tex index 18f6c6e..6dba57b 100644 --- a/doc/ThornGuide.tex +++ b/doc/ThornGuide.tex @@ -376,7 +376,7 @@ accessible by the elliptic registry). \begin{verbatim} /* Fortran wrapper for the routine Ell_SimpleEllSolver */ -void FMODIFIER FORTRAN_NAME(Ell_SimpelEllSolver) +void CCTK_FCALL CCTK_FNAME(Ell_SimpelEllSolver) (cGH *GH, int *FieldIndex, int *MIndex, int *AbsTol, int *RelTol, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(solver_name); @@ -454,7 +454,7 @@ void FastSOR_wrapper(cGH *GH, int *FieldIndex, int *MIndex, } /* call the fortran routine */ - FORTRAN_NAME(SimpleEll_Solver)(_PASS_CCTK_C2F(GH), + CCTK_FNAME(SimpleEll_Solver)(_PASS_CCTK_C2F(GH), Mlinear_lsh, Mlinear, var, AbsTol, RelTol); } |