diff options
Diffstat (limited to 'sci-libs/superlu/files/superlu-5.2.1-no-implicits.patch')
-rw-r--r-- | sci-libs/superlu/files/superlu-5.2.1-no-implicits.patch | 153 |
1 files changed, 153 insertions, 0 deletions
diff --git a/sci-libs/superlu/files/superlu-5.2.1-no-implicits.patch b/sci-libs/superlu/files/superlu-5.2.1-no-implicits.patch new file mode 100644 index 000000000000..587380ce2e35 --- /dev/null +++ b/sci-libs/superlu/files/superlu-5.2.1-no-implicits.patch @@ -0,0 +1,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 */ |