From fa52eb4f511eed975c04f29b563d81bf5230b993 Mon Sep 17 00:00:00 2001 From: goodale Date: Tue, 30 Nov 1999 23:43:56 +0000 Subject: Added lots of missing function prototypes. Tom git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllSOR/trunk@43 fa3da13c-9f13-4301-a575-cf5b8c5e1907 --- interface.ccl | 3 +++ src/Startup.c | 3 ++- src/sor_wrapper.c | 13 +++++++++++++ 3 files changed, 18 insertions(+), 1 deletion(-) 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. */ -- cgit v1.2.3