lapack-cffi.lisp

(DEFPACKAGE :ORG.MIDDLEANGLE.CL-BLAPACK.LAPACK-CFFI (:NICKNAMES :LAPACK-CFFI)
            (:USE :COMMON-LISP :CFFI :FOREIGN-NUMERIC-VECTOR :FNV-UTILS
                  :BLAPACK-CFFI-TYPES))

(IN-PACKAGE :ORG.MIDDLEANGLE.CL-BLAPACK.LAPACK-CFFI)

(CFFI:DEFCFUN ("cbdsqr_" %CBDSQR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NCVT FORTRAN-INT) (NRU FORTRAN-INT) (NCC FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (VT CFFI-FNV-COMPLEX-FLOAT) (LDVT FORTRAN-INT)
              (U CFFI-FNV-COMPLEX-FLOAT) (LDU FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CBDSQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgbbrd_" %CGBBRD) :VOID (VECT :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (NCC FORTRAN-INT) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (PT CFFI-FNV-COMPLEX-FLOAT) (LDPT FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGBBRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgbcon_" %CGBCON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgbequ_" %CGBEQU) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (R CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (ROWCND FORTRAN-FLOAT) (COLCND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGBEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgbrfs_" %CGBRFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (AFB CFFI-FNV-COMPLEX-FLOAT) (LDAFB FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgbsv_" %CGBSV) :VOID (N FORTRAN-INT) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGBSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgbsvx_" %CGBSVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (KL FORTRAN-INT) (KU FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (AFB CFFI-FNV-COMPLEX-FLOAT)
              (LDAFB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (EQUED :STRING)
              (R CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGBSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgbtf2_" %CGBTF2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGBTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgbtrf_" %CGBTRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGBTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgbtrs_" %CGBTRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgebak_" %CGEBAK) :VOID (JOB :STRING) (SIDE :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (SCALE CFFI-FNV-FLOAT) (M FORTRAN-INT)
              (V CFFI-FNV-COMPLEX-FLOAT) (LDV FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CGEBAK :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgebal_" %CGEBAL) :VOID (JOB :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (SCALE CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGEBAL :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgebd2_" %CGEBD2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (TAUQ CFFI-FNV-COMPLEX-FLOAT) (TAUP CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGEBD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgebrd_" %CGEBRD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (TAUQ CFFI-FNV-COMPLEX-FLOAT) (TAUP CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CGEBRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgecon_" %CGECON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGECON :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeequ_" %CGEEQU) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (R CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT) (ROWCND FORTRAN-FLOAT)
              (COLCND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGEEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgees_" %CGEES) :VOID (JOBVS :STRING) (SORT :STRING)
              (SELECT FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (SDIM FORTRAN-INT) (W CFFI-FNV-COMPLEX-FLOAT)
              (VS CFFI-FNV-COMPLEX-FLOAT) (LDVS FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (BWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CGEES :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeesx_" %CGEESX) :VOID (JOBVS :STRING) (SORT :STRING)
              (SELECT FORTRAN-LOGICAL) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (SDIM FORTRAN-INT) (W CFFI-FNV-COMPLEX-FLOAT)
              (VS CFFI-FNV-COMPLEX-FLOAT) (LDVS FORTRAN-INT)
              (RCONDE FORTRAN-FLOAT) (RCONDV FORTRAN-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (BWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CGEESX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeev_" %CGEEV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-FLOAT) (VL CFFI-FNV-COMPLEX-FLOAT)
              (LDVL FORTRAN-INT) (VR CFFI-FNV-COMPLEX-FLOAT)
              (LDVR FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGEEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeevx_" %CGEEVX) :VOID (BALANC :STRING) (JOBVL :STRING)
              (JOBVR :STRING) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-FLOAT) (VL CFFI-FNV-COMPLEX-FLOAT)
              (LDVL FORTRAN-INT) (VR CFFI-FNV-COMPLEX-FLOAT)
              (LDVR FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (SCALE CFFI-FNV-FLOAT) (ABNRM FORTRAN-FLOAT)
              (RCONDE CFFI-FNV-FLOAT) (RCONDV CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGEEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgegs_" %CGEGS) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-FLOAT) (BETA CFFI-FNV-COMPLEX-FLOAT)
              (VSL CFFI-FNV-COMPLEX-FLOAT) (LDVSL FORTRAN-INT)
              (VSR CFFI-FNV-COMPLEX-FLOAT) (LDVSR FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGEGS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgegv_" %CGEGV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-FLOAT) (BETA CFFI-FNV-COMPLEX-FLOAT)
              (VL CFFI-FNV-COMPLEX-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-FLOAT) (LDVR FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGEGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgehd2_" %CGEHD2) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGEHD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgehrd_" %CGEHRD) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGEHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgelq2_" %CGELQ2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGELQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgelqf_" %CGELQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGELQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgels_" %CGELS) :VOID (TRANS :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CGELS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgelsd_" %CGELSD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CGELSD :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgelss_" %CGELSS) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGELSS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgelsx_" %CGELSX) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGELSX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgelsy_" %CGELSY) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGELSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeql2_" %CGEQL2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGEQL2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeqlf_" %CGEQLF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGEQLF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeqp3_" %CGEQP3) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGEQP3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeqpf_" %CGEQPF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGEQPF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeqr2_" %CGEQR2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGEQR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgeqrf_" %CGEQRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGEQRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgerfs_" %CGERFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-FLOAT)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGERFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgerq2_" %CGERQ2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGERQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgerqf_" %CGERQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGERQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgesc2_" %CGESC2) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (RHS CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (JPIV CFFI-FNV-INT32) (SCALE FORTRAN-FLOAT))
(EXPORT '%CGESC2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgesdd_" %CGESDD) :VOID (JOBZ :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (U CFFI-FNV-COMPLEX-FLOAT)
              (LDU FORTRAN-INT) (VT CFFI-FNV-COMPLEX-FLOAT)
              (LDVT FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGESDD :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgesv_" %CGESV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGESV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgesvd_" %CGESVD) :VOID (JOBU :STRING) (JOBVT :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (S CFFI-FNV-FLOAT)
              (U CFFI-FNV-COMPLEX-FLOAT) (LDU FORTRAN-INT)
              (VT CFFI-FNV-COMPLEX-FLOAT) (LDVT FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGESVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgesvx_" %CGESVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-FLOAT)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32) (EQUED :STRING)
              (R CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGESVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgetc2_" %CGETC2) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (JPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGETC2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgetf2_" %CGETF2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGETF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgetrf_" %CGETRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGETRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgetri_" %CGETRI) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGETRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgetrs_" %CGETRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CGETRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggbak_" %CGGBAK) :VOID (JOB :STRING) (SIDE :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (LSCALE CFFI-FNV-FLOAT) (RSCALE CFFI-FNV-FLOAT)
              (M FORTRAN-INT) (V CFFI-FNV-COMPLEX-FLOAT) (LDV FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CGGBAK :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggbal_" %CGGBAL) :VOID (JOB :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (LSCALE CFFI-FNV-FLOAT)
              (RSCALE CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGGBAL :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgges_" %CGGES) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (SORT :STRING) (SELCTG FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (SDIM FORTRAN-INT) (ALPHA CFFI-FNV-COMPLEX-FLOAT)
              (BETA CFFI-FNV-COMPLEX-FLOAT) (VSL CFFI-FNV-COMPLEX-FLOAT)
              (LDVSL FORTRAN-INT) (VSR CFFI-FNV-COMPLEX-FLOAT)
              (LDVSR FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGGES :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggesx_" %CGGESX) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (SORT :STRING) (SELCTG FORTRAN-LOGICAL) (SENSE :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (SDIM FORTRAN-INT) (ALPHA CFFI-FNV-COMPLEX-FLOAT)
              (BETA CFFI-FNV-COMPLEX-FLOAT) (VSL CFFI-FNV-COMPLEX-FLOAT)
              (LDVSL FORTRAN-INT) (VSR CFFI-FNV-COMPLEX-FLOAT)
              (LDVSR FORTRAN-INT) (RCONDE FORTRAN-FLOAT)
              (RCONDV FORTRAN-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGGESX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggev_" %CGGEV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-FLOAT) (BETA CFFI-FNV-COMPLEX-FLOAT)
              (VL CFFI-FNV-COMPLEX-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-FLOAT) (LDVR FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGGEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggevx_" %CGGEVX) :VOID (BALANC :STRING) (JOBVL :STRING)
              (JOBVR :STRING) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-FLOAT) (BETA CFFI-FNV-COMPLEX-FLOAT)
              (VL CFFI-FNV-COMPLEX-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-FLOAT) (LDVR FORTRAN-INT)
              (ILO FORTRAN-INT) (IHI FORTRAN-INT) (LSCALE CFFI-FNV-FLOAT)
              (RSCALE CFFI-FNV-FLOAT) (ABNRM FORTRAN-FLOAT)
              (BBNRM FORTRAN-FLOAT) (RCONDE CFFI-FNV-FLOAT)
              (RCONDV CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (BWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CGGEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggglm_" %CGGGLM) :VOID (N FORTRAN-INT) (M FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (D CFFI-FNV-COMPLEX-FLOAT) (X CFFI-FNV-COMPLEX-FLOAT)
              (Y CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGGGLM :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgghrd_" %CGGHRD) :VOID (COMPQ :STRING) (COMPZ :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CGGHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgglse_" %CGGLSE) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-FLOAT) (D CFFI-FNV-COMPLEX-FLOAT)
              (X CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGGLSE :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggqrf_" %CGGQRF) :VOID (N FORTRAN-INT) (M FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAUA CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (TAUB CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CGGQRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggrqf_" %CGGRQF) :VOID (M FORTRAN-INT) (P FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAUA CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (TAUB CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CGGRQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggsvd_" %CGGSVD) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (N FORTRAN-INT) (P FORTRAN-INT)
              (K FORTRAN-INT) (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (U CFFI-FNV-COMPLEX-FLOAT) (LDU FORTRAN-INT)
              (V CFFI-FNV-COMPLEX-FLOAT) (LDV FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGGSVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("cggsvp_" %CGGSVP) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (P FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (TOLA FORTRAN-FLOAT) (TOLB FORTRAN-FLOAT) (K FORTRAN-INT)
              (L FORTRAN-INT) (U CFFI-FNV-COMPLEX-FLOAT) (LDU FORTRAN-INT)
              (V CFFI-FNV-COMPLEX-FLOAT) (LDV FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (RWORK CFFI-FNV-FLOAT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGGSVP :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgtcon_" %CGTCON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (DL CFFI-FNV-COMPLEX-FLOAT) (D CFFI-FNV-COMPLEX-FLOAT)
              (DU CFFI-FNV-COMPLEX-FLOAT) (DU2 CFFI-FNV-COMPLEX-FLOAT)
              (IPIV CFFI-FNV-INT32) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGTCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgtrfs_" %CGTRFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-COMPLEX-FLOAT)
              (D CFFI-FNV-COMPLEX-FLOAT) (DU CFFI-FNV-COMPLEX-FLOAT)
              (DLF CFFI-FNV-COMPLEX-FLOAT) (DF CFFI-FNV-COMPLEX-FLOAT)
              (DUF CFFI-FNV-COMPLEX-FLOAT) (DU2 CFFI-FNV-COMPLEX-FLOAT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CGTRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgtsv_" %CGTSV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (DL CFFI-FNV-COMPLEX-FLOAT) (D CFFI-FNV-COMPLEX-FLOAT)
              (DU CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CGTSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgtsvx_" %CGTSVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (DL CFFI-FNV-COMPLEX-FLOAT)
              (D CFFI-FNV-COMPLEX-FLOAT) (DU CFFI-FNV-COMPLEX-FLOAT)
              (DLF CFFI-FNV-COMPLEX-FLOAT) (DF CFFI-FNV-COMPLEX-FLOAT)
              (DUF CFFI-FNV-COMPLEX-FLOAT) (DU2 CFFI-FNV-COMPLEX-FLOAT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CGTSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgttrf_" %CGTTRF) :VOID (N FORTRAN-INT)
              (DL CFFI-FNV-COMPLEX-FLOAT) (D CFFI-FNV-COMPLEX-FLOAT)
              (DU CFFI-FNV-COMPLEX-FLOAT) (DU2 CFFI-FNV-COMPLEX-FLOAT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CGTTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgttrs_" %CGTTRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-COMPLEX-FLOAT)
              (D CFFI-FNV-COMPLEX-FLOAT) (DU CFFI-FNV-COMPLEX-FLOAT)
              (DU2 CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CGTTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cgtts2_" %CGTTS2) :VOID (ITRANS FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-COMPLEX-FLOAT)
              (D CFFI-FNV-COMPLEX-FLOAT) (DU CFFI-FNV-COMPLEX-FLOAT)
              (DU2 CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT))
(EXPORT '%CGTTS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("chbev_" %CHBEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (W CFFI-FNV-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CHBEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("chbevd_" %CHBEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (W CFFI-FNV-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (LRWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHBEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("chbevx_" %CHBEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CHBEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("chbgst_" %CHBGST) :VOID (VECT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (BB CFFI-FNV-COMPLEX-FLOAT) (LDBB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CHBGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("chbgv_" %CHBGV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (BB CFFI-FNV-COMPLEX-FLOAT) (LDBB FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHBGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("chbgvd_" %CHBGVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (BB CFFI-FNV-COMPLEX-FLOAT) (LDBB FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT)
              (LRWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHBGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("chbgvx_" %CHBGVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (KA FORTRAN-INT)
              (KB FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (BB CFFI-FNV-COMPLEX-FLOAT)
              (LDBB FORTRAN-INT) (Q CFFI-FNV-COMPLEX-FLOAT)
              (LDQ FORTRAN-INT) (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (M FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CHBGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("chbtrd_" %CHBTRD) :VOID (VECT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHBTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("checon_" %CHECON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CHECON :LAPACK-CFFI)

(CFFI:DEFCFUN ("cheev_" %CHEEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHEEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cheevd_" %CHEEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT)
              (LRWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHEEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("cheevr_" %CHEEVR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (M FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (ISUPPZ CFFI-FNV-INT32)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (LRWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHEEVR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cheevx_" %CHEEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (M FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CHEEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("chegs2_" %CHEGS2) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CHEGS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("chegst_" %CHEGST) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CHEGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("chegv_" %CHEGV) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHEGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("chegvd_" %CHEGVD) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT)
              (LRWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHEGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("chegvx_" %CHEGVX) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (RANGE :STRING) (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CHEGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cherfs_" %CHERFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-FLOAT)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CHERFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("chesv_" %CHESV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CHESV :LAPACK-CFFI)

(CFFI:DEFCFUN ("chesvx_" %CHESVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-FLOAT)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHESVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("chetd2_" %CHETD2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHETD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("chetf2_" %CHETF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CHETF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("chetrd_" %CHETRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHETRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("chetrf_" %CHETRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHETRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("chetri_" %CHETRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CHETRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("chetrs_" %CHETRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CHETRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("chgeqz_" %CHGEQZ) :VOID (JOB :STRING) (COMPQ :STRING)
              (COMPZ :STRING) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-FLOAT) (BETA CFFI-FNV-COMPLEX-FLOAT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHGEQZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpcon_" %CHPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpev_" %CHPEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT) (W CFFI-FNV-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CHPEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpevd_" %CHPEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT) (W CFFI-FNV-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (LRWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHPEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpevx_" %CHPEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CHPEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpgst_" %CHPGST) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (BP CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHPGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpgv_" %CHPGV) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (BP CFFI-FNV-COMPLEX-FLOAT) (W CFFI-FNV-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CHPGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpgvd_" %CHPGVD) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (BP CFFI-FNV-COMPLEX-FLOAT) (W CFFI-FNV-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (LRWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHPGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpgvx_" %CHPGVX) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (RANGE :STRING) (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (BP CFFI-FNV-COMPLEX-FLOAT)
              (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CHPGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("chprfs_" %CHPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (AFP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CHPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpsv_" %CHPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("chpsvx_" %CHPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (AFP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("chptrd_" %CHPTRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CHPTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("chptrf_" %CHPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CHPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("chptri_" %CHPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CHPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("chptrs_" %CHPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("chsein_" %CHSEIN) :VOID (SIDE :STRING) (EIGSRC :STRING)
              (INITV :STRING) (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (H CFFI-FNV-COMPLEX-FLOAT) (LDH FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-FLOAT) (VL CFFI-FNV-COMPLEX-FLOAT)
              (LDVL FORTRAN-INT) (VR CFFI-FNV-COMPLEX-FLOAT)
              (LDVR FORTRAN-INT) (MM FORTRAN-INT) (M FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (IFAILL CFFI-FNV-INT32) (IFAILR CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CHSEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("chseqr_" %CHSEQR) :VOID (JOB :STRING) (COMPZ :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (H CFFI-FNV-COMPLEX-FLOAT) (LDH FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CHSEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("clabrd_" %CLABRD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (TAUQ CFFI-FNV-COMPLEX-FLOAT) (TAUP CFFI-FNV-COMPLEX-FLOAT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (Y CFFI-FNV-COMPLEX-FLOAT) (LDY FORTRAN-INT))
(EXPORT '%CLABRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("clacgv_" %CLACGV) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT))
(EXPORT '%CLACGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("clacon_" %CLACON) :VOID (N FORTRAN-INT)
              (V FORTRAN-COMPLEX-FLOAT) (X FORTRAN-COMPLEX-FLOAT)
              (EST FORTRAN-FLOAT) (KASE FORTRAN-INT))
(EXPORT '%CLACON :LAPACK-CFFI)

(CFFI:DEFCFUN ("clacp2_" %CLACP2) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT))
(EXPORT '%CLACP2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("clacpy_" %CLACPY) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT))
(EXPORT '%CLACPY :LAPACK-CFFI)

(CFFI:DEFCFUN ("clacrm_" %CLACRM) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT))
(EXPORT '%CLACRM :LAPACK-CFFI)

(CFFI:DEFCFUN ("clacrt_" %CLACRT) :VOID (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT)
              (CY CFFI-FNV-COMPLEX-FLOAT) (INCY FORTRAN-INT)
              (C FORTRAN-COMPLEX-FLOAT) (S FORTRAN-COMPLEX-FLOAT))
(EXPORT '%CLACRT :LAPACK-CFFI)

(CFFI:DEFCFUN ("cladiv_" %CLADIV) COMPLEX-FLOAT (X FORTRAN-COMPLEX-FLOAT)
              (Y FORTRAN-COMPLEX-FLOAT))
(EXPORT '%CLADIV :LAPACK-CFFI)

(CFFI:DEFCFUN ("claed0_" %CLAED0) :VOID (QSIZ FORTRAN-INT) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (QSTORE CFFI-FNV-COMPLEX-FLOAT) (LDQS FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CLAED0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("claed7_" %CLAED7) :VOID (N FORTRAN-INT) (CUTPNT FORTRAN-INT)
              (QSIZ FORTRAN-INT) (TLVLS FORTRAN-INT) (CURLVL FORTRAN-INT)
              (CURPBM FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (RHO FORTRAN-FLOAT) (INDXQ CFFI-FNV-INT32)
              (QSTORE CFFI-FNV-FLOAT) (QPTR CFFI-FNV-INT32)
              (PRMPTR CFFI-FNV-INT32) (PERM CFFI-FNV-INT32)
              (GIVPTR CFFI-FNV-INT32) (GIVCOL CFFI-FNV-INT32)
              (GIVNUM CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CLAED7 :LAPACK-CFFI)

(CFFI:DEFCFUN ("claed8_" %CLAED8) :VOID (K FORTRAN-INT) (N FORTRAN-INT)
              (QSIZ FORTRAN-INT) (Q CFFI-FNV-COMPLEX-FLOAT)
              (LDQ FORTRAN-INT) (D CFFI-FNV-FLOAT) (RHO FORTRAN-FLOAT)
              (CUTPNT FORTRAN-INT) (Z CFFI-FNV-FLOAT)
              (DLAMDA CFFI-FNV-FLOAT) (Q2 CFFI-FNV-COMPLEX-FLOAT)
              (LDQ2 FORTRAN-INT) (W CFFI-FNV-FLOAT) (INDXP CFFI-FNV-INT32)
              (INDX CFFI-FNV-INT32) (INDXQ CFFI-FNV-INT32)
              (PERM CFFI-FNV-INT32) (GIVPTR FORTRAN-INT)
              (GIVCOL CFFI-FNV-INT32) (GIVNUM CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CLAED8 :LAPACK-CFFI)

(CFFI:DEFCFUN ("claein_" %CLAEIN) :VOID (RIGHTV FORTRAN-LOGICAL)
              (NOINIT FORTRAN-LOGICAL) (N FORTRAN-INT)
              (H CFFI-FNV-COMPLEX-FLOAT) (LDH FORTRAN-INT)
              (W FORTRAN-COMPLEX-FLOAT) (V CFFI-FNV-COMPLEX-FLOAT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (EPS3 FORTRAN-FLOAT)
              (SMLNUM FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CLAEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("claesy_" %CLAESY) :VOID (A FORTRAN-COMPLEX-FLOAT)
              (B FORTRAN-COMPLEX-FLOAT) (C FORTRAN-COMPLEX-FLOAT)
              (RT1 FORTRAN-COMPLEX-FLOAT) (RT2 FORTRAN-COMPLEX-FLOAT)
              (EVSCAL FORTRAN-COMPLEX-FLOAT) (CS1 FORTRAN-COMPLEX-FLOAT)
              (SN1 FORTRAN-COMPLEX-FLOAT))
(EXPORT '%CLAESY :LAPACK-CFFI)

(CFFI:DEFCFUN ("claev2_" %CLAEV2) :VOID (A FORTRAN-COMPLEX-FLOAT)
              (B FORTRAN-COMPLEX-FLOAT) (C FORTRAN-COMPLEX-FLOAT)
              (RT1 FORTRAN-FLOAT) (RT2 FORTRAN-FLOAT) (CS1 FORTRAN-FLOAT)
              (SN1 FORTRAN-COMPLEX-FLOAT))
(EXPORT '%CLAEV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("clags2_" %CLAGS2) :VOID (UPPER FORTRAN-LOGICAL)
              (A1 FORTRAN-FLOAT) (A2 FORTRAN-COMPLEX-FLOAT)
              (A3 FORTRAN-FLOAT) (B1 FORTRAN-FLOAT)
              (B2 FORTRAN-COMPLEX-FLOAT) (B3 FORTRAN-FLOAT)
              (CSU FORTRAN-FLOAT) (SNU FORTRAN-COMPLEX-FLOAT)
              (CSV FORTRAN-FLOAT) (SNV FORTRAN-COMPLEX-FLOAT)
              (CSQ FORTRAN-FLOAT) (SNQ FORTRAN-COMPLEX-FLOAT))
(EXPORT '%CLAGS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("clagtm_" %CLAGTM) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (ALPHA FORTRAN-FLOAT)
              (DL CFFI-FNV-COMPLEX-FLOAT) (D CFFI-FNV-COMPLEX-FLOAT)
              (DU CFFI-FNV-COMPLEX-FLOAT) (X CFFI-FNV-COMPLEX-FLOAT)
              (LDX FORTRAN-INT) (BETA FORTRAN-FLOAT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT))
(EXPORT '%CLAGTM :LAPACK-CFFI)

(CFFI:DEFCFUN ("clahef_" %CLAHEF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (KB FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (W CFFI-FNV-COMPLEX-FLOAT) (LDW FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CLAHEF :LAPACK-CFFI)

(CFFI:DEFCFUN ("clahqr_" %CLAHQR) :VOID (WANTT FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (H CFFI-FNV-COMPLEX-FLOAT) (LDH FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-FLOAT) (ILOZ FORTRAN-INT)
              (IHIZ FORTRAN-INT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CLAHQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("clahrd_" %CLAHRD) :VOID (N FORTRAN-INT) (K FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU FORTRAN-COMPLEX-FLOAT) (TT FORTRAN-COMPLEX-FLOAT)
              (LDT FORTRAN-INT) (Y FORTRAN-COMPLEX-FLOAT) (LDY FORTRAN-INT))
(EXPORT '%CLAHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("claic1_" %CLAIC1) :VOID (JOB FORTRAN-INT) (J FORTRAN-INT)
              (X FORTRAN-COMPLEX-FLOAT) (SEST FORTRAN-FLOAT)
              (W FORTRAN-COMPLEX-FLOAT) (GAMMA FORTRAN-COMPLEX-FLOAT)
              (SESTPR FORTRAN-FLOAT) (S FORTRAN-COMPLEX-FLOAT)
              (C FORTRAN-COMPLEX-FLOAT))
(EXPORT '%CLAIC1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("clals0_" %CLALS0) :VOID (ICOMPQ FORTRAN-INT) (NL FORTRAN-INT)
              (NR FORTRAN-INT) (SQRE FORTRAN-INT) (NRHS FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (BX CFFI-FNV-COMPLEX-FLOAT) (LDBX FORTRAN-INT)
              (PERM CFFI-FNV-INT32) (GIVPTR FORTRAN-INT)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (GIVNUM CFFI-FNV-FLOAT) (LDGNUM FORTRAN-INT)
              (POLES CFFI-FNV-FLOAT) (DIFL CFFI-FNV-FLOAT)
              (DIFR CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (K FORTRAN-INT)
              (C FORTRAN-FLOAT) (S FORTRAN-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CLALS0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("clalsa_" %CLALSA) :VOID (ICOMPQ FORTRAN-INT)
              (SMLSIZ FORTRAN-INT) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (BX CFFI-FNV-COMPLEX-FLOAT) (LDBX FORTRAN-INT)
              (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT) (VT CFFI-FNV-FLOAT)
              (K CFFI-FNV-INT32) (DIFL CFFI-FNV-FLOAT) (DIFR CFFI-FNV-FLOAT)
              (Z CFFI-FNV-FLOAT) (POLES CFFI-FNV-FLOAT)
              (GIVPTR CFFI-FNV-INT32) (GIVCOL CFFI-FNV-INT32)
              (LDGCOL FORTRAN-INT) (PERM CFFI-FNV-INT32)
              (GIVNUM CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CLALSA :LAPACK-CFFI)

(CFFI:DEFCFUN ("clalsd_" %CLALSD) :VOID (UPLO :STRING) (SMLSIZ FORTRAN-INT)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CLALSD :LAPACK-CFFI)

(CFFI:DEFCFUN ("clangb_" %CLANGB) :FLOAT (NORM :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANGB :LAPACK-CFFI)

(CFFI:DEFCFUN ("clange_" %CLANGE) :FLOAT (NORM :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANGE :LAPACK-CFFI)

(CFFI:DEFCFUN ("clangt_" %CLANGT) :FLOAT (NORM :STRING) (N FORTRAN-INT)
              (DL CFFI-FNV-COMPLEX-FLOAT) (D CFFI-FNV-COMPLEX-FLOAT)
              (DU CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CLANGT :LAPACK-CFFI)

(CFFI:DEFCFUN ("clanhb_" %CLANHB) :FLOAT (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANHB :LAPACK-CFFI)

(CFFI:DEFCFUN ("clanhe_" %CLANHE) :FLOAT (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANHE :LAPACK-CFFI)

(CFFI:DEFCFUN ("clanhp_" %CLANHP) :FLOAT (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANHP :LAPACK-CFFI)

(CFFI:DEFCFUN ("clanhs_" %CLANHS) :FLOAT (NORM :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANHS :LAPACK-CFFI)

(CFFI:DEFCFUN ("clanht_" %CLANHT) :FLOAT (NORM :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CLANHT :LAPACK-CFFI)

(CFFI:DEFCFUN ("clansb_" %CLANSB) :FLOAT (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANSB :LAPACK-CFFI)

(CFFI:DEFCFUN ("clansp_" %CLANSP) :FLOAT (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANSP :LAPACK-CFFI)

(CFFI:DEFCFUN ("clansy_" %CLANSY) :FLOAT (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("clantb_" %CLANTB) :FLOAT (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (K FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANTB :LAPACK-CFFI)

(CFFI:DEFCFUN ("clantp_" %CLANTP) :FLOAT (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANTP :LAPACK-CFFI)

(CFFI:DEFCFUN ("clantr_" %CLANTR) :FLOAT (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLANTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("clapll_" %CLAPLL) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT)
              (Y CFFI-FNV-COMPLEX-FLOAT) (INCY FORTRAN-INT)
              (SSMIN FORTRAN-FLOAT))
(EXPORT '%CLAPLL :LAPACK-CFFI)

(CFFI:DEFCFUN ("clapmt_" %CLAPMT) :VOID (FORWRD FORTRAN-LOGICAL)
              (M FORTRAN-INT) (N FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT)
              (LDX FORTRAN-INT) (K CFFI-FNV-INT32))
(EXPORT '%CLAPMT :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqgb_" %CLAQGB) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (R CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (ROWCND FORTRAN-FLOAT) (COLCND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%CLAQGB :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqge_" %CLAQGE) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (R CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT) (ROWCND FORTRAN-FLOAT)
              (COLCND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%CLAQGE :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqhb_" %CLAQHB) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%CLAQHB :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqhe_" %CLAQHE) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT)
              (EQUED :STRING))
(EXPORT '%CLAQHE :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqhp_" %CLAQHP) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (S CFFI-FNV-FLOAT)
              (SCOND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%CLAQHP :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqp2_" %CLAQP2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (OFFSET FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (VN1 CFFI-FNV-FLOAT)
              (VN2 CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CLAQP2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqps_" %CLAQPS) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (OFFSET FORTRAN-INT) (NB FORTRAN-INT) (KB FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (VN1 CFFI-FNV-FLOAT) (VN2 CFFI-FNV-FLOAT)
              (AUXV CFFI-FNV-COMPLEX-FLOAT) (F CFFI-FNV-COMPLEX-FLOAT)
              (LDF FORTRAN-INT))
(EXPORT '%CLAQPS :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqsb_" %CLAQSB) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%CLAQSB :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqsp_" %CLAQSP) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (S CFFI-FNV-FLOAT)
              (SCOND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%CLAQSP :LAPACK-CFFI)

(CFFI:DEFCFUN ("claqsy_" %CLAQSY) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT)
              (EQUED :STRING))
(EXPORT '%CLAQSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("clar1v_" %CLAR1V) :VOID (N FORTRAN-INT) (B1 FORTRAN-INT)
              (BN FORTRAN-INT) (SIGMA FORTRAN-FLOAT) (D CFFI-FNV-FLOAT)
              (L CFFI-FNV-FLOAT) (LD CFFI-FNV-FLOAT) (LLD CFFI-FNV-FLOAT)
              (GERSCH CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (ZTZ FORTRAN-FLOAT) (MINGMA FORTRAN-FLOAT) (R FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-FLOAT))
(EXPORT '%CLAR1V :LAPACK-CFFI)

(CFFI:DEFCFUN ("clar2v_" %CLAR2V) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (Y CFFI-FNV-COMPLEX-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (S CFFI-FNV-COMPLEX-FLOAT)
              (INCC FORTRAN-INT))
(EXPORT '%CLAR2V :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarcm_" %CLARCM) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT))
(EXPORT '%CLARCM :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarf_" %CLARF) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-COMPLEX-FLOAT) (INCV FORTRAN-INT)
              (TAU FORTRAN-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CLARF :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarfb_" %CLARFB) :VOID (SIDE :STRING) (TRANS :STRING)
              (DIRECT :STRING) (STOREV :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-COMPLEX-FLOAT)
              (LDV FORTRAN-INT) (TT CFFI-FNV-COMPLEX-FLOAT)
              (LDT FORTRAN-INT) (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LDWORK FORTRAN-INT))
(EXPORT '%CLARFB :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarfg_" %CLARFG) :VOID (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-FLOAT) (X CFFI-FNV-COMPLEX-FLOAT)
              (INCX FORTRAN-INT) (TAU FORTRAN-COMPLEX-FLOAT))
(EXPORT '%CLARFG :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarft_" %CLARFT) :VOID (DIRECT :STRING) (STOREV :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-COMPLEX-FLOAT)
              (LDV FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (TT CFFI-FNV-COMPLEX-FLOAT) (LDT FORTRAN-INT))
(EXPORT '%CLARFT :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarfx_" %CLARFX) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-COMPLEX-FLOAT)
              (TAU FORTRAN-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CLARFX :LAPACK-CFFI)

(CFFI:DEFCFUN ("clargv_" %CLARGV) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT)
              (Y CFFI-FNV-COMPLEX-FLOAT) (INCY FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (INCC FORTRAN-INT))
(EXPORT '%CLARGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarnv_" %CLARNV) :VOID (IDIST FORTRAN-INT)
              (ISEED FORTRAN-INT) (N FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CLARNV :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarrv_" %CLARRV) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (L CFFI-FNV-FLOAT) (ISPLIT CFFI-FNV-INT32) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (IBLOCK CFFI-FNV-INT32)
              (GERSCH CFFI-FNV-FLOAT) (TOL FORTRAN-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CLARRV :LAPACK-CFFI)

(CFFI:DEFCFUN ("clartg_" %CLARTG) :VOID (F FORTRAN-COMPLEX-FLOAT)
              (G FORTRAN-COMPLEX-FLOAT) (CS FORTRAN-FLOAT)
              (SN FORTRAN-COMPLEX-FLOAT) (R FORTRAN-COMPLEX-FLOAT))
(EXPORT '%CLARTG :LAPACK-CFFI)

(CFFI:DEFCFUN ("clartv_" %CLARTV) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT)
              (Y CFFI-FNV-COMPLEX-FLOAT) (INCY FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (S CFFI-FNV-COMPLEX-FLOAT)
              (INCC FORTRAN-INT))
(EXPORT '%CLARTV :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarz_" %CLARZ) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (L FORTRAN-INT) (V CFFI-FNV-COMPLEX-FLOAT)
              (INCV FORTRAN-INT) (TAU FORTRAN-COMPLEX-FLOAT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CLARZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarzb_" %CLARZB) :VOID (SIDE :STRING) (TRANS :STRING)
              (DIRECT :STRING) (STOREV :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (L FORTRAN-INT)
              (V CFFI-FNV-COMPLEX-FLOAT) (LDV FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-FLOAT) (LDT FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LDWORK FORTRAN-INT))
(EXPORT '%CLARZB :LAPACK-CFFI)

(CFFI:DEFCFUN ("clarzt_" %CLARZT) :VOID (DIRECT :STRING) (STOREV :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-COMPLEX-FLOAT)
              (LDV FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (TT CFFI-FNV-COMPLEX-FLOAT) (LDT FORTRAN-INT))
(EXPORT '%CLARZT :LAPACK-CFFI)

(CFFI:DEFCFUN ("clascl_" %CLASCL) :VOID (TYPE :STRING) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (CFROM FORTRAN-FLOAT) (CTO FORTRAN-FLOAT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CLASCL :LAPACK-CFFI)

(CFFI:DEFCFUN ("claset_" %CLASET) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (ALPHA FORTRAN-COMPLEX-FLOAT)
              (BETA FORTRAN-COMPLEX-FLOAT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT))
(EXPORT '%CLASET :LAPACK-CFFI)

(CFFI:DEFCFUN ("clasr_" %CLASR) :VOID (SIDE :STRING) (PIVOT :STRING)
              (DIRECT :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT))
(EXPORT '%CLASR :LAPACK-CFFI)

(CFFI:DEFCFUN ("classq_" %CLASSQ) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT)
              (SCALE FORTRAN-FLOAT) (SUMSQ FORTRAN-FLOAT))
(EXPORT '%CLASSQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("claswp_" %CLASWP) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT) (K1 FORTRAN-INT)
              (K2 FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INCX FORTRAN-INT))
(EXPORT '%CLASWP :LAPACK-CFFI)

(CFFI:DEFCFUN ("clasyf_" %CLASYF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (KB FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (W CFFI-FNV-COMPLEX-FLOAT) (LDW FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CLASYF :LAPACK-CFFI)

(CFFI:DEFCFUN ("clatbs_" %CLATBS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT)
              (SCALE FORTRAN-FLOAT) (CNORM CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CLATBS :LAPACK-CFFI)

(CFFI:DEFCFUN ("clatdf_" %CLATDF) :VOID (IJOB FORTRAN-INT) (N FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (RHS CFFI-FNV-COMPLEX-FLOAT) (RDSUM FORTRAN-FLOAT)
              (RDSCAL FORTRAN-FLOAT) (IPIV CFFI-FNV-INT32)
              (JPIV CFFI-FNV-INT32))
(EXPORT '%CLATDF :LAPACK-CFFI)

(CFFI:DEFCFUN ("clatps_" %CLATPS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (X CFFI-FNV-COMPLEX-FLOAT)
              (SCALE FORTRAN-FLOAT) (CNORM CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CLATPS :LAPACK-CFFI)

(CFFI:DEFCFUN ("clatrd_" %CLATRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (E CFFI-FNV-FLOAT) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (W CFFI-FNV-COMPLEX-FLOAT) (LDW FORTRAN-INT))
(EXPORT '%CLATRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("clatrs_" %CLATRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (SCALE FORTRAN-FLOAT)
              (CNORM CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CLATRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("clatrz_" %CLATRZ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CLATRZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("clatzm_" %CLATZM) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-COMPLEX-FLOAT) (INCV FORTRAN-INT)
              (TAU FORTRAN-COMPLEX-FLOAT) (C1 CFFI-FNV-COMPLEX-FLOAT)
              (C2 CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CLATZM :LAPACK-CFFI)

(CFFI:DEFCFUN ("clauu2_" %CLAUU2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CLAUU2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("clauum_" %CLAUUM) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CLAUUM :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpbcon_" %CPBCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CPBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpbequ_" %CPBEQU) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPBEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpbrfs_" %CPBRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (AFB CFFI-FNV-COMPLEX-FLOAT) (LDAFB FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CPBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpbstf_" %CPBSTF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CPBSTF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpbsv_" %CPBSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPBSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpbsvx_" %CPBSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (AFB CFFI-FNV-COMPLEX-FLOAT) (LDAFB FORTRAN-INT)
              (EQUED :STRING) (S CFFI-FNV-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPBSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpbtf2_" %CPBTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CPBTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpbtrf_" %CPBTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CPBTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpbtrs_" %CPBTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpocon_" %CPOCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CPOCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpoequ_" %CPOEQU) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CPOEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("cporfs_" %CPORFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-FLOAT)
              (LDAF FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CPORFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cposv_" %CPOSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPOSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cposvx_" %CPOSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-FLOAT)
              (LDAF FORTRAN-INT) (EQUED :STRING) (S CFFI-FNV-FLOAT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPOSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpotf2_" %CPOTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPOTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpotrf_" %CPOTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPOTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpotri_" %CPOTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPOTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpotrs_" %CPOTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPOTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cppcon_" %CPPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("cppequ_" %CPPEQU) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (S CFFI-FNV-FLOAT)
              (SCOND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPPEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpprfs_" %CPPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (AFP CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CPPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cppsv_" %CPPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cppsvx_" %CPPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (AFP CFFI-FNV-COMPLEX-FLOAT) (EQUED :STRING) (S CFFI-FNV-FLOAT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpptrf_" %CPPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpptri_" %CPPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpptrs_" %CPPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cptcon_" %CPTCON) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-COMPLEX-FLOAT) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CPTCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpteqr_" %CPTEQR) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPTEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cptrfs_" %CPTRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-COMPLEX-FLOAT) (DF CFFI-FNV-FLOAT)
              (EF CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CPTRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cptsv_" %CPTSV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-COMPLEX-FLOAT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CPTSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cptsvx_" %CPTSVX) :VOID (FACT :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-COMPLEX-FLOAT) (DF CFFI-FNV-FLOAT)
              (EF CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPTSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpttrf_" %CPTTRF) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CPTTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cpttrs_" %CPTTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CPTTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cptts2_" %CPTTS2) :VOID (IUPLO FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT))
(EXPORT '%CPTTS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("crot_" %CROT) :VOID (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT)
              (CY CFFI-FNV-COMPLEX-FLOAT) (INCY FORTRAN-INT)
              (C FORTRAN-FLOAT) (S FORTRAN-COMPLEX-FLOAT))
(EXPORT '%CROT :LAPACK-CFFI)

(CFFI:DEFCFUN ("cspcon_" %CSPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CSPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("cspmv_" %CSPMV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-FLOAT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (X CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT)
              (BETA FORTRAN-COMPLEX-FLOAT) (Y CFFI-FNV-COMPLEX-FLOAT)
              (INCY FORTRAN-INT))
(EXPORT '%CSPMV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cspr_" %CSPR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-FLOAT) (X CFFI-FNV-COMPLEX-FLOAT)
              (INCX FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT))
(EXPORT '%CSPR :LAPACK-CFFI)

(CFFI:DEFCFUN ("csprfs_" %CSPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (AFP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CSPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("cspsv_" %CSPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CSPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("cspsvx_" %CSPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (AFP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CSPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("csptrf_" %CSPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%CSPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("csptri_" %CSPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CSPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("csptrs_" %CSPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CSPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("csrot_" %CSROT) :VOID (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT)
              (CY CFFI-FNV-COMPLEX-FLOAT) (INCY FORTRAN-INT)
              (C FORTRAN-FLOAT) (S FORTRAN-FLOAT))
(EXPORT '%CSROT :LAPACK-CFFI)

(CFFI:DEFCFUN ("csrscl_" %CSRSCL) :VOID (N FORTRAN-INT) (SA FORTRAN-FLOAT)
              (SX CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT))
(EXPORT '%CSRSCL :LAPACK-CFFI)

(CFFI:DEFCFUN ("cstedc_" %CSTEDC) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-FLOAT) (LRWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CSTEDC :LAPACK-CFFI)

(CFFI:DEFCFUN ("cstegr_" %CSTEGR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-COMPLEX-FLOAT)
              (LDZ FORTRAN-INT) (ISUPPZ CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CSTEGR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cstein_" %CSTEIN) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (M FORTRAN-INT) (W CFFI-FNV-FLOAT)
              (IBLOCK CFFI-FNV-INT32) (ISPLIT CFFI-FNV-INT32)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CSTEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("csteqr_" %CSTEQR) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CSTEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("csycon_" %CSYCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CSYCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("csymv_" %CSYMV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-FLOAT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT)
              (INCX FORTRAN-INT) (BETA FORTRAN-COMPLEX-FLOAT)
              (Y CFFI-FNV-COMPLEX-FLOAT) (INCY FORTRAN-INT))
(EXPORT '%CSYMV :LAPACK-CFFI)

(CFFI:DEFCFUN ("csyr_" %CSYR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-FLOAT) (X CFFI-FNV-COMPLEX-FLOAT)
              (INCX FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT))
(EXPORT '%CSYR :LAPACK-CFFI)

(CFFI:DEFCFUN ("csyrfs_" %CSYRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-FLOAT)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CSYRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("csysv_" %CSYSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CSYSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("csysvx_" %CSYSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-FLOAT)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CSYSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("csytf2_" %CSYTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CSYTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("csytrf_" %CSYTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CSYTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("csytri_" %CSYTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CSYTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("csytrs_" %CSYTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CSYTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctbcon_" %CTBCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-FLOAT) (LDAB FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CTBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctbrfs_" %CTBRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CTBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctbtrs_" %CTBTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-COMPLEX-FLOAT)
              (LDAB FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CTBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctgevc_" %CTGEVC) :VOID (SIDE :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (VL CFFI-FNV-COMPLEX-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-FLOAT) (LDVR FORTRAN-INT)
              (MM FORTRAN-INT) (M FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CTGEVC :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctgex2_" %CTGEX2) :VOID (WANTQ FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT) (J1 FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CTGEX2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctgexc_" %CTGEXC) :VOID (WANTQ FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT)
              (IFST FORTRAN-INT) (ILST FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CTGEXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctgsen_" %CTGSEN) :VOID (IJOB FORTRAN-INT)
              (WANTQ FORTRAN-LOGICAL) (WANTZ FORTRAN-LOGICAL)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-FLOAT) (BETA CFFI-FNV-COMPLEX-FLOAT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-FLOAT) (LDZ FORTRAN-INT) (M FORTRAN-INT)
              (PL FORTRAN-FLOAT) (PR FORTRAN-FLOAT) (DIF CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CTGSEN :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctgsja_" %CTGSJA) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (P FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (TOLA FORTRAN-FLOAT) (TOLB FORTRAN-FLOAT)
              (ALPHA CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (U CFFI-FNV-COMPLEX-FLOAT) (LDU FORTRAN-INT)
              (V CFFI-FNV-COMPLEX-FLOAT) (LDV FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (NCYCLE FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CTGSJA :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctgsna_" %CTGSNA) :VOID (JOB :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (VL CFFI-FNV-COMPLEX-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-FLOAT) (LDVR FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (DIF CFFI-FNV-FLOAT) (MM FORTRAN-INT)
              (M FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CTGSNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctgsy2_" %CTGSY2) :VOID (TRANS :STRING) (IJOB FORTRAN-INT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (D CFFI-FNV-COMPLEX-FLOAT) (LDD FORTRAN-INT)
              (E CFFI-FNV-COMPLEX-FLOAT) (LDE FORTRAN-INT)
              (F CFFI-FNV-COMPLEX-FLOAT) (LDF FORTRAN-INT)
              (SCALE FORTRAN-FLOAT) (RDSUM FORTRAN-FLOAT)
              (RDSCAL FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CTGSY2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctgsyl_" %CTGSYL) :VOID (TRANS :STRING) (IJOB FORTRAN-INT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (D CFFI-FNV-COMPLEX-FLOAT) (LDD FORTRAN-INT)
              (E CFFI-FNV-COMPLEX-FLOAT) (LDE FORTRAN-INT)
              (F CFFI-FNV-COMPLEX-FLOAT) (LDF FORTRAN-INT)
              (SCALE FORTRAN-FLOAT) (DIF FORTRAN-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%CTGSYL :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctpcon_" %CTPCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CTPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctprfs_" %CTPRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CTPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctptri_" %CTPTRI) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CTPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctptrs_" %CTPTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (B CFFI-FNV-COMPLEX-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CTPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrcon_" %CTRCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CTRCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrevc_" %CTREVC) :VOID (SIDE :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-FLOAT) (LDT FORTRAN-INT)
              (VL CFFI-FNV-COMPLEX-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-FLOAT) (LDVR FORTRAN-INT)
              (MM FORTRAN-INT) (M FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CTREVC :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrexc_" %CTREXC) :VOID (COMPQ :STRING) (N FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-FLOAT) (LDT FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (IFST FORTRAN-INT) (ILST FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CTREXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrrfs_" %CTRRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (RWORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CTRRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrsen_" %CTRSEN) :VOID (JOB :STRING) (COMPQ :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-FLOAT) (LDT FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-FLOAT) (M FORTRAN-INT) (S FORTRAN-FLOAT)
              (SEP FORTRAN-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CTRSEN :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrsna_" %CTRSNA) :VOID (JOB :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-FLOAT) (LDT FORTRAN-INT)
              (VL CFFI-FNV-COMPLEX-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-FLOAT) (LDVR FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (SEP CFFI-FNV-FLOAT) (MM FORTRAN-INT)
              (M FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LDWORK FORTRAN-INT) (RWORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CTRSNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrsyl_" %CTRSYL) :VOID (TRANA :STRING) (TRANB :STRING)
              (ISGN FORTRAN-INT) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (SCALE FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CTRSYL :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrti2_" %CTRTI2) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CTRTI2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrtri_" %CTRTRI) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CTRTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctrtrs_" %CTRTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CTRTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctzrqf_" %CTZRQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CTZRQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("ctzrzf_" %CTZRZF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CTZRZF :LAPACK-CFFI)

(CFFI:DEFCFUN ("cung2l_" %CUNG2L) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNG2L :LAPACK-CFFI)

(CFFI:DEFCFUN ("cung2r_" %CUNG2R) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNG2R :LAPACK-CFFI)

(CFFI:DEFCFUN ("cungbr_" %CUNGBR) :VOID (VECT :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT)
              (LDA FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNGBR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunghr_" %CUNGHR) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNGHR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cungl2_" %CUNGL2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNGL2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunglq_" %CUNGLQ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNGLQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("cungql_" %CUNGQL) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNGQL :LAPACK-CFFI)

(CFFI:DEFCFUN ("cungqr_" %CUNGQR) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNGQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cungr2_" %CUNGR2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNGR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cungrq_" %CUNGRQ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNGRQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("cungtr_" %CUNGTR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNGTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunm2l_" %CUNM2L) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNM2L :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunm2r_" %CUNM2R) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNM2R :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmbr_" %CUNMBR) :VOID (VECT :STRING) (SIDE :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNMBR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmhr_" %CUNMHR) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNMHR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunml2_" %CUNML2) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNML2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmlq_" %CUNMLQ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNMLQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmql_" %CUNMQL) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNMQL :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmqr_" %CUNMQR) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNMQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmr2_" %CUNMR2) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNMR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmr3_" %CUNMR3) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%CUNMR3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmrq_" %CUNMRQ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNMRQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmrz_" %CUNMRZ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNMRZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("cunmtr_" %CUNMTR) :VOID (SIDE :STRING) (UPLO :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-FLOAT) (C CFFI-FNV-COMPLEX-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%CUNMTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cupgtr_" %CUPGTR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (Q CFFI-FNV-COMPLEX-FLOAT) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CUPGTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("cupmtr_" %CUPMTR) :VOID (SIDE :STRING) (UPLO :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-FLOAT) (TAU CFFI-FNV-COMPLEX-FLOAT)
              (C CFFI-FNV-COMPLEX-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%CUPMTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dbdsdc_" %DBDSDC) :VOID (UPLO :STRING) (COMPQ :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT) (VT CFFI-FNV-DOUBLE)
              (LDVT FORTRAN-INT) (Q CFFI-FNV-DOUBLE) (IQ CFFI-FNV-INT32)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DBDSDC :LAPACK-CFFI)

(CFFI:DEFCFUN ("dbdsqr_" %DBDSQR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NCVT FORTRAN-INT) (NRU FORTRAN-INT) (NCC FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (VT CFFI-FNV-DOUBLE)
              (LDVT FORTRAN-INT) (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DBDSQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("ddisna_" %DDISNA) :VOID (JOB :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (D CFFI-FNV-DOUBLE) (SEP CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DDISNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgbbrd_" %DGBBRD) :VOID (VECT :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (NCC FORTRAN-INT) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (Q CFFI-FNV-DOUBLE)
              (LDQ FORTRAN-INT) (PT CFFI-FNV-DOUBLE) (LDPT FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DGBBRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgbcon_" %DGBCON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgbequ_" %DGBEQU) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (R CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (ROWCND FORTRAN-DOUBLE) (COLCND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DGBEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgbrfs_" %DGBRFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT) (AFB CFFI-FNV-DOUBLE)
              (LDAFB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgbsv_" %DGBSV) :VOID (N FORTRAN-INT) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (NRHS FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGBSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgbsvx_" %DGBSVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (KL FORTRAN-INT) (KU FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (AFB CFFI-FNV-DOUBLE) (LDAFB FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (EQUED :STRING) (R CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGBSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgbtf2_" %DGBTF2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGBTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgbtrf_" %DGBTRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGBTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgbtrs_" %DGBTRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgebak_" %DGEBAK) :VOID (JOB :STRING) (SIDE :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (SCALE CFFI-FNV-DOUBLE) (M FORTRAN-INT) (V CFFI-FNV-DOUBLE)
              (LDV FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGEBAK :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgebal_" %DGEBAL) :VOID (JOB :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (SCALE CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DGEBAL :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgebd2_" %DGEBD2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (TAUQ CFFI-FNV-DOUBLE)
              (TAUP CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DGEBD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgebrd_" %DGEBRD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (TAUQ CFFI-FNV-DOUBLE)
              (TAUP CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGEBRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgecon_" %DGECON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGECON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeequ_" %DGEEQU) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (R CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (ROWCND FORTRAN-DOUBLE)
              (COLCND FORTRAN-DOUBLE) (AMAX FORTRAN-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DGEEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgees_" %DGEES) :VOID (JOBVS :STRING) (SORT :STRING)
              (SELECT FORTRAN-LOGICAL) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (SDIM FORTRAN-INT) (WR CFFI-FNV-DOUBLE)
              (WI CFFI-FNV-DOUBLE) (VS CFFI-FNV-DOUBLE) (LDVS FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGEES :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeesx_" %DGEESX) :VOID (JOBVS :STRING) (SORT :STRING)
              (SELECT FORTRAN-LOGICAL) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (SDIM FORTRAN-INT)
              (WR CFFI-FNV-DOUBLE) (WI CFFI-FNV-DOUBLE) (VS CFFI-FNV-DOUBLE)
              (LDVS FORTRAN-INT) (RCONDE FORTRAN-DOUBLE)
              (RCONDV FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGEESX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeev_" %DGEEV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (WR CFFI-FNV-DOUBLE) (WI CFFI-FNV-DOUBLE) (VL CFFI-FNV-DOUBLE)
              (LDVL FORTRAN-INT) (VR CFFI-FNV-DOUBLE) (LDVR FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGEEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeevx_" %DGEEVX) :VOID (BALANC :STRING) (JOBVL :STRING)
              (JOBVR :STRING) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (WR CFFI-FNV-DOUBLE)
              (WI CFFI-FNV-DOUBLE) (VL CFFI-FNV-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-DOUBLE) (LDVR FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (SCALE CFFI-FNV-DOUBLE)
              (ABNRM FORTRAN-DOUBLE) (RCONDE CFFI-FNV-DOUBLE)
              (RCONDV CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGEEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgegs_" %DGEGS) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-DOUBLE)
              (ALPHAI CFFI-FNV-DOUBLE) (BETA CFFI-FNV-DOUBLE)
              (VSL CFFI-FNV-DOUBLE) (LDVSL FORTRAN-INT)
              (VSR CFFI-FNV-DOUBLE) (LDVSR FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGEGS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgegv_" %DGEGV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-DOUBLE)
              (ALPHAI CFFI-FNV-DOUBLE) (BETA CFFI-FNV-DOUBLE)
              (VL CFFI-FNV-DOUBLE) (LDVL FORTRAN-INT) (VR CFFI-FNV-DOUBLE)
              (LDVR FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DGEGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgehd2_" %DGEHD2) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DGEHD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgehrd_" %DGEHRD) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGEHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgelq2_" %DGELQ2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DGELQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgelqf_" %DGELQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGELQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgels_" %DGELS) :VOID (TRANS :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGELS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgelsd_" %DGELSD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (S CFFI-FNV-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGELSD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgelss_" %DGELSS) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (S CFFI-FNV-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGELSS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgelsx_" %DGELSX) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (RCOND FORTRAN-DOUBLE) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DGELSX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgelsy_" %DGELSY) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (RCOND FORTRAN-DOUBLE) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGELSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeql2_" %DGEQL2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DGEQL2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeqlf_" %DGEQLF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGEQLF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeqp3_" %DGEQP3) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGEQP3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeqpf_" %DGEQPF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DGEQPF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeqr2_" %DGEQR2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DGEQR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgeqrf_" %DGEQRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGEQRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgerfs_" %DGERFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (AF CFFI-FNV-DOUBLE) (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGERFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgerq2_" %DGERQ2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DGERQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgerqf_" %DGERQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGERQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgesc2_" %DGESC2) :VOID (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (RHS CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32)
              (JPIV CFFI-FNV-INT32) (SCALE FORTRAN-DOUBLE))
(EXPORT '%DGESC2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgesdd_" %DGESDD) :VOID (JOBZ :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (S CFFI-FNV-DOUBLE) (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT)
              (VT CFFI-FNV-DOUBLE) (LDVT FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGESDD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgesv_" %DGESV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGESV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgesvd_" %DGESVD) :VOID (JOBU :STRING) (JOBVT :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (S CFFI-FNV-DOUBLE) (U CFFI-FNV-DOUBLE)
              (LDU FORTRAN-INT) (VT CFFI-FNV-DOUBLE) (LDVT FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGESVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgesvx_" %DGESVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-DOUBLE) (LDAF FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (EQUED :STRING) (R CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGESVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgetc2_" %DGETC2) :VOID (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32) (JPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGETC2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgetf2_" %DGETF2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGETF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgetrf_" %DGETRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGETRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgetri_" %DGETRI) :VOID (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGETRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgetrs_" %DGETRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DGETRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggbak_" %DGGBAK) :VOID (JOB :STRING) (SIDE :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (LSCALE CFFI-FNV-DOUBLE) (RSCALE CFFI-FNV-DOUBLE)
              (M FORTRAN-INT) (V CFFI-FNV-DOUBLE) (LDV FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DGGBAK :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggbal_" %DGGBAL) :VOID (JOB :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (LSCALE CFFI-FNV-DOUBLE) (RSCALE CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DGGBAL :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgges_" %DGGES) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (SORT :STRING) (DELCTG FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (SDIM FORTRAN-INT) (ALPHAR CFFI-FNV-DOUBLE)
              (ALPHAI CFFI-FNV-DOUBLE) (BETA CFFI-FNV-DOUBLE)
              (VSL CFFI-FNV-DOUBLE) (LDVSL FORTRAN-INT)
              (VSR CFFI-FNV-DOUBLE) (LDVSR FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGGES :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggesx_" %DGGESX) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (SORT :STRING) (DELCTG FORTRAN-LOGICAL) (SENSE :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (SDIM FORTRAN-INT)
              (ALPHAR CFFI-FNV-DOUBLE) (ALPHAI CFFI-FNV-DOUBLE)
              (BETA CFFI-FNV-DOUBLE) (VSL CFFI-FNV-DOUBLE)
              (LDVSL FORTRAN-INT) (VSR CFFI-FNV-DOUBLE) (LDVSR FORTRAN-INT)
              (RCONDE FORTRAN-DOUBLE) (RCONDV FORTRAN-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGGESX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggev_" %DGGEV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-DOUBLE)
              (ALPHAI CFFI-FNV-DOUBLE) (BETA CFFI-FNV-DOUBLE)
              (VL CFFI-FNV-DOUBLE) (LDVL FORTRAN-INT) (VR CFFI-FNV-DOUBLE)
              (LDVR FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DGGEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggevx_" %DGGEVX) :VOID (BALANC :STRING) (JOBVL :STRING)
              (JOBVR :STRING) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-DOUBLE)
              (ALPHAI CFFI-FNV-DOUBLE) (BETA CFFI-FNV-DOUBLE)
              (VL CFFI-FNV-DOUBLE) (LDVL FORTRAN-INT) (VR CFFI-FNV-DOUBLE)
              (LDVR FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (LSCALE CFFI-FNV-DOUBLE) (RSCALE CFFI-FNV-DOUBLE)
              (ABNRM FORTRAN-DOUBLE) (BBNRM FORTRAN-DOUBLE)
              (RCONDE CFFI-FNV-DOUBLE) (RCONDV CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (BWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGGEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggglm_" %DGGGLM) :VOID (N FORTRAN-INT) (M FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (X CFFI-FNV-DOUBLE) (Y CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGGGLM :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgghrd_" %DGGHRD) :VOID (COMPQ :STRING) (COMPZ :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGGHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgglse_" %DGGLSE) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (C CFFI-FNV-DOUBLE)
              (D CFFI-FNV-DOUBLE) (X CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGGLSE :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggqrf_" %DGGQRF) :VOID (N FORTRAN-INT) (M FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAUA CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (TAUB CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGGQRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggrqf_" %DGGRQF) :VOID (M FORTRAN-INT) (P FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAUA CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (TAUB CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGGRQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggsvd_" %DGGSVD) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (N FORTRAN-INT) (P FORTRAN-INT)
              (K FORTRAN-INT) (L FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-DOUBLE) (BETA CFFI-FNV-DOUBLE)
              (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT) (V CFFI-FNV-DOUBLE)
              (LDV FORTRAN-INT) (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGGSVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dggsvp_" %DGGSVP) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (P FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (TOLA FORTRAN-DOUBLE) (TOLB FORTRAN-DOUBLE)
              (K FORTRAN-INT) (L FORTRAN-INT) (U CFFI-FNV-DOUBLE)
              (LDU FORTRAN-INT) (V CFFI-FNV-DOUBLE) (LDV FORTRAN-INT)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DGGSVP :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgtcon_" %DGTCON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (DL CFFI-FNV-DOUBLE) (D CFFI-FNV-DOUBLE) (DU CFFI-FNV-DOUBLE)
              (DU2 CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGTCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgtrfs_" %DGTRFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-DOUBLE) (D CFFI-FNV-DOUBLE)
              (DU CFFI-FNV-DOUBLE) (DLF CFFI-FNV-DOUBLE)
              (DF CFFI-FNV-DOUBLE) (DUF CFFI-FNV-DOUBLE)
              (DU2 CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGTRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgtsv_" %DGTSV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (DL CFFI-FNV-DOUBLE) (D CFFI-FNV-DOUBLE) (DU CFFI-FNV-DOUBLE)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DGTSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgtsvx_" %DGTSVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (DL CFFI-FNV-DOUBLE)
              (D CFFI-FNV-DOUBLE) (DU CFFI-FNV-DOUBLE) (DLF CFFI-FNV-DOUBLE)
              (DF CFFI-FNV-DOUBLE) (DUF CFFI-FNV-DOUBLE)
              (DU2 CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DGTSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgttrf_" %DGTTRF) :VOID (N FORTRAN-INT) (DL CFFI-FNV-DOUBLE)
              (D CFFI-FNV-DOUBLE) (DU CFFI-FNV-DOUBLE) (DU2 CFFI-FNV-DOUBLE)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DGTTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgttrs_" %DGTTRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-DOUBLE) (D CFFI-FNV-DOUBLE)
              (DU CFFI-FNV-DOUBLE) (DU2 CFFI-FNV-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DGTTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dgtts2_" %DGTTS2) :VOID (ITRANS FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-DOUBLE) (D CFFI-FNV-DOUBLE)
              (DU CFFI-FNV-DOUBLE) (DU2 CFFI-FNV-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT))
(EXPORT '%DGTTS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dhgeqz_" %DHGEQZ) :VOID (JOB :STRING) (COMPQ :STRING)
              (COMPZ :STRING) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-DOUBLE)
              (ALPHAI CFFI-FNV-DOUBLE) (BETA CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DHGEQZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dhsein_" %DHSEIN) :VOID (SIDE :STRING) (EIGSRC :STRING)
              (INITV :STRING) (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (H CFFI-FNV-DOUBLE) (LDH FORTRAN-INT) (WR CFFI-FNV-DOUBLE)
              (WI CFFI-FNV-DOUBLE) (VL CFFI-FNV-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-DOUBLE) (LDVR FORTRAN-INT) (MM FORTRAN-INT)
              (M FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (IFAILL CFFI-FNV-INT32)
              (IFAILR CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DHSEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("dhseqr_" %DHSEQR) :VOID (JOB :STRING) (COMPZ :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (H CFFI-FNV-DOUBLE) (LDH FORTRAN-INT) (WR CFFI-FNV-DOUBLE)
              (WI CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DHSEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlabad_" %DLABAD) :VOID (SMALL FORTRAN-DOUBLE)
              (LARGE FORTRAN-DOUBLE))
(EXPORT '%DLABAD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlabrd_" %DLABRD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (TAUQ CFFI-FNV-DOUBLE)
              (TAUP CFFI-FNV-DOUBLE) (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT)
              (Y CFFI-FNV-DOUBLE) (LDY FORTRAN-INT))
(EXPORT '%DLABRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlacon_" %DLACON) :VOID (N FORTRAN-INT) (V CFFI-FNV-DOUBLE)
              (X CFFI-FNV-DOUBLE) (ISGN CFFI-FNV-INT32) (EST FORTRAN-DOUBLE)
              (KASE FORTRAN-INT))
(EXPORT '%DLACON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlacpy_" %DLACPY) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT))
(EXPORT '%DLACPY :LAPACK-CFFI)

(CFFI:DEFCFUN ("dladiv_" %DLADIV) :VOID (A FORTRAN-DOUBLE) (B FORTRAN-DOUBLE)
              (C FORTRAN-DOUBLE) (D FORTRAN-DOUBLE) (P FORTRAN-DOUBLE)
              (Q FORTRAN-DOUBLE))
(EXPORT '%DLADIV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlae2_" %DLAE2) :VOID (A FORTRAN-DOUBLE) (B FORTRAN-DOUBLE)
              (C FORTRAN-DOUBLE) (RT1 FORTRAN-DOUBLE) (RT2 FORTRAN-DOUBLE))
(EXPORT '%DLAE2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaebz_" %DLAEBZ) :VOID (IJOB FORTRAN-INT)
              (NITMAX FORTRAN-INT) (N FORTRAN-INT) (MMAX FORTRAN-INT)
              (MINP FORTRAN-INT) (NBMIN FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (RELTOL FORTRAN-DOUBLE) (PIVMIN FORTRAN-DOUBLE)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (E2 CFFI-FNV-DOUBLE)
              (NVAL CFFI-FNV-INT32) (AB CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (MOUT FORTRAN-INT) (NAB CFFI-FNV-INT32) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DLAEBZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed0_" %DLAED0) :VOID (ICOMPQ FORTRAN-INT)
              (QSIZ FORTRAN-INT) (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT)
              (QSTORE CFFI-FNV-DOUBLE) (LDQS FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DLAED0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed1_" %DLAED1) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (INDXQ CFFI-FNV-INT32)
              (RHO FORTRAN-DOUBLE) (CUTPNT FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DLAED1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed2_" %DLAED2) :VOID (K FORTRAN-INT) (N FORTRAN-INT)
              (N1 FORTRAN-INT) (D CFFI-FNV-DOUBLE) (Q CFFI-FNV-DOUBLE)
              (LDQ FORTRAN-INT) (INDXQ CFFI-FNV-INT32) (RHO FORTRAN-DOUBLE)
              (Z CFFI-FNV-DOUBLE) (DLAMDA CFFI-FNV-DOUBLE)
              (W CFFI-FNV-DOUBLE) (Q2 CFFI-FNV-DOUBLE) (INDX CFFI-FNV-INT32)
              (INDXC CFFI-FNV-INT32) (INDXP CFFI-FNV-INT32)
              (COLTYP CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DLAED2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed3_" %DLAED3) :VOID (K FORTRAN-INT) (N FORTRAN-INT)
              (N1 FORTRAN-INT) (D CFFI-FNV-DOUBLE) (Q CFFI-FNV-DOUBLE)
              (LDQ FORTRAN-INT) (RHO FORTRAN-DOUBLE)
              (DLAMDA CFFI-FNV-DOUBLE) (Q2 CFFI-FNV-DOUBLE)
              (INDX CFFI-FNV-INT32) (CTOT CFFI-FNV-INT32)
              (W CFFI-FNV-DOUBLE) (S CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLAED3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed4_" %DLAED4) :VOID (N FORTRAN-INT) (I FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (DELTA CFFI-FNV-DOUBLE) (RHO FORTRAN-DOUBLE)
              (DLAM FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLAED4 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed5_" %DLAED5) :VOID (I FORTRAN-INT) (D FORTRAN-DOUBLE)
              (Z FORTRAN-DOUBLE) (DELTA FORTRAN-DOUBLE) (RHO FORTRAN-DOUBLE)
              (DLAM FORTRAN-DOUBLE))
(EXPORT '%DLAED5 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed6_" %DLAED6) :VOID (KNITER FORTRAN-INT)
              (ORGATI FORTRAN-LOGICAL) (RHO FORTRAN-DOUBLE)
              (D FORTRAN-DOUBLE) (Z FORTRAN-DOUBLE) (FINIT FORTRAN-DOUBLE)
              (TAU FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLAED6 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed7_" %DLAED7) :VOID (ICOMPQ FORTRAN-INT) (N FORTRAN-INT)
              (QSIZ FORTRAN-INT) (TLVLS FORTRAN-INT) (CURLVL FORTRAN-INT)
              (CURPBM FORTRAN-INT) (D CFFI-FNV-DOUBLE) (Q CFFI-FNV-DOUBLE)
              (LDQ FORTRAN-INT) (INDXQ CFFI-FNV-INT32) (RHO FORTRAN-DOUBLE)
              (CUTPNT FORTRAN-INT) (QSTORE CFFI-FNV-DOUBLE)
              (QPTR CFFI-FNV-INT32) (PRMPTR CFFI-FNV-INT32)
              (PERM CFFI-FNV-INT32) (GIVPTR CFFI-FNV-INT32)
              (GIVCOL CFFI-FNV-INT32) (GIVNUM CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DLAED7 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed8_" %DLAED8) :VOID (ICOMPQ FORTRAN-INT) (K FORTRAN-INT)
              (N FORTRAN-INT) (QSIZ FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (INDXQ CFFI-FNV-INT32)
              (RHO FORTRAN-DOUBLE) (CUTPNT FORTRAN-INT) (Z CFFI-FNV-DOUBLE)
              (DLAMDA CFFI-FNV-DOUBLE) (Q2 CFFI-FNV-DOUBLE)
              (LDQ2 FORTRAN-INT) (W CFFI-FNV-DOUBLE) (PERM CFFI-FNV-INT32)
              (GIVPTR FORTRAN-INT) (GIVCOL CFFI-FNV-INT32)
              (GIVNUM CFFI-FNV-DOUBLE) (INDXP CFFI-FNV-INT32)
              (INDX CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DLAED8 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaed9_" %DLAED9) :VOID (K FORTRAN-INT) (KSTART FORTRAN-INT)
              (KSTOP FORTRAN-INT) (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (RHO FORTRAN-DOUBLE)
              (DLAMDA CFFI-FNV-DOUBLE) (W CFFI-FNV-DOUBLE)
              (S CFFI-FNV-DOUBLE) (LDS FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DLAED9 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaeda_" %DLAEDA) :VOID (N FORTRAN-INT) (TLVLS FORTRAN-INT)
              (CURLVL FORTRAN-INT) (CURPBM FORTRAN-INT)
              (PRMPTR CFFI-FNV-INT32) (PERM CFFI-FNV-INT32)
              (GIVPTR CFFI-FNV-INT32) (GIVCOL CFFI-FNV-INT32)
              (GIVNUM CFFI-FNV-DOUBLE) (Q CFFI-FNV-DOUBLE)
              (QPTR CFFI-FNV-INT32) (Z CFFI-FNV-DOUBLE)
              (ZTEMP CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLAEDA :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaein_" %DLAEIN) :VOID (RIGHTV FORTRAN-LOGICAL)
              (NOINIT FORTRAN-LOGICAL) (N FORTRAN-INT) (H CFFI-FNV-DOUBLE)
              (LDH FORTRAN-INT) (WR FORTRAN-DOUBLE) (WI FORTRAN-DOUBLE)
              (VR CFFI-FNV-DOUBLE) (VI CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (EPS3 FORTRAN-DOUBLE)
              (SMLNUM FORTRAN-DOUBLE) (BIGNUM FORTRAN-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLAEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaev2_" %DLAEV2) :VOID (A FORTRAN-DOUBLE) (B FORTRAN-DOUBLE)
              (C FORTRAN-DOUBLE) (RT1 FORTRAN-DOUBLE) (RT2 FORTRAN-DOUBLE)
              (CS1 FORTRAN-DOUBLE) (SN1 FORTRAN-DOUBLE))
(EXPORT '%DLAEV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaexc_" %DLAEXC) :VOID (WANTQ FORTRAN-LOGICAL)
              (N FORTRAN-INT) (TT CFFI-FNV-DOUBLE) (LDT FORTRAN-INT)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (J1 FORTRAN-INT)
              (N1 FORTRAN-INT) (N2 FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLAEXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlag2_" %DLAG2) :VOID (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (SAFMIN FORTRAN-DOUBLE)
              (SCALE1 FORTRAN-DOUBLE) (SCALE2 FORTRAN-DOUBLE)
              (WR1 FORTRAN-DOUBLE) (WR2 FORTRAN-DOUBLE) (WI FORTRAN-DOUBLE))
(EXPORT '%DLAG2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlags2_" %DLAGS2) :VOID (UPPER FORTRAN-LOGICAL)
              (A1 FORTRAN-DOUBLE) (A2 FORTRAN-DOUBLE) (A3 FORTRAN-DOUBLE)
              (B1 FORTRAN-DOUBLE) (B2 FORTRAN-DOUBLE) (B3 FORTRAN-DOUBLE)
              (CSU FORTRAN-DOUBLE) (SNU FORTRAN-DOUBLE) (CSV FORTRAN-DOUBLE)
              (SNV FORTRAN-DOUBLE) (CSQ FORTRAN-DOUBLE) (SNQ FORTRAN-DOUBLE))
(EXPORT '%DLAGS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlagtf_" %DLAGTF) :VOID (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LAMBDA FORTRAN-DOUBLE) (B CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (TOL FORTRAN-DOUBLE) (D CFFI-FNV-DOUBLE)
              (IN CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DLAGTF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlagtm_" %DLAGTM) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (ALPHA FORTRAN-DOUBLE) (DL CFFI-FNV-DOUBLE)
              (D CFFI-FNV-DOUBLE) (DU CFFI-FNV-DOUBLE) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (BETA FORTRAN-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT))
(EXPORT '%DLAGTM :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlagts_" %DLAGTS) :VOID (JOB FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (D CFFI-FNV-DOUBLE) (IN CFFI-FNV-INT32) (Y CFFI-FNV-DOUBLE)
              (TOL FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLAGTS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlagv2_" %DLAGV2) :VOID (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (ALPHAR FORTRAN-DOUBLE)
              (ALPHAI FORTRAN-DOUBLE) (BETA FORTRAN-DOUBLE)
              (CSL FORTRAN-DOUBLE) (SNL FORTRAN-DOUBLE) (CSR FORTRAN-DOUBLE)
              (SNR FORTRAN-DOUBLE))
(EXPORT '%DLAGV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlahqr_" %DLAHQR) :VOID (WANTT FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (H CFFI-FNV-DOUBLE) (LDH FORTRAN-INT)
              (WR CFFI-FNV-DOUBLE) (WI CFFI-FNV-DOUBLE) (ILOZ FORTRAN-INT)
              (IHIZ FORTRAN-INT) (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DLAHQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlahrd_" %DLAHRD) :VOID (N FORTRAN-INT) (K FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU FORTRAN-DOUBLE) (TT FORTRAN-DOUBLE) (LDT FORTRAN-INT)
              (Y FORTRAN-DOUBLE) (LDY FORTRAN-INT))
(EXPORT '%DLAHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaic1_" %DLAIC1) :VOID (JOB FORTRAN-INT) (J FORTRAN-INT)
              (X FORTRAN-DOUBLE) (SEST FORTRAN-DOUBLE) (W FORTRAN-DOUBLE)
              (GAMMA FORTRAN-DOUBLE) (SESTPR FORTRAN-DOUBLE)
              (S FORTRAN-DOUBLE) (C FORTRAN-DOUBLE))
(EXPORT '%DLAIC1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaln2_" %DLALN2) :VOID (LTRANS FORTRAN-LOGICAL)
              (NA FORTRAN-INT) (NW FORTRAN-INT) (SMIN FORTRAN-DOUBLE)
              (CA FORTRAN-DOUBLE) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (D1 FORTRAN-DOUBLE) (D2 FORTRAN-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (WR FORTRAN-DOUBLE) (WI FORTRAN-DOUBLE)
              (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT) (SCALE FORTRAN-DOUBLE)
              (XNORM FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLALN2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlals0_" %DLALS0) :VOID (ICOMPQ FORTRAN-INT) (NL FORTRAN-INT)
              (NR FORTRAN-INT) (SQRE FORTRAN-INT) (NRHS FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (BX CFFI-FNV-DOUBLE)
              (LDBX FORTRAN-INT) (PERM CFFI-FNV-INT32) (GIVPTR FORTRAN-INT)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (GIVNUM CFFI-FNV-DOUBLE) (LDGNUM FORTRAN-INT)
              (POLES CFFI-FNV-DOUBLE) (DIFL CFFI-FNV-DOUBLE)
              (DIFR CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (K FORTRAN-INT)
              (C FORTRAN-DOUBLE) (S FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLALS0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlalsa_" %DLALSA) :VOID (ICOMPQ FORTRAN-INT)
              (SMLSIZ FORTRAN-INT) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (BX CFFI-FNV-DOUBLE)
              (LDBX FORTRAN-INT) (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT)
              (VT CFFI-FNV-DOUBLE) (K CFFI-FNV-INT32) (DIFL CFFI-FNV-DOUBLE)
              (DIFR CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (POLES CFFI-FNV-DOUBLE) (GIVPTR CFFI-FNV-INT32)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (PERM CFFI-FNV-INT32) (GIVNUM CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (S CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DLALSA :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlalsd_" %DLALSD) :VOID (UPLO :STRING) (SMLSIZ FORTRAN-INT)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DLALSD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlamch_" %DLAMCH) :DOUBLE (CMACH :STRING))
(EXPORT '%DLAMCH :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlamrg_" %DLAMRG) :VOID (N1 FORTRAN-INT) (N2 FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (DTRD1 FORTRAN-INT) (DTRD2 FORTRAN-INT)
              (INDEX CFFI-FNV-INT32))
(EXPORT '%DLAMRG :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlangb_" %DLANGB) :DOUBLE (NORM :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLANGB :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlange_" %DLANGE) :DOUBLE (NORM :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLANGE :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlangt_" %DLANGT) :DOUBLE (NORM :STRING) (N FORTRAN-INT)
              (DL CFFI-FNV-DOUBLE) (D CFFI-FNV-DOUBLE) (DU CFFI-FNV-DOUBLE))
(EXPORT '%DLANGT :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlanhs_" %DLANHS) :DOUBLE (NORM :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLANHS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlansb_" %DLANSB) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLANSB :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlansp_" %DLANSP) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLANSP :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlanst_" %DLANST) :DOUBLE (NORM :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE))
(EXPORT '%DLANST :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlansy_" %DLANSY) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLANSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlantb_" %DLANTB) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (K FORTRAN-INT)
              (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLANTB :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlantp_" %DLANTP) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLANTP :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlantr_" %DLANTR) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLANTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlanv2_" %DLANV2) :VOID (A FORTRAN-DOUBLE) (B FORTRAN-DOUBLE)
              (C FORTRAN-DOUBLE) (D FORTRAN-DOUBLE) (RT1R FORTRAN-DOUBLE)
              (RT1I FORTRAN-DOUBLE) (RT2R FORTRAN-DOUBLE)
              (RT2I FORTRAN-DOUBLE) (CS FORTRAN-DOUBLE) (SN FORTRAN-DOUBLE))
(EXPORT '%DLANV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlapll_" %DLAPLL) :VOID (N FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (INCX FORTRAN-INT) (Y CFFI-FNV-DOUBLE) (INCY FORTRAN-INT)
              (SSMIN FORTRAN-DOUBLE))
(EXPORT '%DLAPLL :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlapmt_" %DLAPMT) :VOID (FORWRD FORTRAN-LOGICAL)
              (M FORTRAN-INT) (N FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (K CFFI-FNV-INT32))
(EXPORT '%DLAPMT :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlapy2_" %DLAPY2) :DOUBLE (X FORTRAN-DOUBLE)
              (Y FORTRAN-DOUBLE))
(EXPORT '%DLAPY2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlapy3_" %DLAPY3) :DOUBLE (X FORTRAN-DOUBLE)
              (Y FORTRAN-DOUBLE) (Z FORTRAN-DOUBLE))
(EXPORT '%DLAPY3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaqgb_" %DLAQGB) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (R CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (ROWCND FORTRAN-DOUBLE) (COLCND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%DLAQGB :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaqge_" %DLAQGE) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (R CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (ROWCND FORTRAN-DOUBLE)
              (COLCND FORTRAN-DOUBLE) (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%DLAQGE :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaqp2_" %DLAQP2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (OFFSET FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (TAU CFFI-FNV-DOUBLE)
              (VN1 CFFI-FNV-DOUBLE) (VN2 CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLAQP2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaqps_" %DLAQPS) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (OFFSET FORTRAN-INT) (NB FORTRAN-INT) (KB FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (TAU CFFI-FNV-DOUBLE) (VN1 CFFI-FNV-DOUBLE)
              (VN2 CFFI-FNV-DOUBLE) (AUXV CFFI-FNV-DOUBLE)
              (F CFFI-FNV-DOUBLE) (LDF FORTRAN-INT))
(EXPORT '%DLAQPS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaqsb_" %DLAQSB) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (S CFFI-FNV-DOUBLE) (SCOND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%DLAQSB :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaqsp_" %DLAQSP) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (S CFFI-FNV-DOUBLE)
              (SCOND FORTRAN-DOUBLE) (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%DLAQSP :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaqsy_" %DLAQSY) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (S CFFI-FNV-DOUBLE)
              (SCOND FORTRAN-DOUBLE) (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%DLAQSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaqtr_" %DLAQTR) :VOID (LTRAN FORTRAN-LOGICAL)
              (LREAL FORTRAN-LOGICAL) (N FORTRAN-INT) (TT CFFI-FNV-DOUBLE)
              (LDT FORTRAN-INT) (B CFFI-FNV-DOUBLE) (W FORTRAN-DOUBLE)
              (SCALE FORTRAN-DOUBLE) (X CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLAQTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlar1v_" %DLAR1V) :VOID (N FORTRAN-INT) (B1 FORTRAN-INT)
              (BN FORTRAN-INT) (SIGMA FORTRAN-DOUBLE) (D CFFI-FNV-DOUBLE)
              (L CFFI-FNV-DOUBLE) (LD CFFI-FNV-DOUBLE) (LLD CFFI-FNV-DOUBLE)
              (GERSCH CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (ZTZ FORTRAN-DOUBLE) (MINGMA FORTRAN-DOUBLE) (R FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLAR1V :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlar2v_" %DLAR2V) :VOID (N FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (Y CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (INCX FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (S CFFI-FNV-DOUBLE) (INCC FORTRAN-INT))
(EXPORT '%DLAR2V :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarf_" %DLARF) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-DOUBLE) (INCV FORTRAN-INT)
              (TAU FORTRAN-DOUBLE) (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLARF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarfb_" %DLARFB) :VOID (SIDE :STRING) (TRANS :STRING)
              (DIRECT :STRING) (STOREV :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-DOUBLE)
              (LDV FORTRAN-INT) (TT CFFI-FNV-DOUBLE) (LDT FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (LDWORK FORTRAN-INT))
(EXPORT '%DLARFB :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarfg_" %DLARFG) :VOID (N FORTRAN-INT)
              (ALPHA FORTRAN-DOUBLE) (X CFFI-FNV-DOUBLE) (INCX FORTRAN-INT)
              (TAU FORTRAN-DOUBLE))
(EXPORT '%DLARFG :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarft_" %DLARFT) :VOID (DIRECT :STRING) (STOREV :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-DOUBLE)
              (LDV FORTRAN-INT) (TAU CFFI-FNV-DOUBLE) (TT CFFI-FNV-DOUBLE)
              (LDT FORTRAN-INT))
(EXPORT '%DLARFT :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarfx_" %DLARFX) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-DOUBLE) (TAU FORTRAN-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLARFX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlargv_" %DLARGV) :VOID (N FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (INCX FORTRAN-INT) (Y CFFI-FNV-DOUBLE) (INCY FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (INCC FORTRAN-INT))
(EXPORT '%DLARGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarnv_" %DLARNV) :VOID (IDIST FORTRAN-INT)
              (ISEED FORTRAN-INT) (N FORTRAN-INT) (X CFFI-FNV-DOUBLE))
(EXPORT '%DLARNV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarrb_" %DLARRB) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (L CFFI-FNV-DOUBLE) (LD CFFI-FNV-DOUBLE) (LLD CFFI-FNV-DOUBLE)
              (IFIRST FORTRAN-INT) (ILAST FORTRAN-INT)
              (SIGMA FORTRAN-DOUBLE) (RELTOL FORTRAN-DOUBLE)
              (W CFFI-FNV-DOUBLE) (WGAP CFFI-FNV-DOUBLE)
              (WERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DLARRB :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarre_" %DLARRE) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (TOL FORTRAN-DOUBLE) (NSPLIT FORTRAN-INT)
              (ISPLIT CFFI-FNV-INT32) (M FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (WOFF CFFI-FNV-DOUBLE) (GERSCH CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLARRE :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarrf_" %DLARRF) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (L CFFI-FNV-DOUBLE) (LD CFFI-FNV-DOUBLE) (LLD CFFI-FNV-DOUBLE)
              (IFIRST FORTRAN-INT) (ILAST FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (DPLUS CFFI-FNV-DOUBLE) (LPLUS CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DLARRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarrv_" %DLARRV) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (L CFFI-FNV-DOUBLE) (ISPLIT CFFI-FNV-INT32) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (IBLOCK CFFI-FNV-INT32)
              (GERSCH CFFI-FNV-DOUBLE) (TOL FORTRAN-DOUBLE)
              (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT) (ISUPPZ CFFI-FNV-INT32)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DLARRV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlartg_" %DLARTG) :VOID (F FORTRAN-DOUBLE) (G FORTRAN-DOUBLE)
              (CS FORTRAN-DOUBLE) (SN FORTRAN-DOUBLE) (R FORTRAN-DOUBLE))
(EXPORT '%DLARTG :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlartv_" %DLARTV) :VOID (N FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (INCX FORTRAN-INT) (Y CFFI-FNV-DOUBLE) (INCY FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (S CFFI-FNV-DOUBLE) (INCC FORTRAN-INT))
(EXPORT '%DLARTV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaruv_" %DLARUV) :VOID (ISEED FORTRAN-INT) (N FORTRAN-INT)
              (X FORTRAN-DOUBLE))
(EXPORT '%DLARUV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarz_" %DLARZ) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (L FORTRAN-INT) (V CFFI-FNV-DOUBLE)
              (INCV FORTRAN-INT) (TAU FORTRAN-DOUBLE) (C CFFI-FNV-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLARZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarzb_" %DLARZB) :VOID (SIDE :STRING) (TRANS :STRING)
              (DIRECT :STRING) (STOREV :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (L FORTRAN-INT)
              (V CFFI-FNV-DOUBLE) (LDV FORTRAN-INT) (TT CFFI-FNV-DOUBLE)
              (LDT FORTRAN-INT) (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LDWORK FORTRAN-INT))
(EXPORT '%DLARZB :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlarzt_" %DLARZT) :VOID (DIRECT :STRING) (STOREV :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-DOUBLE)
              (LDV FORTRAN-INT) (TAU CFFI-FNV-DOUBLE) (TT CFFI-FNV-DOUBLE)
              (LDT FORTRAN-INT))
(EXPORT '%DLARZT :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlas2_" %DLAS2) :VOID (F FORTRAN-DOUBLE) (G FORTRAN-DOUBLE)
              (H FORTRAN-DOUBLE) (SSMIN FORTRAN-DOUBLE)
              (SSMAX FORTRAN-DOUBLE))
(EXPORT '%DLAS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlascl_" %DLASCL) :VOID (TYPE :STRING) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (CFROM FORTRAN-DOUBLE) (CTO FORTRAN-DOUBLE)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DLASCL :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd0_" %DLASD0) :VOID (N FORTRAN-INT) (SQRE FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (U CFFI-FNV-DOUBLE)
              (LDU FORTRAN-INT) (VT CFFI-FNV-DOUBLE) (LDVT FORTRAN-INT)
              (SMLSIZ FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLASD0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd1_" %DLASD1) :VOID (NL FORTRAN-INT) (NR FORTRAN-INT)
              (SQRE FORTRAN-INT) (D CFFI-FNV-DOUBLE) (ALPHA FORTRAN-DOUBLE)
              (BETA FORTRAN-DOUBLE) (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT)
              (VT CFFI-FNV-DOUBLE) (LDVT FORTRAN-INT) (IDXQ CFFI-FNV-INT32)
              (IWORK CFFI-FNV-INT32) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLASD1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd2_" %DLASD2) :VOID (NL FORTRAN-INT) (NR FORTRAN-INT)
              (SQRE FORTRAN-INT) (K FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-DOUBLE) (ALPHA FORTRAN-DOUBLE)
              (BETA FORTRAN-DOUBLE) (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT)
              (VT CFFI-FNV-DOUBLE) (LDVT FORTRAN-INT)
              (DSIGMA CFFI-FNV-DOUBLE) (U2 CFFI-FNV-DOUBLE)
              (LDU2 FORTRAN-INT) (VT2 CFFI-FNV-DOUBLE) (LDVT2 FORTRAN-INT)
              (IDXP CFFI-FNV-INT32) (IDX CFFI-FNV-INT32)
              (IDXC CFFI-FNV-INT32) (IDXQ CFFI-FNV-INT32)
              (COLTYP CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DLASD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd3_" %DLASD3) :VOID (NL FORTRAN-INT) (NR FORTRAN-INT)
              (SQRE FORTRAN-INT) (K FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (DSIGMA CFFI-FNV-DOUBLE)
              (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT) (U2 CFFI-FNV-DOUBLE)
              (LDU2 FORTRAN-INT) (VT CFFI-FNV-DOUBLE) (LDVT FORTRAN-INT)
              (VT2 CFFI-FNV-DOUBLE) (LDVT2 FORTRAN-INT)
              (IDXC CFFI-FNV-INT32) (CTOT CFFI-FNV-INT32)
              (Z CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLASD3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd4_" %DLASD4) :VOID (N FORTRAN-INT) (I FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (DELTA CFFI-FNV-DOUBLE) (RHO FORTRAN-DOUBLE)
              (SIGMA FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLASD4 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd5_" %DLASD5) :VOID (I FORTRAN-INT) (D FORTRAN-DOUBLE)
              (Z FORTRAN-DOUBLE) (DELTA FORTRAN-DOUBLE) (RHO FORTRAN-DOUBLE)
              (DSIGMA FORTRAN-DOUBLE) (WORK FORTRAN-DOUBLE))
(EXPORT '%DLASD5 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd6_" %DLASD6) :VOID (ICOMPQ FORTRAN-INT) (NL FORTRAN-INT)
              (NR FORTRAN-INT) (SQRE FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (VF CFFI-FNV-DOUBLE) (VL CFFI-FNV-DOUBLE)
              (ALPHA FORTRAN-DOUBLE) (BETA FORTRAN-DOUBLE)
              (IDXQ CFFI-FNV-INT32) (PERM CFFI-FNV-INT32)
              (GIVPTR FORTRAN-INT) (GIVCOL CFFI-FNV-INT32)
              (LDGCOL FORTRAN-INT) (GIVNUM CFFI-FNV-DOUBLE)
              (LDGNUM FORTRAN-INT) (POLES CFFI-FNV-DOUBLE)
              (DIFL CFFI-FNV-DOUBLE) (DIFR CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-DOUBLE) (K FORTRAN-INT) (C FORTRAN-DOUBLE)
              (S FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DLASD6 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd7_" %DLASD7) :VOID (ICOMPQ FORTRAN-INT) (NL FORTRAN-INT)
              (NR FORTRAN-INT) (SQRE FORTRAN-INT) (K FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (ZW CFFI-FNV-DOUBLE)
              (VF CFFI-FNV-DOUBLE) (VFW CFFI-FNV-DOUBLE)
              (VL CFFI-FNV-DOUBLE) (VLW CFFI-FNV-DOUBLE)
              (ALPHA FORTRAN-DOUBLE) (BETA FORTRAN-DOUBLE)
              (DSIGMA CFFI-FNV-DOUBLE) (IDX CFFI-FNV-INT32)
              (IDXP CFFI-FNV-INT32) (IDXQ CFFI-FNV-INT32)
              (PERM CFFI-FNV-INT32) (GIVPTR FORTRAN-INT)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (GIVNUM CFFI-FNV-DOUBLE) (LDGNUM FORTRAN-INT)
              (C FORTRAN-DOUBLE) (S FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLASD7 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd8_" %DLASD8) :VOID (ICOMPQ FORTRAN-INT) (K FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (VF CFFI-FNV-DOUBLE)
              (VL CFFI-FNV-DOUBLE) (DIFL CFFI-FNV-DOUBLE)
              (DIFR CFFI-FNV-DOUBLE) (LDDIFR FORTRAN-INT)
              (DSIGMA CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLASD8 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasd9_" %DLASD9) :VOID (ICOMPQ FORTRAN-INT)
              (LDU FORTRAN-INT) (K FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-DOUBLE) (VF CFFI-FNV-DOUBLE) (VL CFFI-FNV-DOUBLE)
              (DIFL CFFI-FNV-DOUBLE) (DIFR CFFI-FNV-DOUBLE)
              (DSIGMA CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLASD9 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasda_" %DLASDA) :VOID (ICOMPQ FORTRAN-INT)
              (SMLSIZ FORTRAN-INT) (N FORTRAN-INT) (SQRE FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (U CFFI-FNV-DOUBLE)
              (LDU FORTRAN-INT) (VT CFFI-FNV-DOUBLE) (K CFFI-FNV-INT32)
              (DIFL CFFI-FNV-DOUBLE) (DIFR CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-DOUBLE) (POLES CFFI-FNV-DOUBLE)
              (GIVPTR CFFI-FNV-INT32) (GIVCOL CFFI-FNV-INT32)
              (LDGCOL FORTRAN-INT) (PERM CFFI-FNV-INT32)
              (GIVNUM CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (S CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DLASDA :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasdq_" %DLASDQ) :VOID (UPLO :STRING) (SQRE FORTRAN-INT)
              (N FORTRAN-INT) (NCVT FORTRAN-INT) (NRU FORTRAN-INT)
              (NCC FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (VT CFFI-FNV-DOUBLE) (LDVT FORTRAN-INT) (U CFFI-FNV-DOUBLE)
              (LDU FORTRAN-INT) (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLASDQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasdt_" %DLASDT) :VOID (N FORTRAN-INT) (LVL FORTRAN-INT)
              (ND FORTRAN-INT) (INODE CFFI-FNV-INT32) (NDIML CFFI-FNV-INT32)
              (NDIMR CFFI-FNV-INT32) (MSUB FORTRAN-INT))
(EXPORT '%DLASDT :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaset_" %DLASET) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (ALPHA FORTRAN-DOUBLE) (BETA FORTRAN-DOUBLE)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT))
(EXPORT '%DLASET :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasq1_" %DLASQ1) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLASQ1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasq2_" %DLASQ2) :VOID (N FORTRAN-INT) (Z CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLASQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasq3_" %DLASQ3) :VOID (I0 FORTRAN-INT) (N0 FORTRAN-INT)
              (Z CFFI-FNV-DOUBLE) (PP FORTRAN-INT) (DMIN FORTRAN-DOUBLE)
              (SIGMA FORTRAN-DOUBLE) (DESIG FORTRAN-DOUBLE)
              (QMAX FORTRAN-DOUBLE) (NFAIL FORTRAN-INT) (ITER FORTRAN-INT)
              (NDIV FORTRAN-INT) (IEEE FORTRAN-LOGICAL))
(EXPORT '%DLASQ3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasq4_" %DLASQ4) :VOID (I0 FORTRAN-INT) (N0 FORTRAN-INT)
              (Z CFFI-FNV-DOUBLE) (PP FORTRAN-INT) (N0IN FORTRAN-INT)
              (DMIN FORTRAN-DOUBLE) (DMIN1 FORTRAN-DOUBLE)
              (DMIN2 FORTRAN-DOUBLE) (DN FORTRAN-DOUBLE)
              (DN1 FORTRAN-DOUBLE) (DN2 FORTRAN-DOUBLE) (TAU FORTRAN-DOUBLE)
              (TTYPE FORTRAN-INT))
(EXPORT '%DLASQ4 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasq5_" %DLASQ5) :VOID (I0 FORTRAN-INT) (N0 FORTRAN-INT)
              (Z CFFI-FNV-DOUBLE) (PP FORTRAN-INT) (TAU FORTRAN-DOUBLE)
              (DMIN FORTRAN-DOUBLE) (DMIN1 FORTRAN-DOUBLE)
              (DMIN2 FORTRAN-DOUBLE) (DN FORTRAN-DOUBLE)
              (DNM1 FORTRAN-DOUBLE) (DNM2 FORTRAN-DOUBLE)
              (IEEE FORTRAN-LOGICAL))
(EXPORT '%DLASQ5 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasq6_" %DLASQ6) :VOID (I0 FORTRAN-INT) (N0 FORTRAN-INT)
              (Z CFFI-FNV-DOUBLE) (PP FORTRAN-INT) (DMIN FORTRAN-DOUBLE)
              (DMIN1 FORTRAN-DOUBLE) (DMIN2 FORTRAN-DOUBLE)
              (DN FORTRAN-DOUBLE) (DNM1 FORTRAN-DOUBLE)
              (DNM2 FORTRAN-DOUBLE))
(EXPORT '%DLASQ6 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasr_" %DLASR) :VOID (SIDE :STRING) (PIVOT :STRING)
              (DIRECT :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (S CFFI-FNV-DOUBLE) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT))
(EXPORT '%DLASR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasrt_" %DLASRT) :VOID (ID :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLASRT :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlassq_" %DLASSQ) :VOID (N FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (INCX FORTRAN-INT) (SCALE FORTRAN-DOUBLE)
              (SUMSQ FORTRAN-DOUBLE))
(EXPORT '%DLASSQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasv2_" %DLASV2) :VOID (F FORTRAN-DOUBLE) (G FORTRAN-DOUBLE)
              (H FORTRAN-DOUBLE) (SSMIN FORTRAN-DOUBLE)
              (SSMAX FORTRAN-DOUBLE) (SNR FORTRAN-DOUBLE)
              (CSR FORTRAN-DOUBLE) (SNL FORTRAN-DOUBLE) (CSL FORTRAN-DOUBLE))
(EXPORT '%DLASV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlaswp_" %DLASWP) :VOID (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (K1 FORTRAN-INT) (K2 FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INCX FORTRAN-INT))
(EXPORT '%DLASWP :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasy2_" %DLASY2) :VOID (LTRANL FORTRAN-LOGICAL)
              (LTRANR FORTRAN-LOGICAL) (ISGN FORTRAN-INT) (N1 FORTRAN-INT)
              (N2 FORTRAN-INT) (TL CFFI-FNV-DOUBLE) (LDTL FORTRAN-INT)
              (TR CFFI-FNV-DOUBLE) (LDTR FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (SCALE FORTRAN-DOUBLE) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (XNORM FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLASY2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlasyf_" %DLASYF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (KB FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32) (W CFFI-FNV-DOUBLE)
              (LDW FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DLASYF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlatbs_" %DLATBS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (X CFFI-FNV-DOUBLE) (SCALE FORTRAN-DOUBLE)
              (CNORM CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DLATBS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlatdf_" %DLATDF) :VOID (IJOB FORTRAN-INT) (N FORTRAN-INT)
              (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT) (RHS CFFI-FNV-DOUBLE)
              (RDSUM FORTRAN-DOUBLE) (RDSCAL FORTRAN-DOUBLE)
              (IPIV CFFI-FNV-INT32) (JPIV CFFI-FNV-INT32))
(EXPORT '%DLATDF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlatps_" %DLATPS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (X CFFI-FNV-DOUBLE)
              (SCALE FORTRAN-DOUBLE) (CNORM CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLATPS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlatrd_" %DLATRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (E CFFI-FNV-DOUBLE) (TAU CFFI-FNV-DOUBLE) (W CFFI-FNV-DOUBLE)
              (LDW FORTRAN-INT))
(EXPORT '%DLATRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlatrs_" %DLATRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (SCALE FORTRAN-DOUBLE) (CNORM CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DLATRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlatrz_" %DLATRZ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLATRZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlatzm_" %DLATZM) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-DOUBLE) (INCV FORTRAN-INT)
              (TAU FORTRAN-DOUBLE) (C1 CFFI-FNV-DOUBLE) (C2 CFFI-FNV-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%DLATZM :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlauu2_" %DLAUU2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DLAUU2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dlauum_" %DLAUUM) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DLAUUM :LAPACK-CFFI)

(CFFI:DEFCFUN ("dopgtr_" %DOPGTR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (TAU CFFI-FNV-DOUBLE) (Q CFFI-FNV-DOUBLE)
              (LDQ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DOPGTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dopmtr_" %DOPMTR) :VOID (SIDE :STRING) (UPLO :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (TAU CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DOPMTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorg2l_" %DORG2L) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DORG2L :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorg2r_" %DORG2R) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DORG2R :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorgbr_" %DORGBR) :VOID (VECT :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORGBR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorghr_" %DORGHR) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORGHR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorgl2_" %DORGL2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DORGL2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorglq_" %DORGLQ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORGLQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorgql_" %DORGQL) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORGQL :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorgqr_" %DORGQR) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORGQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorgr2_" %DORGR2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DORGR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorgrq_" %DORGRQ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORGRQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorgtr_" %DORGTR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORGTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorm2l_" %DORM2L) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DORM2L :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorm2r_" %DORM2R) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DORM2R :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormbr_" %DORMBR) :VOID (VECT :STRING) (SIDE :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORMBR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormhr_" %DORMHR) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORMHR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dorml2_" %DORML2) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DORML2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormlq_" %DORMLQ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORMLQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormql_" %DORMQL) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORMQL :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormqr_" %DORMQR) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORMQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormr2_" %DORMR2) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DORMR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormr3_" %DORMR3) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DORMR3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormrq_" %DORMRQ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORMRQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormrz_" %DORMRZ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORMRZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dormtr_" %DORMTR) :VOID (SIDE :STRING) (UPLO :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DORMTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpbcon_" %DPBCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DPBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpbequ_" %DPBEQU) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (S CFFI-FNV-DOUBLE) (SCOND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DPBEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpbrfs_" %DPBRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (AFB CFFI-FNV-DOUBLE) (LDAFB FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DPBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpbstf_" %DPBSTF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DPBSTF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpbsv_" %DPBSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DPBSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpbsvx_" %DPBSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT) (AFB CFFI-FNV-DOUBLE)
              (LDAFB FORTRAN-INT) (EQUED :STRING) (S CFFI-FNV-DOUBLE)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DPBSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpbtf2_" %DPBTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DPBTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpbtrf_" %DPBTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DPBTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpbtrs_" %DPBTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DPBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpocon_" %DPOCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DPOCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpoequ_" %DPOEQU) :VOID (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (S CFFI-FNV-DOUBLE) (SCOND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DPOEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("dporfs_" %DPORFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (AF CFFI-FNV-DOUBLE) (LDAF FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DPORFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dposv_" %DPOSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DPOSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dposvx_" %DPOSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-DOUBLE) (LDAF FORTRAN-INT)
              (EQUED :STRING) (S CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DPOSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpotf2_" %DPOTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DPOTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpotrf_" %DPOTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DPOTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpotri_" %DPOTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DPOTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpotrs_" %DPOTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DPOTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dppcon_" %DPPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DPPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dppequ_" %DPPEQU) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (S CFFI-FNV-DOUBLE)
              (SCOND FORTRAN-DOUBLE) (AMAX FORTRAN-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DPPEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpprfs_" %DPPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (AFP CFFI-FNV-DOUBLE)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DPPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dppsv_" %DPPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DPPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dppsvx_" %DPPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (AP CFFI-FNV-DOUBLE)
              (AFP CFFI-FNV-DOUBLE) (EQUED :STRING) (S CFFI-FNV-DOUBLE)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DPPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpptrf_" %DPPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DPPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpptri_" %DPPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DPPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpptrs_" %DPPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DPPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dptcon_" %DPTCON) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DPTCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpteqr_" %DPTEQR) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DPTEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dptrfs_" %DPTRFS) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (DF CFFI-FNV-DOUBLE)
              (EF CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DPTRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dptsv_" %DPTSV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DPTSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dptsvx_" %DPTSVX) :VOID (FACT :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (DF CFFI-FNV-DOUBLE) (EF CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DPTSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpttrf_" %DPTTRF) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DPTTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dpttrs_" %DPTTRS) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DPTTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dptts2_" %DPTTS2) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT))
(EXPORT '%DPTTS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("drscl_" %DRSCL) :VOID (N FORTRAN-INT) (SA FORTRAN-DOUBLE)
              (SX CFFI-FNV-DOUBLE) (INCX FORTRAN-INT))
(EXPORT '%DRSCL :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsbev_" %DSBEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSBEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsbevd_" %DSBEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSBEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsbevx_" %DSBEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT) (Q CFFI-FNV-DOUBLE)
              (LDQ FORTRAN-INT) (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (M FORTRAN-INT) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSBEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsbgst_" %DSBGST) :VOID (VECT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT) (BB CFFI-FNV-DOUBLE)
              (LDBB FORTRAN-INT) (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSBGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsbgv_" %DSBGV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT) (BB CFFI-FNV-DOUBLE)
              (LDBB FORTRAN-INT) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSBGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsbgvd_" %DSBGVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT) (BB CFFI-FNV-DOUBLE)
              (LDBB FORTRAN-INT) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSBGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsbgvx_" %DSBGVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (KA FORTRAN-INT)
              (KB FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (BB CFFI-FNV-DOUBLE) (LDBB FORTRAN-INT) (Q CFFI-FNV-DOUBLE)
              (LDQ FORTRAN-INT) (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (M FORTRAN-INT) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSBGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsbtrd_" %DSBTRD) :VOID (VECT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-DOUBLE)
              (LDAB FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DSBTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsecnd_" %DSECND) :DOUBLE)
(EXPORT '%DSECND :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspcon_" %DSPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspev_" %DSPEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DSPEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspevd_" %DSPEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSPEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspevx_" %DSPEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE)
              (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DSPEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspgst_" %DSPGST) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (BP CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DSPGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspgv_" %DSPGV) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE)
              (BP CFFI-FNV-DOUBLE) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSPGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspgvd_" %DSPGVD) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE)
              (BP CFFI-FNV-DOUBLE) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSPGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspgvx_" %DSPGVX) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (RANGE :STRING) (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (BP CFFI-FNV-DOUBLE) (VL FORTRAN-DOUBLE)
              (VU FORTRAN-DOUBLE) (IL FORTRAN-INT) (IU FORTRAN-INT)
              (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSPGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsprfs_" %DSPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (AFP CFFI-FNV-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DSPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspsv_" %DSPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dspsvx_" %DSPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (AP CFFI-FNV-DOUBLE)
              (AFP CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsptrd_" %DSPTRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (TAU CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSPTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsptrf_" %DSPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DSPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsptri_" %DSPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsptrs_" %DSPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dstebz_" %DSTEBZ) :VOID (RANGE :STRING) (ORDER :STRING)
              (N FORTRAN-INT) (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (M FORTRAN-INT)
              (NSPLIT FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (IBLOCK CFFI-FNV-INT32) (ISPLIT CFFI-FNV-INT32)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSTEBZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("dstedc_" %DSTEDC) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSTEDC :LAPACK-CFFI)

(CFFI:DEFCFUN ("dstegr_" %DSTEGR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSTEGR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dstein_" %DSTEIN) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (M FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (IBLOCK CFFI-FNV-INT32) (ISPLIT CFFI-FNV-INT32)
              (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSTEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsteqr_" %DSTEQR) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSTEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsterf_" %DSTERF) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSTERF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dstev_" %DSTEV) :VOID (JOBZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSTEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dstevd_" %DSTEVD) :VOID (JOBZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSTEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dstevr_" %DSTEVR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSTEVR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dstevx_" %DSTEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DSTEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsycon_" %DSYCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSYCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsyev_" %DSYEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DSYEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsyevd_" %DSYEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSYEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsyevr_" %DSYEVR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (M FORTRAN-INT) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (ISUPPZ CFFI-FNV-INT32)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSYEVR :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsyevx_" %DSYEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (M FORTRAN-INT) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSYEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsygs2_" %DSYGS2) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSYGS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsygst_" %DSYGST) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSYGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsygv_" %DSYGV) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DSYGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsygvd_" %DSYGVD) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSYGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsygvx_" %DSYGVX) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (RANGE :STRING) (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (M FORTRAN-INT) (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSYGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsyrfs_" %DSYRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (AF CFFI-FNV-DOUBLE) (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DSYRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsysv_" %DSYSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSYSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsysvx_" %DSYSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-DOUBLE) (LDAF FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DSYSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsytd2_" %DSYTD2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (TAU CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSYTD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsytf2_" %DSYTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DSYTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsytrd_" %DSYTRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSYTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsytrf_" %DSYTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DSYTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsytri_" %DSYTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DSYTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("dsytrs_" %DSYTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DSYTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtbcon_" %DTBCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DTBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtbrfs_" %DTBRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DTBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtbtrs_" %DTBTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-DOUBLE) (LDAB FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DTBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtgevc_" %DTGEVC) :VOID (SIDE :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (VL CFFI-FNV-DOUBLE) (LDVL FORTRAN-INT) (VR CFFI-FNV-DOUBLE)
              (LDVR FORTRAN-INT) (MM FORTRAN-INT) (M FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DTGEVC :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtgex2_" %DTGEX2) :VOID (WANTQ FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (J1 FORTRAN-INT) (N1 FORTRAN-INT)
              (N2 FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DTGEX2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtgexc_" %DTGEXC) :VOID (WANTQ FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT) (Z CFFI-FNV-DOUBLE)
              (LDZ FORTRAN-INT) (IFST FORTRAN-INT) (ILST FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DTGEXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtgsen_" %DTGSEN) :VOID (IJOB FORTRAN-INT)
              (WANTQ FORTRAN-LOGICAL) (WANTZ FORTRAN-LOGICAL)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (ALPHAR CFFI-FNV-DOUBLE) (ALPHAI CFFI-FNV-DOUBLE)
              (BETA CFFI-FNV-DOUBLE) (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-DOUBLE) (LDZ FORTRAN-INT) (M FORTRAN-INT)
              (PL FORTRAN-DOUBLE) (PR FORTRAN-DOUBLE) (DIF CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DTGSEN :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtgsja_" %DTGSJA) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (P FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (L FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (TOLA FORTRAN-DOUBLE) (TOLB FORTRAN-DOUBLE)
              (ALPHA CFFI-FNV-DOUBLE) (BETA CFFI-FNV-DOUBLE)
              (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT) (V CFFI-FNV-DOUBLE)
              (LDV FORTRAN-INT) (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (NCYCLE FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DTGSJA :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtgsna_" %DTGSNA) :VOID (JOB :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (VL CFFI-FNV-DOUBLE) (LDVL FORTRAN-INT) (VR CFFI-FNV-DOUBLE)
              (LDVR FORTRAN-INT) (S CFFI-FNV-DOUBLE) (DIF CFFI-FNV-DOUBLE)
              (MM FORTRAN-INT) (M FORTRAN-INT) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DTGSNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtgsy2_" %DTGSY2) :VOID (TRANS :STRING) (IJOB FORTRAN-INT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (LDD FORTRAN-INT) (E CFFI-FNV-DOUBLE) (LDE FORTRAN-INT)
              (F CFFI-FNV-DOUBLE) (LDF FORTRAN-INT) (SCALE FORTRAN-DOUBLE)
              (RDSUM FORTRAN-DOUBLE) (RDSCAL FORTRAN-DOUBLE)
              (IWORK CFFI-FNV-INT32) (PQ FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DTGSY2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtgsyl_" %DTGSYL) :VOID (TRANS :STRING) (IJOB FORTRAN-INT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (LDD FORTRAN-INT) (E CFFI-FNV-DOUBLE) (LDE FORTRAN-INT)
              (F CFFI-FNV-DOUBLE) (LDF FORTRAN-INT) (SCALE FORTRAN-DOUBLE)
              (DIF FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DTGSYL :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtpcon_" %DTPCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DTPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtprfs_" %DTPRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DTPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtptri_" %DTPTRI) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DTPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtptrs_" %DTPTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-DOUBLE) (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DTPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrcon_" %DTRCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (A CFFI-FNV-DOUBLE)
              (LDA FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DTRCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrevc_" %DTREVC) :VOID (SIDE :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (TT CFFI-FNV-DOUBLE)
              (LDT FORTRAN-INT) (VL CFFI-FNV-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-DOUBLE) (LDVR FORTRAN-INT) (MM FORTRAN-INT)
              (M FORTRAN-INT) (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DTREVC :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrexc_" %DTREXC) :VOID (COMPQ :STRING) (N FORTRAN-INT)
              (TT CFFI-FNV-DOUBLE) (LDT FORTRAN-INT) (Q CFFI-FNV-DOUBLE)
              (LDQ FORTRAN-INT) (IFST FORTRAN-INT) (ILST FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DTREXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrrfs_" %DTRRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%DTRRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrsen_" %DTRSEN) :VOID (JOB :STRING) (COMPQ :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (TT CFFI-FNV-DOUBLE)
              (LDT FORTRAN-INT) (Q CFFI-FNV-DOUBLE) (LDQ FORTRAN-INT)
              (WR CFFI-FNV-DOUBLE) (WI CFFI-FNV-DOUBLE) (M FORTRAN-INT)
              (S FORTRAN-DOUBLE) (SEP FORTRAN-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DTRSEN :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrsna_" %DTRSNA) :VOID (JOB :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (TT CFFI-FNV-DOUBLE)
              (LDT FORTRAN-INT) (VL CFFI-FNV-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-DOUBLE) (LDVR FORTRAN-INT) (S CFFI-FNV-DOUBLE)
              (SEP CFFI-FNV-DOUBLE) (MM FORTRAN-INT) (M FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (LDWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%DTRSNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrsyl_" %DTRSYL) :VOID (TRANA :STRING) (TRANB :STRING)
              (ISGN FORTRAN-INT) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (C CFFI-FNV-DOUBLE) (LDC FORTRAN-INT)
              (SCALE FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%DTRSYL :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrti2_" %DTRTI2) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DTRTI2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrtri_" %DTRTRI) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%DTRTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtrtrs_" %DTRTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (B CFFI-FNV-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DTRTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtzrqf_" %DTZRQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%DTZRQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dtzrzf_" %DTZRZF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT) (TAU CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%DTZRZF :LAPACK-CFFI)

(CFFI:DEFCFUN ("dzsum1_" %DZSUM1) :DOUBLE (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT))
(EXPORT '%DZSUM1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("icmax1_" %ICMAX1) :INT32 (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT))
(EXPORT '%ICMAX1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ieeeck_" %IEEECK) :INT32 (ISPEC FORTRAN-INT)
              (ZERO FORTRAN-FLOAT) (ONE FORTRAN-FLOAT))
(EXPORT '%IEEECK :LAPACK-CFFI)

(CFFI:DEFCFUN ("ilaenv_" %ILAENV) :INT32 (ISPEC FORTRAN-INT) (NAME :STRING)
              (OPTS :STRING) (N1 FORTRAN-INT) (N2 FORTRAN-INT)
              (N3 FORTRAN-INT) (N4 FORTRAN-INT))
(EXPORT '%ILAENV :LAPACK-CFFI)

(CFFI:DEFCFUN ("izmax1_" %IZMAX1) :INT32 (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT))
(EXPORT '%IZMAX1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("lsame_" %LSAME) LOGICAL (CA :STRING) (CB :STRING))
(EXPORT '%LSAME :LAPACK-CFFI)

(CFFI:DEFCFUN ("lsamen_" %LSAMEN) LOGICAL (N FORTRAN-INT) (CA :STRING)
              (CB :STRING))
(EXPORT '%LSAMEN :LAPACK-CFFI)

(CFFI:DEFCFUN ("sbdsdc_" %SBDSDC) :VOID (UPLO :STRING) (COMPQ :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT) (VT CFFI-FNV-FLOAT)
              (LDVT FORTRAN-INT) (Q CFFI-FNV-FLOAT) (IQ CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SBDSDC :LAPACK-CFFI)

(CFFI:DEFCFUN ("sbdsqr_" %SBDSQR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NCVT FORTRAN-INT) (NRU FORTRAN-INT) (NCC FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (VT CFFI-FNV-FLOAT)
              (LDVT FORTRAN-INT) (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SBDSQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("scsum1_" %SCSUM1) :FLOAT (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-FLOAT) (INCX FORTRAN-INT))
(EXPORT '%SCSUM1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sdisna_" %SDISNA) :VOID (JOB :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (D CFFI-FNV-FLOAT) (SEP CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SDISNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("second_" %SECOND) :FLOAT)
(EXPORT '%SECOND :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgbbrd_" %SGBBRD) :VOID (VECT :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (NCC FORTRAN-INT) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (Q CFFI-FNV-FLOAT)
              (LDQ FORTRAN-INT) (PT CFFI-FNV-FLOAT) (LDPT FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SGBBRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgbcon_" %SGBCON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgbequ_" %SGBEQU) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (R CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (ROWCND FORTRAN-FLOAT) (COLCND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGBEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgbrfs_" %SGBRFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT) (AFB CFFI-FNV-FLOAT)
              (LDAFB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgbsv_" %SGBSV) :VOID (N FORTRAN-INT) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (NRHS FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGBSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgbsvx_" %SGBSVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (KL FORTRAN-INT) (KU FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (AFB CFFI-FNV-FLOAT) (LDAFB FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (EQUED :STRING) (R CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGBSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgbtf2_" %SGBTF2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGBTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgbtrf_" %SGBTRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGBTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgbtrs_" %SGBTRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgebak_" %SGEBAK) :VOID (JOB :STRING) (SIDE :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (SCALE CFFI-FNV-FLOAT) (M FORTRAN-INT) (V CFFI-FNV-FLOAT)
              (LDV FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGEBAK :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgebal_" %SGEBAL) :VOID (JOB :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (SCALE CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGEBAL :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgebd2_" %SGEBD2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (TAUQ CFFI-FNV-FLOAT) (TAUP CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGEBD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgebrd_" %SGEBRD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (TAUQ CFFI-FNV-FLOAT) (TAUP CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGEBRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgecon_" %SGECON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGECON :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeequ_" %SGEEQU) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (R CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (ROWCND FORTRAN-FLOAT)
              (COLCND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGEEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgees_" %SGEES) :VOID (JOBVS :STRING) (SORT :STRING)
              (SELECT FORTRAN-LOGICAL) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (SDIM FORTRAN-INT) (WR CFFI-FNV-FLOAT)
              (WI CFFI-FNV-FLOAT) (VS CFFI-FNV-FLOAT) (LDVS FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGEES :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeesx_" %SGEESX) :VOID (JOBVS :STRING) (SORT :STRING)
              (SELECT FORTRAN-LOGICAL) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (SDIM FORTRAN-INT)
              (WR CFFI-FNV-FLOAT) (WI CFFI-FNV-FLOAT) (VS CFFI-FNV-FLOAT)
              (LDVS FORTRAN-INT) (RCONDE FORTRAN-FLOAT)
              (RCONDV FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGEESX :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeev_" %SGEEV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (WR CFFI-FNV-FLOAT) (WI CFFI-FNV-FLOAT) (VL CFFI-FNV-FLOAT)
              (LDVL FORTRAN-INT) (VR CFFI-FNV-FLOAT) (LDVR FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGEEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeevx_" %SGEEVX) :VOID (BALANC :STRING) (JOBVL :STRING)
              (JOBVR :STRING) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (WR CFFI-FNV-FLOAT)
              (WI CFFI-FNV-FLOAT) (VL CFFI-FNV-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-FLOAT) (LDVR FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (SCALE CFFI-FNV-FLOAT) (ABNRM FORTRAN-FLOAT)
              (RCONDE CFFI-FNV-FLOAT) (RCONDV CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGEEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgegs_" %SGEGS) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-FLOAT)
              (ALPHAI CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (VSL CFFI-FNV-FLOAT) (LDVSL FORTRAN-INT) (VSR CFFI-FNV-FLOAT)
              (LDVSR FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SGEGS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgegv_" %SGEGV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-FLOAT)
              (ALPHAI CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (VL CFFI-FNV-FLOAT) (LDVL FORTRAN-INT) (VR CFFI-FNV-FLOAT)
              (LDVR FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SGEGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgehd2_" %SGEHD2) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGEHD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgehrd_" %SGEHRD) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SGEHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgelq2_" %SGELQ2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGELQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgelqf_" %SGELQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGELQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgels_" %SGELS) :VOID (TRANS :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGELS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgelsd_" %SGELSD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (S CFFI-FNV-FLOAT)
              (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGELSD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgelss_" %SGELSS) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (S CFFI-FNV-FLOAT)
              (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGELSS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgelsx_" %SGELSX) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SGELSX :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgelsy_" %SGELSY) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGELSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeql2_" %SGEQL2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGEQL2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeqlf_" %SGEQLF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGEQLF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeqp3_" %SGEQP3) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SGEQP3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeqpf_" %SGEQPF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGEQPF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeqr2_" %SGEQR2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGEQR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgeqrf_" %SGEQRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGEQRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgerfs_" %SGERFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (AF CFFI-FNV-FLOAT) (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGERFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgerq2_" %SGERQ2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGERQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgerqf_" %SGERQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGERQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgesc2_" %SGESC2) :VOID (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (RHS CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32)
              (JPIV CFFI-FNV-INT32) (SCALE FORTRAN-FLOAT))
(EXPORT '%SGESC2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgesdd_" %SGESDD) :VOID (JOBZ :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT)
              (VT CFFI-FNV-FLOAT) (LDVT FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGESDD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgesv_" %SGESV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGESV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgesvd_" %SGESVD) :VOID (JOBU :STRING) (JOBVT :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (S CFFI-FNV-FLOAT) (U CFFI-FNV-FLOAT)
              (LDU FORTRAN-INT) (VT CFFI-FNV-FLOAT) (LDVT FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGESVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgesvx_" %SGESVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-FLOAT) (LDAF FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (EQUED :STRING) (R CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT) (RCOND FORTRAN-FLOAT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGESVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgetc2_" %SGETC2) :VOID (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32) (JPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGETC2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgetf2_" %SGETF2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGETF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgetrf_" %SGETRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGETRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgetri_" %SGETRI) :VOID (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGETRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgetrs_" %SGETRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SGETRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggbak_" %SGGBAK) :VOID (JOB :STRING) (SIDE :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (LSCALE CFFI-FNV-FLOAT) (RSCALE CFFI-FNV-FLOAT)
              (M FORTRAN-INT) (V CFFI-FNV-FLOAT) (LDV FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SGGBAK :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggbal_" %SGGBAL) :VOID (JOB :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (LSCALE CFFI-FNV-FLOAT) (RSCALE CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGGBAL :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgges_" %SGGES) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (SORT :STRING) (SELCTG FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (SDIM FORTRAN-INT) (ALPHAR CFFI-FNV-FLOAT)
              (ALPHAI CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (VSL CFFI-FNV-FLOAT) (LDVSL FORTRAN-INT) (VSR CFFI-FNV-FLOAT)
              (LDVSR FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGGES :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggesx_" %SGGESX) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (SORT :STRING) (SELCTG FORTRAN-LOGICAL) (SENSE :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (SDIM FORTRAN-INT)
              (ALPHAR CFFI-FNV-FLOAT) (ALPHAI CFFI-FNV-FLOAT)
              (BETA CFFI-FNV-FLOAT) (VSL CFFI-FNV-FLOAT) (LDVSL FORTRAN-INT)
              (VSR CFFI-FNV-FLOAT) (LDVSR FORTRAN-INT)
              (RCONDE FORTRAN-FLOAT) (RCONDV FORTRAN-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGGESX :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggev_" %SGGEV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-FLOAT)
              (ALPHAI CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (VL CFFI-FNV-FLOAT) (LDVL FORTRAN-INT) (VR CFFI-FNV-FLOAT)
              (LDVR FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SGGEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggevx_" %SGGEVX) :VOID (BALANC :STRING) (JOBVL :STRING)
              (JOBVR :STRING) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-FLOAT)
              (ALPHAI CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (VL CFFI-FNV-FLOAT) (LDVL FORTRAN-INT) (VR CFFI-FNV-FLOAT)
              (LDVR FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (LSCALE CFFI-FNV-FLOAT) (RSCALE CFFI-FNV-FLOAT)
              (ABNRM FORTRAN-FLOAT) (BBNRM FORTRAN-FLOAT)
              (RCONDE CFFI-FNV-FLOAT) (RCONDV CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (BWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGGEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggglm_" %SGGGLM) :VOID (N FORTRAN-INT) (M FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (X CFFI-FNV-FLOAT) (Y CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGGGLM :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgghrd_" %SGGHRD) :VOID (COMPQ :STRING) (COMPZ :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGGHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgglse_" %SGGLSE) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (C CFFI-FNV-FLOAT)
              (D CFFI-FNV-FLOAT) (X CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGGLSE :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggqrf_" %SGGQRF) :VOID (N FORTRAN-INT) (M FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAUA CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (TAUB CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGGQRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggrqf_" %SGGRQF) :VOID (M FORTRAN-INT) (P FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAUA CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (TAUB CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGGRQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggsvd_" %SGGSVD) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (N FORTRAN-INT) (P FORTRAN-INT)
              (K FORTRAN-INT) (L FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT) (V CFFI-FNV-FLOAT)
              (LDV FORTRAN-INT) (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGGSVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sggsvp_" %SGGSVP) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (P FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (TOLA FORTRAN-FLOAT) (TOLB FORTRAN-FLOAT)
              (K FORTRAN-INT) (L FORTRAN-INT) (U CFFI-FNV-FLOAT)
              (LDU FORTRAN-INT) (V CFFI-FNV-FLOAT) (LDV FORTRAN-INT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SGGSVP :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgtcon_" %SGTCON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (DL CFFI-FNV-FLOAT) (D CFFI-FNV-FLOAT) (DU CFFI-FNV-FLOAT)
              (DU2 CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGTCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgtrfs_" %SGTRFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-FLOAT) (D CFFI-FNV-FLOAT)
              (DU CFFI-FNV-FLOAT) (DLF CFFI-FNV-FLOAT) (DF CFFI-FNV-FLOAT)
              (DUF CFFI-FNV-FLOAT) (DU2 CFFI-FNV-FLOAT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGTRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgtsv_" %SGTSV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (DL CFFI-FNV-FLOAT) (D CFFI-FNV-FLOAT) (DU CFFI-FNV-FLOAT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGTSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgtsvx_" %SGTSVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (DL CFFI-FNV-FLOAT)
              (D CFFI-FNV-FLOAT) (DU CFFI-FNV-FLOAT) (DLF CFFI-FNV-FLOAT)
              (DF CFFI-FNV-FLOAT) (DUF CFFI-FNV-FLOAT) (DU2 CFFI-FNV-FLOAT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT) (RCOND FORTRAN-FLOAT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SGTSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgttrf_" %SGTTRF) :VOID (N FORTRAN-INT) (DL CFFI-FNV-FLOAT)
              (D CFFI-FNV-FLOAT) (DU CFFI-FNV-FLOAT) (DU2 CFFI-FNV-FLOAT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SGTTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgttrs_" %SGTTRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-FLOAT) (D CFFI-FNV-FLOAT)
              (DU CFFI-FNV-FLOAT) (DU2 CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SGTTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sgtts2_" %SGTTS2) :VOID (ITRANS FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-FLOAT) (D CFFI-FNV-FLOAT)
              (DU CFFI-FNV-FLOAT) (DU2 CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT))
(EXPORT '%SGTTS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("shgeqz_" %SHGEQZ) :VOID (JOB :STRING) (COMPQ :STRING)
              (COMPZ :STRING) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (ALPHAR CFFI-FNV-FLOAT)
              (ALPHAI CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SHGEQZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("shsein_" %SHSEIN) :VOID (SIDE :STRING) (EIGSRC :STRING)
              (INITV :STRING) (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (H CFFI-FNV-FLOAT) (LDH FORTRAN-INT) (WR CFFI-FNV-FLOAT)
              (WI CFFI-FNV-FLOAT) (VL CFFI-FNV-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-FLOAT) (LDVR FORTRAN-INT) (MM FORTRAN-INT)
              (M FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (IFAILL CFFI-FNV-INT32)
              (IFAILR CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SHSEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("shseqr_" %SHSEQR) :VOID (JOB :STRING) (COMPZ :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (H CFFI-FNV-FLOAT) (LDH FORTRAN-INT) (WR CFFI-FNV-FLOAT)
              (WI CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SHSEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("slabad_" %SLABAD) :VOID (SMALL FORTRAN-FLOAT)
              (LARGE FORTRAN-FLOAT))
(EXPORT '%SLABAD :LAPACK-CFFI)

(CFFI:DEFCFUN ("slabrd_" %SLABRD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (TAUQ CFFI-FNV-FLOAT)
              (TAUP CFFI-FNV-FLOAT) (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT)
              (Y CFFI-FNV-FLOAT) (LDY FORTRAN-INT))
(EXPORT '%SLABRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("slacon_" %SLACON) :VOID (N FORTRAN-INT) (V CFFI-FNV-FLOAT)
              (X CFFI-FNV-FLOAT) (ISGN CFFI-FNV-INT32) (EST FORTRAN-FLOAT)
              (KASE FORTRAN-INT))
(EXPORT '%SLACON :LAPACK-CFFI)

(CFFI:DEFCFUN ("slacpy_" %SLACPY) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT))
(EXPORT '%SLACPY :LAPACK-CFFI)

(CFFI:DEFCFUN ("sladiv_" %SLADIV) :VOID (A FORTRAN-FLOAT) (B FORTRAN-FLOAT)
              (C FORTRAN-FLOAT) (D FORTRAN-FLOAT) (P FORTRAN-FLOAT)
              (Q FORTRAN-FLOAT))
(EXPORT '%SLADIV :LAPACK-CFFI)

(CFFI:DEFCFUN ("slae2_" %SLAE2) :VOID (A FORTRAN-FLOAT) (B FORTRAN-FLOAT)
              (C FORTRAN-FLOAT) (RT1 FORTRAN-FLOAT) (RT2 FORTRAN-FLOAT))
(EXPORT '%SLAE2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaebz_" %SLAEBZ) :VOID (IJOB FORTRAN-INT)
              (NITMAX FORTRAN-INT) (N FORTRAN-INT) (MMAX FORTRAN-INT)
              (MINP FORTRAN-INT) (NBMIN FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (RELTOL FORTRAN-FLOAT) (PIVMIN FORTRAN-FLOAT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (E2 CFFI-FNV-FLOAT)
              (NVAL CFFI-FNV-INT32) (AB CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (MOUT FORTRAN-INT) (NAB CFFI-FNV-INT32) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SLAEBZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed0_" %SLAED0) :VOID (ICOMPQ FORTRAN-INT)
              (QSIZ FORTRAN-INT) (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT)
              (QSTORE CFFI-FNV-FLOAT) (LDQS FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SLAED0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed1_" %SLAED1) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (INDXQ CFFI-FNV-INT32)
              (RHO FORTRAN-FLOAT) (CUTPNT FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SLAED1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed2_" %SLAED2) :VOID (K FORTRAN-INT) (N FORTRAN-INT)
              (N1 FORTRAN-INT) (D CFFI-FNV-FLOAT) (Q CFFI-FNV-FLOAT)
              (LDQ FORTRAN-INT) (INDXQ CFFI-FNV-INT32) (RHO FORTRAN-FLOAT)
              (Z CFFI-FNV-FLOAT) (DLAMDA CFFI-FNV-FLOAT) (W CFFI-FNV-FLOAT)
              (Q2 CFFI-FNV-FLOAT) (INDX CFFI-FNV-INT32)
              (INDXC CFFI-FNV-INT32) (INDXP CFFI-FNV-INT32)
              (COLTYP CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SLAED2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed3_" %SLAED3) :VOID (K FORTRAN-INT) (N FORTRAN-INT)
              (N1 FORTRAN-INT) (D CFFI-FNV-FLOAT) (Q CFFI-FNV-FLOAT)
              (LDQ FORTRAN-INT) (RHO FORTRAN-FLOAT) (DLAMDA CFFI-FNV-FLOAT)
              (Q2 CFFI-FNV-FLOAT) (INDX CFFI-FNV-INT32)
              (CTOT CFFI-FNV-INT32) (W CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLAED3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed4_" %SLAED4) :VOID (N FORTRAN-INT) (I FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (DELTA CFFI-FNV-FLOAT)
              (RHO FORTRAN-FLOAT) (DLAM FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLAED4 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed5_" %SLAED5) :VOID (I FORTRAN-INT) (D FORTRAN-FLOAT)
              (Z FORTRAN-FLOAT) (DELTA FORTRAN-FLOAT) (RHO FORTRAN-FLOAT)
              (DLAM FORTRAN-FLOAT))
(EXPORT '%SLAED5 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed6_" %SLAED6) :VOID (KNITER FORTRAN-INT)
              (ORGATI FORTRAN-LOGICAL) (RHO FORTRAN-FLOAT) (D FORTRAN-FLOAT)
              (Z FORTRAN-FLOAT) (FINIT FORTRAN-FLOAT) (TAU FORTRAN-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLAED6 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed7_" %SLAED7) :VOID (ICOMPQ FORTRAN-INT) (N FORTRAN-INT)
              (QSIZ FORTRAN-INT) (TLVLS FORTRAN-INT) (CURLVL FORTRAN-INT)
              (CURPBM FORTRAN-INT) (D CFFI-FNV-FLOAT) (Q CFFI-FNV-FLOAT)
              (LDQ FORTRAN-INT) (INDXQ CFFI-FNV-INT32) (RHO FORTRAN-FLOAT)
              (CUTPNT FORTRAN-INT) (QSTORE CFFI-FNV-FLOAT)
              (QPTR CFFI-FNV-INT32) (PRMPTR CFFI-FNV-INT32)
              (PERM CFFI-FNV-INT32) (GIVPTR CFFI-FNV-INT32)
              (GIVCOL CFFI-FNV-INT32) (GIVNUM CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SLAED7 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed8_" %SLAED8) :VOID (ICOMPQ FORTRAN-INT) (K FORTRAN-INT)
              (N FORTRAN-INT) (QSIZ FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (INDXQ CFFI-FNV-INT32)
              (RHO FORTRAN-FLOAT) (CUTPNT FORTRAN-INT) (Z CFFI-FNV-FLOAT)
              (DLAMDA CFFI-FNV-FLOAT) (Q2 CFFI-FNV-FLOAT) (LDQ2 FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (PERM CFFI-FNV-INT32) (GIVPTR FORTRAN-INT)
              (GIVCOL CFFI-FNV-INT32) (GIVNUM CFFI-FNV-FLOAT)
              (INDXP CFFI-FNV-INT32) (INDX CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SLAED8 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaed9_" %SLAED9) :VOID (K FORTRAN-INT) (KSTART FORTRAN-INT)
              (KSTOP FORTRAN-INT) (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (RHO FORTRAN-FLOAT)
              (DLAMDA CFFI-FNV-FLOAT) (W CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT)
              (LDS FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SLAED9 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaeda_" %SLAEDA) :VOID (N FORTRAN-INT) (TLVLS FORTRAN-INT)
              (CURLVL FORTRAN-INT) (CURPBM FORTRAN-INT)
              (PRMPTR CFFI-FNV-INT32) (PERM CFFI-FNV-INT32)
              (GIVPTR CFFI-FNV-INT32) (GIVCOL CFFI-FNV-INT32)
              (GIVNUM CFFI-FNV-FLOAT) (Q CFFI-FNV-FLOAT)
              (QPTR CFFI-FNV-INT32) (Z CFFI-FNV-FLOAT)
              (ZTEMP CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLAEDA :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaein_" %SLAEIN) :VOID (RIGHTV FORTRAN-LOGICAL)
              (NOINIT FORTRAN-LOGICAL) (N FORTRAN-INT) (H CFFI-FNV-FLOAT)
              (LDH FORTRAN-INT) (WR FORTRAN-FLOAT) (WI FORTRAN-FLOAT)
              (VR CFFI-FNV-FLOAT) (VI CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (EPS3 FORTRAN-FLOAT)
              (SMLNUM FORTRAN-FLOAT) (BIGNUM FORTRAN-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLAEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaev2_" %SLAEV2) :VOID (A FORTRAN-FLOAT) (B FORTRAN-FLOAT)
              (C FORTRAN-FLOAT) (RT1 FORTRAN-FLOAT) (RT2 FORTRAN-FLOAT)
              (CS1 FORTRAN-FLOAT) (SN1 FORTRAN-FLOAT))
(EXPORT '%SLAEV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaexc_" %SLAEXC) :VOID (WANTQ FORTRAN-LOGICAL)
              (N FORTRAN-INT) (TT CFFI-FNV-FLOAT) (LDT FORTRAN-INT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (J1 FORTRAN-INT)
              (N1 FORTRAN-INT) (N2 FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLAEXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("slag2_" %SLAG2) :VOID (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (SAFMIN FORTRAN-FLOAT)
              (SCALE1 FORTRAN-FLOAT) (SCALE2 FORTRAN-FLOAT)
              (WR1 FORTRAN-FLOAT) (WR2 FORTRAN-FLOAT) (WI FORTRAN-FLOAT))
(EXPORT '%SLAG2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slags2_" %SLAGS2) :VOID (UPPER FORTRAN-LOGICAL)
              (A1 FORTRAN-FLOAT) (A2 FORTRAN-FLOAT) (A3 FORTRAN-FLOAT)
              (B1 FORTRAN-FLOAT) (B2 FORTRAN-FLOAT) (B3 FORTRAN-FLOAT)
              (CSU FORTRAN-FLOAT) (SNU FORTRAN-FLOAT) (CSV FORTRAN-FLOAT)
              (SNV FORTRAN-FLOAT) (CSQ FORTRAN-FLOAT) (SNQ FORTRAN-FLOAT))
(EXPORT '%SLAGS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slagtf_" %SLAGTF) :VOID (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LAMBDA FORTRAN-FLOAT) (B CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (TOL FORTRAN-FLOAT) (D CFFI-FNV-FLOAT) (IN CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SLAGTF :LAPACK-CFFI)

(CFFI:DEFCFUN ("slagtm_" %SLAGTM) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (ALPHA FORTRAN-FLOAT) (DL CFFI-FNV-FLOAT)
              (D CFFI-FNV-FLOAT) (DU CFFI-FNV-FLOAT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (BETA FORTRAN-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT))
(EXPORT '%SLAGTM :LAPACK-CFFI)

(CFFI:DEFCFUN ("slagts_" %SLAGTS) :VOID (JOB FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (D CFFI-FNV-FLOAT) (IN CFFI-FNV-INT32) (Y CFFI-FNV-FLOAT)
              (TOL FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLAGTS :LAPACK-CFFI)

(CFFI:DEFCFUN ("slagv2_" %SLAGV2) :VOID (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (ALPHAR FORTRAN-FLOAT)
              (ALPHAI FORTRAN-FLOAT) (BETA FORTRAN-FLOAT)
              (CSL FORTRAN-FLOAT) (SNL FORTRAN-FLOAT) (CSR FORTRAN-FLOAT)
              (SNR FORTRAN-FLOAT))
(EXPORT '%SLAGV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slahqr_" %SLAHQR) :VOID (WANTT FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (H CFFI-FNV-FLOAT) (LDH FORTRAN-INT)
              (WR CFFI-FNV-FLOAT) (WI CFFI-FNV-FLOAT) (ILOZ FORTRAN-INT)
              (IHIZ FORTRAN-INT) (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SLAHQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("slahrd_" %SLAHRD) :VOID (N FORTRAN-INT) (K FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU FORTRAN-FLOAT) (TT FORTRAN-FLOAT) (LDT FORTRAN-INT)
              (Y FORTRAN-FLOAT) (LDY FORTRAN-INT))
(EXPORT '%SLAHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaic1_" %SLAIC1) :VOID (JOB FORTRAN-INT) (J FORTRAN-INT)
              (X FORTRAN-FLOAT) (SEST FORTRAN-FLOAT) (W FORTRAN-FLOAT)
              (GAMMA FORTRAN-FLOAT) (SESTPR FORTRAN-FLOAT) (S FORTRAN-FLOAT)
              (C FORTRAN-FLOAT))
(EXPORT '%SLAIC1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaln2_" %SLALN2) :VOID (LTRANS FORTRAN-LOGICAL)
              (NA FORTRAN-INT) (NW FORTRAN-INT) (SMIN FORTRAN-FLOAT)
              (CA FORTRAN-FLOAT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (D1 FORTRAN-FLOAT) (D2 FORTRAN-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (WR FORTRAN-FLOAT) (WI FORTRAN-FLOAT)
              (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT) (SCALE FORTRAN-FLOAT)
              (XNORM FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLALN2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slals0_" %SLALS0) :VOID (ICOMPQ FORTRAN-INT) (NL FORTRAN-INT)
              (NR FORTRAN-INT) (SQRE FORTRAN-INT) (NRHS FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (BX CFFI-FNV-FLOAT)
              (LDBX FORTRAN-INT) (PERM CFFI-FNV-INT32) (GIVPTR FORTRAN-INT)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (GIVNUM CFFI-FNV-FLOAT) (LDGNUM FORTRAN-INT)
              (POLES CFFI-FNV-FLOAT) (DIFL CFFI-FNV-FLOAT)
              (DIFR CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (K FORTRAN-INT)
              (C FORTRAN-FLOAT) (S FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLALS0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slalsa_" %SLALSA) :VOID (ICOMPQ FORTRAN-INT)
              (SMLSIZ FORTRAN-INT) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (BX CFFI-FNV-FLOAT)
              (LDBX FORTRAN-INT) (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT)
              (VT CFFI-FNV-FLOAT) (K CFFI-FNV-INT32) (DIFL CFFI-FNV-FLOAT)
              (DIFR CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (POLES CFFI-FNV-FLOAT) (GIVPTR CFFI-FNV-INT32)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (PERM CFFI-FNV-INT32) (GIVNUM CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SLALSA :LAPACK-CFFI)

(CFFI:DEFCFUN ("slalsd_" %SLALSD) :VOID (UPLO :STRING) (SMLSIZ FORTRAN-INT)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (RANK FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SLALSD :LAPACK-CFFI)

(CFFI:DEFCFUN ("slamch_" %SLAMCH) :FLOAT (CMACH :STRING))
(EXPORT '%SLAMCH :LAPACK-CFFI)

(CFFI:DEFCFUN ("slamrg_" %SLAMRG) :VOID (N1 FORTRAN-INT) (N2 FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (STRD1 FORTRAN-INT) (STRD2 FORTRAN-INT)
              (INDEX CFFI-FNV-INT32))
(EXPORT '%SLAMRG :LAPACK-CFFI)

(CFFI:DEFCFUN ("slangb_" %SLANGB) :FLOAT (NORM :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLANGB :LAPACK-CFFI)

(CFFI:DEFCFUN ("slange_" %SLANGE) :FLOAT (NORM :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLANGE :LAPACK-CFFI)

(CFFI:DEFCFUN ("slangt_" %SLANGT) :FLOAT (NORM :STRING) (N FORTRAN-INT)
              (DL CFFI-FNV-FLOAT) (D CFFI-FNV-FLOAT) (DU CFFI-FNV-FLOAT))
(EXPORT '%SLANGT :LAPACK-CFFI)

(CFFI:DEFCFUN ("slanhs_" %SLANHS) :FLOAT (NORM :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLANHS :LAPACK-CFFI)

(CFFI:DEFCFUN ("slansb_" %SLANSB) :FLOAT (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLANSB :LAPACK-CFFI)

(CFFI:DEFCFUN ("slansp_" %SLANSP) :FLOAT (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLANSP :LAPACK-CFFI)

(CFFI:DEFCFUN ("slanst_" %SLANST) :FLOAT (NORM :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT))
(EXPORT '%SLANST :LAPACK-CFFI)

(CFFI:DEFCFUN ("slansy_" %SLANSY) :FLOAT (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLANSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("slantb_" %SLANTB) :FLOAT (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (K FORTRAN-INT)
              (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLANTB :LAPACK-CFFI)

(CFFI:DEFCFUN ("slantp_" %SLANTP) :FLOAT (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (AP CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLANTP :LAPACK-CFFI)

(CFFI:DEFCFUN ("slantr_" %SLANTR) :FLOAT (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLANTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("slanv2_" %SLANV2) :VOID (A FORTRAN-FLOAT) (B FORTRAN-FLOAT)
              (C FORTRAN-FLOAT) (D FORTRAN-FLOAT) (RT1R FORTRAN-FLOAT)
              (RT1I FORTRAN-FLOAT) (RT2R FORTRAN-FLOAT) (RT2I FORTRAN-FLOAT)
              (CS FORTRAN-FLOAT) (SN FORTRAN-FLOAT))
(EXPORT '%SLANV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slapll_" %SLAPLL) :VOID (N FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (INCX FORTRAN-INT) (Y CFFI-FNV-FLOAT) (INCY FORTRAN-INT)
              (SSMIN FORTRAN-FLOAT))
(EXPORT '%SLAPLL :LAPACK-CFFI)

(CFFI:DEFCFUN ("slapmt_" %SLAPMT) :VOID (FORWRD FORTRAN-LOGICAL)
              (M FORTRAN-INT) (N FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (K CFFI-FNV-INT32))
(EXPORT '%SLAPMT :LAPACK-CFFI)

(CFFI:DEFCFUN ("slapy2_" %SLAPY2) :FLOAT (X FORTRAN-FLOAT) (Y FORTRAN-FLOAT))
(EXPORT '%SLAPY2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slapy3_" %SLAPY3) :FLOAT (X FORTRAN-FLOAT) (Y FORTRAN-FLOAT)
              (Z FORTRAN-FLOAT))
(EXPORT '%SLAPY3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaqgb_" %SLAQGB) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (R CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (ROWCND FORTRAN-FLOAT) (COLCND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%SLAQGB :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaqge_" %SLAQGE) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (R CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (ROWCND FORTRAN-FLOAT)
              (COLCND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%SLAQGE :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaqp2_" %SLAQP2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (OFFSET FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (TAU CFFI-FNV-FLOAT)
              (VN1 CFFI-FNV-FLOAT) (VN2 CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLAQP2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaqps_" %SLAQPS) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (OFFSET FORTRAN-INT) (NB FORTRAN-INT) (KB FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (TAU CFFI-FNV-FLOAT) (VN1 CFFI-FNV-FLOAT) (VN2 CFFI-FNV-FLOAT)
              (AUXV CFFI-FNV-FLOAT) (F CFFI-FNV-FLOAT) (LDF FORTRAN-INT))
(EXPORT '%SLAQPS :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaqsb_" %SLAQSB) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT)
              (EQUED :STRING))
(EXPORT '%SLAQSB :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaqsp_" %SLAQSP) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%SLAQSP :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaqsy_" %SLAQSY) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (S CFFI-FNV-FLOAT)
              (SCOND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT) (EQUED :STRING))
(EXPORT '%SLAQSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaqtr_" %SLAQTR) :VOID (LTRAN FORTRAN-LOGICAL)
              (LREAL FORTRAN-LOGICAL) (N FORTRAN-INT) (TT CFFI-FNV-FLOAT)
              (LDT FORTRAN-INT) (B CFFI-FNV-FLOAT) (W FORTRAN-FLOAT)
              (SCALE FORTRAN-FLOAT) (X CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLAQTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("slar1v_" %SLAR1V) :VOID (N FORTRAN-INT) (B1 FORTRAN-INT)
              (BN FORTRAN-INT) (SIGMA FORTRAN-FLOAT) (D CFFI-FNV-FLOAT)
              (L CFFI-FNV-FLOAT) (LD CFFI-FNV-FLOAT) (LLD CFFI-FNV-FLOAT)
              (GERSCH CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (ZTZ FORTRAN-FLOAT)
              (MINGMA FORTRAN-FLOAT) (R FORTRAN-INT) (ISUPPZ CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLAR1V :LAPACK-CFFI)

(CFFI:DEFCFUN ("slar2v_" %SLAR2V) :VOID (N FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (Y CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (INCX FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT) (INCC FORTRAN-INT))
(EXPORT '%SLAR2V :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarf_" %SLARF) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-FLOAT) (INCV FORTRAN-INT)
              (TAU FORTRAN-FLOAT) (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLARF :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarfb_" %SLARFB) :VOID (SIDE :STRING) (TRANS :STRING)
              (DIRECT :STRING) (STOREV :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-FLOAT)
              (LDV FORTRAN-INT) (TT CFFI-FNV-FLOAT) (LDT FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LDWORK FORTRAN-INT))
(EXPORT '%SLARFB :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarfg_" %SLARFG) :VOID (N FORTRAN-INT) (ALPHA FORTRAN-FLOAT)
              (X CFFI-FNV-FLOAT) (INCX FORTRAN-INT) (TAU FORTRAN-FLOAT))
(EXPORT '%SLARFG :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarft_" %SLARFT) :VOID (DIRECT :STRING) (STOREV :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-FLOAT)
              (LDV FORTRAN-INT) (TAU CFFI-FNV-FLOAT) (TT CFFI-FNV-FLOAT)
              (LDT FORTRAN-INT))
(EXPORT '%SLARFT :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarfx_" %SLARFX) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-FLOAT) (TAU FORTRAN-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLARFX :LAPACK-CFFI)

(CFFI:DEFCFUN ("slargv_" %SLARGV) :VOID (N FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (INCX FORTRAN-INT) (Y CFFI-FNV-FLOAT) (INCY FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (INCC FORTRAN-INT))
(EXPORT '%SLARGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarnv_" %SLARNV) :VOID (IDIST FORTRAN-INT)
              (ISEED FORTRAN-INT) (N FORTRAN-INT) (X CFFI-FNV-FLOAT))
(EXPORT '%SLARNV :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarrb_" %SLARRB) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (L CFFI-FNV-FLOAT) (LD CFFI-FNV-FLOAT) (LLD CFFI-FNV-FLOAT)
              (IFIRST FORTRAN-INT) (ILAST FORTRAN-INT) (SIGMA FORTRAN-FLOAT)
              (RELTOL FORTRAN-FLOAT) (W CFFI-FNV-FLOAT)
              (WGAP CFFI-FNV-FLOAT) (WERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SLARRB :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarre_" %SLARRE) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (TOL FORTRAN-FLOAT) (NSPLIT FORTRAN-INT)
              (ISPLIT CFFI-FNV-INT32) (M FORTRAN-INT) (W CFFI-FNV-FLOAT)
              (WOFF CFFI-FNV-FLOAT) (GERSCH CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLARRE :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarrf_" %SLARRF) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (L CFFI-FNV-FLOAT) (LD CFFI-FNV-FLOAT) (LLD CFFI-FNV-FLOAT)
              (IFIRST FORTRAN-INT) (ILAST FORTRAN-INT) (W CFFI-FNV-FLOAT)
              (DPLUS CFFI-FNV-FLOAT) (LPLUS CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SLARRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarrv_" %SLARRV) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (L CFFI-FNV-FLOAT) (ISPLIT CFFI-FNV-INT32) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (IBLOCK CFFI-FNV-INT32)
              (GERSCH CFFI-FNV-FLOAT) (TOL FORTRAN-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (ISUPPZ CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SLARRV :LAPACK-CFFI)

(CFFI:DEFCFUN ("slartg_" %SLARTG) :VOID (F FORTRAN-FLOAT) (G FORTRAN-FLOAT)
              (CS FORTRAN-FLOAT) (SN FORTRAN-FLOAT) (R FORTRAN-FLOAT))
(EXPORT '%SLARTG :LAPACK-CFFI)

(CFFI:DEFCFUN ("slartv_" %SLARTV) :VOID (N FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (INCX FORTRAN-INT) (Y CFFI-FNV-FLOAT) (INCY FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT) (INCC FORTRAN-INT))
(EXPORT '%SLARTV :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaruv_" %SLARUV) :VOID (ISEED FORTRAN-INT) (N FORTRAN-INT)
              (X FORTRAN-FLOAT))
(EXPORT '%SLARUV :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarz_" %SLARZ) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (L FORTRAN-INT) (V CFFI-FNV-FLOAT)
              (INCV FORTRAN-INT) (TAU FORTRAN-FLOAT) (C CFFI-FNV-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLARZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarzb_" %SLARZB) :VOID (SIDE :STRING) (TRANS :STRING)
              (DIRECT :STRING) (STOREV :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (L FORTRAN-INT)
              (V CFFI-FNV-FLOAT) (LDV FORTRAN-INT) (TT CFFI-FNV-FLOAT)
              (LDT FORTRAN-INT) (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LDWORK FORTRAN-INT))
(EXPORT '%SLARZB :LAPACK-CFFI)

(CFFI:DEFCFUN ("slarzt_" %SLARZT) :VOID (DIRECT :STRING) (STOREV :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-FLOAT)
              (LDV FORTRAN-INT) (TAU CFFI-FNV-FLOAT) (TT CFFI-FNV-FLOAT)
              (LDT FORTRAN-INT))
(EXPORT '%SLARZT :LAPACK-CFFI)

(CFFI:DEFCFUN ("slas2_" %SLAS2) :VOID (F FORTRAN-FLOAT) (G FORTRAN-FLOAT)
              (H FORTRAN-FLOAT) (SSMIN FORTRAN-FLOAT) (SSMAX FORTRAN-FLOAT))
(EXPORT '%SLAS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slascl_" %SLASCL) :VOID (TYPE :STRING) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (CFROM FORTRAN-FLOAT) (CTO FORTRAN-FLOAT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SLASCL :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd0_" %SLASD0) :VOID (N FORTRAN-INT) (SQRE FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (U CFFI-FNV-FLOAT)
              (LDU FORTRAN-INT) (VT CFFI-FNV-FLOAT) (LDVT FORTRAN-INT)
              (SMLSIZ FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLASD0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd1_" %SLASD1) :VOID (NL FORTRAN-INT) (NR FORTRAN-INT)
              (SQRE FORTRAN-INT) (D CFFI-FNV-FLOAT) (ALPHA FORTRAN-FLOAT)
              (BETA FORTRAN-FLOAT) (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT)
              (VT CFFI-FNV-FLOAT) (LDVT FORTRAN-INT) (IDXQ CFFI-FNV-INT32)
              (IWORK CFFI-FNV-INT32) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLASD1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd2_" %SLASD2) :VOID (NL FORTRAN-INT) (NR FORTRAN-INT)
              (SQRE FORTRAN-INT) (K FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (Z CFFI-FNV-FLOAT) (ALPHA FORTRAN-FLOAT) (BETA FORTRAN-FLOAT)
              (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT) (VT CFFI-FNV-FLOAT)
              (LDVT FORTRAN-INT) (DSIGMA CFFI-FNV-FLOAT) (U2 CFFI-FNV-FLOAT)
              (LDU2 FORTRAN-INT) (VT2 CFFI-FNV-FLOAT) (LDVT2 FORTRAN-INT)
              (IDXP CFFI-FNV-INT32) (IDX CFFI-FNV-INT32)
              (IDXC CFFI-FNV-INT32) (IDXQ CFFI-FNV-INT32)
              (COLTYP CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SLASD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd3_" %SLASD3) :VOID (NL FORTRAN-INT) (NR FORTRAN-INT)
              (SQRE FORTRAN-INT) (K FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (DSIGMA CFFI-FNV-FLOAT)
              (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT) (U2 CFFI-FNV-FLOAT)
              (LDU2 FORTRAN-INT) (VT CFFI-FNV-FLOAT) (LDVT FORTRAN-INT)
              (VT2 CFFI-FNV-FLOAT) (LDVT2 FORTRAN-INT) (IDXC CFFI-FNV-INT32)
              (CTOT CFFI-FNV-INT32) (Z CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLASD3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd4_" %SLASD4) :VOID (N FORTRAN-INT) (I FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (DELTA CFFI-FNV-FLOAT)
              (RHO FORTRAN-FLOAT) (SIGMA FORTRAN-FLOAT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLASD4 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd5_" %SLASD5) :VOID (I FORTRAN-INT) (D FORTRAN-FLOAT)
              (Z FORTRAN-FLOAT) (DELTA FORTRAN-FLOAT) (RHO FORTRAN-FLOAT)
              (DSIGMA FORTRAN-FLOAT) (WORK FORTRAN-FLOAT))
(EXPORT '%SLASD5 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd6_" %SLASD6) :VOID (ICOMPQ FORTRAN-INT) (NL FORTRAN-INT)
              (NR FORTRAN-INT) (SQRE FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (VF CFFI-FNV-FLOAT) (VL CFFI-FNV-FLOAT) (ALPHA FORTRAN-FLOAT)
              (BETA FORTRAN-FLOAT) (IDXQ CFFI-FNV-INT32)
              (PERM CFFI-FNV-INT32) (GIVPTR FORTRAN-INT)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (GIVNUM CFFI-FNV-FLOAT) (LDGNUM FORTRAN-INT)
              (POLES CFFI-FNV-FLOAT) (DIFL CFFI-FNV-FLOAT)
              (DIFR CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (K FORTRAN-INT)
              (C FORTRAN-FLOAT) (S FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SLASD6 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd7_" %SLASD7) :VOID (ICOMPQ FORTRAN-INT) (NL FORTRAN-INT)
              (NR FORTRAN-INT) (SQRE FORTRAN-INT) (K FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (ZW CFFI-FNV-FLOAT)
              (VF CFFI-FNV-FLOAT) (VFW CFFI-FNV-FLOAT) (VL CFFI-FNV-FLOAT)
              (VLW CFFI-FNV-FLOAT) (ALPHA FORTRAN-FLOAT)
              (BETA FORTRAN-FLOAT) (DSIGMA CFFI-FNV-FLOAT)
              (IDX CFFI-FNV-INT32) (IDXP CFFI-FNV-INT32)
              (IDXQ CFFI-FNV-INT32) (PERM CFFI-FNV-INT32)
              (GIVPTR FORTRAN-INT) (GIVCOL CFFI-FNV-INT32)
              (LDGCOL FORTRAN-INT) (GIVNUM CFFI-FNV-FLOAT)
              (LDGNUM FORTRAN-INT) (C FORTRAN-FLOAT) (S FORTRAN-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLASD7 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd8_" %SLASD8) :VOID (ICOMPQ FORTRAN-INT) (K FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (VF CFFI-FNV-FLOAT)
              (VL CFFI-FNV-FLOAT) (DIFL CFFI-FNV-FLOAT)
              (DIFR CFFI-FNV-FLOAT) (LDDIFR FORTRAN-INT)
              (DSIGMA CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLASD8 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasd9_" %SLASD9) :VOID (ICOMPQ FORTRAN-INT)
              (LDU FORTRAN-INT) (K FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (Z CFFI-FNV-FLOAT) (VF CFFI-FNV-FLOAT) (VL CFFI-FNV-FLOAT)
              (DIFL CFFI-FNV-FLOAT) (DIFR CFFI-FNV-FLOAT)
              (DSIGMA CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLASD9 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasda_" %SLASDA) :VOID (ICOMPQ FORTRAN-INT)
              (SMLSIZ FORTRAN-INT) (N FORTRAN-INT) (SQRE FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (U CFFI-FNV-FLOAT)
              (LDU FORTRAN-INT) (VT CFFI-FNV-FLOAT) (K CFFI-FNV-INT32)
              (DIFL CFFI-FNV-FLOAT) (DIFR CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (POLES CFFI-FNV-FLOAT) (GIVPTR CFFI-FNV-INT32)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (PERM CFFI-FNV-INT32) (GIVNUM CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SLASDA :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasdq_" %SLASDQ) :VOID (UPLO :STRING) (SQRE FORTRAN-INT)
              (N FORTRAN-INT) (NCVT FORTRAN-INT) (NRU FORTRAN-INT)
              (NCC FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (VT CFFI-FNV-FLOAT) (LDVT FORTRAN-INT) (U CFFI-FNV-FLOAT)
              (LDU FORTRAN-INT) (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLASDQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasdt_" %SLASDT) :VOID (N FORTRAN-INT) (LVL FORTRAN-INT)
              (ND FORTRAN-INT) (INODE CFFI-FNV-INT32) (NDIML CFFI-FNV-INT32)
              (NDIMR CFFI-FNV-INT32) (MSUB FORTRAN-INT))
(EXPORT '%SLASDT :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaset_" %SLASET) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (ALPHA FORTRAN-FLOAT) (BETA FORTRAN-FLOAT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT))
(EXPORT '%SLASET :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasq1_" %SLASQ1) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLASQ1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasq2_" %SLASQ2) :VOID (N FORTRAN-INT) (Z CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLASQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasq3_" %SLASQ3) :VOID (I0 FORTRAN-INT) (N0 FORTRAN-INT)
              (Z CFFI-FNV-FLOAT) (PP FORTRAN-INT) (DMIN FORTRAN-FLOAT)
              (SIGMA FORTRAN-FLOAT) (DESIG FORTRAN-FLOAT)
              (QMAX FORTRAN-FLOAT) (NFAIL FORTRAN-INT) (ITER FORTRAN-INT)
              (NDIV FORTRAN-INT) (IEEE FORTRAN-LOGICAL))
(EXPORT '%SLASQ3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasq4_" %SLASQ4) :VOID (I0 FORTRAN-INT) (N0 FORTRAN-INT)
              (Z CFFI-FNV-FLOAT) (PP FORTRAN-INT) (N0IN FORTRAN-INT)
              (DMIN FORTRAN-FLOAT) (DMIN1 FORTRAN-FLOAT)
              (DMIN2 FORTRAN-FLOAT) (DN FORTRAN-FLOAT) (DN1 FORTRAN-FLOAT)
              (DN2 FORTRAN-FLOAT) (TAU FORTRAN-FLOAT) (TTYPE FORTRAN-INT))
(EXPORT '%SLASQ4 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasq5_" %SLASQ5) :VOID (I0 FORTRAN-INT) (N0 FORTRAN-INT)
              (Z CFFI-FNV-FLOAT) (PP FORTRAN-INT) (TAU FORTRAN-FLOAT)
              (DMIN FORTRAN-FLOAT) (DMIN1 FORTRAN-FLOAT)
              (DMIN2 FORTRAN-FLOAT) (DN FORTRAN-FLOAT) (DNM1 FORTRAN-FLOAT)
              (DNM2 FORTRAN-FLOAT) (IEEE FORTRAN-LOGICAL))
(EXPORT '%SLASQ5 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasq6_" %SLASQ6) :VOID (I0 FORTRAN-INT) (N0 FORTRAN-INT)
              (Z CFFI-FNV-FLOAT) (PP FORTRAN-INT) (DMIN FORTRAN-FLOAT)
              (DMIN1 FORTRAN-FLOAT) (DMIN2 FORTRAN-FLOAT) (DN FORTRAN-FLOAT)
              (DNM1 FORTRAN-FLOAT) (DNM2 FORTRAN-FLOAT))
(EXPORT '%SLASQ6 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasr_" %SLASR) :VOID (SIDE :STRING) (PIVOT :STRING)
              (DIRECT :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT))
(EXPORT '%SLASR :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasrt_" %SLASRT) :VOID (ID :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLASRT :LAPACK-CFFI)

(CFFI:DEFCFUN ("slassq_" %SLASSQ) :VOID (N FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (INCX FORTRAN-INT) (SCALE FORTRAN-FLOAT) (SUMSQ FORTRAN-FLOAT))
(EXPORT '%SLASSQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasv2_" %SLASV2) :VOID (F FORTRAN-FLOAT) (G FORTRAN-FLOAT)
              (H FORTRAN-FLOAT) (SSMIN FORTRAN-FLOAT) (SSMAX FORTRAN-FLOAT)
              (SNR FORTRAN-FLOAT) (CSR FORTRAN-FLOAT) (SNL FORTRAN-FLOAT)
              (CSL FORTRAN-FLOAT))
(EXPORT '%SLASV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slaswp_" %SLASWP) :VOID (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (K1 FORTRAN-INT) (K2 FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INCX FORTRAN-INT))
(EXPORT '%SLASWP :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasy2_" %SLASY2) :VOID (LTRANL FORTRAN-LOGICAL)
              (LTRANR FORTRAN-LOGICAL) (ISGN FORTRAN-INT) (N1 FORTRAN-INT)
              (N2 FORTRAN-INT) (TL CFFI-FNV-FLOAT) (LDTL FORTRAN-INT)
              (TR CFFI-FNV-FLOAT) (LDTR FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (SCALE FORTRAN-FLOAT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (XNORM FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLASY2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slasyf_" %SLASYF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (KB FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32) (W CFFI-FNV-FLOAT)
              (LDW FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SLASYF :LAPACK-CFFI)

(CFFI:DEFCFUN ("slatbs_" %SLATBS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (X CFFI-FNV-FLOAT) (SCALE FORTRAN-FLOAT)
              (CNORM CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLATBS :LAPACK-CFFI)

(CFFI:DEFCFUN ("slatdf_" %SLATDF) :VOID (IJOB FORTRAN-INT) (N FORTRAN-INT)
              (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT) (RHS CFFI-FNV-FLOAT)
              (RDSUM FORTRAN-FLOAT) (RDSCAL FORTRAN-FLOAT)
              (IPIV CFFI-FNV-INT32) (JPIV CFFI-FNV-INT32))
(EXPORT '%SLATDF :LAPACK-CFFI)

(CFFI:DEFCFUN ("slatps_" %SLATPS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (X CFFI-FNV-FLOAT) (SCALE FORTRAN-FLOAT)
              (CNORM CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SLATPS :LAPACK-CFFI)

(CFFI:DEFCFUN ("slatrd_" %SLATRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (E CFFI-FNV-FLOAT) (TAU CFFI-FNV-FLOAT) (W CFFI-FNV-FLOAT)
              (LDW FORTRAN-INT))
(EXPORT '%SLATRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("slatrs_" %SLATRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (SCALE FORTRAN-FLOAT) (CNORM CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SLATRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("slatrz_" %SLATRZ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLATRZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("slatzm_" %SLATZM) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-FLOAT) (INCV FORTRAN-INT)
              (TAU FORTRAN-FLOAT) (C1 CFFI-FNV-FLOAT) (C2 CFFI-FNV-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT))
(EXPORT '%SLATZM :LAPACK-CFFI)

(CFFI:DEFCFUN ("slauu2_" %SLAUU2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SLAUU2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("slauum_" %SLAUUM) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SLAUUM :LAPACK-CFFI)

(CFFI:DEFCFUN ("sopgtr_" %SOPGTR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (TAU CFFI-FNV-FLOAT) (Q CFFI-FNV-FLOAT)
              (LDQ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SOPGTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sopmtr_" %SOPMTR) :VOID (SIDE :STRING) (UPLO :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (TAU CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SOPMTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorg2l_" %SORG2L) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SORG2L :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorg2r_" %SORG2R) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SORG2R :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorgbr_" %SORGBR) :VOID (VECT :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORGBR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorghr_" %SORGHR) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SORGHR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorgl2_" %SORGL2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SORGL2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorglq_" %SORGLQ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SORGLQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorgql_" %SORGQL) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SORGQL :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorgqr_" %SORGQR) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SORGQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorgr2_" %SORGR2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SORGR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorgrq_" %SORGRQ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SORGRQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorgtr_" %SORGTR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORGTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorm2l_" %SORM2L) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SORM2L :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorm2r_" %SORM2R) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SORM2R :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormbr_" %SORMBR) :VOID (VECT :STRING) (SIDE :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORMBR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormhr_" %SORMHR) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORMHR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sorml2_" %SORML2) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SORML2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormlq_" %SORMLQ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORMLQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormql_" %SORMQL) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORMQL :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormqr_" %SORMQR) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORMQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormr2_" %SORMR2) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SORMR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormr3_" %SORMR3) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SORMR3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormrq_" %SORMRQ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORMRQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormrz_" %SORMRZ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-FLOAT) (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORMRZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("sormtr_" %SORMTR) :VOID (SIDE :STRING) (UPLO :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SORMTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("spbcon_" %SPBCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SPBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("spbequ_" %SPBEQU) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT) (AMAX FORTRAN-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SPBEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("spbrfs_" %SPBRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (AFB CFFI-FNV-FLOAT) (LDAFB FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SPBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("spbstf_" %SPBSTF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SPBSTF :LAPACK-CFFI)

(CFFI:DEFCFUN ("spbsv_" %SPBSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SPBSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("spbsvx_" %SPBSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT) (AFB CFFI-FNV-FLOAT)
              (LDAFB FORTRAN-INT) (EQUED :STRING) (S CFFI-FNV-FLOAT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SPBSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("spbtf2_" %SPBTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SPBTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("spbtrf_" %SPBTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SPBTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("spbtrs_" %SPBTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SPBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("spocon_" %SPOCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SPOCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("spoequ_" %SPOEQU) :VOID (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SPOEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("sporfs_" %SPORFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (AF CFFI-FNV-FLOAT) (LDAF FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SPORFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sposv_" %SPOSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SPOSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sposvx_" %SPOSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-FLOAT) (LDAF FORTRAN-INT)
              (EQUED :STRING) (S CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SPOSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("spotf2_" %SPOTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SPOTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("spotrf_" %SPOTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SPOTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("spotri_" %SPOTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SPOTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("spotrs_" %SPOTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SPOTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sppcon_" %SPPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (ANORM FORTRAN-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SPPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("sppequ_" %SPPEQU) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (S CFFI-FNV-FLOAT) (SCOND FORTRAN-FLOAT)
              (AMAX FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SPPEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("spprfs_" %SPPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-FLOAT) (AFP CFFI-FNV-FLOAT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SPPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sppsv_" %SPPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SPPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sppsvx_" %SPPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (AP CFFI-FNV-FLOAT)
              (AFP CFFI-FNV-FLOAT) (EQUED :STRING) (S CFFI-FNV-FLOAT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SPPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("spptrf_" %SPPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SPPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("spptri_" %SPPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SPPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("spptrs_" %SPPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SPPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sptcon_" %SPTCON) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SPTCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("spteqr_" %SPTEQR) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SPTEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sptrfs_" %SPTRFS) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (DF CFFI-FNV-FLOAT)
              (EF CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SPTRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sptsv_" %SPTSV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SPTSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sptsvx_" %SPTSVX) :VOID (FACT :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (DF CFFI-FNV-FLOAT) (EF CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SPTSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("spttrf_" %SPTTRF) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SPTTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("spttrs_" %SPTTRS) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SPTTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sptts2_" %SPTTS2) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT))
(EXPORT '%SPTTS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("srscl_" %SRSCL) :VOID (N FORTRAN-INT) (SA FORTRAN-FLOAT)
              (SX CFFI-FNV-FLOAT) (INCX FORTRAN-INT))
(EXPORT '%SRSCL :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssbev_" %SSBEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSBEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssbevd_" %SSBEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSBEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssbevx_" %SSBEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT) (Q CFFI-FNV-FLOAT)
              (LDQ FORTRAN-INT) (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (M FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SSBEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssbgst_" %SSBGST) :VOID (VECT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT) (BB CFFI-FNV-FLOAT)
              (LDBB FORTRAN-INT) (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSBGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssbgv_" %SSBGV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT) (BB CFFI-FNV-FLOAT)
              (LDBB FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSBGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssbgvd_" %SSBGVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT) (BB CFFI-FNV-FLOAT)
              (LDBB FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSBGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssbgvx_" %SSBGVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (KA FORTRAN-INT)
              (KB FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (BB CFFI-FNV-FLOAT) (LDBB FORTRAN-INT) (Q CFFI-FNV-FLOAT)
              (LDQ FORTRAN-INT) (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (M FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SSBGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssbtrd_" %SSBTRD) :VOID (VECT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-FLOAT)
              (LDAB FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SSBTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspcon_" %SSPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SSPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspev_" %SSPEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-FLOAT) (W CFFI-FNV-FLOAT)
              (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SSPEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspevd_" %SSPEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-FLOAT) (W CFFI-FNV-FLOAT)
              (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSPEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspevx_" %SSPEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-FLOAT)
              (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SSPEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspgst_" %SSPGST) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-FLOAT) (BP CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%SSPGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspgv_" %SSPGV) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-FLOAT)
              (BP CFFI-FNV-FLOAT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSPGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspgvd_" %SSPGVD) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-FLOAT)
              (BP CFFI-FNV-FLOAT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSPGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspgvx_" %SSPGVX) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (RANGE :STRING) (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (BP CFFI-FNV-FLOAT) (VL FORTRAN-FLOAT)
              (VU FORTRAN-FLOAT) (IL FORTRAN-INT) (IU FORTRAN-INT)
              (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT) (W CFFI-FNV-FLOAT)
              (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SSPGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssprfs_" %SSPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-FLOAT) (AFP CFFI-FNV-FLOAT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SSPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspsv_" %SSPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sspsvx_" %SSPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (AP CFFI-FNV-FLOAT)
              (AFP CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT)
              (RCOND FORTRAN-FLOAT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SSPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssptrd_" %SSPTRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (TAU CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSPTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssptrf_" %SSPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SSPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssptri_" %SSPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssptrs_" %SSPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-FLOAT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("sstebz_" %SSTEBZ) :VOID (RANGE :STRING) (ORDER :STRING)
              (N FORTRAN-INT) (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (M FORTRAN-INT)
              (NSPLIT FORTRAN-INT) (W CFFI-FNV-FLOAT)
              (IBLOCK CFFI-FNV-INT32) (ISPLIT CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SSTEBZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("sstedc_" %SSTEDC) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSTEDC :LAPACK-CFFI)

(CFFI:DEFCFUN ("sstegr_" %SSTEGR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSTEGR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sstein_" %SSTEIN) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (M FORTRAN-INT) (W CFFI-FNV-FLOAT)
              (IBLOCK CFFI-FNV-INT32) (ISPLIT CFFI-FNV-INT32)
              (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SSTEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssteqr_" %SSTEQR) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSTEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssterf_" %SSTERF) :VOID (N FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSTERF :LAPACK-CFFI)

(CFFI:DEFCFUN ("sstev_" %SSTEV) :VOID (JOBZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSTEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("sstevd_" %SSTEVD) :VOID (JOBZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSTEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("sstevr_" %SSTEVR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSTEVR :LAPACK-CFFI)

(CFFI:DEFCFUN ("sstevx_" %SSTEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-FLOAT) (E CFFI-FNV-FLOAT)
              (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT) (M FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SSTEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssycon_" %SSYCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-FLOAT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SSYCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssyev_" %SSYEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SSYEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssyevd_" %SSYEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSYEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssyevr_" %SSYEVR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (M FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (ISUPPZ CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSYEVR :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssyevx_" %SSYEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (M FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SSYEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssygs2_" %SSYGS2) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSYGS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssygst_" %SSYGST) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSYGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssygv_" %SSYGV) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SSYGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssygvd_" %SSYGVD) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (W CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSYGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssygvx_" %SSYGVX) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (RANGE :STRING) (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (VL FORTRAN-FLOAT) (VU FORTRAN-FLOAT)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-FLOAT)
              (M FORTRAN-INT) (W CFFI-FNV-FLOAT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SSYGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssyrfs_" %SSYRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (AF CFFI-FNV-FLOAT) (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SSYRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssysv_" %SSYSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSYSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssysvx_" %SSYSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (AF CFFI-FNV-FLOAT) (LDAF FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT) (RCOND FORTRAN-FLOAT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%SSYSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssytd2_" %SSYTD2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (TAU CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSYTD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssytf2_" %SSYTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%SSYTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssytrd_" %SSYTRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (E CFFI-FNV-FLOAT) (TAU CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSYTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssytrf_" %SSYTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%SSYTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssytri_" %SSYTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%SSYTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("ssytrs_" %SSYTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%SSYTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("stbcon_" %STBCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT) (RCOND FORTRAN-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%STBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("stbrfs_" %STBRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%STBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("stbtrs_" %STBTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-FLOAT) (LDAB FORTRAN-INT)
              (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%STBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("stgevc_" %STGEVC) :VOID (SIDE :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (VL CFFI-FNV-FLOAT) (LDVL FORTRAN-INT) (VR CFFI-FNV-FLOAT)
              (LDVR FORTRAN-INT) (MM FORTRAN-INT) (M FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%STGEVC :LAPACK-CFFI)

(CFFI:DEFCFUN ("stgex2_" %STGEX2) :VOID (WANTQ FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (J1 FORTRAN-INT) (N1 FORTRAN-INT)
              (N2 FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%STGEX2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("stgexc_" %STGEXC) :VOID (WANTQ FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT) (Z CFFI-FNV-FLOAT)
              (LDZ FORTRAN-INT) (IFST FORTRAN-INT) (ILST FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%STGEXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("stgsen_" %STGSEN) :VOID (IJOB FORTRAN-INT)
              (WANTQ FORTRAN-LOGICAL) (WANTZ FORTRAN-LOGICAL)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (ALPHAR CFFI-FNV-FLOAT) (ALPHAI CFFI-FNV-FLOAT)
              (BETA CFFI-FNV-FLOAT) (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-FLOAT) (LDZ FORTRAN-INT) (M FORTRAN-INT)
              (PL FORTRAN-FLOAT) (PR FORTRAN-FLOAT) (DIF CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%STGSEN :LAPACK-CFFI)

(CFFI:DEFCFUN ("stgsja_" %STGSJA) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (P FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (L FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (TOLA FORTRAN-FLOAT) (TOLB FORTRAN-FLOAT)
              (ALPHA CFFI-FNV-FLOAT) (BETA CFFI-FNV-FLOAT)
              (U CFFI-FNV-FLOAT) (LDU FORTRAN-INT) (V CFFI-FNV-FLOAT)
              (LDV FORTRAN-INT) (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (NCYCLE FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%STGSJA :LAPACK-CFFI)

(CFFI:DEFCFUN ("stgsna_" %STGSNA) :VOID (JOB :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (VL CFFI-FNV-FLOAT) (LDVL FORTRAN-INT) (VR CFFI-FNV-FLOAT)
              (LDVR FORTRAN-INT) (S CFFI-FNV-FLOAT) (DIF CFFI-FNV-FLOAT)
              (MM FORTRAN-INT) (M FORTRAN-INT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%STGSNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("stgsy2_" %STGSY2) :VOID (TRANS :STRING) (IJOB FORTRAN-INT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (LDD FORTRAN-INT) (E CFFI-FNV-FLOAT) (LDE FORTRAN-INT)
              (F CFFI-FNV-FLOAT) (LDF FORTRAN-INT) (SCALE FORTRAN-FLOAT)
              (RDSUM FORTRAN-FLOAT) (RDSCAL FORTRAN-FLOAT)
              (IWORK CFFI-FNV-INT32) (PQ FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%STGSY2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("stgsyl_" %STGSYL) :VOID (TRANS :STRING) (IJOB FORTRAN-INT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT) (D CFFI-FNV-FLOAT)
              (LDD FORTRAN-INT) (E CFFI-FNV-FLOAT) (LDE FORTRAN-INT)
              (F CFFI-FNV-FLOAT) (LDF FORTRAN-INT) (SCALE FORTRAN-FLOAT)
              (DIF FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%STGSYL :LAPACK-CFFI)

(CFFI:DEFCFUN ("stpcon_" %STPCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (AP CFFI-FNV-FLOAT)
              (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%STPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("stprfs_" %STPRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT) (FERR CFFI-FNV-FLOAT)
              (BERR CFFI-FNV-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%STPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("stptri_" %STPTRI) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%STPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("stptrs_" %STPTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-FLOAT) (B CFFI-FNV-FLOAT) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%STPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("strcon_" %STRCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (A CFFI-FNV-FLOAT)
              (LDA FORTRAN-INT) (RCOND FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%STRCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("strevc_" %STREVC) :VOID (SIDE :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (TT CFFI-FNV-FLOAT)
              (LDT FORTRAN-INT) (VL CFFI-FNV-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-FLOAT) (LDVR FORTRAN-INT) (MM FORTRAN-INT)
              (M FORTRAN-INT) (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%STREVC :LAPACK-CFFI)

(CFFI:DEFCFUN ("strexc_" %STREXC) :VOID (COMPQ :STRING) (N FORTRAN-INT)
              (TT CFFI-FNV-FLOAT) (LDT FORTRAN-INT) (Q CFFI-FNV-FLOAT)
              (LDQ FORTRAN-INT) (IFST FORTRAN-INT) (ILST FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%STREXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("strrfs_" %STRRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (X CFFI-FNV-FLOAT) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-FLOAT) (BERR CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%STRRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("strsen_" %STRSEN) :VOID (JOB :STRING) (COMPQ :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (TT CFFI-FNV-FLOAT)
              (LDT FORTRAN-INT) (Q CFFI-FNV-FLOAT) (LDQ FORTRAN-INT)
              (WR CFFI-FNV-FLOAT) (WI CFFI-FNV-FLOAT) (M FORTRAN-INT)
              (S FORTRAN-FLOAT) (SEP FORTRAN-FLOAT) (WORK CFFI-FNV-FLOAT)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%STRSEN :LAPACK-CFFI)

(CFFI:DEFCFUN ("strsna_" %STRSNA) :VOID (JOB :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT) (TT CFFI-FNV-FLOAT)
              (LDT FORTRAN-INT) (VL CFFI-FNV-FLOAT) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-FLOAT) (LDVR FORTRAN-INT) (S CFFI-FNV-FLOAT)
              (SEP CFFI-FNV-FLOAT) (MM FORTRAN-INT) (M FORTRAN-INT)
              (WORK CFFI-FNV-FLOAT) (LDWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%STRSNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("strsyl_" %STRSYL) :VOID (TRANA :STRING) (TRANB :STRING)
              (ISGN FORTRAN-INT) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (C CFFI-FNV-FLOAT) (LDC FORTRAN-INT)
              (SCALE FORTRAN-FLOAT) (INFO FORTRAN-INT))
(EXPORT '%STRSYL :LAPACK-CFFI)

(CFFI:DEFCFUN ("strti2_" %STRTI2) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%STRTI2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("strtri_" %STRTRI) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%STRTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("strtrs_" %STRTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (B CFFI-FNV-FLOAT)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%STRTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("stzrqf_" %STZRQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (INFO FORTRAN-INT))
(EXPORT '%STZRQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("stzrzf_" %STZRZF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-FLOAT) (LDA FORTRAN-INT) (TAU CFFI-FNV-FLOAT)
              (WORK CFFI-FNV-FLOAT) (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%STZRZF :LAPACK-CFFI)

(CFFI:DEFCFUN ("xerbla_" %XERBLA) :VOID (SRNAME :STRING) (INFO FORTRAN-INT))
(EXPORT '%XERBLA :LAPACK-CFFI)

(CFFI:DEFCFUN ("zbdsqr_" %ZBDSQR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NCVT FORTRAN-INT) (NRU FORTRAN-INT) (NCC FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (VT CFFI-FNV-COMPLEX-DOUBLE) (LDVT FORTRAN-INT)
              (U CFFI-FNV-COMPLEX-DOUBLE) (LDU FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZBDSQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zdrot_" %ZDROT) :VOID (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT)
              (CY CFFI-FNV-COMPLEX-DOUBLE) (INCY FORTRAN-INT)
              (C FORTRAN-DOUBLE) (S FORTRAN-DOUBLE))
(EXPORT '%ZDROT :LAPACK-CFFI)

(CFFI:DEFCFUN ("zdrscl_" %ZDRSCL) :VOID (N FORTRAN-INT) (SA FORTRAN-DOUBLE)
              (SX CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT))
(EXPORT '%ZDRSCL :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgbbrd_" %ZGBBRD) :VOID (VECT :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (NCC FORTRAN-INT) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (PT CFFI-FNV-COMPLEX-DOUBLE) (LDPT FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGBBRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgbcon_" %ZGBCON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgbequ_" %ZGBEQU) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (R CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (ROWCND FORTRAN-DOUBLE) (COLCND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGBEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgbrfs_" %ZGBRFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (AFB CFFI-FNV-COMPLEX-DOUBLE) (LDAFB FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgbsv_" %ZGBSV) :VOID (N FORTRAN-INT) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGBSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgbsvx_" %ZGBSVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (KL FORTRAN-INT) (KU FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (AFB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAFB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (EQUED :STRING)
              (R CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGBSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgbtf2_" %ZGBTF2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGBTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgbtrf_" %ZGBTRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGBTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgbtrs_" %ZGBTRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgebak_" %ZGEBAK) :VOID (JOB :STRING) (SIDE :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (SCALE CFFI-FNV-DOUBLE) (M FORTRAN-INT)
              (V CFFI-FNV-COMPLEX-DOUBLE) (LDV FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZGEBAK :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgebal_" %ZGEBAL) :VOID (JOB :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (ILO FORTRAN-INT) (IHI FORTRAN-INT) (SCALE CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGEBAL :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgebd2_" %ZGEBD2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (TAUQ CFFI-FNV-COMPLEX-DOUBLE) (TAUP CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGEBD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgebrd_" %ZGEBRD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (TAUQ CFFI-FNV-COMPLEX-DOUBLE) (TAUP CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZGEBRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgecon_" %ZGECON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGECON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeequ_" %ZGEEQU) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (R CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (ROWCND FORTRAN-DOUBLE) (COLCND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGEEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgees_" %ZGEES) :VOID (JOBVS :STRING) (SORT :STRING)
              (SELECT FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (SDIM FORTRAN-INT) (W CFFI-FNV-COMPLEX-DOUBLE)
              (VS CFFI-FNV-COMPLEX-DOUBLE) (LDVS FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (BWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZGEES :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeesx_" %ZGEESX) :VOID (JOBVS :STRING) (SORT :STRING)
              (SELECT FORTRAN-LOGICAL) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (SDIM FORTRAN-INT) (W CFFI-FNV-COMPLEX-DOUBLE)
              (VS CFFI-FNV-COMPLEX-DOUBLE) (LDVS FORTRAN-INT)
              (RCONDE FORTRAN-DOUBLE) (RCONDV FORTRAN-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (BWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZGEESX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeev_" %ZGEEV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-DOUBLE) (VL CFFI-FNV-COMPLEX-DOUBLE)
              (LDVL FORTRAN-INT) (VR CFFI-FNV-COMPLEX-DOUBLE)
              (LDVR FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGEEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeevx_" %ZGEEVX) :VOID (BALANC :STRING) (JOBVL :STRING)
              (JOBVR :STRING) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-DOUBLE) (VL CFFI-FNV-COMPLEX-DOUBLE)
              (LDVL FORTRAN-INT) (VR CFFI-FNV-COMPLEX-DOUBLE)
              (LDVR FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (SCALE CFFI-FNV-DOUBLE) (ABNRM FORTRAN-DOUBLE)
              (RCONDE CFFI-FNV-DOUBLE) (RCONDV CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGEEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgegs_" %ZGEGS) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-DOUBLE) (BETA CFFI-FNV-COMPLEX-DOUBLE)
              (VSL CFFI-FNV-COMPLEX-DOUBLE) (LDVSL FORTRAN-INT)
              (VSR CFFI-FNV-COMPLEX-DOUBLE) (LDVSR FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGEGS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgegv_" %ZGEGV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-DOUBLE) (BETA CFFI-FNV-COMPLEX-DOUBLE)
              (VL CFFI-FNV-COMPLEX-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-DOUBLE) (LDVR FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGEGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgehd2_" %ZGEHD2) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGEHD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgehrd_" %ZGEHRD) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZGEHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgelq2_" %ZGELQ2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGELQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgelqf_" %ZGELQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGELQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgels_" %ZGELS) :VOID (TRANS :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGELS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgelsd_" %ZGELSD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (S CFFI-FNV-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (RANK FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGELSD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgelss_" %ZGELSS) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (S CFFI-FNV-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (RANK FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGELSS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgelsx_" %ZGELSX) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (JPVT CFFI-FNV-INT32) (RCOND FORTRAN-DOUBLE)
              (RANK FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGELSX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgelsy_" %ZGELSY) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (JPVT CFFI-FNV-INT32) (RCOND FORTRAN-DOUBLE)
              (RANK FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGELSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeql2_" %ZGEQL2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGEQL2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeqlf_" %ZGEQLF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGEQLF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeqp3_" %ZGEQP3) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGEQP3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeqpf_" %ZGEQPF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGEQPF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeqr2_" %ZGEQR2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGEQR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgeqrf_" %ZGEQRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGEQRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgerfs_" %ZGERFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-DOUBLE)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGERFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgerq2_" %ZGERQ2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGERQ2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgerqf_" %ZGERQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGERQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgesc2_" %ZGESC2) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (RHS CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (JPIV CFFI-FNV-INT32) (SCALE FORTRAN-DOUBLE))
(EXPORT '%ZGESC2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgesdd_" %ZGESDD) :VOID (JOBZ :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (S CFFI-FNV-DOUBLE) (U CFFI-FNV-COMPLEX-DOUBLE)
              (LDU FORTRAN-INT) (VT CFFI-FNV-COMPLEX-DOUBLE)
              (LDVT FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGESDD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgesv_" %ZGESV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGESV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgesvd_" %ZGESVD) :VOID (JOBU :STRING) (JOBVT :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (S CFFI-FNV-DOUBLE)
              (U CFFI-FNV-COMPLEX-DOUBLE) (LDU FORTRAN-INT)
              (VT CFFI-FNV-COMPLEX-DOUBLE) (LDVT FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGESVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgesvx_" %ZGESVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-DOUBLE)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32) (EQUED :STRING)
              (R CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGESVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgetc2_" %ZGETC2) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (JPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGETC2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgetf2_" %ZGETF2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGETF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgetrf_" %ZGETRF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGETRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgetri_" %ZGETRI) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGETRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgetrs_" %ZGETRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZGETRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggbak_" %ZGGBAK) :VOID (JOB :STRING) (SIDE :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (LSCALE CFFI-FNV-DOUBLE) (RSCALE CFFI-FNV-DOUBLE)
              (M FORTRAN-INT) (V CFFI-FNV-COMPLEX-DOUBLE) (LDV FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZGGBAK :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggbal_" %ZGGBAL) :VOID (JOB :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (ILO FORTRAN-INT) (IHI FORTRAN-INT) (LSCALE CFFI-FNV-DOUBLE)
              (RSCALE CFFI-FNV-DOUBLE) (WORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGGBAL :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgges_" %ZGGES) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (SORT :STRING) (DELCTG FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (SDIM FORTRAN-INT) (ALPHA CFFI-FNV-COMPLEX-DOUBLE)
              (BETA CFFI-FNV-COMPLEX-DOUBLE) (VSL CFFI-FNV-COMPLEX-DOUBLE)
              (LDVSL FORTRAN-INT) (VSR CFFI-FNV-COMPLEX-DOUBLE)
              (LDVSR FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGGES :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggesx_" %ZGGESX) :VOID (JOBVSL :STRING) (JOBVSR :STRING)
              (SORT :STRING) (DELCTG FORTRAN-LOGICAL) (SENSE :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (SDIM FORTRAN-INT) (ALPHA CFFI-FNV-COMPLEX-DOUBLE)
              (BETA CFFI-FNV-COMPLEX-DOUBLE) (VSL CFFI-FNV-COMPLEX-DOUBLE)
              (LDVSL FORTRAN-INT) (VSR CFFI-FNV-COMPLEX-DOUBLE)
              (LDVSR FORTRAN-INT) (RCONDE FORTRAN-DOUBLE)
              (RCONDV FORTRAN-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT)
              (BWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGGESX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggev_" %ZGGEV) :VOID (JOBVL :STRING) (JOBVR :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-DOUBLE) (BETA CFFI-FNV-COMPLEX-DOUBLE)
              (VL CFFI-FNV-COMPLEX-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-DOUBLE) (LDVR FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGGEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggevx_" %ZGGEVX) :VOID (BALANC :STRING) (JOBVL :STRING)
              (JOBVR :STRING) (SENSE :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-DOUBLE) (BETA CFFI-FNV-COMPLEX-DOUBLE)
              (VL CFFI-FNV-COMPLEX-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-DOUBLE) (LDVR FORTRAN-INT)
              (ILO FORTRAN-INT) (IHI FORTRAN-INT) (LSCALE CFFI-FNV-DOUBLE)
              (RSCALE CFFI-FNV-DOUBLE) (ABNRM FORTRAN-DOUBLE)
              (BBNRM FORTRAN-DOUBLE) (RCONDE CFFI-FNV-DOUBLE)
              (RCONDV CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (BWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZGGEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggglm_" %ZGGGLM) :VOID (N FORTRAN-INT) (M FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (D CFFI-FNV-COMPLEX-DOUBLE) (X CFFI-FNV-COMPLEX-DOUBLE)
              (Y CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGGGLM :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgghrd_" %ZGGHRD) :VOID (COMPQ :STRING) (COMPZ :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZGGHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgglse_" %ZGGLSE) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-DOUBLE) (D CFFI-FNV-COMPLEX-DOUBLE)
              (X CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGGLSE :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggqrf_" %ZGGQRF) :VOID (N FORTRAN-INT) (M FORTRAN-INT)
              (P FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAUA CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (TAUB CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZGGQRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggrqf_" %ZGGRQF) :VOID (M FORTRAN-INT) (P FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAUA CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (TAUB CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZGGRQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggsvd_" %ZGGSVD) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (N FORTRAN-INT) (P FORTRAN-INT)
              (K FORTRAN-INT) (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (ALPHA CFFI-FNV-DOUBLE)
              (BETA CFFI-FNV-DOUBLE) (U CFFI-FNV-COMPLEX-DOUBLE)
              (LDU FORTRAN-INT) (V CFFI-FNV-COMPLEX-DOUBLE)
              (LDV FORTRAN-INT) (Q CFFI-FNV-COMPLEX-DOUBLE)
              (LDQ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZGGSVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zggsvp_" %ZGGSVP) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (P FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (TOLA FORTRAN-DOUBLE) (TOLB FORTRAN-DOUBLE) (K FORTRAN-INT)
              (L FORTRAN-INT) (U CFFI-FNV-COMPLEX-DOUBLE) (LDU FORTRAN-INT)
              (V CFFI-FNV-COMPLEX-DOUBLE) (LDV FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (RWORK CFFI-FNV-DOUBLE)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGGSVP :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgtcon_" %ZGTCON) :VOID (NORM :STRING) (N FORTRAN-INT)
              (DL CFFI-FNV-COMPLEX-DOUBLE) (D CFFI-FNV-COMPLEX-DOUBLE)
              (DU CFFI-FNV-COMPLEX-DOUBLE) (DU2 CFFI-FNV-COMPLEX-DOUBLE)
              (IPIV CFFI-FNV-INT32) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZGTCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgtrfs_" %ZGTRFS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-COMPLEX-DOUBLE)
              (D CFFI-FNV-COMPLEX-DOUBLE) (DU CFFI-FNV-COMPLEX-DOUBLE)
              (DLF CFFI-FNV-COMPLEX-DOUBLE) (DF CFFI-FNV-COMPLEX-DOUBLE)
              (DUF CFFI-FNV-COMPLEX-DOUBLE) (DU2 CFFI-FNV-COMPLEX-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGTRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgtsv_" %ZGTSV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (DL CFFI-FNV-COMPLEX-DOUBLE) (D CFFI-FNV-COMPLEX-DOUBLE)
              (DU CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZGTSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgtsvx_" %ZGTSVX) :VOID (FACT :STRING) (TRANS :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (DL CFFI-FNV-COMPLEX-DOUBLE) (D CFFI-FNV-COMPLEX-DOUBLE)
              (DU CFFI-FNV-COMPLEX-DOUBLE) (DLF CFFI-FNV-COMPLEX-DOUBLE)
              (DF CFFI-FNV-COMPLEX-DOUBLE) (DUF CFFI-FNV-COMPLEX-DOUBLE)
              (DU2 CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZGTSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgttrf_" %ZGTTRF) :VOID (N FORTRAN-INT)
              (DL CFFI-FNV-COMPLEX-DOUBLE) (D CFFI-FNV-COMPLEX-DOUBLE)
              (DU CFFI-FNV-COMPLEX-DOUBLE) (DU2 CFFI-FNV-COMPLEX-DOUBLE)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZGTTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgttrs_" %ZGTTRS) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-COMPLEX-DOUBLE)
              (D CFFI-FNV-COMPLEX-DOUBLE) (DU CFFI-FNV-COMPLEX-DOUBLE)
              (DU2 CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZGTTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zgtts2_" %ZGTTS2) :VOID (ITRANS FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (DL CFFI-FNV-COMPLEX-DOUBLE)
              (D CFFI-FNV-COMPLEX-DOUBLE) (DU CFFI-FNV-COMPLEX-DOUBLE)
              (DU2 CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT))
(EXPORT '%ZGTTS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhbev_" %ZHBEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZHBEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhbevd_" %ZHBEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (LRWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHBEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhbevx_" %ZHBEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZHBEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhbgst_" %ZHBGST) :VOID (VECT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (BB CFFI-FNV-COMPLEX-DOUBLE) (LDBB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZHBGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhbgv_" %ZHBGV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (BB CFFI-FNV-COMPLEX-DOUBLE) (LDBB FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHBGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhbgvd_" %ZHBGVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KA FORTRAN-INT) (KB FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (BB CFFI-FNV-COMPLEX-DOUBLE) (LDBB FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (LRWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHBGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhbgvx_" %ZHBGVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (KA FORTRAN-INT)
              (KB FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (BB CFFI-FNV-COMPLEX-DOUBLE)
              (LDBB FORTRAN-INT) (Q CFFI-FNV-COMPLEX-DOUBLE)
              (LDQ FORTRAN-INT) (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (M FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZHBGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhbtrd_" %ZHBTRD) :VOID (VECT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHBTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhecon_" %ZHECON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZHECON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zheev_" %ZHEEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHEEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zheevd_" %ZHEEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (LRWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHEEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zheevr_" %ZHEEVR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (M FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (LRWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHEEVR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zheevx_" %ZHEEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE)
              (IL FORTRAN-INT) (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE)
              (M FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZHEEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhegs2_" %ZHEGS2) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZHEGS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhegst_" %ZHEGST) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZHEGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhegv_" %ZHEGV) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHEGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhegvd_" %ZHEGVD) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (LRWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHEGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhegvx_" %ZHEGVX) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (RANGE :STRING) (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (IFAIL CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZHEGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zherfs_" %ZHERFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-DOUBLE)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZHERFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhesv_" %ZHESV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZHESV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhesvx_" %ZHESVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-DOUBLE)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHESVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhetd2_" %ZHETD2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHETD2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhetf2_" %ZHETF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZHETF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhetrd_" %ZHETRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHETRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhetrf_" %ZHETRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHETRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhetri_" %ZHETRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZHETRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhetrs_" %ZHETRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZHETRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhgeqz_" %ZHGEQZ) :VOID (JOB :STRING) (COMPQ :STRING)
              (COMPZ :STRING) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (ALPHA CFFI-FNV-COMPLEX-DOUBLE)
              (BETA CFFI-FNV-COMPLEX-DOUBLE) (Q CFFI-FNV-COMPLEX-DOUBLE)
              (LDQ FORTRAN-INT) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHGEQZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpcon_" %ZHPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpev_" %ZHPEV) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHPEV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpevd_" %ZHPEVD) :VOID (JOBZ :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (LRWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32)
              (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHPEVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpevx_" %ZHPEVX) :VOID (JOBZ :STRING) (RANGE :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZHPEVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpgst_" %ZHPGST) :VOID (ITYPE FORTRAN-INT) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (BP CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHPGST :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpgv_" %ZHPGV) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (BP CFFI-FNV-COMPLEX-DOUBLE) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZHPGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpgvd_" %ZHPGVD) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (UPLO :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (BP CFFI-FNV-COMPLEX-DOUBLE) (W CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (LRWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHPGVD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpgvx_" %ZHPGVX) :VOID (ITYPE FORTRAN-INT) (JOBZ :STRING)
              (RANGE :STRING) (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (BP CFFI-FNV-COMPLEX-DOUBLE)
              (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZHPGVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhprfs_" %ZHPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (AFP CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZHPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpsv_" %ZHPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhpsvx_" %ZHPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (AFP CFFI-FNV-COMPLEX-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZHPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhptrd_" %ZHPTRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZHPTRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhptrf_" %ZHPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZHPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhptri_" %ZHPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZHPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhptrs_" %ZHPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhsein_" %ZHSEIN) :VOID (SIDE :STRING) (EIGSRC :STRING)
              (INITV :STRING) (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (H CFFI-FNV-COMPLEX-DOUBLE) (LDH FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-DOUBLE) (VL CFFI-FNV-COMPLEX-DOUBLE)
              (LDVL FORTRAN-INT) (VR CFFI-FNV-COMPLEX-DOUBLE)
              (LDVR FORTRAN-INT) (MM FORTRAN-INT) (M FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (IFAILL CFFI-FNV-INT32) (IFAILR CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZHSEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("zhseqr_" %ZHSEQR) :VOID (JOB :STRING) (COMPZ :STRING)
              (N FORTRAN-INT) (ILO FORTRAN-INT) (IHI FORTRAN-INT)
              (H CFFI-FNV-COMPLEX-DOUBLE) (LDH FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZHSEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlabrd_" %ZLABRD) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (TAUQ CFFI-FNV-COMPLEX-DOUBLE) (TAUP CFFI-FNV-COMPLEX-DOUBLE)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (Y CFFI-FNV-COMPLEX-DOUBLE) (LDY FORTRAN-INT))
(EXPORT '%ZLABRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlacgv_" %ZLACGV) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT))
(EXPORT '%ZLACGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlacon_" %ZLACON) :VOID (N FORTRAN-INT)
              (V FORTRAN-COMPLEX-DOUBLE) (X FORTRAN-COMPLEX-DOUBLE)
              (EST FORTRAN-DOUBLE) (KASE FORTRAN-INT))
(EXPORT '%ZLACON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlacp2_" %ZLACP2) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT))
(EXPORT '%ZLACP2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlacpy_" %ZLACPY) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT))
(EXPORT '%ZLACPY :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlacrm_" %ZLACRM) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-DOUBLE) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLACRM :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlacrt_" %ZLACRT) :VOID (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT)
              (CY CFFI-FNV-COMPLEX-DOUBLE) (INCY FORTRAN-INT)
              (C FORTRAN-COMPLEX-DOUBLE) (S FORTRAN-COMPLEX-DOUBLE))
(EXPORT '%ZLACRT :LAPACK-CFFI)

(CFFI:DEFCFUN ("zladiv_" %ZLADIV) COMPLEX-DOUBLE (X FORTRAN-COMPLEX-DOUBLE)
              (Y FORTRAN-COMPLEX-DOUBLE))
(EXPORT '%ZLADIV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaed0_" %ZLAED0) :VOID (QSIZ FORTRAN-INT) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (QSTORE CFFI-FNV-COMPLEX-DOUBLE) (LDQS FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZLAED0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaed7_" %ZLAED7) :VOID (N FORTRAN-INT) (CUTPNT FORTRAN-INT)
              (QSIZ FORTRAN-INT) (TLVLS FORTRAN-INT) (CURLVL FORTRAN-INT)
              (CURPBM FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (RHO FORTRAN-DOUBLE) (INDXQ CFFI-FNV-INT32)
              (QSTORE CFFI-FNV-DOUBLE) (QPTR CFFI-FNV-INT32)
              (PRMPTR CFFI-FNV-INT32) (PERM CFFI-FNV-INT32)
              (GIVPTR CFFI-FNV-INT32) (GIVCOL CFFI-FNV-INT32)
              (GIVNUM CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZLAED7 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaed8_" %ZLAED8) :VOID (K FORTRAN-INT) (N FORTRAN-INT)
              (QSIZ FORTRAN-INT) (Q CFFI-FNV-COMPLEX-DOUBLE)
              (LDQ FORTRAN-INT) (D CFFI-FNV-DOUBLE) (RHO FORTRAN-DOUBLE)
              (CUTPNT FORTRAN-INT) (Z CFFI-FNV-DOUBLE)
              (DLAMDA CFFI-FNV-DOUBLE) (Q2 CFFI-FNV-COMPLEX-DOUBLE)
              (LDQ2 FORTRAN-INT) (W CFFI-FNV-DOUBLE) (INDXP CFFI-FNV-INT32)
              (INDX CFFI-FNV-INT32) (INDXQ CFFI-FNV-INT32)
              (PERM CFFI-FNV-INT32) (GIVPTR FORTRAN-INT)
              (GIVCOL CFFI-FNV-INT32) (GIVNUM CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZLAED8 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaein_" %ZLAEIN) :VOID (RIGHTV FORTRAN-LOGICAL)
              (NOINIT FORTRAN-LOGICAL) (N FORTRAN-INT)
              (H CFFI-FNV-COMPLEX-DOUBLE) (LDH FORTRAN-INT)
              (W FORTRAN-COMPLEX-DOUBLE) (V CFFI-FNV-COMPLEX-DOUBLE)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (EPS3 FORTRAN-DOUBLE)
              (SMLNUM FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZLAEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaesy_" %ZLAESY) :VOID (A FORTRAN-COMPLEX-DOUBLE)
              (B FORTRAN-COMPLEX-DOUBLE) (C FORTRAN-COMPLEX-DOUBLE)
              (RT1 FORTRAN-COMPLEX-DOUBLE) (RT2 FORTRAN-COMPLEX-DOUBLE)
              (EVSCAL FORTRAN-COMPLEX-DOUBLE) (CS1 FORTRAN-COMPLEX-DOUBLE)
              (SN1 FORTRAN-COMPLEX-DOUBLE))
(EXPORT '%ZLAESY :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaev2_" %ZLAEV2) :VOID (A FORTRAN-COMPLEX-DOUBLE)
              (B FORTRAN-COMPLEX-DOUBLE) (C FORTRAN-COMPLEX-DOUBLE)
              (RT1 FORTRAN-DOUBLE) (RT2 FORTRAN-DOUBLE) (CS1 FORTRAN-DOUBLE)
              (SN1 FORTRAN-COMPLEX-DOUBLE))
(EXPORT '%ZLAEV2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlags2_" %ZLAGS2) :VOID (UPPER FORTRAN-LOGICAL)
              (A1 FORTRAN-DOUBLE) (A2 FORTRAN-COMPLEX-DOUBLE)
              (A3 FORTRAN-DOUBLE) (B1 FORTRAN-DOUBLE)
              (B2 FORTRAN-COMPLEX-DOUBLE) (B3 FORTRAN-DOUBLE)
              (CSU FORTRAN-DOUBLE) (SNU FORTRAN-COMPLEX-DOUBLE)
              (CSV FORTRAN-DOUBLE) (SNV FORTRAN-COMPLEX-DOUBLE)
              (CSQ FORTRAN-DOUBLE) (SNQ FORTRAN-COMPLEX-DOUBLE))
(EXPORT '%ZLAGS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlagtm_" %ZLAGTM) :VOID (TRANS :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (ALPHA FORTRAN-DOUBLE)
              (DL CFFI-FNV-COMPLEX-DOUBLE) (D CFFI-FNV-COMPLEX-DOUBLE)
              (DU CFFI-FNV-COMPLEX-DOUBLE) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (BETA FORTRAN-DOUBLE)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT))
(EXPORT '%ZLAGTM :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlahef_" %ZLAHEF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (KB FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (W CFFI-FNV-COMPLEX-DOUBLE) (LDW FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZLAHEF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlahqr_" %ZLAHQR) :VOID (WANTT FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (H CFFI-FNV-COMPLEX-DOUBLE)
              (LDH FORTRAN-INT) (W CFFI-FNV-COMPLEX-DOUBLE)
              (ILOZ FORTRAN-INT) (IHIZ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZLAHQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlahrd_" %ZLAHRD) :VOID (N FORTRAN-INT) (K FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU FORTRAN-COMPLEX-DOUBLE) (TT FORTRAN-COMPLEX-DOUBLE)
              (LDT FORTRAN-INT) (Y FORTRAN-COMPLEX-DOUBLE) (LDY FORTRAN-INT))
(EXPORT '%ZLAHRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaic1_" %ZLAIC1) :VOID (JOB FORTRAN-INT) (J FORTRAN-INT)
              (X FORTRAN-COMPLEX-DOUBLE) (SEST FORTRAN-DOUBLE)
              (W FORTRAN-COMPLEX-DOUBLE) (GAMMA FORTRAN-COMPLEX-DOUBLE)
              (SESTPR FORTRAN-DOUBLE) (S FORTRAN-COMPLEX-DOUBLE)
              (C FORTRAN-COMPLEX-DOUBLE))
(EXPORT '%ZLAIC1 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlals0_" %ZLALS0) :VOID (ICOMPQ FORTRAN-INT) (NL FORTRAN-INT)
              (NR FORTRAN-INT) (SQRE FORTRAN-INT) (NRHS FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (BX CFFI-FNV-COMPLEX-DOUBLE) (LDBX FORTRAN-INT)
              (PERM CFFI-FNV-INT32) (GIVPTR FORTRAN-INT)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (GIVNUM CFFI-FNV-DOUBLE) (LDGNUM FORTRAN-INT)
              (POLES CFFI-FNV-DOUBLE) (DIFL CFFI-FNV-DOUBLE)
              (DIFR CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE) (K FORTRAN-INT)
              (C FORTRAN-DOUBLE) (S FORTRAN-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZLALS0 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlalsa_" %ZLALSA) :VOID (ICOMPQ FORTRAN-INT)
              (SMLSIZ FORTRAN-INT) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (BX CFFI-FNV-COMPLEX-DOUBLE) (LDBX FORTRAN-INT)
              (U CFFI-FNV-DOUBLE) (LDU FORTRAN-INT) (VT CFFI-FNV-DOUBLE)
              (K CFFI-FNV-INT32) (DIFL CFFI-FNV-DOUBLE)
              (DIFR CFFI-FNV-DOUBLE) (Z CFFI-FNV-DOUBLE)
              (POLES CFFI-FNV-DOUBLE) (GIVPTR CFFI-FNV-INT32)
              (GIVCOL CFFI-FNV-INT32) (LDGCOL FORTRAN-INT)
              (PERM CFFI-FNV-INT32) (GIVNUM CFFI-FNV-DOUBLE)
              (C CFFI-FNV-DOUBLE) (S CFFI-FNV-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZLALSA :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlalsd_" %ZLALSD) :VOID (UPLO :STRING) (SMLSIZ FORTRAN-INT)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (RCOND FORTRAN-DOUBLE) (RANK FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZLALSD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlangb_" %ZLANGB) :DOUBLE (NORM :STRING) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANGB :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlange_" %ZLANGE) :DOUBLE (NORM :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANGE :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlangt_" %ZLANGT) :DOUBLE (NORM :STRING) (N FORTRAN-INT)
              (DL CFFI-FNV-COMPLEX-DOUBLE) (D CFFI-FNV-COMPLEX-DOUBLE)
              (DU CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZLANGT :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlanhb_" %ZLANHB) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANHB :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlanhe_" %ZLANHE) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANHE :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlanhp_" %ZLANHP) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANHP :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlanhs_" %ZLANHS) :DOUBLE (NORM :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANHS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlanht_" %ZLANHT) :DOUBLE (NORM :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZLANHT :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlansb_" %ZLANSB) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANSB :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlansp_" %ZLANSP) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANSP :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlansy_" %ZLANSY) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlantb_" %ZLANTB) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (K FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANTB :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlantp_" %ZLANTP) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANTP :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlantr_" %ZLANTR) :DOUBLE (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLANTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlapll_" %ZLAPLL) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT)
              (Y CFFI-FNV-COMPLEX-DOUBLE) (INCY FORTRAN-INT)
              (SSMIN FORTRAN-DOUBLE))
(EXPORT '%ZLAPLL :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlapmt_" %ZLAPMT) :VOID (FORWRD FORTRAN-LOGICAL)
              (M FORTRAN-INT) (N FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (K CFFI-FNV-INT32))
(EXPORT '%ZLAPMT :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqgb_" %ZLAQGB) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (KL FORTRAN-INT) (KU FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (R CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (ROWCND FORTRAN-DOUBLE) (COLCND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%ZLAQGB :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqge_" %ZLAQGE) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (R CFFI-FNV-DOUBLE) (C CFFI-FNV-DOUBLE)
              (ROWCND FORTRAN-DOUBLE) (COLCND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%ZLAQGE :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqhb_" %ZLAQHB) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (S CFFI-FNV-DOUBLE) (SCOND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%ZLAQHB :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqhe_" %ZLAQHE) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (S CFFI-FNV-DOUBLE) (SCOND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%ZLAQHE :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqhp_" %ZLAQHP) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (S CFFI-FNV-DOUBLE)
              (SCOND FORTRAN-DOUBLE) (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%ZLAQHP :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqp2_" %ZLAQP2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (OFFSET FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (JPVT CFFI-FNV-INT32)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (VN1 CFFI-FNV-DOUBLE)
              (VN2 CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZLAQP2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqps_" %ZLAQPS) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (OFFSET FORTRAN-INT) (NB FORTRAN-INT) (KB FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (JPVT CFFI-FNV-INT32) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (VN1 CFFI-FNV-DOUBLE) (VN2 CFFI-FNV-DOUBLE)
              (AUXV CFFI-FNV-COMPLEX-DOUBLE) (F CFFI-FNV-COMPLEX-DOUBLE)
              (LDF FORTRAN-INT))
(EXPORT '%ZLAQPS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqsb_" %ZLAQSB) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (S CFFI-FNV-DOUBLE) (SCOND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%ZLAQSB :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqsp_" %ZLAQSP) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (S CFFI-FNV-DOUBLE)
              (SCOND FORTRAN-DOUBLE) (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%ZLAQSP :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaqsy_" %ZLAQSY) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (S CFFI-FNV-DOUBLE) (SCOND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (EQUED :STRING))
(EXPORT '%ZLAQSY :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlar1v_" %ZLAR1V) :VOID (N FORTRAN-INT) (B1 FORTRAN-INT)
              (BN FORTRAN-INT) (SIGMA FORTRAN-DOUBLE) (D CFFI-FNV-DOUBLE)
              (L CFFI-FNV-DOUBLE) (LD CFFI-FNV-DOUBLE) (LLD CFFI-FNV-DOUBLE)
              (GERSCH CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (ZTZ FORTRAN-DOUBLE) (MINGMA FORTRAN-DOUBLE) (R FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLAR1V :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlar2v_" %ZLAR2V) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (Y CFFI-FNV-COMPLEX-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (S CFFI-FNV-COMPLEX-DOUBLE)
              (INCC FORTRAN-INT))
(EXPORT '%ZLAR2V :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarcm_" %ZLARCM) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE))
(EXPORT '%ZLARCM :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarf_" %ZLARF) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-COMPLEX-DOUBLE) (INCV FORTRAN-INT)
              (TAU FORTRAN-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZLARF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarfb_" %ZLARFB) :VOID (SIDE :STRING) (TRANS :STRING)
              (DIRECT :STRING) (STOREV :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-COMPLEX-DOUBLE)
              (LDV FORTRAN-INT) (TT CFFI-FNV-COMPLEX-DOUBLE)
              (LDT FORTRAN-INT) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LDWORK FORTRAN-INT))
(EXPORT '%ZLARFB :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarfg_" %ZLARFG) :VOID (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-DOUBLE) (X CFFI-FNV-COMPLEX-DOUBLE)
              (INCX FORTRAN-INT) (TAU FORTRAN-COMPLEX-DOUBLE))
(EXPORT '%ZLARFG :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarft_" %ZLARFT) :VOID (DIRECT :STRING) (STOREV :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-COMPLEX-DOUBLE)
              (LDV FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (TT CFFI-FNV-COMPLEX-DOUBLE) (LDT FORTRAN-INT))
(EXPORT '%ZLARFT :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarfx_" %ZLARFX) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-COMPLEX-DOUBLE)
              (TAU FORTRAN-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZLARFX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlargv_" %ZLARGV) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT)
              (Y CFFI-FNV-COMPLEX-DOUBLE) (INCY FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (INCC FORTRAN-INT))
(EXPORT '%ZLARGV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarnv_" %ZLARNV) :VOID (IDIST FORTRAN-INT)
              (ISEED FORTRAN-INT) (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZLARNV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarrv_" %ZLARRV) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (L CFFI-FNV-DOUBLE) (ISPLIT CFFI-FNV-INT32) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (IBLOCK CFFI-FNV-INT32)
              (GERSCH CFFI-FNV-DOUBLE) (TOL FORTRAN-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (ISUPPZ CFFI-FNV-INT32) (WORK CFFI-FNV-DOUBLE)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZLARRV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlartg_" %ZLARTG) :VOID (F FORTRAN-COMPLEX-DOUBLE)
              (G FORTRAN-COMPLEX-DOUBLE) (CS FORTRAN-DOUBLE)
              (SN FORTRAN-COMPLEX-DOUBLE) (R FORTRAN-COMPLEX-DOUBLE))
(EXPORT '%ZLARTG :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlartv_" %ZLARTV) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT)
              (Y CFFI-FNV-COMPLEX-DOUBLE) (INCY FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (S CFFI-FNV-COMPLEX-DOUBLE)
              (INCC FORTRAN-INT))
(EXPORT '%ZLARTV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarz_" %ZLARZ) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (L FORTRAN-INT) (V CFFI-FNV-COMPLEX-DOUBLE)
              (INCV FORTRAN-INT) (TAU FORTRAN-COMPLEX-DOUBLE)
              (C CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZLARZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarzb_" %ZLARZB) :VOID (SIDE :STRING) (TRANS :STRING)
              (DIRECT :STRING) (STOREV :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (L FORTRAN-INT)
              (V CFFI-FNV-COMPLEX-DOUBLE) (LDV FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-DOUBLE) (LDT FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LDWORK FORTRAN-INT))
(EXPORT '%ZLARZB :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlarzt_" %ZLARZT) :VOID (DIRECT :STRING) (STOREV :STRING)
              (N FORTRAN-INT) (K FORTRAN-INT) (V CFFI-FNV-COMPLEX-DOUBLE)
              (LDV FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (TT CFFI-FNV-COMPLEX-DOUBLE) (LDT FORTRAN-INT))
(EXPORT '%ZLARZT :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlascl_" %ZLASCL) :VOID (TYPE :STRING) (KL FORTRAN-INT)
              (KU FORTRAN-INT) (CFROM FORTRAN-DOUBLE) (CTO FORTRAN-DOUBLE)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZLASCL :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaset_" %ZLASET) :VOID (UPLO :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (ALPHA FORTRAN-COMPLEX-DOUBLE)
              (BETA FORTRAN-COMPLEX-DOUBLE) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT))
(EXPORT '%ZLASET :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlasr_" %ZLASR) :VOID (SIDE :STRING) (PIVOT :STRING)
              (DIRECT :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (C CFFI-FNV-DOUBLE) (S CFFI-FNV-DOUBLE)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT))
(EXPORT '%ZLASR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlassq_" %ZLASSQ) :VOID (N FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT)
              (SCALE FORTRAN-DOUBLE) (SUMSQ FORTRAN-DOUBLE))
(EXPORT '%ZLASSQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlaswp_" %ZLASWP) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT) (K1 FORTRAN-INT)
              (K2 FORTRAN-INT) (IPIV CFFI-FNV-INT32) (INCX FORTRAN-INT))
(EXPORT '%ZLASWP :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlasyf_" %ZLASYF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (KB FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (W CFFI-FNV-COMPLEX-DOUBLE) (LDW FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZLASYF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlatbs_" %ZLATBS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (SCALE FORTRAN-DOUBLE) (CNORM CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZLATBS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlatdf_" %ZLATDF) :VOID (IJOB FORTRAN-INT) (N FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (RHS CFFI-FNV-COMPLEX-DOUBLE) (RDSUM FORTRAN-DOUBLE)
              (RDSCAL FORTRAN-DOUBLE) (IPIV CFFI-FNV-INT32)
              (JPIV CFFI-FNV-INT32))
(EXPORT '%ZLATDF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlatps_" %ZLATPS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (X CFFI-FNV-COMPLEX-DOUBLE)
              (SCALE FORTRAN-DOUBLE) (CNORM CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZLATPS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlatrd_" %ZLATRD) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NB FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (E CFFI-FNV-DOUBLE) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (W CFFI-FNV-COMPLEX-DOUBLE) (LDW FORTRAN-INT))
(EXPORT '%ZLATRD :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlatrs_" %ZLATRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (NORMIN :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (SCALE FORTRAN-DOUBLE)
              (CNORM CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZLATRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlatrz_" %ZLATRZ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZLATRZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlatzm_" %ZLATZM) :VOID (SIDE :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (V CFFI-FNV-COMPLEX-DOUBLE) (INCV FORTRAN-INT)
              (TAU FORTRAN-COMPLEX-DOUBLE) (C1 CFFI-FNV-COMPLEX-DOUBLE)
              (C2 CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZLATZM :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlauu2_" %ZLAUU2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZLAUU2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zlauum_" %ZLAUUM) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZLAUUM :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpbcon_" %ZPBCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpbequ_" %ZPBEQU) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (S CFFI-FNV-DOUBLE) (SCOND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPBEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpbrfs_" %ZPBRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (AFB CFFI-FNV-COMPLEX-DOUBLE) (LDAFB FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZPBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpbstf_" %ZPBSTF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZPBSTF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpbsv_" %ZPBSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZPBSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpbsvx_" %ZPBSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (AFB CFFI-FNV-COMPLEX-DOUBLE) (LDAFB FORTRAN-INT)
              (EQUED :STRING) (S CFFI-FNV-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZPBSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpbtf2_" %ZPBTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZPBTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpbtrf_" %ZPBTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZPBTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpbtrs_" %ZPBTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (KD FORTRAN-INT) (NRHS FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZPBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpocon_" %ZPOCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZPOCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpoequ_" %ZPOEQU) :VOID (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (S CFFI-FNV-DOUBLE) (SCOND FORTRAN-DOUBLE)
              (AMAX FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPOEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("zporfs_" %ZPORFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-DOUBLE)
              (LDAF FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPORFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zposv_" %ZPOSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZPOSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zposvx_" %ZPOSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-DOUBLE)
              (LDAF FORTRAN-INT) (EQUED :STRING) (S CFFI-FNV-DOUBLE)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPOSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpotf2_" %ZPOTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZPOTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpotrf_" %ZPOTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZPOTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpotri_" %ZPOTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZPOTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpotrs_" %ZPOTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZPOTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zppcon_" %ZPPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zppequ_" %ZPPEQU) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (S CFFI-FNV-DOUBLE)
              (SCOND FORTRAN-DOUBLE) (AMAX FORTRAN-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZPPEQU :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpprfs_" %ZPPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (AFP CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zppsv_" %ZPPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZPPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zppsvx_" %ZPPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (AFP CFFI-FNV-COMPLEX-DOUBLE)
              (EQUED :STRING) (S CFFI-FNV-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZPPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpptrf_" %ZPPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpptri_" %ZPPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpptrs_" %ZPPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZPPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zptcon_" %ZPTCON) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-COMPLEX-DOUBLE) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZPTCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpteqr_" %ZPTEQR) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPTEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zptrfs_" %ZPTRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-COMPLEX-DOUBLE) (DF CFFI-FNV-DOUBLE)
              (EF CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPTRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zptsv_" %ZPTSV) :VOID (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-COMPLEX-DOUBLE)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZPTSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zptsvx_" %ZPTSVX) :VOID (FACT :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-COMPLEX-DOUBLE) (DF CFFI-FNV-DOUBLE)
              (EF CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZPTSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpttrf_" %ZPTTRF) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZPTTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zpttrs_" %ZPTTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZPTTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zptts2_" %ZPTTS2) :VOID (IUPLO FORTRAN-INT) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT))
(EXPORT '%ZPTTS2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zrot_" %ZROT) :VOID (N FORTRAN-INT)
              (CX CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT)
              (CY CFFI-FNV-COMPLEX-DOUBLE) (INCY FORTRAN-INT)
              (C FORTRAN-DOUBLE) (S FORTRAN-COMPLEX-DOUBLE))
(EXPORT '%ZROT :LAPACK-CFFI)

(CFFI:DEFCFUN ("zspcon_" %ZSPCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (ANORM FORTRAN-DOUBLE) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZSPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zspmv_" %ZSPMV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-DOUBLE) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (X CFFI-FNV-COMPLEX-DOUBLE) (INCX FORTRAN-INT)
              (BETA FORTRAN-COMPLEX-DOUBLE) (Y CFFI-FNV-COMPLEX-DOUBLE)
              (INCY FORTRAN-INT))
(EXPORT '%ZSPMV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zspr_" %ZSPR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-DOUBLE) (X CFFI-FNV-COMPLEX-DOUBLE)
              (INCX FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE))
(EXPORT '%ZSPR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsprfs_" %ZSPRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (AFP CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZSPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zspsv_" %ZSPSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZSPSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zspsvx_" %ZSPSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (AFP CFFI-FNV-COMPLEX-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZSPSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsptrf_" %ZSPTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (INFO FORTRAN-INT))
(EXPORT '%ZSPTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsptri_" %ZSPTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (IPIV CFFI-FNV-INT32)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZSPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsptrs_" %ZSPTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (IPIV CFFI-FNV-INT32) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZSPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zstedc_" %ZSTEDC) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (RWORK CFFI-FNV-DOUBLE) (LRWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZSTEDC :LAPACK-CFFI)

(CFFI:DEFCFUN ("zstegr_" %ZSTEGR) :VOID (JOBZ :STRING) (RANGE :STRING)
              (N FORTRAN-INT) (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (VL FORTRAN-DOUBLE) (VU FORTRAN-DOUBLE) (IL FORTRAN-INT)
              (IU FORTRAN-INT) (ABSTOL FORTRAN-DOUBLE) (M FORTRAN-INT)
              (W CFFI-FNV-DOUBLE) (Z CFFI-FNV-COMPLEX-DOUBLE)
              (LDZ FORTRAN-INT) (ISUPPZ CFFI-FNV-INT32)
              (WORK CFFI-FNV-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZSTEGR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zstein_" %ZSTEIN) :VOID (N FORTRAN-INT) (D CFFI-FNV-DOUBLE)
              (E CFFI-FNV-DOUBLE) (M FORTRAN-INT) (W CFFI-FNV-DOUBLE)
              (IBLOCK CFFI-FNV-INT32) (ISPLIT CFFI-FNV-INT32)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (IWORK CFFI-FNV-INT32)
              (IFAIL CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZSTEIN :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsteqr_" %ZSTEQR) :VOID (COMPZ :STRING) (N FORTRAN-INT)
              (D CFFI-FNV-DOUBLE) (E CFFI-FNV-DOUBLE)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (WORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZSTEQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsycon_" %ZSYCON) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (ANORM FORTRAN-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZSYCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsymv_" %ZSYMV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-DOUBLE) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (INCX FORTRAN-INT) (BETA FORTRAN-COMPLEX-DOUBLE)
              (Y CFFI-FNV-COMPLEX-DOUBLE) (INCY FORTRAN-INT))
(EXPORT '%ZSYMV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsyr_" %ZSYR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (ALPHA FORTRAN-COMPLEX-DOUBLE) (X CFFI-FNV-COMPLEX-DOUBLE)
              (INCX FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT))
(EXPORT '%ZSYR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsyrfs_" %ZSYRFS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-DOUBLE)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZSYRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsysv_" %ZSYSV) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZSYSV :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsysvx_" %ZSYSVX) :VOID (FACT :STRING) (UPLO :STRING)
              (N FORTRAN-INT) (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (AF CFFI-FNV-COMPLEX-DOUBLE)
              (LDAF FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZSYSVX :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsytf2_" %ZSYTF2) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZSYTF2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsytrf_" %ZSYTRF) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZSYTRF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsytri_" %ZSYTRI) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (IPIV CFFI-FNV-INT32) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZSYTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("zsytrs_" %ZSYTRS) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (NRHS FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (IPIV CFFI-FNV-INT32)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZSYTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztbcon_" %ZTBCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (AB CFFI-FNV-COMPLEX-DOUBLE) (LDAB FORTRAN-INT)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZTBCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztbrfs_" %ZTBRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZTBRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztbtrs_" %ZTBTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (KD FORTRAN-INT)
              (NRHS FORTRAN-INT) (AB CFFI-FNV-COMPLEX-DOUBLE)
              (LDAB FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZTBTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztgevc_" %ZTGEVC) :VOID (SIDE :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (VL CFFI-FNV-COMPLEX-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-DOUBLE) (LDVR FORTRAN-INT)
              (MM FORTRAN-INT) (M FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZTGEVC :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztgex2_" %ZTGEX2) :VOID (WANTQ FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT) (J1 FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZTGEX2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztgexc_" %ZTGEXC) :VOID (WANTQ FORTRAN-LOGICAL)
              (WANTZ FORTRAN-LOGICAL) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT)
              (IFST FORTRAN-INT) (ILST FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZTGEXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztgsen_" %ZTGSEN) :VOID (IJOB FORTRAN-INT)
              (WANTQ FORTRAN-LOGICAL) (WANTZ FORTRAN-LOGICAL)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (ALPHA CFFI-FNV-COMPLEX-DOUBLE) (BETA CFFI-FNV-COMPLEX-DOUBLE)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (Z CFFI-FNV-COMPLEX-DOUBLE) (LDZ FORTRAN-INT) (M FORTRAN-INT)
              (PL FORTRAN-DOUBLE) (PR FORTRAN-DOUBLE) (DIF CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (LIWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZTGSEN :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztgsja_" %ZTGSJA) :VOID (JOBU :STRING) (JOBV :STRING)
              (JOBQ :STRING) (M FORTRAN-INT) (P FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (TOLA FORTRAN-DOUBLE) (TOLB FORTRAN-DOUBLE)
              (ALPHA CFFI-FNV-DOUBLE) (BETA CFFI-FNV-DOUBLE)
              (U CFFI-FNV-COMPLEX-DOUBLE) (LDU FORTRAN-INT)
              (V CFFI-FNV-COMPLEX-DOUBLE) (LDV FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (NCYCLE FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZTGSJA :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztgsna_" %ZTGSNA) :VOID (JOB :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (VL CFFI-FNV-COMPLEX-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-DOUBLE) (LDVR FORTRAN-INT)
              (S CFFI-FNV-DOUBLE) (DIF CFFI-FNV-DOUBLE) (MM FORTRAN-INT)
              (M FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZTGSNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztgsy2_" %ZTGSY2) :VOID (TRANS :STRING) (IJOB FORTRAN-INT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (D CFFI-FNV-COMPLEX-DOUBLE)
              (LDD FORTRAN-INT) (E CFFI-FNV-COMPLEX-DOUBLE)
              (LDE FORTRAN-INT) (F CFFI-FNV-COMPLEX-DOUBLE)
              (LDF FORTRAN-INT) (SCALE FORTRAN-DOUBLE)
              (RDSUM FORTRAN-DOUBLE) (RDSCAL FORTRAN-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZTGSY2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztgsyl_" %ZTGSYL) :VOID (TRANS :STRING) (IJOB FORTRAN-INT)
              (M FORTRAN-INT) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (D CFFI-FNV-COMPLEX-DOUBLE)
              (LDD FORTRAN-INT) (E CFFI-FNV-COMPLEX-DOUBLE)
              (LDE FORTRAN-INT) (F CFFI-FNV-COMPLEX-DOUBLE)
              (LDF FORTRAN-INT) (SCALE FORTRAN-DOUBLE) (DIF FORTRAN-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (IWORK CFFI-FNV-INT32) (INFO FORTRAN-INT))
(EXPORT '%ZTGSYL :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztpcon_" %ZTPCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (RCOND FORTRAN-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZTPCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztprfs_" %ZTPRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (X CFFI-FNV-COMPLEX-DOUBLE)
              (LDX FORTRAN-INT) (FERR CFFI-FNV-DOUBLE)
              (BERR CFFI-FNV-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (RWORK CFFI-FNV-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZTPRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztptri_" %ZTPTRI) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (AP CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZTPTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztptrs_" %ZTPTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (B CFFI-FNV-COMPLEX-DOUBLE)
              (LDB FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZTPTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrcon_" %ZTRCON) :VOID (NORM :STRING) (UPLO :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (RCOND FORTRAN-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZTRCON :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrevc_" %ZTREVC) :VOID (SIDE :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-DOUBLE) (LDT FORTRAN-INT)
              (VL CFFI-FNV-COMPLEX-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-DOUBLE) (LDVR FORTRAN-INT)
              (MM FORTRAN-INT) (M FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZTREVC :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrexc_" %ZTREXC) :VOID (COMPQ :STRING) (N FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-DOUBLE) (LDT FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (IFST FORTRAN-INT) (ILST FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZTREXC :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrrfs_" %ZTRRFS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (X CFFI-FNV-COMPLEX-DOUBLE) (LDX FORTRAN-INT)
              (FERR CFFI-FNV-DOUBLE) (BERR CFFI-FNV-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZTRRFS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrsen_" %ZTRSEN) :VOID (JOB :STRING) (COMPQ :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-DOUBLE) (LDT FORTRAN-INT)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (W CFFI-FNV-COMPLEX-DOUBLE) (M FORTRAN-INT) (S FORTRAN-DOUBLE)
              (SEP FORTRAN-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZTRSEN :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrsna_" %ZTRSNA) :VOID (JOB :STRING) (HOWMNY :STRING)
              (SELECT CFFI-FNV-INT32) (N FORTRAN-INT)
              (TT CFFI-FNV-COMPLEX-DOUBLE) (LDT FORTRAN-INT)
              (VL CFFI-FNV-COMPLEX-DOUBLE) (LDVL FORTRAN-INT)
              (VR CFFI-FNV-COMPLEX-DOUBLE) (LDVR FORTRAN-INT)
              (S CFFI-FNV-DOUBLE) (SEP CFFI-FNV-DOUBLE) (MM FORTRAN-INT)
              (M FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LDWORK FORTRAN-INT) (RWORK CFFI-FNV-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZTRSNA :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrsyl_" %ZTRSYL) :VOID (TRANA :STRING) (TRANB :STRING)
              (ISGN FORTRAN-INT) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (C CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (SCALE FORTRAN-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZTRSYL :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrti2_" %ZTRTI2) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZTRTI2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrtri_" %ZTRTRI) :VOID (UPLO :STRING) (DIAG :STRING)
              (N FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZTRTRI :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztrtrs_" %ZTRTRS) :VOID (UPLO :STRING) (TRANS :STRING)
              (DIAG :STRING) (N FORTRAN-INT) (NRHS FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (B CFFI-FNV-COMPLEX-DOUBLE) (LDB FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZTRTRS :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztzrqf_" %ZTZRQF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZTZRQF :LAPACK-CFFI)

(CFFI:DEFCFUN ("ztzrzf_" %ZTZRZF) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZTZRZF :LAPACK-CFFI)

(CFFI:DEFCFUN ("zung2l_" %ZUNG2L) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNG2L :LAPACK-CFFI)

(CFFI:DEFCFUN ("zung2r_" %ZUNG2R) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNG2R :LAPACK-CFFI)

(CFFI:DEFCFUN ("zungbr_" %ZUNGBR) :VOID (VECT :STRING) (M FORTRAN-INT)
              (N FORTRAN-INT) (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNGBR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunghr_" %ZUNGHR) :VOID (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNGHR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zungl2_" %ZUNGL2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNGL2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunglq_" %ZUNGLQ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNGLQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("zungql_" %ZUNGQL) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNGQL :LAPACK-CFFI)

(CFFI:DEFCFUN ("zungqr_" %ZUNGQR) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNGQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zungr2_" %ZUNGR2) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNGR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zungrq_" %ZUNGRQ) :VOID (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNGRQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("zungtr_" %ZUNGTR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNGTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunm2l_" %ZUNM2L) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNM2L :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunm2r_" %ZUNM2R) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNM2R :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmbr_" %ZUNMBR) :VOID (VECT :STRING) (SIDE :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (K FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNMBR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmhr_" %ZUNMHR) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (ILO FORTRAN-INT)
              (IHI FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE)
              (LDA FORTRAN-INT) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (C CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (LWORK FORTRAN-INT)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNMHR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunml2_" %ZUNML2) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNML2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmlq_" %ZUNMLQ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNMLQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmql_" %ZUNMQL) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNMQL :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmqr_" %ZUNMQR) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNMQR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmr2_" %ZUNMR2) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNMR2 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmr3_" %ZUNMR3) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (INFO FORTRAN-INT))
(EXPORT '%ZUNMR3 :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmrq_" %ZUNMRQ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNMRQ :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmrz_" %ZUNMRZ) :VOID (SIDE :STRING) (TRANS :STRING)
              (M FORTRAN-INT) (N FORTRAN-INT) (K FORTRAN-INT)
              (L FORTRAN-INT) (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNMRZ :LAPACK-CFFI)

(CFFI:DEFCFUN ("zunmtr_" %ZUNMTR) :VOID (SIDE :STRING) (UPLO :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (A CFFI-FNV-COMPLEX-DOUBLE) (LDA FORTRAN-INT)
              (TAU CFFI-FNV-COMPLEX-DOUBLE) (C CFFI-FNV-COMPLEX-DOUBLE)
              (LDC FORTRAN-INT) (WORK CFFI-FNV-COMPLEX-DOUBLE)
              (LWORK FORTRAN-INT) (INFO FORTRAN-INT))
(EXPORT '%ZUNMTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zupgtr_" %ZUPGTR) :VOID (UPLO :STRING) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (Q CFFI-FNV-COMPLEX-DOUBLE) (LDQ FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZUPGTR :LAPACK-CFFI)

(CFFI:DEFCFUN ("zupmtr_" %ZUPMTR) :VOID (SIDE :STRING) (UPLO :STRING)
              (TRANS :STRING) (M FORTRAN-INT) (N FORTRAN-INT)
              (AP CFFI-FNV-COMPLEX-DOUBLE) (TAU CFFI-FNV-COMPLEX-DOUBLE)
              (C CFFI-FNV-COMPLEX-DOUBLE) (LDC FORTRAN-INT)
              (WORK CFFI-FNV-COMPLEX-DOUBLE) (INFO FORTRAN-INT))
(EXPORT '%ZUPMTR :LAPACK-CFFI)