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

Fix function signatures

This commit is contained in:
martin-frbg 2022-12-14 14:01:37 +01:00
parent de4d5646eb
commit ff9a9222e3
1 changed files with 51 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
lapack-netlib/LAPACKE/include/lapack.h
View File

@ -17,7 +17,9 @@
/* It seems all current Fortran compilers put strlen at end. /* It seems all current Fortran compilers put strlen at end.
* Some historical compilers put strlen after the str argument * Some historical compilers put strlen after the str argument
* or make the str argument into a struct. */ * or make the str argument into a struct. */
#ifndef __EMSCRIPTEN__
#define LAPACK_FORTRAN_STRLEN_END #define LAPACK_FORTRAN_STRLEN_END
#endif
/* Complex types are structures equivalent to the /* Complex types are structures equivalent to the
* Fortran complex types COMPLEX(4) and COMPLEX(8). * Fortran complex types COMPLEX(4) and COMPLEX(8).
@ -131,8 +133,10 @@ typedef lapack_logical (*LAPACK_Z_SELECT2)
( const lapack_complex_double*, const lapack_complex_double* ); ( const lapack_complex_double*, const lapack_complex_double* );
#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME) #define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
lapack_logical LAPACK_lsame_base( const char* ca, const char* cb, lapack_logical LAPACK_lsame_base( const char* ca, const char* cb
lapack_int lca, lapack_int lcb #ifndef __EMSCRIPTEN__
, lapack_int lca, lapack_int lcb
#endif
#ifdef LAPACK_FORTRAN_STRLEN_END #ifdef LAPACK_FORTRAN_STRLEN_END
, size_t, size_t , size_t, size_t
#endif #endif
@ -3320,28 +3324,28 @@ void LAPACK_zgesdd_base(
#endif #endif
#define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV) #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
void LAPACK_cgesv( lapack_int LAPACK_cgesv(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* B, lapack_int const* ldb,
lapack_int* info ); lapack_int* info );
#define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV) #define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
void LAPACK_dgesv( lapack_int LAPACK_dgesv(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
double* A, lapack_int const* lda, lapack_int* ipiv, double* A, lapack_int const* lda, lapack_int* ipiv,
double* B, lapack_int const* ldb, double* B, lapack_int const* ldb,
lapack_int* info ); lapack_int* info );
#define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV) #define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
void LAPACK_sgesv( lapack_int LAPACK_sgesv(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
float* A, lapack_int const* lda, lapack_int* ipiv, float* A, lapack_int const* lda, lapack_int* ipiv,
float* B, lapack_int const* ldb, float* B, lapack_int const* ldb,
lapack_int* info ); lapack_int* info );
#define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV) #define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
void LAPACK_zgesv( lapack_int LAPACK_zgesv(
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* B, lapack_int const* ldb,
@ -3940,49 +3944,49 @@ void LAPACK_zgesvxx_base(
#endif #endif
#define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2) #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
void LAPACK_cgetf2( lapack_int LAPACK_cgetf2(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2) #define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
void LAPACK_dgetf2( lapack_int LAPACK_dgetf2(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
double* A, lapack_int const* lda, lapack_int* ipiv, double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2) #define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
void LAPACK_sgetf2( lapack_int LAPACK_sgetf2(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
float* A, lapack_int const* lda, lapack_int* ipiv, float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2) #define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
void LAPACK_zgetf2( lapack_int LAPACK_zgetf2(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF) #define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
void LAPACK_cgetrf( lapack_int LAPACK_cgetrf(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF) #define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
void LAPACK_dgetrf( lapack_int LAPACK_dgetrf(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
double* A, lapack_int const* lda, lapack_int* ipiv, double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF) #define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
void LAPACK_sgetrf( lapack_int LAPACK_sgetrf(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
float* A, lapack_int const* lda, lapack_int* ipiv, float* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
#define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF) #define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
void LAPACK_zgetrf( lapack_int LAPACK_zgetrf(
lapack_int const* m, lapack_int const* n, lapack_int const* m, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
lapack_int* info ); lapack_int* info );
@ -4040,7 +4044,7 @@ void LAPACK_zgetri(
lapack_int* info ); lapack_int* info );
#define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS) #define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS)
void LAPACK_cgetrs_base( lapack_int LAPACK_cgetrs_base(
char const* trans, char const* trans,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
@ -4057,7 +4061,7 @@ void LAPACK_cgetrs_base(
#endif #endif
#define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS) #define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS)
void LAPACK_dgetrs_base( lapack_int LAPACK_dgetrs_base(
char const* trans, char const* trans,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
double const* A, lapack_int const* lda, lapack_int const* ipiv, double const* A, lapack_int const* lda, lapack_int const* ipiv,
@ -4074,7 +4078,7 @@ void LAPACK_dgetrs_base(
#endif #endif
#define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS) #define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS)
void LAPACK_sgetrs_base( lapack_int LAPACK_sgetrs_base(
char const* trans, char const* trans,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
float const* A, lapack_int const* lda, lapack_int const* ipiv, float const* A, lapack_int const* lda, lapack_int const* ipiv,
@ -4091,7 +4095,7 @@ void LAPACK_sgetrs_base(
#endif #endif
#define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS) #define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS)
void LAPACK_zgetrs_base( lapack_int LAPACK_zgetrs_base(
char const* trans, char const* trans,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
@ -5284,7 +5288,7 @@ void LAPACK_zggrqf(
lapack_int* info ); lapack_int* info );
#define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD) #define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD)
lapack_int LAPACK_cggsvd_base( void LAPACK_cggsvd_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
@ -5307,7 +5311,7 @@ lapack_int LAPACK_cggsvd_base(
#endif #endif
#define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD) #define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD)
lapack_int LAPACK_sggsvd_base( void LAPACK_sggsvd_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
@ -5329,7 +5333,7 @@ lapack_int LAPACK_sggsvd_base(
#endif #endif
#define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD) #define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD)
lapack_int LAPACK_dggsvd_base( void LAPACK_dggsvd_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
@ -5351,7 +5355,7 @@ lapack_int LAPACK_dggsvd_base(
#endif #endif
#define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD) #define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD)
lapack_int LAPACK_zggsvd_base( void LAPACK_zggsvd_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int const* m, lapack_int const* n, lapack_int const* p,
lapack_int* k, lapack_int* l, lapack_int* k, lapack_int* l,
@ -5472,7 +5476,7 @@ void LAPACK_zggsvd3_base(
#endif #endif
#define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP) #define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP)
lapack_int LAPACK_sggsvp_base( void LAPACK_sggsvp_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
float* a, lapack_int const* lda, float* a, lapack_int const* lda,
@ -5495,7 +5499,7 @@ lapack_int LAPACK_sggsvp_base(
#endif #endif
#define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP) #define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP)
lapack_int LAPACK_dggsvp_base( void LAPACK_dggsvp_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
double* a, lapack_int const* lda, double* a, lapack_int const* lda,
@ -5518,7 +5522,7 @@ lapack_int LAPACK_dggsvp_base(
#endif #endif
#define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP) #define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP)
lapack_int LAPACK_cggsvp_base( void LAPACK_cggsvp_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
lapack_complex_float* a, lapack_int const* lda, lapack_complex_float* a, lapack_int const* lda,
@ -5540,7 +5544,7 @@ lapack_int LAPACK_cggsvp_base(
#endif #endif
#define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP) #define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP)
lapack_int LAPACK_zggsvp_base( void LAPACK_zggsvp_base(
char const* jobu, char const* jobv, char const* jobq, char const* jobu, char const* jobv, char const* jobq,
lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* m, lapack_int const* p, lapack_int const* n,
lapack_complex_double* a, lapack_int const* lda, lapack_complex_double* a, lapack_int const* lda,
@ -10942,22 +10946,22 @@ void LAPACK_zlassq(
double* sumsq ); double* sumsq );
#define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP) #define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP)
void LAPACK_claswp( lapack_int LAPACK_claswp(
lapack_int const* n, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); lapack_complex_float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
#define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP) #define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP)
void LAPACK_dlaswp( lapack_int LAPACK_dlaswp(
lapack_int const* n, lapack_int const* n,
double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
#define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP) #define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP)
void LAPACK_slaswp( lapack_int LAPACK_slaswp(
lapack_int const* n, lapack_int const* n,
float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
#define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP) #define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP)
void LAPACK_zlaswp( lapack_int LAPACK_zlaswp(
lapack_int const* n, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
@ -11050,7 +11054,7 @@ void LAPACK_zlatms_base(
#endif #endif
#define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM) #define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM)
void LAPACK_clauum_base( lapack_int LAPACK_clauum_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* A, lapack_int const* lda,
@ -11066,7 +11070,7 @@ void LAPACK_clauum_base(
#endif #endif
#define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM) #define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM)
void LAPACK_dlauum_base( lapack_int LAPACK_dlauum_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
double* A, lapack_int const* lda, double* A, lapack_int const* lda,
@ -11082,7 +11086,7 @@ void LAPACK_dlauum_base(
#endif #endif
#define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM) #define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM)
void LAPACK_slauum_base( lapack_int LAPACK_slauum_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
float* A, lapack_int const* lda, float* A, lapack_int const* lda,
@ -11098,7 +11102,7 @@ void LAPACK_slauum_base(
#endif #endif
#define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM) #define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM)
void LAPACK_zlauum_base( lapack_int LAPACK_zlauum_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* A, lapack_int const* lda,
@ -11114,7 +11118,7 @@ void LAPACK_zlauum_base(
#endif #endif
#define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER) #define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER)
void LAPACK_ilaver( lapack_int LAPACK_ilaver(
lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch ); lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch );
#define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR) #define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR)
@ -13375,7 +13379,7 @@ void LAPACK_zpotf2_base(
#endif #endif
#define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF) #define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF)
void LAPACK_cpotrf_base( lapack_int LAPACK_cpotrf_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* A, lapack_int const* lda,
@ -13391,7 +13395,7 @@ void LAPACK_cpotrf_base(
#endif #endif
#define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF) #define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF)
void LAPACK_dpotrf_base( lapack_int LAPACK_dpotrf_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
double* A, lapack_int const* lda, double* A, lapack_int const* lda,
@ -13407,7 +13411,7 @@ void LAPACK_dpotrf_base(
#endif #endif
#define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF) #define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF)
void LAPACK_spotrf_base( lapack_int LAPACK_spotrf_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
float* A, lapack_int const* lda, float* A, lapack_int const* lda,
@ -13423,7 +13427,7 @@ void LAPACK_spotrf_base(
#endif #endif
#define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF) #define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF)
void LAPACK_zpotrf_base( lapack_int LAPACK_zpotrf_base(
char const* uplo, char const* uplo,
lapack_int const* n, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* A, lapack_int const* lda,
@ -22081,7 +22085,7 @@ void LAPACK_ztrsyl3_base(
#endif #endif
#define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI) #define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI)
void LAPACK_ctrtri_base( lapack_int LAPACK_ctrtri_base(
char const* uplo, char const* diag, char const* uplo, char const* diag,
lapack_int const* n, lapack_int const* n,
lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* A, lapack_int const* lda,
@ -22097,7 +22101,7 @@ void LAPACK_ctrtri_base(
#endif #endif
#define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI) #define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI)
void LAPACK_dtrtri_base( lapack_int LAPACK_dtrtri_base(
char const* uplo, char const* diag, char const* uplo, char const* diag,
lapack_int const* n, lapack_int const* n,
double* A, lapack_int const* lda, double* A, lapack_int const* lda,
@ -22113,7 +22117,7 @@ void LAPACK_dtrtri_base(
#endif #endif
#define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI) #define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI)
void LAPACK_strtri_base( lapack_int LAPACK_strtri_base(
char const* uplo, char const* diag, char const* uplo, char const* diag,
lapack_int const* n, lapack_int const* n,
float* A, lapack_int const* lda, float* A, lapack_int const* lda,
@ -22129,7 +22133,7 @@ void LAPACK_strtri_base(
#endif #endif
#define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI) #define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI)
void LAPACK_ztrtri_base( lapack_int LAPACK_ztrtri_base(
char const* uplo, char const* diag, char const* uplo, char const* diag,
lapack_int const* n, lapack_int const* n,
lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* A, lapack_int const* lda,
@ -22145,7 +22149,7 @@ void LAPACK_ztrtri_base(
#endif #endif
#define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS) #define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS)
void LAPACK_ctrtrs_base( lapack_int LAPACK_ctrtrs_base(
char const* uplo, char const* trans, char const* diag, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* A, lapack_int const* lda,
@ -22162,7 +22166,7 @@ void LAPACK_ctrtrs_base(
#endif #endif
#define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS) #define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS)
void LAPACK_dtrtrs_base( lapack_int LAPACK_dtrtrs_base(
char const* uplo, char const* trans, char const* diag, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
double const* A, lapack_int const* lda, double const* A, lapack_int const* lda,
@ -22179,7 +22183,7 @@ void LAPACK_dtrtrs_base(
#endif #endif
#define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS) #define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS)
void LAPACK_strtrs_base( lapack_int LAPACK_strtrs_base(
char const* uplo, char const* trans, char const* diag, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
float const* A, lapack_int const* lda, float const* A, lapack_int const* lda,
@ -22196,7 +22200,7 @@ void LAPACK_strtrs_base(
#endif #endif
#define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS) #define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS)
void LAPACK_ztrtrs_base( lapack_int LAPACK_ztrtrs_base(
char const* uplo, char const* trans, char const* diag, char const* uplo, char const* trans, char const* diag,
lapack_int const* n, lapack_int const* nrhs, lapack_int const* n, lapack_int const* nrhs,
lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* A, lapack_int const* lda,