mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-06 06:30:19 +00:00
25 lines
653 B
C
25 lines
653 B
C
--- so_suplu.c.orig Fri Nov 10 05:59:39 2000
|
|
+++ so_suplu.c Sun Mar 20 00:45:14 2005
|
|
@@ -53,6 +53,10 @@
|
|
int *perm_r, *perm_c;
|
|
int perm_spec;
|
|
int nrhs;
|
|
+#if SUPERLU_USE
|
|
+ SuperLUStat_t stat;
|
|
+ superlu_options_t options;
|
|
+#endif
|
|
#endif
|
|
|
|
/* Create Matrix A in the format expected by SuperLU */
|
|
@@ -103,7 +107,9 @@
|
|
|
|
/* Solve */
|
|
#if SUPERLU_USE
|
|
- dgssv( &A, perm_c, perm_r, &L, &U, &B, &info );
|
|
+ /* Initialize the statistics variables. */
|
|
+ StatInit(&stat);
|
|
+ dgssv(&options, &A, perm_c, perm_r, &L, &U, &B, &stat, &info );
|
|
#elif SUPERLU_MT_USE
|
|
pdgssv( nthread, &A, perm_c, perm_r, &L, &U, &B, &info );
|
|
#elif SUPERLU_DIST_USE
|