blob: 7e8a27c60502748e242f742cf81dfee6d0c63b17 (
plain)
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
44
45
46
47
48
49
50
51
52
|
$NetBSD: patch-aq,v 1.1 2003/01/28 01:18:22 uebayasi Exp $
--- mscf2.c.orig Sun Apr 25 22:48:13 1999
+++ mscf2.c
@@ -292,7 +292,7 @@
#undef _C
#undef _Z
-#include "supermatrix.h"
+#include <superlu/zsp_defs.h>
#define Matrix SuperMatrix
@@ -488,9 +488,9 @@
* Setup the SuperLU [A] from [a].
*/
- A.Stype = NC;
- A.Dtype = _Z;
- A.Mtype = GE;
+ A.Stype = SLU_NC;
+ A.Dtype = SLU_Z;
+ A.Mtype = SLU_GE;
A.nrow = n;
A.ncol = n;
A.Store = GC_MALLOC(sizeof(NCformat));
@@ -504,9 +504,9 @@
* Setup the SuperLU RHS from [x] (a copy of [b]).
*/
- B.Stype = DN;
- B.Dtype = _Z;
- B.Mtype = GE;
+ B.Stype = SLU_DN;
+ B.Dtype = SLU_Z;
+ B.Mtype = SLU_GE;
B.nrow = n;
B.ncol = MNC (b);
B.Store = (DNformat *) GC_MALLOC (sizeof(DNformat));
@@ -646,9 +646,9 @@
perm_ctmp = (int *) GC_MAIOP(n*sizeof(int));
perm_r = (int *) GC_MAIOP(n*sizeof(int));
- A.Stype = NC;
- A.Dtype = _Z;
- A.Mtype = GE;
+ A.Stype = SLU_NC;
+ A.Dtype = SLU_Z;
+ A.Mtype = SLU_GE;
A.nrow = n;
A.ncol = n;
A.Store = GC_MALLOC(sizeof(NCformat));
|
