diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Startup.c | 3 | ||||
-rw-r--r-- | src/sor_wrapper.c | 13 |
2 files changed, 15 insertions, 1 deletions
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. */ |