floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #4953 from NickelWenzel/fix_trtrs_return_types 

fix: return types of *trtrs routines
This commit is contained in:
Martin Kroeker 2024-10-25 23:29:24 +02:00 committed by GitHub
parent a8bb105ed6 79f4bbd4cd
commit f66e6d32c2
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
20 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lapack-netlib/LAPACKE/include/lapack.h
View File

@ -22379,7 +22379,7 @@ lapack_int LAPACK_ztrtri_base(
#endif #endif
#define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS) #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, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* A, lapack_int const* lda,
@ -22396,7 +22396,7 @@ lapack_int LAPACK_ctrtrs_base(
#endif #endif
#define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS) #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, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
double const* A, lapack_int const* lda, double const* A, lapack_int const* lda,
@ -22413,7 +22413,7 @@ lapack_int LAPACK_dtrtrs_base(
#endif #endif
#define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS) #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, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
float const* A, lapack_int const* lda, float const* A, lapack_int const* lda,
@ -22430,7 +22430,7 @@ lapack_int LAPACK_strtrs_base(
#endif #endif
#define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS) #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, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* A, lapack_int const* lda,

2
lapack-netlib/SRC/cgels.c
View File

@ -739,7 +739,7 @@ static integer c__0 = 0;
complex *, complex *, integer *, complex *, integer *, integer *); complex *, complex *, integer *, complex *, integer *, integer *);
real smlnum; real smlnum;
logical lquery; 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 *, complex *, integer *, complex *, integer *, integer *);

2
lapack-netlib/SRC/cgelst.c
View File

@ -748,7 +748,7 @@ f"> */
integer mnnrhs; integer mnnrhs;
real smlnum; real smlnum;
logical lquery; 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 *, complex *, integer *, complex *, integer *, integer *);
extern void cgemlqt_(char *, char *, integer *, extern void cgemlqt_(char *, char *, integer *,
integer *, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *,

2
lapack-netlib/SRC/cgetsls.c
View File

@ -713,7 +713,7 @@ static integer c__0 = 0;
real bignum, smlnum; real bignum, smlnum;
integer wsizem, wsizeo; integer wsizem, wsizeo;
logical lquery; 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 *, complex *, integer *, complex *, integer *, integer *);
integer lw1, lw2, mnk; integer lw1, lw2, mnk;
real dum[1]; real dum[1];

2
lapack-netlib/SRC/cggglm.c
View File

@ -728,7 +728,7 @@ f"> */
complex *, complex *, integer *, complex *, integer *, integer *); complex *, complex *, integer *, complex *, integer *, integer *);
integer lwkopt; integer lwkopt;
logical lquery; 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 *, complex *, integer *, complex *, integer *, integer *);

2
lapack-netlib/SRC/cgglse.c
View File

@ -725,7 +725,7 @@ f"> */
complex *, complex *, integer *, complex *, integer *, integer *); complex *, complex *, integer *, complex *, integer *, integer *);
integer lwkopt; integer lwkopt;
logical lquery; 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 *, complex *, integer *, complex *, integer *, integer *);

2
lapack-netlib/SRC/dgels.c
View File

@ -739,7 +739,7 @@ static integer c__0 = 0;
doublereal *, integer *, integer *); doublereal *, integer *, integer *);
doublereal smlnum; doublereal smlnum;
logical lquery; logical lquery;
extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, extern /* Subroutine */ void dtrtrs_(char *, char *, char *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *); integer *);

2
lapack-netlib/SRC/dgelst.c
View File

@ -747,7 +747,7 @@ f"> */
integer mnnrhs; integer mnnrhs;
doublereal smlnum; doublereal smlnum;
logical lquery; logical lquery;
extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, extern /* Subroutine */ void dtrtrs_(char *, char *, char *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *); integer *);
extern void dgemlqt_(char *, char *, extern void dgemlqt_(char *, char *,

2
lapack-netlib/SRC/dgetsls.c
View File

@ -713,7 +713,7 @@ static integer c__0 = 0;
doublereal bignum, smlnum; doublereal bignum, smlnum;
integer wsizem, wsizeo; integer wsizem, wsizeo;
logical lquery; logical lquery;
extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, extern /* Subroutine */ void dtrtrs_(char *, char *, char *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *); integer *);
integer lw1, lw2, mnk, lwm, lwo; integer lw1, lw2, mnk, lwm, lwo;

2
lapack-netlib/SRC/dggglm.c
View File

@ -730,7 +730,7 @@ f"> */
doublereal *, integer *, integer *); doublereal *, integer *, integer *);
integer lwkopt; integer lwkopt;
logical lquery; logical lquery;
extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, extern /* Subroutine */ void dtrtrs_(char *, char *, char *, integer *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *); integer *);

2
lapack-netlib/SRC/sgels.c
View File

@ -485,7 +485,7 @@ static integer c__0 = 0;
extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *, extern /* Subroutine */ void sormqr_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, real *, integer *, real *, integer *, real *, integer *, real *, real *, integer *, real *,
integer *, integer *); integer *, integer *);
extern int strtrs_(char *, char *, extern void strtrs_(char *, char *,
char *, integer *, integer *, real *, integer *, real *, integer * char *, integer *, integer *, real *, integer *, real *, integer *
, integer *); , integer *);

2
lapack-netlib/SRC/sgelst.c
View File

@ -744,7 +744,7 @@ f"> */
*, integer *, real *, integer *, real *, integer *); *, integer *, real *, integer *, real *, integer *);
real smlnum; real smlnum;
logical lquery; logical lquery;
extern /* Subroutine */ int strtrs_(char *, char *, char *, integer *, extern /* Subroutine */ void strtrs_(char *, char *, char *, integer *,
integer *, real *, integer *, real *, integer *, integer *); integer *, real *, integer *, real *, integer *, integer *);
extern void sgemlqt_(char *, char *, integer *, extern void sgemlqt_(char *, char *, integer *,
integer *, integer *, integer *, real *, integer *, real *, integer *, integer *, integer *, real *, integer *, real *,

2
lapack-netlib/SRC/sgetsls.c
View File

@ -711,7 +711,7 @@ static integer c__0 = 0;
integer wsizem, wsizeo; integer wsizem, wsizeo;
logical lquery; logical lquery;
integer lw1, lw2; 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 *, real *, integer *, real *, integer *, integer *);
integer mnk, lwm, lwo; integer mnk, lwm, lwo;

2
lapack-netlib/SRC/sggglm.c
View File

@ -473,7 +473,7 @@ f"> */
integer *, integer *), sormrq_(char *, char *, integer *, integer *), sormrq_(char *, char *,
integer *, integer *, integer *, real *, integer *, real *, real * integer *, integer *, integer *, real *, integer *, real *, real *
, integer *, real *, integer *, integer *); , 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 *); integer *, real *, integer *, integer *);

2
lapack-netlib/SRC/sgglse.c
View File

@ -471,7 +471,7 @@ f"> */
integer *, integer *), sormrq_(char *, char *, integer *, integer *), sormrq_(char *, char *,
integer *, integer *, integer *, real *, integer *, real *, real * integer *, integer *, integer *, real *, integer *, real *, real *
, integer *, real *, integer *, integer *); , 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 *); integer *, real *, integer *, integer *);

2
lapack-netlib/SRC/zgels.c
View File

@ -738,7 +738,7 @@ static integer c__0 = 0;
doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmqr_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *, integer *); 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 *, doublecomplex *, integer *, doublecomplex *, integer *,
integer *); integer *);

2
lapack-netlib/SRC/zgelst.c
View File

@ -752,7 +752,7 @@ f"> */
doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
doublecomplex *, integer *); doublecomplex *, integer *);
logical lquery; logical lquery;
extern /* Subroutine */ int ztrtrs_(char *, char *, char *, integer *, extern /* Subroutine */ void ztrtrs_(char *, char *, char *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *,
integer *); integer *);
extern void zgemlqt_(char *, char *, extern void zgemlqt_(char *, char *,

2
lapack-netlib/SRC/zgetsls.c
View File

@ -716,7 +716,7 @@ static integer c__0 = 0;
integer wsizem, wsizeo; integer wsizem, wsizeo;
logical lquery; logical lquery;
integer lw1, lw2; 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 *, doublecomplex *, integer *, doublecomplex *, integer *,
integer *); integer *);
integer mnk; integer mnk;

2
lapack-netlib/SRC/zggglm.c
View File

@ -730,7 +730,7 @@ f"> */
doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmrq_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmrq_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *, integer *); 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 *, doublecomplex *, integer *, doublecomplex *, integer *,
integer *); integer *);

2
lapack-netlib/SRC/zgglse.c
View File

@ -727,7 +727,7 @@ f"> */
integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmrq_(char *, char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *), zunmrq_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, 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 *, doublecomplex *, integer *, doublecomplex *, integer *,
integer *); integer *);