fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Update configure and interfaces for SUPERLU version 7.

Browse Source
This commit is contained in:
sfilippone
2025-12-19 12:49:45 +01:00
parent 498f8bd482
commit a6267d8e67
6 changed files with 82 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
amgprec/impl/amg_cslu_interface.c
+9 -1
View File
@@ -112,7 +112,11 @@ typedef struct {
int amg_cslu_fact(int n, int nnz,
#ifdef AMG_HAVE_SLU
#if defined(AMG_SLU_VERSION_7)
singlecomplex *values,
#else
complex *values,
#endif
#else
void *values,
#endif
@@ -177,7 +181,7 @@ int amg_cslu_fact(int n, int nnz,
panel_size = sp_ienv(1);
relax = sp_ienv(2);
#if defined(AMG_SLU_VERSION_5)
#if defined(AMG_SLU_VERSION_7) ||defined(AMG_SLU_VERSION_5)
cgstrf(&options, &AC, relax, panel_size, etree,
NULL, 0, perm_c, perm_r, L, U, &Glu, &stat, &info);
#elif defined(AMG_SLU_VERSION_4)
@@ -230,7 +234,11 @@ int amg_cslu_fact(int n, int nnz,
int amg_cslu_solve(int itrans, int n, int nrhs,
#ifdef AMG_HAVE_SLU
#if defined(AMG_SLU_VERSION_7)
singlecomplex *b,
#else
complex *b,
#endif
#else
void *b,
#endif
amgprec/impl/amg_dslu_interface.c
+1 -1
View File
@@ -171,7 +171,7 @@ int amg_dslu_fact(int n, int nnz, double *values,
panel_size = sp_ienv(1);
relax = sp_ienv(2);
#if defined(AMG_SLU_VERSION_5)
#if defined(AMG_SLU_VERSION_7) ||defined(AMG_SLU_VERSION_5)
dgstrf(&options, &AC, relax, panel_size, etree,
NULL, 0, perm_c, perm_r, L, U, &Glu, &stat, &info);
#elif defined(AMG_SLU_VERSION_4)
amgprec/impl/amg_sslu_interface.c
+1 -1
View File
@@ -172,7 +172,7 @@ int amg_sslu_fact(int n, int nnz, float *values,
panel_size = sp_ienv(1);
relax = sp_ienv(2);
#if defined(AMG_SLU_VERSION_5)
#if defined(AMG_SLU_VERSION_7) ||defined(AMG_SLU_VERSION_5)
sgstrf(&options, &AC, relax, panel_size,
etree, NULL, 0, perm_c, perm_r, L, U, &Glu, &stat, &info);
#elif defined(AMG_SLU_VERSION_4)
amgprec/impl/amg_zslu_interface.c
+1 -1
View File
@@ -176,7 +176,7 @@ int amg_zslu_fact(int n, int nnz,
panel_size = sp_ienv(1);
relax = sp_ienv(2);
#if defined(AMG_SLU_VERSION_5)
#if defined(AMG_SLU_VERSION_7) ||defined(AMG_SLU_VERSION_5)
zgstrf(&options, &AC, relax, panel_size, etree,
NULL, 0, perm_c, perm_r, L, U, &Glu, &stat, &info);
#elif defined(AMG_SLU_VERSION_4)