diff options
| author | goodale <goodale@fa3da13c-9f13-4301-a575-cf5b8c5e1907> | 1999-11-30 23:43:56 +0000 |
|---|---|---|
| committer | goodale <goodale@fa3da13c-9f13-4301-a575-cf5b8c5e1907> | 1999-11-30 23:43:56 +0000 |
| commit | fa52eb4f511eed975c04f29b563d81bf5230b993 (patch) | |
| tree | 294ee4f6eaf77a95c7ff28037c6e427c93755eca | |
| parent | 35a306354967d9a091ebc3153a007470c29d3ad0 (diff) | |
Added lots of missing function prototypes.
Tom
git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllSOR/trunk@43 fa3da13c-9f13-4301-a575-cf5b8c5e1907
| -rw-r--r-- | interface.ccl | 3 | ||||
| -rw-r--r-- | src/Startup.c | 3 | ||||
| -rw-r--r-- | src/sor_wrapper.c | 13 |
3 files changed, 18 insertions, 1 deletions
diff --git a/interface.ccl b/interface.ccl index 947c210..536be33 100644 --- a/interface.ccl +++ b/interface.ccl @@ -3,3 +3,6 @@ implements: ellsor inherits: ellbase + +USES INCLUDE: EllBase.h +USES INCLUDE: Ell_DBstructure.h diff --git a/src/Startup.c b/src/Startup.c index 4cef1e2..3e78c4e 100644 --- a/src/Startup.c +++ b/src/Startup.c @@ -7,7 +7,8 @@ #include "cctk_parameters.h" #include "cctk_WarnLevel.h" -#include "CactusElliptic/EllBase/src/Ell_DBstructure.h" +#include "EllBase.h" +#include "Ell_DBstructure.h" /* routine registers the SOR solver "sor_confmetric" under the name "sor" with the Elliptic Class "LinConfMetric". diff --git a/src/sor_wrapper.c b/src/sor_wrapper.c index f79f806..a0b3eac 100644 --- a/src/sor_wrapper.c +++ b/src/sor_wrapper.c @@ -22,6 +22,19 @@ #include "cctk_parameters.h" #include "cctk_FortranString.h" +void FORTRAN_NAME(sor_confmetric_core3d)(_CCTK_C2F_PROTO(GH), + int *, CCTK_REAL *, + int *, CCTK_REAL *, + CCTK_REAL *, + CCTK_REAL *,CCTK_REAL *,CCTK_REAL *, + CCTK_REAL *,CCTK_REAL *,CCTK_REAL *, + CCTK_REAL *, int *, CCTK_REAL *, CCTK_REAL *); + +void FORTRAN_NAME(sor_flat_core3d)(_CCTK_C2F_PROTO(GH), + int *, CCTK_REAL *, + int *, CCTK_REAL *, + CCTK_REAL *, int *, CCTK_REAL *, CCTK_REAL *); + /* We pass in the arguments that are neccessary for this class of elliptic eq. this solver is intended to solve. See ./CactusElliptic/EllBase/src/ for the classes of elliptic eq. */ |