Merge pull request #4953 from NickelWenzel/fix_trtrs_return_types

fix: return types of *trtrs routines

Author: martin-frbg

lapack-netlib/LAPACKE/include/lapack.h

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

lapack-netlib/SRC/cgels.c

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

lapack-netlib/SRC/cgelst.c

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

lapack-netlib/SRC/cgetsls.c

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

lapack-netlib/SRC/cggglm.c

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

lapack-netlib/SRC/cgglse.c

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

lapack-netlib/SRC/dgels.c

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

lapack-netlib/SRC/dgelst.c

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

lapack-netlib/SRC/dgetsls.c

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

lapack-netlib/SRC/dggglm.c

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