|
|
@ -131,11 +131,12 @@ typedef struct {
|
|
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
void
|
|
|
|
psb_zslu_factor_(int *n, int *nnz,
|
|
|
|
psb_zslu_factor_(int *n, int *nnz,
|
|
|
|
doublecomplex *values, int *rowind, int *colptr,
|
|
|
|
|
|
|
|
#ifdef Have_SLU_
|
|
|
|
#ifdef Have_SLU_
|
|
|
|
|
|
|
|
doublecomplex *values, int *rowind, int *colptr,
|
|
|
|
fptr *f_factors, /* a handle containing the address
|
|
|
|
fptr *f_factors, /* a handle containing the address
|
|
|
|
pointing to the factored matrices */
|
|
|
|
pointing to the factored matrices */
|
|
|
|
#else
|
|
|
|
#else
|
|
|
|
|
|
|
|
void *values, int *rowind, int *colptr,
|
|
|
|
void *f_factors,
|
|
|
|
void *f_factors,
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
int *info)
|
|
|
|
int *info)
|
|
|
@ -255,11 +256,12 @@ psb_zslu_factor_(int *n, int *nnz,
|
|
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
void
|
|
|
|
psb_zslu_solve_(int *itrans, int *n, int *nrhs,
|
|
|
|
psb_zslu_solve_(int *itrans, int *n, int *nrhs,
|
|
|
|
doublecomplex *b, int *ldb,
|
|
|
|
|
|
|
|
#ifdef Have_SLU_
|
|
|
|
#ifdef Have_SLU_
|
|
|
|
|
|
|
|
doublecomplex *b, int *ldb,
|
|
|
|
fptr *f_factors, /* a handle containing the address
|
|
|
|
fptr *f_factors, /* a handle containing the address
|
|
|
|
pointing to the factored matrices */
|
|
|
|
pointing to the factored matrices */
|
|
|
|
#else
|
|
|
|
#else
|
|
|
|
|
|
|
|
void *b, int *ldb,
|
|
|
|
void *f_factors,
|
|
|
|
void *f_factors,
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
int *info)
|
|
|
|
int *info)
|
|
|
|