/src/controllers/src/lapack.h
C Header | 23860 lines | 20907 code | 1476 blank | 1477 comment | 5 complexity | 83660287e27e79b24cccf148829bd7d4 MD5 | raw file
Possible License(s): LGPL-2.1, LGPL-2.0
- /*
- * @(#)lapack.h generated by: makeheader 5.1.5 Tue Aug 3 17:36:45 2010
- *
- * built from: ../include/copyright.h
- * //mathworks/hub/3rdparty/R2010b/184443/glnx86/LAPACK/include/lapack.h
- */
- #if defined(_MSC_VER)
- # pragma once
- #endif
- #if defined(__GNUC__) && (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ > 3))
- # pragma once
- #endif
- #ifndef lapack_h
- #define lapack_h
- /*
- * Copyright 1984-2003 The MathWorks, Inc.
- * All Rights Reserved.
- */
- /*
- * Header File include/lapack.h
- * Auto generated by f2h.pl, do not modify by hand
- */
- #if defined(_WIN32) || defined(__hpux)
- #define FORTRAN_WRAPPER(x) x
- #else
- #define FORTRAN_WRAPPER(x) x ## _
- #endif
- #ifndef COMPLEX_TYPES
- #define COMPLEX_TYPES
- typedef struct{float r,i;} complex;
- typedef struct{double r,i;} doublecomplex;
- #endif
- #ifdef __cplusplus
- extern "C" {
- #endif
- /* Source: dlamch.f */
- #define dlamch FORTRAN_WRAPPER(dlamch)
- extern double dlamch(
- char *cmach
- );
- /* Source: dlamch.f */
- #define dlamc1 FORTRAN_WRAPPER(dlamc1)
- extern void dlamc1(
- ptrdiff_t *beta,
- ptrdiff_t *t,
- ptrdiff_t *rnd,
- ptrdiff_t *ieee1
- );
- /* Source: dlamch.f */
- #define dlamc2 FORTRAN_WRAPPER(dlamc2)
- extern void dlamc2(
- ptrdiff_t *beta,
- ptrdiff_t *t,
- ptrdiff_t *rnd,
- double *eps,
- ptrdiff_t *emin,
- double *rmin,
- ptrdiff_t *emax,
- double *rmax
- );
- /* Source: dlamch.f */
- #define dlamc3 FORTRAN_WRAPPER(dlamc3)
- extern double dlamc3(
- double *a,
- double *b
- );
- /* Source: dlamch.f */
- #define dlamc4 FORTRAN_WRAPPER(dlamc4)
- extern void dlamc4(
- ptrdiff_t *emin,
- double *start,
- ptrdiff_t *base
- );
- /* Source: dlamch.f */
- #define dlamc5 FORTRAN_WRAPPER(dlamc5)
- extern void dlamc5(
- ptrdiff_t *beta,
- ptrdiff_t *p,
- ptrdiff_t *emin,
- ptrdiff_t *ieee,
- ptrdiff_t *emax,
- double *rmax
- );
- /* Source: slamch.f */
- #define slamch FORTRAN_WRAPPER(slamch)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slamch(
- #else
- extern float slamch(
- #endif
- char *cmach
- );
- /* Source: slamch.f */
- #define slamc1 FORTRAN_WRAPPER(slamc1)
- extern void slamc1(
- ptrdiff_t *beta,
- ptrdiff_t *t,
- ptrdiff_t *rnd,
- ptrdiff_t *ieee1
- );
- /* Source: slamch.f */
- #define slamc2 FORTRAN_WRAPPER(slamc2)
- extern void slamc2(
- ptrdiff_t *beta,
- ptrdiff_t *t,
- ptrdiff_t *rnd,
- float *eps,
- ptrdiff_t *emin,
- float *rmin,
- ptrdiff_t *emax,
- float *rmax
- );
- /* Source: slamch.f */
- #define slamc3 FORTRAN_WRAPPER(slamc3)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slamc3(
- #else
- extern float slamc3(
- #endif
- float *a,
- float *b
- );
- /* Source: slamch.f */
- #define slamc4 FORTRAN_WRAPPER(slamc4)
- extern void slamc4(
- ptrdiff_t *emin,
- float *start,
- ptrdiff_t *base
- );
- /* Source: slamch.f */
- #define slamc5 FORTRAN_WRAPPER(slamc5)
- extern void slamc5(
- ptrdiff_t *beta,
- ptrdiff_t *p,
- ptrdiff_t *emin,
- ptrdiff_t *ieee,
- ptrdiff_t *emax,
- float *rmax
- );
- /* Source: cbdsqr.f */
- #define cbdsqr FORTRAN_WRAPPER(cbdsqr)
- extern void cbdsqr(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ncvt,
- ptrdiff_t *nru,
- ptrdiff_t *ncc,
- float *d,
- float *e,
- float *vt,
- ptrdiff_t *ldvt,
- float *u,
- ptrdiff_t *ldu,
- float *c,
- ptrdiff_t *ldc,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgbbrd.f */
- #define cgbbrd FORTRAN_WRAPPER(cgbbrd)
- extern void cgbbrd(
- char *vect,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *ncc,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *d,
- float *e,
- float *q,
- ptrdiff_t *ldq,
- float *pt,
- ptrdiff_t *ldpt,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgbcon.f */
- #define cgbcon FORTRAN_WRAPPER(cgbcon)
- extern void cgbcon(
- char *norm,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgbequ.f */
- #define cgbequ FORTRAN_WRAPPER(cgbequ)
- extern void cgbequ(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: cgbequb.f */
- #define cgbequb FORTRAN_WRAPPER(cgbequb)
- extern void cgbequb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: cgbrfs.f */
- #define cgbrfs FORTRAN_WRAPPER(cgbrfs)
- extern void cgbrfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *afb,
- ptrdiff_t *ldafb,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgbsv.f */
- #define cgbsv FORTRAN_WRAPPER(cgbsv)
- extern void cgbsv(
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cgbsvx.f */
- #define cgbsvx FORTRAN_WRAPPER(cgbsvx)
- extern void cgbsvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *afb,
- ptrdiff_t *ldafb,
- ptrdiff_t *ipiv,
- char *equed,
- float *r,
- float *c,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgbtf2.f */
- #define cgbtf2 FORTRAN_WRAPPER(cgbtf2)
- extern void cgbtf2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: cgbtrf.f */
- #define cgbtrf FORTRAN_WRAPPER(cgbtrf)
- extern void cgbtrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: cgbtrs.f */
- #define cgbtrs FORTRAN_WRAPPER(cgbtrs)
- extern void cgbtrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cgebak.f */
- #define cgebak FORTRAN_WRAPPER(cgebak)
- extern void cgebak(
- char *job,
- char *side,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *scale,
- ptrdiff_t *m,
- float *v,
- ptrdiff_t *ldv,
- ptrdiff_t *info
- );
- /* Source: cgebal.f */
- #define cgebal FORTRAN_WRAPPER(cgebal)
- extern void cgebal(
- char *job,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *scale,
- ptrdiff_t *info
- );
- /* Source: cgebd2.f */
- #define cgebd2 FORTRAN_WRAPPER(cgebd2)
- extern void cgebd2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tauq,
- float *taup,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cgebrd.f */
- #define cgebrd FORTRAN_WRAPPER(cgebrd)
- extern void cgebrd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tauq,
- float *taup,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cgecon.f */
- #define cgecon FORTRAN_WRAPPER(cgecon)
- extern void cgecon(
- char *norm,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *anorm,
- float *rcond,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgeequ.f */
- #define cgeequ FORTRAN_WRAPPER(cgeequ)
- extern void cgeequ(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: cgeequb.f */
- #define cgeequb FORTRAN_WRAPPER(cgeequb)
- extern void cgeequb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: cgees.f */
- #define cgees FORTRAN_WRAPPER(cgees)
- extern void cgees(
- char *jobvs,
- char *sort,
- ptrdiff_t (*select)(),
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *sdim,
- float *w,
- float *vs,
- ptrdiff_t *ldvs,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: cgeesx.f */
- #define cgeesx FORTRAN_WRAPPER(cgeesx)
- extern void cgeesx(
- char *jobvs,
- char *sort,
- ptrdiff_t (*select)(),
- char *sense,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *sdim,
- float *w,
- float *vs,
- ptrdiff_t *ldvs,
- float *rconde,
- float *rcondv,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: cgeev.f */
- #define cgeev FORTRAN_WRAPPER(cgeev)
- extern void cgeev(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *w,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgeevx.f */
- #define cgeevx FORTRAN_WRAPPER(cgeevx)
- extern void cgeevx(
- char *balanc,
- char *jobvl,
- char *jobvr,
- char *sense,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *w,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *scale,
- float *abnrm,
- float *rconde,
- float *rcondv,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgegs.f */
- #define cgegs FORTRAN_WRAPPER(cgegs)
- extern void cgegs(
- char *jobvsl,
- char *jobvsr,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alpha,
- float *beta,
- float *vsl,
- ptrdiff_t *ldvsl,
- float *vsr,
- ptrdiff_t *ldvsr,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgegv.f */
- #define cgegv FORTRAN_WRAPPER(cgegv)
- extern void cgegv(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alpha,
- float *beta,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgehd2.f */
- #define cgehd2 FORTRAN_WRAPPER(cgehd2)
- extern void cgehd2(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cgehrd.f */
- #define cgehrd FORTRAN_WRAPPER(cgehrd)
- extern void cgehrd(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cgelq2.f */
- #define cgelq2 FORTRAN_WRAPPER(cgelq2)
- extern void cgelq2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cgelqf.f */
- #define cgelqf FORTRAN_WRAPPER(cgelqf)
- extern void cgelqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cgels.f */
- #define cgels FORTRAN_WRAPPER(cgels)
- extern void cgels(
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cgelsd.f */
- #define cgelsd FORTRAN_WRAPPER(cgelsd)
- extern void cgelsd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *s,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: cgelss.f */
- #define cgelss FORTRAN_WRAPPER(cgelss)
- extern void cgelss(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *s,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgelsx.f */
- #define cgelsx FORTRAN_WRAPPER(cgelsx)
- extern void cgelsx(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *jpvt,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgelsy.f */
- #define cgelsy FORTRAN_WRAPPER(cgelsy)
- extern void cgelsy(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *jpvt,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgeql2.f */
- #define cgeql2 FORTRAN_WRAPPER(cgeql2)
- extern void cgeql2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cgeqlf.f */
- #define cgeqlf FORTRAN_WRAPPER(cgeqlf)
- extern void cgeqlf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cgeqp3.f */
- #define cgeqp3 FORTRAN_WRAPPER(cgeqp3)
- extern void cgeqp3(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgeqpf.f */
- #define cgeqpf FORTRAN_WRAPPER(cgeqpf)
- extern void cgeqpf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- float *tau,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgeqr2.f */
- #define cgeqr2 FORTRAN_WRAPPER(cgeqr2)
- extern void cgeqr2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cgeqrf.f */
- #define cgeqrf FORTRAN_WRAPPER(cgeqrf)
- extern void cgeqrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cgerfs.f */
- #define cgerfs FORTRAN_WRAPPER(cgerfs)
- extern void cgerfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgerq2.f */
- #define cgerq2 FORTRAN_WRAPPER(cgerq2)
- extern void cgerq2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cgerqf.f */
- #define cgerqf FORTRAN_WRAPPER(cgerqf)
- extern void cgerqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cgesc2.f */
- #define cgesc2 FORTRAN_WRAPPER(cgesc2)
- extern void cgesc2(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *rhs,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv,
- float *scale
- );
- /* Source: cgesdd.f */
- #define cgesdd FORTRAN_WRAPPER(cgesdd)
- extern void cgesdd(
- char *jobz,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *ldvt,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: cgesv.f */
- #define cgesv FORTRAN_WRAPPER(cgesv)
- extern void cgesv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cgesvd.f */
- #define cgesvd FORTRAN_WRAPPER(cgesvd)
- extern void cgesvd(
- char *jobu,
- char *jobvt,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *ldvt,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgesvx.f */
- #define cgesvx FORTRAN_WRAPPER(cgesvx)
- extern void cgesvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- char *equed,
- float *r,
- float *c,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgetc2.f */
- #define cgetc2 FORTRAN_WRAPPER(cgetc2)
- extern void cgetc2(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv,
- ptrdiff_t *info
- );
- /* Source: cgetf2.f */
- #define cgetf2 FORTRAN_WRAPPER(cgetf2)
- extern void cgetf2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: cgetrf.f */
- #define cgetrf FORTRAN_WRAPPER(cgetrf)
- extern void cgetrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: cgetri.f */
- #define cgetri FORTRAN_WRAPPER(cgetri)
- extern void cgetri(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cgetrs.f */
- #define cgetrs FORTRAN_WRAPPER(cgetrs)
- extern void cgetrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cggbak.f */
- #define cggbak FORTRAN_WRAPPER(cggbak)
- extern void cggbak(
- char *job,
- char *side,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *lscale,
- float *rscale,
- ptrdiff_t *m,
- float *v,
- ptrdiff_t *ldv,
- ptrdiff_t *info
- );
- /* Source: cggbal.f */
- #define cggbal FORTRAN_WRAPPER(cggbal)
- extern void cggbal(
- char *job,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *lscale,
- float *rscale,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cgges.f */
- #define cgges FORTRAN_WRAPPER(cgges)
- extern void cgges(
- char *jobvsl,
- char *jobvsr,
- char *sort,
- ptrdiff_t (*selctg)(),
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *sdim,
- float *alpha,
- float *beta,
- float *vsl,
- ptrdiff_t *ldvsl,
- float *vsr,
- ptrdiff_t *ldvsr,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: cggesx.f */
- #define cggesx FORTRAN_WRAPPER(cggesx)
- extern void cggesx(
- char *jobvsl,
- char *jobvsr,
- char *sort,
- ptrdiff_t (*selctg)(),
- char *sense,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *sdim,
- float *alpha,
- float *beta,
- float *vsl,
- ptrdiff_t *ldvsl,
- float *vsr,
- ptrdiff_t *ldvsr,
- float *rconde,
- float *rcondv,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: cggev.f */
- #define cggev FORTRAN_WRAPPER(cggev)
- extern void cggev(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alpha,
- float *beta,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cggevx.f */
- #define cggevx FORTRAN_WRAPPER(cggevx)
- extern void cggevx(
- char *balanc,
- char *jobvl,
- char *jobvr,
- char *sense,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alpha,
- float *beta,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *lscale,
- float *rscale,
- float *abnrm,
- float *bbnrm,
- float *rconde,
- float *rcondv,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: cggglm.f */
- #define cggglm FORTRAN_WRAPPER(cggglm)
- extern void cggglm(
- ptrdiff_t *n,
- ptrdiff_t *m,
- ptrdiff_t *p,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *d,
- float *x,
- float *y,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cgghrd.f */
- #define cgghrd FORTRAN_WRAPPER(cgghrd)
- extern void cgghrd(
- char *compq,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *info
- );
- /* Source: cgglse.f */
- #define cgglse FORTRAN_WRAPPER(cgglse)
- extern void cgglse(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *p,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- float *d,
- float *x,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cggqrf.f */
- #define cggqrf FORTRAN_WRAPPER(cggqrf)
- extern void cggqrf(
- ptrdiff_t *n,
- ptrdiff_t *m,
- ptrdiff_t *p,
- float *a,
- ptrdiff_t *lda,
- float *taua,
- float *b,
- ptrdiff_t *ldb,
- float *taub,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cggrqf.f */
- #define cggrqf FORTRAN_WRAPPER(cggrqf)
- extern void cggrqf(
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *taua,
- float *b,
- ptrdiff_t *ldb,
- float *taub,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cggsvd.f */
- #define cggsvd FORTRAN_WRAPPER(cggsvd)
- extern void cggsvd(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *p,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alpha,
- float *beta,
- float *u,
- ptrdiff_t *ldu,
- float *v,
- ptrdiff_t *ldv,
- float *q,
- ptrdiff_t *ldq,
- float *work,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: cggsvp.f */
- #define cggsvp FORTRAN_WRAPPER(cggsvp)
- extern void cggsvp(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *tola,
- float *tolb,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *u,
- ptrdiff_t *ldu,
- float *v,
- ptrdiff_t *ldv,
- float *q,
- ptrdiff_t *ldq,
- ptrdiff_t *iwork,
- float *rwork,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cgtcon.f */
- #define cgtcon FORTRAN_WRAPPER(cgtcon)
- extern void cgtcon(
- char *norm,
- ptrdiff_t *n,
- float *dl,
- float *d,
- float *du,
- float *du2,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cgtrfs.f */
- #define cgtrfs FORTRAN_WRAPPER(cgtrfs)
- extern void cgtrfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *dlf,
- float *df,
- float *duf,
- float *du2,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgtsv.f */
- #define cgtsv FORTRAN_WRAPPER(cgtsv)
- extern void cgtsv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cgtsvx.f */
- #define cgtsvx FORTRAN_WRAPPER(cgtsvx)
- extern void cgtsvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *dlf,
- float *df,
- float *duf,
- float *du2,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cgttrf.f */
- #define cgttrf FORTRAN_WRAPPER(cgttrf)
- extern void cgttrf(
- ptrdiff_t *n,
- float *dl,
- float *d,
- float *du,
- float *du2,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: cgttrs.f */
- #define cgttrs FORTRAN_WRAPPER(cgttrs)
- extern void cgttrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *du2,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cgtts2.f */
- #define cgtts2 FORTRAN_WRAPPER(cgtts2)
- extern void cgtts2(
- ptrdiff_t *itrans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *du2,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: chbev.f */
- #define chbev FORTRAN_WRAPPER(chbev)
- extern void chbev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chbevd.f */
- #define chbevd FORTRAN_WRAPPER(chbevd)
- extern void chbevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: chbevx.f */
- #define chbevx FORTRAN_WRAPPER(chbevx)
- extern void chbevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *q,
- ptrdiff_t *ldq,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: chbgst.f */
- #define chbgst FORTRAN_WRAPPER(chbgst)
- extern void chbgst(
- char *vect,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- float *ab,
- ptrdiff_t *ldab,
- float *bb,
- ptrdiff_t *ldbb,
- float *x,
- ptrdiff_t *ldx,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chbgv.f */
- #define chbgv FORTRAN_WRAPPER(chbgv)
- extern void chbgv(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- float *ab,
- ptrdiff_t *ldab,
- float *bb,
- ptrdiff_t *ldbb,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chbgvd.f */
- #define chbgvd FORTRAN_WRAPPER(chbgvd)
- extern void chbgvd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- float *ab,
- ptrdiff_t *ldab,
- float *bb,
- ptrdiff_t *ldbb,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: chbgvx.f */
- #define chbgvx FORTRAN_WRAPPER(chbgvx)
- extern void chbgvx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- float *ab,
- ptrdiff_t *ldab,
- float *bb,
- ptrdiff_t *ldbb,
- float *q,
- ptrdiff_t *ldq,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: chbtrd.f */
- #define chbtrd FORTRAN_WRAPPER(chbtrd)
- extern void chbtrd(
- char *vect,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *d,
- float *e,
- float *q,
- ptrdiff_t *ldq,
- float *work,
- ptrdiff_t *info
- );
- /* Source: checon.f */
- #define checon FORTRAN_WRAPPER(checon)
- extern void checon(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cheequb.f */
- #define cheequb FORTRAN_WRAPPER(cheequb)
- extern void cheequb(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cheev.f */
- #define cheev FORTRAN_WRAPPER(cheev)
- extern void cheev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *w,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cheevd.f */
- #define cheevd FORTRAN_WRAPPER(cheevd)
- extern void cheevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *w,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: cheevr.f */
- #define cheevr FORTRAN_WRAPPER(cheevr)
- extern void cheevr(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: cheevx.f */
- #define cheevx FORTRAN_WRAPPER(cheevx)
- extern void cheevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: chegs2.f */
- #define chegs2 FORTRAN_WRAPPER(chegs2)
- extern void chegs2(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: chegst.f */
- #define chegst FORTRAN_WRAPPER(chegst)
- extern void chegst(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: chegv.f */
- #define chegv FORTRAN_WRAPPER(chegv)
- extern void chegv(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *w,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chegvd.f */
- #define chegvd FORTRAN_WRAPPER(chegvd)
- extern void chegvd(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *w,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: chegvx.f */
- #define chegvx FORTRAN_WRAPPER(chegvx)
- extern void chegvx(
- ptrdiff_t *itype,
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: cherfs.f */
- #define cherfs FORTRAN_WRAPPER(cherfs)
- extern void cherfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chesv.f */
- #define chesv FORTRAN_WRAPPER(chesv)
- extern void chesv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: chesvx.f */
- #define chesvx FORTRAN_WRAPPER(chesvx)
- extern void chesvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chetd2.f */
- #define chetd2 FORTRAN_WRAPPER(chetd2)
- extern void chetd2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tau,
- ptrdiff_t *info
- );
- /* Source: chetf2.f */
- #define chetf2 FORTRAN_WRAPPER(chetf2)
- extern void chetf2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: chetrd.f */
- #define chetrd FORTRAN_WRAPPER(chetrd)
- extern void chetrd(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: chetrf.f */
- #define chetrf FORTRAN_WRAPPER(chetrf)
- extern void chetrf(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: chetri.f */
- #define chetri FORTRAN_WRAPPER(chetri)
- extern void chetri(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *info
- );
- /* Source: chetrs.f */
- #define chetrs FORTRAN_WRAPPER(chetrs)
- extern void chetrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: chfrk.f */
- #define chfrk FORTRAN_WRAPPER(chfrk)
- extern void chfrk(
- char *transr,
- char *uplo,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *alpha,
- float *a,
- ptrdiff_t *lda,
- float *beta,
- float *c
- );
- /* Source: chgeqz.f */
- #define chgeqz FORTRAN_WRAPPER(chgeqz)
- extern void chgeqz(
- char *job,
- char *compq,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *t,
- ptrdiff_t *ldt,
- float *alpha,
- float *beta,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chla_transtype.f */
- #define chla_transtype FORTRAN_WRAPPER(chla_transtype)
- extern char chla_transtype(
- ptrdiff_t *trans
- );
- /* Source: chpcon.f */
- #define chpcon FORTRAN_WRAPPER(chpcon)
- extern void chpcon(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *info
- );
- /* Source: chpev.f */
- #define chpev FORTRAN_WRAPPER(chpev)
- extern void chpev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chpevd.f */
- #define chpevd FORTRAN_WRAPPER(chpevd)
- extern void chpevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: chpevx.f */
- #define chpevx FORTRAN_WRAPPER(chpevx)
- extern void chpevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: chpgst.f */
- #define chpgst FORTRAN_WRAPPER(chpgst)
- extern void chpgst(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *bp,
- ptrdiff_t *info
- );
- /* Source: chpgv.f */
- #define chpgv FORTRAN_WRAPPER(chpgv)
- extern void chpgv(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *bp,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chpgvd.f */
- #define chpgvd FORTRAN_WRAPPER(chpgvd)
- extern void chpgvd(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *bp,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: chpgvx.f */
- #define chpgvx FORTRAN_WRAPPER(chpgvx)
- extern void chpgvx(
- ptrdiff_t *itype,
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *bp,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: chprfs.f */
- #define chprfs FORTRAN_WRAPPER(chprfs)
- extern void chprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chpsv.f */
- #define chpsv FORTRAN_WRAPPER(chpsv)
- extern void chpsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: chpsvx.f */
- #define chpsvx FORTRAN_WRAPPER(chpsvx)
- extern void chpsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: chptrd.f */
- #define chptrd FORTRAN_WRAPPER(chptrd)
- extern void chptrd(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *d,
- float *e,
- float *tau,
- ptrdiff_t *info
- );
- /* Source: chptrf.f */
- #define chptrf FORTRAN_WRAPPER(chptrf)
- extern void chptrf(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: chptri.f */
- #define chptri FORTRAN_WRAPPER(chptri)
- extern void chptri(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *info
- );
- /* Source: chptrs.f */
- #define chptrs FORTRAN_WRAPPER(chptrs)
- extern void chptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: chsein.f */
- #define chsein FORTRAN_WRAPPER(chsein)
- extern void chsein(
- char *side,
- char *eigsrc,
- char *initv,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *h,
- ptrdiff_t *ldh,
- float *w,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- float *rwork,
- ptrdiff_t *ifaill,
- ptrdiff_t *ifailr,
- ptrdiff_t *info
- );
- /* Source: chseqr.f */
- #define chseqr FORTRAN_WRAPPER(chseqr)
- extern void chseqr(
- char *job,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: clabrd.f */
- #define clabrd FORTRAN_WRAPPER(clabrd)
- extern void clabrd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tauq,
- float *taup,
- float *x,
- ptrdiff_t *ldx,
- float *y,
- ptrdiff_t *ldy
- );
- /* Source: clacgv.f */
- #define clacgv FORTRAN_WRAPPER(clacgv)
- extern void clacgv(
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *incx
- );
- /* Source: clacn2.f */
- #define clacn2 FORTRAN_WRAPPER(clacn2)
- extern void clacn2(
- ptrdiff_t *n,
- float *v,
- float *x,
- float *est,
- ptrdiff_t *kase,
- ptrdiff_t *isave
- );
- /* Source: clacon.f */
- #define clacon FORTRAN_WRAPPER(clacon)
- extern void clacon(
- ptrdiff_t *n,
- float *v,
- float *x,
- float *est,
- ptrdiff_t *kase
- );
- /* Source: clacp2.f */
- #define clacp2 FORTRAN_WRAPPER(clacp2)
- extern void clacp2(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: clacpy.f */
- #define clacpy FORTRAN_WRAPPER(clacpy)
- extern void clacpy(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: clacrm.f */
- #define clacrm FORTRAN_WRAPPER(clacrm)
- extern void clacrm(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- ptrdiff_t *ldc,
- float *rwork
- );
- /* Source: clacrt.f */
- #define clacrt FORTRAN_WRAPPER(clacrt)
- extern void clacrt(
- ptrdiff_t *n,
- float *cx,
- ptrdiff_t *incx,
- float *cy,
- ptrdiff_t *incy,
- float *c,
- float *s
- );
- /* Source: cladiv.f */
- #define cladiv FORTRAN_WRAPPER(cladiv)
- #ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
- extern complex cladiv(
- #else
- extern void cladiv(
- complex* retval,
- #endif
- float *x,
- float *y
- );
- /* Source: claed0.f */
- #define claed0 FORTRAN_WRAPPER(claed0)
- extern void claed0(
- ptrdiff_t *qsiz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *q,
- ptrdiff_t *ldq,
- float *qstore,
- ptrdiff_t *ldqs,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: claed7.f */
- #define claed7 FORTRAN_WRAPPER(claed7)
- extern void claed7(
- ptrdiff_t *n,
- ptrdiff_t *cutpnt,
- ptrdiff_t *qsiz,
- ptrdiff_t *tlvls,
- ptrdiff_t *curlvl,
- ptrdiff_t *curpbm,
- float *d,
- float *q,
- ptrdiff_t *ldq,
- float *rho,
- ptrdiff_t *indxq,
- float *qstore,
- ptrdiff_t *qptr,
- ptrdiff_t *prmptr,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- float *givnum,
- float *work,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: claed8.f */
- #define claed8 FORTRAN_WRAPPER(claed8)
- extern void claed8(
- ptrdiff_t *k,
- ptrdiff_t *n,
- ptrdiff_t *qsiz,
- float *q,
- ptrdiff_t *ldq,
- float *d,
- float *rho,
- ptrdiff_t *cutpnt,
- float *z,
- float *dlamda,
- float *q2,
- ptrdiff_t *ldq2,
- float *w,
- ptrdiff_t *indxp,
- ptrdiff_t *indx,
- ptrdiff_t *indxq,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- float *givnum,
- ptrdiff_t *info
- );
- /* Source: claein.f */
- #define claein FORTRAN_WRAPPER(claein)
- extern void claein(
- ptrdiff_t *rightv,
- ptrdiff_t *noinit,
- ptrdiff_t *n,
- float *h,
- ptrdiff_t *ldh,
- float *w,
- float *v,
- float *b,
- ptrdiff_t *ldb,
- float *rwork,
- float *eps3,
- float *smlnum,
- ptrdiff_t *info
- );
- /* Source: claesy.f */
- #define claesy FORTRAN_WRAPPER(claesy)
- extern void claesy(
- float *a,
- float *b,
- float *c,
- float *rt1,
- float *rt2,
- float *evscal,
- float *cs1,
- float *sn1
- );
- /* Source: claev2.f */
- #define claev2 FORTRAN_WRAPPER(claev2)
- extern void claev2(
- float *a,
- float *b,
- float *c,
- float *rt1,
- float *rt2,
- float *cs1,
- float *sn1
- );
- /* Source: clag2z.f */
- #define clag2z FORTRAN_WRAPPER(clag2z)
- extern void clag2z(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *sa,
- ptrdiff_t *ldsa,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: clags2.f */
- #define clags2 FORTRAN_WRAPPER(clags2)
- extern void clags2(
- ptrdiff_t *upper,
- float *a1,
- float *a2,
- float *a3,
- float *b1,
- float *b2,
- float *b3,
- float *csu,
- float *snu,
- float *csv,
- float *snv,
- float *csq,
- float *snq
- );
- /* Source: clagtm.f */
- #define clagtm FORTRAN_WRAPPER(clagtm)
- extern void clagtm(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *alpha,
- float *dl,
- float *d,
- float *du,
- float *x,
- ptrdiff_t *ldx,
- float *beta,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: clahef.f */
- #define clahef FORTRAN_WRAPPER(clahef)
- extern void clahef(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *w,
- ptrdiff_t *ldw,
- ptrdiff_t *info
- );
- /* Source: clahqr.f */
- #define clahqr FORTRAN_WRAPPER(clahqr)
- extern void clahqr(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *w,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *info
- );
- /* Source: clahr2.f */
- #define clahr2 FORTRAN_WRAPPER(clahr2)
- extern void clahr2(
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *nb,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *t,
- ptrdiff_t *ldt,
- float *y,
- ptrdiff_t *ldy
- );
- /* Source: clahrd.f */
- #define clahrd FORTRAN_WRAPPER(clahrd)
- extern void clahrd(
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *nb,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *t,
- ptrdiff_t *ldt,
- float *y,
- ptrdiff_t *ldy
- );
- /* Source: claic1.f */
- #define claic1 FORTRAN_WRAPPER(claic1)
- extern void claic1(
- ptrdiff_t *job,
- ptrdiff_t *j,
- float *x,
- float *sest,
- float *w,
- float *gamma_,
- float *sestpr,
- float *s,
- float *c
- );
- /* Source: clals0.f */
- #define clals0 FORTRAN_WRAPPER(clals0)
- extern void clals0(
- ptrdiff_t *icompq,
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *nrhs,
- float *b,
- ptrdiff_t *ldb,
- float *bx,
- ptrdiff_t *ldbx,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- float *givnum,
- ptrdiff_t *ldgnum,
- float *poles,
- float *difl,
- float *difr,
- float *z,
- ptrdiff_t *k,
- float *c,
- float *s,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: clalsa.f */
- #define clalsa FORTRAN_WRAPPER(clalsa)
- extern void clalsa(
- ptrdiff_t *icompq,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *b,
- ptrdiff_t *ldb,
- float *bx,
- ptrdiff_t *ldbx,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *k,
- float *difl,
- float *difr,
- float *z,
- float *poles,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- ptrdiff_t *perm,
- float *givnum,
- float *c,
- float *s,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: clalsd.f */
- #define clalsd FORTRAN_WRAPPER(clalsd)
- extern void clalsd(
- char *uplo,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *b,
- ptrdiff_t *ldb,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- float *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: clangb.f */
- #define clangb FORTRAN_WRAPPER(clangb)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clangb(
- #else
- extern float clangb(
- #endif
- char *norm,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *work
- );
- /* Source: clange.f */
- #define clange FORTRAN_WRAPPER(clange)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clange(
- #else
- extern float clange(
- #endif
- char *norm,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *work
- );
- /* Source: clangt.f */
- #define clangt FORTRAN_WRAPPER(clangt)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clangt(
- #else
- extern float clangt(
- #endif
- char *norm,
- ptrdiff_t *n,
- float *dl,
- float *d,
- float *du
- );
- /* Source: clanhb.f */
- #define clanhb FORTRAN_WRAPPER(clanhb)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clanhb(
- #else
- extern float clanhb(
- #endif
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *ab,
- ptrdiff_t *ldab,
- float *work
- );
- /* Source: clanhe.f */
- #define clanhe FORTRAN_WRAPPER(clanhe)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clanhe(
- #else
- extern float clanhe(
- #endif
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *work
- );
- /* Source: clanhf.f */
- #define clanhf FORTRAN_WRAPPER(clanhf)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clanhf(
- #else
- extern float clanhf(
- #endif
- char *norm,
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- float *work
- );
- /* Source: clanhp.f */
- #define clanhp FORTRAN_WRAPPER(clanhp)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clanhp(
- #else
- extern float clanhp(
- #endif
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *work
- );
- /* Source: clanhs.f */
- #define clanhs FORTRAN_WRAPPER(clanhs)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clanhs(
- #else
- extern float clanhs(
- #endif
- char *norm,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *work
- );
- /* Source: clanht.f */
- #define clanht FORTRAN_WRAPPER(clanht)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clanht(
- #else
- extern float clanht(
- #endif
- char *norm,
- ptrdiff_t *n,
- float *d,
- float *e
- );
- /* Source: clansb.f */
- #define clansb FORTRAN_WRAPPER(clansb)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clansb(
- #else
- extern float clansb(
- #endif
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *ab,
- ptrdiff_t *ldab,
- float *work
- );
- /* Source: clansp.f */
- #define clansp FORTRAN_WRAPPER(clansp)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clansp(
- #else
- extern float clansp(
- #endif
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *work
- );
- /* Source: clansy.f */
- #define clansy FORTRAN_WRAPPER(clansy)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clansy(
- #else
- extern float clansy(
- #endif
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *work
- );
- /* Source: clantb.f */
- #define clantb FORTRAN_WRAPPER(clantb)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clantb(
- #else
- extern float clantb(
- #endif
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *ab,
- ptrdiff_t *ldab,
- float *work
- );
- /* Source: clantp.f */
- #define clantp FORTRAN_WRAPPER(clantp)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clantp(
- #else
- extern float clantp(
- #endif
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *ap,
- float *work
- );
- /* Source: clantr.f */
- #define clantr FORTRAN_WRAPPER(clantr)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double clantr(
- #else
- extern float clantr(
- #endif
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *work
- );
- /* Source: clapll.f */
- #define clapll FORTRAN_WRAPPER(clapll)
- extern void clapll(
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *incx,
- float *y,
- ptrdiff_t *incy,
- float *ssmin
- );
- /* Source: clapmt.f */
- #define clapmt FORTRAN_WRAPPER(clapmt)
- extern void clapmt(
- ptrdiff_t *forwrd,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *ldx,
- ptrdiff_t *k
- );
- /* Source: claqgb.f */
- #define claqgb FORTRAN_WRAPPER(claqgb)
- extern void claqgb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- char *equed
- );
- /* Source: claqge.f */
- #define claqge FORTRAN_WRAPPER(claqge)
- extern void claqge(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- char *equed
- );
- /* Source: claqhb.f */
- #define claqhb FORTRAN_WRAPPER(claqhb)
- extern void claqhb(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *s,
- float *scond,
- float *amax,
- char *equed
- );
- /* Source: claqhe.f */
- #define claqhe FORTRAN_WRAPPER(claqhe)
- extern void claqhe(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- char *equed
- );
- /* Source: claqhp.f */
- #define claqhp FORTRAN_WRAPPER(claqhp)
- extern void claqhp(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *s,
- float *scond,
- float *amax,
- char *equed
- );
- /* Source: claqp2.f */
- #define claqp2 FORTRAN_WRAPPER(claqp2)
- extern void claqp2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *offset,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- float *tau,
- float *vn1,
- float *vn2,
- float *work
- );
- /* Source: claqps.f */
- #define claqps FORTRAN_WRAPPER(claqps)
- extern void claqps(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *offset,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- float *tau,
- float *vn1,
- float *vn2,
- float *auxv,
- float *f,
- ptrdiff_t *ldf
- );
- /* Source: claqr0.f */
- #define claqr0 FORTRAN_WRAPPER(claqr0)
- extern void claqr0(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *w,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: claqr1.f */
- #define claqr1 FORTRAN_WRAPPER(claqr1)
- extern void claqr1(
- ptrdiff_t *n,
- float *h,
- ptrdiff_t *ldh,
- float *s1,
- float *s2,
- float *v
- );
- /* Source: claqr2.f */
- #define claqr2 FORTRAN_WRAPPER(claqr2)
- extern void claqr2(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nw,
- float *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ns,
- ptrdiff_t *nd,
- float *sh,
- float *v,
- ptrdiff_t *ldv,
- ptrdiff_t *nh,
- float *t,
- ptrdiff_t *ldt,
- ptrdiff_t *nv,
- float *wv,
- ptrdiff_t *ldwv,
- float *work,
- ptrdiff_t *lwork
- );
- /* Source: claqr3.f */
- #define claqr3 FORTRAN_WRAPPER(claqr3)
- extern void claqr3(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nw,
- float *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ns,
- ptrdiff_t *nd,
- float *sh,
- float *v,
- ptrdiff_t *ldv,
- ptrdiff_t *nh,
- float *t,
- ptrdiff_t *ldt,
- ptrdiff_t *nv,
- float *wv,
- ptrdiff_t *ldwv,
- float *work,
- ptrdiff_t *lwork
- );
- /* Source: claqr4.f */
- #define claqr4 FORTRAN_WRAPPER(claqr4)
- extern void claqr4(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *w,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: claqr5.f */
- #define claqr5 FORTRAN_WRAPPER(claqr5)
- extern void claqr5(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *kacc22,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nshfts,
- float *s,
- float *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- float *v,
- ptrdiff_t *ldv,
- float *u,
- ptrdiff_t *ldu,
- ptrdiff_t *nv,
- float *wv,
- ptrdiff_t *ldwv,
- ptrdiff_t *nh,
- float *wh,
- ptrdiff_t *ldwh
- );
- /* Source: claqsb.f */
- #define claqsb FORTRAN_WRAPPER(claqsb)
- extern void claqsb(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *s,
- float *scond,
- float *amax,
- char *equed
- );
- /* Source: claqsp.f */
- #define claqsp FORTRAN_WRAPPER(claqsp)
- extern void claqsp(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *s,
- float *scond,
- float *amax,
- char *equed
- );
- /* Source: claqsy.f */
- #define claqsy FORTRAN_WRAPPER(claqsy)
- extern void claqsy(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- char *equed
- );
- /* Source: clar1v.f */
- #define clar1v FORTRAN_WRAPPER(clar1v)
- extern void clar1v(
- ptrdiff_t *n,
- ptrdiff_t *b1,
- ptrdiff_t *bn,
- float *lambda,
- float *d,
- float *l,
- float *ld,
- float *lld,
- float *pivmin,
- float *gaptol,
- float *z,
- ptrdiff_t *wantnc,
- ptrdiff_t *negcnt,
- float *ztz,
- float *mingma,
- ptrdiff_t *r,
- ptrdiff_t *isuppz,
- float *nrminv,
- float *resid,
- float *rqcorr,
- float *work
- );
- /* Source: clar2v.f */
- #define clar2v FORTRAN_WRAPPER(clar2v)
- extern void clar2v(
- ptrdiff_t *n,
- float *x,
- float *y,
- float *z,
- ptrdiff_t *incx,
- float *c,
- float *s,
- ptrdiff_t *incc
- );
- /* Source: clarcm.f */
- #define clarcm FORTRAN_WRAPPER(clarcm)
- extern void clarcm(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- ptrdiff_t *ldc,
- float *rwork
- );
- /* Source: clarf.f */
- #define clarf FORTRAN_WRAPPER(clarf)
- extern void clarf(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *v,
- ptrdiff_t *incv,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work
- );
- /* Source: clarfb.f */
- #define clarfb FORTRAN_WRAPPER(clarfb)
- extern void clarfb(
- char *side,
- char *trans,
- char *direct,
- char *storev,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *v,
- ptrdiff_t *ldv,
- float *t,
- ptrdiff_t *ldt,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *ldwork
- );
- /* Source: clarfg.f */
- #define clarfg FORTRAN_WRAPPER(clarfg)
- extern void clarfg(
- ptrdiff_t *n,
- float *alpha,
- float *x,
- ptrdiff_t *incx,
- float *tau
- );
- /* Source: clarfp.f */
- #define clarfp FORTRAN_WRAPPER(clarfp)
- extern void clarfp(
- ptrdiff_t *n,
- float *alpha,
- float *x,
- ptrdiff_t *incx,
- float *tau
- );
- /* Source: clarft.f */
- #define clarft FORTRAN_WRAPPER(clarft)
- extern void clarft(
- char *direct,
- char *storev,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *v,
- ptrdiff_t *ldv,
- float *tau,
- float *t,
- ptrdiff_t *ldt
- );
- /* Source: clarfx.f */
- #define clarfx FORTRAN_WRAPPER(clarfx)
- extern void clarfx(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *v,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work
- );
- /* Source: clargv.f */
- #define clargv FORTRAN_WRAPPER(clargv)
- extern void clargv(
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *incx,
- float *y,
- ptrdiff_t *incy,
- float *c,
- ptrdiff_t *incc
- );
- /* Source: clarnv.f */
- #define clarnv FORTRAN_WRAPPER(clarnv)
- extern void clarnv(
- ptrdiff_t *idist,
- ptrdiff_t *iseed,
- ptrdiff_t *n,
- float *x
- );
- /* Source: clarrv.f */
- #define clarrv FORTRAN_WRAPPER(clarrv)
- extern void clarrv(
- ptrdiff_t *n,
- float *vl,
- float *vu,
- float *d,
- float *l,
- float *pivmin,
- ptrdiff_t *isplit,
- ptrdiff_t *m,
- ptrdiff_t *dol,
- ptrdiff_t *dou,
- float *minrgp,
- float *rtol1,
- float *rtol2,
- float *w,
- float *werr,
- float *wgap,
- ptrdiff_t *iblock,
- ptrdiff_t *indexw,
- float *gers,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: clartg.f */
- #define clartg FORTRAN_WRAPPER(clartg)
- extern void clartg(
- float *f,
- float *g,
- float *cs,
- float *sn,
- float *r
- );
- /* Source: clartv.f */
- #define clartv FORTRAN_WRAPPER(clartv)
- extern void clartv(
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *incx,
- float *y,
- ptrdiff_t *incy,
- float *c,
- float *s,
- ptrdiff_t *incc
- );
- /* Source: clarz.f */
- #define clarz FORTRAN_WRAPPER(clarz)
- extern void clarz(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *l,
- float *v,
- ptrdiff_t *incv,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work
- );
- /* Source: clarzb.f */
- #define clarzb FORTRAN_WRAPPER(clarzb)
- extern void clarzb(
- char *side,
- char *trans,
- char *direct,
- char *storev,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *v,
- ptrdiff_t *ldv,
- float *t,
- ptrdiff_t *ldt,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *ldwork
- );
- /* Source: clarzt.f */
- #define clarzt FORTRAN_WRAPPER(clarzt)
- extern void clarzt(
- char *direct,
- char *storev,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *v,
- ptrdiff_t *ldv,
- float *tau,
- float *t,
- ptrdiff_t *ldt
- );
- /* Source: clascl.f */
- #define clascl FORTRAN_WRAPPER(clascl)
- extern void clascl(
- char *type,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *cfrom,
- float *cto,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: claset.f */
- #define claset FORTRAN_WRAPPER(claset)
- extern void claset(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *alpha,
- float *beta,
- float *a,
- ptrdiff_t *lda
- );
- /* Source: clasr.f */
- #define clasr FORTRAN_WRAPPER(clasr)
- extern void clasr(
- char *side,
- char *pivot,
- char *direct,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *c,
- float *s,
- float *a,
- ptrdiff_t *lda
- );
- /* Source: classq.f */
- #define classq FORTRAN_WRAPPER(classq)
- extern void classq(
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *incx,
- float *scale,
- float *sumsq
- );
- /* Source: claswp.f */
- #define claswp FORTRAN_WRAPPER(claswp)
- extern void claswp(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *k1,
- ptrdiff_t *k2,
- ptrdiff_t *ipiv,
- ptrdiff_t *incx
- );
- /* Source: clasyf.f */
- #define clasyf FORTRAN_WRAPPER(clasyf)
- extern void clasyf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *w,
- ptrdiff_t *ldw,
- ptrdiff_t *info
- );
- /* Source: clatbs.f */
- #define clatbs FORTRAN_WRAPPER(clatbs)
- extern void clatbs(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *x,
- float *scale,
- float *cnorm,
- ptrdiff_t *info
- );
- /* Source: clatdf.f */
- #define clatdf FORTRAN_WRAPPER(clatdf)
- extern void clatdf(
- ptrdiff_t *ijob,
- ptrdiff_t *n,
- float *z,
- ptrdiff_t *ldz,
- float *rhs,
- float *rdsum,
- float *rdscal,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv
- );
- /* Source: clatps.f */
- #define clatps FORTRAN_WRAPPER(clatps)
- extern void clatps(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- float *ap,
- float *x,
- float *scale,
- float *cnorm,
- ptrdiff_t *info
- );
- /* Source: clatrd.f */
- #define clatrd FORTRAN_WRAPPER(clatrd)
- extern void clatrd(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- float *a,
- ptrdiff_t *lda,
- float *e,
- float *tau,
- float *w,
- ptrdiff_t *ldw
- );
- /* Source: clatrs.f */
- #define clatrs FORTRAN_WRAPPER(clatrs)
- extern void clatrs(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *x,
- float *scale,
- float *cnorm,
- ptrdiff_t *info
- );
- /* Source: clatrz.f */
- #define clatrz FORTRAN_WRAPPER(clatrz)
- extern void clatrz(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work
- );
- /* Source: clatzm.f */
- #define clatzm FORTRAN_WRAPPER(clatzm)
- extern void clatzm(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *v,
- ptrdiff_t *incv,
- float *tau,
- float *c1,
- float *c2,
- ptrdiff_t *ldc,
- float *work
- );
- /* Source: clauu2.f */
- #define clauu2 FORTRAN_WRAPPER(clauu2)
- extern void clauu2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: clauum.f */
- #define clauum FORTRAN_WRAPPER(clauum)
- extern void clauum(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: cpbcon.f */
- #define cpbcon FORTRAN_WRAPPER(cpbcon)
- extern void cpbcon(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *anorm,
- float *rcond,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cpbequ.f */
- #define cpbequ FORTRAN_WRAPPER(cpbequ)
- extern void cpbequ(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *s,
- float *scond,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: cpbrfs.f */
- #define cpbrfs FORTRAN_WRAPPER(cpbrfs)
- extern void cpbrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *afb,
- ptrdiff_t *ldafb,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cpbstf.f */
- #define cpbstf FORTRAN_WRAPPER(cpbstf)
- extern void cpbstf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: cpbsv.f */
- #define cpbsv FORTRAN_WRAPPER(cpbsv)
- extern void cpbsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cpbsvx.f */
- #define cpbsvx FORTRAN_WRAPPER(cpbsvx)
- extern void cpbsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *afb,
- ptrdiff_t *ldafb,
- char *equed,
- float *s,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cpbtf2.f */
- #define cpbtf2 FORTRAN_WRAPPER(cpbtf2)
- extern void cpbtf2(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: cpbtrf.f */
- #define cpbtrf FORTRAN_WRAPPER(cpbtrf)
- extern void cpbtrf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: cpbtrs.f */
- #define cpbtrs FORTRAN_WRAPPER(cpbtrs)
- extern void cpbtrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cpftrf.f */
- #define cpftrf FORTRAN_WRAPPER(cpftrf)
- extern void cpftrf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *info
- );
- /* Source: cpftri.f */
- #define cpftri FORTRAN_WRAPPER(cpftri)
- extern void cpftri(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *info
- );
- /* Source: cpftrs.f */
- #define cpftrs FORTRAN_WRAPPER(cpftrs)
- extern void cpftrs(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cpocon.f */
- #define cpocon FORTRAN_WRAPPER(cpocon)
- extern void cpocon(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *anorm,
- float *rcond,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cpoequ.f */
- #define cpoequ FORTRAN_WRAPPER(cpoequ)
- extern void cpoequ(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: cpoequb.f */
- #define cpoequb FORTRAN_WRAPPER(cpoequb)
- extern void cpoequb(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: cporfs.f */
- #define cporfs FORTRAN_WRAPPER(cporfs)
- extern void cporfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cposv.f */
- #define cposv FORTRAN_WRAPPER(cposv)
- extern void cposv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cposvx.f */
- #define cposvx FORTRAN_WRAPPER(cposvx)
- extern void cposvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- char *equed,
- float *s,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cpotf2.f */
- #define cpotf2 FORTRAN_WRAPPER(cpotf2)
- extern void cpotf2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: cpotrf.f */
- #define cpotrf FORTRAN_WRAPPER(cpotrf)
- extern void cpotrf(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: cpotri.f */
- #define cpotri FORTRAN_WRAPPER(cpotri)
- extern void cpotri(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: cpotrs.f */
- #define cpotrs FORTRAN_WRAPPER(cpotrs)
- extern void cpotrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cppcon.f */
- #define cppcon FORTRAN_WRAPPER(cppcon)
- extern void cppcon(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *anorm,
- float *rcond,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cppequ.f */
- #define cppequ FORTRAN_WRAPPER(cppequ)
- extern void cppequ(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *s,
- float *scond,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: cpprfs.f */
- #define cpprfs FORTRAN_WRAPPER(cpprfs)
- extern void cpprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cppsv.f */
- #define cppsv FORTRAN_WRAPPER(cppsv)
- extern void cppsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cppsvx.f */
- #define cppsvx FORTRAN_WRAPPER(cppsvx)
- extern void cppsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- char *equed,
- float *s,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cpptrf.f */
- #define cpptrf FORTRAN_WRAPPER(cpptrf)
- extern void cpptrf(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: cpptri.f */
- #define cpptri FORTRAN_WRAPPER(cpptri)
- extern void cpptri(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: cpptrs.f */
- #define cpptrs FORTRAN_WRAPPER(cpptrs)
- extern void cpptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cpstf2.f */
- #define cpstf2 FORTRAN_WRAPPER(cpstf2)
- extern void cpstf2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *piv,
- ptrdiff_t *rank,
- float *tol,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cpstrf.f */
- #define cpstrf FORTRAN_WRAPPER(cpstrf)
- extern void cpstrf(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *piv,
- ptrdiff_t *rank,
- float *tol,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cptcon.f */
- #define cptcon FORTRAN_WRAPPER(cptcon)
- extern void cptcon(
- ptrdiff_t *n,
- float *d,
- float *e,
- float *anorm,
- float *rcond,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cpteqr.f */
- #define cpteqr FORTRAN_WRAPPER(cpteqr)
- extern void cpteqr(
- char *compz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cptrfs.f */
- #define cptrfs FORTRAN_WRAPPER(cptrfs)
- extern void cptrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *df,
- float *ef,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cptsv.f */
- #define cptsv FORTRAN_WRAPPER(cptsv)
- extern void cptsv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cptsvx.f */
- #define cptsvx FORTRAN_WRAPPER(cptsvx)
- extern void cptsvx(
- char *fact,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *df,
- float *ef,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cpttrf.f */
- #define cpttrf FORTRAN_WRAPPER(cpttrf)
- extern void cpttrf(
- ptrdiff_t *n,
- float *d,
- float *e,
- ptrdiff_t *info
- );
- /* Source: cpttrs.f */
- #define cpttrs FORTRAN_WRAPPER(cpttrs)
- extern void cpttrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cptts2.f */
- #define cptts2 FORTRAN_WRAPPER(cptts2)
- extern void cptts2(
- ptrdiff_t *iuplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: crot.f */
- #define crot FORTRAN_WRAPPER(crot)
- extern void crot(
- ptrdiff_t *n,
- float *cx,
- ptrdiff_t *incx,
- float *cy,
- ptrdiff_t *incy,
- float *c,
- float *s
- );
- /* Source: cspcon.f */
- #define cspcon FORTRAN_WRAPPER(cspcon)
- extern void cspcon(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cspmv.f */
- #define cspmv FORTRAN_WRAPPER(cspmv)
- extern void cspmv(
- char *uplo,
- ptrdiff_t *n,
- float *alpha,
- float *ap,
- float *x,
- ptrdiff_t *incx,
- float *beta,
- float *y,
- ptrdiff_t *incy
- );
- /* Source: cspr.f */
- #define cspr FORTRAN_WRAPPER(cspr)
- extern void cspr(
- char *uplo,
- ptrdiff_t *n,
- float *alpha,
- float *x,
- ptrdiff_t *incx,
- float *ap
- );
- /* Source: csprfs.f */
- #define csprfs FORTRAN_WRAPPER(csprfs)
- extern void csprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: cspsv.f */
- #define cspsv FORTRAN_WRAPPER(cspsv)
- extern void cspsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: cspsvx.f */
- #define cspsvx FORTRAN_WRAPPER(cspsvx)
- extern void cspsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: csptrf.f */
- #define csptrf FORTRAN_WRAPPER(csptrf)
- extern void csptrf(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: csptri.f */
- #define csptri FORTRAN_WRAPPER(csptri)
- extern void csptri(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *info
- );
- /* Source: csptrs.f */
- #define csptrs FORTRAN_WRAPPER(csptrs)
- extern void csptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: csrscl.f */
- #define csrscl FORTRAN_WRAPPER(csrscl)
- extern void csrscl(
- ptrdiff_t *n,
- float *sa,
- float *sx,
- ptrdiff_t *incx
- );
- /* Source: cstedc.f */
- #define cstedc FORTRAN_WRAPPER(cstedc)
- extern void cstedc(
- char *compz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: cstegr.f */
- #define cstegr FORTRAN_WRAPPER(cstegr)
- extern void cstegr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: cstein.f */
- #define cstein FORTRAN_WRAPPER(cstein)
- extern void cstein(
- ptrdiff_t *n,
- float *d,
- float *e,
- ptrdiff_t *m,
- float *w,
- ptrdiff_t *iblock,
- ptrdiff_t *isplit,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: cstemr.f */
- #define cstemr FORTRAN_WRAPPER(cstemr)
- extern void cstemr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *nzc,
- ptrdiff_t *isuppz,
- ptrdiff_t *tryrac,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: csteqr.f */
- #define csteqr FORTRAN_WRAPPER(csteqr)
- extern void csteqr(
- char *compz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *info
- );
- /* Source: csycon.f */
- #define csycon FORTRAN_WRAPPER(csycon)
- extern void csycon(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *info
- );
- /* Source: csyequb.f */
- #define csyequb FORTRAN_WRAPPER(csyequb)
- extern void csyequb(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- float *work,
- ptrdiff_t *info
- );
- /* Source: csymv.f */
- #define csymv FORTRAN_WRAPPER(csymv)
- extern void csymv(
- char *uplo,
- ptrdiff_t *n,
- float *alpha,
- float *a,
- ptrdiff_t *lda,
- float *x,
- ptrdiff_t *incx,
- float *beta,
- float *y,
- ptrdiff_t *incy
- );
- /* Source: csyr.f */
- #define csyr FORTRAN_WRAPPER(csyr)
- extern void csyr(
- char *uplo,
- ptrdiff_t *n,
- float *alpha,
- float *x,
- ptrdiff_t *incx,
- float *a,
- ptrdiff_t *lda
- );
- /* Source: csyrfs.f */
- #define csyrfs FORTRAN_WRAPPER(csyrfs)
- extern void csyrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: csysv.f */
- #define csysv FORTRAN_WRAPPER(csysv)
- extern void csysv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: csysvx.f */
- #define csysvx FORTRAN_WRAPPER(csysvx)
- extern void csysvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *lwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: csytf2.f */
- #define csytf2 FORTRAN_WRAPPER(csytf2)
- extern void csytf2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: csytrf.f */
- #define csytrf FORTRAN_WRAPPER(csytrf)
- extern void csytrf(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: csytri.f */
- #define csytri FORTRAN_WRAPPER(csytri)
- extern void csytri(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *info
- );
- /* Source: csytrs.f */
- #define csytrs FORTRAN_WRAPPER(csytrs)
- extern void csytrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ctbcon.f */
- #define ctbcon FORTRAN_WRAPPER(ctbcon)
- extern void ctbcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *rcond,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: ctbrfs.f */
- #define ctbrfs FORTRAN_WRAPPER(ctbrfs)
- extern void ctbrfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: ctbtrs.f */
- #define ctbtrs FORTRAN_WRAPPER(ctbtrs)
- extern void ctbtrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ctfsm.f */
- #define ctfsm FORTRAN_WRAPPER(ctfsm)
- extern void ctfsm(
- char *transr,
- char *side,
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *alpha,
- float *a,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: ctftri.f */
- #define ctftri FORTRAN_WRAPPER(ctftri)
- extern void ctftri(
- char *transr,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *info
- );
- /* Source: ctfttp.f */
- #define ctfttp FORTRAN_WRAPPER(ctfttp)
- extern void ctfttp(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *arf,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: ctfttr.f */
- #define ctfttr FORTRAN_WRAPPER(ctfttr)
- extern void ctfttr(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *arf,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: ctgevc.f */
- #define ctgevc FORTRAN_WRAPPER(ctgevc)
- extern void ctgevc(
- char *side,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *s,
- ptrdiff_t *lds,
- float *p,
- ptrdiff_t *ldp,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: ctgex2.f */
- #define ctgex2 FORTRAN_WRAPPER(ctgex2)
- extern void ctgex2(
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *j1_,
- ptrdiff_t *info
- );
- /* Source: ctgexc.f */
- #define ctgexc FORTRAN_WRAPPER(ctgexc)
- extern void ctgexc(
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ifst,
- ptrdiff_t *ilst,
- ptrdiff_t *info
- );
- /* Source: ctgsen.f */
- #define ctgsen FORTRAN_WRAPPER(ctgsen)
- extern void ctgsen(
- ptrdiff_t *ijob,
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alpha,
- float *beta,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *m,
- float *pl,
- float *pr,
- float *dif,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: ctgsja.f */
- #define ctgsja FORTRAN_WRAPPER(ctgsja)
- extern void ctgsja(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *tola,
- float *tolb,
- float *alpha,
- float *beta,
- float *u,
- ptrdiff_t *ldu,
- float *v,
- ptrdiff_t *ldv,
- float *q,
- ptrdiff_t *ldq,
- float *work,
- ptrdiff_t *ncycle,
- ptrdiff_t *info
- );
- /* Source: ctgsna.f */
- #define ctgsna FORTRAN_WRAPPER(ctgsna)
- extern void ctgsna(
- char *job,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *s,
- float *dif,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: ctgsy2.f */
- #define ctgsy2 FORTRAN_WRAPPER(ctgsy2)
- extern void ctgsy2(
- char *trans,
- ptrdiff_t *ijob,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- ptrdiff_t *ldc,
- float *d,
- ptrdiff_t *ldd,
- float *e,
- ptrdiff_t *lde,
- float *f,
- ptrdiff_t *ldf,
- float *scale,
- float *rdsum,
- float *rdscal,
- ptrdiff_t *info
- );
- /* Source: ctgsyl.f */
- #define ctgsyl FORTRAN_WRAPPER(ctgsyl)
- extern void ctgsyl(
- char *trans,
- ptrdiff_t *ijob,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- ptrdiff_t *ldc,
- float *d,
- ptrdiff_t *ldd,
- float *e,
- ptrdiff_t *lde,
- float *f,
- ptrdiff_t *ldf,
- float *scale,
- float *dif,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: ctpcon.f */
- #define ctpcon FORTRAN_WRAPPER(ctpcon)
- extern void ctpcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *ap,
- float *rcond,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: ctprfs.f */
- #define ctprfs FORTRAN_WRAPPER(ctprfs)
- extern void ctprfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: ctptri.f */
- #define ctptri FORTRAN_WRAPPER(ctptri)
- extern void ctptri(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: ctptrs.f */
- #define ctptrs FORTRAN_WRAPPER(ctptrs)
- extern void ctptrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ctpttf.f */
- #define ctpttf FORTRAN_WRAPPER(ctpttf)
- extern void ctpttf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *arf,
- ptrdiff_t *info
- );
- /* Source: ctpttr.f */
- #define ctpttr FORTRAN_WRAPPER(ctpttr)
- extern void ctpttr(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: ctrcon.f */
- #define ctrcon FORTRAN_WRAPPER(ctrcon)
- extern void ctrcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *rcond,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: ctrevc.f */
- #define ctrevc FORTRAN_WRAPPER(ctrevc)
- extern void ctrevc(
- char *side,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: ctrexc.f */
- #define ctrexc FORTRAN_WRAPPER(ctrexc)
- extern void ctrexc(
- char *compq,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *q,
- ptrdiff_t *ldq,
- ptrdiff_t *ifst,
- ptrdiff_t *ilst,
- ptrdiff_t *info
- );
- /* Source: ctrrfs.f */
- #define ctrrfs FORTRAN_WRAPPER(ctrrfs)
- extern void ctrrfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: ctrsen.f */
- #define ctrsen FORTRAN_WRAPPER(ctrsen)
- extern void ctrsen(
- char *job,
- char *compq,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *q,
- ptrdiff_t *ldq,
- float *w,
- ptrdiff_t *m,
- float *s,
- float *sep,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: ctrsna.f */
- #define ctrsna FORTRAN_WRAPPER(ctrsna)
- extern void ctrsna(
- char *job,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *s,
- float *sep,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- ptrdiff_t *ldwork,
- float *rwork,
- ptrdiff_t *info
- );
- /* Source: ctrsyl.f */
- #define ctrsyl FORTRAN_WRAPPER(ctrsyl)
- extern void ctrsyl(
- char *trana,
- char *tranb,
- ptrdiff_t *isgn,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- ptrdiff_t *ldc,
- float *scale,
- ptrdiff_t *info
- );
- /* Source: ctrti2.f */
- #define ctrti2 FORTRAN_WRAPPER(ctrti2)
- extern void ctrti2(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: ctrtri.f */
- #define ctrtri FORTRAN_WRAPPER(ctrtri)
- extern void ctrtri(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: ctrtrs.f */
- #define ctrtrs FORTRAN_WRAPPER(ctrtrs)
- extern void ctrtrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ctrttf.f */
- #define ctrttf FORTRAN_WRAPPER(ctrttf)
- extern void ctrttf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *arf,
- ptrdiff_t *info
- );
- /* Source: ctrttp.f */
- #define ctrttp FORTRAN_WRAPPER(ctrttp)
- extern void ctrttp(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: ctzrqf.f */
- #define ctzrqf FORTRAN_WRAPPER(ctzrqf)
- extern void ctzrqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- ptrdiff_t *info
- );
- /* Source: ctzrzf.f */
- #define ctzrzf FORTRAN_WRAPPER(ctzrzf)
- extern void ctzrzf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cung2l.f */
- #define cung2l FORTRAN_WRAPPER(cung2l)
- extern void cung2l(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cung2r.f */
- #define cung2r FORTRAN_WRAPPER(cung2r)
- extern void cung2r(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cungbr.f */
- #define cungbr FORTRAN_WRAPPER(cungbr)
- extern void cungbr(
- char *vect,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cunghr.f */
- #define cunghr FORTRAN_WRAPPER(cunghr)
- extern void cunghr(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cungl2.f */
- #define cungl2 FORTRAN_WRAPPER(cungl2)
- extern void cungl2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cunglq.f */
- #define cunglq FORTRAN_WRAPPER(cunglq)
- extern void cunglq(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cungql.f */
- #define cungql FORTRAN_WRAPPER(cungql)
- extern void cungql(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cungqr.f */
- #define cungqr FORTRAN_WRAPPER(cungqr)
- extern void cungqr(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cungr2.f */
- #define cungr2 FORTRAN_WRAPPER(cungr2)
- extern void cungr2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cungrq.f */
- #define cungrq FORTRAN_WRAPPER(cungrq)
- extern void cungrq(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cungtr.f */
- #define cungtr FORTRAN_WRAPPER(cungtr)
- extern void cungtr(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cunm2l.f */
- #define cunm2l FORTRAN_WRAPPER(cunm2l)
- extern void cunm2l(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cunm2r.f */
- #define cunm2r FORTRAN_WRAPPER(cunm2r)
- extern void cunm2r(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cunmbr.f */
- #define cunmbr FORTRAN_WRAPPER(cunmbr)
- extern void cunmbr(
- char *vect,
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cunmhr.f */
- #define cunmhr FORTRAN_WRAPPER(cunmhr)
- extern void cunmhr(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cunml2.f */
- #define cunml2 FORTRAN_WRAPPER(cunml2)
- extern void cunml2(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cunmlq.f */
- #define cunmlq FORTRAN_WRAPPER(cunmlq)
- extern void cunmlq(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cunmql.f */
- #define cunmql FORTRAN_WRAPPER(cunmql)
- extern void cunmql(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cunmqr.f */
- #define cunmqr FORTRAN_WRAPPER(cunmqr)
- extern void cunmqr(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cunmr2.f */
- #define cunmr2 FORTRAN_WRAPPER(cunmr2)
- extern void cunmr2(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cunmr3.f */
- #define cunmr3 FORTRAN_WRAPPER(cunmr3)
- extern void cunmr3(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cunmrq.f */
- #define cunmrq FORTRAN_WRAPPER(cunmrq)
- extern void cunmrq(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cunmrz.f */
- #define cunmrz FORTRAN_WRAPPER(cunmrz)
- extern void cunmrz(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cunmtr.f */
- #define cunmtr FORTRAN_WRAPPER(cunmtr)
- extern void cunmtr(
- char *side,
- char *uplo,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: cupgtr.f */
- #define cupgtr FORTRAN_WRAPPER(cupgtr)
- extern void cupgtr(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *tau,
- float *q,
- ptrdiff_t *ldq,
- float *work,
- ptrdiff_t *info
- );
- /* Source: cupmtr.f */
- #define cupmtr FORTRAN_WRAPPER(cupmtr)
- extern void cupmtr(
- char *side,
- char *uplo,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *ap,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: dbdsdc.f */
- #define dbdsdc FORTRAN_WRAPPER(dbdsdc)
- extern void dbdsdc(
- char *uplo,
- char *compq,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *ldvt,
- double *q,
- ptrdiff_t *iq,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dbdsqr.f */
- #define dbdsqr FORTRAN_WRAPPER(dbdsqr)
- extern void dbdsqr(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ncvt,
- ptrdiff_t *nru,
- ptrdiff_t *ncc,
- double *d,
- double *e,
- double *vt,
- ptrdiff_t *ldvt,
- double *u,
- ptrdiff_t *ldu,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: ddisna.f */
- #define ddisna FORTRAN_WRAPPER(ddisna)
- extern void ddisna(
- char *job,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *d,
- double *sep,
- ptrdiff_t *info
- );
- /* Source: dgbbrd.f */
- #define dgbbrd FORTRAN_WRAPPER(dgbbrd)
- extern void dgbbrd(
- char *vect,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *ncc,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *d,
- double *e,
- double *q,
- ptrdiff_t *ldq,
- double *pt,
- ptrdiff_t *ldpt,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgbcon.f */
- #define dgbcon FORTRAN_WRAPPER(dgbcon)
- extern void dgbcon(
- char *norm,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgbequ.f */
- #define dgbequ FORTRAN_WRAPPER(dgbequ)
- extern void dgbequ(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: dgbequb.f */
- #define dgbequb FORTRAN_WRAPPER(dgbequb)
- extern void dgbequb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: dgbrfs.f */
- #define dgbrfs FORTRAN_WRAPPER(dgbrfs)
- extern void dgbrfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *afb,
- ptrdiff_t *ldafb,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgbsv.f */
- #define dgbsv FORTRAN_WRAPPER(dgbsv)
- extern void dgbsv(
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dgbsvx.f */
- #define dgbsvx FORTRAN_WRAPPER(dgbsvx)
- extern void dgbsvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *afb,
- ptrdiff_t *ldafb,
- ptrdiff_t *ipiv,
- char *equed,
- double *r,
- double *c,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgbtf2.f */
- #define dgbtf2 FORTRAN_WRAPPER(dgbtf2)
- extern void dgbtf2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: dgbtrf.f */
- #define dgbtrf FORTRAN_WRAPPER(dgbtrf)
- extern void dgbtrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: dgbtrs.f */
- #define dgbtrs FORTRAN_WRAPPER(dgbtrs)
- extern void dgbtrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dgebak.f */
- #define dgebak FORTRAN_WRAPPER(dgebak)
- extern void dgebak(
- char *job,
- char *side,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *scale,
- ptrdiff_t *m,
- double *v,
- ptrdiff_t *ldv,
- ptrdiff_t *info
- );
- /* Source: dgebal.f */
- #define dgebal FORTRAN_WRAPPER(dgebal)
- extern void dgebal(
- char *job,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *scale,
- ptrdiff_t *info
- );
- /* Source: dgebd2.f */
- #define dgebd2 FORTRAN_WRAPPER(dgebd2)
- extern void dgebd2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tauq,
- double *taup,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgebrd.f */
- #define dgebrd FORTRAN_WRAPPER(dgebrd)
- extern void dgebrd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tauq,
- double *taup,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgecon.f */
- #define dgecon FORTRAN_WRAPPER(dgecon)
- extern void dgecon(
- char *norm,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgeequ.f */
- #define dgeequ FORTRAN_WRAPPER(dgeequ)
- extern void dgeequ(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: dgeequb.f */
- #define dgeequb FORTRAN_WRAPPER(dgeequb)
- extern void dgeequb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: dgees.f */
- #define dgees FORTRAN_WRAPPER(dgees)
- extern void dgees(
- char *jobvs,
- char *sort,
- ptrdiff_t (*select)(),
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *sdim,
- double *wr,
- double *wi,
- double *vs,
- ptrdiff_t *ldvs,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: dgeesx.f */
- #define dgeesx FORTRAN_WRAPPER(dgeesx)
- extern void dgeesx(
- char *jobvs,
- char *sort,
- ptrdiff_t (*select)(),
- char *sense,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *sdim,
- double *wr,
- double *wi,
- double *vs,
- ptrdiff_t *ldvs,
- double *rconde,
- double *rcondv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: dgeev.f */
- #define dgeev FORTRAN_WRAPPER(dgeev)
- extern void dgeev(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *wr,
- double *wi,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgeevx.f */
- #define dgeevx FORTRAN_WRAPPER(dgeevx)
- extern void dgeevx(
- char *balanc,
- char *jobvl,
- char *jobvr,
- char *sense,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *wr,
- double *wi,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *scale,
- double *abnrm,
- double *rconde,
- double *rcondv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgegs.f */
- #define dgegs FORTRAN_WRAPPER(dgegs)
- extern void dgegs(
- char *jobvsl,
- char *jobvsr,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alphar,
- double *alphai,
- double *beta,
- double *vsl,
- ptrdiff_t *ldvsl,
- double *vsr,
- ptrdiff_t *ldvsr,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgegv.f */
- #define dgegv FORTRAN_WRAPPER(dgegv)
- extern void dgegv(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alphar,
- double *alphai,
- double *beta,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgehd2.f */
- #define dgehd2 FORTRAN_WRAPPER(dgehd2)
- extern void dgehd2(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgehrd.f */
- #define dgehrd FORTRAN_WRAPPER(dgehrd)
- extern void dgehrd(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgejsv.f */
- #define dgejsv FORTRAN_WRAPPER(dgejsv)
- extern void dgejsv(
- char *joba,
- char *jobu,
- char *jobv,
- char *jobr,
- char *jobt,
- char *jobp,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *sva,
- double *u,
- ptrdiff_t *ldu,
- double *v,
- ptrdiff_t *ldv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgelq2.f */
- #define dgelq2 FORTRAN_WRAPPER(dgelq2)
- extern void dgelq2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgelqf.f */
- #define dgelqf FORTRAN_WRAPPER(dgelqf)
- extern void dgelqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgels.f */
- #define dgels FORTRAN_WRAPPER(dgels)
- extern void dgels(
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgelsd.f */
- #define dgelsd FORTRAN_WRAPPER(dgelsd)
- extern void dgelsd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *s,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgelss.f */
- #define dgelss FORTRAN_WRAPPER(dgelss)
- extern void dgelss(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *s,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgelsx.f */
- #define dgelsx FORTRAN_WRAPPER(dgelsx)
- extern void dgelsx(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *jpvt,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgelsy.f */
- #define dgelsy FORTRAN_WRAPPER(dgelsy)
- extern void dgelsy(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *jpvt,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgeql2.f */
- #define dgeql2 FORTRAN_WRAPPER(dgeql2)
- extern void dgeql2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgeqlf.f */
- #define dgeqlf FORTRAN_WRAPPER(dgeqlf)
- extern void dgeqlf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgeqp3.f */
- #define dgeqp3 FORTRAN_WRAPPER(dgeqp3)
- extern void dgeqp3(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgeqpf.f */
- #define dgeqpf FORTRAN_WRAPPER(dgeqpf)
- extern void dgeqpf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgeqr2.f */
- #define dgeqr2 FORTRAN_WRAPPER(dgeqr2)
- extern void dgeqr2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgeqrf.f */
- #define dgeqrf FORTRAN_WRAPPER(dgeqrf)
- extern void dgeqrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgerfs.f */
- #define dgerfs FORTRAN_WRAPPER(dgerfs)
- extern void dgerfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgerq2.f */
- #define dgerq2 FORTRAN_WRAPPER(dgerq2)
- extern void dgerq2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgerqf.f */
- #define dgerqf FORTRAN_WRAPPER(dgerqf)
- extern void dgerqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgesc2.f */
- #define dgesc2 FORTRAN_WRAPPER(dgesc2)
- extern void dgesc2(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *rhs,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv,
- double *scale
- );
- /* Source: dgesdd.f */
- #define dgesdd FORTRAN_WRAPPER(dgesdd)
- extern void dgesdd(
- char *jobz,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *ldvt,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgesv.f */
- #define dgesv FORTRAN_WRAPPER(dgesv)
- extern void dgesv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dgesvd.f */
- #define dgesvd FORTRAN_WRAPPER(dgesvd)
- extern void dgesvd(
- char *jobu,
- char *jobvt,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *ldvt,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgesvj.f */
- #define dgesvj FORTRAN_WRAPPER(dgesvj)
- extern void dgesvj(
- char *joba,
- char *jobu,
- char *jobv,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *sva,
- ptrdiff_t *mv,
- double *v,
- ptrdiff_t *ldv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgesvx.f */
- #define dgesvx FORTRAN_WRAPPER(dgesvx)
- extern void dgesvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- char *equed,
- double *r,
- double *c,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgetc2.f */
- #define dgetc2 FORTRAN_WRAPPER(dgetc2)
- extern void dgetc2(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv,
- ptrdiff_t *info
- );
- /* Source: dgetf2.f */
- #define dgetf2 FORTRAN_WRAPPER(dgetf2)
- extern void dgetf2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: dgetrf.f */
- #define dgetrf FORTRAN_WRAPPER(dgetrf)
- extern void dgetrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: dgetri.f */
- #define dgetri FORTRAN_WRAPPER(dgetri)
- extern void dgetri(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgetrs.f */
- #define dgetrs FORTRAN_WRAPPER(dgetrs)
- extern void dgetrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dggbak.f */
- #define dggbak FORTRAN_WRAPPER(dggbak)
- extern void dggbak(
- char *job,
- char *side,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *lscale,
- double *rscale,
- ptrdiff_t *m,
- double *v,
- ptrdiff_t *ldv,
- ptrdiff_t *info
- );
- /* Source: dggbal.f */
- #define dggbal FORTRAN_WRAPPER(dggbal)
- extern void dggbal(
- char *job,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *lscale,
- double *rscale,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgges.f */
- #define dgges FORTRAN_WRAPPER(dgges)
- extern void dgges(
- char *jobvsl,
- char *jobvsr,
- char *sort,
- ptrdiff_t (*selctg)(),
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *sdim,
- double *alphar,
- double *alphai,
- double *beta,
- double *vsl,
- ptrdiff_t *ldvsl,
- double *vsr,
- ptrdiff_t *ldvsr,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: dggesx.f */
- #define dggesx FORTRAN_WRAPPER(dggesx)
- extern void dggesx(
- char *jobvsl,
- char *jobvsr,
- char *sort,
- ptrdiff_t (*selctg)(),
- char *sense,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *sdim,
- double *alphar,
- double *alphai,
- double *beta,
- double *vsl,
- ptrdiff_t *ldvsl,
- double *vsr,
- ptrdiff_t *ldvsr,
- double *rconde,
- double *rcondv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: dggev.f */
- #define dggev FORTRAN_WRAPPER(dggev)
- extern void dggev(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alphar,
- double *alphai,
- double *beta,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dggevx.f */
- #define dggevx FORTRAN_WRAPPER(dggevx)
- extern void dggevx(
- char *balanc,
- char *jobvl,
- char *jobvr,
- char *sense,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alphar,
- double *alphai,
- double *beta,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *lscale,
- double *rscale,
- double *abnrm,
- double *bbnrm,
- double *rconde,
- double *rcondv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: dggglm.f */
- #define dggglm FORTRAN_WRAPPER(dggglm)
- extern void dggglm(
- ptrdiff_t *n,
- ptrdiff_t *m,
- ptrdiff_t *p,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *d,
- double *x,
- double *y,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgghrd.f */
- #define dgghrd FORTRAN_WRAPPER(dgghrd)
- extern void dgghrd(
- char *compq,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *info
- );
- /* Source: dgglse.f */
- #define dgglse FORTRAN_WRAPPER(dgglse)
- extern void dgglse(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *p,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- double *d,
- double *x,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dggqrf.f */
- #define dggqrf FORTRAN_WRAPPER(dggqrf)
- extern void dggqrf(
- ptrdiff_t *n,
- ptrdiff_t *m,
- ptrdiff_t *p,
- double *a,
- ptrdiff_t *lda,
- double *taua,
- double *b,
- ptrdiff_t *ldb,
- double *taub,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dggrqf.f */
- #define dggrqf FORTRAN_WRAPPER(dggrqf)
- extern void dggrqf(
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *taua,
- double *b,
- ptrdiff_t *ldb,
- double *taub,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dggsvd.f */
- #define dggsvd FORTRAN_WRAPPER(dggsvd)
- extern void dggsvd(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *p,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alpha,
- double *beta,
- double *u,
- ptrdiff_t *ldu,
- double *v,
- ptrdiff_t *ldv,
- double *q,
- ptrdiff_t *ldq,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dggsvp.f */
- #define dggsvp FORTRAN_WRAPPER(dggsvp)
- extern void dggsvp(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *tola,
- double *tolb,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *u,
- ptrdiff_t *ldu,
- double *v,
- ptrdiff_t *ldv,
- double *q,
- ptrdiff_t *ldq,
- ptrdiff_t *iwork,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dgsvj0.f */
- #define dgsvj0 FORTRAN_WRAPPER(dgsvj0)
- extern void dgsvj0(
- char *jobv,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *sva,
- ptrdiff_t *mv,
- double *v,
- ptrdiff_t *ldv,
- double *eps,
- double *sfmin,
- double *tol,
- ptrdiff_t *nsweep,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgsvj1.f */
- #define dgsvj1 FORTRAN_WRAPPER(dgsvj1)
- extern void dgsvj1(
- char *jobv,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *n1,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *sva,
- ptrdiff_t *mv,
- double *v,
- ptrdiff_t *ldv,
- double *eps,
- double *sfmin,
- double *tol,
- ptrdiff_t *nsweep,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dgtcon.f */
- #define dgtcon FORTRAN_WRAPPER(dgtcon)
- extern void dgtcon(
- char *norm,
- ptrdiff_t *n,
- double *dl,
- double *d,
- double *du,
- double *du2,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgtrfs.f */
- #define dgtrfs FORTRAN_WRAPPER(dgtrfs)
- extern void dgtrfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *dlf,
- double *df,
- double *duf,
- double *du2,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgtsv.f */
- #define dgtsv FORTRAN_WRAPPER(dgtsv)
- extern void dgtsv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dgtsvx.f */
- #define dgtsvx FORTRAN_WRAPPER(dgtsvx)
- extern void dgtsvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *dlf,
- double *df,
- double *duf,
- double *du2,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dgttrf.f */
- #define dgttrf FORTRAN_WRAPPER(dgttrf)
- extern void dgttrf(
- ptrdiff_t *n,
- double *dl,
- double *d,
- double *du,
- double *du2,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: dgttrs.f */
- #define dgttrs FORTRAN_WRAPPER(dgttrs)
- extern void dgttrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *du2,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dgtts2.f */
- #define dgtts2 FORTRAN_WRAPPER(dgtts2)
- extern void dgtts2(
- ptrdiff_t *itrans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *du2,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: dhgeqz.f */
- #define dhgeqz FORTRAN_WRAPPER(dhgeqz)
- extern void dhgeqz(
- char *job,
- char *compq,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *t,
- ptrdiff_t *ldt,
- double *alphar,
- double *alphai,
- double *beta,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dhsein.f */
- #define dhsein FORTRAN_WRAPPER(dhsein)
- extern void dhsein(
- char *side,
- char *eigsrc,
- char *initv,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *h,
- ptrdiff_t *ldh,
- double *wr,
- double *wi,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- ptrdiff_t *ifaill,
- ptrdiff_t *ifailr,
- ptrdiff_t *info
- );
- /* Source: dhseqr.f */
- #define dhseqr FORTRAN_WRAPPER(dhseqr)
- extern void dhseqr(
- char *job,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *wr,
- double *wi,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: disnan.f */
- #define disnan FORTRAN_WRAPPER(disnan)
- extern ptrdiff_t disnan(
- double *din
- );
- /* Source: dlabad.f */
- #define dlabad FORTRAN_WRAPPER(dlabad)
- extern void dlabad(
- double *small,
- double *large
- );
- /* Source: dlabrd.f */
- #define dlabrd FORTRAN_WRAPPER(dlabrd)
- extern void dlabrd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tauq,
- double *taup,
- double *x,
- ptrdiff_t *ldx,
- double *y,
- ptrdiff_t *ldy
- );
- /* Source: dlacn2.f */
- #define dlacn2 FORTRAN_WRAPPER(dlacn2)
- extern void dlacn2(
- ptrdiff_t *n,
- double *v,
- double *x,
- ptrdiff_t *isgn,
- double *est,
- ptrdiff_t *kase,
- ptrdiff_t *isave
- );
- /* Source: dlacon.f */
- #define dlacon FORTRAN_WRAPPER(dlacon)
- extern void dlacon(
- ptrdiff_t *n,
- double *v,
- double *x,
- ptrdiff_t *isgn,
- double *est,
- ptrdiff_t *kase
- );
- /* Source: dlacpy.f */
- #define dlacpy FORTRAN_WRAPPER(dlacpy)
- extern void dlacpy(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: dladiv.f */
- #define dladiv FORTRAN_WRAPPER(dladiv)
- extern void dladiv(
- double *a,
- double *b,
- double *c,
- double *d,
- double *p,
- double *q
- );
- /* Source: dlae2.f */
- #define dlae2 FORTRAN_WRAPPER(dlae2)
- extern void dlae2(
- double *a,
- double *b,
- double *c,
- double *rt1,
- double *rt2
- );
- /* Source: dlaebz.f */
- #define dlaebz FORTRAN_WRAPPER(dlaebz)
- extern void dlaebz(
- ptrdiff_t *ijob,
- ptrdiff_t *nitmax,
- ptrdiff_t *n,
- ptrdiff_t *mmax,
- ptrdiff_t *minp,
- ptrdiff_t *nbmin,
- double *abstol,
- double *reltol,
- double *pivmin,
- double *d,
- double *e,
- double *e2,
- ptrdiff_t *nval,
- double *ab,
- double *c,
- ptrdiff_t *mout,
- ptrdiff_t *nab,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlaed0.f */
- #define dlaed0 FORTRAN_WRAPPER(dlaed0)
- extern void dlaed0(
- ptrdiff_t *icompq,
- ptrdiff_t *qsiz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *q,
- ptrdiff_t *ldq,
- double *qstore,
- ptrdiff_t *ldqs,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlaed1.f */
- #define dlaed1 FORTRAN_WRAPPER(dlaed1)
- extern void dlaed1(
- ptrdiff_t *n,
- double *d,
- double *q,
- ptrdiff_t *ldq,
- ptrdiff_t *indxq,
- double *rho,
- ptrdiff_t *cutpnt,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlaed2.f */
- #define dlaed2 FORTRAN_WRAPPER(dlaed2)
- extern void dlaed2(
- ptrdiff_t *k,
- ptrdiff_t *n,
- ptrdiff_t *n1,
- double *d,
- double *q,
- ptrdiff_t *ldq,
- ptrdiff_t *indxq,
- double *rho,
- double *z,
- double *dlamda,
- double *w,
- double *q2,
- ptrdiff_t *indx,
- ptrdiff_t *indxc,
- ptrdiff_t *indxp,
- ptrdiff_t *coltyp,
- ptrdiff_t *info
- );
- /* Source: dlaed3.f */
- #define dlaed3 FORTRAN_WRAPPER(dlaed3)
- extern void dlaed3(
- ptrdiff_t *k,
- ptrdiff_t *n,
- ptrdiff_t *n1,
- double *d,
- double *q,
- ptrdiff_t *ldq,
- double *rho,
- double *dlamda,
- double *q2,
- ptrdiff_t *indx,
- ptrdiff_t *ctot,
- double *w,
- double *s,
- ptrdiff_t *info
- );
- /* Source: dlaed4.f */
- #define dlaed4 FORTRAN_WRAPPER(dlaed4)
- extern void dlaed4(
- ptrdiff_t *n,
- ptrdiff_t *i,
- double *d,
- double *z,
- double *delta,
- double *rho,
- double *dlam,
- ptrdiff_t *info
- );
- /* Source: dlaed5.f */
- #define dlaed5 FORTRAN_WRAPPER(dlaed5)
- extern void dlaed5(
- ptrdiff_t *i,
- double *d,
- double *z,
- double *delta,
- double *rho,
- double *dlam
- );
- /* Source: dlaed6.f */
- #define dlaed6 FORTRAN_WRAPPER(dlaed6)
- extern void dlaed6(
- ptrdiff_t *kniter,
- ptrdiff_t *orgati,
- double *rho,
- double *d,
- double *z,
- double *finit,
- double *tau,
- ptrdiff_t *info
- );
- /* Source: dlaed7.f */
- #define dlaed7 FORTRAN_WRAPPER(dlaed7)
- extern void dlaed7(
- ptrdiff_t *icompq,
- ptrdiff_t *n,
- ptrdiff_t *qsiz,
- ptrdiff_t *tlvls,
- ptrdiff_t *curlvl,
- ptrdiff_t *curpbm,
- double *d,
- double *q,
- ptrdiff_t *ldq,
- ptrdiff_t *indxq,
- double *rho,
- ptrdiff_t *cutpnt,
- double *qstore,
- ptrdiff_t *qptr,
- ptrdiff_t *prmptr,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- double *givnum,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlaed8.f */
- #define dlaed8 FORTRAN_WRAPPER(dlaed8)
- extern void dlaed8(
- ptrdiff_t *icompq,
- ptrdiff_t *k,
- ptrdiff_t *n,
- ptrdiff_t *qsiz,
- double *d,
- double *q,
- ptrdiff_t *ldq,
- ptrdiff_t *indxq,
- double *rho,
- ptrdiff_t *cutpnt,
- double *z,
- double *dlamda,
- double *q2,
- ptrdiff_t *ldq2,
- double *w,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- double *givnum,
- ptrdiff_t *indxp,
- ptrdiff_t *indx,
- ptrdiff_t *info
- );
- /* Source: dlaed9.f */
- #define dlaed9 FORTRAN_WRAPPER(dlaed9)
- extern void dlaed9(
- ptrdiff_t *k,
- ptrdiff_t *kstart,
- ptrdiff_t *kstop,
- ptrdiff_t *n,
- double *d,
- double *q,
- ptrdiff_t *ldq,
- double *rho,
- double *dlamda,
- double *w,
- double *s,
- ptrdiff_t *lds,
- ptrdiff_t *info
- );
- /* Source: dlaeda.f */
- #define dlaeda FORTRAN_WRAPPER(dlaeda)
- extern void dlaeda(
- ptrdiff_t *n,
- ptrdiff_t *tlvls,
- ptrdiff_t *curlvl,
- ptrdiff_t *curpbm,
- ptrdiff_t *prmptr,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- double *givnum,
- double *q,
- ptrdiff_t *qptr,
- double *z,
- double *ztemp,
- ptrdiff_t *info
- );
- /* Source: dlaein.f */
- #define dlaein FORTRAN_WRAPPER(dlaein)
- extern void dlaein(
- ptrdiff_t *rightv,
- ptrdiff_t *noinit,
- ptrdiff_t *n,
- double *h,
- ptrdiff_t *ldh,
- double *wr,
- double *wi,
- double *vr,
- double *vi,
- double *b,
- ptrdiff_t *ldb,
- double *work,
- double *eps3,
- double *smlnum,
- double *bignum,
- ptrdiff_t *info
- );
- /* Source: dlaev2.f */
- #define dlaev2 FORTRAN_WRAPPER(dlaev2)
- extern void dlaev2(
- double *a,
- double *b,
- double *c,
- double *rt1,
- double *rt2,
- double *cs1,
- double *sn1
- );
- /* Source: dlaexc.f */
- #define dlaexc FORTRAN_WRAPPER(dlaexc)
- extern void dlaexc(
- ptrdiff_t *wantq,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *q,
- ptrdiff_t *ldq,
- ptrdiff_t *j1_,
- ptrdiff_t *n1,
- ptrdiff_t *n2,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlag2.f */
- #define dlag2 FORTRAN_WRAPPER(dlag2)
- extern void dlag2(
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *safmin,
- double *scale1,
- double *scale2,
- double *wr1,
- double *wr2,
- double *wi
- );
- /* Source: dlag2s.f */
- #define dlag2s FORTRAN_WRAPPER(dlag2s)
- extern void dlag2s(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- float *sa,
- ptrdiff_t *ldsa,
- ptrdiff_t *info
- );
- /* Source: dlags2.f */
- #define dlags2 FORTRAN_WRAPPER(dlags2)
- extern void dlags2(
- ptrdiff_t *upper,
- double *a1,
- double *a2,
- double *a3,
- double *b1,
- double *b2,
- double *b3,
- double *csu,
- double *snu,
- double *csv,
- double *snv,
- double *csq,
- double *snq
- );
- /* Source: dlagtf.f */
- #define dlagtf FORTRAN_WRAPPER(dlagtf)
- extern void dlagtf(
- ptrdiff_t *n,
- double *a,
- double *lambda,
- double *b,
- double *c,
- double *tol,
- double *d,
- ptrdiff_t *in,
- ptrdiff_t *info
- );
- /* Source: dlagtm.f */
- #define dlagtm FORTRAN_WRAPPER(dlagtm)
- extern void dlagtm(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *alpha,
- double *dl,
- double *d,
- double *du,
- double *x,
- ptrdiff_t *ldx,
- double *beta,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: dlagts.f */
- #define dlagts FORTRAN_WRAPPER(dlagts)
- extern void dlagts(
- ptrdiff_t *job,
- ptrdiff_t *n,
- double *a,
- double *b,
- double *c,
- double *d,
- ptrdiff_t *in,
- double *y,
- double *tol,
- ptrdiff_t *info
- );
- /* Source: dlagv2.f */
- #define dlagv2 FORTRAN_WRAPPER(dlagv2)
- extern void dlagv2(
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alphar,
- double *alphai,
- double *beta,
- double *csl,
- double *snl,
- double *csr,
- double *snr
- );
- /* Source: dlahqr.f */
- #define dlahqr FORTRAN_WRAPPER(dlahqr)
- extern void dlahqr(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *wr,
- double *wi,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *info
- );
- /* Source: dlahr2.f */
- #define dlahr2 FORTRAN_WRAPPER(dlahr2)
- extern void dlahr2(
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *nb,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *t,
- ptrdiff_t *ldt,
- double *y,
- ptrdiff_t *ldy
- );
- /* Source: dlahrd.f */
- #define dlahrd FORTRAN_WRAPPER(dlahrd)
- extern void dlahrd(
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *nb,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *t,
- ptrdiff_t *ldt,
- double *y,
- ptrdiff_t *ldy
- );
- /* Source: dlaic1.f */
- #define dlaic1 FORTRAN_WRAPPER(dlaic1)
- extern void dlaic1(
- ptrdiff_t *job,
- ptrdiff_t *j,
- double *x,
- double *sest,
- double *w,
- double *gamma_,
- double *sestpr,
- double *s,
- double *c
- );
- /* Source: dlaisnan.f */
- #define dlaisnan FORTRAN_WRAPPER(dlaisnan)
- extern ptrdiff_t dlaisnan(
- double *din1,
- double *din2
- );
- /* Source: dlaln2.f */
- #define dlaln2 FORTRAN_WRAPPER(dlaln2)
- extern void dlaln2(
- ptrdiff_t *ltrans,
- ptrdiff_t *na,
- ptrdiff_t *nw,
- double *smin,
- double *ca,
- double *a,
- ptrdiff_t *lda,
- double *d1,
- double *d2,
- double *b,
- ptrdiff_t *ldb,
- double *wr,
- double *wi,
- double *x,
- ptrdiff_t *ldx,
- double *scale,
- double *xnorm,
- ptrdiff_t *info
- );
- /* Source: dlals0.f */
- #define dlals0 FORTRAN_WRAPPER(dlals0)
- extern void dlals0(
- ptrdiff_t *icompq,
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *nrhs,
- double *b,
- ptrdiff_t *ldb,
- double *bx,
- ptrdiff_t *ldbx,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- double *givnum,
- ptrdiff_t *ldgnum,
- double *poles,
- double *difl,
- double *difr,
- double *z,
- ptrdiff_t *k,
- double *c,
- double *s,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlalsa.f */
- #define dlalsa FORTRAN_WRAPPER(dlalsa)
- extern void dlalsa(
- ptrdiff_t *icompq,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *b,
- ptrdiff_t *ldb,
- double *bx,
- ptrdiff_t *ldbx,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *k,
- double *difl,
- double *difr,
- double *z,
- double *poles,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- ptrdiff_t *perm,
- double *givnum,
- double *c,
- double *s,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlalsd.f */
- #define dlalsd FORTRAN_WRAPPER(dlalsd)
- extern void dlalsd(
- char *uplo,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *b,
- ptrdiff_t *ldb,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlamrg.f */
- #define dlamrg FORTRAN_WRAPPER(dlamrg)
- extern void dlamrg(
- ptrdiff_t *n1,
- ptrdiff_t *n2,
- double *a,
- ptrdiff_t *dtrd1,
- ptrdiff_t *dtrd2,
- ptrdiff_t *index
- );
- /* Source: dlaneg.f */
- #define dlaneg FORTRAN_WRAPPER(dlaneg)
- extern ptrdiff_t dlaneg(
- ptrdiff_t *n,
- double *d,
- double *lld,
- double *sigma,
- double *pivmin,
- ptrdiff_t *r
- );
- /* Source: dlangb.f */
- #define dlangb FORTRAN_WRAPPER(dlangb)
- extern double dlangb(
- char *norm,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *work
- );
- /* Source: dlange.f */
- #define dlange FORTRAN_WRAPPER(dlange)
- extern double dlange(
- char *norm,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *work
- );
- /* Source: dlangt.f */
- #define dlangt FORTRAN_WRAPPER(dlangt)
- extern double dlangt(
- char *norm,
- ptrdiff_t *n,
- double *dl,
- double *d,
- double *du
- );
- /* Source: dlanhs.f */
- #define dlanhs FORTRAN_WRAPPER(dlanhs)
- extern double dlanhs(
- char *norm,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *work
- );
- /* Source: dlansb.f */
- #define dlansb FORTRAN_WRAPPER(dlansb)
- extern double dlansb(
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *ab,
- ptrdiff_t *ldab,
- double *work
- );
- /* Source: dlansf.f */
- #define dlansf FORTRAN_WRAPPER(dlansf)
- extern double dlansf(
- char *norm,
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- double *work
- );
- /* Source: dlansp.f */
- #define dlansp FORTRAN_WRAPPER(dlansp)
- extern double dlansp(
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *work
- );
- /* Source: dlanst.f */
- #define dlanst FORTRAN_WRAPPER(dlanst)
- extern double dlanst(
- char *norm,
- ptrdiff_t *n,
- double *d,
- double *e
- );
- /* Source: dlansy.f */
- #define dlansy FORTRAN_WRAPPER(dlansy)
- extern double dlansy(
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *work
- );
- /* Source: dlantb.f */
- #define dlantb FORTRAN_WRAPPER(dlantb)
- extern double dlantb(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *ab,
- ptrdiff_t *ldab,
- double *work
- );
- /* Source: dlantp.f */
- #define dlantp FORTRAN_WRAPPER(dlantp)
- extern double dlantp(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *ap,
- double *work
- );
- /* Source: dlantr.f */
- #define dlantr FORTRAN_WRAPPER(dlantr)
- extern double dlantr(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *work
- );
- /* Source: dlanv2.f */
- #define dlanv2 FORTRAN_WRAPPER(dlanv2)
- extern void dlanv2(
- double *a,
- double *b,
- double *c,
- double *d,
- double *rt1r,
- double *rt1i,
- double *rt2r,
- double *rt2i,
- double *cs,
- double *sn
- );
- /* Source: dlapll.f */
- #define dlapll FORTRAN_WRAPPER(dlapll)
- extern void dlapll(
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *incx,
- double *y,
- ptrdiff_t *incy,
- double *ssmin
- );
- /* Source: dlapmt.f */
- #define dlapmt FORTRAN_WRAPPER(dlapmt)
- extern void dlapmt(
- ptrdiff_t *forwrd,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *ldx,
- ptrdiff_t *k
- );
- /* Source: dlapy2.f */
- #define dlapy2 FORTRAN_WRAPPER(dlapy2)
- extern double dlapy2(
- double *x,
- double *y
- );
- /* Source: dlapy3.f */
- #define dlapy3 FORTRAN_WRAPPER(dlapy3)
- extern double dlapy3(
- double *x,
- double *y,
- double *z
- );
- /* Source: dlaqgb.f */
- #define dlaqgb FORTRAN_WRAPPER(dlaqgb)
- extern void dlaqgb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- char *equed
- );
- /* Source: dlaqge.f */
- #define dlaqge FORTRAN_WRAPPER(dlaqge)
- extern void dlaqge(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- char *equed
- );
- /* Source: dlaqp2.f */
- #define dlaqp2 FORTRAN_WRAPPER(dlaqp2)
- extern void dlaqp2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *offset,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- double *tau,
- double *vn1,
- double *vn2,
- double *work
- );
- /* Source: dlaqps.f */
- #define dlaqps FORTRAN_WRAPPER(dlaqps)
- extern void dlaqps(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *offset,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- double *tau,
- double *vn1,
- double *vn2,
- double *auxv,
- double *f,
- ptrdiff_t *ldf
- );
- /* Source: dlaqr0.f */
- #define dlaqr0 FORTRAN_WRAPPER(dlaqr0)
- extern void dlaqr0(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *wr,
- double *wi,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dlaqr1.f */
- #define dlaqr1 FORTRAN_WRAPPER(dlaqr1)
- extern void dlaqr1(
- ptrdiff_t *n,
- double *h,
- ptrdiff_t *ldh,
- double *sr1,
- double *si1,
- double *sr2,
- double *si2,
- double *v
- );
- /* Source: dlaqr2.f */
- #define dlaqr2 FORTRAN_WRAPPER(dlaqr2)
- extern void dlaqr2(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nw,
- double *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ns,
- ptrdiff_t *nd,
- double *sr,
- double *si,
- double *v,
- ptrdiff_t *ldv,
- ptrdiff_t *nh,
- double *t,
- ptrdiff_t *ldt,
- ptrdiff_t *nv,
- double *wv,
- ptrdiff_t *ldwv,
- double *work,
- ptrdiff_t *lwork
- );
- /* Source: dlaqr3.f */
- #define dlaqr3 FORTRAN_WRAPPER(dlaqr3)
- extern void dlaqr3(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nw,
- double *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ns,
- ptrdiff_t *nd,
- double *sr,
- double *si,
- double *v,
- ptrdiff_t *ldv,
- ptrdiff_t *nh,
- double *t,
- ptrdiff_t *ldt,
- ptrdiff_t *nv,
- double *wv,
- ptrdiff_t *ldwv,
- double *work,
- ptrdiff_t *lwork
- );
- /* Source: dlaqr4.f */
- #define dlaqr4 FORTRAN_WRAPPER(dlaqr4)
- extern void dlaqr4(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *wr,
- double *wi,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dlaqr5.f */
- #define dlaqr5 FORTRAN_WRAPPER(dlaqr5)
- extern void dlaqr5(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *kacc22,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nshfts,
- double *sr,
- double *si,
- double *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- double *v,
- ptrdiff_t *ldv,
- double *u,
- ptrdiff_t *ldu,
- ptrdiff_t *nv,
- double *wv,
- ptrdiff_t *ldwv,
- ptrdiff_t *nh,
- double *wh,
- ptrdiff_t *ldwh
- );
- /* Source: dlaqsb.f */
- #define dlaqsb FORTRAN_WRAPPER(dlaqsb)
- extern void dlaqsb(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *s,
- double *scond,
- double *amax,
- char *equed
- );
- /* Source: dlaqsp.f */
- #define dlaqsp FORTRAN_WRAPPER(dlaqsp)
- extern void dlaqsp(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *s,
- double *scond,
- double *amax,
- char *equed
- );
- /* Source: dlaqsy.f */
- #define dlaqsy FORTRAN_WRAPPER(dlaqsy)
- extern void dlaqsy(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- char *equed
- );
- /* Source: dlaqtr.f */
- #define dlaqtr FORTRAN_WRAPPER(dlaqtr)
- extern void dlaqtr(
- ptrdiff_t *ltran,
- ptrdiff_t *lreal,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *b,
- double *w,
- double *scale,
- double *x,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlar1v.f */
- #define dlar1v FORTRAN_WRAPPER(dlar1v)
- extern void dlar1v(
- ptrdiff_t *n,
- ptrdiff_t *b1,
- ptrdiff_t *bn,
- double *lambda,
- double *d,
- double *l,
- double *ld,
- double *lld,
- double *pivmin,
- double *gaptol,
- double *z,
- ptrdiff_t *wantnc,
- ptrdiff_t *negcnt,
- double *ztz,
- double *mingma,
- ptrdiff_t *r,
- ptrdiff_t *isuppz,
- double *nrminv,
- double *resid,
- double *rqcorr,
- double *work
- );
- /* Source: dlar2v.f */
- #define dlar2v FORTRAN_WRAPPER(dlar2v)
- extern void dlar2v(
- ptrdiff_t *n,
- double *x,
- double *y,
- double *z,
- ptrdiff_t *incx,
- double *c,
- double *s,
- ptrdiff_t *incc
- );
- /* Source: dlarf.f */
- #define dlarf FORTRAN_WRAPPER(dlarf)
- extern void dlarf(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *v,
- ptrdiff_t *incv,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work
- );
- /* Source: dlarfb.f */
- #define dlarfb FORTRAN_WRAPPER(dlarfb)
- extern void dlarfb(
- char *side,
- char *trans,
- char *direct,
- char *storev,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *v,
- ptrdiff_t *ldv,
- double *t,
- ptrdiff_t *ldt,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *ldwork
- );
- /* Source: dlarfg.f */
- #define dlarfg FORTRAN_WRAPPER(dlarfg)
- extern void dlarfg(
- ptrdiff_t *n,
- double *alpha,
- double *x,
- ptrdiff_t *incx,
- double *tau
- );
- /* Source: dlarfp.f */
- #define dlarfp FORTRAN_WRAPPER(dlarfp)
- extern void dlarfp(
- ptrdiff_t *n,
- double *alpha,
- double *x,
- ptrdiff_t *incx,
- double *tau
- );
- /* Source: dlarft.f */
- #define dlarft FORTRAN_WRAPPER(dlarft)
- extern void dlarft(
- char *direct,
- char *storev,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *v,
- ptrdiff_t *ldv,
- double *tau,
- double *t,
- ptrdiff_t *ldt
- );
- /* Source: dlarfx.f */
- #define dlarfx FORTRAN_WRAPPER(dlarfx)
- extern void dlarfx(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *v,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work
- );
- /* Source: dlargv.f */
- #define dlargv FORTRAN_WRAPPER(dlargv)
- extern void dlargv(
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *incx,
- double *y,
- ptrdiff_t *incy,
- double *c,
- ptrdiff_t *incc
- );
- /* Source: dlarnv.f */
- #define dlarnv FORTRAN_WRAPPER(dlarnv)
- extern void dlarnv(
- ptrdiff_t *idist,
- ptrdiff_t *iseed,
- ptrdiff_t *n,
- double *x
- );
- /* Source: dlarra.f */
- #define dlarra FORTRAN_WRAPPER(dlarra)
- extern void dlarra(
- ptrdiff_t *n,
- double *d,
- double *e,
- double *e2,
- double *spltol,
- double *tnrm,
- ptrdiff_t *nsplit,
- ptrdiff_t *isplit,
- ptrdiff_t *info
- );
- /* Source: dlarrb.f */
- #define dlarrb FORTRAN_WRAPPER(dlarrb)
- extern void dlarrb(
- ptrdiff_t *n,
- double *d,
- double *lld,
- ptrdiff_t *ifirst,
- ptrdiff_t *ilast,
- double *rtol1,
- double *rtol2,
- ptrdiff_t *offset,
- double *w,
- double *wgap,
- double *werr,
- double *work,
- ptrdiff_t *iwork,
- double *pivmin,
- double *spdiam,
- ptrdiff_t *twist,
- ptrdiff_t *info
- );
- /* Source: dlarrc.f */
- #define dlarrc FORTRAN_WRAPPER(dlarrc)
- extern void dlarrc(
- char *jobt,
- ptrdiff_t *n,
- double *vl,
- double *vu,
- double *d,
- double *e,
- double *pivmin,
- ptrdiff_t *eigcnt,
- ptrdiff_t *lcnt,
- ptrdiff_t *rcnt,
- ptrdiff_t *info
- );
- /* Source: dlarrd.f */
- #define dlarrd FORTRAN_WRAPPER(dlarrd)
- extern void dlarrd(
- char *range,
- char *order,
- ptrdiff_t *n,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *gers,
- double *reltol,
- double *d,
- double *e,
- double *e2,
- double *pivmin,
- ptrdiff_t *nsplit,
- ptrdiff_t *isplit,
- ptrdiff_t *m,
- double *w,
- double *werr,
- double *wl,
- double *wu,
- ptrdiff_t *iblock,
- ptrdiff_t *indexw,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlarre.f */
- #define dlarre FORTRAN_WRAPPER(dlarre)
- extern void dlarre(
- char *range,
- ptrdiff_t *n,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *d,
- double *e,
- double *e2,
- double *rtol1,
- double *rtol2,
- double *spltol,
- ptrdiff_t *nsplit,
- ptrdiff_t *isplit,
- ptrdiff_t *m,
- double *w,
- double *werr,
- double *wgap,
- ptrdiff_t *iblock,
- ptrdiff_t *indexw,
- double *gers,
- double *pivmin,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlarrf.f */
- #define dlarrf FORTRAN_WRAPPER(dlarrf)
- extern void dlarrf(
- ptrdiff_t *n,
- double *d,
- double *l,
- double *ld,
- ptrdiff_t *clstrt,
- ptrdiff_t *clend,
- double *w,
- double *wgap,
- double *werr,
- double *spdiam,
- double *clgapl,
- double *clgapr,
- double *pivmin,
- double *sigma,
- double *dplus,
- double *lplus,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlarrj.f */
- #define dlarrj FORTRAN_WRAPPER(dlarrj)
- extern void dlarrj(
- ptrdiff_t *n,
- double *d,
- double *e2,
- ptrdiff_t *ifirst,
- ptrdiff_t *ilast,
- double *rtol,
- ptrdiff_t *offset,
- double *w,
- double *werr,
- double *work,
- ptrdiff_t *iwork,
- double *pivmin,
- double *spdiam,
- ptrdiff_t *info
- );
- /* Source: dlarrk.f */
- #define dlarrk FORTRAN_WRAPPER(dlarrk)
- extern void dlarrk(
- ptrdiff_t *n,
- ptrdiff_t *iw,
- double *gl,
- double *gu,
- double *d,
- double *e2,
- double *pivmin,
- double *reltol,
- double *w,
- double *werr,
- ptrdiff_t *info
- );
- /* Source: dlarrr.f */
- #define dlarrr FORTRAN_WRAPPER(dlarrr)
- extern void dlarrr(
- ptrdiff_t *n,
- double *d,
- double *e,
- ptrdiff_t *info
- );
- /* Source: dlarrv.f */
- #define dlarrv FORTRAN_WRAPPER(dlarrv)
- extern void dlarrv(
- ptrdiff_t *n,
- double *vl,
- double *vu,
- double *d,
- double *l,
- double *pivmin,
- ptrdiff_t *isplit,
- ptrdiff_t *m,
- ptrdiff_t *dol,
- ptrdiff_t *dou,
- double *minrgp,
- double *rtol1,
- double *rtol2,
- double *w,
- double *werr,
- double *wgap,
- ptrdiff_t *iblock,
- ptrdiff_t *indexw,
- double *gers,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlartg.f */
- #define dlartg FORTRAN_WRAPPER(dlartg)
- extern void dlartg(
- double *f,
- double *g,
- double *cs,
- double *sn,
- double *r
- );
- /* Source: dlartv.f */
- #define dlartv FORTRAN_WRAPPER(dlartv)
- extern void dlartv(
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *incx,
- double *y,
- ptrdiff_t *incy,
- double *c,
- double *s,
- ptrdiff_t *incc
- );
- /* Source: dlaruv.f */
- #define dlaruv FORTRAN_WRAPPER(dlaruv)
- extern void dlaruv(
- ptrdiff_t *iseed,
- ptrdiff_t *n,
- double *x
- );
- /* Source: dlarz.f */
- #define dlarz FORTRAN_WRAPPER(dlarz)
- extern void dlarz(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *l,
- double *v,
- ptrdiff_t *incv,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work
- );
- /* Source: dlarzb.f */
- #define dlarzb FORTRAN_WRAPPER(dlarzb)
- extern void dlarzb(
- char *side,
- char *trans,
- char *direct,
- char *storev,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *v,
- ptrdiff_t *ldv,
- double *t,
- ptrdiff_t *ldt,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *ldwork
- );
- /* Source: dlarzt.f */
- #define dlarzt FORTRAN_WRAPPER(dlarzt)
- extern void dlarzt(
- char *direct,
- char *storev,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *v,
- ptrdiff_t *ldv,
- double *tau,
- double *t,
- ptrdiff_t *ldt
- );
- /* Source: dlas2.f */
- #define dlas2 FORTRAN_WRAPPER(dlas2)
- extern void dlas2(
- double *f,
- double *g,
- double *h,
- double *ssmin,
- double *ssmax
- );
- /* Source: dlascl.f */
- #define dlascl FORTRAN_WRAPPER(dlascl)
- extern void dlascl(
- char *type,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *cfrom,
- double *cto,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dlasd0.f */
- #define dlasd0 FORTRAN_WRAPPER(dlasd0)
- extern void dlasd0(
- ptrdiff_t *n,
- ptrdiff_t *sqre,
- double *d,
- double *e,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *ldvt,
- ptrdiff_t *smlsiz,
- ptrdiff_t *iwork,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlasd1.f */
- #define dlasd1 FORTRAN_WRAPPER(dlasd1)
- extern void dlasd1(
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- double *d,
- double *alpha,
- double *beta,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *ldvt,
- ptrdiff_t *idxq,
- ptrdiff_t *iwork,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlasd2.f */
- #define dlasd2 FORTRAN_WRAPPER(dlasd2)
- extern void dlasd2(
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *k,
- double *d,
- double *z,
- double *alpha,
- double *beta,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *ldvt,
- double *dsigma,
- double *u2,
- ptrdiff_t *ldu2,
- double *vt2,
- ptrdiff_t *ldvt2,
- ptrdiff_t *idxp,
- ptrdiff_t *idx,
- ptrdiff_t *idxc,
- ptrdiff_t *idxq,
- ptrdiff_t *coltyp,
- ptrdiff_t *info
- );
- /* Source: dlasd3.f */
- #define dlasd3 FORTRAN_WRAPPER(dlasd3)
- extern void dlasd3(
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *k,
- double *d,
- double *q,
- ptrdiff_t *ldq,
- double *dsigma,
- double *u,
- ptrdiff_t *ldu,
- double *u2,
- ptrdiff_t *ldu2,
- double *vt,
- ptrdiff_t *ldvt,
- double *vt2,
- ptrdiff_t *ldvt2,
- ptrdiff_t *idxc,
- ptrdiff_t *ctot,
- double *z,
- ptrdiff_t *info
- );
- /* Source: dlasd4.f */
- #define dlasd4 FORTRAN_WRAPPER(dlasd4)
- extern void dlasd4(
- ptrdiff_t *n,
- ptrdiff_t *i,
- double *d,
- double *z,
- double *delta,
- double *rho,
- double *sigma,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlasd5.f */
- #define dlasd5 FORTRAN_WRAPPER(dlasd5)
- extern void dlasd5(
- ptrdiff_t *i,
- double *d,
- double *z,
- double *delta,
- double *rho,
- double *dsigma,
- double *work
- );
- /* Source: dlasd6.f */
- #define dlasd6 FORTRAN_WRAPPER(dlasd6)
- extern void dlasd6(
- ptrdiff_t *icompq,
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- double *d,
- double *vf,
- double *vl,
- double *alpha,
- double *beta,
- ptrdiff_t *idxq,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- double *givnum,
- ptrdiff_t *ldgnum,
- double *poles,
- double *difl,
- double *difr,
- double *z,
- ptrdiff_t *k,
- double *c,
- double *s,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlasd7.f */
- #define dlasd7 FORTRAN_WRAPPER(dlasd7)
- extern void dlasd7(
- ptrdiff_t *icompq,
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *k,
- double *d,
- double *z,
- double *zw,
- double *vf,
- double *vfw,
- double *vl,
- double *vlw,
- double *alpha,
- double *beta,
- double *dsigma,
- ptrdiff_t *idx,
- ptrdiff_t *idxp,
- ptrdiff_t *idxq,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- double *givnum,
- ptrdiff_t *ldgnum,
- double *c,
- double *s,
- ptrdiff_t *info
- );
- /* Source: dlasd8.f */
- #define dlasd8 FORTRAN_WRAPPER(dlasd8)
- extern void dlasd8(
- ptrdiff_t *icompq,
- ptrdiff_t *k,
- double *d,
- double *z,
- double *vf,
- double *vl,
- double *difl,
- double *difr,
- ptrdiff_t *lddifr,
- double *dsigma,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlasda.f */
- #define dlasda FORTRAN_WRAPPER(dlasda)
- extern void dlasda(
- ptrdiff_t *icompq,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *sqre,
- double *d,
- double *e,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *k,
- double *difl,
- double *difr,
- double *z,
- double *poles,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- ptrdiff_t *perm,
- double *givnum,
- double *c,
- double *s,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dlasdq.f */
- #define dlasdq FORTRAN_WRAPPER(dlasdq)
- extern void dlasdq(
- char *uplo,
- ptrdiff_t *sqre,
- ptrdiff_t *n,
- ptrdiff_t *ncvt,
- ptrdiff_t *nru,
- ptrdiff_t *ncc,
- double *d,
- double *e,
- double *vt,
- ptrdiff_t *ldvt,
- double *u,
- ptrdiff_t *ldu,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlasdt.f */
- #define dlasdt FORTRAN_WRAPPER(dlasdt)
- extern void dlasdt(
- ptrdiff_t *n,
- ptrdiff_t *lvl,
- ptrdiff_t *nd,
- ptrdiff_t *inode,
- ptrdiff_t *ndiml,
- ptrdiff_t *ndimr,
- ptrdiff_t *msub
- );
- /* Source: dlaset.f */
- #define dlaset FORTRAN_WRAPPER(dlaset)
- extern void dlaset(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *alpha,
- double *beta,
- double *a,
- ptrdiff_t *lda
- );
- /* Source: dlasq1.f */
- #define dlasq1 FORTRAN_WRAPPER(dlasq1)
- extern void dlasq1(
- ptrdiff_t *n,
- double *d,
- double *e,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dlasq2.f */
- #define dlasq2 FORTRAN_WRAPPER(dlasq2)
- extern void dlasq2(
- ptrdiff_t *n,
- double *z,
- ptrdiff_t *info
- );
- /* Source: dlasq3.f */
- #define dlasq3 FORTRAN_WRAPPER(dlasq3)
- extern void dlasq3(
- ptrdiff_t *i0,
- ptrdiff_t *n0,
- double *z,
- ptrdiff_t *pp,
- double *dmin,
- double *sigma,
- double *desig,
- double *qmax,
- ptrdiff_t *nfail,
- ptrdiff_t *iter,
- ptrdiff_t *ndiv,
- ptrdiff_t *ieee,
- ptrdiff_t *ttype,
- double *dmin1,
- double *dmin2,
- double *dn,
- double *dn1,
- double *dn2,
- double *g,
- double *tau
- );
- /* Source: dlasq4.f */
- #define dlasq4 FORTRAN_WRAPPER(dlasq4)
- extern void dlasq4(
- ptrdiff_t *i0,
- ptrdiff_t *n0,
- double *z,
- ptrdiff_t *pp,
- ptrdiff_t *n0in,
- double *dmin,
- double *dmin1,
- double *dmin2,
- double *dn,
- double *dn1,
- double *dn2,
- double *tau,
- ptrdiff_t *ttype,
- double *g
- );
- /* Source: dlasq5.f */
- #define dlasq5 FORTRAN_WRAPPER(dlasq5)
- extern void dlasq5(
- ptrdiff_t *i0,
- ptrdiff_t *n0,
- double *z,
- ptrdiff_t *pp,
- double *tau,
- double *dmin,
- double *dmin1,
- double *dmin2,
- double *dn,
- double *dnm1,
- double *dnm2,
- ptrdiff_t *ieee
- );
- /* Source: dlasq6.f */
- #define dlasq6 FORTRAN_WRAPPER(dlasq6)
- extern void dlasq6(
- ptrdiff_t *i0,
- ptrdiff_t *n0,
- double *z,
- ptrdiff_t *pp,
- double *dmin,
- double *dmin1,
- double *dmin2,
- double *dn,
- double *dnm1,
- double *dnm2
- );
- /* Source: dlasr.f */
- #define dlasr FORTRAN_WRAPPER(dlasr)
- extern void dlasr(
- char *side,
- char *pivot,
- char *direct,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *c,
- double *s,
- double *a,
- ptrdiff_t *lda
- );
- /* Source: dlasrt.f */
- #define dlasrt FORTRAN_WRAPPER(dlasrt)
- extern void dlasrt(
- char *id,
- ptrdiff_t *n,
- double *d,
- ptrdiff_t *info
- );
- /* Source: dlassq.f */
- #define dlassq FORTRAN_WRAPPER(dlassq)
- extern void dlassq(
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *incx,
- double *scale,
- double *sumsq
- );
- /* Source: dlasv2.f */
- #define dlasv2 FORTRAN_WRAPPER(dlasv2)
- extern void dlasv2(
- double *f,
- double *g,
- double *h,
- double *ssmin,
- double *ssmax,
- double *snr,
- double *csr,
- double *snl,
- double *csl
- );
- /* Source: dlaswp.f */
- #define dlaswp FORTRAN_WRAPPER(dlaswp)
- extern void dlaswp(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *k1,
- ptrdiff_t *k2,
- ptrdiff_t *ipiv,
- ptrdiff_t *incx
- );
- /* Source: dlasy2.f */
- #define dlasy2 FORTRAN_WRAPPER(dlasy2)
- extern void dlasy2(
- ptrdiff_t *ltranl,
- ptrdiff_t *ltranr,
- ptrdiff_t *isgn,
- ptrdiff_t *n1,
- ptrdiff_t *n2,
- double *tl,
- ptrdiff_t *ldtl,
- double *tr,
- ptrdiff_t *ldtr,
- double *b,
- ptrdiff_t *ldb,
- double *scale,
- double *x,
- ptrdiff_t *ldx,
- double *xnorm,
- ptrdiff_t *info
- );
- /* Source: dlasyf.f */
- #define dlasyf FORTRAN_WRAPPER(dlasyf)
- extern void dlasyf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *w,
- ptrdiff_t *ldw,
- ptrdiff_t *info
- );
- /* Source: dlat2s.f */
- #define dlat2s FORTRAN_WRAPPER(dlat2s)
- extern void dlat2s(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- float *sa,
- ptrdiff_t *ldsa,
- ptrdiff_t *info
- );
- /* Source: dlatbs.f */
- #define dlatbs FORTRAN_WRAPPER(dlatbs)
- extern void dlatbs(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *x,
- double *scale,
- double *cnorm,
- ptrdiff_t *info
- );
- /* Source: dlatdf.f */
- #define dlatdf FORTRAN_WRAPPER(dlatdf)
- extern void dlatdf(
- ptrdiff_t *ijob,
- ptrdiff_t *n,
- double *z,
- ptrdiff_t *ldz,
- double *rhs,
- double *rdsum,
- double *rdscal,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv
- );
- /* Source: dlatps.f */
- #define dlatps FORTRAN_WRAPPER(dlatps)
- extern void dlatps(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- double *ap,
- double *x,
- double *scale,
- double *cnorm,
- ptrdiff_t *info
- );
- /* Source: dlatrd.f */
- #define dlatrd FORTRAN_WRAPPER(dlatrd)
- extern void dlatrd(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- double *a,
- ptrdiff_t *lda,
- double *e,
- double *tau,
- double *w,
- ptrdiff_t *ldw
- );
- /* Source: dlatrs.f */
- #define dlatrs FORTRAN_WRAPPER(dlatrs)
- extern void dlatrs(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *x,
- double *scale,
- double *cnorm,
- ptrdiff_t *info
- );
- /* Source: dlatrz.f */
- #define dlatrz FORTRAN_WRAPPER(dlatrz)
- extern void dlatrz(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work
- );
- /* Source: dlatzm.f */
- #define dlatzm FORTRAN_WRAPPER(dlatzm)
- extern void dlatzm(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *v,
- ptrdiff_t *incv,
- double *tau,
- double *c1,
- double *c2,
- ptrdiff_t *ldc,
- double *work
- );
- /* Source: dlauu2.f */
- #define dlauu2 FORTRAN_WRAPPER(dlauu2)
- extern void dlauu2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dlauum.f */
- #define dlauum FORTRAN_WRAPPER(dlauum)
- extern void dlauum(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dopgtr.f */
- #define dopgtr FORTRAN_WRAPPER(dopgtr)
- extern void dopgtr(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *tau,
- double *q,
- ptrdiff_t *ldq,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dopmtr.f */
- #define dopmtr FORTRAN_WRAPPER(dopmtr)
- extern void dopmtr(
- char *side,
- char *uplo,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *ap,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dorg2l.f */
- #define dorg2l FORTRAN_WRAPPER(dorg2l)
- extern void dorg2l(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dorg2r.f */
- #define dorg2r FORTRAN_WRAPPER(dorg2r)
- extern void dorg2r(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dorgbr.f */
- #define dorgbr FORTRAN_WRAPPER(dorgbr)
- extern void dorgbr(
- char *vect,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dorghr.f */
- #define dorghr FORTRAN_WRAPPER(dorghr)
- extern void dorghr(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dorgl2.f */
- #define dorgl2 FORTRAN_WRAPPER(dorgl2)
- extern void dorgl2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dorglq.f */
- #define dorglq FORTRAN_WRAPPER(dorglq)
- extern void dorglq(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dorgql.f */
- #define dorgql FORTRAN_WRAPPER(dorgql)
- extern void dorgql(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dorgqr.f */
- #define dorgqr FORTRAN_WRAPPER(dorgqr)
- extern void dorgqr(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dorgr2.f */
- #define dorgr2 FORTRAN_WRAPPER(dorgr2)
- extern void dorgr2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dorgrq.f */
- #define dorgrq FORTRAN_WRAPPER(dorgrq)
- extern void dorgrq(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dorgtr.f */
- #define dorgtr FORTRAN_WRAPPER(dorgtr)
- extern void dorgtr(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dorm2l.f */
- #define dorm2l FORTRAN_WRAPPER(dorm2l)
- extern void dorm2l(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dorm2r.f */
- #define dorm2r FORTRAN_WRAPPER(dorm2r)
- extern void dorm2r(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dormbr.f */
- #define dormbr FORTRAN_WRAPPER(dormbr)
- extern void dormbr(
- char *vect,
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dormhr.f */
- #define dormhr FORTRAN_WRAPPER(dormhr)
- extern void dormhr(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dorml2.f */
- #define dorml2 FORTRAN_WRAPPER(dorml2)
- extern void dorml2(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dormlq.f */
- #define dormlq FORTRAN_WRAPPER(dormlq)
- extern void dormlq(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dormql.f */
- #define dormql FORTRAN_WRAPPER(dormql)
- extern void dormql(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dormqr.f */
- #define dormqr FORTRAN_WRAPPER(dormqr)
- extern void dormqr(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dormr2.f */
- #define dormr2 FORTRAN_WRAPPER(dormr2)
- extern void dormr2(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dormr3.f */
- #define dormr3 FORTRAN_WRAPPER(dormr3)
- extern void dormr3(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dormrq.f */
- #define dormrq FORTRAN_WRAPPER(dormrq)
- extern void dormrq(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dormrz.f */
- #define dormrz FORTRAN_WRAPPER(dormrz)
- extern void dormrz(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dormtr.f */
- #define dormtr FORTRAN_WRAPPER(dormtr)
- extern void dormtr(
- char *side,
- char *uplo,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dpbcon.f */
- #define dpbcon FORTRAN_WRAPPER(dpbcon)
- extern void dpbcon(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dpbequ.f */
- #define dpbequ FORTRAN_WRAPPER(dpbequ)
- extern void dpbequ(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *s,
- double *scond,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: dpbrfs.f */
- #define dpbrfs FORTRAN_WRAPPER(dpbrfs)
- extern void dpbrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *afb,
- ptrdiff_t *ldafb,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dpbstf.f */
- #define dpbstf FORTRAN_WRAPPER(dpbstf)
- extern void dpbstf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: dpbsv.f */
- #define dpbsv FORTRAN_WRAPPER(dpbsv)
- extern void dpbsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dpbsvx.f */
- #define dpbsvx FORTRAN_WRAPPER(dpbsvx)
- extern void dpbsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *afb,
- ptrdiff_t *ldafb,
- char *equed,
- double *s,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dpbtf2.f */
- #define dpbtf2 FORTRAN_WRAPPER(dpbtf2)
- extern void dpbtf2(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: dpbtrf.f */
- #define dpbtrf FORTRAN_WRAPPER(dpbtrf)
- extern void dpbtrf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: dpbtrs.f */
- #define dpbtrs FORTRAN_WRAPPER(dpbtrs)
- extern void dpbtrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dpftrf.f */
- #define dpftrf FORTRAN_WRAPPER(dpftrf)
- extern void dpftrf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *info
- );
- /* Source: dpftri.f */
- #define dpftri FORTRAN_WRAPPER(dpftri)
- extern void dpftri(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *info
- );
- /* Source: dpftrs.f */
- #define dpftrs FORTRAN_WRAPPER(dpftrs)
- extern void dpftrs(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dpocon.f */
- #define dpocon FORTRAN_WRAPPER(dpocon)
- extern void dpocon(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dpoequ.f */
- #define dpoequ FORTRAN_WRAPPER(dpoequ)
- extern void dpoequ(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: dpoequb.f */
- #define dpoequb FORTRAN_WRAPPER(dpoequb)
- extern void dpoequb(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: dporfs.f */
- #define dporfs FORTRAN_WRAPPER(dporfs)
- extern void dporfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dposv.f */
- #define dposv FORTRAN_WRAPPER(dposv)
- extern void dposv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dposvx.f */
- #define dposvx FORTRAN_WRAPPER(dposvx)
- extern void dposvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- char *equed,
- double *s,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dpotf2.f */
- #define dpotf2 FORTRAN_WRAPPER(dpotf2)
- extern void dpotf2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dpotrf.f */
- #define dpotrf FORTRAN_WRAPPER(dpotrf)
- extern void dpotrf(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dpotri.f */
- #define dpotri FORTRAN_WRAPPER(dpotri)
- extern void dpotri(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dpotrs.f */
- #define dpotrs FORTRAN_WRAPPER(dpotrs)
- extern void dpotrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dppcon.f */
- #define dppcon FORTRAN_WRAPPER(dppcon)
- extern void dppcon(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dppequ.f */
- #define dppequ FORTRAN_WRAPPER(dppequ)
- extern void dppequ(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *s,
- double *scond,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: dpprfs.f */
- #define dpprfs FORTRAN_WRAPPER(dpprfs)
- extern void dpprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dppsv.f */
- #define dppsv FORTRAN_WRAPPER(dppsv)
- extern void dppsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dppsvx.f */
- #define dppsvx FORTRAN_WRAPPER(dppsvx)
- extern void dppsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- char *equed,
- double *s,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dpptrf.f */
- #define dpptrf FORTRAN_WRAPPER(dpptrf)
- extern void dpptrf(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: dpptri.f */
- #define dpptri FORTRAN_WRAPPER(dpptri)
- extern void dpptri(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: dpptrs.f */
- #define dpptrs FORTRAN_WRAPPER(dpptrs)
- extern void dpptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dpstf2.f */
- #define dpstf2 FORTRAN_WRAPPER(dpstf2)
- extern void dpstf2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *piv,
- ptrdiff_t *rank,
- double *tol,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dpstrf.f */
- #define dpstrf FORTRAN_WRAPPER(dpstrf)
- extern void dpstrf(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *piv,
- ptrdiff_t *rank,
- double *tol,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dptcon.f */
- #define dptcon FORTRAN_WRAPPER(dptcon)
- extern void dptcon(
- ptrdiff_t *n,
- double *d,
- double *e,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dpteqr.f */
- #define dpteqr FORTRAN_WRAPPER(dpteqr)
- extern void dpteqr(
- char *compz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dptrfs.f */
- #define dptrfs FORTRAN_WRAPPER(dptrfs)
- extern void dptrfs(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *df,
- double *ef,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dptsv.f */
- #define dptsv FORTRAN_WRAPPER(dptsv)
- extern void dptsv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dptsvx.f */
- #define dptsvx FORTRAN_WRAPPER(dptsvx)
- extern void dptsvx(
- char *fact,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *df,
- double *ef,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dpttrf.f */
- #define dpttrf FORTRAN_WRAPPER(dpttrf)
- extern void dpttrf(
- ptrdiff_t *n,
- double *d,
- double *e,
- ptrdiff_t *info
- );
- /* Source: dpttrs.f */
- #define dpttrs FORTRAN_WRAPPER(dpttrs)
- extern void dpttrs(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dptts2.f */
- #define dptts2 FORTRAN_WRAPPER(dptts2)
- extern void dptts2(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: drscl.f */
- #define drscl FORTRAN_WRAPPER(drscl)
- extern void drscl(
- ptrdiff_t *n,
- double *sa,
- double *sx,
- ptrdiff_t *incx
- );
- /* Source: dsbev.f */
- #define dsbev FORTRAN_WRAPPER(dsbev)
- extern void dsbev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dsbevd.f */
- #define dsbevd FORTRAN_WRAPPER(dsbevd)
- extern void dsbevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dsbevx.f */
- #define dsbevx FORTRAN_WRAPPER(dsbevx)
- extern void dsbevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *q,
- ptrdiff_t *ldq,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: dsbgst.f */
- #define dsbgst FORTRAN_WRAPPER(dsbgst)
- extern void dsbgst(
- char *vect,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- double *ab,
- ptrdiff_t *ldab,
- double *bb,
- ptrdiff_t *ldbb,
- double *x,
- ptrdiff_t *ldx,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dsbgv.f */
- #define dsbgv FORTRAN_WRAPPER(dsbgv)
- extern void dsbgv(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- double *ab,
- ptrdiff_t *ldab,
- double *bb,
- ptrdiff_t *ldbb,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dsbgvd.f */
- #define dsbgvd FORTRAN_WRAPPER(dsbgvd)
- extern void dsbgvd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- double *ab,
- ptrdiff_t *ldab,
- double *bb,
- ptrdiff_t *ldbb,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dsbgvx.f */
- #define dsbgvx FORTRAN_WRAPPER(dsbgvx)
- extern void dsbgvx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- double *ab,
- ptrdiff_t *ldab,
- double *bb,
- ptrdiff_t *ldbb,
- double *q,
- ptrdiff_t *ldq,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: dsbtrd.f */
- #define dsbtrd FORTRAN_WRAPPER(dsbtrd)
- extern void dsbtrd(
- char *vect,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *d,
- double *e,
- double *q,
- ptrdiff_t *ldq,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dsfrk.f */
- #define dsfrk FORTRAN_WRAPPER(dsfrk)
- extern void dsfrk(
- char *transr,
- char *uplo,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *alpha,
- double *a,
- ptrdiff_t *lda,
- double *beta,
- double *c
- );
- /* Source: dsgesv.f */
- #define dsgesv FORTRAN_WRAPPER(dsgesv)
- extern void dsgesv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *work,
- float *swork,
- ptrdiff_t *iter,
- ptrdiff_t *info
- );
- /* Source: dspcon.f */
- #define dspcon FORTRAN_WRAPPER(dspcon)
- extern void dspcon(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dspev.f */
- #define dspev FORTRAN_WRAPPER(dspev)
- extern void dspev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dspevd.f */
- #define dspevd FORTRAN_WRAPPER(dspevd)
- extern void dspevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dspevx.f */
- #define dspevx FORTRAN_WRAPPER(dspevx)
- extern void dspevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: dspgst.f */
- #define dspgst FORTRAN_WRAPPER(dspgst)
- extern void dspgst(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *bp,
- ptrdiff_t *info
- );
- /* Source: dspgv.f */
- #define dspgv FORTRAN_WRAPPER(dspgv)
- extern void dspgv(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *bp,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dspgvd.f */
- #define dspgvd FORTRAN_WRAPPER(dspgvd)
- extern void dspgvd(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *bp,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dspgvx.f */
- #define dspgvx FORTRAN_WRAPPER(dspgvx)
- extern void dspgvx(
- ptrdiff_t *itype,
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *bp,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: dsposv.f */
- #define dsposv FORTRAN_WRAPPER(dsposv)
- extern void dsposv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *work,
- float *swork,
- ptrdiff_t *iter,
- ptrdiff_t *info
- );
- /* Source: dsprfs.f */
- #define dsprfs FORTRAN_WRAPPER(dsprfs)
- extern void dsprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dspsv.f */
- #define dspsv FORTRAN_WRAPPER(dspsv)
- extern void dspsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dspsvx.f */
- #define dspsvx FORTRAN_WRAPPER(dspsvx)
- extern void dspsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dsptrd.f */
- #define dsptrd FORTRAN_WRAPPER(dsptrd)
- extern void dsptrd(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *d,
- double *e,
- double *tau,
- ptrdiff_t *info
- );
- /* Source: dsptrf.f */
- #define dsptrf FORTRAN_WRAPPER(dsptrf)
- extern void dsptrf(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: dsptri.f */
- #define dsptri FORTRAN_WRAPPER(dsptri)
- extern void dsptri(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dsptrs.f */
- #define dsptrs FORTRAN_WRAPPER(dsptrs)
- extern void dsptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dstebz.f */
- #define dstebz FORTRAN_WRAPPER(dstebz)
- extern void dstebz(
- char *range,
- char *order,
- ptrdiff_t *n,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- double *d,
- double *e,
- ptrdiff_t *m,
- ptrdiff_t *nsplit,
- double *w,
- ptrdiff_t *iblock,
- ptrdiff_t *isplit,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dstedc.f */
- #define dstedc FORTRAN_WRAPPER(dstedc)
- extern void dstedc(
- char *compz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dstegr.f */
- #define dstegr FORTRAN_WRAPPER(dstegr)
- extern void dstegr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dstein.f */
- #define dstein FORTRAN_WRAPPER(dstein)
- extern void dstein(
- ptrdiff_t *n,
- double *d,
- double *e,
- ptrdiff_t *m,
- double *w,
- ptrdiff_t *iblock,
- ptrdiff_t *isplit,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: dstemr.f */
- #define dstemr FORTRAN_WRAPPER(dstemr)
- extern void dstemr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *nzc,
- ptrdiff_t *isuppz,
- ptrdiff_t *tryrac,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dsteqr.f */
- #define dsteqr FORTRAN_WRAPPER(dsteqr)
- extern void dsteqr(
- char *compz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dsterf.f */
- #define dsterf FORTRAN_WRAPPER(dsterf)
- extern void dsterf(
- ptrdiff_t *n,
- double *d,
- double *e,
- ptrdiff_t *info
- );
- /* Source: dstev.f */
- #define dstev FORTRAN_WRAPPER(dstev)
- extern void dstev(
- char *jobz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dstevd.f */
- #define dstevd FORTRAN_WRAPPER(dstevd)
- extern void dstevd(
- char *jobz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dstevr.f */
- #define dstevr FORTRAN_WRAPPER(dstevr)
- extern void dstevr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dstevx.f */
- #define dstevx FORTRAN_WRAPPER(dstevx)
- extern void dstevx(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: dsycon.f */
- #define dsycon FORTRAN_WRAPPER(dsycon)
- extern void dsycon(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dsyequb.f */
- #define dsyequb FORTRAN_WRAPPER(dsyequb)
- extern void dsyequb(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dsyev.f */
- #define dsyev FORTRAN_WRAPPER(dsyev)
- extern void dsyev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *w,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dsyevd.f */
- #define dsyevd FORTRAN_WRAPPER(dsyevd)
- extern void dsyevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *w,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dsyevr.f */
- #define dsyevr FORTRAN_WRAPPER(dsyevr)
- extern void dsyevr(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dsyevx.f */
- #define dsyevx FORTRAN_WRAPPER(dsyevx)
- extern void dsyevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: dsygs2.f */
- #define dsygs2 FORTRAN_WRAPPER(dsygs2)
- extern void dsygs2(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dsygst.f */
- #define dsygst FORTRAN_WRAPPER(dsygst)
- extern void dsygst(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dsygv.f */
- #define dsygv FORTRAN_WRAPPER(dsygv)
- extern void dsygv(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *w,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dsygvd.f */
- #define dsygvd FORTRAN_WRAPPER(dsygvd)
- extern void dsygvd(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *w,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dsygvx.f */
- #define dsygvx FORTRAN_WRAPPER(dsygvx)
- extern void dsygvx(
- ptrdiff_t *itype,
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: dsyrfs.f */
- #define dsyrfs FORTRAN_WRAPPER(dsyrfs)
- extern void dsyrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dsysv.f */
- #define dsysv FORTRAN_WRAPPER(dsysv)
- extern void dsysv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dsysvx.f */
- #define dsysvx FORTRAN_WRAPPER(dsysvx)
- extern void dsysvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dsytd2.f */
- #define dsytd2 FORTRAN_WRAPPER(dsytd2)
- extern void dsytd2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tau,
- ptrdiff_t *info
- );
- /* Source: dsytf2.f */
- #define dsytf2 FORTRAN_WRAPPER(dsytf2)
- extern void dsytf2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: dsytrd.f */
- #define dsytrd FORTRAN_WRAPPER(dsytrd)
- extern void dsytrd(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dsytrf.f */
- #define dsytrf FORTRAN_WRAPPER(dsytrf)
- extern void dsytrf(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dsytri.f */
- #define dsytri FORTRAN_WRAPPER(dsytri)
- extern void dsytri(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dsytrs.f */
- #define dsytrs FORTRAN_WRAPPER(dsytrs)
- extern void dsytrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dtbcon.f */
- #define dtbcon FORTRAN_WRAPPER(dtbcon)
- extern void dtbcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dtbrfs.f */
- #define dtbrfs FORTRAN_WRAPPER(dtbrfs)
- extern void dtbrfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dtbtrs.f */
- #define dtbtrs FORTRAN_WRAPPER(dtbtrs)
- extern void dtbtrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dtfsm.f */
- #define dtfsm FORTRAN_WRAPPER(dtfsm)
- extern void dtfsm(
- char *transr,
- char *side,
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *alpha,
- double *a,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: dtftri.f */
- #define dtftri FORTRAN_WRAPPER(dtftri)
- extern void dtftri(
- char *transr,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *info
- );
- /* Source: dtfttp.f */
- #define dtfttp FORTRAN_WRAPPER(dtfttp)
- extern void dtfttp(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *arf,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: dtfttr.f */
- #define dtfttr FORTRAN_WRAPPER(dtfttr)
- extern void dtfttr(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *arf,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dtgevc.f */
- #define dtgevc FORTRAN_WRAPPER(dtgevc)
- extern void dtgevc(
- char *side,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *s,
- ptrdiff_t *lds,
- double *p,
- ptrdiff_t *ldp,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dtgex2.f */
- #define dtgex2 FORTRAN_WRAPPER(dtgex2)
- extern void dtgex2(
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *j1_,
- ptrdiff_t *n1,
- ptrdiff_t *n2,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dtgexc.f */
- #define dtgexc FORTRAN_WRAPPER(dtgexc)
- extern void dtgexc(
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ifst,
- ptrdiff_t *ilst,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dtgsen.f */
- #define dtgsen FORTRAN_WRAPPER(dtgsen)
- extern void dtgsen(
- ptrdiff_t *ijob,
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alphar,
- double *alphai,
- double *beta,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *m,
- double *pl,
- double *pr,
- double *dif,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dtgsja.f */
- #define dtgsja FORTRAN_WRAPPER(dtgsja)
- extern void dtgsja(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *tola,
- double *tolb,
- double *alpha,
- double *beta,
- double *u,
- ptrdiff_t *ldu,
- double *v,
- ptrdiff_t *ldv,
- double *q,
- ptrdiff_t *ldq,
- double *work,
- ptrdiff_t *ncycle,
- ptrdiff_t *info
- );
- /* Source: dtgsna.f */
- #define dtgsna FORTRAN_WRAPPER(dtgsna)
- extern void dtgsna(
- char *job,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *s,
- double *dif,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dtgsy2.f */
- #define dtgsy2 FORTRAN_WRAPPER(dtgsy2)
- extern void dtgsy2(
- char *trans,
- ptrdiff_t *ijob,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- ptrdiff_t *ldc,
- double *d,
- ptrdiff_t *ldd,
- double *e,
- ptrdiff_t *lde,
- double *f,
- ptrdiff_t *ldf,
- double *scale,
- double *rdsum,
- double *rdscal,
- ptrdiff_t *iwork,
- ptrdiff_t *pq,
- ptrdiff_t *info
- );
- /* Source: dtgsyl.f */
- #define dtgsyl FORTRAN_WRAPPER(dtgsyl)
- extern void dtgsyl(
- char *trans,
- ptrdiff_t *ijob,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- ptrdiff_t *ldc,
- double *d,
- ptrdiff_t *ldd,
- double *e,
- ptrdiff_t *lde,
- double *f,
- ptrdiff_t *ldf,
- double *scale,
- double *dif,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dtpcon.f */
- #define dtpcon FORTRAN_WRAPPER(dtpcon)
- extern void dtpcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *ap,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dtprfs.f */
- #define dtprfs FORTRAN_WRAPPER(dtprfs)
- extern void dtprfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dtptri.f */
- #define dtptri FORTRAN_WRAPPER(dtptri)
- extern void dtptri(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: dtptrs.f */
- #define dtptrs FORTRAN_WRAPPER(dtptrs)
- extern void dtptrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dtpttf.f */
- #define dtpttf FORTRAN_WRAPPER(dtpttf)
- extern void dtpttf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *arf,
- ptrdiff_t *info
- );
- /* Source: dtpttr.f */
- #define dtpttr FORTRAN_WRAPPER(dtpttr)
- extern void dtpttr(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dtrcon.f */
- #define dtrcon FORTRAN_WRAPPER(dtrcon)
- extern void dtrcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *rcond,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dtrevc.f */
- #define dtrevc FORTRAN_WRAPPER(dtrevc)
- extern void dtrevc(
- char *side,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dtrexc.f */
- #define dtrexc FORTRAN_WRAPPER(dtrexc)
- extern void dtrexc(
- char *compq,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *q,
- ptrdiff_t *ldq,
- ptrdiff_t *ifst,
- ptrdiff_t *ilst,
- double *work,
- ptrdiff_t *info
- );
- /* Source: dtrrfs.f */
- #define dtrrfs FORTRAN_WRAPPER(dtrrfs)
- extern void dtrrfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dtrsen.f */
- #define dtrsen FORTRAN_WRAPPER(dtrsen)
- extern void dtrsen(
- char *job,
- char *compq,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *q,
- ptrdiff_t *ldq,
- double *wr,
- double *wi,
- ptrdiff_t *m,
- double *s,
- double *sep,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: dtrsna.f */
- #define dtrsna FORTRAN_WRAPPER(dtrsna)
- extern void dtrsna(
- char *job,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *s,
- double *sep,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- ptrdiff_t *ldwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: dtrsyl.f */
- #define dtrsyl FORTRAN_WRAPPER(dtrsyl)
- extern void dtrsyl(
- char *trana,
- char *tranb,
- ptrdiff_t *isgn,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- ptrdiff_t *ldc,
- double *scale,
- ptrdiff_t *info
- );
- /* Source: dtrti2.f */
- #define dtrti2 FORTRAN_WRAPPER(dtrti2)
- extern void dtrti2(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dtrtri.f */
- #define dtrtri FORTRAN_WRAPPER(dtrtri)
- extern void dtrtri(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: dtrtrs.f */
- #define dtrtrs FORTRAN_WRAPPER(dtrtrs)
- extern void dtrtrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: dtrttf.f */
- #define dtrttf FORTRAN_WRAPPER(dtrttf)
- extern void dtrttf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *arf,
- ptrdiff_t *info
- );
- /* Source: dtrttp.f */
- #define dtrttp FORTRAN_WRAPPER(dtrttp)
- extern void dtrttp(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: dtzrqf.f */
- #define dtzrqf FORTRAN_WRAPPER(dtzrqf)
- extern void dtzrqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- ptrdiff_t *info
- );
- /* Source: dtzrzf.f */
- #define dtzrzf FORTRAN_WRAPPER(dtzrzf)
- extern void dtzrzf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: dzsum1.f */
- #define dzsum1 FORTRAN_WRAPPER(dzsum1)
- extern double dzsum1(
- ptrdiff_t *n,
- double *cx,
- ptrdiff_t *incx
- );
- /* Source: icmax1.f */
- #define icmax1 FORTRAN_WRAPPER(icmax1)
- extern ptrdiff_t icmax1(
- ptrdiff_t *n,
- float *cx,
- ptrdiff_t *incx
- );
- /* Source: ieeeck.f */
- #define ieeeck FORTRAN_WRAPPER(ieeeck)
- extern ptrdiff_t ieeeck(
- ptrdiff_t *ispec,
- float *zero,
- float *one
- );
- /* Source: ilaclc.f */
- #define ilaclc FORTRAN_WRAPPER(ilaclc)
- extern ptrdiff_t ilaclc(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda
- );
- /* Source: ilaclr.f */
- #define ilaclr FORTRAN_WRAPPER(ilaclr)
- extern ptrdiff_t ilaclr(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda
- );
- /* Source: iladiag.f */
- #define iladiag FORTRAN_WRAPPER(iladiag)
- extern ptrdiff_t iladiag(
- char *diag
- );
- /* Source: iladlc.f */
- #define iladlc FORTRAN_WRAPPER(iladlc)
- extern ptrdiff_t iladlc(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda
- );
- /* Source: iladlr.f */
- #define iladlr FORTRAN_WRAPPER(iladlr)
- extern ptrdiff_t iladlr(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda
- );
- /* Source: ilaenv.f */
- #define ilaenv FORTRAN_WRAPPER(ilaenv)
- extern ptrdiff_t ilaenv(
- ptrdiff_t *ispec,
- char *name,
- char *opts,
- ptrdiff_t *n1,
- ptrdiff_t *n2,
- ptrdiff_t *n3,
- ptrdiff_t *n4,
- ptrdiff_t name_len,
- ptrdiff_t opts_len
- );
- /* Source: ilaprec.f */
- #define ilaprec FORTRAN_WRAPPER(ilaprec)
- extern ptrdiff_t ilaprec(
- char *prec
- );
- /* Source: ilaslc.f */
- #define ilaslc FORTRAN_WRAPPER(ilaslc)
- extern ptrdiff_t ilaslc(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda
- );
- /* Source: ilaslr.f */
- #define ilaslr FORTRAN_WRAPPER(ilaslr)
- extern ptrdiff_t ilaslr(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda
- );
- /* Source: ilatrans.f */
- #define ilatrans FORTRAN_WRAPPER(ilatrans)
- extern ptrdiff_t ilatrans(
- char *trans
- );
- /* Source: ilauplo.f */
- #define ilauplo FORTRAN_WRAPPER(ilauplo)
- extern ptrdiff_t ilauplo(
- char *uplo
- );
- /* Source: ilaver.f */
- #define ilaver FORTRAN_WRAPPER(ilaver)
- extern void ilaver(
- ptrdiff_t *vers_major,
- ptrdiff_t *vers_minor,
- ptrdiff_t *vers_patch
- );
- /* Source: ilazlc.f */
- #define ilazlc FORTRAN_WRAPPER(ilazlc)
- extern ptrdiff_t ilazlc(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda
- );
- /* Source: ilazlr.f */
- #define ilazlr FORTRAN_WRAPPER(ilazlr)
- extern ptrdiff_t ilazlr(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda
- );
- /* Source: iparmq.f */
- #define iparmq FORTRAN_WRAPPER(iparmq)
- extern ptrdiff_t iparmq(
- ptrdiff_t *ispec,
- char *name,
- char *opts,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- ptrdiff_t *lwork
- );
- /* Source: izmax1.f */
- #define izmax1 FORTRAN_WRAPPER(izmax1)
- extern ptrdiff_t izmax1(
- ptrdiff_t *n,
- double *cx,
- ptrdiff_t *incx
- );
- /* Source: lsamen.f */
- #define lsamen FORTRAN_WRAPPER(lsamen)
- extern ptrdiff_t lsamen(
- ptrdiff_t *n,
- char *ca,
- char *cb,
- ptrdiff_t ca_len,
- ptrdiff_t cb_len
- );
- /* Source: sbdsdc.f */
- #define sbdsdc FORTRAN_WRAPPER(sbdsdc)
- extern void sbdsdc(
- char *uplo,
- char *compq,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *ldvt,
- float *q,
- ptrdiff_t *iq,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sbdsqr.f */
- #define sbdsqr FORTRAN_WRAPPER(sbdsqr)
- extern void sbdsqr(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ncvt,
- ptrdiff_t *nru,
- ptrdiff_t *ncc,
- float *d,
- float *e,
- float *vt,
- ptrdiff_t *ldvt,
- float *u,
- ptrdiff_t *ldu,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: scsum1.f */
- #define scsum1 FORTRAN_WRAPPER(scsum1)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double scsum1(
- #else
- extern float scsum1(
- #endif
- ptrdiff_t *n,
- float *cx,
- ptrdiff_t *incx
- );
- /* Source: sdisna.f */
- #define sdisna FORTRAN_WRAPPER(sdisna)
- extern void sdisna(
- char *job,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *d,
- float *sep,
- ptrdiff_t *info
- );
- /* Source: sgbbrd.f */
- #define sgbbrd FORTRAN_WRAPPER(sgbbrd)
- extern void sgbbrd(
- char *vect,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *ncc,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *d,
- float *e,
- float *q,
- ptrdiff_t *ldq,
- float *pt,
- ptrdiff_t *ldpt,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgbcon.f */
- #define sgbcon FORTRAN_WRAPPER(sgbcon)
- extern void sgbcon(
- char *norm,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgbequ.f */
- #define sgbequ FORTRAN_WRAPPER(sgbequ)
- extern void sgbequ(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: sgbequb.f */
- #define sgbequb FORTRAN_WRAPPER(sgbequb)
- extern void sgbequb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: sgbrfs.f */
- #define sgbrfs FORTRAN_WRAPPER(sgbrfs)
- extern void sgbrfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *afb,
- ptrdiff_t *ldafb,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgbsv.f */
- #define sgbsv FORTRAN_WRAPPER(sgbsv)
- extern void sgbsv(
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sgbsvx.f */
- #define sgbsvx FORTRAN_WRAPPER(sgbsvx)
- extern void sgbsvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *afb,
- ptrdiff_t *ldafb,
- ptrdiff_t *ipiv,
- char *equed,
- float *r,
- float *c,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgbtf2.f */
- #define sgbtf2 FORTRAN_WRAPPER(sgbtf2)
- extern void sgbtf2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: sgbtrf.f */
- #define sgbtrf FORTRAN_WRAPPER(sgbtrf)
- extern void sgbtrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: sgbtrs.f */
- #define sgbtrs FORTRAN_WRAPPER(sgbtrs)
- extern void sgbtrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sgebak.f */
- #define sgebak FORTRAN_WRAPPER(sgebak)
- extern void sgebak(
- char *job,
- char *side,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *scale,
- ptrdiff_t *m,
- float *v,
- ptrdiff_t *ldv,
- ptrdiff_t *info
- );
- /* Source: sgebal.f */
- #define sgebal FORTRAN_WRAPPER(sgebal)
- extern void sgebal(
- char *job,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *scale,
- ptrdiff_t *info
- );
- /* Source: sgebd2.f */
- #define sgebd2 FORTRAN_WRAPPER(sgebd2)
- extern void sgebd2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tauq,
- float *taup,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgebrd.f */
- #define sgebrd FORTRAN_WRAPPER(sgebrd)
- extern void sgebrd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tauq,
- float *taup,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgecon.f */
- #define sgecon FORTRAN_WRAPPER(sgecon)
- extern void sgecon(
- char *norm,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgeequ.f */
- #define sgeequ FORTRAN_WRAPPER(sgeequ)
- extern void sgeequ(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: sgeequb.f */
- #define sgeequb FORTRAN_WRAPPER(sgeequb)
- extern void sgeequb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: sgees.f */
- #define sgees FORTRAN_WRAPPER(sgees)
- extern void sgees(
- char *jobvs,
- char *sort,
- ptrdiff_t (*select)(),
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *sdim,
- float *wr,
- float *wi,
- float *vs,
- ptrdiff_t *ldvs,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: sgeesx.f */
- #define sgeesx FORTRAN_WRAPPER(sgeesx)
- extern void sgeesx(
- char *jobvs,
- char *sort,
- ptrdiff_t (*select)(),
- char *sense,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *sdim,
- float *wr,
- float *wi,
- float *vs,
- ptrdiff_t *ldvs,
- float *rconde,
- float *rcondv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: sgeev.f */
- #define sgeev FORTRAN_WRAPPER(sgeev)
- extern void sgeev(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *wr,
- float *wi,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgeevx.f */
- #define sgeevx FORTRAN_WRAPPER(sgeevx)
- extern void sgeevx(
- char *balanc,
- char *jobvl,
- char *jobvr,
- char *sense,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *wr,
- float *wi,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *scale,
- float *abnrm,
- float *rconde,
- float *rcondv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgegs.f */
- #define sgegs FORTRAN_WRAPPER(sgegs)
- extern void sgegs(
- char *jobvsl,
- char *jobvsr,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alphar,
- float *alphai,
- float *beta,
- float *vsl,
- ptrdiff_t *ldvsl,
- float *vsr,
- ptrdiff_t *ldvsr,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgegv.f */
- #define sgegv FORTRAN_WRAPPER(sgegv)
- extern void sgegv(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alphar,
- float *alphai,
- float *beta,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgehd2.f */
- #define sgehd2 FORTRAN_WRAPPER(sgehd2)
- extern void sgehd2(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgehrd.f */
- #define sgehrd FORTRAN_WRAPPER(sgehrd)
- extern void sgehrd(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgejsv.f */
- #define sgejsv FORTRAN_WRAPPER(sgejsv)
- extern void sgejsv(
- char *joba,
- char *jobu,
- char *jobv,
- char *jobr,
- char *jobt,
- char *jobp,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *sva,
- float *u,
- ptrdiff_t *ldu,
- float *v,
- ptrdiff_t *ldv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgelq2.f */
- #define sgelq2 FORTRAN_WRAPPER(sgelq2)
- extern void sgelq2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgelqf.f */
- #define sgelqf FORTRAN_WRAPPER(sgelqf)
- extern void sgelqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgels.f */
- #define sgels FORTRAN_WRAPPER(sgels)
- extern void sgels(
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgelsd.f */
- #define sgelsd FORTRAN_WRAPPER(sgelsd)
- extern void sgelsd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *s,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgelss.f */
- #define sgelss FORTRAN_WRAPPER(sgelss)
- extern void sgelss(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *s,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgelsx.f */
- #define sgelsx FORTRAN_WRAPPER(sgelsx)
- extern void sgelsx(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *jpvt,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgelsy.f */
- #define sgelsy FORTRAN_WRAPPER(sgelsy)
- extern void sgelsy(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *jpvt,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgeql2.f */
- #define sgeql2 FORTRAN_WRAPPER(sgeql2)
- extern void sgeql2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgeqlf.f */
- #define sgeqlf FORTRAN_WRAPPER(sgeqlf)
- extern void sgeqlf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgeqp3.f */
- #define sgeqp3 FORTRAN_WRAPPER(sgeqp3)
- extern void sgeqp3(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgeqpf.f */
- #define sgeqpf FORTRAN_WRAPPER(sgeqpf)
- extern void sgeqpf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgeqr2.f */
- #define sgeqr2 FORTRAN_WRAPPER(sgeqr2)
- extern void sgeqr2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgeqrf.f */
- #define sgeqrf FORTRAN_WRAPPER(sgeqrf)
- extern void sgeqrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgerfs.f */
- #define sgerfs FORTRAN_WRAPPER(sgerfs)
- extern void sgerfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgerq2.f */
- #define sgerq2 FORTRAN_WRAPPER(sgerq2)
- extern void sgerq2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgerqf.f */
- #define sgerqf FORTRAN_WRAPPER(sgerqf)
- extern void sgerqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgesc2.f */
- #define sgesc2 FORTRAN_WRAPPER(sgesc2)
- extern void sgesc2(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *rhs,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv,
- float *scale
- );
- /* Source: sgesdd.f */
- #define sgesdd FORTRAN_WRAPPER(sgesdd)
- extern void sgesdd(
- char *jobz,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *ldvt,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgesv.f */
- #define sgesv FORTRAN_WRAPPER(sgesv)
- extern void sgesv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sgesvd.f */
- #define sgesvd FORTRAN_WRAPPER(sgesvd)
- extern void sgesvd(
- char *jobu,
- char *jobvt,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *ldvt,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgesvj.f */
- #define sgesvj FORTRAN_WRAPPER(sgesvj)
- extern void sgesvj(
- char *joba,
- char *jobu,
- char *jobv,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *sva,
- ptrdiff_t *mv,
- float *v,
- ptrdiff_t *ldv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgesvx.f */
- #define sgesvx FORTRAN_WRAPPER(sgesvx)
- extern void sgesvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- char *equed,
- float *r,
- float *c,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgetc2.f */
- #define sgetc2 FORTRAN_WRAPPER(sgetc2)
- extern void sgetc2(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv,
- ptrdiff_t *info
- );
- /* Source: sgetf2.f */
- #define sgetf2 FORTRAN_WRAPPER(sgetf2)
- extern void sgetf2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: sgetrf.f */
- #define sgetrf FORTRAN_WRAPPER(sgetrf)
- extern void sgetrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: sgetri.f */
- #define sgetri FORTRAN_WRAPPER(sgetri)
- extern void sgetri(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgetrs.f */
- #define sgetrs FORTRAN_WRAPPER(sgetrs)
- extern void sgetrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sggbak.f */
- #define sggbak FORTRAN_WRAPPER(sggbak)
- extern void sggbak(
- char *job,
- char *side,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *lscale,
- float *rscale,
- ptrdiff_t *m,
- float *v,
- ptrdiff_t *ldv,
- ptrdiff_t *info
- );
- /* Source: sggbal.f */
- #define sggbal FORTRAN_WRAPPER(sggbal)
- extern void sggbal(
- char *job,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *lscale,
- float *rscale,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgges.f */
- #define sgges FORTRAN_WRAPPER(sgges)
- extern void sgges(
- char *jobvsl,
- char *jobvsr,
- char *sort,
- ptrdiff_t (*selctg)(),
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *sdim,
- float *alphar,
- float *alphai,
- float *beta,
- float *vsl,
- ptrdiff_t *ldvsl,
- float *vsr,
- ptrdiff_t *ldvsr,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: sggesx.f */
- #define sggesx FORTRAN_WRAPPER(sggesx)
- extern void sggesx(
- char *jobvsl,
- char *jobvsr,
- char *sort,
- ptrdiff_t (*selctg)(),
- char *sense,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *sdim,
- float *alphar,
- float *alphai,
- float *beta,
- float *vsl,
- ptrdiff_t *ldvsl,
- float *vsr,
- ptrdiff_t *ldvsr,
- float *rconde,
- float *rcondv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: sggev.f */
- #define sggev FORTRAN_WRAPPER(sggev)
- extern void sggev(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alphar,
- float *alphai,
- float *beta,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sggevx.f */
- #define sggevx FORTRAN_WRAPPER(sggevx)
- extern void sggevx(
- char *balanc,
- char *jobvl,
- char *jobvr,
- char *sense,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alphar,
- float *alphai,
- float *beta,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *lscale,
- float *rscale,
- float *abnrm,
- float *bbnrm,
- float *rconde,
- float *rcondv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: sggglm.f */
- #define sggglm FORTRAN_WRAPPER(sggglm)
- extern void sggglm(
- ptrdiff_t *n,
- ptrdiff_t *m,
- ptrdiff_t *p,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *d,
- float *x,
- float *y,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgghrd.f */
- #define sgghrd FORTRAN_WRAPPER(sgghrd)
- extern void sgghrd(
- char *compq,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *info
- );
- /* Source: sgglse.f */
- #define sgglse FORTRAN_WRAPPER(sgglse)
- extern void sgglse(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *p,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- float *d,
- float *x,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sggqrf.f */
- #define sggqrf FORTRAN_WRAPPER(sggqrf)
- extern void sggqrf(
- ptrdiff_t *n,
- ptrdiff_t *m,
- ptrdiff_t *p,
- float *a,
- ptrdiff_t *lda,
- float *taua,
- float *b,
- ptrdiff_t *ldb,
- float *taub,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sggrqf.f */
- #define sggrqf FORTRAN_WRAPPER(sggrqf)
- extern void sggrqf(
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *taua,
- float *b,
- ptrdiff_t *ldb,
- float *taub,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sggsvd.f */
- #define sggsvd FORTRAN_WRAPPER(sggsvd)
- extern void sggsvd(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *p,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alpha,
- float *beta,
- float *u,
- ptrdiff_t *ldu,
- float *v,
- ptrdiff_t *ldv,
- float *q,
- ptrdiff_t *ldq,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sggsvp.f */
- #define sggsvp FORTRAN_WRAPPER(sggsvp)
- extern void sggsvp(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *tola,
- float *tolb,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *u,
- ptrdiff_t *ldu,
- float *v,
- ptrdiff_t *ldv,
- float *q,
- ptrdiff_t *ldq,
- ptrdiff_t *iwork,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sgsvj0.f */
- #define sgsvj0 FORTRAN_WRAPPER(sgsvj0)
- extern void sgsvj0(
- char *jobv,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *sva,
- ptrdiff_t *mv,
- float *v,
- ptrdiff_t *ldv,
- float *eps,
- float *sfmin,
- float *tol,
- ptrdiff_t *nsweep,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgsvj1.f */
- #define sgsvj1 FORTRAN_WRAPPER(sgsvj1)
- extern void sgsvj1(
- char *jobv,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *n1,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *sva,
- ptrdiff_t *mv,
- float *v,
- ptrdiff_t *ldv,
- float *eps,
- float *sfmin,
- float *tol,
- ptrdiff_t *nsweep,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sgtcon.f */
- #define sgtcon FORTRAN_WRAPPER(sgtcon)
- extern void sgtcon(
- char *norm,
- ptrdiff_t *n,
- float *dl,
- float *d,
- float *du,
- float *du2,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgtrfs.f */
- #define sgtrfs FORTRAN_WRAPPER(sgtrfs)
- extern void sgtrfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *dlf,
- float *df,
- float *duf,
- float *du2,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgtsv.f */
- #define sgtsv FORTRAN_WRAPPER(sgtsv)
- extern void sgtsv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sgtsvx.f */
- #define sgtsvx FORTRAN_WRAPPER(sgtsvx)
- extern void sgtsvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *dlf,
- float *df,
- float *duf,
- float *du2,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sgttrf.f */
- #define sgttrf FORTRAN_WRAPPER(sgttrf)
- extern void sgttrf(
- ptrdiff_t *n,
- float *dl,
- float *d,
- float *du,
- float *du2,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: sgttrs.f */
- #define sgttrs FORTRAN_WRAPPER(sgttrs)
- extern void sgttrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *du2,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sgtts2.f */
- #define sgtts2 FORTRAN_WRAPPER(sgtts2)
- extern void sgtts2(
- ptrdiff_t *itrans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *dl,
- float *d,
- float *du,
- float *du2,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: shgeqz.f */
- #define shgeqz FORTRAN_WRAPPER(shgeqz)
- extern void shgeqz(
- char *job,
- char *compq,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *t,
- ptrdiff_t *ldt,
- float *alphar,
- float *alphai,
- float *beta,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: shsein.f */
- #define shsein FORTRAN_WRAPPER(shsein)
- extern void shsein(
- char *side,
- char *eigsrc,
- char *initv,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *h,
- ptrdiff_t *ldh,
- float *wr,
- float *wi,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- ptrdiff_t *ifaill,
- ptrdiff_t *ifailr,
- ptrdiff_t *info
- );
- /* Source: shseqr.f */
- #define shseqr FORTRAN_WRAPPER(shseqr)
- extern void shseqr(
- char *job,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *wr,
- float *wi,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sisnan.f */
- #define sisnan FORTRAN_WRAPPER(sisnan)
- extern ptrdiff_t sisnan(
- float *sin
- );
- /* Source: slabad.f */
- #define slabad FORTRAN_WRAPPER(slabad)
- extern void slabad(
- float *small,
- float *large
- );
- /* Source: slabrd.f */
- #define slabrd FORTRAN_WRAPPER(slabrd)
- extern void slabrd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tauq,
- float *taup,
- float *x,
- ptrdiff_t *ldx,
- float *y,
- ptrdiff_t *ldy
- );
- /* Source: slacn2.f */
- #define slacn2 FORTRAN_WRAPPER(slacn2)
- extern void slacn2(
- ptrdiff_t *n,
- float *v,
- float *x,
- ptrdiff_t *isgn,
- float *est,
- ptrdiff_t *kase,
- ptrdiff_t *isave
- );
- /* Source: slacon.f */
- #define slacon FORTRAN_WRAPPER(slacon)
- extern void slacon(
- ptrdiff_t *n,
- float *v,
- float *x,
- ptrdiff_t *isgn,
- float *est,
- ptrdiff_t *kase
- );
- /* Source: slacpy.f */
- #define slacpy FORTRAN_WRAPPER(slacpy)
- extern void slacpy(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: sladiv.f */
- #define sladiv FORTRAN_WRAPPER(sladiv)
- extern void sladiv(
- float *a,
- float *b,
- float *c,
- float *d,
- float *p,
- float *q
- );
- /* Source: slae2.f */
- #define slae2 FORTRAN_WRAPPER(slae2)
- extern void slae2(
- float *a,
- float *b,
- float *c,
- float *rt1,
- float *rt2
- );
- /* Source: slaebz.f */
- #define slaebz FORTRAN_WRAPPER(slaebz)
- extern void slaebz(
- ptrdiff_t *ijob,
- ptrdiff_t *nitmax,
- ptrdiff_t *n,
- ptrdiff_t *mmax,
- ptrdiff_t *minp,
- ptrdiff_t *nbmin,
- float *abstol,
- float *reltol,
- float *pivmin,
- float *d,
- float *e,
- float *e2,
- ptrdiff_t *nval,
- float *ab,
- float *c,
- ptrdiff_t *mout,
- ptrdiff_t *nab,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slaed0.f */
- #define slaed0 FORTRAN_WRAPPER(slaed0)
- extern void slaed0(
- ptrdiff_t *icompq,
- ptrdiff_t *qsiz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *q,
- ptrdiff_t *ldq,
- float *qstore,
- ptrdiff_t *ldqs,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slaed1.f */
- #define slaed1 FORTRAN_WRAPPER(slaed1)
- extern void slaed1(
- ptrdiff_t *n,
- float *d,
- float *q,
- ptrdiff_t *ldq,
- ptrdiff_t *indxq,
- float *rho,
- ptrdiff_t *cutpnt,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slaed2.f */
- #define slaed2 FORTRAN_WRAPPER(slaed2)
- extern void slaed2(
- ptrdiff_t *k,
- ptrdiff_t *n,
- ptrdiff_t *n1,
- float *d,
- float *q,
- ptrdiff_t *ldq,
- ptrdiff_t *indxq,
- float *rho,
- float *z,
- float *dlamda,
- float *w,
- float *q2,
- ptrdiff_t *indx,
- ptrdiff_t *indxc,
- ptrdiff_t *indxp,
- ptrdiff_t *coltyp,
- ptrdiff_t *info
- );
- /* Source: slaed3.f */
- #define slaed3 FORTRAN_WRAPPER(slaed3)
- extern void slaed3(
- ptrdiff_t *k,
- ptrdiff_t *n,
- ptrdiff_t *n1,
- float *d,
- float *q,
- ptrdiff_t *ldq,
- float *rho,
- float *dlamda,
- float *q2,
- ptrdiff_t *indx,
- ptrdiff_t *ctot,
- float *w,
- float *s,
- ptrdiff_t *info
- );
- /* Source: slaed4.f */
- #define slaed4 FORTRAN_WRAPPER(slaed4)
- extern void slaed4(
- ptrdiff_t *n,
- ptrdiff_t *i,
- float *d,
- float *z,
- float *delta,
- float *rho,
- float *dlam,
- ptrdiff_t *info
- );
- /* Source: slaed5.f */
- #define slaed5 FORTRAN_WRAPPER(slaed5)
- extern void slaed5(
- ptrdiff_t *i,
- float *d,
- float *z,
- float *delta,
- float *rho,
- float *dlam
- );
- /* Source: slaed6.f */
- #define slaed6 FORTRAN_WRAPPER(slaed6)
- extern void slaed6(
- ptrdiff_t *kniter,
- ptrdiff_t *orgati,
- float *rho,
- float *d,
- float *z,
- float *finit,
- float *tau,
- ptrdiff_t *info
- );
- /* Source: slaed7.f */
- #define slaed7 FORTRAN_WRAPPER(slaed7)
- extern void slaed7(
- ptrdiff_t *icompq,
- ptrdiff_t *n,
- ptrdiff_t *qsiz,
- ptrdiff_t *tlvls,
- ptrdiff_t *curlvl,
- ptrdiff_t *curpbm,
- float *d,
- float *q,
- ptrdiff_t *ldq,
- ptrdiff_t *indxq,
- float *rho,
- ptrdiff_t *cutpnt,
- float *qstore,
- ptrdiff_t *qptr,
- ptrdiff_t *prmptr,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- float *givnum,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slaed8.f */
- #define slaed8 FORTRAN_WRAPPER(slaed8)
- extern void slaed8(
- ptrdiff_t *icompq,
- ptrdiff_t *k,
- ptrdiff_t *n,
- ptrdiff_t *qsiz,
- float *d,
- float *q,
- ptrdiff_t *ldq,
- ptrdiff_t *indxq,
- float *rho,
- ptrdiff_t *cutpnt,
- float *z,
- float *dlamda,
- float *q2,
- ptrdiff_t *ldq2,
- float *w,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- float *givnum,
- ptrdiff_t *indxp,
- ptrdiff_t *indx,
- ptrdiff_t *info
- );
- /* Source: slaed9.f */
- #define slaed9 FORTRAN_WRAPPER(slaed9)
- extern void slaed9(
- ptrdiff_t *k,
- ptrdiff_t *kstart,
- ptrdiff_t *kstop,
- ptrdiff_t *n,
- float *d,
- float *q,
- ptrdiff_t *ldq,
- float *rho,
- float *dlamda,
- float *w,
- float *s,
- ptrdiff_t *lds,
- ptrdiff_t *info
- );
- /* Source: slaeda.f */
- #define slaeda FORTRAN_WRAPPER(slaeda)
- extern void slaeda(
- ptrdiff_t *n,
- ptrdiff_t *tlvls,
- ptrdiff_t *curlvl,
- ptrdiff_t *curpbm,
- ptrdiff_t *prmptr,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- float *givnum,
- float *q,
- ptrdiff_t *qptr,
- float *z,
- float *ztemp,
- ptrdiff_t *info
- );
- /* Source: slaein.f */
- #define slaein FORTRAN_WRAPPER(slaein)
- extern void slaein(
- ptrdiff_t *rightv,
- ptrdiff_t *noinit,
- ptrdiff_t *n,
- float *h,
- ptrdiff_t *ldh,
- float *wr,
- float *wi,
- float *vr,
- float *vi,
- float *b,
- ptrdiff_t *ldb,
- float *work,
- float *eps3,
- float *smlnum,
- float *bignum,
- ptrdiff_t *info
- );
- /* Source: slaev2.f */
- #define slaev2 FORTRAN_WRAPPER(slaev2)
- extern void slaev2(
- float *a,
- float *b,
- float *c,
- float *rt1,
- float *rt2,
- float *cs1,
- float *sn1
- );
- /* Source: slaexc.f */
- #define slaexc FORTRAN_WRAPPER(slaexc)
- extern void slaexc(
- ptrdiff_t *wantq,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *q,
- ptrdiff_t *ldq,
- ptrdiff_t *j1_,
- ptrdiff_t *n1,
- ptrdiff_t *n2,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slag2.f */
- #define slag2 FORTRAN_WRAPPER(slag2)
- extern void slag2(
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *safmin,
- float *scale1,
- float *scale2,
- float *wr1,
- float *wr2,
- float *wi
- );
- /* Source: slag2d.f */
- #define slag2d FORTRAN_WRAPPER(slag2d)
- extern void slag2d(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *sa,
- ptrdiff_t *ldsa,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: slags2.f */
- #define slags2 FORTRAN_WRAPPER(slags2)
- extern void slags2(
- ptrdiff_t *upper,
- float *a1,
- float *a2,
- float *a3,
- float *b1,
- float *b2,
- float *b3,
- float *csu,
- float *snu,
- float *csv,
- float *snv,
- float *csq,
- float *snq
- );
- /* Source: slagtf.f */
- #define slagtf FORTRAN_WRAPPER(slagtf)
- extern void slagtf(
- ptrdiff_t *n,
- float *a,
- float *lambda,
- float *b,
- float *c,
- float *tol,
- float *d,
- ptrdiff_t *in,
- ptrdiff_t *info
- );
- /* Source: slagtm.f */
- #define slagtm FORTRAN_WRAPPER(slagtm)
- extern void slagtm(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *alpha,
- float *dl,
- float *d,
- float *du,
- float *x,
- ptrdiff_t *ldx,
- float *beta,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: slagts.f */
- #define slagts FORTRAN_WRAPPER(slagts)
- extern void slagts(
- ptrdiff_t *job,
- ptrdiff_t *n,
- float *a,
- float *b,
- float *c,
- float *d,
- ptrdiff_t *in,
- float *y,
- float *tol,
- ptrdiff_t *info
- );
- /* Source: slagv2.f */
- #define slagv2 FORTRAN_WRAPPER(slagv2)
- extern void slagv2(
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alphar,
- float *alphai,
- float *beta,
- float *csl,
- float *snl,
- float *csr,
- float *snr
- );
- /* Source: slahqr.f */
- #define slahqr FORTRAN_WRAPPER(slahqr)
- extern void slahqr(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *wr,
- float *wi,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *info
- );
- /* Source: slahr2.f */
- #define slahr2 FORTRAN_WRAPPER(slahr2)
- extern void slahr2(
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *nb,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *t,
- ptrdiff_t *ldt,
- float *y,
- ptrdiff_t *ldy
- );
- /* Source: slahrd.f */
- #define slahrd FORTRAN_WRAPPER(slahrd)
- extern void slahrd(
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *nb,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *t,
- ptrdiff_t *ldt,
- float *y,
- ptrdiff_t *ldy
- );
- /* Source: slaic1.f */
- #define slaic1 FORTRAN_WRAPPER(slaic1)
- extern void slaic1(
- ptrdiff_t *job,
- ptrdiff_t *j,
- float *x,
- float *sest,
- float *w,
- float *gamma_,
- float *sestpr,
- float *s,
- float *c
- );
- /* Source: slaisnan.f */
- #define slaisnan FORTRAN_WRAPPER(slaisnan)
- extern ptrdiff_t slaisnan(
- float *sin1,
- float *sin2
- );
- /* Source: slaln2.f */
- #define slaln2 FORTRAN_WRAPPER(slaln2)
- extern void slaln2(
- ptrdiff_t *ltrans,
- ptrdiff_t *na,
- ptrdiff_t *nw,
- float *smin,
- float *ca,
- float *a,
- ptrdiff_t *lda,
- float *d1,
- float *d2,
- float *b,
- ptrdiff_t *ldb,
- float *wr,
- float *wi,
- float *x,
- ptrdiff_t *ldx,
- float *scale,
- float *xnorm,
- ptrdiff_t *info
- );
- /* Source: slals0.f */
- #define slals0 FORTRAN_WRAPPER(slals0)
- extern void slals0(
- ptrdiff_t *icompq,
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *nrhs,
- float *b,
- ptrdiff_t *ldb,
- float *bx,
- ptrdiff_t *ldbx,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- float *givnum,
- ptrdiff_t *ldgnum,
- float *poles,
- float *difl,
- float *difr,
- float *z,
- ptrdiff_t *k,
- float *c,
- float *s,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slalsa.f */
- #define slalsa FORTRAN_WRAPPER(slalsa)
- extern void slalsa(
- ptrdiff_t *icompq,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *b,
- ptrdiff_t *ldb,
- float *bx,
- ptrdiff_t *ldbx,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *k,
- float *difl,
- float *difr,
- float *z,
- float *poles,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- ptrdiff_t *perm,
- float *givnum,
- float *c,
- float *s,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slalsd.f */
- #define slalsd FORTRAN_WRAPPER(slalsd)
- extern void slalsd(
- char *uplo,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *b,
- ptrdiff_t *ldb,
- float *rcond,
- ptrdiff_t *rank,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slamrg.f */
- #define slamrg FORTRAN_WRAPPER(slamrg)
- extern void slamrg(
- ptrdiff_t *n1,
- ptrdiff_t *n2,
- float *a,
- ptrdiff_t *strd1,
- ptrdiff_t *strd2,
- ptrdiff_t *index
- );
- /* Source: slaneg.f */
- #define slaneg FORTRAN_WRAPPER(slaneg)
- extern ptrdiff_t slaneg(
- ptrdiff_t *n,
- float *d,
- float *lld,
- float *sigma,
- float *pivmin,
- ptrdiff_t *r
- );
- /* Source: slangb.f */
- #define slangb FORTRAN_WRAPPER(slangb)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slangb(
- #else
- extern float slangb(
- #endif
- char *norm,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *work
- );
- /* Source: slange.f */
- #define slange FORTRAN_WRAPPER(slange)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slange(
- #else
- extern float slange(
- #endif
- char *norm,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *work
- );
- /* Source: slangt.f */
- #define slangt FORTRAN_WRAPPER(slangt)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slangt(
- #else
- extern float slangt(
- #endif
- char *norm,
- ptrdiff_t *n,
- float *dl,
- float *d,
- float *du
- );
- /* Source: slanhs.f */
- #define slanhs FORTRAN_WRAPPER(slanhs)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slanhs(
- #else
- extern float slanhs(
- #endif
- char *norm,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *work
- );
- /* Source: slansb.f */
- #define slansb FORTRAN_WRAPPER(slansb)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slansb(
- #else
- extern float slansb(
- #endif
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *ab,
- ptrdiff_t *ldab,
- float *work
- );
- /* Source: slansf.f */
- #define slansf FORTRAN_WRAPPER(slansf)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slansf(
- #else
- extern float slansf(
- #endif
- char *norm,
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- float *work
- );
- /* Source: slansp.f */
- #define slansp FORTRAN_WRAPPER(slansp)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slansp(
- #else
- extern float slansp(
- #endif
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *work
- );
- /* Source: slanst.f */
- #define slanst FORTRAN_WRAPPER(slanst)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slanst(
- #else
- extern float slanst(
- #endif
- char *norm,
- ptrdiff_t *n,
- float *d,
- float *e
- );
- /* Source: slansy.f */
- #define slansy FORTRAN_WRAPPER(slansy)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slansy(
- #else
- extern float slansy(
- #endif
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *work
- );
- /* Source: slantb.f */
- #define slantb FORTRAN_WRAPPER(slantb)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slantb(
- #else
- extern float slantb(
- #endif
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *ab,
- ptrdiff_t *ldab,
- float *work
- );
- /* Source: slantp.f */
- #define slantp FORTRAN_WRAPPER(slantp)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slantp(
- #else
- extern float slantp(
- #endif
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *ap,
- float *work
- );
- /* Source: slantr.f */
- #define slantr FORTRAN_WRAPPER(slantr)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slantr(
- #else
- extern float slantr(
- #endif
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *work
- );
- /* Source: slanv2.f */
- #define slanv2 FORTRAN_WRAPPER(slanv2)
- extern void slanv2(
- float *a,
- float *b,
- float *c,
- float *d,
- float *rt1r,
- float *rt1i,
- float *rt2r,
- float *rt2i,
- float *cs,
- float *sn
- );
- /* Source: slapll.f */
- #define slapll FORTRAN_WRAPPER(slapll)
- extern void slapll(
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *incx,
- float *y,
- ptrdiff_t *incy,
- float *ssmin
- );
- /* Source: slapmt.f */
- #define slapmt FORTRAN_WRAPPER(slapmt)
- extern void slapmt(
- ptrdiff_t *forwrd,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *ldx,
- ptrdiff_t *k
- );
- /* Source: slapy2.f */
- #define slapy2 FORTRAN_WRAPPER(slapy2)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slapy2(
- #else
- extern float slapy2(
- #endif
- float *x,
- float *y
- );
- /* Source: slapy3.f */
- #define slapy3 FORTRAN_WRAPPER(slapy3)
- #ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
- extern double slapy3(
- #else
- extern float slapy3(
- #endif
- float *x,
- float *y,
- float *z
- );
- /* Source: slaqgb.f */
- #define slaqgb FORTRAN_WRAPPER(slaqgb)
- extern void slaqgb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *ab,
- ptrdiff_t *ldab,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- char *equed
- );
- /* Source: slaqge.f */
- #define slaqge FORTRAN_WRAPPER(slaqge)
- extern void slaqge(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *r,
- float *c,
- float *rowcnd,
- float *colcnd,
- float *amax,
- char *equed
- );
- /* Source: slaqp2.f */
- #define slaqp2 FORTRAN_WRAPPER(slaqp2)
- extern void slaqp2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *offset,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- float *tau,
- float *vn1,
- float *vn2,
- float *work
- );
- /* Source: slaqps.f */
- #define slaqps FORTRAN_WRAPPER(slaqps)
- extern void slaqps(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *offset,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- float *tau,
- float *vn1,
- float *vn2,
- float *auxv,
- float *f,
- ptrdiff_t *ldf
- );
- /* Source: slaqr0.f */
- #define slaqr0 FORTRAN_WRAPPER(slaqr0)
- extern void slaqr0(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *wr,
- float *wi,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: slaqr1.f */
- #define slaqr1 FORTRAN_WRAPPER(slaqr1)
- extern void slaqr1(
- ptrdiff_t *n,
- float *h,
- ptrdiff_t *ldh,
- float *sr1,
- float *si1,
- float *sr2,
- float *si2,
- float *v
- );
- /* Source: slaqr2.f */
- #define slaqr2 FORTRAN_WRAPPER(slaqr2)
- extern void slaqr2(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nw,
- float *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ns,
- ptrdiff_t *nd,
- float *sr,
- float *si,
- float *v,
- ptrdiff_t *ldv,
- ptrdiff_t *nh,
- float *t,
- ptrdiff_t *ldt,
- ptrdiff_t *nv,
- float *wv,
- ptrdiff_t *ldwv,
- float *work,
- ptrdiff_t *lwork
- );
- /* Source: slaqr3.f */
- #define slaqr3 FORTRAN_WRAPPER(slaqr3)
- extern void slaqr3(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nw,
- float *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ns,
- ptrdiff_t *nd,
- float *sr,
- float *si,
- float *v,
- ptrdiff_t *ldv,
- ptrdiff_t *nh,
- float *t,
- ptrdiff_t *ldt,
- ptrdiff_t *nv,
- float *wv,
- ptrdiff_t *ldwv,
- float *work,
- ptrdiff_t *lwork
- );
- /* Source: slaqr4.f */
- #define slaqr4 FORTRAN_WRAPPER(slaqr4)
- extern void slaqr4(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *h,
- ptrdiff_t *ldh,
- float *wr,
- float *wi,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: slaqr5.f */
- #define slaqr5 FORTRAN_WRAPPER(slaqr5)
- extern void slaqr5(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *kacc22,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nshfts,
- float *sr,
- float *si,
- float *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- float *z,
- ptrdiff_t *ldz,
- float *v,
- ptrdiff_t *ldv,
- float *u,
- ptrdiff_t *ldu,
- ptrdiff_t *nv,
- float *wv,
- ptrdiff_t *ldwv,
- ptrdiff_t *nh,
- float *wh,
- ptrdiff_t *ldwh
- );
- /* Source: slaqsb.f */
- #define slaqsb FORTRAN_WRAPPER(slaqsb)
- extern void slaqsb(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *s,
- float *scond,
- float *amax,
- char *equed
- );
- /* Source: slaqsp.f */
- #define slaqsp FORTRAN_WRAPPER(slaqsp)
- extern void slaqsp(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *s,
- float *scond,
- float *amax,
- char *equed
- );
- /* Source: slaqsy.f */
- #define slaqsy FORTRAN_WRAPPER(slaqsy)
- extern void slaqsy(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- char *equed
- );
- /* Source: slaqtr.f */
- #define slaqtr FORTRAN_WRAPPER(slaqtr)
- extern void slaqtr(
- ptrdiff_t *ltran,
- ptrdiff_t *lreal,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *b,
- float *w,
- float *scale,
- float *x,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slar1v.f */
- #define slar1v FORTRAN_WRAPPER(slar1v)
- extern void slar1v(
- ptrdiff_t *n,
- ptrdiff_t *b1,
- ptrdiff_t *bn,
- float *lambda,
- float *d,
- float *l,
- float *ld,
- float *lld,
- float *pivmin,
- float *gaptol,
- float *z,
- ptrdiff_t *wantnc,
- ptrdiff_t *negcnt,
- float *ztz,
- float *mingma,
- ptrdiff_t *r,
- ptrdiff_t *isuppz,
- float *nrminv,
- float *resid,
- float *rqcorr,
- float *work
- );
- /* Source: slar2v.f */
- #define slar2v FORTRAN_WRAPPER(slar2v)
- extern void slar2v(
- ptrdiff_t *n,
- float *x,
- float *y,
- float *z,
- ptrdiff_t *incx,
- float *c,
- float *s,
- ptrdiff_t *incc
- );
- /* Source: slarf.f */
- #define slarf FORTRAN_WRAPPER(slarf)
- extern void slarf(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *v,
- ptrdiff_t *incv,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work
- );
- /* Source: slarfb.f */
- #define slarfb FORTRAN_WRAPPER(slarfb)
- extern void slarfb(
- char *side,
- char *trans,
- char *direct,
- char *storev,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *v,
- ptrdiff_t *ldv,
- float *t,
- ptrdiff_t *ldt,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *ldwork
- );
- /* Source: slarfg.f */
- #define slarfg FORTRAN_WRAPPER(slarfg)
- extern void slarfg(
- ptrdiff_t *n,
- float *alpha,
- float *x,
- ptrdiff_t *incx,
- float *tau
- );
- /* Source: slarfp.f */
- #define slarfp FORTRAN_WRAPPER(slarfp)
- extern void slarfp(
- ptrdiff_t *n,
- float *alpha,
- float *x,
- ptrdiff_t *incx,
- float *tau
- );
- /* Source: slarft.f */
- #define slarft FORTRAN_WRAPPER(slarft)
- extern void slarft(
- char *direct,
- char *storev,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *v,
- ptrdiff_t *ldv,
- float *tau,
- float *t,
- ptrdiff_t *ldt
- );
- /* Source: slarfx.f */
- #define slarfx FORTRAN_WRAPPER(slarfx)
- extern void slarfx(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *v,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work
- );
- /* Source: slargv.f */
- #define slargv FORTRAN_WRAPPER(slargv)
- extern void slargv(
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *incx,
- float *y,
- ptrdiff_t *incy,
- float *c,
- ptrdiff_t *incc
- );
- /* Source: slarnv.f */
- #define slarnv FORTRAN_WRAPPER(slarnv)
- extern void slarnv(
- ptrdiff_t *idist,
- ptrdiff_t *iseed,
- ptrdiff_t *n,
- float *x
- );
- /* Source: slarra.f */
- #define slarra FORTRAN_WRAPPER(slarra)
- extern void slarra(
- ptrdiff_t *n,
- float *d,
- float *e,
- float *e2,
- float *spltol,
- float *tnrm,
- ptrdiff_t *nsplit,
- ptrdiff_t *isplit,
- ptrdiff_t *info
- );
- /* Source: slarrb.f */
- #define slarrb FORTRAN_WRAPPER(slarrb)
- extern void slarrb(
- ptrdiff_t *n,
- float *d,
- float *lld,
- ptrdiff_t *ifirst,
- ptrdiff_t *ilast,
- float *rtol1,
- float *rtol2,
- ptrdiff_t *offset,
- float *w,
- float *wgap,
- float *werr,
- float *work,
- ptrdiff_t *iwork,
- float *pivmin,
- float *spdiam,
- ptrdiff_t *twist,
- ptrdiff_t *info
- );
- /* Source: slarrc.f */
- #define slarrc FORTRAN_WRAPPER(slarrc)
- extern void slarrc(
- char *jobt,
- ptrdiff_t *n,
- float *vl,
- float *vu,
- float *d,
- float *e,
- float *pivmin,
- ptrdiff_t *eigcnt,
- ptrdiff_t *lcnt,
- ptrdiff_t *rcnt,
- ptrdiff_t *info
- );
- /* Source: slarrd.f */
- #define slarrd FORTRAN_WRAPPER(slarrd)
- extern void slarrd(
- char *range,
- char *order,
- ptrdiff_t *n,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *gers,
- float *reltol,
- float *d,
- float *e,
- float *e2,
- float *pivmin,
- ptrdiff_t *nsplit,
- ptrdiff_t *isplit,
- ptrdiff_t *m,
- float *w,
- float *werr,
- float *wl,
- float *wu,
- ptrdiff_t *iblock,
- ptrdiff_t *indexw,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slarre.f */
- #define slarre FORTRAN_WRAPPER(slarre)
- extern void slarre(
- char *range,
- ptrdiff_t *n,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *d,
- float *e,
- float *e2,
- float *rtol1,
- float *rtol2,
- float *spltol,
- ptrdiff_t *nsplit,
- ptrdiff_t *isplit,
- ptrdiff_t *m,
- float *w,
- float *werr,
- float *wgap,
- ptrdiff_t *iblock,
- ptrdiff_t *indexw,
- float *gers,
- float *pivmin,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slarrf.f */
- #define slarrf FORTRAN_WRAPPER(slarrf)
- extern void slarrf(
- ptrdiff_t *n,
- float *d,
- float *l,
- float *ld,
- ptrdiff_t *clstrt,
- ptrdiff_t *clend,
- float *w,
- float *wgap,
- float *werr,
- float *spdiam,
- float *clgapl,
- float *clgapr,
- float *pivmin,
- float *sigma,
- float *dplus,
- float *lplus,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slarrj.f */
- #define slarrj FORTRAN_WRAPPER(slarrj)
- extern void slarrj(
- ptrdiff_t *n,
- float *d,
- float *e2,
- ptrdiff_t *ifirst,
- ptrdiff_t *ilast,
- float *rtol,
- ptrdiff_t *offset,
- float *w,
- float *werr,
- float *work,
- ptrdiff_t *iwork,
- float *pivmin,
- float *spdiam,
- ptrdiff_t *info
- );
- /* Source: slarrk.f */
- #define slarrk FORTRAN_WRAPPER(slarrk)
- extern void slarrk(
- ptrdiff_t *n,
- ptrdiff_t *iw,
- float *gl,
- float *gu,
- float *d,
- float *e2,
- float *pivmin,
- float *reltol,
- float *w,
- float *werr,
- ptrdiff_t *info
- );
- /* Source: slarrr.f */
- #define slarrr FORTRAN_WRAPPER(slarrr)
- extern void slarrr(
- ptrdiff_t *n,
- float *d,
- float *e,
- ptrdiff_t *info
- );
- /* Source: slarrv.f */
- #define slarrv FORTRAN_WRAPPER(slarrv)
- extern void slarrv(
- ptrdiff_t *n,
- float *vl,
- float *vu,
- float *d,
- float *l,
- float *pivmin,
- ptrdiff_t *isplit,
- ptrdiff_t *m,
- ptrdiff_t *dol,
- ptrdiff_t *dou,
- float *minrgp,
- float *rtol1,
- float *rtol2,
- float *w,
- float *werr,
- float *wgap,
- ptrdiff_t *iblock,
- ptrdiff_t *indexw,
- float *gers,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slartg.f */
- #define slartg FORTRAN_WRAPPER(slartg)
- extern void slartg(
- float *f,
- float *g,
- float *cs,
- float *sn,
- float *r
- );
- /* Source: slartv.f */
- #define slartv FORTRAN_WRAPPER(slartv)
- extern void slartv(
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *incx,
- float *y,
- ptrdiff_t *incy,
- float *c,
- float *s,
- ptrdiff_t *incc
- );
- /* Source: slaruv.f */
- #define slaruv FORTRAN_WRAPPER(slaruv)
- extern void slaruv(
- ptrdiff_t *iseed,
- ptrdiff_t *n,
- float *x
- );
- /* Source: slarz.f */
- #define slarz FORTRAN_WRAPPER(slarz)
- extern void slarz(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *l,
- float *v,
- ptrdiff_t *incv,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work
- );
- /* Source: slarzb.f */
- #define slarzb FORTRAN_WRAPPER(slarzb)
- extern void slarzb(
- char *side,
- char *trans,
- char *direct,
- char *storev,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *v,
- ptrdiff_t *ldv,
- float *t,
- ptrdiff_t *ldt,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *ldwork
- );
- /* Source: slarzt.f */
- #define slarzt FORTRAN_WRAPPER(slarzt)
- extern void slarzt(
- char *direct,
- char *storev,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *v,
- ptrdiff_t *ldv,
- float *tau,
- float *t,
- ptrdiff_t *ldt
- );
- /* Source: slas2.f */
- #define slas2 FORTRAN_WRAPPER(slas2)
- extern void slas2(
- float *f,
- float *g,
- float *h,
- float *ssmin,
- float *ssmax
- );
- /* Source: slascl.f */
- #define slascl FORTRAN_WRAPPER(slascl)
- extern void slascl(
- char *type,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- float *cfrom,
- float *cto,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: slasd0.f */
- #define slasd0 FORTRAN_WRAPPER(slasd0)
- extern void slasd0(
- ptrdiff_t *n,
- ptrdiff_t *sqre,
- float *d,
- float *e,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *ldvt,
- ptrdiff_t *smlsiz,
- ptrdiff_t *iwork,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slasd1.f */
- #define slasd1 FORTRAN_WRAPPER(slasd1)
- extern void slasd1(
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- float *d,
- float *alpha,
- float *beta,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *ldvt,
- ptrdiff_t *idxq,
- ptrdiff_t *iwork,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slasd2.f */
- #define slasd2 FORTRAN_WRAPPER(slasd2)
- extern void slasd2(
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *k,
- float *d,
- float *z,
- float *alpha,
- float *beta,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *ldvt,
- float *dsigma,
- float *u2,
- ptrdiff_t *ldu2,
- float *vt2,
- ptrdiff_t *ldvt2,
- ptrdiff_t *idxp,
- ptrdiff_t *idx,
- ptrdiff_t *idxc,
- ptrdiff_t *idxq,
- ptrdiff_t *coltyp,
- ptrdiff_t *info
- );
- /* Source: slasd3.f */
- #define slasd3 FORTRAN_WRAPPER(slasd3)
- extern void slasd3(
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *k,
- float *d,
- float *q,
- ptrdiff_t *ldq,
- float *dsigma,
- float *u,
- ptrdiff_t *ldu,
- float *u2,
- ptrdiff_t *ldu2,
- float *vt,
- ptrdiff_t *ldvt,
- float *vt2,
- ptrdiff_t *ldvt2,
- ptrdiff_t *idxc,
- ptrdiff_t *ctot,
- float *z,
- ptrdiff_t *info
- );
- /* Source: slasd4.f */
- #define slasd4 FORTRAN_WRAPPER(slasd4)
- extern void slasd4(
- ptrdiff_t *n,
- ptrdiff_t *i,
- float *d,
- float *z,
- float *delta,
- float *rho,
- float *sigma,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slasd5.f */
- #define slasd5 FORTRAN_WRAPPER(slasd5)
- extern void slasd5(
- ptrdiff_t *i,
- float *d,
- float *z,
- float *delta,
- float *rho,
- float *dsigma,
- float *work
- );
- /* Source: slasd6.f */
- #define slasd6 FORTRAN_WRAPPER(slasd6)
- extern void slasd6(
- ptrdiff_t *icompq,
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- float *d,
- float *vf,
- float *vl,
- float *alpha,
- float *beta,
- ptrdiff_t *idxq,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- float *givnum,
- ptrdiff_t *ldgnum,
- float *poles,
- float *difl,
- float *difr,
- float *z,
- ptrdiff_t *k,
- float *c,
- float *s,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slasd7.f */
- #define slasd7 FORTRAN_WRAPPER(slasd7)
- extern void slasd7(
- ptrdiff_t *icompq,
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *k,
- float *d,
- float *z,
- float *zw,
- float *vf,
- float *vfw,
- float *vl,
- float *vlw,
- float *alpha,
- float *beta,
- float *dsigma,
- ptrdiff_t *idx,
- ptrdiff_t *idxp,
- ptrdiff_t *idxq,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- float *givnum,
- ptrdiff_t *ldgnum,
- float *c,
- float *s,
- ptrdiff_t *info
- );
- /* Source: slasd8.f */
- #define slasd8 FORTRAN_WRAPPER(slasd8)
- extern void slasd8(
- ptrdiff_t *icompq,
- ptrdiff_t *k,
- float *d,
- float *z,
- float *vf,
- float *vl,
- float *difl,
- float *difr,
- ptrdiff_t *lddifr,
- float *dsigma,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slasda.f */
- #define slasda FORTRAN_WRAPPER(slasda)
- extern void slasda(
- ptrdiff_t *icompq,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *sqre,
- float *d,
- float *e,
- float *u,
- ptrdiff_t *ldu,
- float *vt,
- ptrdiff_t *k,
- float *difl,
- float *difr,
- float *z,
- float *poles,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- ptrdiff_t *perm,
- float *givnum,
- float *c,
- float *s,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: slasdq.f */
- #define slasdq FORTRAN_WRAPPER(slasdq)
- extern void slasdq(
- char *uplo,
- ptrdiff_t *sqre,
- ptrdiff_t *n,
- ptrdiff_t *ncvt,
- ptrdiff_t *nru,
- ptrdiff_t *ncc,
- float *d,
- float *e,
- float *vt,
- ptrdiff_t *ldvt,
- float *u,
- ptrdiff_t *ldu,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slasdt.f */
- #define slasdt FORTRAN_WRAPPER(slasdt)
- extern void slasdt(
- ptrdiff_t *n,
- ptrdiff_t *lvl,
- ptrdiff_t *nd,
- ptrdiff_t *inode,
- ptrdiff_t *ndiml,
- ptrdiff_t *ndimr,
- ptrdiff_t *msub
- );
- /* Source: slaset.f */
- #define slaset FORTRAN_WRAPPER(slaset)
- extern void slaset(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *alpha,
- float *beta,
- float *a,
- ptrdiff_t *lda
- );
- /* Source: slasq1.f */
- #define slasq1 FORTRAN_WRAPPER(slasq1)
- extern void slasq1(
- ptrdiff_t *n,
- float *d,
- float *e,
- float *work,
- ptrdiff_t *info
- );
- /* Source: slasq2.f */
- #define slasq2 FORTRAN_WRAPPER(slasq2)
- extern void slasq2(
- ptrdiff_t *n,
- float *z,
- ptrdiff_t *info
- );
- /* Source: slasq3.f */
- #define slasq3 FORTRAN_WRAPPER(slasq3)
- extern void slasq3(
- ptrdiff_t *i0,
- ptrdiff_t *n0,
- float *z,
- ptrdiff_t *pp,
- float *dmin,
- float *sigma,
- float *desig,
- float *qmax,
- ptrdiff_t *nfail,
- ptrdiff_t *iter,
- ptrdiff_t *ndiv,
- ptrdiff_t *ieee,
- ptrdiff_t *ttype,
- float *dmin1,
- float *dmin2,
- float *dn,
- float *dn1,
- float *dn2,
- float *g,
- float *tau
- );
- /* Source: slasq4.f */
- #define slasq4 FORTRAN_WRAPPER(slasq4)
- extern void slasq4(
- ptrdiff_t *i0,
- ptrdiff_t *n0,
- float *z,
- ptrdiff_t *pp,
- ptrdiff_t *n0in,
- float *dmin,
- float *dmin1,
- float *dmin2,
- float *dn,
- float *dn1,
- float *dn2,
- float *tau,
- ptrdiff_t *ttype,
- float *g
- );
- /* Source: slasq5.f */
- #define slasq5 FORTRAN_WRAPPER(slasq5)
- extern void slasq5(
- ptrdiff_t *i0,
- ptrdiff_t *n0,
- float *z,
- ptrdiff_t *pp,
- float *tau,
- float *dmin,
- float *dmin1,
- float *dmin2,
- float *dn,
- float *dnm1,
- float *dnm2,
- ptrdiff_t *ieee
- );
- /* Source: slasq6.f */
- #define slasq6 FORTRAN_WRAPPER(slasq6)
- extern void slasq6(
- ptrdiff_t *i0,
- ptrdiff_t *n0,
- float *z,
- ptrdiff_t *pp,
- float *dmin,
- float *dmin1,
- float *dmin2,
- float *dn,
- float *dnm1,
- float *dnm2
- );
- /* Source: slasr.f */
- #define slasr FORTRAN_WRAPPER(slasr)
- extern void slasr(
- char *side,
- char *pivot,
- char *direct,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *c,
- float *s,
- float *a,
- ptrdiff_t *lda
- );
- /* Source: slasrt.f */
- #define slasrt FORTRAN_WRAPPER(slasrt)
- extern void slasrt(
- char *id,
- ptrdiff_t *n,
- float *d,
- ptrdiff_t *info
- );
- /* Source: slassq.f */
- #define slassq FORTRAN_WRAPPER(slassq)
- extern void slassq(
- ptrdiff_t *n,
- float *x,
- ptrdiff_t *incx,
- float *scale,
- float *sumsq
- );
- /* Source: slasv2.f */
- #define slasv2 FORTRAN_WRAPPER(slasv2)
- extern void slasv2(
- float *f,
- float *g,
- float *h,
- float *ssmin,
- float *ssmax,
- float *snr,
- float *csr,
- float *snl,
- float *csl
- );
- /* Source: slaswp.f */
- #define slaswp FORTRAN_WRAPPER(slaswp)
- extern void slaswp(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *k1,
- ptrdiff_t *k2,
- ptrdiff_t *ipiv,
- ptrdiff_t *incx
- );
- /* Source: slasy2.f */
- #define slasy2 FORTRAN_WRAPPER(slasy2)
- extern void slasy2(
- ptrdiff_t *ltranl,
- ptrdiff_t *ltranr,
- ptrdiff_t *isgn,
- ptrdiff_t *n1,
- ptrdiff_t *n2,
- float *tl,
- ptrdiff_t *ldtl,
- float *tr,
- ptrdiff_t *ldtr,
- float *b,
- ptrdiff_t *ldb,
- float *scale,
- float *x,
- ptrdiff_t *ldx,
- float *xnorm,
- ptrdiff_t *info
- );
- /* Source: slasyf.f */
- #define slasyf FORTRAN_WRAPPER(slasyf)
- extern void slasyf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *w,
- ptrdiff_t *ldw,
- ptrdiff_t *info
- );
- /* Source: slatbs.f */
- #define slatbs FORTRAN_WRAPPER(slatbs)
- extern void slatbs(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *x,
- float *scale,
- float *cnorm,
- ptrdiff_t *info
- );
- /* Source: slatdf.f */
- #define slatdf FORTRAN_WRAPPER(slatdf)
- extern void slatdf(
- ptrdiff_t *ijob,
- ptrdiff_t *n,
- float *z,
- ptrdiff_t *ldz,
- float *rhs,
- float *rdsum,
- float *rdscal,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv
- );
- /* Source: slatps.f */
- #define slatps FORTRAN_WRAPPER(slatps)
- extern void slatps(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- float *ap,
- float *x,
- float *scale,
- float *cnorm,
- ptrdiff_t *info
- );
- /* Source: slatrd.f */
- #define slatrd FORTRAN_WRAPPER(slatrd)
- extern void slatrd(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- float *a,
- ptrdiff_t *lda,
- float *e,
- float *tau,
- float *w,
- ptrdiff_t *ldw
- );
- /* Source: slatrs.f */
- #define slatrs FORTRAN_WRAPPER(slatrs)
- extern void slatrs(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *x,
- float *scale,
- float *cnorm,
- ptrdiff_t *info
- );
- /* Source: slatrz.f */
- #define slatrz FORTRAN_WRAPPER(slatrz)
- extern void slatrz(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work
- );
- /* Source: slatzm.f */
- #define slatzm FORTRAN_WRAPPER(slatzm)
- extern void slatzm(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *v,
- ptrdiff_t *incv,
- float *tau,
- float *c1,
- float *c2,
- ptrdiff_t *ldc,
- float *work
- );
- /* Source: slauu2.f */
- #define slauu2 FORTRAN_WRAPPER(slauu2)
- extern void slauu2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: slauum.f */
- #define slauum FORTRAN_WRAPPER(slauum)
- extern void slauum(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: sopgtr.f */
- #define sopgtr FORTRAN_WRAPPER(sopgtr)
- extern void sopgtr(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *tau,
- float *q,
- ptrdiff_t *ldq,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sopmtr.f */
- #define sopmtr FORTRAN_WRAPPER(sopmtr)
- extern void sopmtr(
- char *side,
- char *uplo,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *ap,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sorg2l.f */
- #define sorg2l FORTRAN_WRAPPER(sorg2l)
- extern void sorg2l(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sorg2r.f */
- #define sorg2r FORTRAN_WRAPPER(sorg2r)
- extern void sorg2r(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sorgbr.f */
- #define sorgbr FORTRAN_WRAPPER(sorgbr)
- extern void sorgbr(
- char *vect,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sorghr.f */
- #define sorghr FORTRAN_WRAPPER(sorghr)
- extern void sorghr(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sorgl2.f */
- #define sorgl2 FORTRAN_WRAPPER(sorgl2)
- extern void sorgl2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sorglq.f */
- #define sorglq FORTRAN_WRAPPER(sorglq)
- extern void sorglq(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sorgql.f */
- #define sorgql FORTRAN_WRAPPER(sorgql)
- extern void sorgql(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sorgqr.f */
- #define sorgqr FORTRAN_WRAPPER(sorgqr)
- extern void sorgqr(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sorgr2.f */
- #define sorgr2 FORTRAN_WRAPPER(sorgr2)
- extern void sorgr2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sorgrq.f */
- #define sorgrq FORTRAN_WRAPPER(sorgrq)
- extern void sorgrq(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sorgtr.f */
- #define sorgtr FORTRAN_WRAPPER(sorgtr)
- extern void sorgtr(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sorm2l.f */
- #define sorm2l FORTRAN_WRAPPER(sorm2l)
- extern void sorm2l(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sorm2r.f */
- #define sorm2r FORTRAN_WRAPPER(sorm2r)
- extern void sorm2r(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sormbr.f */
- #define sormbr FORTRAN_WRAPPER(sormbr)
- extern void sormbr(
- char *vect,
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sormhr.f */
- #define sormhr FORTRAN_WRAPPER(sormhr)
- extern void sormhr(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sorml2.f */
- #define sorml2 FORTRAN_WRAPPER(sorml2)
- extern void sorml2(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sormlq.f */
- #define sormlq FORTRAN_WRAPPER(sormlq)
- extern void sormlq(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sormql.f */
- #define sormql FORTRAN_WRAPPER(sormql)
- extern void sormql(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sormqr.f */
- #define sormqr FORTRAN_WRAPPER(sormqr)
- extern void sormqr(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sormr2.f */
- #define sormr2 FORTRAN_WRAPPER(sormr2)
- extern void sormr2(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sormr3.f */
- #define sormr3 FORTRAN_WRAPPER(sormr3)
- extern void sormr3(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sormrq.f */
- #define sormrq FORTRAN_WRAPPER(sormrq)
- extern void sormrq(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sormrz.f */
- #define sormrz FORTRAN_WRAPPER(sormrz)
- extern void sormrz(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: sormtr.f */
- #define sormtr FORTRAN_WRAPPER(sormtr)
- extern void sormtr(
- char *side,
- char *uplo,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *c,
- ptrdiff_t *ldc,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: spbcon.f */
- #define spbcon FORTRAN_WRAPPER(spbcon)
- extern void spbcon(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: spbequ.f */
- #define spbequ FORTRAN_WRAPPER(spbequ)
- extern void spbequ(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *s,
- float *scond,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: spbrfs.f */
- #define spbrfs FORTRAN_WRAPPER(spbrfs)
- extern void spbrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *afb,
- ptrdiff_t *ldafb,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: spbstf.f */
- #define spbstf FORTRAN_WRAPPER(spbstf)
- extern void spbstf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: spbsv.f */
- #define spbsv FORTRAN_WRAPPER(spbsv)
- extern void spbsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: spbsvx.f */
- #define spbsvx FORTRAN_WRAPPER(spbsvx)
- extern void spbsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *afb,
- ptrdiff_t *ldafb,
- char *equed,
- float *s,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: spbtf2.f */
- #define spbtf2 FORTRAN_WRAPPER(spbtf2)
- extern void spbtf2(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: spbtrf.f */
- #define spbtrf FORTRAN_WRAPPER(spbtrf)
- extern void spbtrf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: spbtrs.f */
- #define spbtrs FORTRAN_WRAPPER(spbtrs)
- extern void spbtrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: spftrf.f */
- #define spftrf FORTRAN_WRAPPER(spftrf)
- extern void spftrf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *info
- );
- /* Source: spftri.f */
- #define spftri FORTRAN_WRAPPER(spftri)
- extern void spftri(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *info
- );
- /* Source: spftrs.f */
- #define spftrs FORTRAN_WRAPPER(spftrs)
- extern void spftrs(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: spocon.f */
- #define spocon FORTRAN_WRAPPER(spocon)
- extern void spocon(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: spoequ.f */
- #define spoequ FORTRAN_WRAPPER(spoequ)
- extern void spoequ(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: spoequb.f */
- #define spoequb FORTRAN_WRAPPER(spoequb)
- extern void spoequb(
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: sporfs.f */
- #define sporfs FORTRAN_WRAPPER(sporfs)
- extern void sporfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sposv.f */
- #define sposv FORTRAN_WRAPPER(sposv)
- extern void sposv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sposvx.f */
- #define sposvx FORTRAN_WRAPPER(sposvx)
- extern void sposvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- char *equed,
- float *s,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: spotf2.f */
- #define spotf2 FORTRAN_WRAPPER(spotf2)
- extern void spotf2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: spotrf.f */
- #define spotrf FORTRAN_WRAPPER(spotrf)
- extern void spotrf(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: spotri.f */
- #define spotri FORTRAN_WRAPPER(spotri)
- extern void spotri(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: spotrs.f */
- #define spotrs FORTRAN_WRAPPER(spotrs)
- extern void spotrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sppcon.f */
- #define sppcon FORTRAN_WRAPPER(sppcon)
- extern void sppcon(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sppequ.f */
- #define sppequ FORTRAN_WRAPPER(sppequ)
- extern void sppequ(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *s,
- float *scond,
- float *amax,
- ptrdiff_t *info
- );
- /* Source: spprfs.f */
- #define spprfs FORTRAN_WRAPPER(spprfs)
- extern void spprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sppsv.f */
- #define sppsv FORTRAN_WRAPPER(sppsv)
- extern void sppsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sppsvx.f */
- #define sppsvx FORTRAN_WRAPPER(sppsvx)
- extern void sppsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- char *equed,
- float *s,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: spptrf.f */
- #define spptrf FORTRAN_WRAPPER(spptrf)
- extern void spptrf(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: spptri.f */
- #define spptri FORTRAN_WRAPPER(spptri)
- extern void spptri(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: spptrs.f */
- #define spptrs FORTRAN_WRAPPER(spptrs)
- extern void spptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: spstf2.f */
- #define spstf2 FORTRAN_WRAPPER(spstf2)
- extern void spstf2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *piv,
- ptrdiff_t *rank,
- float *tol,
- float *work,
- ptrdiff_t *info
- );
- /* Source: spstrf.f */
- #define spstrf FORTRAN_WRAPPER(spstrf)
- extern void spstrf(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *piv,
- ptrdiff_t *rank,
- float *tol,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sptcon.f */
- #define sptcon FORTRAN_WRAPPER(sptcon)
- extern void sptcon(
- ptrdiff_t *n,
- float *d,
- float *e,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *info
- );
- /* Source: spteqr.f */
- #define spteqr FORTRAN_WRAPPER(spteqr)
- extern void spteqr(
- char *compz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sptrfs.f */
- #define sptrfs FORTRAN_WRAPPER(sptrfs)
- extern void sptrfs(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *df,
- float *ef,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sptsv.f */
- #define sptsv FORTRAN_WRAPPER(sptsv)
- extern void sptsv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sptsvx.f */
- #define sptsvx FORTRAN_WRAPPER(sptsvx)
- extern void sptsvx(
- char *fact,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *df,
- float *ef,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *info
- );
- /* Source: spttrf.f */
- #define spttrf FORTRAN_WRAPPER(spttrf)
- extern void spttrf(
- ptrdiff_t *n,
- float *d,
- float *e,
- ptrdiff_t *info
- );
- /* Source: spttrs.f */
- #define spttrs FORTRAN_WRAPPER(spttrs)
- extern void spttrs(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sptts2.f */
- #define sptts2 FORTRAN_WRAPPER(sptts2)
- extern void sptts2(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *d,
- float *e,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: srscl.f */
- #define srscl FORTRAN_WRAPPER(srscl)
- extern void srscl(
- ptrdiff_t *n,
- float *sa,
- float *sx,
- ptrdiff_t *incx
- );
- /* Source: ssbev.f */
- #define ssbev FORTRAN_WRAPPER(ssbev)
- extern void ssbev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *info
- );
- /* Source: ssbevd.f */
- #define ssbevd FORTRAN_WRAPPER(ssbevd)
- extern void ssbevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: ssbevx.f */
- #define ssbevx FORTRAN_WRAPPER(ssbevx)
- extern void ssbevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *q,
- ptrdiff_t *ldq,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: ssbgst.f */
- #define ssbgst FORTRAN_WRAPPER(ssbgst)
- extern void ssbgst(
- char *vect,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- float *ab,
- ptrdiff_t *ldab,
- float *bb,
- ptrdiff_t *ldbb,
- float *x,
- ptrdiff_t *ldx,
- float *work,
- ptrdiff_t *info
- );
- /* Source: ssbgv.f */
- #define ssbgv FORTRAN_WRAPPER(ssbgv)
- extern void ssbgv(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- float *ab,
- ptrdiff_t *ldab,
- float *bb,
- ptrdiff_t *ldbb,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *info
- );
- /* Source: ssbgvd.f */
- #define ssbgvd FORTRAN_WRAPPER(ssbgvd)
- extern void ssbgvd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- float *ab,
- ptrdiff_t *ldab,
- float *bb,
- ptrdiff_t *ldbb,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: ssbgvx.f */
- #define ssbgvx FORTRAN_WRAPPER(ssbgvx)
- extern void ssbgvx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- float *ab,
- ptrdiff_t *ldab,
- float *bb,
- ptrdiff_t *ldbb,
- float *q,
- ptrdiff_t *ldq,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: ssbtrd.f */
- #define ssbtrd FORTRAN_WRAPPER(ssbtrd)
- extern void ssbtrd(
- char *vect,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *d,
- float *e,
- float *q,
- ptrdiff_t *ldq,
- float *work,
- ptrdiff_t *info
- );
- /* Source: ssfrk.f */
- #define ssfrk FORTRAN_WRAPPER(ssfrk)
- extern void ssfrk(
- char *transr,
- char *uplo,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *k,
- float *alpha,
- float *a,
- ptrdiff_t *lda,
- float *beta,
- float *c
- );
- /* Source: sspcon.f */
- #define sspcon FORTRAN_WRAPPER(sspcon)
- extern void sspcon(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sspev.f */
- #define sspev FORTRAN_WRAPPER(sspev)
- extern void sspev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sspevd.f */
- #define sspevd FORTRAN_WRAPPER(sspevd)
- extern void sspevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: sspevx.f */
- #define sspevx FORTRAN_WRAPPER(sspevx)
- extern void sspevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: sspgst.f */
- #define sspgst FORTRAN_WRAPPER(sspgst)
- extern void sspgst(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *bp,
- ptrdiff_t *info
- );
- /* Source: sspgv.f */
- #define sspgv FORTRAN_WRAPPER(sspgv)
- extern void sspgv(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *bp,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sspgvd.f */
- #define sspgvd FORTRAN_WRAPPER(sspgvd)
- extern void sspgvd(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *bp,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: sspgvx.f */
- #define sspgvx FORTRAN_WRAPPER(sspgvx)
- extern void sspgvx(
- ptrdiff_t *itype,
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *bp,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: ssprfs.f */
- #define ssprfs FORTRAN_WRAPPER(ssprfs)
- extern void ssprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sspsv.f */
- #define sspsv FORTRAN_WRAPPER(sspsv)
- extern void sspsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sspsvx.f */
- #define sspsvx FORTRAN_WRAPPER(sspsvx)
- extern void sspsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *afp,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: ssptrd.f */
- #define ssptrd FORTRAN_WRAPPER(ssptrd)
- extern void ssptrd(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *d,
- float *e,
- float *tau,
- ptrdiff_t *info
- );
- /* Source: ssptrf.f */
- #define ssptrf FORTRAN_WRAPPER(ssptrf)
- extern void ssptrf(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: ssptri.f */
- #define ssptri FORTRAN_WRAPPER(ssptri)
- extern void ssptri(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *info
- );
- /* Source: ssptrs.f */
- #define ssptrs FORTRAN_WRAPPER(ssptrs)
- extern void ssptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: sstebz.f */
- #define sstebz FORTRAN_WRAPPER(sstebz)
- extern void sstebz(
- char *range,
- char *order,
- ptrdiff_t *n,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- float *d,
- float *e,
- ptrdiff_t *m,
- ptrdiff_t *nsplit,
- float *w,
- ptrdiff_t *iblock,
- ptrdiff_t *isplit,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: sstedc.f */
- #define sstedc FORTRAN_WRAPPER(sstedc)
- extern void sstedc(
- char *compz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: sstegr.f */
- #define sstegr FORTRAN_WRAPPER(sstegr)
- extern void sstegr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: sstein.f */
- #define sstein FORTRAN_WRAPPER(sstein)
- extern void sstein(
- ptrdiff_t *n,
- float *d,
- float *e,
- ptrdiff_t *m,
- float *w,
- ptrdiff_t *iblock,
- ptrdiff_t *isplit,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: sstemr.f */
- #define sstemr FORTRAN_WRAPPER(sstemr)
- extern void sstemr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *nzc,
- ptrdiff_t *isuppz,
- ptrdiff_t *tryrac,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: ssteqr.f */
- #define ssteqr FORTRAN_WRAPPER(ssteqr)
- extern void ssteqr(
- char *compz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *info
- );
- /* Source: ssterf.f */
- #define ssterf FORTRAN_WRAPPER(ssterf)
- extern void ssterf(
- ptrdiff_t *n,
- float *d,
- float *e,
- ptrdiff_t *info
- );
- /* Source: sstev.f */
- #define sstev FORTRAN_WRAPPER(sstev)
- extern void sstev(
- char *jobz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *info
- );
- /* Source: sstevd.f */
- #define sstevd FORTRAN_WRAPPER(sstevd)
- extern void sstevd(
- char *jobz,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: sstevr.f */
- #define sstevr FORTRAN_WRAPPER(sstevr)
- extern void sstevr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: sstevx.f */
- #define sstevx FORTRAN_WRAPPER(sstevx)
- extern void sstevx(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- float *d,
- float *e,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: ssycon.f */
- #define ssycon FORTRAN_WRAPPER(ssycon)
- extern void ssycon(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *anorm,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: ssyequb.f */
- #define ssyequb FORTRAN_WRAPPER(ssyequb)
- extern void ssyequb(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *s,
- float *scond,
- float *amax,
- float *work,
- ptrdiff_t *info
- );
- /* Source: ssyev.f */
- #define ssyev FORTRAN_WRAPPER(ssyev)
- extern void ssyev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *w,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: ssyevd.f */
- #define ssyevd FORTRAN_WRAPPER(ssyevd)
- extern void ssyevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *w,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: ssyevr.f */
- #define ssyevr FORTRAN_WRAPPER(ssyevr)
- extern void ssyevr(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: ssyevx.f */
- #define ssyevx FORTRAN_WRAPPER(ssyevx)
- extern void ssyevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: ssygs2.f */
- #define ssygs2 FORTRAN_WRAPPER(ssygs2)
- extern void ssygs2(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ssygst.f */
- #define ssygst FORTRAN_WRAPPER(ssygst)
- extern void ssygst(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ssygv.f */
- #define ssygv FORTRAN_WRAPPER(ssygv)
- extern void ssygv(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *w,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: ssygvd.f */
- #define ssygvd FORTRAN_WRAPPER(ssygvd)
- extern void ssygvd(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *w,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: ssygvx.f */
- #define ssygvx FORTRAN_WRAPPER(ssygvx)
- extern void ssygvx(
- ptrdiff_t *itype,
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *vl,
- float *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- float *abstol,
- ptrdiff_t *m,
- float *w,
- float *z,
- ptrdiff_t *ldz,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: ssyrfs.f */
- #define ssyrfs FORTRAN_WRAPPER(ssyrfs)
- extern void ssyrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: ssysv.f */
- #define ssysv FORTRAN_WRAPPER(ssysv)
- extern void ssysv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: ssysvx.f */
- #define ssysvx FORTRAN_WRAPPER(ssysvx)
- extern void ssysvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *rcond,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: ssytd2.f */
- #define ssytd2 FORTRAN_WRAPPER(ssytd2)
- extern void ssytd2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tau,
- ptrdiff_t *info
- );
- /* Source: ssytf2.f */
- #define ssytf2 FORTRAN_WRAPPER(ssytf2)
- extern void ssytf2(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: ssytrd.f */
- #define ssytrd FORTRAN_WRAPPER(ssytrd)
- extern void ssytrd(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *d,
- float *e,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: ssytrf.f */
- #define ssytrf FORTRAN_WRAPPER(ssytrf)
- extern void ssytrf(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: ssytri.f */
- #define ssytri FORTRAN_WRAPPER(ssytri)
- extern void ssytri(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *work,
- ptrdiff_t *info
- );
- /* Source: ssytrs.f */
- #define ssytrs FORTRAN_WRAPPER(ssytrs)
- extern void ssytrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: stbcon.f */
- #define stbcon FORTRAN_WRAPPER(stbcon)
- extern void stbcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- float *ab,
- ptrdiff_t *ldab,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: stbrfs.f */
- #define stbrfs FORTRAN_WRAPPER(stbrfs)
- extern void stbrfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: stbtrs.f */
- #define stbtrs FORTRAN_WRAPPER(stbtrs)
- extern void stbtrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- float *ab,
- ptrdiff_t *ldab,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: stfsm.f */
- #define stfsm FORTRAN_WRAPPER(stfsm)
- extern void stfsm(
- char *transr,
- char *side,
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *alpha,
- float *a,
- float *b,
- ptrdiff_t *ldb
- );
- /* Source: stftri.f */
- #define stftri FORTRAN_WRAPPER(stftri)
- extern void stftri(
- char *transr,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *info
- );
- /* Source: stfttp.f */
- #define stfttp FORTRAN_WRAPPER(stfttp)
- extern void stfttp(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *arf,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: stfttr.f */
- #define stfttr FORTRAN_WRAPPER(stfttr)
- extern void stfttr(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *arf,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: stgevc.f */
- #define stgevc FORTRAN_WRAPPER(stgevc)
- extern void stgevc(
- char *side,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *s,
- ptrdiff_t *lds,
- float *p,
- ptrdiff_t *ldp,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- ptrdiff_t *info
- );
- /* Source: stgex2.f */
- #define stgex2 FORTRAN_WRAPPER(stgex2)
- extern void stgex2(
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *j1_,
- ptrdiff_t *n1,
- ptrdiff_t *n2,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: stgexc.f */
- #define stgexc FORTRAN_WRAPPER(stgexc)
- extern void stgexc(
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ifst,
- ptrdiff_t *ilst,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: stgsen.f */
- #define stgsen FORTRAN_WRAPPER(stgsen)
- extern void stgsen(
- ptrdiff_t *ijob,
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *alphar,
- float *alphai,
- float *beta,
- float *q,
- ptrdiff_t *ldq,
- float *z,
- ptrdiff_t *ldz,
- ptrdiff_t *m,
- float *pl,
- float *pr,
- float *dif,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: stgsja.f */
- #define stgsja FORTRAN_WRAPPER(stgsja)
- extern void stgsja(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *tola,
- float *tolb,
- float *alpha,
- float *beta,
- float *u,
- ptrdiff_t *ldu,
- float *v,
- ptrdiff_t *ldv,
- float *q,
- ptrdiff_t *ldq,
- float *work,
- ptrdiff_t *ncycle,
- ptrdiff_t *info
- );
- /* Source: stgsna.f */
- #define stgsna FORTRAN_WRAPPER(stgsna)
- extern void stgsna(
- char *job,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *s,
- float *dif,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: stgsy2.f */
- #define stgsy2 FORTRAN_WRAPPER(stgsy2)
- extern void stgsy2(
- char *trans,
- ptrdiff_t *ijob,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- ptrdiff_t *ldc,
- float *d,
- ptrdiff_t *ldd,
- float *e,
- ptrdiff_t *lde,
- float *f,
- ptrdiff_t *ldf,
- float *scale,
- float *rdsum,
- float *rdscal,
- ptrdiff_t *iwork,
- ptrdiff_t *pq,
- ptrdiff_t *info
- );
- /* Source: stgsyl.f */
- #define stgsyl FORTRAN_WRAPPER(stgsyl)
- extern void stgsyl(
- char *trans,
- ptrdiff_t *ijob,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- ptrdiff_t *ldc,
- float *d,
- ptrdiff_t *ldd,
- float *e,
- ptrdiff_t *lde,
- float *f,
- ptrdiff_t *ldf,
- float *scale,
- float *dif,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: stpcon.f */
- #define stpcon FORTRAN_WRAPPER(stpcon)
- extern void stpcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *ap,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: stprfs.f */
- #define stprfs FORTRAN_WRAPPER(stprfs)
- extern void stprfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: stptri.f */
- #define stptri FORTRAN_WRAPPER(stptri)
- extern void stptri(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: stptrs.f */
- #define stptrs FORTRAN_WRAPPER(stptrs)
- extern void stptrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *ap,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: stpttf.f */
- #define stpttf FORTRAN_WRAPPER(stpttf)
- extern void stpttf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *arf,
- ptrdiff_t *info
- );
- /* Source: stpttr.f */
- #define stpttr FORTRAN_WRAPPER(stpttr)
- extern void stpttr(
- char *uplo,
- ptrdiff_t *n,
- float *ap,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: strcon.f */
- #define strcon FORTRAN_WRAPPER(strcon)
- extern void strcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *rcond,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: strevc.f */
- #define strevc FORTRAN_WRAPPER(strevc)
- extern void strevc(
- char *side,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- ptrdiff_t *info
- );
- /* Source: strexc.f */
- #define strexc FORTRAN_WRAPPER(strexc)
- extern void strexc(
- char *compq,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *q,
- ptrdiff_t *ldq,
- ptrdiff_t *ifst,
- ptrdiff_t *ilst,
- float *work,
- ptrdiff_t *info
- );
- /* Source: strrfs.f */
- #define strrfs FORTRAN_WRAPPER(strrfs)
- extern void strrfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *x,
- ptrdiff_t *ldx,
- float *ferr,
- float *berr,
- float *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: strsen.f */
- #define strsen FORTRAN_WRAPPER(strsen)
- extern void strsen(
- char *job,
- char *compq,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *q,
- ptrdiff_t *ldq,
- float *wr,
- float *wi,
- ptrdiff_t *m,
- float *s,
- float *sep,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: strsna.f */
- #define strsna FORTRAN_WRAPPER(strsna)
- extern void strsna(
- char *job,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- float *t,
- ptrdiff_t *ldt,
- float *vl,
- ptrdiff_t *ldvl,
- float *vr,
- ptrdiff_t *ldvr,
- float *s,
- float *sep,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- float *work,
- ptrdiff_t *ldwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: strsyl.f */
- #define strsyl FORTRAN_WRAPPER(strsyl)
- extern void strsyl(
- char *trana,
- char *tranb,
- ptrdiff_t *isgn,
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- float *c,
- ptrdiff_t *ldc,
- float *scale,
- ptrdiff_t *info
- );
- /* Source: strti2.f */
- #define strti2 FORTRAN_WRAPPER(strti2)
- extern void strti2(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: strtri.f */
- #define strtri FORTRAN_WRAPPER(strtri)
- extern void strtri(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: strtrs.f */
- #define strtrs FORTRAN_WRAPPER(strtrs)
- extern void strtrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- float *a,
- ptrdiff_t *lda,
- float *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: strttf.f */
- #define strttf FORTRAN_WRAPPER(strttf)
- extern void strttf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *arf,
- ptrdiff_t *info
- );
- /* Source: strttp.f */
- #define strttp FORTRAN_WRAPPER(strttp)
- extern void strttp(
- char *uplo,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *ap,
- ptrdiff_t *info
- );
- /* Source: stzrqf.f */
- #define stzrqf FORTRAN_WRAPPER(stzrqf)
- extern void stzrqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- ptrdiff_t *info
- );
- /* Source: stzrzf.f */
- #define stzrzf FORTRAN_WRAPPER(stzrzf)
- extern void stzrzf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- float *a,
- ptrdiff_t *lda,
- float *tau,
- float *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: xerbla_array.f */
- #define xerbla_array FORTRAN_WRAPPER(xerbla_array)
- extern void xerbla_array(
- char *srname_array,
- ptrdiff_t *srname_len,
- ptrdiff_t *info
- );
- /* Source: zbdsqr.f */
- #define zbdsqr FORTRAN_WRAPPER(zbdsqr)
- extern void zbdsqr(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ncvt,
- ptrdiff_t *nru,
- ptrdiff_t *ncc,
- double *d,
- double *e,
- double *vt,
- ptrdiff_t *ldvt,
- double *u,
- ptrdiff_t *ldu,
- double *c,
- ptrdiff_t *ldc,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zcgesv.f */
- #define zcgesv FORTRAN_WRAPPER(zcgesv)
- extern void zcgesv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *work,
- float *swork,
- double *rwork,
- ptrdiff_t *iter,
- ptrdiff_t *info
- );
- /* Source: zcposv.f */
- #define zcposv FORTRAN_WRAPPER(zcposv)
- extern void zcposv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *work,
- float *swork,
- double *rwork,
- ptrdiff_t *iter,
- ptrdiff_t *info
- );
- /* Source: zdrscl.f */
- #define zdrscl FORTRAN_WRAPPER(zdrscl)
- extern void zdrscl(
- ptrdiff_t *n,
- double *sa,
- double *sx,
- ptrdiff_t *incx
- );
- /* Source: zgbbrd.f */
- #define zgbbrd FORTRAN_WRAPPER(zgbbrd)
- extern void zgbbrd(
- char *vect,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *ncc,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *d,
- double *e,
- double *q,
- ptrdiff_t *ldq,
- double *pt,
- ptrdiff_t *ldpt,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgbcon.f */
- #define zgbcon FORTRAN_WRAPPER(zgbcon)
- extern void zgbcon(
- char *norm,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgbequ.f */
- #define zgbequ FORTRAN_WRAPPER(zgbequ)
- extern void zgbequ(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: zgbequb.f */
- #define zgbequb FORTRAN_WRAPPER(zgbequb)
- extern void zgbequb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: zgbrfs.f */
- #define zgbrfs FORTRAN_WRAPPER(zgbrfs)
- extern void zgbrfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *afb,
- ptrdiff_t *ldafb,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgbsv.f */
- #define zgbsv FORTRAN_WRAPPER(zgbsv)
- extern void zgbsv(
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zgbsvx.f */
- #define zgbsvx FORTRAN_WRAPPER(zgbsvx)
- extern void zgbsvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *afb,
- ptrdiff_t *ldafb,
- ptrdiff_t *ipiv,
- char *equed,
- double *r,
- double *c,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgbtf2.f */
- #define zgbtf2 FORTRAN_WRAPPER(zgbtf2)
- extern void zgbtf2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: zgbtrf.f */
- #define zgbtrf FORTRAN_WRAPPER(zgbtrf)
- extern void zgbtrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: zgbtrs.f */
- #define zgbtrs FORTRAN_WRAPPER(zgbtrs)
- extern void zgbtrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zgebak.f */
- #define zgebak FORTRAN_WRAPPER(zgebak)
- extern void zgebak(
- char *job,
- char *side,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *scale,
- ptrdiff_t *m,
- double *v,
- ptrdiff_t *ldv,
- ptrdiff_t *info
- );
- /* Source: zgebal.f */
- #define zgebal FORTRAN_WRAPPER(zgebal)
- extern void zgebal(
- char *job,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *scale,
- ptrdiff_t *info
- );
- /* Source: zgebd2.f */
- #define zgebd2 FORTRAN_WRAPPER(zgebd2)
- extern void zgebd2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tauq,
- double *taup,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zgebrd.f */
- #define zgebrd FORTRAN_WRAPPER(zgebrd)
- extern void zgebrd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tauq,
- double *taup,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zgecon.f */
- #define zgecon FORTRAN_WRAPPER(zgecon)
- extern void zgecon(
- char *norm,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *anorm,
- double *rcond,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgeequ.f */
- #define zgeequ FORTRAN_WRAPPER(zgeequ)
- extern void zgeequ(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: zgeequb.f */
- #define zgeequb FORTRAN_WRAPPER(zgeequb)
- extern void zgeequb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: zgees.f */
- #define zgees FORTRAN_WRAPPER(zgees)
- extern void zgees(
- char *jobvs,
- char *sort,
- ptrdiff_t (*select)(),
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *sdim,
- double *w,
- double *vs,
- ptrdiff_t *ldvs,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: zgeesx.f */
- #define zgeesx FORTRAN_WRAPPER(zgeesx)
- extern void zgeesx(
- char *jobvs,
- char *sort,
- ptrdiff_t (*select)(),
- char *sense,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *sdim,
- double *w,
- double *vs,
- ptrdiff_t *ldvs,
- double *rconde,
- double *rcondv,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: zgeev.f */
- #define zgeev FORTRAN_WRAPPER(zgeev)
- extern void zgeev(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *w,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgeevx.f */
- #define zgeevx FORTRAN_WRAPPER(zgeevx)
- extern void zgeevx(
- char *balanc,
- char *jobvl,
- char *jobvr,
- char *sense,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *w,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *scale,
- double *abnrm,
- double *rconde,
- double *rcondv,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgegs.f */
- #define zgegs FORTRAN_WRAPPER(zgegs)
- extern void zgegs(
- char *jobvsl,
- char *jobvsr,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alpha,
- double *beta,
- double *vsl,
- ptrdiff_t *ldvsl,
- double *vsr,
- ptrdiff_t *ldvsr,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgegv.f */
- #define zgegv FORTRAN_WRAPPER(zgegv)
- extern void zgegv(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alpha,
- double *beta,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgehd2.f */
- #define zgehd2 FORTRAN_WRAPPER(zgehd2)
- extern void zgehd2(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zgehrd.f */
- #define zgehrd FORTRAN_WRAPPER(zgehrd)
- extern void zgehrd(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zgelq2.f */
- #define zgelq2 FORTRAN_WRAPPER(zgelq2)
- extern void zgelq2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zgelqf.f */
- #define zgelqf FORTRAN_WRAPPER(zgelqf)
- extern void zgelqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zgels.f */
- #define zgels FORTRAN_WRAPPER(zgels)
- extern void zgels(
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zgelsd.f */
- #define zgelsd FORTRAN_WRAPPER(zgelsd)
- extern void zgelsd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *s,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: zgelss.f */
- #define zgelss FORTRAN_WRAPPER(zgelss)
- extern void zgelss(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *s,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgelsx.f */
- #define zgelsx FORTRAN_WRAPPER(zgelsx)
- extern void zgelsx(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *jpvt,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgelsy.f */
- #define zgelsy FORTRAN_WRAPPER(zgelsy)
- extern void zgelsy(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *jpvt,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgeql2.f */
- #define zgeql2 FORTRAN_WRAPPER(zgeql2)
- extern void zgeql2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zgeqlf.f */
- #define zgeqlf FORTRAN_WRAPPER(zgeqlf)
- extern void zgeqlf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zgeqp3.f */
- #define zgeqp3 FORTRAN_WRAPPER(zgeqp3)
- extern void zgeqp3(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgeqpf.f */
- #define zgeqpf FORTRAN_WRAPPER(zgeqpf)
- extern void zgeqpf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- double *tau,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgeqr2.f */
- #define zgeqr2 FORTRAN_WRAPPER(zgeqr2)
- extern void zgeqr2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zgeqrf.f */
- #define zgeqrf FORTRAN_WRAPPER(zgeqrf)
- extern void zgeqrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zgerfs.f */
- #define zgerfs FORTRAN_WRAPPER(zgerfs)
- extern void zgerfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgerq2.f */
- #define zgerq2 FORTRAN_WRAPPER(zgerq2)
- extern void zgerq2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zgerqf.f */
- #define zgerqf FORTRAN_WRAPPER(zgerqf)
- extern void zgerqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zgesc2.f */
- #define zgesc2 FORTRAN_WRAPPER(zgesc2)
- extern void zgesc2(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *rhs,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv,
- double *scale
- );
- /* Source: zgesdd.f */
- #define zgesdd FORTRAN_WRAPPER(zgesdd)
- extern void zgesdd(
- char *jobz,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *ldvt,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: zgesv.f */
- #define zgesv FORTRAN_WRAPPER(zgesv)
- extern void zgesv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zgesvd.f */
- #define zgesvd FORTRAN_WRAPPER(zgesvd)
- extern void zgesvd(
- char *jobu,
- char *jobvt,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *ldvt,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgesvx.f */
- #define zgesvx FORTRAN_WRAPPER(zgesvx)
- extern void zgesvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- char *equed,
- double *r,
- double *c,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgetc2.f */
- #define zgetc2 FORTRAN_WRAPPER(zgetc2)
- extern void zgetc2(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv,
- ptrdiff_t *info
- );
- /* Source: zgetf2.f */
- #define zgetf2 FORTRAN_WRAPPER(zgetf2)
- extern void zgetf2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: zgetrf.f */
- #define zgetrf FORTRAN_WRAPPER(zgetrf)
- extern void zgetrf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: zgetri.f */
- #define zgetri FORTRAN_WRAPPER(zgetri)
- extern void zgetri(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zgetrs.f */
- #define zgetrs FORTRAN_WRAPPER(zgetrs)
- extern void zgetrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zggbak.f */
- #define zggbak FORTRAN_WRAPPER(zggbak)
- extern void zggbak(
- char *job,
- char *side,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *lscale,
- double *rscale,
- ptrdiff_t *m,
- double *v,
- ptrdiff_t *ldv,
- ptrdiff_t *info
- );
- /* Source: zggbal.f */
- #define zggbal FORTRAN_WRAPPER(zggbal)
- extern void zggbal(
- char *job,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *lscale,
- double *rscale,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zgges.f */
- #define zgges FORTRAN_WRAPPER(zgges)
- extern void zgges(
- char *jobvsl,
- char *jobvsr,
- char *sort,
- ptrdiff_t (*selctg)(),
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *sdim,
- double *alpha,
- double *beta,
- double *vsl,
- ptrdiff_t *ldvsl,
- double *vsr,
- ptrdiff_t *ldvsr,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: zggesx.f */
- #define zggesx FORTRAN_WRAPPER(zggesx)
- extern void zggesx(
- char *jobvsl,
- char *jobvsr,
- char *sort,
- ptrdiff_t (*selctg)(),
- char *sense,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *sdim,
- double *alpha,
- double *beta,
- double *vsl,
- ptrdiff_t *ldvsl,
- double *vsr,
- ptrdiff_t *ldvsr,
- double *rconde,
- double *rcondv,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: zggev.f */
- #define zggev FORTRAN_WRAPPER(zggev)
- extern void zggev(
- char *jobvl,
- char *jobvr,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alpha,
- double *beta,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zggevx.f */
- #define zggevx FORTRAN_WRAPPER(zggevx)
- extern void zggevx(
- char *balanc,
- char *jobvl,
- char *jobvr,
- char *sense,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alpha,
- double *beta,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *lscale,
- double *rscale,
- double *abnrm,
- double *bbnrm,
- double *rconde,
- double *rcondv,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *bwork,
- ptrdiff_t *info
- );
- /* Source: zggglm.f */
- #define zggglm FORTRAN_WRAPPER(zggglm)
- extern void zggglm(
- ptrdiff_t *n,
- ptrdiff_t *m,
- ptrdiff_t *p,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *d,
- double *x,
- double *y,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zgghrd.f */
- #define zgghrd FORTRAN_WRAPPER(zgghrd)
- extern void zgghrd(
- char *compq,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *info
- );
- /* Source: zgglse.f */
- #define zgglse FORTRAN_WRAPPER(zgglse)
- extern void zgglse(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *p,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- double *d,
- double *x,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zggqrf.f */
- #define zggqrf FORTRAN_WRAPPER(zggqrf)
- extern void zggqrf(
- ptrdiff_t *n,
- ptrdiff_t *m,
- ptrdiff_t *p,
- double *a,
- ptrdiff_t *lda,
- double *taua,
- double *b,
- ptrdiff_t *ldb,
- double *taub,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zggrqf.f */
- #define zggrqf FORTRAN_WRAPPER(zggrqf)
- extern void zggrqf(
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *taua,
- double *b,
- ptrdiff_t *ldb,
- double *taub,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zggsvd.f */
- #define zggsvd FORTRAN_WRAPPER(zggsvd)
- extern void zggsvd(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *p,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alpha,
- double *beta,
- double *u,
- ptrdiff_t *ldu,
- double *v,
- ptrdiff_t *ldv,
- double *q,
- ptrdiff_t *ldq,
- double *work,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: zggsvp.f */
- #define zggsvp FORTRAN_WRAPPER(zggsvp)
- extern void zggsvp(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *tola,
- double *tolb,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *u,
- ptrdiff_t *ldu,
- double *v,
- ptrdiff_t *ldv,
- double *q,
- ptrdiff_t *ldq,
- ptrdiff_t *iwork,
- double *rwork,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zgtcon.f */
- #define zgtcon FORTRAN_WRAPPER(zgtcon)
- extern void zgtcon(
- char *norm,
- ptrdiff_t *n,
- double *dl,
- double *d,
- double *du,
- double *du2,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zgtrfs.f */
- #define zgtrfs FORTRAN_WRAPPER(zgtrfs)
- extern void zgtrfs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *dlf,
- double *df,
- double *duf,
- double *du2,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgtsv.f */
- #define zgtsv FORTRAN_WRAPPER(zgtsv)
- extern void zgtsv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zgtsvx.f */
- #define zgtsvx FORTRAN_WRAPPER(zgtsvx)
- extern void zgtsvx(
- char *fact,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *dlf,
- double *df,
- double *duf,
- double *du2,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zgttrf.f */
- #define zgttrf FORTRAN_WRAPPER(zgttrf)
- extern void zgttrf(
- ptrdiff_t *n,
- double *dl,
- double *d,
- double *du,
- double *du2,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: zgttrs.f */
- #define zgttrs FORTRAN_WRAPPER(zgttrs)
- extern void zgttrs(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *du2,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zgtts2.f */
- #define zgtts2 FORTRAN_WRAPPER(zgtts2)
- extern void zgtts2(
- ptrdiff_t *itrans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *dl,
- double *d,
- double *du,
- double *du2,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: zhbev.f */
- #define zhbev FORTRAN_WRAPPER(zhbev)
- extern void zhbev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhbevd.f */
- #define zhbevd FORTRAN_WRAPPER(zhbevd)
- extern void zhbevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zhbevx.f */
- #define zhbevx FORTRAN_WRAPPER(zhbevx)
- extern void zhbevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *q,
- ptrdiff_t *ldq,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: zhbgst.f */
- #define zhbgst FORTRAN_WRAPPER(zhbgst)
- extern void zhbgst(
- char *vect,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- double *ab,
- ptrdiff_t *ldab,
- double *bb,
- ptrdiff_t *ldbb,
- double *x,
- ptrdiff_t *ldx,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhbgv.f */
- #define zhbgv FORTRAN_WRAPPER(zhbgv)
- extern void zhbgv(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- double *ab,
- ptrdiff_t *ldab,
- double *bb,
- ptrdiff_t *ldbb,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhbgvd.f */
- #define zhbgvd FORTRAN_WRAPPER(zhbgvd)
- extern void zhbgvd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- double *ab,
- ptrdiff_t *ldab,
- double *bb,
- ptrdiff_t *ldbb,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zhbgvx.f */
- #define zhbgvx FORTRAN_WRAPPER(zhbgvx)
- extern void zhbgvx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *ka,
- ptrdiff_t *kb,
- double *ab,
- ptrdiff_t *ldab,
- double *bb,
- ptrdiff_t *ldbb,
- double *q,
- ptrdiff_t *ldq,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: zhbtrd.f */
- #define zhbtrd FORTRAN_WRAPPER(zhbtrd)
- extern void zhbtrd(
- char *vect,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *d,
- double *e,
- double *q,
- ptrdiff_t *ldq,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zhecon.f */
- #define zhecon FORTRAN_WRAPPER(zhecon)
- extern void zhecon(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zheequb.f */
- #define zheequb FORTRAN_WRAPPER(zheequb)
- extern void zheequb(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zheev.f */
- #define zheev FORTRAN_WRAPPER(zheev)
- extern void zheev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *w,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zheevd.f */
- #define zheevd FORTRAN_WRAPPER(zheevd)
- extern void zheevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *w,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zheevr.f */
- #define zheevr FORTRAN_WRAPPER(zheevr)
- extern void zheevr(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zheevx.f */
- #define zheevx FORTRAN_WRAPPER(zheevx)
- extern void zheevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: zhegs2.f */
- #define zhegs2 FORTRAN_WRAPPER(zhegs2)
- extern void zhegs2(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zhegst.f */
- #define zhegst FORTRAN_WRAPPER(zhegst)
- extern void zhegst(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zhegv.f */
- #define zhegv FORTRAN_WRAPPER(zhegv)
- extern void zhegv(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *w,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhegvd.f */
- #define zhegvd FORTRAN_WRAPPER(zhegvd)
- extern void zhegvd(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *w,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zhegvx.f */
- #define zhegvx FORTRAN_WRAPPER(zhegvx)
- extern void zhegvx(
- ptrdiff_t *itype,
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: zherfs.f */
- #define zherfs FORTRAN_WRAPPER(zherfs)
- extern void zherfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhesv.f */
- #define zhesv FORTRAN_WRAPPER(zhesv)
- extern void zhesv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zhesvx.f */
- #define zhesvx FORTRAN_WRAPPER(zhesvx)
- extern void zhesvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhetd2.f */
- #define zhetd2 FORTRAN_WRAPPER(zhetd2)
- extern void zhetd2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tau,
- ptrdiff_t *info
- );
- /* Source: zhetf2.f */
- #define zhetf2 FORTRAN_WRAPPER(zhetf2)
- extern void zhetf2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: zhetrd.f */
- #define zhetrd FORTRAN_WRAPPER(zhetrd)
- extern void zhetrd(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zhetrf.f */
- #define zhetrf FORTRAN_WRAPPER(zhetrf)
- extern void zhetrf(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zhetri.f */
- #define zhetri FORTRAN_WRAPPER(zhetri)
- extern void zhetri(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zhetrs.f */
- #define zhetrs FORTRAN_WRAPPER(zhetrs)
- extern void zhetrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zhfrk.f */
- #define zhfrk FORTRAN_WRAPPER(zhfrk)
- extern void zhfrk(
- char *transr,
- char *uplo,
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *alpha,
- double *a,
- ptrdiff_t *lda,
- double *beta,
- double *c
- );
- /* Source: zhgeqz.f */
- #define zhgeqz FORTRAN_WRAPPER(zhgeqz)
- extern void zhgeqz(
- char *job,
- char *compq,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *t,
- ptrdiff_t *ldt,
- double *alpha,
- double *beta,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhpcon.f */
- #define zhpcon FORTRAN_WRAPPER(zhpcon)
- extern void zhpcon(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zhpev.f */
- #define zhpev FORTRAN_WRAPPER(zhpev)
- extern void zhpev(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhpevd.f */
- #define zhpevd FORTRAN_WRAPPER(zhpevd)
- extern void zhpevd(
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zhpevx.f */
- #define zhpevx FORTRAN_WRAPPER(zhpevx)
- extern void zhpevx(
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: zhpgst.f */
- #define zhpgst FORTRAN_WRAPPER(zhpgst)
- extern void zhpgst(
- ptrdiff_t *itype,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *bp,
- ptrdiff_t *info
- );
- /* Source: zhpgv.f */
- #define zhpgv FORTRAN_WRAPPER(zhpgv)
- extern void zhpgv(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *bp,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhpgvd.f */
- #define zhpgvd FORTRAN_WRAPPER(zhpgvd)
- extern void zhpgvd(
- ptrdiff_t *itype,
- char *jobz,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *bp,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zhpgvx.f */
- #define zhpgvx FORTRAN_WRAPPER(zhpgvx)
- extern void zhpgvx(
- ptrdiff_t *itype,
- char *jobz,
- char *range,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *bp,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: zhprfs.f */
- #define zhprfs FORTRAN_WRAPPER(zhprfs)
- extern void zhprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhpsv.f */
- #define zhpsv FORTRAN_WRAPPER(zhpsv)
- extern void zhpsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zhpsvx.f */
- #define zhpsvx FORTRAN_WRAPPER(zhpsvx)
- extern void zhpsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zhptrd.f */
- #define zhptrd FORTRAN_WRAPPER(zhptrd)
- extern void zhptrd(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *d,
- double *e,
- double *tau,
- ptrdiff_t *info
- );
- /* Source: zhptrf.f */
- #define zhptrf FORTRAN_WRAPPER(zhptrf)
- extern void zhptrf(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: zhptri.f */
- #define zhptri FORTRAN_WRAPPER(zhptri)
- extern void zhptri(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zhptrs.f */
- #define zhptrs FORTRAN_WRAPPER(zhptrs)
- extern void zhptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zhsein.f */
- #define zhsein FORTRAN_WRAPPER(zhsein)
- extern void zhsein(
- char *side,
- char *eigsrc,
- char *initv,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *h,
- ptrdiff_t *ldh,
- double *w,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- double *rwork,
- ptrdiff_t *ifaill,
- ptrdiff_t *ifailr,
- ptrdiff_t *info
- );
- /* Source: zhseqr.f */
- #define zhseqr FORTRAN_WRAPPER(zhseqr)
- extern void zhseqr(
- char *job,
- char *compz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zlabrd.f */
- #define zlabrd FORTRAN_WRAPPER(zlabrd)
- extern void zlabrd(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- double *a,
- ptrdiff_t *lda,
- double *d,
- double *e,
- double *tauq,
- double *taup,
- double *x,
- ptrdiff_t *ldx,
- double *y,
- ptrdiff_t *ldy
- );
- /* Source: zlacgv.f */
- #define zlacgv FORTRAN_WRAPPER(zlacgv)
- extern void zlacgv(
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *incx
- );
- /* Source: zlacn2.f */
- #define zlacn2 FORTRAN_WRAPPER(zlacn2)
- extern void zlacn2(
- ptrdiff_t *n,
- double *v,
- double *x,
- double *est,
- ptrdiff_t *kase,
- ptrdiff_t *isave
- );
- /* Source: zlacon.f */
- #define zlacon FORTRAN_WRAPPER(zlacon)
- extern void zlacon(
- ptrdiff_t *n,
- double *v,
- double *x,
- double *est,
- ptrdiff_t *kase
- );
- /* Source: zlacp2.f */
- #define zlacp2 FORTRAN_WRAPPER(zlacp2)
- extern void zlacp2(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: zlacpy.f */
- #define zlacpy FORTRAN_WRAPPER(zlacpy)
- extern void zlacpy(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: zlacrm.f */
- #define zlacrm FORTRAN_WRAPPER(zlacrm)
- extern void zlacrm(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- ptrdiff_t *ldc,
- double *rwork
- );
- /* Source: zlacrt.f */
- #define zlacrt FORTRAN_WRAPPER(zlacrt)
- extern void zlacrt(
- ptrdiff_t *n,
- double *cx,
- ptrdiff_t *incx,
- double *cy,
- ptrdiff_t *incy,
- double *c,
- double *s
- );
- /* Source: zladiv.f */
- #define zladiv FORTRAN_WRAPPER(zladiv)
- #ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
- extern doublecomplex zladiv(
- #else
- extern void zladiv(
- doublecomplex* retval,
- #endif
- double *x,
- double *y
- );
- /* Source: zlaed0.f */
- #define zlaed0 FORTRAN_WRAPPER(zlaed0)
- extern void zlaed0(
- ptrdiff_t *qsiz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *q,
- ptrdiff_t *ldq,
- double *qstore,
- ptrdiff_t *ldqs,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: zlaed7.f */
- #define zlaed7 FORTRAN_WRAPPER(zlaed7)
- extern void zlaed7(
- ptrdiff_t *n,
- ptrdiff_t *cutpnt,
- ptrdiff_t *qsiz,
- ptrdiff_t *tlvls,
- ptrdiff_t *curlvl,
- ptrdiff_t *curpbm,
- double *d,
- double *q,
- ptrdiff_t *ldq,
- double *rho,
- ptrdiff_t *indxq,
- double *qstore,
- ptrdiff_t *qptr,
- ptrdiff_t *prmptr,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- double *givnum,
- double *work,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: zlaed8.f */
- #define zlaed8 FORTRAN_WRAPPER(zlaed8)
- extern void zlaed8(
- ptrdiff_t *k,
- ptrdiff_t *n,
- ptrdiff_t *qsiz,
- double *q,
- ptrdiff_t *ldq,
- double *d,
- double *rho,
- ptrdiff_t *cutpnt,
- double *z,
- double *dlamda,
- double *q2,
- ptrdiff_t *ldq2,
- double *w,
- ptrdiff_t *indxp,
- ptrdiff_t *indx,
- ptrdiff_t *indxq,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- double *givnum,
- ptrdiff_t *info
- );
- /* Source: zlaein.f */
- #define zlaein FORTRAN_WRAPPER(zlaein)
- extern void zlaein(
- ptrdiff_t *rightv,
- ptrdiff_t *noinit,
- ptrdiff_t *n,
- double *h,
- ptrdiff_t *ldh,
- double *w,
- double *v,
- double *b,
- ptrdiff_t *ldb,
- double *rwork,
- double *eps3,
- double *smlnum,
- ptrdiff_t *info
- );
- /* Source: zlaesy.f */
- #define zlaesy FORTRAN_WRAPPER(zlaesy)
- extern void zlaesy(
- double *a,
- double *b,
- double *c,
- double *rt1,
- double *rt2,
- double *evscal,
- double *cs1,
- double *sn1
- );
- /* Source: zlaev2.f */
- #define zlaev2 FORTRAN_WRAPPER(zlaev2)
- extern void zlaev2(
- double *a,
- double *b,
- double *c,
- double *rt1,
- double *rt2,
- double *cs1,
- double *sn1
- );
- /* Source: zlag2c.f */
- #define zlag2c FORTRAN_WRAPPER(zlag2c)
- extern void zlag2c(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- float *sa,
- ptrdiff_t *ldsa,
- ptrdiff_t *info
- );
- /* Source: zlags2.f */
- #define zlags2 FORTRAN_WRAPPER(zlags2)
- extern void zlags2(
- ptrdiff_t *upper,
- double *a1,
- double *a2,
- double *a3,
- double *b1,
- double *b2,
- double *b3,
- double *csu,
- double *snu,
- double *csv,
- double *snv,
- double *csq,
- double *snq
- );
- /* Source: zlagtm.f */
- #define zlagtm FORTRAN_WRAPPER(zlagtm)
- extern void zlagtm(
- char *trans,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *alpha,
- double *dl,
- double *d,
- double *du,
- double *x,
- ptrdiff_t *ldx,
- double *beta,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: zlahef.f */
- #define zlahef FORTRAN_WRAPPER(zlahef)
- extern void zlahef(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *w,
- ptrdiff_t *ldw,
- ptrdiff_t *info
- );
- /* Source: zlahqr.f */
- #define zlahqr FORTRAN_WRAPPER(zlahqr)
- extern void zlahqr(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *w,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *info
- );
- /* Source: zlahr2.f */
- #define zlahr2 FORTRAN_WRAPPER(zlahr2)
- extern void zlahr2(
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *nb,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *t,
- ptrdiff_t *ldt,
- double *y,
- ptrdiff_t *ldy
- );
- /* Source: zlahrd.f */
- #define zlahrd FORTRAN_WRAPPER(zlahrd)
- extern void zlahrd(
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *nb,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *t,
- ptrdiff_t *ldt,
- double *y,
- ptrdiff_t *ldy
- );
- /* Source: zlaic1.f */
- #define zlaic1 FORTRAN_WRAPPER(zlaic1)
- extern void zlaic1(
- ptrdiff_t *job,
- ptrdiff_t *j,
- double *x,
- double *sest,
- double *w,
- double *gamma_,
- double *sestpr,
- double *s,
- double *c
- );
- /* Source: zlals0.f */
- #define zlals0 FORTRAN_WRAPPER(zlals0)
- extern void zlals0(
- ptrdiff_t *icompq,
- ptrdiff_t *nl,
- ptrdiff_t *nr,
- ptrdiff_t *sqre,
- ptrdiff_t *nrhs,
- double *b,
- ptrdiff_t *ldb,
- double *bx,
- ptrdiff_t *ldbx,
- ptrdiff_t *perm,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- double *givnum,
- ptrdiff_t *ldgnum,
- double *poles,
- double *difl,
- double *difr,
- double *z,
- ptrdiff_t *k,
- double *c,
- double *s,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zlalsa.f */
- #define zlalsa FORTRAN_WRAPPER(zlalsa)
- extern void zlalsa(
- ptrdiff_t *icompq,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *b,
- ptrdiff_t *ldb,
- double *bx,
- ptrdiff_t *ldbx,
- double *u,
- ptrdiff_t *ldu,
- double *vt,
- ptrdiff_t *k,
- double *difl,
- double *difr,
- double *z,
- double *poles,
- ptrdiff_t *givptr,
- ptrdiff_t *givcol,
- ptrdiff_t *ldgcol,
- ptrdiff_t *perm,
- double *givnum,
- double *c,
- double *s,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: zlalsd.f */
- #define zlalsd FORTRAN_WRAPPER(zlalsd)
- extern void zlalsd(
- char *uplo,
- ptrdiff_t *smlsiz,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *b,
- ptrdiff_t *ldb,
- double *rcond,
- ptrdiff_t *rank,
- double *work,
- double *rwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: zlangb.f */
- #define zlangb FORTRAN_WRAPPER(zlangb)
- extern double zlangb(
- char *norm,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *work
- );
- /* Source: zlange.f */
- #define zlange FORTRAN_WRAPPER(zlange)
- extern double zlange(
- char *norm,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *work
- );
- /* Source: zlangt.f */
- #define zlangt FORTRAN_WRAPPER(zlangt)
- extern double zlangt(
- char *norm,
- ptrdiff_t *n,
- double *dl,
- double *d,
- double *du
- );
- /* Source: zlanhb.f */
- #define zlanhb FORTRAN_WRAPPER(zlanhb)
- extern double zlanhb(
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *ab,
- ptrdiff_t *ldab,
- double *work
- );
- /* Source: zlanhe.f */
- #define zlanhe FORTRAN_WRAPPER(zlanhe)
- extern double zlanhe(
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *work
- );
- /* Source: zlanhf.f */
- #define zlanhf FORTRAN_WRAPPER(zlanhf)
- extern double zlanhf(
- char *norm,
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- double *work
- );
- /* Source: zlanhp.f */
- #define zlanhp FORTRAN_WRAPPER(zlanhp)
- extern double zlanhp(
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *work
- );
- /* Source: zlanhs.f */
- #define zlanhs FORTRAN_WRAPPER(zlanhs)
- extern double zlanhs(
- char *norm,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *work
- );
- /* Source: zlanht.f */
- #define zlanht FORTRAN_WRAPPER(zlanht)
- extern double zlanht(
- char *norm,
- ptrdiff_t *n,
- double *d,
- double *e
- );
- /* Source: zlansb.f */
- #define zlansb FORTRAN_WRAPPER(zlansb)
- extern double zlansb(
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *ab,
- ptrdiff_t *ldab,
- double *work
- );
- /* Source: zlansp.f */
- #define zlansp FORTRAN_WRAPPER(zlansp)
- extern double zlansp(
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *work
- );
- /* Source: zlansy.f */
- #define zlansy FORTRAN_WRAPPER(zlansy)
- extern double zlansy(
- char *norm,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *work
- );
- /* Source: zlantb.f */
- #define zlantb FORTRAN_WRAPPER(zlantb)
- extern double zlantb(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *ab,
- ptrdiff_t *ldab,
- double *work
- );
- /* Source: zlantp.f */
- #define zlantp FORTRAN_WRAPPER(zlantp)
- extern double zlantp(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *ap,
- double *work
- );
- /* Source: zlantr.f */
- #define zlantr FORTRAN_WRAPPER(zlantr)
- extern double zlantr(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *work
- );
- /* Source: zlapll.f */
- #define zlapll FORTRAN_WRAPPER(zlapll)
- extern void zlapll(
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *incx,
- double *y,
- ptrdiff_t *incy,
- double *ssmin
- );
- /* Source: zlapmt.f */
- #define zlapmt FORTRAN_WRAPPER(zlapmt)
- extern void zlapmt(
- ptrdiff_t *forwrd,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *ldx,
- ptrdiff_t *k
- );
- /* Source: zlaqgb.f */
- #define zlaqgb FORTRAN_WRAPPER(zlaqgb)
- extern void zlaqgb(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *ab,
- ptrdiff_t *ldab,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- char *equed
- );
- /* Source: zlaqge.f */
- #define zlaqge FORTRAN_WRAPPER(zlaqge)
- extern void zlaqge(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *r,
- double *c,
- double *rowcnd,
- double *colcnd,
- double *amax,
- char *equed
- );
- /* Source: zlaqhb.f */
- #define zlaqhb FORTRAN_WRAPPER(zlaqhb)
- extern void zlaqhb(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *s,
- double *scond,
- double *amax,
- char *equed
- );
- /* Source: zlaqhe.f */
- #define zlaqhe FORTRAN_WRAPPER(zlaqhe)
- extern void zlaqhe(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- char *equed
- );
- /* Source: zlaqhp.f */
- #define zlaqhp FORTRAN_WRAPPER(zlaqhp)
- extern void zlaqhp(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *s,
- double *scond,
- double *amax,
- char *equed
- );
- /* Source: zlaqp2.f */
- #define zlaqp2 FORTRAN_WRAPPER(zlaqp2)
- extern void zlaqp2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *offset,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- double *tau,
- double *vn1,
- double *vn2,
- double *work
- );
- /* Source: zlaqps.f */
- #define zlaqps FORTRAN_WRAPPER(zlaqps)
- extern void zlaqps(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *offset,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *jpvt,
- double *tau,
- double *vn1,
- double *vn2,
- double *auxv,
- double *f,
- ptrdiff_t *ldf
- );
- /* Source: zlaqr0.f */
- #define zlaqr0 FORTRAN_WRAPPER(zlaqr0)
- extern void zlaqr0(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *w,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zlaqr1.f */
- #define zlaqr1 FORTRAN_WRAPPER(zlaqr1)
- extern void zlaqr1(
- ptrdiff_t *n,
- double *h,
- ptrdiff_t *ldh,
- double *s1,
- double *s2,
- double *v
- );
- /* Source: zlaqr2.f */
- #define zlaqr2 FORTRAN_WRAPPER(zlaqr2)
- extern void zlaqr2(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nw,
- double *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ns,
- ptrdiff_t *nd,
- double *sh,
- double *v,
- ptrdiff_t *ldv,
- ptrdiff_t *nh,
- double *t,
- ptrdiff_t *ldt,
- ptrdiff_t *nv,
- double *wv,
- ptrdiff_t *ldwv,
- double *work,
- ptrdiff_t *lwork
- );
- /* Source: zlaqr3.f */
- #define zlaqr3 FORTRAN_WRAPPER(zlaqr3)
- extern void zlaqr3(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nw,
- double *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ns,
- ptrdiff_t *nd,
- double *sh,
- double *v,
- ptrdiff_t *ldv,
- ptrdiff_t *nh,
- double *t,
- ptrdiff_t *ldt,
- ptrdiff_t *nv,
- double *wv,
- ptrdiff_t *ldwv,
- double *work,
- ptrdiff_t *lwork
- );
- /* Source: zlaqr4.f */
- #define zlaqr4 FORTRAN_WRAPPER(zlaqr4)
- extern void zlaqr4(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *h,
- ptrdiff_t *ldh,
- double *w,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zlaqr5.f */
- #define zlaqr5 FORTRAN_WRAPPER(zlaqr5)
- extern void zlaqr5(
- ptrdiff_t *wantt,
- ptrdiff_t *wantz,
- ptrdiff_t *kacc22,
- ptrdiff_t *n,
- ptrdiff_t *ktop,
- ptrdiff_t *kbot,
- ptrdiff_t *nshfts,
- double *s,
- double *h,
- ptrdiff_t *ldh,
- ptrdiff_t *iloz,
- ptrdiff_t *ihiz,
- double *z,
- ptrdiff_t *ldz,
- double *v,
- ptrdiff_t *ldv,
- double *u,
- ptrdiff_t *ldu,
- ptrdiff_t *nv,
- double *wv,
- ptrdiff_t *ldwv,
- ptrdiff_t *nh,
- double *wh,
- ptrdiff_t *ldwh
- );
- /* Source: zlaqsb.f */
- #define zlaqsb FORTRAN_WRAPPER(zlaqsb)
- extern void zlaqsb(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *s,
- double *scond,
- double *amax,
- char *equed
- );
- /* Source: zlaqsp.f */
- #define zlaqsp FORTRAN_WRAPPER(zlaqsp)
- extern void zlaqsp(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *s,
- double *scond,
- double *amax,
- char *equed
- );
- /* Source: zlaqsy.f */
- #define zlaqsy FORTRAN_WRAPPER(zlaqsy)
- extern void zlaqsy(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- char *equed
- );
- /* Source: zlar1v.f */
- #define zlar1v FORTRAN_WRAPPER(zlar1v)
- extern void zlar1v(
- ptrdiff_t *n,
- ptrdiff_t *b1,
- ptrdiff_t *bn,
- double *lambda,
- double *d,
- double *l,
- double *ld,
- double *lld,
- double *pivmin,
- double *gaptol,
- double *z,
- ptrdiff_t *wantnc,
- ptrdiff_t *negcnt,
- double *ztz,
- double *mingma,
- ptrdiff_t *r,
- ptrdiff_t *isuppz,
- double *nrminv,
- double *resid,
- double *rqcorr,
- double *work
- );
- /* Source: zlar2v.f */
- #define zlar2v FORTRAN_WRAPPER(zlar2v)
- extern void zlar2v(
- ptrdiff_t *n,
- double *x,
- double *y,
- double *z,
- ptrdiff_t *incx,
- double *c,
- double *s,
- ptrdiff_t *incc
- );
- /* Source: zlarcm.f */
- #define zlarcm FORTRAN_WRAPPER(zlarcm)
- extern void zlarcm(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- ptrdiff_t *ldc,
- double *rwork
- );
- /* Source: zlarf.f */
- #define zlarf FORTRAN_WRAPPER(zlarf)
- extern void zlarf(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *v,
- ptrdiff_t *incv,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work
- );
- /* Source: zlarfb.f */
- #define zlarfb FORTRAN_WRAPPER(zlarfb)
- extern void zlarfb(
- char *side,
- char *trans,
- char *direct,
- char *storev,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *v,
- ptrdiff_t *ldv,
- double *t,
- ptrdiff_t *ldt,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *ldwork
- );
- /* Source: zlarfg.f */
- #define zlarfg FORTRAN_WRAPPER(zlarfg)
- extern void zlarfg(
- ptrdiff_t *n,
- double *alpha,
- double *x,
- ptrdiff_t *incx,
- double *tau
- );
- /* Source: zlarfp.f */
- #define zlarfp FORTRAN_WRAPPER(zlarfp)
- extern void zlarfp(
- ptrdiff_t *n,
- double *alpha,
- double *x,
- ptrdiff_t *incx,
- double *tau
- );
- /* Source: zlarft.f */
- #define zlarft FORTRAN_WRAPPER(zlarft)
- extern void zlarft(
- char *direct,
- char *storev,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *v,
- ptrdiff_t *ldv,
- double *tau,
- double *t,
- ptrdiff_t *ldt
- );
- /* Source: zlarfx.f */
- #define zlarfx FORTRAN_WRAPPER(zlarfx)
- extern void zlarfx(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *v,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work
- );
- /* Source: zlargv.f */
- #define zlargv FORTRAN_WRAPPER(zlargv)
- extern void zlargv(
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *incx,
- double *y,
- ptrdiff_t *incy,
- double *c,
- ptrdiff_t *incc
- );
- /* Source: zlarnv.f */
- #define zlarnv FORTRAN_WRAPPER(zlarnv)
- extern void zlarnv(
- ptrdiff_t *idist,
- ptrdiff_t *iseed,
- ptrdiff_t *n,
- double *x
- );
- /* Source: zlarrv.f */
- #define zlarrv FORTRAN_WRAPPER(zlarrv)
- extern void zlarrv(
- ptrdiff_t *n,
- double *vl,
- double *vu,
- double *d,
- double *l,
- double *pivmin,
- ptrdiff_t *isplit,
- ptrdiff_t *m,
- ptrdiff_t *dol,
- ptrdiff_t *dou,
- double *minrgp,
- double *rtol1,
- double *rtol2,
- double *w,
- double *werr,
- double *wgap,
- ptrdiff_t *iblock,
- ptrdiff_t *indexw,
- double *gers,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: zlartg.f */
- #define zlartg FORTRAN_WRAPPER(zlartg)
- extern void zlartg(
- double *f,
- double *g,
- double *cs,
- double *sn,
- double *r
- );
- /* Source: zlartv.f */
- #define zlartv FORTRAN_WRAPPER(zlartv)
- extern void zlartv(
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *incx,
- double *y,
- ptrdiff_t *incy,
- double *c,
- double *s,
- ptrdiff_t *incc
- );
- /* Source: zlarz.f */
- #define zlarz FORTRAN_WRAPPER(zlarz)
- extern void zlarz(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *l,
- double *v,
- ptrdiff_t *incv,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work
- );
- /* Source: zlarzb.f */
- #define zlarzb FORTRAN_WRAPPER(zlarzb)
- extern void zlarzb(
- char *side,
- char *trans,
- char *direct,
- char *storev,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *v,
- ptrdiff_t *ldv,
- double *t,
- ptrdiff_t *ldt,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *ldwork
- );
- /* Source: zlarzt.f */
- #define zlarzt FORTRAN_WRAPPER(zlarzt)
- extern void zlarzt(
- char *direct,
- char *storev,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *v,
- ptrdiff_t *ldv,
- double *tau,
- double *t,
- ptrdiff_t *ldt
- );
- /* Source: zlascl.f */
- #define zlascl FORTRAN_WRAPPER(zlascl)
- extern void zlascl(
- char *type,
- ptrdiff_t *kl,
- ptrdiff_t *ku,
- double *cfrom,
- double *cto,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: zlaset.f */
- #define zlaset FORTRAN_WRAPPER(zlaset)
- extern void zlaset(
- char *uplo,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *alpha,
- double *beta,
- double *a,
- ptrdiff_t *lda
- );
- /* Source: zlasr.f */
- #define zlasr FORTRAN_WRAPPER(zlasr)
- extern void zlasr(
- char *side,
- char *pivot,
- char *direct,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *c,
- double *s,
- double *a,
- ptrdiff_t *lda
- );
- /* Source: zlassq.f */
- #define zlassq FORTRAN_WRAPPER(zlassq)
- extern void zlassq(
- ptrdiff_t *n,
- double *x,
- ptrdiff_t *incx,
- double *scale,
- double *sumsq
- );
- /* Source: zlaswp.f */
- #define zlaswp FORTRAN_WRAPPER(zlaswp)
- extern void zlaswp(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *k1,
- ptrdiff_t *k2,
- ptrdiff_t *ipiv,
- ptrdiff_t *incx
- );
- /* Source: zlasyf.f */
- #define zlasyf FORTRAN_WRAPPER(zlasyf)
- extern void zlasyf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- ptrdiff_t *kb,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *w,
- ptrdiff_t *ldw,
- ptrdiff_t *info
- );
- /* Source: zlat2c.f */
- #define zlat2c FORTRAN_WRAPPER(zlat2c)
- extern void zlat2c(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- float *sa,
- ptrdiff_t *ldsa,
- ptrdiff_t *info
- );
- /* Source: zlatbs.f */
- #define zlatbs FORTRAN_WRAPPER(zlatbs)
- extern void zlatbs(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *x,
- double *scale,
- double *cnorm,
- ptrdiff_t *info
- );
- /* Source: zlatdf.f */
- #define zlatdf FORTRAN_WRAPPER(zlatdf)
- extern void zlatdf(
- ptrdiff_t *ijob,
- ptrdiff_t *n,
- double *z,
- ptrdiff_t *ldz,
- double *rhs,
- double *rdsum,
- double *rdscal,
- ptrdiff_t *ipiv,
- ptrdiff_t *jpiv
- );
- /* Source: zlatps.f */
- #define zlatps FORTRAN_WRAPPER(zlatps)
- extern void zlatps(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- double *ap,
- double *x,
- double *scale,
- double *cnorm,
- ptrdiff_t *info
- );
- /* Source: zlatrd.f */
- #define zlatrd FORTRAN_WRAPPER(zlatrd)
- extern void zlatrd(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nb,
- double *a,
- ptrdiff_t *lda,
- double *e,
- double *tau,
- double *w,
- ptrdiff_t *ldw
- );
- /* Source: zlatrs.f */
- #define zlatrs FORTRAN_WRAPPER(zlatrs)
- extern void zlatrs(
- char *uplo,
- char *trans,
- char *diag,
- char *normin,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *x,
- double *scale,
- double *cnorm,
- ptrdiff_t *info
- );
- /* Source: zlatrz.f */
- #define zlatrz FORTRAN_WRAPPER(zlatrz)
- extern void zlatrz(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work
- );
- /* Source: zlatzm.f */
- #define zlatzm FORTRAN_WRAPPER(zlatzm)
- extern void zlatzm(
- char *side,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *v,
- ptrdiff_t *incv,
- double *tau,
- double *c1,
- double *c2,
- ptrdiff_t *ldc,
- double *work
- );
- /* Source: zlauu2.f */
- #define zlauu2 FORTRAN_WRAPPER(zlauu2)
- extern void zlauu2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: zlauum.f */
- #define zlauum FORTRAN_WRAPPER(zlauum)
- extern void zlauum(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: zpbcon.f */
- #define zpbcon FORTRAN_WRAPPER(zpbcon)
- extern void zpbcon(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *anorm,
- double *rcond,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zpbequ.f */
- #define zpbequ FORTRAN_WRAPPER(zpbequ)
- extern void zpbequ(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *s,
- double *scond,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: zpbrfs.f */
- #define zpbrfs FORTRAN_WRAPPER(zpbrfs)
- extern void zpbrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *afb,
- ptrdiff_t *ldafb,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zpbstf.f */
- #define zpbstf FORTRAN_WRAPPER(zpbstf)
- extern void zpbstf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: zpbsv.f */
- #define zpbsv FORTRAN_WRAPPER(zpbsv)
- extern void zpbsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zpbsvx.f */
- #define zpbsvx FORTRAN_WRAPPER(zpbsvx)
- extern void zpbsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *afb,
- ptrdiff_t *ldafb,
- char *equed,
- double *s,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zpbtf2.f */
- #define zpbtf2 FORTRAN_WRAPPER(zpbtf2)
- extern void zpbtf2(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: zpbtrf.f */
- #define zpbtrf FORTRAN_WRAPPER(zpbtrf)
- extern void zpbtrf(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- ptrdiff_t *info
- );
- /* Source: zpbtrs.f */
- #define zpbtrs FORTRAN_WRAPPER(zpbtrs)
- extern void zpbtrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zpftrf.f */
- #define zpftrf FORTRAN_WRAPPER(zpftrf)
- extern void zpftrf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *info
- );
- /* Source: zpftri.f */
- #define zpftri FORTRAN_WRAPPER(zpftri)
- extern void zpftri(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *info
- );
- /* Source: zpftrs.f */
- #define zpftrs FORTRAN_WRAPPER(zpftrs)
- extern void zpftrs(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zpocon.f */
- #define zpocon FORTRAN_WRAPPER(zpocon)
- extern void zpocon(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *anorm,
- double *rcond,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zpoequ.f */
- #define zpoequ FORTRAN_WRAPPER(zpoequ)
- extern void zpoequ(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: zpoequb.f */
- #define zpoequb FORTRAN_WRAPPER(zpoequb)
- extern void zpoequb(
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: zporfs.f */
- #define zporfs FORTRAN_WRAPPER(zporfs)
- extern void zporfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zposv.f */
- #define zposv FORTRAN_WRAPPER(zposv)
- extern void zposv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zposvx.f */
- #define zposvx FORTRAN_WRAPPER(zposvx)
- extern void zposvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- char *equed,
- double *s,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zpotf2.f */
- #define zpotf2 FORTRAN_WRAPPER(zpotf2)
- extern void zpotf2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: zpotrf.f */
- #define zpotrf FORTRAN_WRAPPER(zpotrf)
- extern void zpotrf(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: zpotri.f */
- #define zpotri FORTRAN_WRAPPER(zpotri)
- extern void zpotri(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: zpotrs.f */
- #define zpotrs FORTRAN_WRAPPER(zpotrs)
- extern void zpotrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zppcon.f */
- #define zppcon FORTRAN_WRAPPER(zppcon)
- extern void zppcon(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *anorm,
- double *rcond,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zppequ.f */
- #define zppequ FORTRAN_WRAPPER(zppequ)
- extern void zppequ(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *s,
- double *scond,
- double *amax,
- ptrdiff_t *info
- );
- /* Source: zpprfs.f */
- #define zpprfs FORTRAN_WRAPPER(zpprfs)
- extern void zpprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zppsv.f */
- #define zppsv FORTRAN_WRAPPER(zppsv)
- extern void zppsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zppsvx.f */
- #define zppsvx FORTRAN_WRAPPER(zppsvx)
- extern void zppsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- char *equed,
- double *s,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zpptrf.f */
- #define zpptrf FORTRAN_WRAPPER(zpptrf)
- extern void zpptrf(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: zpptri.f */
- #define zpptri FORTRAN_WRAPPER(zpptri)
- extern void zpptri(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: zpptrs.f */
- #define zpptrs FORTRAN_WRAPPER(zpptrs)
- extern void zpptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zpstf2.f */
- #define zpstf2 FORTRAN_WRAPPER(zpstf2)
- extern void zpstf2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *piv,
- ptrdiff_t *rank,
- double *tol,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zpstrf.f */
- #define zpstrf FORTRAN_WRAPPER(zpstrf)
- extern void zpstrf(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *piv,
- ptrdiff_t *rank,
- double *tol,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zptcon.f */
- #define zptcon FORTRAN_WRAPPER(zptcon)
- extern void zptcon(
- ptrdiff_t *n,
- double *d,
- double *e,
- double *anorm,
- double *rcond,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zpteqr.f */
- #define zpteqr FORTRAN_WRAPPER(zpteqr)
- extern void zpteqr(
- char *compz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zptrfs.f */
- #define zptrfs FORTRAN_WRAPPER(zptrfs)
- extern void zptrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *df,
- double *ef,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zptsv.f */
- #define zptsv FORTRAN_WRAPPER(zptsv)
- extern void zptsv(
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zptsvx.f */
- #define zptsvx FORTRAN_WRAPPER(zptsvx)
- extern void zptsvx(
- char *fact,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *df,
- double *ef,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zpttrf.f */
- #define zpttrf FORTRAN_WRAPPER(zpttrf)
- extern void zpttrf(
- ptrdiff_t *n,
- double *d,
- double *e,
- ptrdiff_t *info
- );
- /* Source: zpttrs.f */
- #define zpttrs FORTRAN_WRAPPER(zpttrs)
- extern void zpttrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zptts2.f */
- #define zptts2 FORTRAN_WRAPPER(zptts2)
- extern void zptts2(
- ptrdiff_t *iuplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *d,
- double *e,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: zrot.f */
- #define zrot FORTRAN_WRAPPER(zrot)
- extern void zrot(
- ptrdiff_t *n,
- double *cx,
- ptrdiff_t *incx,
- double *cy,
- ptrdiff_t *incy,
- double *c,
- double *s
- );
- /* Source: zspcon.f */
- #define zspcon FORTRAN_WRAPPER(zspcon)
- extern void zspcon(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zspmv.f */
- #define zspmv FORTRAN_WRAPPER(zspmv)
- extern void zspmv(
- char *uplo,
- ptrdiff_t *n,
- double *alpha,
- double *ap,
- double *x,
- ptrdiff_t *incx,
- double *beta,
- double *y,
- ptrdiff_t *incy
- );
- /* Source: zspr.f */
- #define zspr FORTRAN_WRAPPER(zspr)
- extern void zspr(
- char *uplo,
- ptrdiff_t *n,
- double *alpha,
- double *x,
- ptrdiff_t *incx,
- double *ap
- );
- /* Source: zsprfs.f */
- #define zsprfs FORTRAN_WRAPPER(zsprfs)
- extern void zsprfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zspsv.f */
- #define zspsv FORTRAN_WRAPPER(zspsv)
- extern void zspsv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zspsvx.f */
- #define zspsvx FORTRAN_WRAPPER(zspsvx)
- extern void zspsvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *afp,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zsptrf.f */
- #define zsptrf FORTRAN_WRAPPER(zsptrf)
- extern void zsptrf(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: zsptri.f */
- #define zsptri FORTRAN_WRAPPER(zsptri)
- extern void zsptri(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zsptrs.f */
- #define zsptrs FORTRAN_WRAPPER(zsptrs)
- extern void zsptrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: zstedc.f */
- #define zstedc FORTRAN_WRAPPER(zstedc)
- extern void zstedc(
- char *compz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *lrwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zstegr.f */
- #define zstegr FORTRAN_WRAPPER(zstegr)
- extern void zstegr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- double *abstol,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *isuppz,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zstein.f */
- #define zstein FORTRAN_WRAPPER(zstein)
- extern void zstein(
- ptrdiff_t *n,
- double *d,
- double *e,
- ptrdiff_t *m,
- double *w,
- ptrdiff_t *iblock,
- ptrdiff_t *isplit,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *iwork,
- ptrdiff_t *ifail,
- ptrdiff_t *info
- );
- /* Source: zstemr.f */
- #define zstemr FORTRAN_WRAPPER(zstemr)
- extern void zstemr(
- char *jobz,
- char *range,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *vl,
- double *vu,
- ptrdiff_t *il,
- ptrdiff_t *iu,
- ptrdiff_t *m,
- double *w,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *nzc,
- ptrdiff_t *isuppz,
- ptrdiff_t *tryrac,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: zsteqr.f */
- #define zsteqr FORTRAN_WRAPPER(zsteqr)
- extern void zsteqr(
- char *compz,
- ptrdiff_t *n,
- double *d,
- double *e,
- double *z,
- ptrdiff_t *ldz,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zsycon.f */
- #define zsycon FORTRAN_WRAPPER(zsycon)
- extern void zsycon(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *anorm,
- double *rcond,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zsyequb.f */
- #define zsyequb FORTRAN_WRAPPER(zsyequb)
- extern void zsyequb(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *s,
- double *scond,
- double *amax,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zsymv.f */
- #define zsymv FORTRAN_WRAPPER(zsymv)
- extern void zsymv(
- char *uplo,
- ptrdiff_t *n,
- double *alpha,
- double *a,
- ptrdiff_t *lda,
- double *x,
- ptrdiff_t *incx,
- double *beta,
- double *y,
- ptrdiff_t *incy
- );
- /* Source: zsyr.f */
- #define zsyr FORTRAN_WRAPPER(zsyr)
- extern void zsyr(
- char *uplo,
- ptrdiff_t *n,
- double *alpha,
- double *x,
- ptrdiff_t *incx,
- double *a,
- ptrdiff_t *lda
- );
- /* Source: zsyrfs.f */
- #define zsyrfs FORTRAN_WRAPPER(zsyrfs)
- extern void zsyrfs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zsysv.f */
- #define zsysv FORTRAN_WRAPPER(zsysv)
- extern void zsysv(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zsysvx.f */
- #define zsysvx FORTRAN_WRAPPER(zsysvx)
- extern void zsysvx(
- char *fact,
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *af,
- ptrdiff_t *ldaf,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *rcond,
- double *ferr,
- double *berr,
- double *work,
- ptrdiff_t *lwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: zsytf2.f */
- #define zsytf2 FORTRAN_WRAPPER(zsytf2)
- extern void zsytf2(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- ptrdiff_t *info
- );
- /* Source: zsytrf.f */
- #define zsytrf FORTRAN_WRAPPER(zsytrf)
- extern void zsytrf(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zsytri.f */
- #define zsytri FORTRAN_WRAPPER(zsytri)
- extern void zsytri(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zsytrs.f */
- #define zsytrs FORTRAN_WRAPPER(zsytrs)
- extern void zsytrs(
- char *uplo,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *ipiv,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ztbcon.f */
- #define ztbcon FORTRAN_WRAPPER(ztbcon)
- extern void ztbcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- double *ab,
- ptrdiff_t *ldab,
- double *rcond,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: ztbrfs.f */
- #define ztbrfs FORTRAN_WRAPPER(ztbrfs)
- extern void ztbrfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: ztbtrs.f */
- #define ztbtrs FORTRAN_WRAPPER(ztbtrs)
- extern void ztbtrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *kd,
- ptrdiff_t *nrhs,
- double *ab,
- ptrdiff_t *ldab,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ztfsm.f */
- #define ztfsm FORTRAN_WRAPPER(ztfsm)
- extern void ztfsm(
- char *transr,
- char *side,
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *alpha,
- double *a,
- double *b,
- ptrdiff_t *ldb
- );
- /* Source: ztftri.f */
- #define ztftri FORTRAN_WRAPPER(ztftri)
- extern void ztftri(
- char *transr,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *info
- );
- /* Source: ztfttp.f */
- #define ztfttp FORTRAN_WRAPPER(ztfttp)
- extern void ztfttp(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *arf,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: ztfttr.f */
- #define ztfttr FORTRAN_WRAPPER(ztfttr)
- extern void ztfttr(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *arf,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: ztgevc.f */
- #define ztgevc FORTRAN_WRAPPER(ztgevc)
- extern void ztgevc(
- char *side,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *s,
- ptrdiff_t *lds,
- double *p,
- ptrdiff_t *ldp,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: ztgex2.f */
- #define ztgex2 FORTRAN_WRAPPER(ztgex2)
- extern void ztgex2(
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *j1_,
- ptrdiff_t *info
- );
- /* Source: ztgexc.f */
- #define ztgexc FORTRAN_WRAPPER(ztgexc)
- extern void ztgexc(
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *ifst,
- ptrdiff_t *ilst,
- ptrdiff_t *info
- );
- /* Source: ztgsen.f */
- #define ztgsen FORTRAN_WRAPPER(ztgsen)
- extern void ztgsen(
- ptrdiff_t *ijob,
- ptrdiff_t *wantq,
- ptrdiff_t *wantz,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *alpha,
- double *beta,
- double *q,
- ptrdiff_t *ldq,
- double *z,
- ptrdiff_t *ldz,
- ptrdiff_t *m,
- double *pl,
- double *pr,
- double *dif,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *liwork,
- ptrdiff_t *info
- );
- /* Source: ztgsja.f */
- #define ztgsja FORTRAN_WRAPPER(ztgsja)
- extern void ztgsja(
- char *jobu,
- char *jobv,
- char *jobq,
- ptrdiff_t *m,
- ptrdiff_t *p,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *tola,
- double *tolb,
- double *alpha,
- double *beta,
- double *u,
- ptrdiff_t *ldu,
- double *v,
- ptrdiff_t *ldv,
- double *q,
- ptrdiff_t *ldq,
- double *work,
- ptrdiff_t *ncycle,
- ptrdiff_t *info
- );
- /* Source: ztgsna.f */
- #define ztgsna FORTRAN_WRAPPER(ztgsna)
- extern void ztgsna(
- char *job,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *s,
- double *dif,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: ztgsy2.f */
- #define ztgsy2 FORTRAN_WRAPPER(ztgsy2)
- extern void ztgsy2(
- char *trans,
- ptrdiff_t *ijob,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- ptrdiff_t *ldc,
- double *d,
- ptrdiff_t *ldd,
- double *e,
- ptrdiff_t *lde,
- double *f,
- ptrdiff_t *ldf,
- double *scale,
- double *rdsum,
- double *rdscal,
- ptrdiff_t *info
- );
- /* Source: ztgsyl.f */
- #define ztgsyl FORTRAN_WRAPPER(ztgsyl)
- extern void ztgsyl(
- char *trans,
- ptrdiff_t *ijob,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- ptrdiff_t *ldc,
- double *d,
- ptrdiff_t *ldd,
- double *e,
- ptrdiff_t *lde,
- double *f,
- ptrdiff_t *ldf,
- double *scale,
- double *dif,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *iwork,
- ptrdiff_t *info
- );
- /* Source: ztpcon.f */
- #define ztpcon FORTRAN_WRAPPER(ztpcon)
- extern void ztpcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *ap,
- double *rcond,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: ztprfs.f */
- #define ztprfs FORTRAN_WRAPPER(ztprfs)
- extern void ztprfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: ztptri.f */
- #define ztptri FORTRAN_WRAPPER(ztptri)
- extern void ztptri(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: ztptrs.f */
- #define ztptrs FORTRAN_WRAPPER(ztptrs)
- extern void ztptrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *ap,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ztpttf.f */
- #define ztpttf FORTRAN_WRAPPER(ztpttf)
- extern void ztpttf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *arf,
- ptrdiff_t *info
- );
- /* Source: ztpttr.f */
- #define ztpttr FORTRAN_WRAPPER(ztpttr)
- extern void ztpttr(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: ztrcon.f */
- #define ztrcon FORTRAN_WRAPPER(ztrcon)
- extern void ztrcon(
- char *norm,
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *rcond,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: ztrevc.f */
- #define ztrevc FORTRAN_WRAPPER(ztrevc)
- extern void ztrevc(
- char *side,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: ztrexc.f */
- #define ztrexc FORTRAN_WRAPPER(ztrexc)
- extern void ztrexc(
- char *compq,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *q,
- ptrdiff_t *ldq,
- ptrdiff_t *ifst,
- ptrdiff_t *ilst,
- ptrdiff_t *info
- );
- /* Source: ztrrfs.f */
- #define ztrrfs FORTRAN_WRAPPER(ztrrfs)
- extern void ztrrfs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *x,
- ptrdiff_t *ldx,
- double *ferr,
- double *berr,
- double *work,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: ztrsen.f */
- #define ztrsen FORTRAN_WRAPPER(ztrsen)
- extern void ztrsen(
- char *job,
- char *compq,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *q,
- ptrdiff_t *ldq,
- double *w,
- ptrdiff_t *m,
- double *s,
- double *sep,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: ztrsna.f */
- #define ztrsna FORTRAN_WRAPPER(ztrsna)
- extern void ztrsna(
- char *job,
- char *howmny,
- ptrdiff_t *select,
- ptrdiff_t *n,
- double *t,
- ptrdiff_t *ldt,
- double *vl,
- ptrdiff_t *ldvl,
- double *vr,
- ptrdiff_t *ldvr,
- double *s,
- double *sep,
- ptrdiff_t *mm,
- ptrdiff_t *m,
- double *work,
- ptrdiff_t *ldwork,
- double *rwork,
- ptrdiff_t *info
- );
- /* Source: ztrsyl.f */
- #define ztrsyl FORTRAN_WRAPPER(ztrsyl)
- extern void ztrsyl(
- char *trana,
- char *tranb,
- ptrdiff_t *isgn,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- double *c,
- ptrdiff_t *ldc,
- double *scale,
- ptrdiff_t *info
- );
- /* Source: ztrti2.f */
- #define ztrti2 FORTRAN_WRAPPER(ztrti2)
- extern void ztrti2(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: ztrtri.f */
- #define ztrtri FORTRAN_WRAPPER(ztrtri)
- extern void ztrtri(
- char *uplo,
- char *diag,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- ptrdiff_t *info
- );
- /* Source: ztrtrs.f */
- #define ztrtrs FORTRAN_WRAPPER(ztrtrs)
- extern void ztrtrs(
- char *uplo,
- char *trans,
- char *diag,
- ptrdiff_t *n,
- ptrdiff_t *nrhs,
- double *a,
- ptrdiff_t *lda,
- double *b,
- ptrdiff_t *ldb,
- ptrdiff_t *info
- );
- /* Source: ztrttf.f */
- #define ztrttf FORTRAN_WRAPPER(ztrttf)
- extern void ztrttf(
- char *transr,
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *arf,
- ptrdiff_t *info
- );
- /* Source: ztrttp.f */
- #define ztrttp FORTRAN_WRAPPER(ztrttp)
- extern void ztrttp(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *ap,
- ptrdiff_t *info
- );
- /* Source: ztzrqf.f */
- #define ztzrqf FORTRAN_WRAPPER(ztzrqf)
- extern void ztzrqf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- ptrdiff_t *info
- );
- /* Source: ztzrzf.f */
- #define ztzrzf FORTRAN_WRAPPER(ztzrzf)
- extern void ztzrzf(
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zung2l.f */
- #define zung2l FORTRAN_WRAPPER(zung2l)
- extern void zung2l(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zung2r.f */
- #define zung2r FORTRAN_WRAPPER(zung2r)
- extern void zung2r(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zungbr.f */
- #define zungbr FORTRAN_WRAPPER(zungbr)
- extern void zungbr(
- char *vect,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zunghr.f */
- #define zunghr FORTRAN_WRAPPER(zunghr)
- extern void zunghr(
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zungl2.f */
- #define zungl2 FORTRAN_WRAPPER(zungl2)
- extern void zungl2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zunglq.f */
- #define zunglq FORTRAN_WRAPPER(zunglq)
- extern void zunglq(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zungql.f */
- #define zungql FORTRAN_WRAPPER(zungql)
- extern void zungql(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zungqr.f */
- #define zungqr FORTRAN_WRAPPER(zungqr)
- extern void zungqr(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zungr2.f */
- #define zungr2 FORTRAN_WRAPPER(zungr2)
- extern void zungr2(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zungrq.f */
- #define zungrq FORTRAN_WRAPPER(zungrq)
- extern void zungrq(
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zungtr.f */
- #define zungtr FORTRAN_WRAPPER(zungtr)
- extern void zungtr(
- char *uplo,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zunm2l.f */
- #define zunm2l FORTRAN_WRAPPER(zunm2l)
- extern void zunm2l(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zunm2r.f */
- #define zunm2r FORTRAN_WRAPPER(zunm2r)
- extern void zunm2r(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zunmbr.f */
- #define zunmbr FORTRAN_WRAPPER(zunmbr)
- extern void zunmbr(
- char *vect,
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zunmhr.f */
- #define zunmhr FORTRAN_WRAPPER(zunmhr)
- extern void zunmhr(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *ilo,
- ptrdiff_t *ihi,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zunml2.f */
- #define zunml2 FORTRAN_WRAPPER(zunml2)
- extern void zunml2(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zunmlq.f */
- #define zunmlq FORTRAN_WRAPPER(zunmlq)
- extern void zunmlq(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zunmql.f */
- #define zunmql FORTRAN_WRAPPER(zunmql)
- extern void zunmql(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zunmqr.f */
- #define zunmqr FORTRAN_WRAPPER(zunmqr)
- extern void zunmqr(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zunmr2.f */
- #define zunmr2 FORTRAN_WRAPPER(zunmr2)
- extern void zunmr2(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zunmr3.f */
- #define zunmr3 FORTRAN_WRAPPER(zunmr3)
- extern void zunmr3(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zunmrq.f */
- #define zunmrq FORTRAN_WRAPPER(zunmrq)
- extern void zunmrq(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zunmrz.f */
- #define zunmrz FORTRAN_WRAPPER(zunmrz)
- extern void zunmrz(
- char *side,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- ptrdiff_t *k,
- ptrdiff_t *l,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zunmtr.f */
- #define zunmtr FORTRAN_WRAPPER(zunmtr)
- extern void zunmtr(
- char *side,
- char *uplo,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *a,
- ptrdiff_t *lda,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *lwork,
- ptrdiff_t *info
- );
- /* Source: zupgtr.f */
- #define zupgtr FORTRAN_WRAPPER(zupgtr)
- extern void zupgtr(
- char *uplo,
- ptrdiff_t *n,
- double *ap,
- double *tau,
- double *q,
- ptrdiff_t *ldq,
- double *work,
- ptrdiff_t *info
- );
- /* Source: zupmtr.f */
- #define zupmtr FORTRAN_WRAPPER(zupmtr)
- extern void zupmtr(
- char *side,
- char *uplo,
- char *trans,
- ptrdiff_t *m,
- ptrdiff_t *n,
- double *ap,
- double *tau,
- double *c,
- ptrdiff_t *ldc,
- double *work,
- ptrdiff_t *info
- );
- #ifdef __cplusplus
- } /* extern "C" */
- #endif
- #endif /* lapack_h */