Skip to content

fix: return types of *trtrs routines #4953

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
martin-frbg merged 1 commit into from
Oct 25, 2024
Merged

fix: return types of *trtrs routines #4953

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 4 additions & 4 deletions lapack-netlib/LAPACKE/include/lapack.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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,
Expand All @@ -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,
Expand All @@ -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,
Expand All @@ -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,
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/cgels.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);


Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/cgelst.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *,
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/cgetsls.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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];
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/cggglm.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);


Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/cgglse.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);


Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/dgels.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);

Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/dgelst.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *,
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/dgetsls.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/dggglm.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);

Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/sgels.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);

Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/sgelst.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *,
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/sgetsls.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;

Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/sggglm.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);


Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/sgglse.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);


Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/zgels.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);

Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/zgelst.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *,
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/zgetsls.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/zggglm.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);

Expand Down
2 changes: 1 addition & 1 deletion lapack-netlib/SRC/zgglse.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);

Expand Down
Loading