1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
--- so_suplu.c.orig Thu Nov 9 15:59:39 2000
+++ so_suplu.c Sat Feb 4 20:21:59 2006
@@ -22,14 +22,16 @@
#if ( SUPERLU_USE || SUPERLU_MT_USE || SUPERLU_DIST_USE )
#if SUPERLU_USE
-#include "dsp_defs.h"
+#include "slu_ddefs.h"
#elif SUPERLU_MT_USE
+#include "util.h"
#include "pdsp_defs.h"
#elif SUPERLU_DIST_USE
#include <math.h>
+#include "superlu_util.h"
#include "superlu_ddefs.h"
#endif
-#include "util.h"
+
long int solve_superlu( double *superlu_A, int *superlu_asub,
int *superlu_xa, int superlu_nnz, double solve_b[], long int solve_nlocal,
@@ -53,6 +55,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 +109,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
|
