lapack.h

数学算法的实现库。可以实现常见的线性计算。

void clahqr(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, complex *h, integer *ldh, complex *w, integer *iloz, integer *ihiz, complex *z, integer *ldz, integer *info);
void clahrd(integer *n, integer *k, integer *nb, complex *a, integer *lda, complex *tau, complex *t, integer *ldt, complex *y, integer *ldy);
void claic1(integer *job, integer *j, complex *x, real *sest, complex *w, complex *gamma, real *sestpr, complex *s, complex *c);
void clals0(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *difl, real *difr, real *z, integer *k, real *c, real *s, real *rwork, integer *info);
void clalsa(integer *icompq, integer *smlsiz, integer *n, integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx, real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *z, real *poles, integer *givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum, real *c, real *s, real *rwork, integer *iwork, integer *info);
void clalsd(character *uplo, integer *smlsiz, integer *n, integer *nrhs, real *d, real *e, complex *b, integer *ldb, real *rcond, integer *rank, complex *work, real *rwork, integer *iwork, integer *info, ftnlen uplolen);
extern real clangb(character *norm, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *work, ftnlen normlen);
extern real clange(character *norm, integer *m, integer *n, complex *a, integer *lda, real *work, ftnlen normlen);
extern real clangt(character *norm, integer *n, complex *dl, complex *d, complex *du, ftnlen normlen);
extern real clanhb(character *norm, character *uplo, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen normlen, ftnlen uplolen);
extern real clanhe(character *norm, character *uplo, integer *n, complex *a, integer *lda, real *work, ftnlen normlen, ftnlen uplolen);
extern real clanhp(character *norm, character *uplo, integer *n, complex *ap, real *work, ftnlen normlen, ftnlen uplolen);
extern real clanhs(character *norm, integer *n, complex *a, integer *lda, real *work, ftnlen normlen);
extern real clanht(character *norm, integer *n, real *d, complex *e, ftnlen normlen);
extern real clansb(character *norm, character *uplo, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen normlen, ftnlen uplolen);
extern real clansp(character *norm, character *uplo, integer *n, complex *ap, real *work, ftnlen normlen, ftnlen uplolen);
extern real clansy(character *norm, character *uplo, integer *n, complex *a, integer *lda, real *work, ftnlen normlen, ftnlen uplolen);
extern real clantb(character *norm, character *uplo, character *diag, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen normlen, ftnlen uplolen, ftnlen diaglen);
extern real clantp(character *norm, character *uplo, character *diag, integer *n, complex *ap, real *work, ftnlen normlen, ftnlen uplolen, ftnlen diaglen);
extern real clantr(character *norm, character *uplo, character *diag, integer *m, integer *n, complex *a, integer *lda, real *work, ftnlen normlen, ftnlen uplolen, ftnlen diaglen);
void clapll(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *ssmin);
void clapmt(logical *forwrd, integer *m, integer *n, complex *x, integer *ldx, integer *k);
void claqgb(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *r, real *c, real *rowcnd, real *colcnd, real *amax, character *equed, ftnlen equedlen);
void claqge(integer *m, integer *n, complex *a, integer *lda, real *r, real *c, real *rowcnd, real *colcnd, real *amax, character *equed, ftnlen equedlen);
void claqhb(character *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, character *equed, ftnlen uplolen, ftnlen equedlen);
void claqhe(character *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, character *equed, ftnlen uplolen, ftnlen equedlen);
void claqhp(character *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, character *equed, ftnlen uplolen, ftnlen equedlen);
void claqp2(integer *m, integer *n, integer *offset, complex *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, complex *work);
void claqps(integer *m, integer *n, integer *offset, integer *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf);
void claqsb(character *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, character *equed, ftnlen uplolen, ftnlen equedlen);
void claqsp(character *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, character *equed, ftnlen uplolen, ftnlen equedlen);
void claqsy(character *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, character *equed, ftnlen uplolen, ftnlen equedlen);
void clar1v(integer *n, integer *b1, integer *bn, real *sigma, real *d, real *l, real *ld, real *lld, real *gersch, complex *z, real *ztz, real *mingma, integer *r, integer *isuppz, real *work);
void clar2v(integer *n, complex *x, complex *y, complex *z, integer *incx, real *c, complex *s, integer *incc);
void clarcm(integer *m, integer *n, real *a, integer *lda, complex *b, integer *ldb, complex *c, integer *ldc, real *rwork);
void clarf(character *side, integer *m, integer *n, complex *v, integer *incv, complex *tau, complex *c, integer *ldc, complex *work, ftnlen sidelen);
void clarfb(character *side, character *trans, character *direct, character *storev, integer *m, integer *n, integer *k, complex *v, integer *ldv, complex *t, integer *ldt, complex *c, integer *ldc, complex *work, integer *ldwork, ftnlen sidelen, ftnlen translen, ftnlen directlen, ftnlen storevlen);
void clarfg(integer *n, complex *alpha, complex *x, integer *incx, complex *tau);
void clarft(character *direct, character *storev, integer *n, integer *k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt, ftnlen directlen, ftnlen storevlen);
void clarfx(character *side, integer *m, integer *n, complex *v, complex *tau, complex *c, integer *ldc, complex *work, ftnlen sidelen);
void clargv(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *c, integer *incc);
void clarnv(integer *idist, integer *iseed, integer *n, complex *x);
void clarrv(integer *n, real *d, real *l, integer *isplit, integer *m, real *w, integer *iblock, real *gersch, real *tol, complex *z, integer *ldz, integer *isuppz, real *work, integer *iwork, integer *info);
void clartg(complex *f, complex *g, real *cs, complex *sn, complex *r);
void clartv(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *c, complex *s, integer *incc);
void clarz(character *side, integer *m, integer *n, integer *l, complex *v, integer *incv, complex *tau, complex *c, integer *ldc, complex *work, ftnlen sidelen);
void clarzb(character *side, character *trans, character *direct, character *storev, integer *m, integer *n, integer *k, integer *l, complex *v, integer *ldv, complex *t, integer *ldt, complex *c, integer *ldc, complex *work, integer *ldwork, ftnlen sidelen, ftnlen translen, ftnlen directlen, ftnlen storevlen);
void clarzt(character *direct, character *storev, integer *n, integer *k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt, ftnlen directlen, ftnlen storevlen);
void clascl(character *type, integer *kl, integer *ku, real *cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda, integer *info, ftnlen typelen);
void claset(character *uplo, integer *m, integer *n, complex *alpha, complex *beta, complex *a, integer *lda, ftnlen uplolen);
void clasr(character *side, character *pivot, character *direct, integer *m, integer *n, real *c, real *s, complex *a, integer *lda, ftnlen sidelen, ftnlen pivotlen, ftnlen directlen);
void classq(integer *n, complex *x, integer *incx, real *scale, real *sumsq);
void claswp(integer *n, complex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx);
void clasyf(character *uplo, integer *n, integer *nb, integer *kb, complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, integer *info, ftnlen uplolen);
void clatbs(character *uplo, character *trans, character *diag, character *normin, integer *n, integer *kd, complex *ab, integer *ldab, complex *x, real *scale, real *cnorm, integer *info, ftnlen uplolen, ftnlen translen, ftnlen diaglen, ftnlen norminlen);
void clatdf(integer *ijob, integer *n, complex *z, integer *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *jpiv);
void clatps(character *uplo, character *trans, character *diag, character *normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm, integer *info, ftnlen uplolen, ftnlen translen, ftnlen diaglen, ftnlen norminlen);
void clatrd(character *uplo, integer *n, integer *nb, complex *a, integer *lda, real *e, complex *tau, complex *w, integer *ldw, ftnlen uplolen);
void clatrs(character *uplo, character *trans, character *diag, character *normin, integer *n, complex *a, integer *lda, complex *x, real *scale, real *cnorm, integer *info, ftnlen uplolen, ftnlen translen, ftnlen diaglen, ftnlen norminlen);
void clatrz(integer *m, integer *n, integer *l, complex *a, integer *lda, complex *tau, complex *work);
void clatzm(character *side, integer *m, integer *n, complex *v, integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc, complex *work, ftnlen sidelen);
void clauu2(character *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplolen);
void clauum(character *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplolen);
void cpbcon(character *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplolen);
void cpbequ(character *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, integer *info, ftnlen uplolen);
void cpbrfs(character *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplolen);
void cpbstf(character *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info, ftnlen uplolen);
void cpbsv(character *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void cpbsvx(character *fact, character *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, character *equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen factlen, ftnlen uplolen, ftnlen equedlen);
void cpbtf2(character *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info, ftnlen uplolen);