43 #include "amino/def.h"
71 AA_API void AA_LAPACK_NAME(getri)
72 (
const int *N, AA_TYPE *A,
const int *LDA,
73 const int *IPIV, AA_TYPE *WORK,
const int *LWORK,
int *INFO );
113 AA_API void AA_LAPACK_NAME(getrf)
114 (
const int *M,
const int *N, AA_TYPE *A,
const int *LDA,
115 int *IPIV,
int *INFO );
184 AA_API void AA_LAPACK_NAME(geqrf)
185 (
const int *M,
const int *N, AA_TYPE *A,
const int *LDA,
186 AA_TYPE *TAU, AA_TYPE *WORK,
int *LWORK,
int *INFO );
242 AA_API void AA_LAPACK_NAME(orgqr)
243 (
const int *M,
const int *N,
const int *K,
244 AA_TYPE *A,
const int *LDA,
const AA_TYPE *TAU,
245 AA_TYPE *WORK,
const int *LWORK,
int *INFO );
248 AA_API void AA_LAPACK_NAME(posv)
249 (
const char UPLO[1],
const int *N,
const int *NRHS,
250 AA_TYPE *A,
const int *LDA,
251 AA_TYPE *B,
const int *LDB,
255 AA_API void AA_LAPACK_NAME(sysv)
256 (
const char uplo[1],
const int *n,
const int *nrhs,
257 AA_TYPE *A,
const int *lda,
259 AA_TYPE *B,
const int *ldb,
260 AA_TYPE *work,
int *lwork,
int *info );
360 AA_API void AA_LAPACK_NAME(gesvd)
361 (
const char jobu[1],
const char jobvt[1],
362 const int *m,
const int *n,
363 AA_TYPE *A,
const int *lda,
364 AA_TYPE *S, AA_TYPE *U,
365 const int *ldu, AA_TYPE *Vt,
const int *ldvt,
366 AA_TYPE *work,
const int *lwork,
int *info );
368 AA_API void AA_LAPACK_NAME(gesdd)
369 (
const char *JOBZ,
const int *M,
const int *N,
370 AA_TYPE *A,
const int *LDA,
372 AA_TYPE *U,
const int *LDU,
373 AA_TYPE *VT,
const int * LDVT,
374 AA_TYPE *WORK,
const int *LWORK,
375 int *IWORK,
int *INFO);
377 AA_API int AA_LAPACK_NAME(geev)
378 (
const char *jobvl,
const char *jobvr,
379 int *n, AA_TYPE *a,
int *lda,
380 AA_TYPE *wr, AA_TYPE *wi,
381 AA_TYPE *vl,
int *ldvl,
382 AA_TYPE *vr,
int *ldvr,
383 AA_TYPE *work,
int *lwork,
int *info);
496 AA_API void AA_LAPACK_NAME(gelsd)
497 (
const int *M,
const int *N,
const int *NRHS,
498 AA_TYPE *A,
const int *LDA, AA_TYPE *B,
const int *LDB,
499 AA_TYPE *S,
const AA_TYPE *RCOND,
int *RANK,
500 AA_TYPE *WORK,
int *LWORK,
int *IWORK,
int *INFO );
559 AA_API void AA_LAPACK_NAME(gebal)
560 (
const char JOB[1],
int *N, AA_TYPE *A,
const int *LDA,
561 int *ILO,
int *IHI, AA_TYPE *SCALE,
int *INFO );
680 AA_API void AA_LAPACK_NAME(gees)
681 (
const char JOBVS[1],
const char SORT[1],
682 int (*SELECT)(
const AA_TYPE*,
const AA_TYPE*),
683 const int *N, AA_TYPE *A,
const int *LDA,
int *SDIM,
684 AA_TYPE *WR, AA_TYPE *WI,
685 AA_TYPE *VS,
const int *LDVS,
686 AA_TYPE *WORK,
const int *LWORK,
int *BWORK,
int *INFO );
786 AA_API void AA_LAPACK_NAME(gels)
787 (
const char TRANS[1],
const int *M,
const int *N,
const int *NRHS,
788 AA_TYPE *A,
const int *LDA, AA_TYPE *B,
const int *LDB, AA_TYPE *WORK,
789 const int *LWORK,
int *INFO );
834 AA_API void AA_LAPACK_NAME(potrf)
835 (
const char UPLO[1],
const int *N,
836 AA_TYPE *A,
const int *LDA,
839 AA_API void AA_LAPACK_NAME(potrs)
840 (
const char UPLO[1],
const int *N,
const int *nrhs,
841 AA_TYPE *A,
const int *LDA,
842 AA_TYPE *B,
const int *LDB,
877 AA_API void AA_LAPACK_NAME(lacpy)
878 (
const char UPLO[1],
const int *M,
const int *N,
879 const AA_TYPE *A,
const int *LDA, AA_TYPE *B,
const int *LDB );
885 AA_API AA_TYPE AA_LAPACK_NAME(lapy2)
886 (
const AA_TYPE *x,
const AA_TYPE *y );
891 AA_API AA_TYPE AA_LAPACK_NAME(lapy3)
892 (
const AA_TYPE *x,
const AA_TYPE *y,
const AA_TYPE *z );
935 AA_API void AA_LAPACK_NAME(laruv)
936 (
int ISEED[4],
const int *N, AA_TYPE *X );
965 AA_API void AA_LAPACK_NAME(larnv)
966 (
const int *IDIST,
int ISEED[4],
967 const int *N, AA_TYPE *X );
1024 AA_API void AA_LAPACK_NAME(lascl)
1025 (
const char TYPE[1],
const int *KL,
const int *KU,
1026 const AA_TYPE *CFROM,
const AA_TYPE *CTO,
1027 const int *M,
const int *N, AA_TYPE *A,
const int *LDA,
1055 AA_API double AA_LAPACK_NAME(lange)
1056 (
const char TYPE[1],
1057 const int *M,
const int *N, AA_TYPE *A,
const int *LDA,
1110 AA_API void AA_LAPACK_NAME(laset)
1111 (
const char UPLO[1],
const int *M,
const int *N,
1112 const AA_TYPE *ALPHA,
1113 const AA_TYPE *BETA,
1114 AA_TYPE *A,
const int *LDA );
1120 #include "amino/undef.h"
1122 #if AA_TYPE == double
1153 AA_API void dlag2s_ (
const int *M,
const int *N,
1154 double *A,
const int *LDA,
1155 float *SA,
const int *LDSA,
1162 #if AA_TYPE == float
1198 AA_API void slag2d_ (
const int *M,
const int *N,
1199 float *SA,
const int *LDSA,
1200 double *A,
const int *LDA,
#define AA_API
calling and name mangling convention for functions