Skip to content

Commit

Permalink
Merge pull request OpenMathLib#4953 from NickelWenzel/fix_trtrs_retur…
Browse files Browse the repository at this point in the history 
…n_types

fix: return types of *trtrs routines
  • Loading branch information
@martin-frbg
martin-frbg authored Oct 25, 2024
2 parents a8bb105 + 79f4bbd commit f66e6d3
Show file tree
Hide file tree
Showing 20 changed files with 23 additions and 23 deletions.
8 changes: 4 additions & 4 deletions lapack-netlib/LAPACKE/include/lapack.h
View file
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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

0 comments on commit f66e6d3

Please sign in to comment.