File fix-compile-err.diff of Package superlu
Index: SuperLU_3.0/INSTALL/dlamch.c
===================================================================
--- SuperLU_3.0.orig/INSTALL/dlamch.c
+++ SuperLU_3.0/INSTALL/dlamch.c
@@ -62,9 +62,9 @@ double dlamch_(char *cmach)
static double emin, prec, emax;
static int imin, imax;
static int lrnd;
static double rmin, rmax, t, rmach;
-/* extern int lsame_(char *, char *);*/
+ extern int lsame_(char *, char *);
static double small, sfmin;
extern /* Subroutine */ int dlamc2_(int *, int *, int *,
double *, int *, double *, int *, double *);
static int it;
@@ -76,13 +76,13 @@ double dlamch_(char *cmach)
base = (double) beta;
t = (double) it;
if (lrnd) {
rnd = 1.;
- i__1 = 1 - it;
+ //i__1 = 1 - it;
eps = pow_di(&base, &i__1) / 2;
} else {
rnd = 0.;
- i__1 = 1 - it;
+ //i__1 = 1 - it;
eps = pow_di(&base, &i__1);
}
prec = eps * base;
emin = (double) imin;
@@ -403,9 +403,9 @@ L30:
=====================================================================
*/
/* Table of constant values */
- static int c__1 = 1;
+ //static int c__1 = 1;
/* Initialized data */
static int first = TRUE_;
static int iwarn = FALSE_;
@@ -458,9 +458,9 @@ ure
/* Start to find EPS. */
b = (double) lbeta;
- i__1 = -lt;
+ //i__1 = -lt;
a = pow_di(&b, &i__1);
leps = a;
/* Try some tricks to see whether or not this is the correct E
@@ -574,9 +574,9 @@ w;
}
} else {
/* Computing MIN */
- i__1 = min(ngpmin,ngnmin), i__1 = min(i__1,gpmin);
+ //i__1 = min(ngpmin,ngnmin), i__1 = min(i__1,gpmin);
lemin = min(i__1,gnmin);
/* ( A guess; no known machine ) */
iwarn = TRUE_;
}
@@ -609,9 +609,9 @@ ute
ing
this computation. */
lrmin = 1.;
- i__1 = 1 - lemin;
+ //i__1 = 1 - lemin;
for (i = 1; i <= 1-lemin; ++i) {
d__1 = lrmin * rbase;
lrmin = dlamc3_(&d__1, &zero);
/* L30: */
@@ -707,9 +707,9 @@ double dlamc3_(double *a, double *b)
=====================================================================
*/
/* System generated locals */
- int i__1;
+ //int i__1;
double d__1;
/* Local variables */
static double zero, a;
static int i;
@@ -738,9 +738,9 @@ L10:
b1 = dlamc3_(&d__1, &zero);
d__1 = b1 * *base;
c1 = dlamc3_(&d__1, &zero);
d1 = zero;
- i__1 = *base;
+ //i__1 = *base;
for (i = 1; i <= *base; ++i) {
d1 += b1;
/* L20: */
}
@@ -748,9 +748,9 @@ L10:
b2 = dlamc3_(&d__1, &zero);
d__1 = b2 / rbase;
c2 = dlamc3_(&d__1, &zero);
d2 = zero;
- i__1 = *base;
+ //i__1 = *base;
for (i = 1; i <= *base; ++i) {
d2 += b2;
/* L30: */
}
@@ -819,9 +819,9 @@ L10:
/* Table of constant values */
static double c_b5 = 0.;
/* System generated locals */
- int i__1;
+ //int i__1;
double d__1;
/* Local variables */
static int lexp;
static double oldy;
@@ -908,9 +908,9 @@ it
recbas = 1. / *beta;
z = *beta - 1.;
y = 0.;
- i__1 = *p;
+ //i__1 = *p;
for (i = 1; i <= *p; ++i) {
z *= recbas;
if (y < 1.) {
oldy = y;
@@ -923,9 +923,9 @@ it
}
/* Now multiply by BETA**EMAX to get RMAX. */
- i__1 = *emax;
+ //i__1 = *emax;
for (i = 1; i <= *emax; ++i) {
d__1 = y * *beta;
y = dlamc3_(&d__1, &c_b5);
/* L30: */
Index: SuperLU_3.0/INSTALL/dlamchtst.c
===================================================================
--- SuperLU_3.0.orig/INSTALL/dlamchtst.c
+++ SuperLU_3.0/INSTALL/dlamchtst.c
@@ -1,8 +1,8 @@
#include <stdio.h>
-main()
+int main()
{
/* Local variables */
double base, emin, prec, emax, rmin, rmax, t, sfmin;
extern double dlamch_(char *);
Index: SuperLU_3.0/INSTALL/lsame.c
===================================================================
--- SuperLU_3.0.orig/INSTALL/lsame.c
+++ SuperLU_3.0/INSTALL/lsame.c
@@ -51,13 +51,13 @@ int lsame_(char *ca, char *cb)
} else if (zcode == 233 || zcode == 169) {
/* EBCDIC is assumed - ZCODE is the EBCDIC code of either lower or
upper case 'Z'. */
- if (inta >= 129 && inta <= 137 || inta >= 145 && inta <= 153 || inta
- >= 162 && inta <= 169)
+ if ((inta >= 129 && inta <= 137) || (inta >= 145 && inta <= 153) || (inta
+ >= 162 && inta <= 169))
inta += 64;
- if (intb >= 129 && intb <= 137 || intb >= 145 && intb <= 153 || intb
- >= 162 && intb <= 169)
+ if ((intb >= 129 && intb <= 137) || (intb >= 145 && intb <= 153) || (intb
+ >= 162 && intb <= 169))
intb += 64;
} else if (zcode == 218 || zcode == 250) {
/* ASCII is assumed, on Prime machines - ZCODE is the ASCII code
plus 128 of either lower or upper case 'Z'. */
Index: SuperLU_3.0/INSTALL/slamch.c
===================================================================
--- SuperLU_3.0.orig/INSTALL/slamch.c
+++ SuperLU_3.0/INSTALL/slamch.c
@@ -80,13 +80,13 @@ double slamch_(char *cmach)
base = (float) beta;
t = (float) it;
if (lrnd) {
rnd = 1.f;
- i__1 = 1 - it;
+ //i__1 = 1 - it;
eps = pow_ri(&base, &i__1) / 2;
} else {
rnd = 0.f;
- i__1 = 1 - it;
+ //i__1 = 1 - it;
eps = pow_ri(&base, &i__1);
}
prec = eps * base;
emin = (float) imin;
@@ -410,9 +410,9 @@ L30:
=====================================================================
*/
/* Table of constant values */
- static int c__1 = 1;
+ //static int c__1 = 1;
/* Initialized data */
static int first = TRUE_;
static int iwarn = FALSE_;
@@ -467,9 +467,9 @@ ure
/* Start to find EPS. */
b = (float) lbeta;
- i__1 = -lt;
+ //i__1 = -lt;
a = pow_ri(&b, &i__1);
leps = a;
/* Try some tricks to see whether or not this is the correct E
@@ -583,9 +583,9 @@ w;
}
} else {
/* Computing MIN */
- i__1 = min(ngpmin,ngnmin), i__1 = min(i__1,gpmin);
+ //i__1 = min(ngpmin,ngnmin), i__1 = min(i__1,gpmin);
lemin = min(i__1,gnmin);
/* ( A guess; no known machine ) */
iwarn = TRUE_;
}
@@ -618,9 +618,9 @@ ute
ing
this computation. */
lrmin = 1.f;
- i__1 = 1 - lemin;
+ //i__1 = 1 - lemin;
for (i = 1; i <= 1-lemin; ++i) {
r__1 = lrmin * rbase;
lrmin = slamc3_(&r__1, &zero);
/* L30: */
@@ -718,9 +718,9 @@ double slamc3_(float *a, float *b)
=====================================================================
*/
/* System generated locals */
- int i__1;
+ //int i__1;
float r__1;
/* Local variables */
static float zero, a;
static int i;
@@ -751,9 +751,9 @@ L10:
b1 = slamc3_(&r__1, &zero);
r__1 = b1 * *base;
c1 = slamc3_(&r__1, &zero);
d1 = zero;
- i__1 = *base;
+ //i__1 = *base;
for (i = 1; i <= *base; ++i) {
d1 += b1;
/* L20: */
}
@@ -761,9 +761,9 @@ L10:
b2 = slamc3_(&r__1, &zero);
r__1 = b2 / rbase;
c2 = slamc3_(&r__1, &zero);
d2 = zero;
- i__1 = *base;
+ //i__1 = *base;
for (i = 1; i <= *base; ++i) {
d2 += b2;
/* L30: */
}
@@ -832,9 +832,9 @@ L10:
/* Table of constant values */
static float c_b5 = 0.f;
/* System generated locals */
- int i__1;
+ //int i__1;
float r__1;
/* Local variables */
static int lexp;
static float oldy;
@@ -921,9 +921,9 @@ it
recbas = 1.f / *beta;
z = *beta - 1.f;
y = 0.f;
- i__1 = *p;
+ //i__1 = *p;
for (i = 1; i <= *p; ++i) {
z *= recbas;
if (y < 1.f) {
oldy = y;
@@ -936,9 +936,9 @@ it
}
/* Now multiply by BETA**EMAX to get RMAX. */
- i__1 = *emax;
+ //i__1 = *emax;
for (i = 1; i <= *emax; ++i) {
r__1 = y * *beta;
y = slamc3_(&r__1, &c_b5);
/* L30: */
Index: SuperLU_3.0/INSTALL/slamchtst.c
===================================================================
--- SuperLU_3.0.orig/INSTALL/slamchtst.c
+++ SuperLU_3.0/INSTALL/slamchtst.c
@@ -1,7 +1,7 @@
#include <stdio.h>
-main()
+int main()
{
/* Local variables */
float base, emin, prec, emax, rmin, rmax, t, sfmin;
extern double slamch_(char *);
Index: SuperLU_3.0/INSTALL/timertst.c
===================================================================
--- SuperLU_3.0.orig/INSTALL/timertst.c
+++ SuperLU_3.0/INSTALL/timertst.c
@@ -7,9 +7,9 @@ void mysub(int n, double *x, double *y)
}
volatile double _dummy;
-main()
+int main()
{
/* Parameters */
#define NMAX 100
#define ITS 10000
