Browse Source

fix: return types of *trtrs routines

tags/v0.3.29
nickel 11 months ago
parent
commit
79f4bbd4cd
20 changed files with 23 additions and 23 deletions
  1. +4
    -4
      lapack-netlib/LAPACKE/include/lapack.h
  2. +1
    -1
      lapack-netlib/SRC/cgels.c
  3. +1
    -1
      lapack-netlib/SRC/cgelst.c
  4. +1
    -1
      lapack-netlib/SRC/cgetsls.c
  5. +1
    -1
      lapack-netlib/SRC/cggglm.c
  6. +1
    -1
      lapack-netlib/SRC/cgglse.c
  7. +1
    -1
      lapack-netlib/SRC/dgels.c
  8. +1
    -1
      lapack-netlib/SRC/dgelst.c
  9. +1
    -1
      lapack-netlib/SRC/dgetsls.c
  10. +1
    -1
      lapack-netlib/SRC/dggglm.c
  11. +1
    -1
      lapack-netlib/SRC/sgels.c
  12. +1
    -1
      lapack-netlib/SRC/sgelst.c
  13. +1
    -1
      lapack-netlib/SRC/sgetsls.c
  14. +1
    -1
      lapack-netlib/SRC/sggglm.c
  15. +1
    -1
      lapack-netlib/SRC/sgglse.c
  16. +1
    -1
      lapack-netlib/SRC/zgels.c
  17. +1
    -1
      lapack-netlib/SRC/zgelst.c
  18. +1
    -1
      lapack-netlib/SRC/zgetsls.c
  19. +1
    -1
      lapack-netlib/SRC/zggglm.c
  20. +1
    -1
      lapack-netlib/SRC/zgglse.c

+ 4
- 4
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,


+ 1
- 1
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 *);




+ 1
- 1
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 *,


+ 1
- 1
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];


+ 1
- 1
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 *);




+ 1
- 1
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 *);




+ 1
- 1
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 *);



+ 1
- 1
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 *,


+ 1
- 1
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;


+ 1
- 1
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 *);



+ 1
- 1
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 *);



+ 1
- 1
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 *,


+ 1
- 1
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;



+ 1
- 1
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 *);




+ 1
- 1
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 *);




+ 1
- 1
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 *);



+ 1
- 1
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 *,


+ 1
- 1
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;


+ 1
- 1
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 *);



+ 1
- 1
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 *);



Loading…
Cancel
Save