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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
diff --git a/SRC/clacon2.c b/SRC/clacon2.c
index 107bb64..39deb83 100644
--- a/SRC/clacon2.c
+++ b/SRC/clacon2.c
@@ -106,6 +106,11 @@ clacon2_(int *n, complex *v, complex *x, float *est, int *kase, int isave[3])
extern float smach(char *);
extern int icmax1_slu(int *, complex *, int *);
extern double scsum1_slu(int *, complex *, int *);
+#ifdef _CRAY
+ extern int CCOPY(int *, complex *, int *, complex [], int *);
+#else
+ extern int ccopy_(int *, complex *, int *, complex [], int *);
+#endif
safmin = smach("Safe minimum"); /* lamch_("Safe minimum"); */
if ( *kase == 0 ) {
diff --git a/SRC/dmach.c b/SRC/dmach.c
index 73beacb..cafdf1c 100644
--- a/SRC/dmach.c
+++ b/SRC/dmach.c
@@ -11,6 +11,7 @@ at the top-level directory.
#include <float.h>
#include <math.h>
#include <stdio.h>
+#include <string.h>
double dmach(char *cmach)
{
diff --git a/SRC/ilu_cdrop_row.c b/SRC/ilu_cdrop_row.c
index 4987548..09b8a93 100644
--- a/SRC/ilu_cdrop_row.c
+++ b/SRC/ilu_cdrop_row.c
@@ -28,6 +28,7 @@ extern void caxpy_(int *, complex *, complex [], int *, complex [], int *);
extern void ccopy_(int *, complex [], int *, complex [], int *);
extern float scasum_(int *, complex *, int *);
extern float scnrm2_(int *, complex *, int *);
+extern void scopy_(int *, float [], int *, float [], int *);
extern double dnrm2_(int *, double [], int *);
extern int icamax_(int *, complex [], int *);
diff --git a/SRC/ilu_zdrop_row.c b/SRC/ilu_zdrop_row.c
index f434dd9..2de1226 100644
--- a/SRC/ilu_zdrop_row.c
+++ b/SRC/ilu_zdrop_row.c
@@ -29,6 +29,7 @@ extern void zcopy_(int *, doublecomplex [], int *, doublecomplex [], int *);
extern double dzasum_(int *, doublecomplex *, int *);
extern double dznrm2_(int *, doublecomplex *, int *);
extern double dnrm2_(int *, double [], int *);
+extern void dcopy_(int *, double [], int *, double [], int *);
extern int izamax_(int *, doublecomplex [], int *);
static double *A; /* used in _compare_ only */
diff --git a/SRC/slacon2.c b/SRC/slacon2.c
index 7c93341..50efe78 100644
--- a/SRC/slacon2.c
+++ b/SRC/slacon2.c
@@ -157,7 +157,7 @@ L40:
#ifdef _CRAY
isave[1] = ISAMAX(n, &x[0], &c__1); /* j */
#else
- isave[1] = idamax_(n, &x[0], &c__1); /* j */
+ isave[1] = isamax_(n, &x[0], &c__1); /* j */
#endif
--isave[1]; /* --j; */
isave[2] = 2; /* iter = 2; */
diff --git a/SRC/smach.c b/SRC/smach.c
index fff6c5f..0b69991 100644
--- a/SRC/smach.c
+++ b/SRC/smach.c
@@ -11,6 +11,7 @@ at the top-level directory.
#include <float.h>
#include <math.h>
#include <stdio.h>
+#include <string.h>
float smach(char *cmach)
{
diff --git a/SRC/sp_ienv.c b/SRC/sp_ienv.c
index 855d901..ce2865e 100644
--- a/SRC/sp_ienv.c
+++ b/SRC/sp_ienv.c
@@ -24,6 +24,7 @@ at the top-level directory.
* History: Modified from lapack routine ILAENV
*/
#include "slu_Cnames.h"
+extern int input_error(char *, int *);
/*! \brief
diff --git a/SRC/zlacon2.c b/SRC/zlacon2.c
index b43c619..ed5f2b7 100644
--- a/SRC/zlacon2.c
+++ b/SRC/zlacon2.c
@@ -106,6 +106,11 @@ zlacon2_(int *n, doublecomplex *v, doublecomplex *x, double *est, int *kase, int
extern double dmach(char *);
extern int izmax1_slu(int *, doublecomplex *, int *);
extern double dzsum1_slu(int *, doublecomplex *, int *);
+#ifdef _CRAY
+ extern int CCOPY(int *, doublecomplex *, int *, doublecomplex *, int *);
+#else
+ extern int zcopy_(int *, doublecomplex *, int *, doublecomplex *, int *);
+#endif
safmin = dmach("Safe minimum"); /* lamch_("Safe minimum"); */
if ( *kase == 0 ) {
diff --git a/TESTING/zdrive.c b/TESTING/zdrive.c
index 23e96fc..1e7d0aa 100644
--- a/TESTING/zdrive.c
+++ b/TESTING/zdrive.c
@@ -21,6 +21,7 @@ at the top-level directory.
* Purpose: MAIN test program
*/
#include <string.h>
+#include <unistd.h>
#include "slu_zdefs.h"
#define NTESTS 5 /* Number of test types */
diff --git a/TESTING/cdrive.c b/TESTING/cdrive.c
index 8bc8d10..00fe0d8 100644
--- a/TESTING/cdrive.c
+++ b/TESTING/cdrive.c
@@ -21,6 +21,7 @@ at the top-level directory.
* Purpose: MAIN test program
*/
#include <string.h>
+#include <unistd.h>
#include "slu_cdefs.h"
#define NTESTS 5 /* Number of test types */
diff --git a/TESTING/sdrive.c b/TESTING/sdrive.c
index 5b98038..cba0c83 100644
--- a/TESTING/sdrive.c
+++ b/TESTING/sdrive.c
@@ -21,6 +21,7 @@ at the top-level directory.
* Purpose: MAIN test program
*/
#include <string.h>
+#include <unistd.h>
#include "slu_sdefs.h"
#define NTESTS 5 /* Number of test types */
diff --git a/TESTING/ddrive.c b/TESTING/ddrive.c
index 2c3f6fe..35685c5 100644
--- a/TESTING/ddrive.c
+++ b/TESTING/ddrive.c
@@ -21,6 +21,7 @@ at the top-level directory.
* Purpose: MAIN test program
*/
#include <string.h>
+#include <unistd.h>
#include "slu_ddefs.h"
#define NTESTS 5 /* Number of test types */
|
GitWeb