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

fix: return types of *trtrs routines

Browse Source
This commit is contained in:
nickel
2024-10-24 11:20:02 +02:00
parent 7ac5b9011f
commit 79f4bbd4cd
20 changed files with 23 additions and 23 deletions
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
#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,

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

@@ -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 *);

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

@@ -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 *,

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

@@ -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];

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

@@ -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 *);

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

@@ -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 *);

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

@@ -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 *);

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

@@ -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 *,

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

@@ -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;

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

@@ -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 *);

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 *,
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 *);

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

@@ -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 *,

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

@@ -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;

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

@@ -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 *);

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

@@ -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 *);

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 *,
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 *);

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

@@ -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 *,

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

@@ -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;

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

@@ -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 *);

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

@@ -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 *);