7 void dgeqrf_(
int *m,
int *n,
double *A,
int *LDA,
double *tau,
double *WORK,
int *LWORK,
int *INFO);
8 void dorgqr_(
int *m,
int *n,
int *k,
double *A,
int *LDA,
double *tau,
double *WORK,
int *LWORK,
int *INFO);
9 void dgelqf_(
int *m,
int *n,
double *A,
int *LDA,
double *tau,
double *WORK,
int *LWORK,
int *INFO);
10 void dorglq_(
int *m,
int *n,
int *k,
double *A,
int *LDA,
double *tau,
double *WORK,
int *LWORK,
int *INFO);
11 void dcopy_(
int *n,
const double *x,
int *incx,
double *y,
int *incy);
12 void daxpy_(
int *n,
double *alpha,
double *x,
int *incx,
double *y,
int *incy);
13 void dscal_(
int *n,
const double *alpha,
double *x,
int *incx);
14 void dgemm_(
char *transA,
char *transB,
const int *m,
const int *n,
const int *k,
double *alpha,
double *A,
const int *lda,
double *B,
const int *ldb,
double *beta,
double *C,
const int *ldc);
15 void dsymm_(
char *side,
char *uplo,
int *m,
int *n,
double *alpha,
double *A,
int *lda,
double *B,
int *ldb,
double *beta,
double *C,
int *ldc);
16 void dgemv_(
char *trans,
int *m,
int *n,
double *alpha,
double *A,
int *lda,
double *x,
int *incx,
double *beta,
double *y,
int *incy);
17 double ddot_(
const int *n,
const double *x,
int *incx,
const double *y,
int *incy);
18 void dsyev_(
char *jobz,
char *uplo,
int *n,
double *A,
int *lda,
double *W,
double *work,
int *lwork,
int *info);
19 void dpotrf_(
char *uplo,
int *n,
double *A,
int *lda,
int *INFO);
20 void dpotri_(
char *uplo,
int *n,
double *A,
int *lda,
int *INFO);
21 void dsyevr_(
char* jobz,
char* range,
char* uplo,
int* n,
double* a,
int* lda,
double* vl,
double* vu,
int* il,
int* iu,
double* abstol,
int* m,
double* w,
double* z,
int* ldz,
int* isuppz,
double* work,
int* lwork,
int* iwork,
int* liwork,
int* info );
22 void dsyevd_(
char* jobz,
char* uplo,
int* n,
double* a,
int* lda,
double* w,
double* work,
int* lwork,
int* iwork,
int* liwork,
int* info );
24 void dgesvd_(
char* jobu,
char* jobvt,
int* m,
int* n,
double* a,
int* lda,
double* s,
double* u,
int* ldu,
double* vt,
int* ldvt,
double* work,
int* lwork,
int* info );
26 void dsyevd_(
char* jobz,
char* uplo,
int* n,
double* a,
int* lda,
double* w,
double* work,
int* lwork,
int* iwork,
int* liwork,
int* info);
27 void dsymv_(
char *uplo,
const int *n,
const double *alpha,
const double *a,
const int *lda,
const double *x,
const int *incx,
const double *beta,
double *y,
const int *incy);
28 void dstev_(
const char* jobz,
const int* n,
double* d,
double* e,
double* z,
const int* ldz,
double* work,
int* info );
29 void dgesvd_(
char* jobu,
char* jobvt,
int* m,
int* n,
double* a,
int* lda,
double* s,
double* u,
int* ldu,
double* vt,
int* ldvt,
double* work,
int* lwork,
int* info );
30 void dgemm_(
char *transA,
char *transB,
const int *m,
const int *n,
const int *k,
double *alpha,
double *A,
const int *lda,
double *B,
const int *ldb,
double *beta,
double *C,
const int *ldc);
35 void dsaupd_(
int *ido,
char *bmat,
int *n,
char *which,
36 int *nev,
double *tol,
double *resid,
int *ncv,
37 double *v,
int *ldv,
int *iparam,
int *ipntr,
38 double *workd,
double *workl,
int *lworkl,
int *info);
40 void dseupd_(
int *rvec,
char *All,
int *select,
double *d,
41 double *z,
int *ldz,
double *sigma,
42 char *bmat,
int *n,
char *which,
int *nev,
43 double *tol,
double *resid,
int *ncv,
double *v,
44 int *ldv,
int *iparam,
int *ipntr,
double *workd,
45 double *workl,
int *lworkl,
int *info);
void dsyev_(char *jobz, char *uplo, int *n, double *A, int *lda, double *W, double *work, int *lwork, int *info)
void dsaupd_(int *ido, char *bmat, int *n, char *which, int *nev, double *tol, double *resid, int *ncv, double *v, int *ldv, int *iparam, int *ipntr, double *workd, double *workl, int *lworkl, int *info)
void dsyevd_(char *jobz, char *uplo, int *n, double *a, int *lda, double *w, double *work, int *lwork, int *iwork, int *liwork, int *info)
void daxpy_(int *n, double *alpha, double *x, int *incx, double *y, int *incy)
void dcopy_(int *n, const double *x, int *incx, double *y, int *incy)
void dpotri_(char *uplo, int *n, double *A, int *lda, int *INFO)
void dseupd_(int *rvec, char *All, int *select, double *d, double *z, int *ldz, double *sigma, char *bmat, int *n, char *which, int *nev, double *tol, double *resid, int *ncv, double *v, int *ldv, int *iparam, int *ipntr, double *workd, double *workl, int *lworkl, int *info)
double ddot_(const int *n, const double *x, int *incx, const double *y, int *incy)
void dgelqf_(int *m, int *n, double *A, int *LDA, double *tau, double *WORK, int *LWORK, int *INFO)
void dgesvd_(char *jobu, char *jobvt, int *m, int *n, double *a, int *lda, double *s, double *u, int *ldu, double *vt, int *ldvt, double *work, int *lwork, int *info)
void dstev_(const char *jobz, const int *n, double *d, double *e, double *z, const int *ldz, double *work, int *info)
void dsymm_(char *side, char *uplo, int *m, int *n, double *alpha, double *A, int *lda, double *B, int *ldb, double *beta, double *C, int *ldc)
void dsymv_(char *uplo, const int *n, const double *alpha, const double *a, const int *lda, const double *x, const int *incx, const double *beta, double *y, const int *incy)
void dgeqrf_(int *m, int *n, double *A, int *LDA, double *tau, double *WORK, int *LWORK, int *INFO)
void dsyevr_(char *jobz, char *range, char *uplo, int *n, double *a, int *lda, double *vl, double *vu, int *il, int *iu, double *abstol, int *m, double *w, double *z, int *ldz, int *isuppz, double *work, int *lwork, int *iwork, int *liwork, int *info)
void dorglq_(int *m, int *n, int *k, double *A, int *LDA, double *tau, double *WORK, int *LWORK, int *INFO)
void dgemv_(char *trans, int *m, int *n, double *alpha, double *A, int *lda, double *x, int *incx, double *beta, double *y, int *incy)
void dpotrf_(char *uplo, int *n, double *A, int *lda, int *INFO)
void dgemm_(char *transA, char *transB, const int *m, const int *n, const int *k, double *alpha, double *A, const int *lda, double *B, const int *ldb, double *beta, double *C, const int *ldc)
void dscal_(int *n, const double *alpha, double *x, int *incx)
void dorgqr_(int *m, int *n, int *k, double *A, int *LDA, double *tau, double *WORK, int *LWORK, int *INFO)