diff --git a/lapack-netlib/LAPACKE/include/lapack.h b/lapack-netlib/LAPACKE/include/lapack.h index 532aae574..0ed9ad01a 100644 --- a/lapack-netlib/LAPACKE/include/lapack.h +++ b/lapack-netlib/LAPACKE/include/lapack.h @@ -22379,7 +22379,7 @@ lapack_int LAPACK_ztrtri_base( #endif #define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS) -lapack_int LAPACK_ctrtrs_base( +void LAPACK_ctrtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -22396,7 +22396,7 @@ lapack_int LAPACK_ctrtrs_base( #endif #define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS) -lapack_int LAPACK_dtrtrs_base( +void LAPACK_dtrtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -22413,7 +22413,7 @@ lapack_int LAPACK_dtrtrs_base( #endif #define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS) -lapack_int LAPACK_strtrs_base( +void LAPACK_strtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -22430,7 +22430,7 @@ lapack_int LAPACK_strtrs_base( #endif #define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS) -lapack_int LAPACK_ztrtrs_base( +void LAPACK_ztrtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, diff --git a/lapack-netlib/SRC/cgels.c b/lapack-netlib/SRC/cgels.c index 1a84f97b3..827210975 100644 --- a/lapack-netlib/SRC/cgels.c +++ b/lapack-netlib/SRC/cgels.c @@ -739,7 +739,7 @@ static integer c__0 = 0; complex *, complex *, integer *, complex *, integer *, integer *); real smlnum; logical lquery; - extern /* Subroutine */ int ctrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrtrs_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); diff --git a/lapack-netlib/SRC/cgelst.c b/lapack-netlib/SRC/cgelst.c index 2378d4074..86c5341a9 100644 --- a/lapack-netlib/SRC/cgelst.c +++ b/lapack-netlib/SRC/cgelst.c @@ -748,7 +748,7 @@ f"> */ integer mnnrhs; real smlnum; logical lquery; - extern /* Subroutine */ int ctrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrtrs_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); extern void cgemlqt_(char *, char *, integer *, integer *, integer *, integer *, complex *, integer *, complex *, diff --git a/lapack-netlib/SRC/cgetsls.c b/lapack-netlib/SRC/cgetsls.c index 33c7b192a..40a6322d4 100644 --- a/lapack-netlib/SRC/cgetsls.c +++ b/lapack-netlib/SRC/cgetsls.c @@ -713,7 +713,7 @@ static integer c__0 = 0; real bignum, smlnum; integer wsizem, wsizeo; logical lquery; - extern /* Subroutine */ int ctrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrtrs_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); integer lw1, lw2, mnk; real dum[1]; diff --git a/lapack-netlib/SRC/cggglm.c b/lapack-netlib/SRC/cggglm.c index a71d656f0..b8b69614b 100644 --- a/lapack-netlib/SRC/cggglm.c +++ b/lapack-netlib/SRC/cggglm.c @@ -728,7 +728,7 @@ f"> */ complex *, complex *, integer *, complex *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int ctrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrtrs_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); diff --git a/lapack-netlib/SRC/cgglse.c b/lapack-netlib/SRC/cgglse.c index 67871b318..1a991c0c7 100644 --- a/lapack-netlib/SRC/cgglse.c +++ b/lapack-netlib/SRC/cgglse.c @@ -725,7 +725,7 @@ f"> */ complex *, complex *, integer *, complex *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int ctrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void ctrtrs_(char *, char *, char *, integer *, integer *, complex *, integer *, complex *, integer *, integer *); diff --git a/lapack-netlib/SRC/dgels.c b/lapack-netlib/SRC/dgels.c index 543ad8ec0..1e029992e 100644 --- a/lapack-netlib/SRC/dgels.c +++ b/lapack-netlib/SRC/dgels.c @@ -739,7 +739,7 @@ static integer c__0 = 0; doublereal *, integer *, integer *); doublereal smlnum; logical lquery; - extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtrtrs_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); diff --git a/lapack-netlib/SRC/dgelst.c b/lapack-netlib/SRC/dgelst.c index afaeaf7cc..4413002ed 100644 --- a/lapack-netlib/SRC/dgelst.c +++ b/lapack-netlib/SRC/dgelst.c @@ -747,7 +747,7 @@ f"> */ integer mnnrhs; doublereal smlnum; logical lquery; - extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtrtrs_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); extern void dgemlqt_(char *, char *, diff --git a/lapack-netlib/SRC/dgetsls.c b/lapack-netlib/SRC/dgetsls.c index 1c4cf686b..5713ba79b 100644 --- a/lapack-netlib/SRC/dgetsls.c +++ b/lapack-netlib/SRC/dgetsls.c @@ -713,7 +713,7 @@ static integer c__0 = 0; doublereal bignum, smlnum; integer wsizem, wsizeo; logical lquery; - extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtrtrs_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); integer lw1, lw2, mnk, lwm, lwo; diff --git a/lapack-netlib/SRC/dggglm.c b/lapack-netlib/SRC/dggglm.c index 75913c497..28036f36d 100644 --- a/lapack-netlib/SRC/dggglm.c +++ b/lapack-netlib/SRC/dggglm.c @@ -730,7 +730,7 @@ f"> */ doublereal *, integer *, integer *); integer lwkopt; logical lquery; - extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void dtrtrs_(char *, char *, char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, integer *); diff --git a/lapack-netlib/SRC/sgels.c b/lapack-netlib/SRC/sgels.c index f0eef99aa..20ed3cf16 100644 --- a/lapack-netlib/SRC/sgels.c +++ b/lapack-netlib/SRC/sgels.c @@ -485,7 +485,7 @@ static integer c__0 = 0; extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real *, integer *, real *, integer *, integer *); - extern int strtrs_(char *, char *, + extern void strtrs_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer * , integer *); diff --git a/lapack-netlib/SRC/sgelst.c b/lapack-netlib/SRC/sgelst.c index 6a6ed86bf..eec93ec91 100644 --- a/lapack-netlib/SRC/sgelst.c +++ b/lapack-netlib/SRC/sgelst.c @@ -744,7 +744,7 @@ f"> */ *, integer *, real *, integer *, real *, integer *); real smlnum; logical lquery; - extern /* Subroutine */ int strtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void strtrs_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *, integer *); extern void sgemlqt_(char *, char *, integer *, integer *, integer *, integer *, real *, integer *, real *, diff --git a/lapack-netlib/SRC/sgetsls.c b/lapack-netlib/SRC/sgetsls.c index 09b8d3a59..1156eff44 100644 --- a/lapack-netlib/SRC/sgetsls.c +++ b/lapack-netlib/SRC/sgetsls.c @@ -711,7 +711,7 @@ static integer c__0 = 0; integer wsizem, wsizeo; logical lquery; integer lw1, lw2; - extern /* Subroutine */ int strtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void strtrs_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *, integer *); integer mnk, lwm, lwo; diff --git a/lapack-netlib/SRC/sggglm.c b/lapack-netlib/SRC/sggglm.c index 38694a1c5..157482b98 100644 --- a/lapack-netlib/SRC/sggglm.c +++ b/lapack-netlib/SRC/sggglm.c @@ -473,7 +473,7 @@ f"> */ integer *, integer *), sormrq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real * , integer *, real *, integer *, integer *); - extern int strtrs_(char *, char *, char *, integer *, integer *, real *, + extern void strtrs_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *, integer *); diff --git a/lapack-netlib/SRC/sgglse.c b/lapack-netlib/SRC/sgglse.c index c731ea1a7..99393a1b8 100644 --- a/lapack-netlib/SRC/sgglse.c +++ b/lapack-netlib/SRC/sgglse.c @@ -471,7 +471,7 @@ f"> */ integer *, integer *), sormrq_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, real * , integer *, real *, integer *, integer *); - extern int strtrs_(char *, char *, char *, integer *, integer *, real *, + extern void strtrs_(char *, char *, char *, integer *, integer *, real *, integer *, real *, integer *, integer *); diff --git a/lapack-netlib/SRC/zgels.c b/lapack-netlib/SRC/zgels.c index 5f3ca5e4b..540ee4561 100644 --- a/lapack-netlib/SRC/zgels.c +++ b/lapack-netlib/SRC/zgels.c @@ -738,7 +738,7 @@ static integer c__0 = 0; doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); - extern int ztrtrs_(char *, char *, char *, integer *, + extern void ztrtrs_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); diff --git a/lapack-netlib/SRC/zgelst.c b/lapack-netlib/SRC/zgelst.c index 42282011c..29c2713b1 100644 --- a/lapack-netlib/SRC/zgelst.c +++ b/lapack-netlib/SRC/zgelst.c @@ -752,7 +752,7 @@ f"> */ doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *); logical lquery; - extern /* Subroutine */ int ztrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztrtrs_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); extern void zgemlqt_(char *, char *, diff --git a/lapack-netlib/SRC/zgetsls.c b/lapack-netlib/SRC/zgetsls.c index c9f1d5d97..130968718 100644 --- a/lapack-netlib/SRC/zgetsls.c +++ b/lapack-netlib/SRC/zgetsls.c @@ -716,7 +716,7 @@ static integer c__0 = 0; integer wsizem, wsizeo; logical lquery; integer lw1, lw2; - extern /* Subroutine */ int ztrtrs_(char *, char *, char *, integer *, + extern /* Subroutine */ void ztrtrs_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); integer mnk; diff --git a/lapack-netlib/SRC/zggglm.c b/lapack-netlib/SRC/zggglm.c index e4ed67fb0..5aaca4dd1 100644 --- a/lapack-netlib/SRC/zggglm.c +++ b/lapack-netlib/SRC/zggglm.c @@ -730,7 +730,7 @@ f"> */ doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmrq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); - extern int ztrtrs_(char *, char *, char *, integer *, + extern void ztrtrs_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *); diff --git a/lapack-netlib/SRC/zgglse.c b/lapack-netlib/SRC/zgglse.c index 06a3c266b..801210cd7 100644 --- a/lapack-netlib/SRC/zgglse.c +++ b/lapack-netlib/SRC/zgglse.c @@ -727,7 +727,7 @@ f"> */ integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmrq_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, - doublecomplex *, integer *, doublecomplex *, integer *, integer *); extern int ztrtrs_(char *, char *, char *, integer *, + doublecomplex *, integer *, doublecomplex *, integer *, integer *), ztrtrs_(char *, char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *);