/* 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