oops, forgot to add this file to cvs

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@942 f88db872-0e4f-0410-b76b-b9085cfa78c5

1 files changed, 55 insertions, 0 deletions

diff --git a/src/elliptic/ilucg.h b/src/elliptic/ilucg.h
new file mode 100644
index 0000000..435a6c1
--- /dev/null
+++ b/src/elliptic/ilucg.h
@@ -0,0 +1,55 @@
+/* ilucg.h -- C/C++ prototypes for [sd]ilucg() routines */
+/* $Header$ */
+
+/*
+ * prerequisites:
+ *	"cctk.h"
+ *	"config.h"	// for "integer" = Fortran integer
+ */
+
+#ifdef __cplusplus
+extern "C"
+       {
+#endif
+
+/*
+ * ***** ILUCG *****
+ */
+integer CCTK_FCALL
+  CCTK_FNAME(silucg)(const integer* N,
+		     const integer ia[], const integer ja[], const float a[],
+		     const float b[], float x[],
+		     integer itemp[], float rtemp[],
+		     const float* eps, const integer* iter,
+		     integer* istatus);
+integer CCTK_FCALL
+  CCTK_FNAME(dilucg)(const integer* N,
+		     const integer ia[], const integer ja[], const double a[],
+		     const double b[], double x[],
+		     integer itemp[], double rtemp[],
+		     const double* eps, const integer* iter,
+		     integer* istatus);
+
+/*
+ * ***** wrappers (for returning logical results) *****
+ */
+void CCTK_FCALL
+  CCTK_FNAME(silucg_wrapper)
+		    (const integer* N,
+		     const integer ia[], const integer ja[], const float a[],
+		     const float b[], float x[],
+		     integer itemp[], float rtemp[],
+		     const float* eps, const integer* iter,
+		     integer* istatus, integer* ierror);
+void CCTK_FCALL
+  CCTK_FNAME(dilucg_wrapper)
+		    (const integer* N,
+		     const integer ia[], const integer ja[], const double a[],
+		     const double b[], double x[],
+		     integer itemp[], double rtemp[],
+		     const double* eps, const integer* iter,
+		     integer* istatus, integer* ierror);
+
+#ifdef __cplusplus
+       }	/* extern "C" */
+#endif