lapack.h

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

void cpbtrf(character *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info, ftnlen uplolen);
void cpbtrs(character *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void cpocon(character *uplo, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplolen);
void cpoequ(integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, integer *info);
void cporfs(character *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplolen);
void cposv(character *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void cposvx(character *fact, character *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, 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 cpotf2(character *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplolen);
void cpotrf(character *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplolen);
void cpotri(character *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplolen);
void cpotrs(character *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void cppcon(character *uplo, integer *n, complex *ap, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplolen);
void cppequ(character *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, integer *info, ftnlen uplolen);
void cpprfs(character *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplolen);
void cppsv(character *uplo, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void cppsvx(character *fact, character *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, 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 cpptrf(character *uplo, integer *n, complex *ap, integer *info, ftnlen uplolen);
void cpptri(character *uplo, integer *n, complex *ap, integer *info, ftnlen uplolen);
void cpptrs(character *uplo, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void cptcon(integer *n, real *d, complex *e, real *anorm, real *rcond, real *rwork, integer *info);
void cpteqr(character *compz, integer *n, real *d, real *e, complex *z, integer *ldz, real *work, integer *info, ftnlen compzlen);
void cptrfs(character *uplo, integer *n, integer *nrhs, real *d, complex *e, real *df, complex *ef, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplolen);
void cptsv(integer *n, integer *nrhs, real *d, complex *e, complex *b, integer *ldb, integer *info);
void cptsvx(character *fact, integer *n, integer *nrhs, real *d, complex *e, real *df, complex *ef, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen factlen);
void cpttrf(integer *n, real *d, complex *e, integer *info);
void cpttrs(character *uplo, integer *n, integer *nrhs, real *d, complex *e, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void cptts2(integer *iuplo, integer *n, integer *nrhs, real *d, complex *e, complex *b, integer *ldb);
void crot(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c, complex *s);
void cspcon(character *uplo, integer *n, complex *ap, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplolen);
void cspmv(character *uplo, integer *n, complex *alpha, complex *ap, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplolen);
void cspr(character *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *ap, ftnlen uplolen);
void csprfs(character *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplolen);
void cspsv(character *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void cspsvx(character *fact, character *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen factlen, ftnlen uplolen);
void csptrf(character *uplo, integer *n, complex *ap, integer *ipiv, integer *info, ftnlen uplolen);
void csptri(character *uplo, integer *n, complex *ap, integer *ipiv, complex *work, integer *info, ftnlen uplolen);
void csptrs(character *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void csrot(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c, real *s);
void csrscl(integer *n, real *sa, complex *sx, integer *incx);
void cstedc(character *compz, integer *n, real *d, real *e, complex *z, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen compzlen);
void cstegr(character *jobz, character *range, integer *n, real *d, real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z, integer *ldz, integer *isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobzlen, ftnlen rangelen);
void cstein(integer *n, real *d, real *e, integer *m, real *w, integer *iblock, integer *isplit, complex *z, integer *ldz, real *work, integer *iwork, integer *ifail, integer *info);
void csteqr(character *compz, integer *n, real *d, real *e, complex *z, integer *ldz, real *work, integer *info, ftnlen compzlen);
void csycon(character *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplolen);
void csymv(character *uplo, integer *n, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplolen);
void csyr(character *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *a, integer *lda, ftnlen uplolen);
void csyrfs(character *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplolen);
void csysv(character *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info, ftnlen uplolen);
void csysvx(character *fact, character *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, integer *lwork, real *rwork, integer *info, ftnlen factlen, ftnlen uplolen);
void csytf2(character *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info, ftnlen uplolen);
void csytrf(character *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info, ftnlen uplolen);
void csytri(character *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info, ftnlen uplolen);
void csytrs(character *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplolen);
void ctbcon(character *norm, character *uplo, character *diag, integer *n, integer *kd, complex *ab, integer *ldab, real *rcond, complex *work, real *rwork, integer *info, ftnlen normlen, ftnlen uplolen, ftnlen diaglen);
void ctbrfs(character *uplo, character *trans, character *diag, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplolen, ftnlen translen, ftnlen diaglen);
void ctbtrs(character *uplo, character *trans, character *diag, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplolen, ftnlen translen, ftnlen diaglen);
void ctgevc(character *side, character *howmny, logical *select, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, real *rwork, integer *info, ftnlen sidelen, ftnlen howmnylen);
void ctgex2(logical *wantq, logical *wantz, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z, integer *ldz, integer *j1, integer *info);
void ctgexc(logical *wantq, logical *wantz, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z, integer *ldz, integer *ifst, integer *ilst, integer *info);
void ctgsen(integer *ijob, logical *wantq, logical *wantz, logical *select, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq, complex *z, integer *ldz, integer *m, real *pl, real *pr, real *dif, complex *work, integer *lwork, integer *iwork, integer *liwork, integer *info);
void ctgsja(character *jobu, character *jobv, character *jobq, integer *m, integer *p, integer *n, integer *k, integer *l, complex *a, integer *lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha, real *beta, complex *u, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, complex *work, integer *ncycle, integer *info, ftnlen jobulen, ftnlen jobvlen, ftnlen jobqlen);
void ctgsna(character *job, character *howmny, logical *select, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real *dif, integer *mm, integer *m, complex *work, integer *lwork, integer *iwork, integer *info, ftnlen joblen, ftnlen howmnylen);
void ctgsy2(character *trans, integer *ijob, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *c, integer *ldc, complex *d, integer *ldd, complex *e, integer *lde, complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal, integer *info, ftnlen translen);
void ctgsyl(character *trans, integer *ijob, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *c, integer *ldc, complex *d, integer *ldd, complex *e, integer *lde, complex *f, integer *ldf, real *scale, real *dif, complex *work, integer *lwork, integer *iwork, integer *info, ftnlen translen);
void ctpcon(character *norm, character *uplo, character *diag, integer *n, complex *ap, real *rcond, complex *work, real *rwork, integer *info, ftnlen normlen, ftnlen uplolen, ftnlen diaglen);
void ctprfs(character *uplo, character *trans, character *diag, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplolen, ftnlen translen, ftnlen diaglen);
void ctptri(character *uplo, character *diag, integer *n, complex *ap, integer *info, ftnlen uplolen, ftnlen diaglen);
void ctptrs(character *uplo, character *trans, character *diag, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplolen, ftnlen translen, ftnlen diaglen);
void ctrcon(character *norm, character *uplo, character *diag, integer *n, complex *a, integer *lda, real *rcond, complex *work, real *rwork, integer *info, ftnlen normlen, ftnlen uplolen, ftnlen diaglen);
void ctrevc(character *side, character *howmny, logical *select, integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, real *rwork, integer *info, ftnlen sidelen, ftnlen howmnylen);