qm-dsp: include/clapack.h annotate

annotate include/clapack.h @ 209:ccd2019190bf msvc

Some MSVC fixes, including (temporarily, probably) renaming the FFT source file to avoid getting it mixed up with the Vamp SDK one in our object dir

author	Chris Cannam
date	Thu, 01 Feb 2018 16:34:08 +0000
parents	a120ac7b26b2
children

rev	line source
cannam@17	1 /*
cannam@17	2 =================================================================================================
cannam@17	3 Definitions and prototypes for LAPACK as provided Apple Computer.
cannam@17	4
cannam@17	5 Documentation of the LAPACK interfaces, including reference implementations, can be found on the web
cannam@17	6 starting from the LAPACK FAQ page at this URL (verified live as of April 2002):
cannam@17	7 http://netlib.org/lapack/faq.html
cannam@17	8
cannam@17	9 A hardcopy maanual is:
cannam@17	10 LAPACK Users' Guide, Third Edition.
cannam@17	11 @BOOK{laug,
cannam@17	12 AUTHOR = {Anderson, E. and Bai, Z. and Bischof, C. and
cannam@17	13 Blackford, S. and Demmel, J. and Dongarra, J. and
cannam@17	14 Du Croz, J. and Greenbaum, A. and Hammarling, S. and
cannam@17	15 McKenney, A. and Sorensen, D.},
cannam@17	16 TITLE = {{LAPACK} Users' Guide},
cannam@17	17 EDITION = {Third},
cannam@17	18 PUBLISHER = {Society for Industrial and Applied Mathematics},
cannam@17	19 YEAR = {1999},
cannam@17	20 ADDRESS = {Philadelphia, PA},
cannam@17	21 ISBN = {0-89871-447-8 (paperback)} }
cannam@17	22
cannam@17	23 =================================================================================================
cannam@17	24 */
cannam@17	25 #ifndef __CLAPACK_H
cannam@17	26 #define __CLAPACK_H
cannam@17	27
cannam@17	28 #ifdef __cplusplus
cannam@17	29 extern "C" {
cannam@17	30 #endif
cannam@17	31
cannam@17	32
cannam@17	33 #if defined(__LP64__) /* In LP64 match sizes with the 32 bit ABI */
cannam@17	34 typedef int __CLPK_integer;
cannam@17	35 typedef int __CLPK_logical;
cannam@17	36 typedef float __CLPK_real;
cannam@17	37 typedef double __CLPK_doublereal;
cannam@17	38 typedef __CLPK_logical (*__CLPK_L_fp)();
cannam@17	39 typedef int __CLPK_ftnlen;
cannam@17	40 #else
cannam@17	41 typedef long int __CLPK_integer;
cannam@17	42 typedef long int __CLPK_logical;
cannam@17	43 typedef float __CLPK_real;
cannam@17	44 typedef double __CLPK_doublereal;
cannam@17	45 typedef __CLPK_logical (*__CLPK_L_fp)();
cannam@17	46 typedef long int __CLPK_ftnlen;
cannam@17	47 #endif
cannam@17	48
cannam@17	49 typedef struct { __CLPK_real r, i; } __CLPK_complex;
cannam@17	50 typedef struct { __CLPK_doublereal r, i; } __CLPK_doublecomplex;
cannam@17	51
cannam@17	52 /* Subroutine / int cbdsqr_(char uplo, __CLPK_integer n, __CLPK_integer ncvt, __CLPK_integer *
cannam@17	53 nru, __CLPK_integer ncc, __CLPK_real d__, __CLPK_real e, __CLPK_complex vt, __CLPK_integer *ldvt,
cannam@17	54 __CLPK_complex u, __CLPK_integer ldu, __CLPK_complex c__, __CLPK_integer ldc, __CLPK_real *rwork,
cannam@17	55 __CLPK_integer *info);
cannam@17	56
cannam@17	57 /* Subroutine / int cgbbrd_(char vect, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *ncc,
cannam@17	58 __CLPK_integer kl, __CLPK_integer ku, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real *d__,
cannam@17	59 __CLPK_real e, __CLPK_complex q, __CLPK_integer ldq, __CLPK_complex pt, __CLPK_integer *ldpt,
cannam@17	60 __CLPK_complex c__, __CLPK_integer ldc, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	61
cannam@17	62 /* Subroutine / int cgbcon_(char norm, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	63 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_real anorm, __CLPK_real *rcond,
cannam@17	64 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	65
cannam@17	66 /* Subroutine / int cgbequ_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	67 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real r__, __CLPK_real c__, __CLPK_real *rowcnd, __CLPK_real
cannam@17	68 colcnd, __CLPK_real amax, __CLPK_integer *info);
cannam@17	69
cannam@17	70 /* Subroutine / int cgbrfs_(char trans, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *
cannam@17	71 ku, __CLPK_integer nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex afb, __CLPK_integer *
cannam@17	72 ldafb, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer *
cannam@17	73 ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *
cannam@17	74 info);
cannam@17	75
cannam@17	76 /* Subroutine / int cgbsv_(__CLPK_integer n, __CLPK_integer kl, __CLPK_integer ku, __CLPK_integer *
cannam@17	77 nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer *
cannam@17	78 ldb, __CLPK_integer *info);
cannam@17	79
cannam@17	80 /* Subroutine / int cgbsvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *kl,
cannam@17	81 __CLPK_integer ku, __CLPK_integer nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex *afb,
cannam@17	82 __CLPK_integer ldafb, __CLPK_integer ipiv, char equed, __CLPK_real r__, __CLPK_real *c__,
cannam@17	83 __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real *rcond, __CLPK_real
cannam@17	84 ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	85
cannam@17	86 /* Subroutine / int cgbtf2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	87 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	88
cannam@17	89 /* Subroutine / int cgbtrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	90 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	91
cannam@17	92 /* Subroutine / int cgbtrs_(char trans, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *
cannam@17	93 ku, __CLPK_integer nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_complex
cannam@17	94 b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	95
cannam@17	96 /* Subroutine / int cgebak_(char job, char side, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	97 __CLPK_integer ihi, __CLPK_real scale, __CLPK_integer m, __CLPK_complex v, __CLPK_integer *ldv,
cannam@17	98 __CLPK_integer *info);
cannam@17	99
cannam@17	100 /* Subroutine / int cgebal_(char job, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	101 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real scale, __CLPK_integer info);
cannam@17	102
cannam@17	103 /* Subroutine / int cgebd2_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	104 __CLPK_real d__, __CLPK_real e, __CLPK_complex tauq, __CLPK_complex taup, __CLPK_complex *work,
cannam@17	105 __CLPK_integer *info);
cannam@17	106
cannam@17	107 /* Subroutine / int cgebrd_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	108 __CLPK_real d__, __CLPK_real e, __CLPK_complex tauq, __CLPK_complex taup, __CLPK_complex *work,
cannam@17	109 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	110
cannam@17	111 /* Subroutine / int cgecon_(char norm, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	112 __CLPK_real anorm, __CLPK_real rcond, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	113
cannam@17	114 /* Subroutine / int cgeequ_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	115 __CLPK_real r__, __CLPK_real c__, __CLPK_real rowcnd, __CLPK_real colcnd, __CLPK_real *amax,
cannam@17	116 __CLPK_integer *info);
cannam@17	117
cannam@17	118 /* Subroutine / int cgees_(char jobvs, char sort, __CLPK_L_fp select, __CLPK_integer n,
cannam@17	119 __CLPK_complex a, __CLPK_integer lda, __CLPK_integer sdim, __CLPK_complex w, __CLPK_complex *vs,
cannam@17	120 __CLPK_integer ldvs, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_logical *
cannam@17	121 bwork, __CLPK_integer *info);
cannam@17	122
cannam@17	123 /* Subroutine / int cgeesx_(char jobvs, char sort, __CLPK_L_fp select, char
cannam@17	124 sense, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_integer sdim, __CLPK_complex *
cannam@17	125 w, __CLPK_complex vs, __CLPK_integer ldvs, __CLPK_real rconde, __CLPK_real rcondv, __CLPK_complex *
cannam@17	126 work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_logical bwork, __CLPK_integer info);
cannam@17	127
cannam@17	128 /* Subroutine / int cgeev_(char jobvl, char jobvr, __CLPK_integer n, __CLPK_complex *a,
cannam@17	129 __CLPK_integer lda, __CLPK_complex w, __CLPK_complex vl, __CLPK_integer ldvl, __CLPK_complex *vr,
cannam@17	130 __CLPK_integer ldvr, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *
cannam@17	131 info);
cannam@17	132
cannam@17	133 /* Subroutine / int cgeevx_(char balanc, char jobvl, char jobvr, char *
cannam@17	134 sense, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex w, __CLPK_complex *vl,
cannam@17	135 __CLPK_integer ldvl, __CLPK_complex vr, __CLPK_integer ldvr, __CLPK_integer ilo, __CLPK_integer *ihi,
cannam@17	136 __CLPK_real scale, __CLPK_real abnrm, __CLPK_real rconde, __CLPK_real rcondv, __CLPK_complex *work,
cannam@17	137 __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	138
cannam@17	139 /* Subroutine / int cgegs_(char jobvsl, char jobvsr, __CLPK_integer n, __CLPK_complex *
cannam@17	140 a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex alpha, __CLPK_complex *
cannam@17	141 beta, __CLPK_complex vsl, __CLPK_integer ldvsl, __CLPK_complex vsr, __CLPK_integer ldvsr,
cannam@17	142 __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer info);
cannam@17	143
cannam@17	144 /* Subroutine / int cgegv_(char jobvl, char jobvr, __CLPK_integer n, __CLPK_complex *a,
cannam@17	145 __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex alpha, __CLPK_complex *beta,
cannam@17	146 __CLPK_complex vl, __CLPK_integer ldvl, __CLPK_complex vr, __CLPK_integer ldvr, __CLPK_complex *
cannam@17	147 work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	148
cannam@17	149 /* Subroutine / int cgehd2_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_complex *
cannam@17	150 a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer info);
cannam@17	151
cannam@17	152 /* Subroutine / int cgehrd_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_complex *
cannam@17	153 a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer
cannam@17	154 *info);
cannam@17	155
cannam@17	156 /* Subroutine / int cgelq2_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	157 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer *info);
cannam@17	158
cannam@17	159 /* Subroutine / int cgelqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	160 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	161
cannam@17	162 /* Subroutine / int cgels_(char trans, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *
cannam@17	163 nrhs, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *
cannam@17	164 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	165
cannam@17	166 /* Subroutine / int cgelsx_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	167 a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer jpvt, __CLPK_real *rcond,
cannam@17	168 __CLPK_integer rank, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer info);
cannam@17	169
cannam@17	170 /* Subroutine / int cgelsy_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	171 a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer jpvt, __CLPK_real *rcond,
cannam@17	172 __CLPK_integer rank, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *
cannam@17	173 info);
cannam@17	174
cannam@17	175 /* Subroutine / int cgeql2_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	176 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer *info);
cannam@17	177
cannam@17	178 /* Subroutine / int cgeqlf_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	179 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	180
cannam@17	181 /* Subroutine / int cgeqp3_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	182 __CLPK_integer jpvt, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real *
cannam@17	183 rwork, __CLPK_integer *info);
cannam@17	184
cannam@17	185 /* Subroutine / int cgeqpf_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	186 __CLPK_integer jpvt, __CLPK_complex tau, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *
cannam@17	187 info);
cannam@17	188
cannam@17	189 /* Subroutine / int cgeqr2_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	190 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer *info);
cannam@17	191
cannam@17	192 /* Subroutine / int cgeqrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	193 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	194
cannam@17	195 /* Subroutine / int cgerfs_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	196 a, __CLPK_integer lda, __CLPK_complex af, __CLPK_integer ldaf, __CLPK_integer ipiv, __CLPK_complex *
cannam@17	197 b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real *berr,
cannam@17	198 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	199
cannam@17	200 /* Subroutine / int cgerq2_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	201 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer *info);
cannam@17	202
cannam@17	203 /* Subroutine / int cgerqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	204 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	205
cannam@17	206 /* Subroutine / int cgesc2_(__CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex *
cannam@17	207 rhs, __CLPK_integer ipiv, __CLPK_integer jpiv, __CLPK_real *scale);
cannam@17	208
cannam@17	209 /* Subroutine / int cgesv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex a, __CLPK_integer *
cannam@17	210 lda, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	211
cannam@17	212 /* Subroutine / int cgesvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *
cannam@17	213 nrhs, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex af, __CLPK_integer ldaf, __CLPK_integer *
cannam@17	214 ipiv, char equed, __CLPK_real r__, __CLPK_real c__, __CLPK_complex b, __CLPK_integer *ldb,
cannam@17	215 __CLPK_complex x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real *berr,
cannam@17	216 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	217
cannam@17	218 /* Subroutine / int cgetc2_(__CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_integer *
cannam@17	219 ipiv, __CLPK_integer jpiv, __CLPK_integer info);
cannam@17	220
cannam@17	221 /* Subroutine / int cgetf2_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	222 __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	223
cannam@17	224 /* Subroutine / int cgetrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	225 __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	226
cannam@17	227 /* Subroutine / int cgetri_(__CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_integer *
cannam@17	228 ipiv, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	229
cannam@17	230 /* Subroutine / int cgetrs_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	231 a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	232 info);
cannam@17	233
cannam@17	234 /* Subroutine / int cggbak_(char job, char side, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	235 __CLPK_integer ihi, __CLPK_real lscale, __CLPK_real rscale, __CLPK_integer m, __CLPK_complex *v,
cannam@17	236 __CLPK_integer ldv, __CLPK_integer info);
cannam@17	237
cannam@17	238 /* Subroutine / int cggbal_(char job, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	239 __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real *lscale,
cannam@17	240 __CLPK_real rscale, __CLPK_real work, __CLPK_integer *info);
cannam@17	241
cannam@17	242 /* Subroutine / int cgges_(char jobvsl, char jobvsr, char sort, __CLPK_L_fp
cannam@17	243 selctg, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *
cannam@17	244 ldb, __CLPK_integer sdim, __CLPK_complex alpha, __CLPK_complex beta, __CLPK_complex vsl,
cannam@17	245 __CLPK_integer ldvsl, __CLPK_complex vsr, __CLPK_integer ldvsr, __CLPK_complex work, __CLPK_integer *
cannam@17	246 lwork, __CLPK_real rwork, __CLPK_logical bwork, __CLPK_integer *info);
cannam@17	247
cannam@17	248 /* Subroutine / int cggesx_(char jobvsl, char jobvsr, char sort, __CLPK_L_fp
cannam@17	249 selctg, char sense, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex *b,
cannam@17	250 __CLPK_integer ldb, __CLPK_integer sdim, __CLPK_complex alpha, __CLPK_complex beta, __CLPK_complex *
cannam@17	251 vsl, __CLPK_integer ldvsl, __CLPK_complex vsr, __CLPK_integer ldvsr, __CLPK_real rconde, __CLPK_real
cannam@17	252 rcondv, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *iwork,
cannam@17	253 __CLPK_integer liwork, __CLPK_logical bwork, __CLPK_integer *info);
cannam@17	254
cannam@17	255 /* Subroutine / int cggev_(char jobvl, char jobvr, __CLPK_integer n, __CLPK_complex *a,
cannam@17	256 __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex alpha, __CLPK_complex *beta,
cannam@17	257 __CLPK_complex vl, __CLPK_integer ldvl, __CLPK_complex vr, __CLPK_integer ldvr, __CLPK_complex *
cannam@17	258 work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	259
cannam@17	260 /* Subroutine / int cggevx_(char balanc, char jobvl, char jobvr, char *
cannam@17	261 sense, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *ldb,
cannam@17	262 __CLPK_complex alpha, __CLPK_complex beta, __CLPK_complex vl, __CLPK_integer ldvl, __CLPK_complex *
cannam@17	263 vr, __CLPK_integer ldvr, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real lscale, __CLPK_real *
cannam@17	264 rscale, __CLPK_real abnrm, __CLPK_real bbnrm, __CLPK_real rconde, __CLPK_real rcondv, __CLPK_complex
cannam@17	265 work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer iwork, __CLPK_logical *bwork,
cannam@17	266 __CLPK_integer *info);
cannam@17	267
cannam@17	268 /* Subroutine / int cggglm_(__CLPK_integer n, __CLPK_integer m, __CLPK_integer p, __CLPK_complex *a,
cannam@17	269 __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex d__, __CLPK_complex *x,
cannam@17	270 __CLPK_complex y, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	271
cannam@17	272 /* Subroutine / int cgghrd_(char compq, char compz, __CLPK_integer n, __CLPK_integer *
cannam@17	273 ilo, __CLPK_integer ihi, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *ldb,
cannam@17	274 __CLPK_complex q, __CLPK_integer ldq, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_integer *info);
cannam@17	275
cannam@17	276 /* Subroutine / int cgglse_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer p, __CLPK_complex *a,
cannam@17	277 __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex c__, __CLPK_complex *d__,
cannam@17	278 __CLPK_complex x, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	279
cannam@17	280 /* Subroutine / int cggqrf_(__CLPK_integer n, __CLPK_integer m, __CLPK_integer p, __CLPK_complex *a,
cannam@17	281 __CLPK_integer lda, __CLPK_complex taua, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *taub,
cannam@17	282 __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	283
cannam@17	284 /* Subroutine / int cggrqf_(__CLPK_integer m, __CLPK_integer p, __CLPK_integer n, __CLPK_complex *a,
cannam@17	285 __CLPK_integer lda, __CLPK_complex taua, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *taub,
cannam@17	286 __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	287
cannam@17	288 /* Subroutine / int cggsvd_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	289 __CLPK_integer n, __CLPK_integer p, __CLPK_integer k, __CLPK_integer l, __CLPK_complex a, __CLPK_integer
cannam@17	290 lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_real alpha, __CLPK_real beta, __CLPK_complex *u,
cannam@17	291 __CLPK_integer ldu, __CLPK_complex v, __CLPK_integer ldv, __CLPK_complex q, __CLPK_integer *ldq,
cannam@17	292 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	293
cannam@17	294 /* Subroutine / int cggsvp_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	295 __CLPK_integer p, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex *b, __CLPK_integer
cannam@17	296 ldb, __CLPK_real tola, __CLPK_real tolb, __CLPK_integer k, __CLPK_integer l, __CLPK_complex u,
cannam@17	297 __CLPK_integer ldu, __CLPK_complex v, __CLPK_integer ldv, __CLPK_complex q, __CLPK_integer *ldq,
cannam@17	298 __CLPK_integer iwork, __CLPK_real rwork, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer *
cannam@17	299 info);
cannam@17	300
cannam@17	301 /* Subroutine / int cgtcon_(char norm, __CLPK_integer n, __CLPK_complex dl, __CLPK_complex *
cannam@17	302 d__, __CLPK_complex du, __CLPK_complex du2, __CLPK_integer ipiv, __CLPK_real anorm, __CLPK_real *
cannam@17	303 rcond, __CLPK_complex work, __CLPK_integer info);
cannam@17	304
cannam@17	305 /* Subroutine / int cgtrfs_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	306 dl, __CLPK_complex d__, __CLPK_complex du, __CLPK_complex dlf, __CLPK_complex df, __CLPK_complex *
cannam@17	307 duf, __CLPK_complex du2, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *
cannam@17	308 x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	309 __CLPK_integer *info);
cannam@17	310
cannam@17	311 /* Subroutine / int cgtsv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex dl, __CLPK_complex *
cannam@17	312 d__, __CLPK_complex du, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	313
cannam@17	314 /* Subroutine / int cgtsvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *
cannam@17	315 nrhs, __CLPK_complex dl, __CLPK_complex d__, __CLPK_complex du, __CLPK_complex dlf, __CLPK_complex *
cannam@17	316 df, __CLPK_complex duf, __CLPK_complex du2, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer *
cannam@17	317 ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real *berr,
cannam@17	318 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	319
cannam@17	320 /* Subroutine / int cgttrf_(__CLPK_integer n, __CLPK_complex dl, __CLPK_complex d__, __CLPK_complex *
cannam@17	321 du, __CLPK_complex du2, __CLPK_integer ipiv, __CLPK_integer *info);
cannam@17	322
cannam@17	323 /* Subroutine / int cgttrs_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	324 dl, __CLPK_complex d__, __CLPK_complex du, __CLPK_complex du2, __CLPK_integer ipiv, __CLPK_complex *
cannam@17	325 b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	326
cannam@17	327 /* Subroutine / int cgtts2_(__CLPK_integer itrans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	328 __CLPK_complex dl, __CLPK_complex d__, __CLPK_complex du, __CLPK_complex du2, __CLPK_integer *ipiv,
cannam@17	329 __CLPK_complex b, __CLPK_integer ldb);
cannam@17	330
cannam@17	331 /* Subroutine / int chbev_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	332 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real w, __CLPK_complex z__, __CLPK_integer *ldz,
cannam@17	333 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	334
cannam@17	335 /* Subroutine / int chbevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	336 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real w, __CLPK_complex z__, __CLPK_integer *ldz,
cannam@17	337 __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer lrwork, __CLPK_integer *
cannam@17	338 iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	339
cannam@17	340 /* Subroutine / int chbevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	341 __CLPK_integer kd, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex q, __CLPK_integer *ldq,
cannam@17	342 __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol, __CLPK_integer
cannam@17	343 m, __CLPK_real w, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	344 __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer *info);
cannam@17	345
cannam@17	346 /* Subroutine / int chbgst_(char vect, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	347 __CLPK_integer kb, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex bb, __CLPK_integer *ldbb,
cannam@17	348 __CLPK_complex x, __CLPK_integer ldx, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	349
cannam@17	350 /* Subroutine / int chbgv_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	351 __CLPK_integer kb, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex bb, __CLPK_integer *ldbb,
cannam@17	352 __CLPK_real w, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	353 __CLPK_integer *info);
cannam@17	354
cannam@17	355 /* Subroutine / int chbgvx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	356 __CLPK_integer ka, __CLPK_integer kb, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex *bb,
cannam@17	357 __CLPK_integer ldbb, __CLPK_complex q, __CLPK_integer ldq, __CLPK_real vl, __CLPK_real vu, __CLPK_integer
cannam@17	358 il, __CLPK_integer iu, __CLPK_real abstol, __CLPK_integer m, __CLPK_real w, __CLPK_complex *z__,
cannam@17	359 __CLPK_integer ldz, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer iwork, __CLPK_integer *
cannam@17	360 ifail, __CLPK_integer *info);
cannam@17	361
cannam@17	362 /* Subroutine / int chbtrd_(char vect, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	363 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real d__, __CLPK_real e, __CLPK_complex q, __CLPK_integer
cannam@17	364 ldq, __CLPK_complex work, __CLPK_integer info);
cannam@17	365
cannam@17	366 /* Subroutine / int checon_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	367 __CLPK_integer ipiv, __CLPK_real anorm, __CLPK_real rcond, __CLPK_complex work, __CLPK_integer *
cannam@17	368 info);
cannam@17	369
cannam@17	370 /* Subroutine / int cheev_(char jobz, char uplo, __CLPK_integer n, __CLPK_complex *a,
cannam@17	371 __CLPK_integer lda, __CLPK_real w, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real *rwork,
cannam@17	372 __CLPK_integer *info);
cannam@17	373
cannam@17	374 /* Subroutine / int cheevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_complex *a,
cannam@17	375 __CLPK_integer lda, __CLPK_real w, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real *rwork,
cannam@17	376 __CLPK_integer lrwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	377
cannam@17	378 /* Subroutine / int cheevr_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	379 __CLPK_complex a, __CLPK_integer lda, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer
cannam@17	380 iu, __CLPK_real abstol, __CLPK_integer m, __CLPK_real w, __CLPK_complex z__, __CLPK_integer *ldz,
cannam@17	381 __CLPK_integer isuppz, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *
cannam@17	382 lrwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer *info);
cannam@17	383
cannam@17	384 /* Subroutine / int cheevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	385 __CLPK_complex a, __CLPK_integer lda, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer
cannam@17	386 iu, __CLPK_real abstol, __CLPK_integer m, __CLPK_real w, __CLPK_complex z__, __CLPK_integer *ldz,
cannam@17	387 __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer iwork, __CLPK_integer *
cannam@17	388 ifail, __CLPK_integer *info);
cannam@17	389
cannam@17	390 /* Subroutine / int chegs2_(__CLPK_integer itype, char uplo, __CLPK_integer n, __CLPK_complex *
cannam@17	391 a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	392
cannam@17	393 /* Subroutine / int chegst_(__CLPK_integer itype, char uplo, __CLPK_integer n, __CLPK_complex *
cannam@17	394 a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	395
cannam@17	396 /* Subroutine / int chegv_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	397 n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_real *w,
cannam@17	398 __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer info);
cannam@17	399
cannam@17	400 /* Subroutine / int chegvd_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	401 n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_real *w,
cannam@17	402 __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer lrwork, __CLPK_integer *
cannam@17	403 iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	404
cannam@17	405 /* Subroutine / int chegvx_(__CLPK_integer itype, char jobz, char range, char *
cannam@17	406 uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *ldb,
cannam@17	407 __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol, __CLPK_integer
cannam@17	408 m, __CLPK_real w, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_complex work, __CLPK_integer *lwork,
cannam@17	409 __CLPK_real rwork, __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer info);
cannam@17	410
cannam@17	411 /* Subroutine / int cherfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	412 a, __CLPK_integer lda, __CLPK_complex af, __CLPK_integer ldaf, __CLPK_integer ipiv, __CLPK_complex *
cannam@17	413 b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real *berr,
cannam@17	414 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	415
cannam@17	416 /* Subroutine / int chesv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *a,
cannam@17	417 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *work,
cannam@17	418 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	419
cannam@17	420 /* Subroutine / int chesvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	421 nrhs, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex af, __CLPK_integer ldaf, __CLPK_integer *
cannam@17	422 ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real *rcond,
cannam@17	423 __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real *rwork,
cannam@17	424 __CLPK_integer *info);
cannam@17	425
cannam@17	426 /* Subroutine / int chetf2_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	427 __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	428
cannam@17	429 /* Subroutine / int chetrd_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	430 __CLPK_real d__, __CLPK_real e, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer *lwork,
cannam@17	431 __CLPK_integer *info);
cannam@17	432
cannam@17	433 /* Subroutine / int chetrf_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	434 __CLPK_integer ipiv, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	435
cannam@17	436 /* Subroutine / int chetri_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	437 __CLPK_integer ipiv, __CLPK_complex work, __CLPK_integer *info);
cannam@17	438
cannam@17	439 /* Subroutine / int chetrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	440 a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	441 info);
cannam@17	442
cannam@17	443 /* Subroutine / int chgeqz_(char job, char compq, char compz, __CLPK_integer *n,
cannam@17	444 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex *b,
cannam@17	445 __CLPK_integer ldb, __CLPK_complex alpha, __CLPK_complex beta, __CLPK_complex q, __CLPK_integer *ldq,
cannam@17	446 __CLPK_complex z__, __CLPK_integer ldz, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real *
cannam@17	447 rwork, __CLPK_integer *info);
cannam@17	448
cannam@17	449 /* Subroutine / int chpcon_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_integer *
cannam@17	450 ipiv, __CLPK_real anorm, __CLPK_real rcond, __CLPK_complex work, __CLPK_integer info);
cannam@17	451
cannam@17	452 /* Subroutine / int chpev_(char jobz, char uplo, __CLPK_integer n, __CLPK_complex *ap,
cannam@17	453 __CLPK_real w, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	454 __CLPK_integer *info);
cannam@17	455
cannam@17	456 /* Subroutine / int chpevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_complex *ap,
cannam@17	457 __CLPK_real w, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_complex work, __CLPK_integer *lwork,
cannam@17	458 __CLPK_real rwork, __CLPK_integer lrwork, __CLPK_integer iwork, __CLPK_integer liwork,
cannam@17	459 __CLPK_integer *info);
cannam@17	460
cannam@17	461 /* Subroutine / int chpevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	462 __CLPK_complex ap, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real
cannam@17	463 abstol, __CLPK_integer m, __CLPK_real w, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_complex *
cannam@17	464 work, __CLPK_real rwork, __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer info);
cannam@17	465
cannam@17	466 /* Subroutine / int chpgst_(__CLPK_integer itype, char uplo, __CLPK_integer n, __CLPK_complex *
cannam@17	467 ap, __CLPK_complex bp, __CLPK_integer info);
cannam@17	468
cannam@17	469 /* Subroutine / int chpgv_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	470 n, __CLPK_complex ap, __CLPK_complex bp, __CLPK_real w, __CLPK_complex z__, __CLPK_integer *ldz,
cannam@17	471 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	472
cannam@17	473 /* Subroutine / int chpgvd_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	474 n, __CLPK_complex ap, __CLPK_complex bp, __CLPK_real w, __CLPK_complex z__, __CLPK_integer *ldz,
cannam@17	475 __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer lrwork, __CLPK_integer *
cannam@17	476 iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	477
cannam@17	478 /* Subroutine / int chpgvx_(__CLPK_integer itype, char jobz, char range, char *
cannam@17	479 uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_complex bp, __CLPK_real vl, __CLPK_real *vu,
cannam@17	480 __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol, __CLPK_integer m, __CLPK_real w, __CLPK_complex
cannam@17	481 z__, __CLPK_integer ldz, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer iwork,
cannam@17	482 __CLPK_integer ifail, __CLPK_integer info);
cannam@17	483
cannam@17	484 /* Subroutine / int chprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	485 ap, __CLPK_complex afp, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *x,
cannam@17	486 __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	487 __CLPK_integer *info);
cannam@17	488
cannam@17	489 /* Subroutine / int chpsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	490 ap, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	491
cannam@17	492 /* Subroutine / int chpsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	493 nrhs, __CLPK_complex ap, __CLPK_complex afp, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer *
cannam@17	494 ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real *berr,
cannam@17	495 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	496
cannam@17	497 /* Subroutine / int chptrd_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_real *d__,
cannam@17	498 __CLPK_real e, __CLPK_complex tau, __CLPK_integer *info);
cannam@17	499
cannam@17	500 /* Subroutine / int chptrf_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_integer *
cannam@17	501 ipiv, __CLPK_integer *info);
cannam@17	502
cannam@17	503 /* Subroutine / int chptri_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_integer *
cannam@17	504 ipiv, __CLPK_complex work, __CLPK_integer info);
cannam@17	505
cannam@17	506 /* Subroutine / int chptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	507 ap, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	508
cannam@17	509 /* Subroutine / int chsein_(char side, char eigsrc, char initv, __CLPK_logical *
cannam@17	510 select, __CLPK_integer n, __CLPK_complex h__, __CLPK_integer ldh, __CLPK_complex w, __CLPK_complex *
cannam@17	511 vl, __CLPK_integer ldvl, __CLPK_complex vr, __CLPK_integer ldvr, __CLPK_integer mm, __CLPK_integer *
cannam@17	512 m, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer ifaill, __CLPK_integer ifailr,
cannam@17	513 __CLPK_integer *info);
cannam@17	514
cannam@17	515 /* Subroutine / int chseqr_(char job, char compz, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	516 __CLPK_integer ihi, __CLPK_complex h__, __CLPK_integer ldh, __CLPK_complex w, __CLPK_complex *z__,
cannam@17	517 __CLPK_integer ldz, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	518
cannam@17	519 /* Subroutine / int clabrd_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nb, __CLPK_complex *a,
cannam@17	520 __CLPK_integer lda, __CLPK_real d__, __CLPK_real e, __CLPK_complex tauq, __CLPK_complex *taup,
cannam@17	521 __CLPK_complex x, __CLPK_integer ldx, __CLPK_complex y, __CLPK_integer ldy);
cannam@17	522
cannam@17	523 /* Subroutine / int clacgv_(__CLPK_integer n, __CLPK_complex x, __CLPK_integer incx);
cannam@17	524
cannam@17	525 /* Subroutine / int clacon_(__CLPK_integer n, __CLPK_complex v, __CLPK_complex x, __CLPK_real *est,
cannam@17	526 __CLPK_integer *kase);
cannam@17	527
cannam@17	528 /* Subroutine / int clacp2_(char uplo, __CLPK_integer m, __CLPK_integer n, __CLPK_real *a,
cannam@17	529 __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *ldb);
cannam@17	530
cannam@17	531 /* Subroutine / int clacpy_(char uplo, __CLPK_integer m, __CLPK_integer n, __CLPK_complex *a,
cannam@17	532 __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *ldb);
cannam@17	533
cannam@17	534 /* Subroutine / int clacrm_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	535 __CLPK_real b, __CLPK_integer ldb, __CLPK_complex c__, __CLPK_integer ldc, __CLPK_real *rwork);
cannam@17	536
cannam@17	537 /* Subroutine / int clacrt_(__CLPK_integer n, __CLPK_complex cx, __CLPK_integer incx, __CLPK_complex *
cannam@17	538 cy, __CLPK_integer incy, __CLPK_complex c__, __CLPK_complex *s);
cannam@17	539
cannam@17	540 /* Subroutine / int claed0_(__CLPK_integer qsiz, __CLPK_integer n, __CLPK_real d__, __CLPK_real *e,
cannam@17	541 __CLPK_complex q, __CLPK_integer ldq, __CLPK_complex qstore, __CLPK_integer ldqs, __CLPK_real *rwork,
cannam@17	542 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	543
cannam@17	544 /* Subroutine / int claed7_(__CLPK_integer n, __CLPK_integer cutpnt, __CLPK_integer qsiz,
cannam@17	545 __CLPK_integer tlvls, __CLPK_integer curlvl, __CLPK_integer curpbm, __CLPK_real d__, __CLPK_complex *
cannam@17	546 q, __CLPK_integer ldq, __CLPK_real rho, __CLPK_integer indxq, __CLPK_real qstore, __CLPK_integer *
cannam@17	547 qptr, __CLPK_integer prmptr, __CLPK_integer perm, __CLPK_integer givptr, __CLPK_integer
cannam@17	548 givcol, __CLPK_real givnum, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer iwork,
cannam@17	549 __CLPK_integer *info);
cannam@17	550
cannam@17	551 /* Subroutine / int claed8_(__CLPK_integer k, __CLPK_integer n, __CLPK_integer qsiz, __CLPK_complex *
cannam@17	552 q, __CLPK_integer ldq, __CLPK_real d__, __CLPK_real rho, __CLPK_integer cutpnt, __CLPK_real *z__,
cannam@17	553 __CLPK_real dlamda, __CLPK_complex q2, __CLPK_integer ldq2, __CLPK_real w, __CLPK_integer *indxp,
cannam@17	554 __CLPK_integer indx, __CLPK_integer indxq, __CLPK_integer perm, __CLPK_integer givptr,
cannam@17	555 __CLPK_integer givcol, __CLPK_real givnum, __CLPK_integer *info);
cannam@17	556
cannam@17	557 /* Subroutine / int claein_(__CLPK_logical rightv, __CLPK_logical noinit, __CLPK_integer n,
cannam@17	558 __CLPK_complex h__, __CLPK_integer ldh, __CLPK_complex w, __CLPK_complex v, __CLPK_complex *b,
cannam@17	559 __CLPK_integer ldb, __CLPK_real rwork, __CLPK_real eps3, __CLPK_real smlnum, __CLPK_integer *info);
cannam@17	560
cannam@17	561 /* Subroutine / int claesy_(__CLPK_complex a, __CLPK_complex b, __CLPK_complex c__, __CLPK_complex *
cannam@17	562 rt1, __CLPK_complex rt2, __CLPK_complex evscal, __CLPK_complex cs1, __CLPK_complex sn1);
cannam@17	563
cannam@17	564 /* Subroutine / int claev2_(__CLPK_complex a, __CLPK_complex b, __CLPK_complex c__, __CLPK_real *rt1,
cannam@17	565 __CLPK_real rt2, __CLPK_real cs1, __CLPK_complex *sn1);
cannam@17	566
cannam@17	567 /* Subroutine / int clags2_(__CLPK_logical upper, __CLPK_real a1, __CLPK_complex a2, __CLPK_real *a3,
cannam@17	568 __CLPK_real b1, __CLPK_complex b2, __CLPK_real b3, __CLPK_real csu, __CLPK_complex snu, __CLPK_real csv,
cannam@17	569 __CLPK_complex snv, __CLPK_real csq, __CLPK_complex *snq);
cannam@17	570
cannam@17	571 /* Subroutine / int clagtm_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *
cannam@17	572 alpha, __CLPK_complex dl, __CLPK_complex d__, __CLPK_complex du, __CLPK_complex x, __CLPK_integer *
cannam@17	573 ldx, __CLPK_real beta, __CLPK_complex b, __CLPK_integer *ldb);
cannam@17	574
cannam@17	575 /* Subroutine / int clahef_(char uplo, __CLPK_integer n, __CLPK_integer nb, __CLPK_integer *kb,
cannam@17	576 __CLPK_complex a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_complex w, __CLPK_integer *ldw,
cannam@17	577 __CLPK_integer *info);
cannam@17	578
cannam@17	579 /* Subroutine / int clahqr_(__CLPK_logical wantt, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	580 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_complex h__, __CLPK_integer ldh, __CLPK_complex *w,
cannam@17	581 __CLPK_integer iloz, __CLPK_integer ihiz, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_integer *
cannam@17	582 info);
cannam@17	583
cannam@17	584 /* Subroutine / int clahrd_(__CLPK_integer n, __CLPK_integer k, __CLPK_integer nb, __CLPK_complex *a,
cannam@17	585 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex t, __CLPK_integer ldt, __CLPK_complex *y,
cannam@17	586 __CLPK_integer *ldy);
cannam@17	587
cannam@17	588 /* Subroutine / int claic1_(__CLPK_integer job, __CLPK_integer j, __CLPK_complex x, __CLPK_real *sest,
cannam@17	589 __CLPK_complex w, __CLPK_complex gamma, __CLPK_real sestpr, __CLPK_complex s, __CLPK_complex *c__);
cannam@17	590
cannam@17	591 /* Subroutine / int clals0_(__CLPK_integer icompq, __CLPK_integer nl, __CLPK_integer nr,
cannam@17	592 __CLPK_integer sqre, __CLPK_integer nrhs, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *bx,
cannam@17	593 __CLPK_integer ldbx, __CLPK_integer perm, __CLPK_integer givptr, __CLPK_integer givcol,
cannam@17	594 __CLPK_integer ldgcol, __CLPK_real givnum, __CLPK_integer ldgnum, __CLPK_real poles, __CLPK_real *
cannam@17	595 difl, __CLPK_real difr, __CLPK_real z__, __CLPK_integer k, __CLPK_real c__, __CLPK_real s, __CLPK_real
cannam@17	596 rwork, __CLPK_integer *info);
cannam@17	597
cannam@17	598 /* Subroutine / int clalsa_(__CLPK_integer icompq, __CLPK_integer smlsiz, __CLPK_integer n,
cannam@17	599 __CLPK_integer nrhs, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex bx, __CLPK_integer *ldbx,
cannam@17	600 __CLPK_real u, __CLPK_integer ldu, __CLPK_real vt, __CLPK_integer k, __CLPK_real difl, __CLPK_real difr,
cannam@17	601 __CLPK_real z__, __CLPK_real poles, __CLPK_integer givptr, __CLPK_integer givcol, __CLPK_integer *
cannam@17	602 ldgcol, __CLPK_integer perm, __CLPK_real givnum, __CLPK_real c__, __CLPK_real s, __CLPK_real *rwork,
cannam@17	603 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	604
cannam@17	605 /* Subroutine / int clapll_(__CLPK_integer n, __CLPK_complex x, __CLPK_integer incx, __CLPK_complex *
cannam@17	606 y, __CLPK_integer incy, __CLPK_real ssmin);
cannam@17	607
cannam@17	608 /* Subroutine / int clapmt_(__CLPK_logical forwrd, __CLPK_integer m, __CLPK_integer n, __CLPK_complex
cannam@17	609 x, __CLPK_integer ldx, __CLPK_integer *k);
cannam@17	610
cannam@17	611 /* Subroutine / int claqgb_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	612 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real r__, __CLPK_real c__, __CLPK_real *rowcnd, __CLPK_real
cannam@17	613 colcnd, __CLPK_real amax, char *equed);
cannam@17	614
cannam@17	615 /* Subroutine / int claqge_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	616 __CLPK_real r__, __CLPK_real c__, __CLPK_real rowcnd, __CLPK_real colcnd, __CLPK_real amax, char
cannam@17	617 equed);
cannam@17	618
cannam@17	619 /* Subroutine / int claqhb_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_complex *ab,
cannam@17	620 __CLPK_integer ldab, __CLPK_real s, __CLPK_real scond, __CLPK_real amax, char *equed);
cannam@17	621
cannam@17	622 /* Subroutine / int claqhe_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	623 __CLPK_real s, __CLPK_real scond, __CLPK_real amax, char equed);
cannam@17	624
cannam@17	625 /* Subroutine / int claqhp_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_real *s,
cannam@17	626 __CLPK_real scond, __CLPK_real amax, char *equed);
cannam@17	627
cannam@17	628 /* Subroutine / int claqp2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer offset, __CLPK_complex
cannam@17	629 a, __CLPK_integer lda, __CLPK_integer jpvt, __CLPK_complex tau, __CLPK_real vn1, __CLPK_real vn2,
cannam@17	630 __CLPK_complex *work);
cannam@17	631
cannam@17	632 /* Subroutine / int claqps_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer offset, __CLPK_integer
cannam@17	633 nb, __CLPK_integer kb, __CLPK_complex a, __CLPK_integer lda, __CLPK_integer jpvt, __CLPK_complex
cannam@17	634 tau, __CLPK_real vn1, __CLPK_real vn2, __CLPK_complex auxv, __CLPK_complex f, __CLPK_integer *ldf);
cannam@17	635
cannam@17	636 /* Subroutine / int claqsb_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_complex *ab,
cannam@17	637 __CLPK_integer ldab, __CLPK_real s, __CLPK_real scond, __CLPK_real amax, char *equed);
cannam@17	638
cannam@17	639 /* Subroutine / int claqsp_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_real *s,
cannam@17	640 __CLPK_real scond, __CLPK_real amax, char *equed);
cannam@17	641
cannam@17	642 /* Subroutine / int claqsy_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	643 __CLPK_real s, __CLPK_real scond, __CLPK_real amax, char equed);
cannam@17	644
cannam@17	645 /* Subroutine / int clar1v_(__CLPK_integer n, __CLPK_integer b1, __CLPK_integer bn, __CLPK_real *
cannam@17	646 sigma, __CLPK_real d__, __CLPK_real l, __CLPK_real ld, __CLPK_real lld, __CLPK_real *gersch, __CLPK_complex
cannam@17	647 z__, __CLPK_real ztz, __CLPK_real mingma, __CLPK_integer r__, __CLPK_integer isuppz, __CLPK_real
cannam@17	648 work);
cannam@17	649
cannam@17	650 /* Subroutine / int clar2v_(__CLPK_integer n, __CLPK_complex x, __CLPK_complex y, __CLPK_complex *z__,
cannam@17	651 __CLPK_integer incx, __CLPK_real c__, __CLPK_complex s, __CLPK_integer incc);
cannam@17	652
cannam@17	653 /* Subroutine / int clarcm_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	654 __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex c__, __CLPK_integer ldc, __CLPK_real *rwork);
cannam@17	655
cannam@17	656 /* Subroutine / int clarf_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_complex *v,
cannam@17	657 __CLPK_integer incv, __CLPK_complex tau, __CLPK_complex c__, __CLPK_integer ldc, __CLPK_complex *
cannam@17	658 work);
cannam@17	659
cannam@17	660 /* Subroutine / int clarfb_(char side, char trans, char direct, char *
cannam@17	661 storev, __CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_complex v, __CLPK_integer *ldv,
cannam@17	662 __CLPK_complex t, __CLPK_integer ldt, __CLPK_complex c__, __CLPK_integer ldc, __CLPK_complex *work,
cannam@17	663 __CLPK_integer *ldwork);
cannam@17	664
cannam@17	665 /* Subroutine / int clarfg_(__CLPK_integer n, __CLPK_complex alpha, __CLPK_complex x, __CLPK_integer *
cannam@17	666 incx, __CLPK_complex *tau);
cannam@17	667
cannam@17	668 /* Subroutine / int clarft_(char direct, char storev, __CLPK_integer n, __CLPK_integer *
cannam@17	669 k, __CLPK_complex v, __CLPK_integer ldv, __CLPK_complex tau, __CLPK_complex t, __CLPK_integer *ldt);
cannam@17	670
cannam@17	671 /* Subroutine / int clarfx_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_complex *v,
cannam@17	672 __CLPK_complex tau, __CLPK_complex c__, __CLPK_integer ldc, __CLPK_complex work);
cannam@17	673
cannam@17	674 /* Subroutine / int clargv_(__CLPK_integer n, __CLPK_complex x, __CLPK_integer incx, __CLPK_complex *
cannam@17	675 y, __CLPK_integer incy, __CLPK_real c__, __CLPK_integer *incc);
cannam@17	676
cannam@17	677 /* Subroutine / int clarnv_(__CLPK_integer idist, __CLPK_integer iseed, __CLPK_integer n,
cannam@17	678 __CLPK_complex *x);
cannam@17	679
cannam@17	680 /* Subroutine / int clarrv_(__CLPK_integer n, __CLPK_real d__, __CLPK_real l, __CLPK_integer *isplit,
cannam@17	681 __CLPK_integer m, __CLPK_real w, __CLPK_integer iblock, __CLPK_real gersch, __CLPK_real *tol,
cannam@17	682 __CLPK_complex z__, __CLPK_integer ldz, __CLPK_integer isuppz, __CLPK_real work, __CLPK_integer *
cannam@17	683 iwork, __CLPK_integer *info);
cannam@17	684
cannam@17	685 /* Subroutine / int clartg_(__CLPK_complex f, __CLPK_complex g, __CLPK_real cs, __CLPK_complex *sn,
cannam@17	686 __CLPK_complex *r__);
cannam@17	687
cannam@17	688 /* Subroutine / int clartv_(__CLPK_integer n, __CLPK_complex x, __CLPK_integer incx, __CLPK_complex *
cannam@17	689 y, __CLPK_integer incy, __CLPK_real c__, __CLPK_complex s, __CLPK_integer incc);
cannam@17	690
cannam@17	691 /* Subroutine / int clarz_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *l,
cannam@17	692 __CLPK_complex v, __CLPK_integer incv, __CLPK_complex tau, __CLPK_complex c__, __CLPK_integer *ldc,
cannam@17	693 __CLPK_complex *work);
cannam@17	694
cannam@17	695 /* Subroutine / int clarzb_(char side, char trans, char direct, char *
cannam@17	696 storev, __CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_integer l, __CLPK_complex *v,
cannam@17	697 __CLPK_integer ldv, __CLPK_complex t, __CLPK_integer ldt, __CLPK_complex c__, __CLPK_integer *ldc,
cannam@17	698 __CLPK_complex work, __CLPK_integer ldwork);
cannam@17	699
cannam@17	700 /* Subroutine / int clarzt_(char direct, char storev, __CLPK_integer n, __CLPK_integer *
cannam@17	701 k, __CLPK_complex v, __CLPK_integer ldv, __CLPK_complex tau, __CLPK_complex t, __CLPK_integer *ldt);
cannam@17	702
cannam@17	703 /* Subroutine / int clascl_(char type__, __CLPK_integer kl, __CLPK_integer ku, __CLPK_real *
cannam@17	704 cfrom, __CLPK_real cto, __CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	705 __CLPK_integer *info);
cannam@17	706
cannam@17	707 /* Subroutine / int claset_(char uplo, __CLPK_integer m, __CLPK_integer n, __CLPK_complex *
cannam@17	708 alpha, __CLPK_complex beta, __CLPK_complex a, __CLPK_integer *lda);
cannam@17	709
cannam@17	710 /* Subroutine / int clasr_(char side, char pivot, char direct, __CLPK_integer *m,
cannam@17	711 __CLPK_integer n, __CLPK_real c__, __CLPK_real s, __CLPK_complex a, __CLPK_integer *lda);
cannam@17	712
cannam@17	713 /* Subroutine / int classq_(__CLPK_integer n, __CLPK_complex x, __CLPK_integer incx, __CLPK_real *
cannam@17	714 scale, __CLPK_real *sumsq);
cannam@17	715
cannam@17	716 /* Subroutine / int claswp_(__CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_integer *
cannam@17	717 k1, __CLPK_integer k2, __CLPK_integer ipiv, __CLPK_integer *incx);
cannam@17	718
cannam@17	719 /* Subroutine / int clasyf_(char uplo, __CLPK_integer n, __CLPK_integer nb, __CLPK_integer *kb,
cannam@17	720 __CLPK_complex a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_complex w, __CLPK_integer *ldw,
cannam@17	721 __CLPK_integer *info);
cannam@17	722
cannam@17	723 /* Subroutine / int clatbs_(char uplo, char trans, char diag, char *
cannam@17	724 normin, __CLPK_integer n, __CLPK_integer kd, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex *
cannam@17	725 x, __CLPK_real scale, __CLPK_real cnorm, __CLPK_integer *info);
cannam@17	726
cannam@17	727 /* Subroutine / int clatdf_(__CLPK_integer ijob, __CLPK_integer n, __CLPK_complex z__, __CLPK_integer
cannam@17	728 ldz, __CLPK_complex rhs, __CLPK_real rdsum, __CLPK_real rdscal, __CLPK_integer *ipiv, __CLPK_integer
cannam@17	729 *jpiv);
cannam@17	730
cannam@17	731 /* Subroutine / int clatps_(char uplo, char trans, char diag, char *
cannam@17	732 normin, __CLPK_integer n, __CLPK_complex ap, __CLPK_complex x, __CLPK_real scale, __CLPK_real *cnorm,
cannam@17	733 __CLPK_integer *info);
cannam@17	734
cannam@17	735 /* Subroutine / int clatrd_(char uplo, __CLPK_integer n, __CLPK_integer nb, __CLPK_complex *a,
cannam@17	736 __CLPK_integer lda, __CLPK_real e, __CLPK_complex tau, __CLPK_complex w, __CLPK_integer *ldw);
cannam@17	737
cannam@17	738 /* Subroutine / int clatrs_(char uplo, char trans, char diag, char *
cannam@17	739 normin, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex x, __CLPK_real *scale,
cannam@17	740 __CLPK_real cnorm, __CLPK_integer info);
cannam@17	741
cannam@17	742 /* Subroutine / int clatrz_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer l, __CLPK_complex *a,
cannam@17	743 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *work);
cannam@17	744
cannam@17	745 /* Subroutine / int clatzm_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_complex *v,
cannam@17	746 __CLPK_integer incv, __CLPK_complex tau, __CLPK_complex c1, __CLPK_complex c2, __CLPK_integer *ldc,
cannam@17	747 __CLPK_complex *work);
cannam@17	748
cannam@17	749 /* Subroutine / int clauu2_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	750 __CLPK_integer *info);
cannam@17	751
cannam@17	752 /* Subroutine / int clauum_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	753 __CLPK_integer *info);
cannam@17	754
cannam@17	755 /* Subroutine / int cpbcon_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_complex *ab,
cannam@17	756 __CLPK_integer ldab, __CLPK_real anorm, __CLPK_real rcond, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	757 __CLPK_integer *info);
cannam@17	758
cannam@17	759 /* Subroutine / int cpbequ_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_complex *ab,
cannam@17	760 __CLPK_integer ldab, __CLPK_real s, __CLPK_real scond, __CLPK_real amax, __CLPK_integer *info);
cannam@17	761
cannam@17	762 /* Subroutine / int cpbrfs_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	763 nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex afb, __CLPK_integer ldafb,
cannam@17	764 __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real
cannam@17	765 berr, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	766
cannam@17	767 /* Subroutine / int cpbstf_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_complex *ab,
cannam@17	768 __CLPK_integer ldab, __CLPK_integer info);
cannam@17	769
cannam@17	770 /* Subroutine / int cpbsv_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	771 nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	772 info);
cannam@17	773
cannam@17	774 /* Subroutine / int cpbsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	775 __CLPK_integer nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex afb, __CLPK_integer *
cannam@17	776 ldafb, char equed, __CLPK_real s, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *x,
cannam@17	777 __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex *work,
cannam@17	778 __CLPK_real rwork, __CLPK_integer info);
cannam@17	779
cannam@17	780 /* Subroutine / int cpbtf2_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_complex *ab,
cannam@17	781 __CLPK_integer ldab, __CLPK_integer info);
cannam@17	782
cannam@17	783 /* Subroutine / int cpbtrf_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_complex *ab,
cannam@17	784 __CLPK_integer ldab, __CLPK_integer info);
cannam@17	785
cannam@17	786 /* Subroutine / int cpbtrs_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	787 nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	788 info);
cannam@17	789
cannam@17	790 /* Subroutine / int cpocon_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	791 __CLPK_real anorm, __CLPK_real rcond, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	792
cannam@17	793 /* Subroutine / int cpoequ_(__CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_real *s,
cannam@17	794 __CLPK_real scond, __CLPK_real amax, __CLPK_integer *info);
cannam@17	795
cannam@17	796 /* Subroutine / int cporfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	797 a, __CLPK_integer lda, __CLPK_complex af, __CLPK_integer ldaf, __CLPK_complex b, __CLPK_integer *ldb,
cannam@17	798 __CLPK_complex x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex *work,
cannam@17	799 __CLPK_real rwork, __CLPK_integer info);
cannam@17	800
cannam@17	801 /* Subroutine / int cposv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *a,
cannam@17	802 __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	803
cannam@17	804 /* Subroutine / int cposvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	805 nrhs, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex af, __CLPK_integer ldaf, char *
cannam@17	806 equed, __CLPK_real s, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer *ldx,
cannam@17	807 __CLPK_real rcond, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	808 __CLPK_integer *info);
cannam@17	809
cannam@17	810 /* Subroutine / int cpotf2_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	811 __CLPK_integer *info);
cannam@17	812
cannam@17	813 /* Subroutine / int cpotrf_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	814 __CLPK_integer *info);
cannam@17	815
cannam@17	816 /* Subroutine / int cpotri_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	817 __CLPK_integer *info);
cannam@17	818
cannam@17	819 /* Subroutine / int cpotrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	820 a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	821
cannam@17	822 /* Subroutine / int cppcon_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_real *anorm,
cannam@17	823 __CLPK_real rcond, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer info);
cannam@17	824
cannam@17	825 /* Subroutine / int cppequ_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_real *s,
cannam@17	826 __CLPK_real scond, __CLPK_real amax, __CLPK_integer *info);
cannam@17	827
cannam@17	828 /* Subroutine / int cpprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	829 ap, __CLPK_complex afp, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer *ldx,
cannam@17	830 __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	831
cannam@17	832 /* Subroutine / int cppsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	833 ap, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	834
cannam@17	835 /* Subroutine / int cppsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	836 nrhs, __CLPK_complex ap, __CLPK_complex afp, char equed, __CLPK_real s, __CLPK_complex *b,
cannam@17	837 __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real *ferr, __CLPK_real
cannam@17	838 berr, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer info);
cannam@17	839
cannam@17	840 /* Subroutine / int cpptrf_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_integer *
cannam@17	841 info);
cannam@17	842
cannam@17	843 /* Subroutine / int cpptri_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_integer *
cannam@17	844 info);
cannam@17	845
cannam@17	846 /* Subroutine / int cpptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	847 ap, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	848
cannam@17	849 /* Subroutine / int cptcon_(__CLPK_integer n, __CLPK_real d__, __CLPK_complex e, __CLPK_real *anorm,
cannam@17	850 __CLPK_real rcond, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	851
cannam@17	852 /* Subroutine / int cptrfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *d__,
cannam@17	853 __CLPK_complex e, __CLPK_real df, __CLPK_complex ef, __CLPK_complex b, __CLPK_integer *ldb, __CLPK_complex
cannam@17	854 x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_real rwork,
cannam@17	855 __CLPK_integer *info);
cannam@17	856
cannam@17	857 /* Subroutine / int cptsv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_real d__, __CLPK_complex *e,
cannam@17	858 __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	859
cannam@17	860 /* Subroutine / int cptsvx_(char fact, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *d__,
cannam@17	861 __CLPK_complex e, __CLPK_real df, __CLPK_complex ef, __CLPK_complex b, __CLPK_integer *ldb, __CLPK_complex
cannam@17	862 x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work,
cannam@17	863 __CLPK_real rwork, __CLPK_integer info);
cannam@17	864
cannam@17	865 /* Subroutine / int cpttrf_(__CLPK_integer n, __CLPK_real d__, __CLPK_complex e, __CLPK_integer *info);
cannam@17	866
cannam@17	867 /* Subroutine / int cpttrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *d__,
cannam@17	868 __CLPK_complex e, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	869
cannam@17	870 /* Subroutine / int cptts2_(__CLPK_integer iuplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *
cannam@17	871 d__, __CLPK_complex e, __CLPK_complex b, __CLPK_integer *ldb);
cannam@17	872
cannam@17	873 /* Subroutine / int crot_(__CLPK_integer n, __CLPK_complex cx, __CLPK_integer incx, __CLPK_complex *
cannam@17	874 cy, __CLPK_integer incy, __CLPK_real c__, __CLPK_complex *s);
cannam@17	875
cannam@17	876 /* Subroutine / int cspcon_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_integer *
cannam@17	877 ipiv, __CLPK_real anorm, __CLPK_real rcond, __CLPK_complex work, __CLPK_integer info);
cannam@17	878
cannam@17	879 /* Subroutine / int cspmv_(char uplo, __CLPK_integer n, __CLPK_complex alpha, __CLPK_complex *
cannam@17	880 ap, __CLPK_complex x, __CLPK_integer incx, __CLPK_complex beta, __CLPK_complex y, __CLPK_integer *
cannam@17	881 incy);
cannam@17	882
cannam@17	883 /* Subroutine / int cspr_(char uplo, __CLPK_integer n, __CLPK_complex alpha, __CLPK_complex *x,
cannam@17	884 __CLPK_integer incx, __CLPK_complex ap);
cannam@17	885
cannam@17	886 /* Subroutine / int csprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	887 ap, __CLPK_complex afp, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *x,
cannam@17	888 __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	889 __CLPK_integer *info);
cannam@17	890
cannam@17	891 /* Subroutine / int cspsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	892 ap, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	893
cannam@17	894 /* Subroutine / int cspsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	895 nrhs, __CLPK_complex ap, __CLPK_complex afp, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer *
cannam@17	896 ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real *berr,
cannam@17	897 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	898
cannam@17	899 /* Subroutine / int csptrf_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_integer *
cannam@17	900 ipiv, __CLPK_integer *info);
cannam@17	901
cannam@17	902 /* Subroutine / int csptri_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_integer *
cannam@17	903 ipiv, __CLPK_complex work, __CLPK_integer info);
cannam@17	904
cannam@17	905 /* Subroutine / int csptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	906 ap, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	907
cannam@17	908 /* Subroutine / int csrot_(__CLPK_integer n, __CLPK_complex cx, __CLPK_integer incx, __CLPK_complex *
cannam@17	909 cy, __CLPK_integer incy, __CLPK_real c__, __CLPK_real *s);
cannam@17	910
cannam@17	911 /* Subroutine / int csrscl_(__CLPK_integer n, __CLPK_real sa, __CLPK_complex sx, __CLPK_integer *incx);
cannam@17	912
cannam@17	913 /* Subroutine / int cstedc_(char compz, __CLPK_integer n, __CLPK_real d__, __CLPK_real *e,
cannam@17	914 __CLPK_complex z__, __CLPK_integer ldz, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real *
cannam@17	915 rwork, __CLPK_integer lrwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer
cannam@17	916 info);
cannam@17	917
cannam@17	918 /* Subroutine / int cstein_(__CLPK_integer n, __CLPK_real d__, __CLPK_real e, __CLPK_integer *m, __CLPK_real
cannam@17	919 w, __CLPK_integer iblock, __CLPK_integer isplit, __CLPK_complex z__, __CLPK_integer *ldz,
cannam@17	920 __CLPK_real work, __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer info);
cannam@17	921
cannam@17	922 /* Subroutine / int csteqr_(char compz, __CLPK_integer n, __CLPK_real d__, __CLPK_real *e,
cannam@17	923 __CLPK_complex z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer info);
cannam@17	924
cannam@17	925 /* Subroutine / int csycon_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	926 __CLPK_integer ipiv, __CLPK_real anorm, __CLPK_real rcond, __CLPK_complex work, __CLPK_integer *
cannam@17	927 info);
cannam@17	928
cannam@17	929 /* Subroutine / int csymv_(char uplo, __CLPK_integer n, __CLPK_complex alpha, __CLPK_complex *
cannam@17	930 a, __CLPK_integer lda, __CLPK_complex x, __CLPK_integer incx, __CLPK_complex beta, __CLPK_complex *y,
cannam@17	931 __CLPK_integer *incy);
cannam@17	932
cannam@17	933 /* Subroutine / int csyr_(char uplo, __CLPK_integer n, __CLPK_complex alpha, __CLPK_complex *x,
cannam@17	934 __CLPK_integer incx, __CLPK_complex a, __CLPK_integer *lda);
cannam@17	935
cannam@17	936 /* Subroutine / int csyrfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	937 a, __CLPK_integer lda, __CLPK_complex af, __CLPK_integer ldaf, __CLPK_integer ipiv, __CLPK_complex *
cannam@17	938 b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real *berr,
cannam@17	939 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	940
cannam@17	941 /* Subroutine / int csysv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *a,
cannam@17	942 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *work,
cannam@17	943 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	944
cannam@17	945 /* Subroutine / int csysvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	946 nrhs, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex af, __CLPK_integer ldaf, __CLPK_integer *
cannam@17	947 ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real *rcond,
cannam@17	948 __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real *rwork,
cannam@17	949 __CLPK_integer *info);
cannam@17	950
cannam@17	951 /* Subroutine / int csytf2_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	952 __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	953
cannam@17	954 /* Subroutine / int csytrf_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	955 __CLPK_integer ipiv, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	956
cannam@17	957 /* Subroutine / int csytri_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	958 __CLPK_integer ipiv, __CLPK_complex work, __CLPK_integer *info);
cannam@17	959
cannam@17	960 /* Subroutine / int csytrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	961 a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	962 info);
cannam@17	963
cannam@17	964 /* Subroutine / int ctbcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	965 __CLPK_integer kd, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real rcond, __CLPK_complex *work,
cannam@17	966 __CLPK_real rwork, __CLPK_integer info);
cannam@17	967
cannam@17	968 /* Subroutine / int ctbrfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	969 __CLPK_integer kd, __CLPK_integer nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex *b,
cannam@17	970 __CLPK_integer ldb, __CLPK_complex x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real *berr,
cannam@17	971 __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	972
cannam@17	973 /* Subroutine / int ctbtrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	974 __CLPK_integer kd, __CLPK_integer nrhs, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex *b,
cannam@17	975 __CLPK_integer ldb, __CLPK_integer info);
cannam@17	976
cannam@17	977 /* Subroutine / int ctgevc_(char side, char howmny, __CLPK_logical select,
cannam@17	978 __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *ldb,
cannam@17	979 __CLPK_complex vl, __CLPK_integer ldvl, __CLPK_complex vr, __CLPK_integer ldvr, __CLPK_integer *mm,
cannam@17	980 __CLPK_integer m, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer info);
cannam@17	981
cannam@17	982 /* Subroutine / int ctgex2_(__CLPK_logical wantq, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	983 __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *q,
cannam@17	984 __CLPK_integer ldq, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_integer j1, __CLPK_integer *info);
cannam@17	985
cannam@17	986 /* Subroutine / int ctgexc_(__CLPK_logical wantq, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	987 __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *q,
cannam@17	988 __CLPK_integer ldq, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_integer ifst, __CLPK_integer *
cannam@17	989 ilst, __CLPK_integer *info);
cannam@17	990
cannam@17	991 /* Subroutine / int ctgsen_(__CLPK_integer ijob, __CLPK_logical wantq, __CLPK_logical wantz,
cannam@17	992 __CLPK_logical select, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex *b,
cannam@17	993 __CLPK_integer ldb, __CLPK_complex alpha, __CLPK_complex beta, __CLPK_complex q, __CLPK_integer *ldq,
cannam@17	994 __CLPK_complex z__, __CLPK_integer ldz, __CLPK_integer m, __CLPK_real pl, __CLPK_real pr, __CLPK_real
cannam@17	995 dif, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork,
cannam@17	996 __CLPK_integer *info);
cannam@17	997
cannam@17	998 /* Subroutine / int ctgsja_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	999 __CLPK_integer p, __CLPK_integer n, __CLPK_integer k, __CLPK_integer l, __CLPK_complex a, __CLPK_integer
cannam@17	1000 lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_real tola, __CLPK_real tolb, __CLPK_real *alpha,
cannam@17	1001 __CLPK_real beta, __CLPK_complex u, __CLPK_integer ldu, __CLPK_complex v, __CLPK_integer *ldv,
cannam@17	1002 __CLPK_complex q, __CLPK_integer ldq, __CLPK_complex work, __CLPK_integer ncycle, __CLPK_integer *
cannam@17	1003 info);
cannam@17	1004
cannam@17	1005 /* Subroutine / int ctgsna_(char job, char howmny, __CLPK_logical select,
cannam@17	1006 __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *ldb,
cannam@17	1007 __CLPK_complex vl, __CLPK_integer ldvl, __CLPK_complex vr, __CLPK_integer ldvr, __CLPK_real *s, __CLPK_real
cannam@17	1008 dif, __CLPK_integer mm, __CLPK_integer m, __CLPK_complex work, __CLPK_integer *lwork, __CLPK_integer
cannam@17	1009 iwork, __CLPK_integer info);
cannam@17	1010
cannam@17	1011 /* Subroutine / int ctgsy2_(char trans, __CLPK_integer ijob, __CLPK_integer m, __CLPK_integer *
cannam@17	1012 n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *c__,
cannam@17	1013 __CLPK_integer ldc, __CLPK_complex d__, __CLPK_integer ldd, __CLPK_complex e, __CLPK_integer *lde,
cannam@17	1014 __CLPK_complex f, __CLPK_integer ldf, __CLPK_real scale, __CLPK_real rdsum, __CLPK_real *rdscal,
cannam@17	1015 __CLPK_integer *info);
cannam@17	1016
cannam@17	1017 /* Subroutine / int ctgsyl_(char trans, __CLPK_integer ijob, __CLPK_integer m, __CLPK_integer *
cannam@17	1018 n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *c__,
cannam@17	1019 __CLPK_integer ldc, __CLPK_complex d__, __CLPK_integer ldd, __CLPK_complex e, __CLPK_integer *lde,
cannam@17	1020 __CLPK_complex f, __CLPK_integer ldf, __CLPK_real scale, __CLPK_real dif, __CLPK_complex *work,
cannam@17	1021 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	1022
cannam@17	1023 /* Subroutine / int ctpcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	1024 __CLPK_complex ap, __CLPK_real rcond, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer *info);
cannam@17	1025
cannam@17	1026 /* Subroutine / int ctprfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	1027 __CLPK_integer nrhs, __CLPK_complex ap, __CLPK_complex b, __CLPK_integer ldb, __CLPK_complex *x,
cannam@17	1028 __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	1029 __CLPK_integer *info);
cannam@17	1030
cannam@17	1031 /* Subroutine / int ctptri_(char uplo, char diag, __CLPK_integer n, __CLPK_complex *ap,
cannam@17	1032 __CLPK_integer *info);
cannam@17	1033
cannam@17	1034 /* Subroutine / int ctptrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	1035 __CLPK_integer nrhs, __CLPK_complex ap, __CLPK_complex b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	1036
cannam@17	1037 /* Subroutine / int ctrcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	1038 __CLPK_complex a, __CLPK_integer lda, __CLPK_real rcond, __CLPK_complex work, __CLPK_real *rwork,
cannam@17	1039 __CLPK_integer *info);
cannam@17	1040
cannam@17	1041 /* Subroutine / int ctrevc_(char side, char howmny, __CLPK_logical select,
cannam@17	1042 __CLPK_integer n, __CLPK_complex t, __CLPK_integer ldt, __CLPK_complex vl, __CLPK_integer *ldvl,
cannam@17	1043 __CLPK_complex vr, __CLPK_integer ldvr, __CLPK_integer mm, __CLPK_integer m, __CLPK_complex *work,
cannam@17	1044 __CLPK_real rwork, __CLPK_integer info);
cannam@17	1045
cannam@17	1046 /* Subroutine / int ctrexc_(char compq, __CLPK_integer n, __CLPK_complex t, __CLPK_integer *
cannam@17	1047 ldt, __CLPK_complex q, __CLPK_integer ldq, __CLPK_integer ifst, __CLPK_integer ilst, __CLPK_integer *
cannam@17	1048 info);
cannam@17	1049
cannam@17	1050 /* Subroutine / int ctrrfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	1051 __CLPK_integer nrhs, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *ldb,
cannam@17	1052 __CLPK_complex x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_complex *work, __CLPK_real
cannam@17	1053 rwork, __CLPK_integer info);
cannam@17	1054
cannam@17	1055 /* Subroutine / int ctrsen_(char job, char compq, __CLPK_logical select, __CLPK_integer
cannam@17	1056 n, __CLPK_complex t, __CLPK_integer ldt, __CLPK_complex q, __CLPK_integer ldq, __CLPK_complex w,
cannam@17	1057 __CLPK_integer m, __CLPK_real s, __CLPK_real sep, __CLPK_complex work, __CLPK_integer *lwork,
cannam@17	1058 __CLPK_integer *info);
cannam@17	1059
cannam@17	1060 /* Subroutine / int ctrsna_(char job, char howmny, __CLPK_logical select,
cannam@17	1061 __CLPK_integer n, __CLPK_complex t, __CLPK_integer ldt, __CLPK_complex vl, __CLPK_integer *ldvl,
cannam@17	1062 __CLPK_complex vr, __CLPK_integer ldvr, __CLPK_real s, __CLPK_real sep, __CLPK_integer mm, __CLPK_integer
cannam@17	1063 m, __CLPK_complex work, __CLPK_integer ldwork, __CLPK_real rwork, __CLPK_integer info);
cannam@17	1064
cannam@17	1065 /* Subroutine / int ctrsyl_(char trana, char tranb, __CLPK_integer isgn, __CLPK_integer
cannam@17	1066 m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb,
cannam@17	1067 __CLPK_complex c__, __CLPK_integer ldc, __CLPK_real scale, __CLPK_integer info);
cannam@17	1068
cannam@17	1069 /* Subroutine / int ctrti2_(char uplo, char diag, __CLPK_integer n, __CLPK_complex *a,
cannam@17	1070 __CLPK_integer lda, __CLPK_integer info);
cannam@17	1071
cannam@17	1072 /* Subroutine / int ctrtri_(char uplo, char diag, __CLPK_integer n, __CLPK_complex *a,
cannam@17	1073 __CLPK_integer lda, __CLPK_integer info);
cannam@17	1074
cannam@17	1075 /* Subroutine / int ctrtrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	1076 __CLPK_integer nrhs, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer *ldb,
cannam@17	1077 __CLPK_integer *info);
cannam@17	1078
cannam@17	1079 /* Subroutine / int ctzrqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	1080 __CLPK_complex tau, __CLPK_integer info);
cannam@17	1081
cannam@17	1082 /* Subroutine / int ctzrzf_(__CLPK_integer m, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	1083 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1084
cannam@17	1085 /* Subroutine / int cung2l_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_complex *a,
cannam@17	1086 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer info);
cannam@17	1087
cannam@17	1088 /* Subroutine / int cung2r_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_complex *a,
cannam@17	1089 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer info);
cannam@17	1090
cannam@17	1091 /* Subroutine / int cungbr_(char vect, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *k,
cannam@17	1092 __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer *lwork,
cannam@17	1093 __CLPK_integer *info);
cannam@17	1094
cannam@17	1095 /* Subroutine / int cunghr_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_complex *
cannam@17	1096 a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer
cannam@17	1097 *info);
cannam@17	1098
cannam@17	1099 /* Subroutine / int cungl2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_complex *a,
cannam@17	1100 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer info);
cannam@17	1101
cannam@17	1102 /* Subroutine / int cunglq_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_complex *a,
cannam@17	1103 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *
cannam@17	1104 info);
cannam@17	1105
cannam@17	1106 /* Subroutine / int cungql_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_complex *a,
cannam@17	1107 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *
cannam@17	1108 info);
cannam@17	1109
cannam@17	1110 /* Subroutine / int cungqr_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_complex *a,
cannam@17	1111 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *
cannam@17	1112 info);
cannam@17	1113
cannam@17	1114 /* Subroutine / int cungr2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_complex *a,
cannam@17	1115 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer info);
cannam@17	1116
cannam@17	1117 /* Subroutine / int cungrq_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_complex *a,
cannam@17	1118 __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *
cannam@17	1119 info);
cannam@17	1120
cannam@17	1121 /* Subroutine / int cungtr_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	1122 __CLPK_complex tau, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1123
cannam@17	1124 /* Subroutine / int cunm2l_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1125 __CLPK_integer k, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *c__,
cannam@17	1126 __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer *info);
cannam@17	1127
cannam@17	1128 /* Subroutine / int cunm2r_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1129 __CLPK_integer k, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *c__,
cannam@17	1130 __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer *info);
cannam@17	1131
cannam@17	1132 /* Subroutine / int cunmbr_(char vect, char side, char trans, __CLPK_integer *m,
cannam@17	1133 __CLPK_integer n, __CLPK_integer k, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex *tau,
cannam@17	1134 __CLPK_complex c__, __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *
cannam@17	1135 info);
cannam@17	1136
cannam@17	1137 /* Subroutine / int cunmhr_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1138 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex *tau,
cannam@17	1139 __CLPK_complex c__, __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *
cannam@17	1140 info);
cannam@17	1141
cannam@17	1142 /* Subroutine / int cunml2_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1143 __CLPK_integer k, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *c__,
cannam@17	1144 __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer *info);
cannam@17	1145
cannam@17	1146 /* Subroutine / int cunmlq_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1147 __CLPK_integer k, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *c__,
cannam@17	1148 __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1149
cannam@17	1150 /* Subroutine / int cunmql_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1151 __CLPK_integer k, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *c__,
cannam@17	1152 __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1153
cannam@17	1154 /* Subroutine / int cunmqr_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1155 __CLPK_integer k, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *c__,
cannam@17	1156 __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1157
cannam@17	1158 /* Subroutine / int cunmr2_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1159 __CLPK_integer k, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *c__,
cannam@17	1160 __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer *info);
cannam@17	1161
cannam@17	1162 /* Subroutine / int cunmr3_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1163 __CLPK_integer k, __CLPK_integer l, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex *tau,
cannam@17	1164 __CLPK_complex c__, __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer info);
cannam@17	1165
cannam@17	1166 /* Subroutine / int cunmrq_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1167 __CLPK_integer k, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *c__,
cannam@17	1168 __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1169
cannam@17	1170 /* Subroutine / int cunmrz_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1171 __CLPK_integer k, __CLPK_integer l, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex *tau,
cannam@17	1172 __CLPK_complex c__, __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer *
cannam@17	1173 info);
cannam@17	1174
cannam@17	1175 /* Subroutine / int cunmtr_(char side, char uplo, char trans, __CLPK_integer *m,
cannam@17	1176 __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_complex tau, __CLPK_complex *c__,
cannam@17	1177 __CLPK_integer ldc, __CLPK_complex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1178
cannam@17	1179 /* Subroutine / int cupgtr_(char uplo, __CLPK_integer n, __CLPK_complex ap, __CLPK_complex *
cannam@17	1180 tau, __CLPK_complex q, __CLPK_integer ldq, __CLPK_complex work, __CLPK_integer info);
cannam@17	1181
cannam@17	1182 /* Subroutine / int cupmtr_(char side, char uplo, char trans, __CLPK_integer *m,
cannam@17	1183 __CLPK_integer n, __CLPK_complex ap, __CLPK_complex tau, __CLPK_complex c__, __CLPK_integer *ldc,
cannam@17	1184 __CLPK_complex work, __CLPK_integer info);
cannam@17	1185
cannam@17	1186 /* Subroutine / int dbdsdc_(char uplo, char compq, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1187 d__, __CLPK_doublereal e, __CLPK_doublereal u, __CLPK_integer ldu, __CLPK_doublereal vt,
cannam@17	1188 __CLPK_integer ldvt, __CLPK_doublereal q, __CLPK_integer iq, __CLPK_doublereal work, __CLPK_integer *
cannam@17	1189 iwork, __CLPK_integer *info);
cannam@17	1190
cannam@17	1191 /* Subroutine / int dbdsqr_(char uplo, __CLPK_integer n, __CLPK_integer ncvt, __CLPK_integer *
cannam@17	1192 nru, __CLPK_integer ncc, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal vt,
cannam@17	1193 __CLPK_integer ldvt, __CLPK_doublereal u, __CLPK_integer ldu, __CLPK_doublereal c__, __CLPK_integer *
cannam@17	1194 ldc, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1195
cannam@17	1196 /* Subroutine / int ddisna_(char job, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1197 d__, __CLPK_doublereal sep, __CLPK_integer info);
cannam@17	1198
cannam@17	1199 /* Subroutine / int dgbbrd_(char vect, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *ncc,
cannam@17	1200 __CLPK_integer kl, __CLPK_integer ku, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal *
cannam@17	1201 d__, __CLPK_doublereal e, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal pt,
cannam@17	1202 __CLPK_integer ldpt, __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal work,
cannam@17	1203 __CLPK_integer *info);
cannam@17	1204
cannam@17	1205 /* Subroutine / int dgbcon_(char norm, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	1206 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_doublereal anorm,
cannam@17	1207 __CLPK_doublereal rcond, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	1208
cannam@17	1209 /* Subroutine / int dgbequ_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	1210 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal r__, __CLPK_doublereal c__,
cannam@17	1211 __CLPK_doublereal rowcnd, __CLPK_doublereal colcnd, __CLPK_doublereal amax, __CLPK_integer
cannam@17	1212 info);
cannam@17	1213
cannam@17	1214 /* Subroutine / int dgbrfs_(char trans, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *
cannam@17	1215 ku, __CLPK_integer nrhs, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal afb,
cannam@17	1216 __CLPK_integer ldafb, __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	1217 __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	1218 __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	1219
cannam@17	1220 /* Subroutine / int dgbsv_(__CLPK_integer n, __CLPK_integer kl, __CLPK_integer ku, __CLPK_integer *
cannam@17	1221 nrhs, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_doublereal b,
cannam@17	1222 __CLPK_integer ldb, __CLPK_integer info);
cannam@17	1223
cannam@17	1224 /* Subroutine / int dgbsvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *kl,
cannam@17	1225 __CLPK_integer ku, __CLPK_integer nrhs, __CLPK_doublereal ab, __CLPK_integer ldab,
cannam@17	1226 __CLPK_doublereal afb, __CLPK_integer ldafb, __CLPK_integer ipiv, char equed,
cannam@17	1227 __CLPK_doublereal r__, __CLPK_doublereal c__, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	1228 __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal rcond, __CLPK_doublereal ferr,
cannam@17	1229 __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	1230
cannam@17	1231 /* Subroutine / int dgbtf2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	1232 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	1233
cannam@17	1234 /* Subroutine / int dgbtrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	1235 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	1236
cannam@17	1237 /* Subroutine / int dgbtrs_(char trans, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *
cannam@17	1238 ku, __CLPK_integer nrhs, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_integer ipiv,
cannam@17	1239 __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	1240
cannam@17	1241 /* Subroutine / int dgebak_(char job, char side, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	1242 __CLPK_integer ihi, __CLPK_doublereal scale, __CLPK_integer m, __CLPK_doublereal v, __CLPK_integer *
cannam@17	1243 ldv, __CLPK_integer *info);
cannam@17	1244
cannam@17	1245 /* Subroutine / int dgebal_(char job, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1246 lda, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublereal scale, __CLPK_integer info);
cannam@17	1247
cannam@17	1248 /* Subroutine / int dgebd2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1249 lda, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal tauq, __CLPK_doublereal
cannam@17	1250 taup, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1251
cannam@17	1252 /* Subroutine / int dgebrd_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1253 lda, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal tauq, __CLPK_doublereal
cannam@17	1254 taup, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	1255
cannam@17	1256 /* Subroutine / int dgecon_(char norm, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1257 lda, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublereal work, __CLPK_integer
cannam@17	1258 iwork, __CLPK_integer *info);
cannam@17	1259
cannam@17	1260 /* Subroutine / int dgeequ_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1261 lda, __CLPK_doublereal r__, __CLPK_doublereal c__, __CLPK_doublereal *rowcnd, __CLPK_doublereal
cannam@17	1262 colcnd, __CLPK_doublereal amax, __CLPK_integer *info);
cannam@17	1263
cannam@17	1264 /* Subroutine / int dgees_(char jobvs, char sort, __CLPK_L_fp select, __CLPK_integer n,
cannam@17	1265 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer sdim, __CLPK_doublereal wr,
cannam@17	1266 __CLPK_doublereal wi, __CLPK_doublereal vs, __CLPK_integer ldvs, __CLPK_doublereal work,
cannam@17	1267 __CLPK_integer lwork, __CLPK_logical bwork, __CLPK_integer *info);
cannam@17	1268
cannam@17	1269 /* Subroutine / int dgeesx_(char jobvs, char sort, __CLPK_L_fp select, char
cannam@17	1270 sense, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer sdim,
cannam@17	1271 __CLPK_doublereal wr, __CLPK_doublereal wi, __CLPK_doublereal vs, __CLPK_integer ldvs,
cannam@17	1272 __CLPK_doublereal rconde, __CLPK_doublereal rcondv, __CLPK_doublereal work, __CLPK_integer
cannam@17	1273 lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_logical bwork, __CLPK_integer info);
cannam@17	1274
cannam@17	1275 /* Subroutine / int dgeev_(char jobvl, char jobvr, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1276 a, __CLPK_integer lda, __CLPK_doublereal wr, __CLPK_doublereal wi, __CLPK_doublereal vl,
cannam@17	1277 __CLPK_integer ldvl, __CLPK_doublereal vr, __CLPK_integer ldvr, __CLPK_doublereal work,
cannam@17	1278 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1279
cannam@17	1280 /* Subroutine / int dgeevx_(char balanc, char jobvl, char jobvr, char *
cannam@17	1281 sense, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal wr,
cannam@17	1282 __CLPK_doublereal wi, __CLPK_doublereal vl, __CLPK_integer ldvl, __CLPK_doublereal vr,
cannam@17	1283 __CLPK_integer ldvr, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublereal scale,
cannam@17	1284 __CLPK_doublereal abnrm, __CLPK_doublereal rconde, __CLPK_doublereal *rcondv, __CLPK_doublereal
cannam@17	1285 work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	1286
cannam@17	1287 /* Subroutine / int dgegs_(char jobvsl, char jobvsr, __CLPK_integer n,
cannam@17	1288 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal *
cannam@17	1289 alphar, __CLPK_doublereal alphai, __CLPK_doublereal beta, __CLPK_doublereal *vsl,
cannam@17	1290 __CLPK_integer ldvsl, __CLPK_doublereal vsr, __CLPK_integer ldvsr, __CLPK_doublereal work,
cannam@17	1291 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1292
cannam@17	1293 /* Subroutine / int dgegv_(char jobvl, char jobvr, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1294 a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal alphar,
cannam@17	1295 __CLPK_doublereal alphai, __CLPK_doublereal beta, __CLPK_doublereal vl, __CLPK_integer ldvl,
cannam@17	1296 __CLPK_doublereal vr, __CLPK_integer ldvr, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	1297 __CLPK_integer *info);
cannam@17	1298
cannam@17	1299 /* Subroutine / int dgehd2_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi,
cannam@17	1300 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work,
cannam@17	1301 __CLPK_integer *info);
cannam@17	1302
cannam@17	1303 /* Subroutine / int dgehrd_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi,
cannam@17	1304 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work,
cannam@17	1305 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1306
cannam@17	1307 /* Subroutine / int dgelq2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1308 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	1309
cannam@17	1310 /* Subroutine / int dgelqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1311 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1312
cannam@17	1313 /* Subroutine / int dgels_(char trans, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *
cannam@17	1314 nrhs, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	1315 __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	1316
cannam@17	1317 /* Subroutine / int dgelsd_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1318 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal *
cannam@17	1319 s, __CLPK_doublereal rcond, __CLPK_integer rank, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	1320 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	1321
cannam@17	1322 /* Subroutine / int dgelss_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1323 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal *
cannam@17	1324 s, __CLPK_doublereal rcond, __CLPK_integer rank, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	1325 __CLPK_integer *info);
cannam@17	1326
cannam@17	1327 /* Subroutine / int dgelsx_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1328 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	1329 jpvt, __CLPK_doublereal rcond, __CLPK_integer rank, __CLPK_doublereal work, __CLPK_integer
cannam@17	1330 info);
cannam@17	1331
cannam@17	1332 /* Subroutine / int dgelsy_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1333 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	1334 jpvt, __CLPK_doublereal rcond, __CLPK_integer rank, __CLPK_doublereal work, __CLPK_integer
cannam@17	1335 lwork, __CLPK_integer *info);
cannam@17	1336
cannam@17	1337 /* Subroutine / int dgeql2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1338 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	1339
cannam@17	1340 /* Subroutine / int dgeqlf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1341 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1342
cannam@17	1343 /* Subroutine / int dgeqp3_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1344 lda, __CLPK_integer jpvt, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	1345 __CLPK_integer *info);
cannam@17	1346
cannam@17	1347 /* Subroutine / int dgeqpf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1348 lda, __CLPK_integer jpvt, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1349
cannam@17	1350 /* Subroutine / int dgeqr2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1351 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	1352
cannam@17	1353 /* Subroutine / int dgeqrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1354 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1355
cannam@17	1356 /* Subroutine / int dgerfs_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1357 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal af, __CLPK_integer ldaf, __CLPK_integer *
cannam@17	1358 ipiv, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx,
cannam@17	1359 __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	1360 __CLPK_integer *info);
cannam@17	1361
cannam@17	1362 /* Subroutine / int dgerq2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1363 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	1364
cannam@17	1365 /* Subroutine / int dgerqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1366 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1367
cannam@17	1368 /* Subroutine / int dgesc2_(__CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda,
cannam@17	1369 __CLPK_doublereal rhs, __CLPK_integer ipiv, __CLPK_integer jpiv, __CLPK_doublereal scale);
cannam@17	1370
cannam@17	1371 /* Subroutine / int dgesdd_(char jobz, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1372 a, __CLPK_integer lda, __CLPK_doublereal s, __CLPK_doublereal u, __CLPK_integer ldu,
cannam@17	1373 __CLPK_doublereal vt, __CLPK_integer ldvt, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	1374 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	1375
cannam@17	1376 /* Subroutine / int dgesv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal a, __CLPK_integer
cannam@17	1377 lda, __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	1378
cannam@17	1379 /* Subroutine / int dgesvd_(char jobu, char jobvt, __CLPK_integer m, __CLPK_integer *n,
cannam@17	1380 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal s, __CLPK_doublereal u, __CLPK_integer *
cannam@17	1381 ldu, __CLPK_doublereal vt, __CLPK_integer ldvt, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	1382 __CLPK_integer *info);
cannam@17	1383
cannam@17	1384 /* Subroutine / int dgesvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *
cannam@17	1385 nrhs, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal af, __CLPK_integer ldaf,
cannam@17	1386 __CLPK_integer ipiv, char equed, __CLPK_doublereal r__, __CLPK_doublereal c__,
cannam@17	1387 __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal *
cannam@17	1388 rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer
cannam@17	1389 iwork, __CLPK_integer *info);
cannam@17	1390
cannam@17	1391 /* Subroutine / int dgetc2_(__CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer
cannam@17	1392 ipiv, __CLPK_integer jpiv, __CLPK_integer *info);
cannam@17	1393
cannam@17	1394 /* Subroutine / int dgetf2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1395 lda, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	1396
cannam@17	1397 /* Subroutine / int dgetrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1398 lda, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	1399
cannam@17	1400 /* Subroutine / int dgetri_(__CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer
cannam@17	1401 ipiv, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1402
cannam@17	1403 /* Subroutine / int dgetrs_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1404 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer *
cannam@17	1405 ldb, __CLPK_integer *info);
cannam@17	1406
cannam@17	1407 /* Subroutine / int dggbak_(char job, char side, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	1408 __CLPK_integer ihi, __CLPK_doublereal lscale, __CLPK_doublereal rscale, __CLPK_integer m,
cannam@17	1409 __CLPK_doublereal v, __CLPK_integer ldv, __CLPK_integer *info);
cannam@17	1410
cannam@17	1411 /* Subroutine / int dggbal_(char job, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1412 lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer ilo, __CLPK_integer ihi,
cannam@17	1413 __CLPK_doublereal lscale, __CLPK_doublereal rscale, __CLPK_doublereal work, __CLPK_integer
cannam@17	1414 info);
cannam@17	1415
cannam@17	1416 /* Subroutine / int dgges_(char jobvsl, char jobvsr, char sort, __CLPK_L_fp
cannam@17	1417 delctg, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b,
cannam@17	1418 __CLPK_integer ldb, __CLPK_integer sdim, __CLPK_doublereal alphar, __CLPK_doublereal alphai,
cannam@17	1419 __CLPK_doublereal beta, __CLPK_doublereal vsl, __CLPK_integer ldvsl, __CLPK_doublereal vsr,
cannam@17	1420 __CLPK_integer ldvsr, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_logical bwork,
cannam@17	1421 __CLPK_integer *info);
cannam@17	1422
cannam@17	1423 /* Subroutine / int dggesx_(char jobvsl, char jobvsr, char sort, __CLPK_L_fp
cannam@17	1424 delctg, char sense, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda,
cannam@17	1425 __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer sdim, __CLPK_doublereal alphar,
cannam@17	1426 __CLPK_doublereal alphai, __CLPK_doublereal beta, __CLPK_doublereal vsl, __CLPK_integer ldvsl,
cannam@17	1427 __CLPK_doublereal vsr, __CLPK_integer ldvsr, __CLPK_doublereal rconde, __CLPK_doublereal
cannam@17	1428 rcondv, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer
cannam@17	1429 liwork, __CLPK_logical bwork, __CLPK_integer info);
cannam@17	1430
cannam@17	1431 /* Subroutine / int dggev_(char jobvl, char jobvr, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1432 a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal alphar,
cannam@17	1433 __CLPK_doublereal alphai, __CLPK_doublereal beta, __CLPK_doublereal vl, __CLPK_integer ldvl,
cannam@17	1434 __CLPK_doublereal vr, __CLPK_integer ldvr, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	1435 __CLPK_integer *info);
cannam@17	1436
cannam@17	1437 /* Subroutine / int dggevx_(char balanc, char jobvl, char jobvr, char *
cannam@17	1438 sense, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b,
cannam@17	1439 __CLPK_integer ldb, __CLPK_doublereal alphar, __CLPK_doublereal alphai, __CLPK_doublereal
cannam@17	1440 beta, __CLPK_doublereal vl, __CLPK_integer ldvl, __CLPK_doublereal vr, __CLPK_integer ldvr,
cannam@17	1441 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublereal lscale, __CLPK_doublereal rscale,
cannam@17	1442 __CLPK_doublereal abnrm, __CLPK_doublereal bbnrm, __CLPK_doublereal rconde, __CLPK_doublereal
cannam@17	1443 rcondv, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_logical
cannam@17	1444 bwork, __CLPK_integer *info);
cannam@17	1445
cannam@17	1446 /* Subroutine / int dggglm_(__CLPK_integer n, __CLPK_integer m, __CLPK_integer p, __CLPK_doublereal *
cannam@17	1447 a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal d__,
cannam@17	1448 __CLPK_doublereal x, __CLPK_doublereal y, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	1449 __CLPK_integer *info);
cannam@17	1450
cannam@17	1451 /* Subroutine / int dgghrd_(char compq, char compz, __CLPK_integer n, __CLPK_integer *
cannam@17	1452 ilo, __CLPK_integer ihi, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b,
cannam@17	1453 __CLPK_integer ldb, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal z__, __CLPK_integer *
cannam@17	1454 ldz, __CLPK_integer *info);
cannam@17	1455
cannam@17	1456 /* Subroutine / int dgglse_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer p, __CLPK_doublereal *
cannam@17	1457 a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal c__,
cannam@17	1458 __CLPK_doublereal d__, __CLPK_doublereal x, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	1459 __CLPK_integer *info);
cannam@17	1460
cannam@17	1461 /* Subroutine / int dggqrf_(__CLPK_integer n, __CLPK_integer m, __CLPK_integer p, __CLPK_doublereal *
cannam@17	1462 a, __CLPK_integer lda, __CLPK_doublereal taua, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	1463 __CLPK_doublereal taub, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1464
cannam@17	1465 /* Subroutine / int dggrqf_(__CLPK_integer m, __CLPK_integer p, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1466 a, __CLPK_integer lda, __CLPK_doublereal taua, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	1467 __CLPK_doublereal taub, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1468
cannam@17	1469 /* Subroutine / int dggsvd_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	1470 __CLPK_integer n, __CLPK_integer p, __CLPK_integer k, __CLPK_integer l, __CLPK_doublereal *a,
cannam@17	1471 __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal alpha,
cannam@17	1472 __CLPK_doublereal beta, __CLPK_doublereal u, __CLPK_integer ldu, __CLPK_doublereal v, __CLPK_integer
cannam@17	1473 ldv, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal work, __CLPK_integer *iwork,
cannam@17	1474 __CLPK_integer *info);
cannam@17	1475
cannam@17	1476 /* Subroutine / int dggsvp_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	1477 __CLPK_integer p, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal *b,
cannam@17	1478 __CLPK_integer ldb, __CLPK_doublereal tola, __CLPK_doublereal tolb, __CLPK_integer k, __CLPK_integer
cannam@17	1479 l, __CLPK_doublereal u, __CLPK_integer ldu, __CLPK_doublereal v, __CLPK_integer *ldv,
cannam@17	1480 __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_integer iwork, __CLPK_doublereal tau,
cannam@17	1481 __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1482
cannam@17	1483 /* Subroutine / int dgtcon_(char norm, __CLPK_integer n, __CLPK_doublereal dl,
cannam@17	1484 __CLPK_doublereal d__, __CLPK_doublereal du, __CLPK_doublereal du2, __CLPK_integer ipiv,
cannam@17	1485 __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublereal work, __CLPK_integer
cannam@17	1486 iwork, __CLPK_integer *info);
cannam@17	1487
cannam@17	1488 /* Subroutine / int dgtrfs_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1489 __CLPK_doublereal dl, __CLPK_doublereal d__, __CLPK_doublereal du, __CLPK_doublereal dlf,
cannam@17	1490 __CLPK_doublereal df, __CLPK_doublereal duf, __CLPK_doublereal du2, __CLPK_integer ipiv,
cannam@17	1491 __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal *
cannam@17	1492 ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer
cannam@17	1493 info);
cannam@17	1494
cannam@17	1495 /* Subroutine / int dgtsv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal dl,
cannam@17	1496 __CLPK_doublereal d__, __CLPK_doublereal du, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer
cannam@17	1497 *info);
cannam@17	1498
cannam@17	1499 /* Subroutine / int dgtsvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *
cannam@17	1500 nrhs, __CLPK_doublereal dl, __CLPK_doublereal d__, __CLPK_doublereal du, __CLPK_doublereal
cannam@17	1501 dlf, __CLPK_doublereal df, __CLPK_doublereal duf, __CLPK_doublereal du2, __CLPK_integer ipiv,
cannam@17	1502 __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal *
cannam@17	1503 rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer
cannam@17	1504 iwork, __CLPK_integer *info);
cannam@17	1505
cannam@17	1506 /* Subroutine / int dgttrf_(__CLPK_integer n, __CLPK_doublereal dl, __CLPK_doublereal d__,
cannam@17	1507 __CLPK_doublereal du, __CLPK_doublereal du2, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	1508
cannam@17	1509 /* Subroutine / int dgttrs_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1510 __CLPK_doublereal dl, __CLPK_doublereal d__, __CLPK_doublereal du, __CLPK_doublereal du2,
cannam@17	1511 __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	1512
cannam@17	1513 /* Subroutine / int dgtts2_(__CLPK_integer itrans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1514 __CLPK_doublereal dl, __CLPK_doublereal d__, __CLPK_doublereal du, __CLPK_doublereal du2,
cannam@17	1515 __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer *ldb);
cannam@17	1516
cannam@17	1517 /* Subroutine / int dhgeqz_(char job, char compq, char compz, __CLPK_integer *n,
cannam@17	1518 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal *
cannam@17	1519 b, __CLPK_integer ldb, __CLPK_doublereal alphar, __CLPK_doublereal alphai, __CLPK_doublereal
cannam@17	1520 beta, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal z__, __CLPK_integer ldz,
cannam@17	1521 __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	1522
cannam@17	1523 /* Subroutine / int dhsein_(char side, char eigsrc, char initv, __CLPK_logical *
cannam@17	1524 select, __CLPK_integer n, __CLPK_doublereal h__, __CLPK_integer ldh, __CLPK_doublereal wr,
cannam@17	1525 __CLPK_doublereal wi, __CLPK_doublereal vl, __CLPK_integer ldvl, __CLPK_doublereal vr,
cannam@17	1526 __CLPK_integer ldvr, __CLPK_integer mm, __CLPK_integer m, __CLPK_doublereal work, __CLPK_integer *
cannam@17	1527 ifaill, __CLPK_integer ifailr, __CLPK_integer info);
cannam@17	1528
cannam@17	1529 /* Subroutine / int dhseqr_(char job, char compz, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	1530 __CLPK_integer ihi, __CLPK_doublereal h__, __CLPK_integer ldh, __CLPK_doublereal wr,
cannam@17	1531 __CLPK_doublereal wi, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	1532 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	1533
cannam@17	1534 /* Subroutine / int dlabad_(__CLPK_doublereal small, __CLPK_doublereal *large);
cannam@17	1535
cannam@17	1536 /* Subroutine / int dlabrd_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nb, __CLPK_doublereal *
cannam@17	1537 a, __CLPK_integer lda, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal tauq,
cannam@17	1538 __CLPK_doublereal taup, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal y, __CLPK_integer
cannam@17	1539 *ldy);
cannam@17	1540
cannam@17	1541 /* Subroutine / int dlacon_(__CLPK_integer n, __CLPK_doublereal v, __CLPK_doublereal x,
cannam@17	1542 __CLPK_integer isgn, __CLPK_doublereal est, __CLPK_integer *kase);
cannam@17	1543
cannam@17	1544 /* Subroutine / int dlacpy_(char uplo, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1545 a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer *ldb);
cannam@17	1546
cannam@17	1547 /* Subroutine / int dladiv_(__CLPK_doublereal a, __CLPK_doublereal b, __CLPK_doublereal c__,
cannam@17	1548 __CLPK_doublereal d__, __CLPK_doublereal p, __CLPK_doublereal *q);
cannam@17	1549
cannam@17	1550 /* Subroutine / int dlae2_(__CLPK_doublereal a, __CLPK_doublereal b, __CLPK_doublereal c__,
cannam@17	1551 __CLPK_doublereal rt1, __CLPK_doublereal rt2);
cannam@17	1552
cannam@17	1553 /* Subroutine / int dlaebz_(__CLPK_integer ijob, __CLPK_integer nitmax, __CLPK_integer n,
cannam@17	1554 __CLPK_integer mmax, __CLPK_integer minp, __CLPK_integer nbmin, __CLPK_doublereal abstol,
cannam@17	1555 __CLPK_doublereal reltol, __CLPK_doublereal pivmin, __CLPK_doublereal d__, __CLPK_doublereal
cannam@17	1556 e, __CLPK_doublereal e2, __CLPK_integer nval, __CLPK_doublereal ab, __CLPK_doublereal c__,
cannam@17	1557 __CLPK_integer mout, __CLPK_integer nab, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	1558 __CLPK_integer *info);
cannam@17	1559
cannam@17	1560 /* Subroutine / int dlaed0_(__CLPK_integer icompq, __CLPK_integer qsiz, __CLPK_integer n,
cannam@17	1561 __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal q, __CLPK_integer ldq,
cannam@17	1562 __CLPK_doublereal qstore, __CLPK_integer ldqs, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	1563 __CLPK_integer *info);
cannam@17	1564
cannam@17	1565 /* Subroutine / int dlaed1_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal q,
cannam@17	1566 __CLPK_integer ldq, __CLPK_integer indxq, __CLPK_doublereal rho, __CLPK_integer cutpnt,
cannam@17	1567 __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	1568
cannam@17	1569 /* Subroutine / int dlaed2_(__CLPK_integer k, __CLPK_integer n, __CLPK_integer n1, __CLPK_doublereal *
cannam@17	1570 d__, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_integer indxq, __CLPK_doublereal rho,
cannam@17	1571 __CLPK_doublereal z__, __CLPK_doublereal dlamda, __CLPK_doublereal w, __CLPK_doublereal q2,
cannam@17	1572 __CLPK_integer indx, __CLPK_integer indxc, __CLPK_integer indxp, __CLPK_integer coltyp,
cannam@17	1573 __CLPK_integer *info);
cannam@17	1574
cannam@17	1575 /* Subroutine / int dlaed3_(__CLPK_integer k, __CLPK_integer n, __CLPK_integer n1, __CLPK_doublereal *
cannam@17	1576 d__, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal rho, __CLPK_doublereal dlamda,
cannam@17	1577 __CLPK_doublereal q2, __CLPK_integer indx, __CLPK_integer ctot, __CLPK_doublereal w,
cannam@17	1578 __CLPK_doublereal s, __CLPK_integer info);
cannam@17	1579
cannam@17	1580 /* Subroutine / int dlaed4_(__CLPK_integer n, __CLPK_integer i__, __CLPK_doublereal d__,
cannam@17	1581 __CLPK_doublereal z__, __CLPK_doublereal delta, __CLPK_doublereal rho, __CLPK_doublereal dlam,
cannam@17	1582 __CLPK_integer *info);
cannam@17	1583
cannam@17	1584 /* Subroutine / int dlaed5_(__CLPK_integer i__, __CLPK_doublereal d__, __CLPK_doublereal z__,
cannam@17	1585 __CLPK_doublereal delta, __CLPK_doublereal rho, __CLPK_doublereal *dlam);
cannam@17	1586
cannam@17	1587 /* Subroutine / int dlaed6_(__CLPK_integer kniter, __CLPK_logical orgati, __CLPK_doublereal
cannam@17	1588 rho, __CLPK_doublereal d__, __CLPK_doublereal z__, __CLPK_doublereal finit, __CLPK_doublereal
cannam@17	1589 tau, __CLPK_integer *info);
cannam@17	1590
cannam@17	1591 /* Subroutine / int dlaed7_(__CLPK_integer icompq, __CLPK_integer n, __CLPK_integer qsiz,
cannam@17	1592 __CLPK_integer tlvls, __CLPK_integer curlvl, __CLPK_integer curpbm, __CLPK_doublereal d__,
cannam@17	1593 __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_integer indxq, __CLPK_doublereal rho, __CLPK_integer
cannam@17	1594 cutpnt, __CLPK_doublereal qstore, __CLPK_integer qptr, __CLPK_integer prmptr, __CLPK_integer *
cannam@17	1595 perm, __CLPK_integer givptr, __CLPK_integer givcol, __CLPK_doublereal *givnum,
cannam@17	1596 __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	1597
cannam@17	1598 /* Subroutine / int dlaed8_(__CLPK_integer icompq, __CLPK_integer k, __CLPK_integer n, __CLPK_integer
cannam@17	1599 qsiz, __CLPK_doublereal d__, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_integer *indxq,
cannam@17	1600 __CLPK_doublereal rho, __CLPK_integer cutpnt, __CLPK_doublereal z__, __CLPK_doublereal dlamda,
cannam@17	1601 __CLPK_doublereal q2, __CLPK_integer ldq2, __CLPK_doublereal w, __CLPK_integer perm, __CLPK_integer
cannam@17	1602 givptr, __CLPK_integer givcol, __CLPK_doublereal givnum, __CLPK_integer indxp, __CLPK_integer
cannam@17	1603 indx, __CLPK_integer info);
cannam@17	1604
cannam@17	1605 /* Subroutine / int dlaed9_(__CLPK_integer k, __CLPK_integer kstart, __CLPK_integer kstop,
cannam@17	1606 __CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal *
cannam@17	1607 rho, __CLPK_doublereal dlamda, __CLPK_doublereal w, __CLPK_doublereal s, __CLPK_integer lds,
cannam@17	1608 __CLPK_integer *info);
cannam@17	1609
cannam@17	1610 /* Subroutine / int dlaeda_(__CLPK_integer n, __CLPK_integer tlvls, __CLPK_integer curlvl,
cannam@17	1611 __CLPK_integer curpbm, __CLPK_integer prmptr, __CLPK_integer perm, __CLPK_integer givptr,
cannam@17	1612 __CLPK_integer givcol, __CLPK_doublereal givnum, __CLPK_doublereal q, __CLPK_integer qptr,
cannam@17	1613 __CLPK_doublereal z__, __CLPK_doublereal ztemp, __CLPK_integer *info);
cannam@17	1614
cannam@17	1615 /* Subroutine / int dlaein_(__CLPK_logical rightv, __CLPK_logical noinit, __CLPK_integer n,
cannam@17	1616 __CLPK_doublereal h__, __CLPK_integer ldh, __CLPK_doublereal wr, __CLPK_doublereal wi,
cannam@17	1617 __CLPK_doublereal vr, __CLPK_doublereal vi, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	1618 __CLPK_doublereal work, __CLPK_doublereal eps3, __CLPK_doublereal smlnum, __CLPK_doublereal
cannam@17	1619 bignum, __CLPK_integer *info);
cannam@17	1620
cannam@17	1621 /* Subroutine / int dlaev2_(__CLPK_doublereal a, __CLPK_doublereal b, __CLPK_doublereal c__,
cannam@17	1622 __CLPK_doublereal rt1, __CLPK_doublereal rt2, __CLPK_doublereal cs1, __CLPK_doublereal sn1);
cannam@17	1623
cannam@17	1624 /* Subroutine / int dlaexc_(__CLPK_logical wantq, __CLPK_integer n, __CLPK_doublereal t,
cannam@17	1625 __CLPK_integer ldt, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_integer j1, __CLPK_integer *n1,
cannam@17	1626 __CLPK_integer n2, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	1627
cannam@17	1628 /* Subroutine / int dlag2_(__CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b,
cannam@17	1629 __CLPK_integer ldb, __CLPK_doublereal safmin, __CLPK_doublereal scale1, __CLPK_doublereal
cannam@17	1630 scale2, __CLPK_doublereal wr1, __CLPK_doublereal wr2, __CLPK_doublereal *wi);
cannam@17	1631
cannam@17	1632 /* Subroutine / int dlags2_(__CLPK_logical upper, __CLPK_doublereal a1, __CLPK_doublereal a2,
cannam@17	1633 __CLPK_doublereal a3, __CLPK_doublereal b1, __CLPK_doublereal b2, __CLPK_doublereal b3,
cannam@17	1634 __CLPK_doublereal csu, __CLPK_doublereal snu, __CLPK_doublereal csv, __CLPK_doublereal snv,
cannam@17	1635 __CLPK_doublereal csq, __CLPK_doublereal snq);
cannam@17	1636
cannam@17	1637 /* Subroutine / int dlagtf_(__CLPK_integer n, __CLPK_doublereal a, __CLPK_doublereal lambda,
cannam@17	1638 __CLPK_doublereal b, __CLPK_doublereal c__, __CLPK_doublereal tol, __CLPK_doublereal d__,
cannam@17	1639 __CLPK_integer in, __CLPK_integer info);
cannam@17	1640
cannam@17	1641 /* Subroutine / int dlagtm_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	1642 __CLPK_doublereal alpha, __CLPK_doublereal dl, __CLPK_doublereal d__, __CLPK_doublereal du,
cannam@17	1643 __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal beta, __CLPK_doublereal b, __CLPK_integer
cannam@17	1644 *ldb);
cannam@17	1645
cannam@17	1646 /* Subroutine / int dlagts_(__CLPK_integer job, __CLPK_integer n, __CLPK_doublereal a,
cannam@17	1647 __CLPK_doublereal b, __CLPK_doublereal c__, __CLPK_doublereal d__, __CLPK_integer in,
cannam@17	1648 __CLPK_doublereal y, __CLPK_doublereal tol, __CLPK_integer *info);
cannam@17	1649
cannam@17	1650 /* Subroutine / int dlagv2_(__CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b,
cannam@17	1651 __CLPK_integer ldb, __CLPK_doublereal alphar, __CLPK_doublereal alphai, __CLPK_doublereal
cannam@17	1652 beta, __CLPK_doublereal csl, __CLPK_doublereal snl, __CLPK_doublereal csr, __CLPK_doublereal
cannam@17	1653 snr);
cannam@17	1654
cannam@17	1655 /* Subroutine / int dlahqr_(__CLPK_logical wantt, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	1656 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublereal h__, __CLPK_integer ldh, __CLPK_doublereal
cannam@17	1657 wr, __CLPK_doublereal wi, __CLPK_integer iloz, __CLPK_integer ihiz, __CLPK_doublereal *z__,
cannam@17	1658 __CLPK_integer ldz, __CLPK_integer info);
cannam@17	1659
cannam@17	1660 /* Subroutine / int dlahrd_(__CLPK_integer n, __CLPK_integer k, __CLPK_integer nb, __CLPK_doublereal *
cannam@17	1661 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal t, __CLPK_integer ldt,
cannam@17	1662 __CLPK_doublereal y, __CLPK_integer ldy);
cannam@17	1663
cannam@17	1664 /* Subroutine / int dlaic1_(__CLPK_integer job, __CLPK_integer j, __CLPK_doublereal x,
cannam@17	1665 __CLPK_doublereal sest, __CLPK_doublereal w, __CLPK_doublereal gamma, __CLPK_doublereal
cannam@17	1666 sestpr, __CLPK_doublereal s, __CLPK_doublereal c__);
cannam@17	1667
cannam@17	1668 /* Subroutine / int dlaln2_(__CLPK_logical ltrans, __CLPK_integer na, __CLPK_integer nw,
cannam@17	1669 __CLPK_doublereal smin, __CLPK_doublereal ca, __CLPK_doublereal a, __CLPK_integer lda,
cannam@17	1670 __CLPK_doublereal d1, __CLPK_doublereal d2, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	1671 __CLPK_doublereal wr, __CLPK_doublereal wi, __CLPK_doublereal x, __CLPK_integer ldx,
cannam@17	1672 __CLPK_doublereal scale, __CLPK_doublereal xnorm, __CLPK_integer *info);
cannam@17	1673
cannam@17	1674 /* Subroutine / int dlals0_(__CLPK_integer icompq, __CLPK_integer nl, __CLPK_integer nr,
cannam@17	1675 __CLPK_integer sqre, __CLPK_integer nrhs, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal
cannam@17	1676 bx, __CLPK_integer ldbx, __CLPK_integer perm, __CLPK_integer givptr, __CLPK_integer *givcol,
cannam@17	1677 __CLPK_integer ldgcol, __CLPK_doublereal givnum, __CLPK_integer ldgnum, __CLPK_doublereal
cannam@17	1678 poles, __CLPK_doublereal difl, __CLPK_doublereal difr, __CLPK_doublereal z__, __CLPK_integer
cannam@17	1679 k, __CLPK_doublereal c__, __CLPK_doublereal s, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1680
cannam@17	1681 /* Subroutine / int dlalsa_(__CLPK_integer icompq, __CLPK_integer smlsiz, __CLPK_integer n,
cannam@17	1682 __CLPK_integer nrhs, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal bx, __CLPK_integer *
cannam@17	1683 ldbx, __CLPK_doublereal u, __CLPK_integer ldu, __CLPK_doublereal vt, __CLPK_integer k,
cannam@17	1684 __CLPK_doublereal difl, __CLPK_doublereal difr, __CLPK_doublereal z__, __CLPK_doublereal
cannam@17	1685 poles, __CLPK_integer givptr, __CLPK_integer givcol, __CLPK_integer ldgcol, __CLPK_integer
cannam@17	1686 perm, __CLPK_doublereal givnum, __CLPK_doublereal c__, __CLPK_doublereal s, __CLPK_doublereal
cannam@17	1687 work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	1688
cannam@17	1689 /* Subroutine / int dlalsd_(char uplo, __CLPK_integer smlsiz, __CLPK_integer n, __CLPK_integer
cannam@17	1690 nrhs, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal b, __CLPK_integer *ldb,
cannam@17	1691 __CLPK_doublereal rcond, __CLPK_integer rank, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	1692 __CLPK_integer *info);
cannam@17	1693
cannam@17	1694 /* Subroutine / int dlamc1_(__CLPK_integer beta, __CLPK_integer t, __CLPK_logical rnd, __CLPK_logical
cannam@17	1695 *ieee1);
cannam@17	1696
cannam@17	1697 /* Subroutine / int dlamc2_(__CLPK_integer beta, __CLPK_integer t, __CLPK_logical rnd,
cannam@17	1698 __CLPK_doublereal eps, __CLPK_integer emin, __CLPK_doublereal rmin, __CLPK_integer emax,
cannam@17	1699 __CLPK_doublereal *rmax);
cannam@17	1700
cannam@17	1701 /* Subroutine / int dlamc4_(__CLPK_integer emin, __CLPK_doublereal start, __CLPK_integer base);
cannam@17	1702
cannam@17	1703 /* Subroutine / int dlamc5_(__CLPK_integer beta, __CLPK_integer p, __CLPK_integer emin,
cannam@17	1704 __CLPK_logical ieee, __CLPK_integer emax, __CLPK_doublereal *rmax);
cannam@17	1705
cannam@17	1706 /* Subroutine / int dlamrg_(__CLPK_integer n1, __CLPK_integer n2, __CLPK_doublereal a, __CLPK_integer
cannam@17	1707 dtrd1, __CLPK_integer dtrd2, __CLPK_integer *index);
cannam@17	1708
cannam@17	1709 /* Subroutine / int dlanv2_(__CLPK_doublereal a, __CLPK_doublereal b, __CLPK_doublereal c__,
cannam@17	1710 __CLPK_doublereal d__, __CLPK_doublereal rt1r, __CLPK_doublereal rt1i, __CLPK_doublereal rt2r,
cannam@17	1711 __CLPK_doublereal rt2i, __CLPK_doublereal cs, __CLPK_doublereal *sn);
cannam@17	1712
cannam@17	1713 /* Subroutine / int dlapll_(__CLPK_integer n, __CLPK_doublereal x, __CLPK_integer incx,
cannam@17	1714 __CLPK_doublereal y, __CLPK_integer incy, __CLPK_doublereal *ssmin);
cannam@17	1715
cannam@17	1716 /* Subroutine / int dlapmt_(__CLPK_logical forwrd, __CLPK_integer m, __CLPK_integer n,
cannam@17	1717 __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_integer *k);
cannam@17	1718
cannam@17	1719 /* Subroutine / int dlaqgb_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	1720 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal r__, __CLPK_doublereal c__,
cannam@17	1721 __CLPK_doublereal rowcnd, __CLPK_doublereal colcnd, __CLPK_doublereal amax, char equed);
cannam@17	1722
cannam@17	1723 /* Subroutine / int dlaqge_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1724 lda, __CLPK_doublereal r__, __CLPK_doublereal c__, __CLPK_doublereal *rowcnd, __CLPK_doublereal
cannam@17	1725 colcnd, __CLPK_doublereal amax, char *equed);
cannam@17	1726
cannam@17	1727 /* Subroutine / int dlaqp2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer offset,
cannam@17	1728 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer jpvt, __CLPK_doublereal tau,
cannam@17	1729 __CLPK_doublereal vn1, __CLPK_doublereal vn2, __CLPK_doublereal *work);
cannam@17	1730
cannam@17	1731 /* Subroutine / int dlaqps_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer offset, __CLPK_integer
cannam@17	1732 nb, __CLPK_integer kb, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer *jpvt,
cannam@17	1733 __CLPK_doublereal tau, __CLPK_doublereal vn1, __CLPK_doublereal vn2, __CLPK_doublereal auxv,
cannam@17	1734 __CLPK_doublereal f, __CLPK_integer ldf);
cannam@17	1735
cannam@17	1736 /* Subroutine / int dlaqsb_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_doublereal *
cannam@17	1737 ab, __CLPK_integer ldab, __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax,
cannam@17	1738 char *equed);
cannam@17	1739
cannam@17	1740 /* Subroutine / int dlaqsp_(char uplo, __CLPK_integer n, __CLPK_doublereal ap,
cannam@17	1741 __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax, char equed);
cannam@17	1742
cannam@17	1743 /* Subroutine / int dlaqsy_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1744 lda, __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax, char equed);
cannam@17	1745
cannam@17	1746 /* Subroutine / int dlaqtr_(__CLPK_logical ltran, __CLPK_logical lreal, __CLPK_integer n,
cannam@17	1747 __CLPK_doublereal t, __CLPK_integer ldt, __CLPK_doublereal b, __CLPK_doublereal w, __CLPK_doublereal
cannam@17	1748 scale, __CLPK_doublereal x, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1749
cannam@17	1750 /* Subroutine / int dlar1v_(__CLPK_integer n, __CLPK_integer b1, __CLPK_integer bn, __CLPK_doublereal
cannam@17	1751 sigma, __CLPK_doublereal d__, __CLPK_doublereal l, __CLPK_doublereal ld, __CLPK_doublereal *
cannam@17	1752 lld, __CLPK_doublereal gersch, __CLPK_doublereal z__, __CLPK_doublereal *ztz, __CLPK_doublereal
cannam@17	1753 mingma, __CLPK_integer r__, __CLPK_integer isuppz, __CLPK_doublereal work);
cannam@17	1754
cannam@17	1755 /* Subroutine / int dlar2v_(__CLPK_integer n, __CLPK_doublereal x, __CLPK_doublereal y,
cannam@17	1756 __CLPK_doublereal z__, __CLPK_integer incx, __CLPK_doublereal c__, __CLPK_doublereal s,
cannam@17	1757 __CLPK_integer *incc);
cannam@17	1758
cannam@17	1759 /* Subroutine / int dlarf_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *v,
cannam@17	1760 __CLPK_integer incv, __CLPK_doublereal tau, __CLPK_doublereal c__, __CLPK_integer ldc,
cannam@17	1761 __CLPK_doublereal *work);
cannam@17	1762
cannam@17	1763 /* Subroutine / int dlarfb_(char side, char trans, char direct, char *
cannam@17	1764 storev, __CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal v, __CLPK_integer *
cannam@17	1765 ldv, __CLPK_doublereal t, __CLPK_integer ldt, __CLPK_doublereal c__, __CLPK_integer ldc,
cannam@17	1766 __CLPK_doublereal work, __CLPK_integer ldwork);
cannam@17	1767
cannam@17	1768 /* Subroutine / int dlarfg_(__CLPK_integer n, __CLPK_doublereal alpha, __CLPK_doublereal x,
cannam@17	1769 __CLPK_integer incx, __CLPK_doublereal tau);
cannam@17	1770
cannam@17	1771 /* Subroutine / int dlarft_(char direct, char storev, __CLPK_integer n, __CLPK_integer *
cannam@17	1772 k, __CLPK_doublereal v, __CLPK_integer ldv, __CLPK_doublereal tau, __CLPK_doublereal t,
cannam@17	1773 __CLPK_integer *ldt);
cannam@17	1774
cannam@17	1775 /* Subroutine / int dlarfx_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1776 v, __CLPK_doublereal tau, __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal work);
cannam@17	1777
cannam@17	1778 /* Subroutine / int dlargv_(__CLPK_integer n, __CLPK_doublereal x, __CLPK_integer incx,
cannam@17	1779 __CLPK_doublereal y, __CLPK_integer incy, __CLPK_doublereal c__, __CLPK_integer incc);
cannam@17	1780
cannam@17	1781 /* Subroutine / int dlarnv_(__CLPK_integer idist, __CLPK_integer iseed, __CLPK_integer n,
cannam@17	1782 __CLPK_doublereal *x);
cannam@17	1783
cannam@17	1784 /* Subroutine / int dlarrb_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal l,
cannam@17	1785 __CLPK_doublereal ld, __CLPK_doublereal lld, __CLPK_integer ifirst, __CLPK_integer ilast,
cannam@17	1786 __CLPK_doublereal sigma, __CLPK_doublereal reltol, __CLPK_doublereal w, __CLPK_doublereal
cannam@17	1787 wgap, __CLPK_doublereal werr, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer
cannam@17	1788 info);
cannam@17	1789
cannam@17	1790 /* Subroutine / int dlarre_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	1791 __CLPK_doublereal tol, __CLPK_integer nsplit, __CLPK_integer isplit, __CLPK_integer m,
cannam@17	1792 __CLPK_doublereal w, __CLPK_doublereal woff, __CLPK_doublereal gersch, __CLPK_doublereal work,
cannam@17	1793 __CLPK_integer *info);
cannam@17	1794
cannam@17	1795 /* Subroutine / int dlarrf_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal l,
cannam@17	1796 __CLPK_doublereal ld, __CLPK_doublereal lld, __CLPK_integer ifirst, __CLPK_integer ilast,
cannam@17	1797 __CLPK_doublereal w, __CLPK_doublereal dplus, __CLPK_doublereal lplus, __CLPK_doublereal work,
cannam@17	1798 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	1799
cannam@17	1800 /* Subroutine / int dlarrv_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal l,
cannam@17	1801 __CLPK_integer isplit, __CLPK_integer m, __CLPK_doublereal w, __CLPK_integer iblock,
cannam@17	1802 __CLPK_doublereal gersch, __CLPK_doublereal tol, __CLPK_doublereal z__, __CLPK_integer ldz,
cannam@17	1803 __CLPK_integer isuppz, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	1804
cannam@17	1805 /* Subroutine / int dlartg_(__CLPK_doublereal f, __CLPK_doublereal g, __CLPK_doublereal cs,
cannam@17	1806 __CLPK_doublereal sn, __CLPK_doublereal r__);
cannam@17	1807
cannam@17	1808 /* Subroutine / int dlartv_(__CLPK_integer n, __CLPK_doublereal x, __CLPK_integer incx,
cannam@17	1809 __CLPK_doublereal y, __CLPK_integer incy, __CLPK_doublereal c__, __CLPK_doublereal s, __CLPK_integer
cannam@17	1810 *incc);
cannam@17	1811
cannam@17	1812 /* Subroutine / int dlaruv_(__CLPK_integer iseed, __CLPK_integer n, __CLPK_doublereal x);
cannam@17	1813
cannam@17	1814 /* Subroutine / int dlarz_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *l,
cannam@17	1815 __CLPK_doublereal v, __CLPK_integer incv, __CLPK_doublereal tau, __CLPK_doublereal c__,
cannam@17	1816 __CLPK_integer ldc, __CLPK_doublereal work);
cannam@17	1817
cannam@17	1818 /* Subroutine / int dlarzb_(char side, char trans, char direct, char *
cannam@17	1819 storev, __CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_integer l, __CLPK_doublereal *v,
cannam@17	1820 __CLPK_integer ldv, __CLPK_doublereal t, __CLPK_integer ldt, __CLPK_doublereal c__, __CLPK_integer *
cannam@17	1821 ldc, __CLPK_doublereal work, __CLPK_integer ldwork);
cannam@17	1822
cannam@17	1823 /* Subroutine / int dlarzt_(char direct, char storev, __CLPK_integer n, __CLPK_integer *
cannam@17	1824 k, __CLPK_doublereal v, __CLPK_integer ldv, __CLPK_doublereal tau, __CLPK_doublereal t,
cannam@17	1825 __CLPK_integer *ldt);
cannam@17	1826
cannam@17	1827 /* Subroutine / int dlas2_(__CLPK_doublereal f, __CLPK_doublereal g, __CLPK_doublereal h__,
cannam@17	1828 __CLPK_doublereal ssmin, __CLPK_doublereal ssmax);
cannam@17	1829
cannam@17	1830 /* Subroutine / int dlascl_(char type__, __CLPK_integer kl, __CLPK_integer ku,
cannam@17	1831 __CLPK_doublereal cfrom, __CLPK_doublereal cto, __CLPK_integer m, __CLPK_integer n,
cannam@17	1832 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer *info);
cannam@17	1833
cannam@17	1834 /* Subroutine / int dlasd0_(__CLPK_integer n, __CLPK_integer sqre, __CLPK_doublereal d__,
cannam@17	1835 __CLPK_doublereal e, __CLPK_doublereal u, __CLPK_integer ldu, __CLPK_doublereal vt, __CLPK_integer *
cannam@17	1836 ldvt, __CLPK_integer smlsiz, __CLPK_integer iwork, __CLPK_doublereal work, __CLPK_integer
cannam@17	1837 info);
cannam@17	1838
cannam@17	1839 /* Subroutine / int dlasd1_(__CLPK_integer nl, __CLPK_integer nr, __CLPK_integer sqre,
cannam@17	1840 __CLPK_doublereal d__, __CLPK_doublereal alpha, __CLPK_doublereal beta, __CLPK_doublereal u,
cannam@17	1841 __CLPK_integer ldu, __CLPK_doublereal vt, __CLPK_integer ldvt, __CLPK_integer idxq, __CLPK_integer *
cannam@17	1842 iwork, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1843
cannam@17	1844 /* Subroutine / int dlasd2_(__CLPK_integer nl, __CLPK_integer nr, __CLPK_integer sqre, __CLPK_integer
cannam@17	1845 k, __CLPK_doublereal d__, __CLPK_doublereal z__, __CLPK_doublereal alpha, __CLPK_doublereal *
cannam@17	1846 beta, __CLPK_doublereal u, __CLPK_integer ldu, __CLPK_doublereal vt, __CLPK_integer ldvt,
cannam@17	1847 __CLPK_doublereal dsigma, __CLPK_doublereal u2, __CLPK_integer ldu2, __CLPK_doublereal vt2,
cannam@17	1848 __CLPK_integer ldvt2, __CLPK_integer idxp, __CLPK_integer idx, __CLPK_integer idxc, __CLPK_integer *
cannam@17	1849 idxq, __CLPK_integer coltyp, __CLPK_integer info);
cannam@17	1850
cannam@17	1851 /* Subroutine / int dlasd3_(__CLPK_integer nl, __CLPK_integer nr, __CLPK_integer sqre, __CLPK_integer
cannam@17	1852 k, __CLPK_doublereal d__, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal *dsigma,
cannam@17	1853 __CLPK_doublereal u, __CLPK_integer ldu, __CLPK_doublereal u2, __CLPK_integer ldu2,
cannam@17	1854 __CLPK_doublereal vt, __CLPK_integer ldvt, __CLPK_doublereal vt2, __CLPK_integer ldvt2,
cannam@17	1855 __CLPK_integer idxc, __CLPK_integer ctot, __CLPK_doublereal z__, __CLPK_integer info);
cannam@17	1856
cannam@17	1857 /* Subroutine / int dlasd4_(__CLPK_integer n, __CLPK_integer i__, __CLPK_doublereal d__,
cannam@17	1858 __CLPK_doublereal z__, __CLPK_doublereal delta, __CLPK_doublereal rho, __CLPK_doublereal
cannam@17	1859 sigma, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1860
cannam@17	1861 /* Subroutine / int dlasd5_(__CLPK_integer i__, __CLPK_doublereal d__, __CLPK_doublereal z__,
cannam@17	1862 __CLPK_doublereal delta, __CLPK_doublereal rho, __CLPK_doublereal dsigma, __CLPK_doublereal
cannam@17	1863 work);
cannam@17	1864
cannam@17	1865 /* Subroutine / int dlasd6_(__CLPK_integer icompq, __CLPK_integer nl, __CLPK_integer nr,
cannam@17	1866 __CLPK_integer sqre, __CLPK_doublereal d__, __CLPK_doublereal vf, __CLPK_doublereal vl,
cannam@17	1867 __CLPK_doublereal alpha, __CLPK_doublereal beta, __CLPK_integer idxq, __CLPK_integer perm,
cannam@17	1868 __CLPK_integer givptr, __CLPK_integer givcol, __CLPK_integer ldgcol, __CLPK_doublereal givnum,
cannam@17	1869 __CLPK_integer ldgnum, __CLPK_doublereal poles, __CLPK_doublereal difl, __CLPK_doublereal
cannam@17	1870 difr, __CLPK_doublereal z__, __CLPK_integer k, __CLPK_doublereal c__, __CLPK_doublereal s,
cannam@17	1871 __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	1872
cannam@17	1873 /* Subroutine / int dlasd7_(__CLPK_integer icompq, __CLPK_integer nl, __CLPK_integer nr,
cannam@17	1874 __CLPK_integer sqre, __CLPK_integer k, __CLPK_doublereal d__, __CLPK_doublereal z__,
cannam@17	1875 __CLPK_doublereal zw, __CLPK_doublereal vf, __CLPK_doublereal vfw, __CLPK_doublereal vl,
cannam@17	1876 __CLPK_doublereal vlw, __CLPK_doublereal alpha, __CLPK_doublereal beta, __CLPK_doublereal
cannam@17	1877 dsigma, __CLPK_integer idx, __CLPK_integer idxp, __CLPK_integer idxq, __CLPK_integer perm,
cannam@17	1878 __CLPK_integer givptr, __CLPK_integer givcol, __CLPK_integer ldgcol, __CLPK_doublereal givnum,
cannam@17	1879 __CLPK_integer ldgnum, __CLPK_doublereal c__, __CLPK_doublereal s, __CLPK_integer info);
cannam@17	1880
cannam@17	1881 /* Subroutine / int dlasd8_(__CLPK_integer icompq, __CLPK_integer k, __CLPK_doublereal d__,
cannam@17	1882 __CLPK_doublereal z__, __CLPK_doublereal vf, __CLPK_doublereal vl, __CLPK_doublereal difl,
cannam@17	1883 __CLPK_doublereal difr, __CLPK_integer lddifr, __CLPK_doublereal dsigma, __CLPK_doublereal
cannam@17	1884 work, __CLPK_integer *info);
cannam@17	1885
cannam@17	1886 /* Subroutine / int dlasd9_(__CLPK_integer icompq, __CLPK_integer ldu, __CLPK_integer k,
cannam@17	1887 __CLPK_doublereal d__, __CLPK_doublereal z__, __CLPK_doublereal vf, __CLPK_doublereal vl,
cannam@17	1888 __CLPK_doublereal difl, __CLPK_doublereal difr, __CLPK_doublereal dsigma, __CLPK_doublereal
cannam@17	1889 work, __CLPK_integer *info);
cannam@17	1890
cannam@17	1891 /* Subroutine / int dlasda_(__CLPK_integer icompq, __CLPK_integer smlsiz, __CLPK_integer n,
cannam@17	1892 __CLPK_integer sqre, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal u, __CLPK_integer
cannam@17	1893 ldu, __CLPK_doublereal vt, __CLPK_integer k, __CLPK_doublereal difl, __CLPK_doublereal *difr,
cannam@17	1894 __CLPK_doublereal z__, __CLPK_doublereal poles, __CLPK_integer givptr, __CLPK_integer givcol,
cannam@17	1895 __CLPK_integer ldgcol, __CLPK_integer perm, __CLPK_doublereal givnum, __CLPK_doublereal c__,
cannam@17	1896 __CLPK_doublereal s, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	1897
cannam@17	1898 /* Subroutine / int dlasdq_(char uplo, __CLPK_integer sqre, __CLPK_integer n, __CLPK_integer *
cannam@17	1899 ncvt, __CLPK_integer nru, __CLPK_integer ncc, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	1900 __CLPK_doublereal vt, __CLPK_integer ldvt, __CLPK_doublereal u, __CLPK_integer ldu,
cannam@17	1901 __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1902
cannam@17	1903 /* Subroutine / int dlasdt_(__CLPK_integer n, __CLPK_integer lvl, __CLPK_integer nd, __CLPK_integer *
cannam@17	1904 inode, __CLPK_integer ndiml, __CLPK_integer ndimr, __CLPK_integer *msub);
cannam@17	1905
cannam@17	1906 /* Subroutine / int dlaset_(char uplo, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1907 alpha, __CLPK_doublereal beta, __CLPK_doublereal a, __CLPK_integer *lda);
cannam@17	1908
cannam@17	1909 /* Subroutine / int dlasq1_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	1910 __CLPK_doublereal work, __CLPK_integer info);
cannam@17	1911
cannam@17	1912 /* Subroutine / int dlasq2_(__CLPK_integer n, __CLPK_doublereal z__, __CLPK_integer info);
cannam@17	1913
cannam@17	1914 /* Subroutine / int dlasq3_(__CLPK_integer i0, __CLPK_integer n0, __CLPK_doublereal z__,
cannam@17	1915 __CLPK_integer pp, __CLPK_doublereal dmin__, __CLPK_doublereal sigma, __CLPK_doublereal desig,
cannam@17	1916 __CLPK_doublereal qmax, __CLPK_integer nfail, __CLPK_integer iter, __CLPK_integer ndiv,
cannam@17	1917 __CLPK_logical *ieee);
cannam@17	1918
cannam@17	1919 /* Subroutine / int dlasq4_(__CLPK_integer i0, __CLPK_integer n0, __CLPK_doublereal z__,
cannam@17	1920 __CLPK_integer pp, __CLPK_integer n0in, __CLPK_doublereal dmin__, __CLPK_doublereal dmin1,
cannam@17	1921 __CLPK_doublereal dmin2, __CLPK_doublereal dn, __CLPK_doublereal dn1, __CLPK_doublereal dn2,
cannam@17	1922 __CLPK_doublereal tau, __CLPK_integer ttype);
cannam@17	1923
cannam@17	1924 /* Subroutine / int dlasq5_(__CLPK_integer i0, __CLPK_integer n0, __CLPK_doublereal z__,
cannam@17	1925 __CLPK_integer pp, __CLPK_doublereal tau, __CLPK_doublereal dmin__, __CLPK_doublereal dmin1,
cannam@17	1926 __CLPK_doublereal dmin2, __CLPK_doublereal dn, __CLPK_doublereal dnm1, __CLPK_doublereal dnm2,
cannam@17	1927 __CLPK_logical *ieee);
cannam@17	1928
cannam@17	1929 /* Subroutine / int dlasq6_(__CLPK_integer i0, __CLPK_integer n0, __CLPK_doublereal z__,
cannam@17	1930 __CLPK_integer pp, __CLPK_doublereal dmin__, __CLPK_doublereal dmin1, __CLPK_doublereal dmin2,
cannam@17	1931 __CLPK_doublereal dn, __CLPK_doublereal dnm1, __CLPK_doublereal *dnm2);
cannam@17	1932
cannam@17	1933 /* Subroutine / int dlasr_(char side, char pivot, char direct, __CLPK_integer *m,
cannam@17	1934 __CLPK_integer n, __CLPK_doublereal c__, __CLPK_doublereal s, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1935 lda);
cannam@17	1936
cannam@17	1937 /* Subroutine / int dlasrt_(char id, __CLPK_integer n, __CLPK_doublereal d__, __CLPK_integer *
cannam@17	1938 info);
cannam@17	1939
cannam@17	1940 /* Subroutine / int dlassq_(__CLPK_integer n, __CLPK_doublereal x, __CLPK_integer incx,
cannam@17	1941 __CLPK_doublereal scale, __CLPK_doublereal sumsq);
cannam@17	1942
cannam@17	1943 /* Subroutine / int dlasv2_(__CLPK_doublereal f, __CLPK_doublereal g, __CLPK_doublereal h__,
cannam@17	1944 __CLPK_doublereal ssmin, __CLPK_doublereal ssmax, __CLPK_doublereal snr, __CLPK_doublereal
cannam@17	1945 csr, __CLPK_doublereal snl, __CLPK_doublereal csl);
cannam@17	1946
cannam@17	1947 /* Subroutine / int dlaswp_(__CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer
cannam@17	1948 k1, __CLPK_integer k2, __CLPK_integer ipiv, __CLPK_integer incx);
cannam@17	1949
cannam@17	1950 /* Subroutine / int dlasy2_(__CLPK_logical ltranl, __CLPK_logical ltranr, __CLPK_integer isgn,
cannam@17	1951 __CLPK_integer n1, __CLPK_integer n2, __CLPK_doublereal tl, __CLPK_integer ldtl, __CLPK_doublereal *
cannam@17	1952 tr, __CLPK_integer ldtr, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal scale,
cannam@17	1953 __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal xnorm, __CLPK_integer info);
cannam@17	1954
cannam@17	1955 /* Subroutine / int dlasyf_(char uplo, __CLPK_integer n, __CLPK_integer nb, __CLPK_integer *kb,
cannam@17	1956 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublereal w, __CLPK_integer *
cannam@17	1957 ldw, __CLPK_integer *info);
cannam@17	1958
cannam@17	1959 /* Subroutine / int dlatbs_(char uplo, char trans, char diag, char *
cannam@17	1960 normin, __CLPK_integer n, __CLPK_integer kd, __CLPK_doublereal ab, __CLPK_integer ldab,
cannam@17	1961 __CLPK_doublereal x, __CLPK_doublereal scale, __CLPK_doublereal cnorm, __CLPK_integer info);
cannam@17	1962
cannam@17	1963 /* Subroutine / int dlatdf_(__CLPK_integer ijob, __CLPK_integer n, __CLPK_doublereal z__,
cannam@17	1964 __CLPK_integer ldz, __CLPK_doublereal rhs, __CLPK_doublereal rdsum, __CLPK_doublereal rdscal,
cannam@17	1965 __CLPK_integer ipiv, __CLPK_integer jpiv);
cannam@17	1966
cannam@17	1967 /* Subroutine / int dlatps_(char uplo, char trans, char diag, char *
cannam@17	1968 normin, __CLPK_integer n, __CLPK_doublereal ap, __CLPK_doublereal x, __CLPK_doublereal scale,
cannam@17	1969 __CLPK_doublereal cnorm, __CLPK_integer info);
cannam@17	1970
cannam@17	1971 /* Subroutine / int dlatrd_(char uplo, __CLPK_integer n, __CLPK_integer nb, __CLPK_doublereal *
cannam@17	1972 a, __CLPK_integer lda, __CLPK_doublereal e, __CLPK_doublereal tau, __CLPK_doublereal w,
cannam@17	1973 __CLPK_integer *ldw);
cannam@17	1974
cannam@17	1975 /* Subroutine / int dlatrs_(char uplo, char trans, char diag, char *
cannam@17	1976 normin, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal x,
cannam@17	1977 __CLPK_doublereal scale, __CLPK_doublereal cnorm, __CLPK_integer *info);
cannam@17	1978
cannam@17	1979 /* Subroutine / int dlatrz_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer l, __CLPK_doublereal *
cannam@17	1980 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *work);
cannam@17	1981
cannam@17	1982 /* Subroutine / int dlatzm_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *
cannam@17	1983 v, __CLPK_integer incv, __CLPK_doublereal tau, __CLPK_doublereal c1, __CLPK_doublereal c2,
cannam@17	1984 __CLPK_integer ldc, __CLPK_doublereal work);
cannam@17	1985
cannam@17	1986 /* Subroutine / int dlauu2_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1987 lda, __CLPK_integer *info);
cannam@17	1988
cannam@17	1989 /* Subroutine / int dlauum_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	1990 lda, __CLPK_integer *info);
cannam@17	1991
cannam@17	1992 /* Subroutine / int dopgtr_(char uplo, __CLPK_integer n, __CLPK_doublereal ap,
cannam@17	1993 __CLPK_doublereal tau, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal work,
cannam@17	1994 __CLPK_integer *info);
cannam@17	1995
cannam@17	1996 /* Subroutine / int dopmtr_(char side, char uplo, char trans, __CLPK_integer *m,
cannam@17	1997 __CLPK_integer n, __CLPK_doublereal ap, __CLPK_doublereal tau, __CLPK_doublereal c__, __CLPK_integer
cannam@17	1998 ldc, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	1999
cannam@17	2000 /* Subroutine / int dorg2l_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal *
cannam@17	2001 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2002
cannam@17	2003 /* Subroutine / int dorg2r_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal *
cannam@17	2004 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2005
cannam@17	2006 /* Subroutine / int dorgbr_(char vect, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *k,
cannam@17	2007 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work,
cannam@17	2008 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2009
cannam@17	2010 /* Subroutine / int dorghr_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi,
cannam@17	2011 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work,
cannam@17	2012 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2013
cannam@17	2014 /* Subroutine / int dorgl2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal *
cannam@17	2015 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2016
cannam@17	2017 /* Subroutine / int dorglq_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal *
cannam@17	2018 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2019 __CLPK_integer *info);
cannam@17	2020
cannam@17	2021 /* Subroutine / int dorgql_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal *
cannam@17	2022 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2023 __CLPK_integer *info);
cannam@17	2024
cannam@17	2025 /* Subroutine / int dorgqr_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal *
cannam@17	2026 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2027 __CLPK_integer *info);
cannam@17	2028
cannam@17	2029 /* Subroutine / int dorgr2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal *
cannam@17	2030 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2031
cannam@17	2032 /* Subroutine / int dorgrq_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal *
cannam@17	2033 a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2034 __CLPK_integer *info);
cannam@17	2035
cannam@17	2036 /* Subroutine / int dorgtr_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2037 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2038
cannam@17	2039 /* Subroutine / int dorm2l_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2040 __CLPK_integer k, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *
cannam@17	2041 c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	2042
cannam@17	2043 /* Subroutine / int dorm2r_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2044 __CLPK_integer k, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *
cannam@17	2045 c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	2046
cannam@17	2047 /* Subroutine / int dormbr_(char vect, char side, char trans, __CLPK_integer *m,
cannam@17	2048 __CLPK_integer n, __CLPK_integer k, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal *tau,
cannam@17	2049 __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2050 __CLPK_integer *info);
cannam@17	2051
cannam@17	2052 /* Subroutine / int dormhr_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2053 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal *
cannam@17	2054 tau, __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2055 __CLPK_integer *info);
cannam@17	2056
cannam@17	2057 /* Subroutine / int dorml2_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2058 __CLPK_integer k, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *
cannam@17	2059 c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	2060
cannam@17	2061 /* Subroutine / int dormlq_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2062 __CLPK_integer k, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *
cannam@17	2063 c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2064
cannam@17	2065 /* Subroutine / int dormql_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2066 __CLPK_integer k, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *
cannam@17	2067 c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2068
cannam@17	2069 /* Subroutine / int dormqr_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2070 __CLPK_integer k, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *
cannam@17	2071 c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2072
cannam@17	2073 /* Subroutine / int dormr2_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2074 __CLPK_integer k, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *
cannam@17	2075 c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	2076
cannam@17	2077 /* Subroutine / int dormr3_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2078 __CLPK_integer k, __CLPK_integer l, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal *tau,
cannam@17	2079 __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2080
cannam@17	2081 /* Subroutine / int dormrq_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2082 __CLPK_integer k, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *
cannam@17	2083 c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2084
cannam@17	2085 /* Subroutine / int dormrz_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2086 __CLPK_integer k, __CLPK_integer l, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal *tau,
cannam@17	2087 __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2088 __CLPK_integer *info);
cannam@17	2089
cannam@17	2090 /* Subroutine / int dormtr_(char side, char uplo, char trans, __CLPK_integer *m,
cannam@17	2091 __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal tau, __CLPK_doublereal *
cannam@17	2092 c__, __CLPK_integer ldc, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2093
cannam@17	2094 /* Subroutine / int dpbcon_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_doublereal *
cannam@17	2095 ab, __CLPK_integer ldab, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublereal
cannam@17	2096 work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2097
cannam@17	2098 /* Subroutine / int dpbequ_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_doublereal *
cannam@17	2099 ab, __CLPK_integer ldab, __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax,
cannam@17	2100 __CLPK_integer *info);
cannam@17	2101
cannam@17	2102 /* Subroutine / int dpbrfs_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	2103 nrhs, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal afb, __CLPK_integer ldafb,
cannam@17	2104 __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal *
cannam@17	2105 ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer
cannam@17	2106 info);
cannam@17	2107
cannam@17	2108 /* Subroutine / int dpbstf_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_doublereal *
cannam@17	2109 ab, __CLPK_integer ldab, __CLPK_integer info);
cannam@17	2110
cannam@17	2111 /* Subroutine / int dpbsv_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	2112 nrhs, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	2113 __CLPK_integer *info);
cannam@17	2114
cannam@17	2115 /* Subroutine / int dpbsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	2116 __CLPK_integer nrhs, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal afb,
cannam@17	2117 __CLPK_integer ldafb, char equed, __CLPK_doublereal s, __CLPK_doublereal b, __CLPK_integer *
cannam@17	2118 ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal rcond, __CLPK_doublereal ferr,
cannam@17	2119 __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2120
cannam@17	2121 /* Subroutine / int dpbtf2_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_doublereal *
cannam@17	2122 ab, __CLPK_integer ldab, __CLPK_integer info);
cannam@17	2123
cannam@17	2124 /* Subroutine / int dpbtrf_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_doublereal *
cannam@17	2125 ab, __CLPK_integer ldab, __CLPK_integer info);
cannam@17	2126
cannam@17	2127 /* Subroutine / int dpbtrs_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	2128 nrhs, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	2129 __CLPK_integer *info);
cannam@17	2130
cannam@17	2131 /* Subroutine / int dpocon_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2132 lda, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublereal work, __CLPK_integer
cannam@17	2133 iwork, __CLPK_integer *info);
cannam@17	2134
cannam@17	2135 /* Subroutine / int dpoequ_(__CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda,
cannam@17	2136 __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax, __CLPK_integer info);
cannam@17	2137
cannam@17	2138 /* Subroutine / int dporfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	2139 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal af, __CLPK_integer ldaf,
cannam@17	2140 __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal *
cannam@17	2141 ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer
cannam@17	2142 info);
cannam@17	2143
cannam@17	2144 /* Subroutine / int dposv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal
cannam@17	2145 a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	2146
cannam@17	2147 /* Subroutine / int dposvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	2148 nrhs, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal af, __CLPK_integer ldaf,
cannam@17	2149 char equed, __CLPK_doublereal s, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal *
cannam@17	2150 x, __CLPK_integer ldx, __CLPK_doublereal rcond, __CLPK_doublereal ferr, __CLPK_doublereal
cannam@17	2151 berr, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2152
cannam@17	2153 /* Subroutine / int dpotf2_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2154 lda, __CLPK_integer *info);
cannam@17	2155
cannam@17	2156 /* Subroutine / int dpotrf_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2157 lda, __CLPK_integer *info);
cannam@17	2158
cannam@17	2159 /* Subroutine / int dpotri_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2160 lda, __CLPK_integer *info);
cannam@17	2161
cannam@17	2162 /* Subroutine / int dpotrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	2163 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	2164 info);
cannam@17	2165
cannam@17	2166 /* Subroutine / int dppcon_(char uplo, __CLPK_integer n, __CLPK_doublereal ap,
cannam@17	2167 __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublereal work, __CLPK_integer
cannam@17	2168 iwork, __CLPK_integer *info);
cannam@17	2169
cannam@17	2170 /* Subroutine / int dppequ_(char uplo, __CLPK_integer n, __CLPK_doublereal ap,
cannam@17	2171 __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax, __CLPK_integer info);
cannam@17	2172
cannam@17	2173 /* Subroutine / int dpprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	2174 __CLPK_doublereal ap, __CLPK_doublereal afp, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	2175 __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	2176 __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2177
cannam@17	2178 /* Subroutine / int dppsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal
cannam@17	2179 ap, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	2180
cannam@17	2181 /* Subroutine / int dppsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	2182 nrhs, __CLPK_doublereal ap, __CLPK_doublereal afp, char equed, __CLPK_doublereal s,
cannam@17	2183 __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal *
cannam@17	2184 rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer
cannam@17	2185 iwork, __CLPK_integer *info);
cannam@17	2186
cannam@17	2187 /* Subroutine / int dpptrf_(char uplo, __CLPK_integer n, __CLPK_doublereal ap, __CLPK_integer *
cannam@17	2188 info);
cannam@17	2189
cannam@17	2190 /* Subroutine / int dpptri_(char uplo, __CLPK_integer n, __CLPK_doublereal ap, __CLPK_integer *
cannam@17	2191 info);
cannam@17	2192
cannam@17	2193 /* Subroutine / int dpptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	2194 __CLPK_doublereal ap, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	2195
cannam@17	2196 /* Subroutine / int dptcon_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	2197 __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2198
cannam@17	2199 /* Subroutine / int dpteqr_(char compz, __CLPK_integer n, __CLPK_doublereal d__,
cannam@17	2200 __CLPK_doublereal e, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	2201 __CLPK_integer *info);
cannam@17	2202
cannam@17	2203 /* Subroutine / int dptrfs_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal d__,
cannam@17	2204 __CLPK_doublereal e, __CLPK_doublereal df, __CLPK_doublereal ef, __CLPK_doublereal b, __CLPK_integer
cannam@17	2205 ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal *berr,
cannam@17	2206 __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2207
cannam@17	2208 /* Subroutine / int dptsv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal d__,
cannam@17	2209 __CLPK_doublereal e, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	2210
cannam@17	2211 /* Subroutine / int dptsvx_(char fact, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	2212 __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal df, __CLPK_doublereal ef,
cannam@17	2213 __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal *
cannam@17	2214 rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer
cannam@17	2215 info);
cannam@17	2216
cannam@17	2217 /* Subroutine / int dpttrf_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	2218 __CLPK_integer *info);
cannam@17	2219
cannam@17	2220 /* Subroutine / int dpttrs_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal d__,
cannam@17	2221 __CLPK_doublereal e, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	2222
cannam@17	2223 /* Subroutine / int dptts2_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal d__,
cannam@17	2224 __CLPK_doublereal e, __CLPK_doublereal b, __CLPK_integer *ldb);
cannam@17	2225
cannam@17	2226 /* Subroutine / int drscl_(__CLPK_integer n, __CLPK_doublereal sa, __CLPK_doublereal sx,
cannam@17	2227 __CLPK_integer *incx);
cannam@17	2228
cannam@17	2229 /* Subroutine / int dsbev_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	2230 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal w, __CLPK_doublereal z__,
cannam@17	2231 __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	2232
cannam@17	2233 /* Subroutine / int dsbevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	2234 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal w, __CLPK_doublereal z__,
cannam@17	2235 __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer iwork,
cannam@17	2236 __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2237
cannam@17	2238 /* Subroutine / int dsbevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	2239 __CLPK_integer kd, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal q, __CLPK_integer *
cannam@17	2240 ldq, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer iu,
cannam@17	2241 __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w, __CLPK_doublereal z__,
cannam@17	2242 __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer ifail,
cannam@17	2243 __CLPK_integer *info);
cannam@17	2244
cannam@17	2245 /* Subroutine / int dsbgst_(char vect, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	2246 __CLPK_integer kb, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal bb, __CLPK_integer *
cannam@17	2247 ldbb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2248
cannam@17	2249 /* Subroutine / int dsbgv_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	2250 __CLPK_integer kb, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal bb, __CLPK_integer *
cannam@17	2251 ldbb, __CLPK_doublereal w, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	2252 __CLPK_integer *info);
cannam@17	2253
cannam@17	2254 /* Subroutine / int dsbgvd_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	2255 __CLPK_integer kb, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal bb, __CLPK_integer *
cannam@17	2256 ldbb, __CLPK_doublereal w, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	2257 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2258
cannam@17	2259 /* Subroutine / int dsbgvx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	2260 __CLPK_integer ka, __CLPK_integer kb, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal *
cannam@17	2261 bb, __CLPK_integer ldbb, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal vl,
cannam@17	2262 __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer
cannam@17	2263 m, __CLPK_doublereal w, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal *work,
cannam@17	2264 __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer *info);
cannam@17	2265
cannam@17	2266 /* Subroutine / int dsbtrd_(char vect, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	2267 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	2268 __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2269
cannam@17	2270 /* Subroutine / int dspcon_(char uplo, __CLPK_integer n, __CLPK_doublereal ap, __CLPK_integer *
cannam@17	2271 ipiv, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublereal *work, __CLPK_integer
cannam@17	2272 iwork, __CLPK_integer info);
cannam@17	2273
cannam@17	2274 /* Subroutine / int dspev_(char jobz, char uplo, __CLPK_integer n, __CLPK_doublereal *
cannam@17	2275 ap, __CLPK_doublereal w, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	2276 __CLPK_integer *info);
cannam@17	2277
cannam@17	2278 /* Subroutine / int dspevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_doublereal *
cannam@17	2279 ap, __CLPK_doublereal w, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	2280 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2281
cannam@17	2282 /* Subroutine / int dspevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	2283 __CLPK_doublereal ap, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer *
cannam@17	2284 iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w, __CLPK_doublereal z__,
cannam@17	2285 __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer ifail,
cannam@17	2286 __CLPK_integer *info);
cannam@17	2287
cannam@17	2288 /* Subroutine / int dspgst_(__CLPK_integer itype, char uplo, __CLPK_integer n,
cannam@17	2289 __CLPK_doublereal ap, __CLPK_doublereal bp, __CLPK_integer *info);
cannam@17	2290
cannam@17	2291 /* Subroutine / int dspgv_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	2292 n, __CLPK_doublereal ap, __CLPK_doublereal bp, __CLPK_doublereal w, __CLPK_doublereal z__,
cannam@17	2293 __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	2294
cannam@17	2295 /* Subroutine / int dspgvd_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	2296 n, __CLPK_doublereal ap, __CLPK_doublereal bp, __CLPK_doublereal w, __CLPK_doublereal z__,
cannam@17	2297 __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer iwork,
cannam@17	2298 __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2299
cannam@17	2300 /* Subroutine / int dspgvx_(__CLPK_integer itype, char jobz, char range, char *
cannam@17	2301 uplo, __CLPK_integer n, __CLPK_doublereal ap, __CLPK_doublereal bp, __CLPK_doublereal vl,
cannam@17	2302 __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer
cannam@17	2303 m, __CLPK_doublereal w, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal *work,
cannam@17	2304 __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer *info);
cannam@17	2305
cannam@17	2306 /* Subroutine / int dsprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	2307 __CLPK_doublereal ap, __CLPK_doublereal afp, __CLPK_integer ipiv, __CLPK_doublereal b,
cannam@17	2308 __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal ferr,
cannam@17	2309 __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2310
cannam@17	2311 /* Subroutine / int dspsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal
cannam@17	2312 ap, __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	2313
cannam@17	2314 /* Subroutine / int dspsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	2315 nrhs, __CLPK_doublereal ap, __CLPK_doublereal afp, __CLPK_integer ipiv, __CLPK_doublereal b,
cannam@17	2316 __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal rcond,
cannam@17	2317 __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	2318 __CLPK_integer *info);
cannam@17	2319
cannam@17	2320 /* Subroutine / int dsptrd_(char uplo, __CLPK_integer n, __CLPK_doublereal ap,
cannam@17	2321 __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal tau, __CLPK_integer info);
cannam@17	2322
cannam@17	2323 /* Subroutine / int dsptrf_(char uplo, __CLPK_integer n, __CLPK_doublereal ap, __CLPK_integer *
cannam@17	2324 ipiv, __CLPK_integer *info);
cannam@17	2325
cannam@17	2326 /* Subroutine / int dsptri_(char uplo, __CLPK_integer n, __CLPK_doublereal ap, __CLPK_integer *
cannam@17	2327 ipiv, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2328
cannam@17	2329 /* Subroutine / int dsptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	2330 __CLPK_doublereal ap, __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	2331 info);
cannam@17	2332
cannam@17	2333 /* Subroutine / int dstebz_(char range, char order, __CLPK_integer n, __CLPK_doublereal
cannam@17	2334 vl, __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_doublereal *abstol,
cannam@17	2335 __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_integer m, __CLPK_integer nsplit,
cannam@17	2336 __CLPK_doublereal w, __CLPK_integer iblock, __CLPK_integer isplit, __CLPK_doublereal work,
cannam@17	2337 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2338
cannam@17	2339 /* Subroutine / int dstedc_(char compz, __CLPK_integer n, __CLPK_doublereal d__,
cannam@17	2340 __CLPK_doublereal e, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	2341 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2342
cannam@17	2343 /* Subroutine / int dstegr_(char jobz, char range, __CLPK_integer n, __CLPK_doublereal *
cannam@17	2344 d__, __CLPK_doublereal e, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il,
cannam@17	2345 __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w,
cannam@17	2346 __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_integer isuppz, __CLPK_doublereal work,
cannam@17	2347 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2348
cannam@17	2349 /* Subroutine / int dstein_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	2350 __CLPK_integer m, __CLPK_doublereal w, __CLPK_integer iblock, __CLPK_integer isplit,
cannam@17	2351 __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	2352 __CLPK_integer ifail, __CLPK_integer info);
cannam@17	2353
cannam@17	2354 /* Subroutine / int dsteqr_(char compz, __CLPK_integer n, __CLPK_doublereal d__,
cannam@17	2355 __CLPK_doublereal e, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	2356 __CLPK_integer *info);
cannam@17	2357
cannam@17	2358 /* Subroutine / int dsterf_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	2359 __CLPK_integer *info);
cannam@17	2360
cannam@17	2361 /* Subroutine / int dstev_(char jobz, __CLPK_integer n, __CLPK_doublereal d__,
cannam@17	2362 __CLPK_doublereal e, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	2363 __CLPK_integer *info);
cannam@17	2364
cannam@17	2365 /* Subroutine / int dstevd_(char jobz, __CLPK_integer n, __CLPK_doublereal d__,
cannam@17	2366 __CLPK_doublereal e, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	2367 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2368
cannam@17	2369 /* Subroutine / int dstevr_(char jobz, char range, __CLPK_integer n, __CLPK_doublereal *
cannam@17	2370 d__, __CLPK_doublereal e, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il,
cannam@17	2371 __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w,
cannam@17	2372 __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_integer isuppz, __CLPK_doublereal work,
cannam@17	2373 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2374
cannam@17	2375 /* Subroutine / int dstevx_(char jobz, char range, __CLPK_integer n, __CLPK_doublereal *
cannam@17	2376 d__, __CLPK_doublereal e, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il,
cannam@17	2377 __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w,
cannam@17	2378 __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	2379 __CLPK_integer ifail, __CLPK_integer info);
cannam@17	2380
cannam@17	2381 /* Subroutine / int dsycon_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2382 lda, __CLPK_integer ipiv, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublereal
cannam@17	2383 work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2384
cannam@17	2385 /* Subroutine / int dsyev_(char jobz, char uplo, __CLPK_integer n, __CLPK_doublereal *a,
cannam@17	2386 __CLPK_integer lda, __CLPK_doublereal w, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2387 __CLPK_integer *info);
cannam@17	2388
cannam@17	2389 /* Subroutine / int dsyevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_doublereal *
cannam@17	2390 a, __CLPK_integer lda, __CLPK_doublereal w, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2391 __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer *info);
cannam@17	2392
cannam@17	2393 /* Subroutine / int dsyevr_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	2394 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer *
cannam@17	2395 il, __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w,
cannam@17	2396 __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_integer isuppz, __CLPK_doublereal work,
cannam@17	2397 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2398
cannam@17	2399 /* Subroutine / int dsyevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	2400 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer *
cannam@17	2401 il, __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w,
cannam@17	2402 __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer lwork,
cannam@17	2403 __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer *info);
cannam@17	2404
cannam@17	2405 /* Subroutine / int dsygs2_(__CLPK_integer itype, char uplo, __CLPK_integer n,
cannam@17	2406 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	2407 info);
cannam@17	2408
cannam@17	2409 /* Subroutine / int dsygst_(__CLPK_integer itype, char uplo, __CLPK_integer n,
cannam@17	2410 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	2411 info);
cannam@17	2412
cannam@17	2413 /* Subroutine / int dsygv_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	2414 n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	2415 __CLPK_doublereal w, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2416
cannam@17	2417 /* Subroutine / int dsygvd_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	2418 n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	2419 __CLPK_doublereal w, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer iwork,
cannam@17	2420 __CLPK_integer liwork, __CLPK_integer info);
cannam@17	2421
cannam@17	2422 /* Subroutine / int dsygvx_(__CLPK_integer itype, char jobz, char range, char *
cannam@17	2423 uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer
cannam@17	2424 ldb, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer *iu,
cannam@17	2425 __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w, __CLPK_doublereal z__,
cannam@17	2426 __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer iwork,
cannam@17	2427 __CLPK_integer ifail, __CLPK_integer info);
cannam@17	2428
cannam@17	2429 /* Subroutine / int dsyrfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	2430 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal af, __CLPK_integer ldaf, __CLPK_integer *
cannam@17	2431 ipiv, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx,
cannam@17	2432 __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	2433 __CLPK_integer *info);
cannam@17	2434
cannam@17	2435 /* Subroutine / int dsysv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal
cannam@17	2436 a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer *ldb,
cannam@17	2437 __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	2438
cannam@17	2439 /* Subroutine / int dsysvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	2440 nrhs, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal af, __CLPK_integer ldaf,
cannam@17	2441 __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer *
cannam@17	2442 ldx, __CLPK_doublereal rcond, __CLPK_doublereal ferr, __CLPK_doublereal *berr,
cannam@17	2443 __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2444
cannam@17	2445 /* Subroutine / int dsytd2_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2446 lda, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal tau, __CLPK_integer info);
cannam@17	2447
cannam@17	2448 /* Subroutine / int dsytf2_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2449 lda, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	2450
cannam@17	2451 /* Subroutine / int dsytrd_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2452 lda, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal tau, __CLPK_doublereal
cannam@17	2453 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2454
cannam@17	2455 /* Subroutine / int dsytrf_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2456 lda, __CLPK_integer ipiv, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2457
cannam@17	2458 /* Subroutine / int dsytri_(char uplo, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2459 lda, __CLPK_integer ipiv, __CLPK_doublereal work, __CLPK_integer *info);
cannam@17	2460
cannam@17	2461 /* Subroutine / int dsytrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	2462 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublereal b, __CLPK_integer *
cannam@17	2463 ldb, __CLPK_integer *info);
cannam@17	2464
cannam@17	2465 /* Subroutine / int dtbcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	2466 __CLPK_integer kd, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal rcond,
cannam@17	2467 __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2468
cannam@17	2469 /* Subroutine / int dtbrfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	2470 __CLPK_integer kd, __CLPK_integer nrhs, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal
cannam@17	2471 b, __CLPK_integer ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal *ferr,
cannam@17	2472 __CLPK_doublereal berr, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2473
cannam@17	2474 /* Subroutine / int dtbtrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	2475 __CLPK_integer kd, __CLPK_integer nrhs, __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal
cannam@17	2476 b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	2477
cannam@17	2478 /* Subroutine / int dtgevc_(char side, char howmny, __CLPK_logical select,
cannam@17	2479 __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer *ldb,
cannam@17	2480 __CLPK_doublereal vl, __CLPK_integer ldvl, __CLPK_doublereal vr, __CLPK_integer ldvr, __CLPK_integer
cannam@17	2481 mm, __CLPK_integer m, __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2482
cannam@17	2483 /* Subroutine / int dtgex2_(__CLPK_logical wantq, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	2484 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal *
cannam@17	2485 q, __CLPK_integer ldq, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_integer j1, __CLPK_integer *
cannam@17	2486 n1, __CLPK_integer n2, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2487
cannam@17	2488 /* Subroutine / int dtgexc_(__CLPK_logical wantq, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	2489 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal *
cannam@17	2490 q, __CLPK_integer ldq, __CLPK_doublereal z__, __CLPK_integer ldz, __CLPK_integer ifst,
cannam@17	2491 __CLPK_integer ilst, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2492
cannam@17	2493 /* Subroutine / int dtgsen_(__CLPK_integer ijob, __CLPK_logical wantq, __CLPK_logical wantz,
cannam@17	2494 __CLPK_logical select, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal *
cannam@17	2495 b, __CLPK_integer ldb, __CLPK_doublereal alphar, __CLPK_doublereal alphai, __CLPK_doublereal
cannam@17	2496 beta, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_doublereal z__, __CLPK_integer ldz,
cannam@17	2497 __CLPK_integer m, __CLPK_doublereal pl, __CLPK_doublereal pr, __CLPK_doublereal dif,
cannam@17	2498 __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork,
cannam@17	2499 __CLPK_integer *info);
cannam@17	2500
cannam@17	2501 /* Subroutine / int dtgsja_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	2502 __CLPK_integer p, __CLPK_integer n, __CLPK_integer k, __CLPK_integer l, __CLPK_doublereal *a,
cannam@17	2503 __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublereal tola,
cannam@17	2504 __CLPK_doublereal tolb, __CLPK_doublereal alpha, __CLPK_doublereal beta, __CLPK_doublereal u,
cannam@17	2505 __CLPK_integer ldu, __CLPK_doublereal v, __CLPK_integer ldv, __CLPK_doublereal q, __CLPK_integer *
cannam@17	2506 ldq, __CLPK_doublereal work, __CLPK_integer ncycle, __CLPK_integer *info);
cannam@17	2507
cannam@17	2508 /* Subroutine / int dtgsna_(char job, char howmny, __CLPK_logical select,
cannam@17	2509 __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer *ldb,
cannam@17	2510 __CLPK_doublereal vl, __CLPK_integer ldvl, __CLPK_doublereal vr, __CLPK_integer ldvr,
cannam@17	2511 __CLPK_doublereal s, __CLPK_doublereal dif, __CLPK_integer mm, __CLPK_integer m, __CLPK_doublereal *
cannam@17	2512 work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2513
cannam@17	2514 /* Subroutine / int dtgsy2_(char trans, __CLPK_integer ijob, __CLPK_integer m, __CLPK_integer *
cannam@17	2515 n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	2516 __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal d__, __CLPK_integer ldd,
cannam@17	2517 __CLPK_doublereal e, __CLPK_integer lde, __CLPK_doublereal f, __CLPK_integer ldf, __CLPK_doublereal *
cannam@17	2518 scale, __CLPK_doublereal rdsum, __CLPK_doublereal rdscal, __CLPK_integer *iwork, __CLPK_integer
cannam@17	2519 pq, __CLPK_integer info);
cannam@17	2520
cannam@17	2521 /* Subroutine / int dtgsyl_(char trans, __CLPK_integer ijob, __CLPK_integer m, __CLPK_integer *
cannam@17	2522 n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	2523 __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal d__, __CLPK_integer ldd,
cannam@17	2524 __CLPK_doublereal e, __CLPK_integer lde, __CLPK_doublereal f, __CLPK_integer ldf, __CLPK_doublereal *
cannam@17	2525 scale, __CLPK_doublereal dif, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer
cannam@17	2526 iwork, __CLPK_integer *info);
cannam@17	2527
cannam@17	2528 /* Subroutine / int dtpcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	2529 __CLPK_doublereal ap, __CLPK_doublereal rcond, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	2530 __CLPK_integer *info);
cannam@17	2531
cannam@17	2532 /* Subroutine / int dtprfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	2533 __CLPK_integer nrhs, __CLPK_doublereal ap, __CLPK_doublereal b, __CLPK_integer ldb,
cannam@17	2534 __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	2535 __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2536
cannam@17	2537 /* Subroutine / int dtptri_(char uplo, char diag, __CLPK_integer n, __CLPK_doublereal *
cannam@17	2538 ap, __CLPK_integer *info);
cannam@17	2539
cannam@17	2540 /* Subroutine / int dtptrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	2541 __CLPK_integer nrhs, __CLPK_doublereal ap, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	2542 info);
cannam@17	2543
cannam@17	2544 /* Subroutine / int dtrcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	2545 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal rcond, __CLPK_doublereal work,
cannam@17	2546 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2547
cannam@17	2548 /* Subroutine / int dtrevc_(char side, char howmny, __CLPK_logical select,
cannam@17	2549 __CLPK_integer n, __CLPK_doublereal t, __CLPK_integer ldt, __CLPK_doublereal vl, __CLPK_integer *
cannam@17	2550 ldvl, __CLPK_doublereal vr, __CLPK_integer ldvr, __CLPK_integer mm, __CLPK_integer m,
cannam@17	2551 __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2552
cannam@17	2553 /* Subroutine / int dtrexc_(char compq, __CLPK_integer n, __CLPK_doublereal t, __CLPK_integer *
cannam@17	2554 ldt, __CLPK_doublereal q, __CLPK_integer ldq, __CLPK_integer ifst, __CLPK_integer ilst,
cannam@17	2555 __CLPK_doublereal work, __CLPK_integer info);
cannam@17	2556
cannam@17	2557 /* Subroutine / int dtrrfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	2558 __CLPK_integer nrhs, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer *
cannam@17	2559 ldb, __CLPK_doublereal x, __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	2560 __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2561
cannam@17	2562 /* Subroutine / int dtrsen_(char job, char compq, __CLPK_logical select, __CLPK_integer
cannam@17	2563 n, __CLPK_doublereal t, __CLPK_integer ldt, __CLPK_doublereal q, __CLPK_integer *ldq,
cannam@17	2564 __CLPK_doublereal wr, __CLPK_doublereal wi, __CLPK_integer m, __CLPK_doublereal s, __CLPK_doublereal
cannam@17	2565 sep, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer *
cannam@17	2566 liwork, __CLPK_integer *info);
cannam@17	2567
cannam@17	2568 /* Subroutine / int dtrsna_(char job, char howmny, __CLPK_logical select,
cannam@17	2569 __CLPK_integer n, __CLPK_doublereal t, __CLPK_integer ldt, __CLPK_doublereal vl, __CLPK_integer *
cannam@17	2570 ldvl, __CLPK_doublereal vr, __CLPK_integer ldvr, __CLPK_doublereal s, __CLPK_doublereal sep,
cannam@17	2571 __CLPK_integer mm, __CLPK_integer m, __CLPK_doublereal work, __CLPK_integer ldwork, __CLPK_integer *
cannam@17	2572 iwork, __CLPK_integer *info);
cannam@17	2573
cannam@17	2574 /* Subroutine / int dtrsyl_(char trana, char tranb, __CLPK_integer isgn, __CLPK_integer
cannam@17	2575 m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer
cannam@17	2576 ldb, __CLPK_doublereal c__, __CLPK_integer ldc, __CLPK_doublereal scale, __CLPK_integer info);
cannam@17	2577
cannam@17	2578 /* Subroutine / int dtrti2_(char uplo, char diag, __CLPK_integer n, __CLPK_doublereal *
cannam@17	2579 a, __CLPK_integer lda, __CLPK_integer info);
cannam@17	2580
cannam@17	2581 /* Subroutine / int dtrtri_(char uplo, char diag, __CLPK_integer n, __CLPK_doublereal *
cannam@17	2582 a, __CLPK_integer lda, __CLPK_integer info);
cannam@17	2583
cannam@17	2584 /* Subroutine / int dtrtrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	2585 __CLPK_integer nrhs, __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer *
cannam@17	2586 ldb, __CLPK_integer *info);
cannam@17	2587
cannam@17	2588 /* Subroutine / int dtzrqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2589 lda, __CLPK_doublereal tau, __CLPK_integer info);
cannam@17	2590
cannam@17	2591 /* Subroutine / int dtzrzf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	2592 lda, __CLPK_doublereal tau, __CLPK_doublereal work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2593
cannam@17	2594 __CLPK_integer icmax1_(__CLPK_integer n, __CLPK_complex cx, __CLPK_integer *incx);
cannam@17	2595
cannam@17	2596 __CLPK_integer ieeeck_(__CLPK_integer ispec, __CLPK_real zero, __CLPK_real *one);
cannam@17	2597
cannam@17	2598 __CLPK_integer ilaenv_(__CLPK_integer ispec, char name__, char opts, __CLPK_integer n1,
cannam@17	2599 __CLPK_integer n2, __CLPK_integer n3, __CLPK_integer *n4, __CLPK_ftnlen name_len, __CLPK_ftnlen
cannam@17	2600 opts_len);
cannam@17	2601
cannam@17	2602 __CLPK_integer izmax1_(__CLPK_integer n, __CLPK_doublecomplex cx, __CLPK_integer *incx);
cannam@17	2603
cannam@17	2604 /* Subroutine / int sbdsdc_(char uplo, char compq, __CLPK_integer n, __CLPK_real *d__,
cannam@17	2605 __CLPK_real e, __CLPK_real u, __CLPK_integer ldu, __CLPK_real vt, __CLPK_integer ldvt, __CLPK_real q,
cannam@17	2606 __CLPK_integer iq, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2607
cannam@17	2608 /* Subroutine / int sbdsqr_(char uplo, __CLPK_integer n, __CLPK_integer ncvt, __CLPK_integer *
cannam@17	2609 nru, __CLPK_integer ncc, __CLPK_real d__, __CLPK_real e, __CLPK_real vt, __CLPK_integer ldvt, __CLPK_real
cannam@17	2610 u, __CLPK_integer ldu, __CLPK_real c__, __CLPK_integer ldc, __CLPK_real work, __CLPK_integer *info);
cannam@17	2611
cannam@17	2612 /* Subroutine / int sdisna_(char job, __CLPK_integer m, __CLPK_integer n, __CLPK_real *d__,
cannam@17	2613 __CLPK_real sep, __CLPK_integer info);
cannam@17	2614
cannam@17	2615 /* Subroutine / int sgbbrd_(char vect, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *ncc,
cannam@17	2616 __CLPK_integer kl, __CLPK_integer ku, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real d__, __CLPK_real
cannam@17	2617 e, __CLPK_real q, __CLPK_integer ldq, __CLPK_real pt, __CLPK_integer ldpt, __CLPK_real *c__, __CLPK_integer
cannam@17	2618 ldc, __CLPK_real work, __CLPK_integer *info);
cannam@17	2619
cannam@17	2620 /* Subroutine / int sgbcon_(char norm, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	2621 __CLPK_real ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_real anorm, __CLPK_real *rcond,
cannam@17	2622 __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2623
cannam@17	2624 /* Subroutine / int sgbequ_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	2625 __CLPK_real ab, __CLPK_integer ldab, __CLPK_real r__, __CLPK_real c__, __CLPK_real rowcnd, __CLPK_real
cannam@17	2626 colcnd, __CLPK_real amax, __CLPK_integer info);
cannam@17	2627
cannam@17	2628 /* Subroutine / int sgbrfs_(char trans, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *
cannam@17	2629 ku, __CLPK_integer nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real afb, __CLPK_integer *ldafb,
cannam@17	2630 __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real
cannam@17	2631 ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2632
cannam@17	2633 /* Subroutine / int sgbsv_(__CLPK_integer n, __CLPK_integer kl, __CLPK_integer ku, __CLPK_integer *
cannam@17	2634 nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer *ldb,
cannam@17	2635 __CLPK_integer *info);
cannam@17	2636
cannam@17	2637 /* Subroutine / int sgbsvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *kl,
cannam@17	2638 __CLPK_integer ku, __CLPK_integer nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real *afb,
cannam@17	2639 __CLPK_integer ldafb, __CLPK_integer ipiv, char equed, __CLPK_real r__, __CLPK_real *c__,
cannam@17	2640 __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr,
cannam@17	2641 __CLPK_real berr, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2642
cannam@17	2643 /* Subroutine / int sgbtf2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	2644 __CLPK_real ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	2645
cannam@17	2646 /* Subroutine / int sgbtrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	2647 __CLPK_real ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	2648
cannam@17	2649 /* Subroutine / int sgbtrs_(char trans, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *
cannam@17	2650 ku, __CLPK_integer nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_real *b,
cannam@17	2651 __CLPK_integer ldb, __CLPK_integer info);
cannam@17	2652
cannam@17	2653 /* Subroutine / int sgebak_(char job, char side, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	2654 __CLPK_integer ihi, __CLPK_real scale, __CLPK_integer m, __CLPK_real v, __CLPK_integer *ldv, __CLPK_integer
cannam@17	2655 *info);
cannam@17	2656
cannam@17	2657 /* Subroutine / int sgebal_(char job, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2658 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real scale, __CLPK_integer info);
cannam@17	2659
cannam@17	2660 /* Subroutine / int sgebd2_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2661 __CLPK_real d__, __CLPK_real e, __CLPK_real tauq, __CLPK_real taup, __CLPK_real work, __CLPK_integer info);
cannam@17	2662
cannam@17	2663 /* Subroutine / int sgebrd_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2664 __CLPK_real d__, __CLPK_real e, __CLPK_real tauq, __CLPK_real taup, __CLPK_real work, __CLPK_integer
cannam@17	2665 lwork, __CLPK_integer *info);
cannam@17	2666
cannam@17	2667 /* Subroutine / int sgecon_(char norm, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2668 __CLPK_real anorm, __CLPK_real rcond, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2669
cannam@17	2670 /* Subroutine / int sgeequ_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2671 __CLPK_real r__, __CLPK_real c__, __CLPK_real rowcnd, __CLPK_real colcnd, __CLPK_real *amax, __CLPK_integer
cannam@17	2672 *info);
cannam@17	2673
cannam@17	2674 /* Subroutine / int sgees_(char jobvs, char sort, __CLPK_L_fp select, __CLPK_integer n,
cannam@17	2675 __CLPK_real a, __CLPK_integer lda, __CLPK_integer sdim, __CLPK_real wr, __CLPK_real wi, __CLPK_real vs,
cannam@17	2676 __CLPK_integer ldvs, __CLPK_real work, __CLPK_integer lwork, __CLPK_logical bwork, __CLPK_integer *
cannam@17	2677 info);
cannam@17	2678
cannam@17	2679 /* Subroutine / int sgeesx_(char jobvs, char sort, __CLPK_L_fp select, char
cannam@17	2680 sense, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_integer sdim, __CLPK_real *wr,
cannam@17	2681 __CLPK_real wi, __CLPK_real vs, __CLPK_integer ldvs, __CLPK_real rconde, __CLPK_real rcondv, __CLPK_real
cannam@17	2682 work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_logical bwork,
cannam@17	2683 __CLPK_integer *info);
cannam@17	2684
cannam@17	2685 /* Subroutine / int sgeev_(char jobvl, char jobvr, __CLPK_integer n, __CLPK_real *a,
cannam@17	2686 __CLPK_integer lda, __CLPK_real wr, __CLPK_real wi, __CLPK_real vl, __CLPK_integer ldvl, __CLPK_real vr,
cannam@17	2687 __CLPK_integer ldvr, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2688
cannam@17	2689 /* Subroutine / int sgeevx_(char balanc, char jobvl, char jobvr, char *
cannam@17	2690 sense, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real wr, __CLPK_real wi, __CLPK_real
cannam@17	2691 vl, __CLPK_integer ldvl, __CLPK_real vr, __CLPK_integer ldvr, __CLPK_integer ilo, __CLPK_integer *
cannam@17	2692 ihi, __CLPK_real scale, __CLPK_real abnrm, __CLPK_real rconde, __CLPK_real rcondv, __CLPK_real *work,
cannam@17	2693 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2694
cannam@17	2695 /* Subroutine / int sgegs_(char jobvsl, char jobvsr, __CLPK_integer n, __CLPK_real *a,
cannam@17	2696 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real alphar, __CLPK_real *alphai, __CLPK_real
cannam@17	2697 beta, __CLPK_real vsl, __CLPK_integer ldvsl, __CLPK_real vsr, __CLPK_integer ldvsr, __CLPK_real
cannam@17	2698 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2699
cannam@17	2700 /* Subroutine / int sgegv_(char jobvl, char jobvr, __CLPK_integer n, __CLPK_real *a,
cannam@17	2701 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real alphar, __CLPK_real *alphai, __CLPK_real
cannam@17	2702 beta, __CLPK_real vl, __CLPK_integer ldvl, __CLPK_real vr, __CLPK_integer ldvr, __CLPK_real work,
cannam@17	2703 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2704
cannam@17	2705 /* Subroutine / int sgehd2_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real *a,
cannam@17	2706 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer info);
cannam@17	2707
cannam@17	2708 /* Subroutine / int sgehrd_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real *a,
cannam@17	2709 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	2710
cannam@17	2711 /* Subroutine / int sgelq2_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2712 __CLPK_real tau, __CLPK_real work, __CLPK_integer *info);
cannam@17	2713
cannam@17	2714 /* Subroutine / int sgelqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2715 __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2716
cannam@17	2717 /* Subroutine / int sgels_(char trans, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *
cannam@17	2718 nrhs, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real *work,
cannam@17	2719 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2720
cannam@17	2721 /* Subroutine / int sgelsd_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	2722 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real s, __CLPK_real rcond, __CLPK_integer
cannam@17	2723 rank, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2724
cannam@17	2725 /* Subroutine / int sgelss_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	2726 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real s, __CLPK_real rcond, __CLPK_integer
cannam@17	2727 rank, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	2728
cannam@17	2729 /* Subroutine / int sgelsx_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	2730 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer jpvt, __CLPK_real *rcond,
cannam@17	2731 __CLPK_integer rank, __CLPK_real work, __CLPK_integer *info);
cannam@17	2732
cannam@17	2733 /* Subroutine / int sgelsy_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	2734 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer jpvt, __CLPK_real *rcond,
cannam@17	2735 __CLPK_integer rank, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2736
cannam@17	2737 /* Subroutine / int sgeql2_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2738 __CLPK_real tau, __CLPK_real work, __CLPK_integer *info);
cannam@17	2739
cannam@17	2740 /* Subroutine / int sgeqlf_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2741 __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2742
cannam@17	2743 /* Subroutine / int sgeqp3_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2744 __CLPK_integer jpvt, __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	2745
cannam@17	2746 /* Subroutine / int sgeqpf_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2747 __CLPK_integer jpvt, __CLPK_real tau, __CLPK_real work, __CLPK_integer info);
cannam@17	2748
cannam@17	2749 /* Subroutine / int sgeqr2_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2750 __CLPK_real tau, __CLPK_real work, __CLPK_integer *info);
cannam@17	2751
cannam@17	2752 /* Subroutine / int sgeqrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2753 __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2754
cannam@17	2755 /* Subroutine / int sgerfs_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	2756 __CLPK_integer lda, __CLPK_real af, __CLPK_integer ldaf, __CLPK_integer ipiv, __CLPK_real *b,
cannam@17	2757 __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_real
cannam@17	2758 work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2759
cannam@17	2760 /* Subroutine / int sgerq2_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2761 __CLPK_real tau, __CLPK_real work, __CLPK_integer *info);
cannam@17	2762
cannam@17	2763 /* Subroutine / int sgerqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2764 __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2765
cannam@17	2766 /* Subroutine / int sgesc2_(__CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real *rhs,
cannam@17	2767 __CLPK_integer ipiv, __CLPK_integer jpiv, __CLPK_real *scale);
cannam@17	2768
cannam@17	2769 /* Subroutine / int sgesdd_(char jobz, __CLPK_integer m, __CLPK_integer n, __CLPK_real *a,
cannam@17	2770 __CLPK_integer lda, __CLPK_real s, __CLPK_real u, __CLPK_integer ldu, __CLPK_real vt, __CLPK_integer ldvt,
cannam@17	2771 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2772
cannam@17	2773 /* Subroutine / int sgesv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2774 __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	2775
cannam@17	2776 /* Subroutine / int sgesvd_(char jobu, char jobvt, __CLPK_integer m, __CLPK_integer *n,
cannam@17	2777 __CLPK_real a, __CLPK_integer lda, __CLPK_real s, __CLPK_real u, __CLPK_integer ldu, __CLPK_real vt,
cannam@17	2778 __CLPK_integer ldvt, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2779
cannam@17	2780 /* Subroutine / int sgesvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *
cannam@17	2781 nrhs, __CLPK_real a, __CLPK_integer lda, __CLPK_real af, __CLPK_integer ldaf, __CLPK_integer *ipiv,
cannam@17	2782 char equed, __CLPK_real r__, __CLPK_real c__, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x,
cannam@17	2783 __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real berr, __CLPK_real *work,
cannam@17	2784 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2785
cannam@17	2786 /* Subroutine / int sgetc2_(__CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_integer *ipiv,
cannam@17	2787 __CLPK_integer jpiv, __CLPK_integer info);
cannam@17	2788
cannam@17	2789 /* Subroutine / int sgetf2_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2790 __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	2791
cannam@17	2792 /* Subroutine / int sgetrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2793 __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	2794
cannam@17	2795 /* Subroutine / int sgetri_(__CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_integer *ipiv,
cannam@17	2796 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	2797
cannam@17	2798 /* Subroutine / int sgetrs_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	2799 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	2800
cannam@17	2801 /* Subroutine / int sggbak_(char job, char side, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	2802 __CLPK_integer ihi, __CLPK_real lscale, __CLPK_real rscale, __CLPK_integer m, __CLPK_real *v,
cannam@17	2803 __CLPK_integer ldv, __CLPK_integer info);
cannam@17	2804
cannam@17	2805 /* Subroutine / int sggbal_(char job, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	2806 __CLPK_real b, __CLPK_integer ldb, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real *lscale, __CLPK_real
cannam@17	2807 rscale, __CLPK_real work, __CLPK_integer *info);
cannam@17	2808
cannam@17	2809 /* Subroutine / int sgges_(char jobvsl, char jobvsr, char sort, __CLPK_L_fp
cannam@17	2810 selctg, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer *ldb,
cannam@17	2811 __CLPK_integer sdim, __CLPK_real alphar, __CLPK_real alphai, __CLPK_real beta, __CLPK_real *vsl,
cannam@17	2812 __CLPK_integer ldvsl, __CLPK_real vsr, __CLPK_integer ldvsr, __CLPK_real work, __CLPK_integer *lwork,
cannam@17	2813 __CLPK_logical bwork, __CLPK_integer info);
cannam@17	2814
cannam@17	2815 /* Subroutine / int sggesx_(char jobvsl, char jobvsr, char sort, __CLPK_L_fp
cannam@17	2816 selctg, char sense, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real *b,
cannam@17	2817 __CLPK_integer ldb, __CLPK_integer sdim, __CLPK_real alphar, __CLPK_real alphai, __CLPK_real *beta,
cannam@17	2818 __CLPK_real vsl, __CLPK_integer ldvsl, __CLPK_real vsr, __CLPK_integer ldvsr, __CLPK_real *rconde,
cannam@17	2819 __CLPK_real rcondv, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer *
cannam@17	2820 liwork, __CLPK_logical bwork, __CLPK_integer info);
cannam@17	2821
cannam@17	2822 /* Subroutine / int sggev_(char jobvl, char jobvr, __CLPK_integer n, __CLPK_real *a,
cannam@17	2823 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real alphar, __CLPK_real *alphai, __CLPK_real
cannam@17	2824 beta, __CLPK_real vl, __CLPK_integer ldvl, __CLPK_real vr, __CLPK_integer ldvr, __CLPK_real work,
cannam@17	2825 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2826
cannam@17	2827 /* Subroutine / int sggevx_(char balanc, char jobvl, char jobvr, char *
cannam@17	2828 sense, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer *ldb, __CLPK_real
cannam@17	2829 alphar, __CLPK_real alphai, __CLPK_real beta, __CLPK_real vl, __CLPK_integer ldvl, __CLPK_real vr,
cannam@17	2830 __CLPK_integer ldvr, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real lscale, __CLPK_real *rscale,
cannam@17	2831 __CLPK_real abnrm, __CLPK_real bbnrm, __CLPK_real rconde, __CLPK_real rcondv, __CLPK_real *work,
cannam@17	2832 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_logical bwork, __CLPK_integer info);
cannam@17	2833
cannam@17	2834 /* Subroutine / int sggglm_(__CLPK_integer n, __CLPK_integer m, __CLPK_integer p, __CLPK_real *a,
cannam@17	2835 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real d__, __CLPK_real x, __CLPK_real y,
cannam@17	2836 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	2837
cannam@17	2838 /* Subroutine / int sgghrd_(char compq, char compz, __CLPK_integer n, __CLPK_integer *
cannam@17	2839 ilo, __CLPK_integer ihi, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer *ldb, __CLPK_real
cannam@17	2840 q, __CLPK_integer ldq, __CLPK_real z__, __CLPK_integer ldz, __CLPK_integer *info);
cannam@17	2841
cannam@17	2842 /* Subroutine / int sgglse_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer p, __CLPK_real *a,
cannam@17	2843 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real c__, __CLPK_real d__, __CLPK_real x,
cannam@17	2844 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	2845
cannam@17	2846 /* Subroutine / int sggqrf_(__CLPK_integer n, __CLPK_integer m, __CLPK_integer p, __CLPK_real *a,
cannam@17	2847 __CLPK_integer lda, __CLPK_real taua, __CLPK_real b, __CLPK_integer ldb, __CLPK_real taub, __CLPK_real
cannam@17	2848 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2849
cannam@17	2850 /* Subroutine / int sggrqf_(__CLPK_integer m, __CLPK_integer p, __CLPK_integer n, __CLPK_real *a,
cannam@17	2851 __CLPK_integer lda, __CLPK_real taua, __CLPK_real b, __CLPK_integer ldb, __CLPK_real taub, __CLPK_real
cannam@17	2852 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2853
cannam@17	2854 /* Subroutine / int sggsvd_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	2855 __CLPK_integer n, __CLPK_integer p, __CLPK_integer k, __CLPK_integer l, __CLPK_real a, __CLPK_integer lda,
cannam@17	2856 __CLPK_real b, __CLPK_integer ldb, __CLPK_real alpha, __CLPK_real beta, __CLPK_real u, __CLPK_integer
cannam@17	2857 ldu, __CLPK_real v, __CLPK_integer ldv, __CLPK_real q, __CLPK_integer ldq, __CLPK_real *work,
cannam@17	2858 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2859
cannam@17	2860 /* Subroutine / int sggsvp_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	2861 __CLPK_integer p, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb,
cannam@17	2862 __CLPK_real tola, __CLPK_real tolb, __CLPK_integer k, __CLPK_integer l, __CLPK_real u, __CLPK_integer ldu,
cannam@17	2863 __CLPK_real v, __CLPK_integer ldv, __CLPK_real q, __CLPK_integer ldq, __CLPK_integer iwork, __CLPK_real
cannam@17	2864 tau, __CLPK_real work, __CLPK_integer info);
cannam@17	2865
cannam@17	2866 /* Subroutine / int sgtcon_(char norm, __CLPK_integer n, __CLPK_real dl, __CLPK_real *d__,
cannam@17	2867 __CLPK_real du, __CLPK_real du2, __CLPK_integer ipiv, __CLPK_real anorm, __CLPK_real rcond, __CLPK_real
cannam@17	2868 work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2869
cannam@17	2870 /* Subroutine / int sgtrfs_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *dl,
cannam@17	2871 __CLPK_real d__, __CLPK_real du, __CLPK_real dlf, __CLPK_real df, __CLPK_real duf, __CLPK_real du2,
cannam@17	2872 __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real
cannam@17	2873 ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	2874
cannam@17	2875 /* Subroutine / int sgtsv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_real dl, __CLPK_real *d__,
cannam@17	2876 __CLPK_real du, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	2877
cannam@17	2878 /* Subroutine / int sgtsvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *
cannam@17	2879 nrhs, __CLPK_real dl, __CLPK_real d__, __CLPK_real du, __CLPK_real dlf, __CLPK_real df, __CLPK_real duf,
cannam@17	2880 __CLPK_real du2, __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer
cannam@17	2881 ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer *iwork,
cannam@17	2882 __CLPK_integer *info);
cannam@17	2883
cannam@17	2884 /* Subroutine / int sgttrf_(__CLPK_integer n, __CLPK_real dl, __CLPK_real d__, __CLPK_real du, __CLPK_real
cannam@17	2885 du2, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	2886
cannam@17	2887 /* Subroutine / int sgttrs_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *dl,
cannam@17	2888 __CLPK_real d__, __CLPK_real du, __CLPK_real du2, __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb,
cannam@17	2889 __CLPK_integer *info);
cannam@17	2890
cannam@17	2891 /* Subroutine / int sgtts2_(__CLPK_integer itrans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real
cannam@17	2892 dl, __CLPK_real d__, __CLPK_real du, __CLPK_real du2, __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer *
cannam@17	2893 ldb);
cannam@17	2894
cannam@17	2895 /* Subroutine / int shgeqz_(char job, char compq, char compz, __CLPK_integer *n,
cannam@17	2896 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer
cannam@17	2897 ldb, __CLPK_real alphar, __CLPK_real alphai, __CLPK_real beta, __CLPK_real q, __CLPK_integer *ldq,
cannam@17	2898 __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	2899
cannam@17	2900 /* Subroutine / int shsein_(char side, char eigsrc, char initv, __CLPK_logical *
cannam@17	2901 select, __CLPK_integer n, __CLPK_real h__, __CLPK_integer ldh, __CLPK_real wr, __CLPK_real *wi, __CLPK_real
cannam@17	2902 vl, __CLPK_integer ldvl, __CLPK_real vr, __CLPK_integer ldvr, __CLPK_integer mm, __CLPK_integer m,
cannam@17	2903 __CLPK_real work, __CLPK_integer ifaill, __CLPK_integer ifailr, __CLPK_integer info);
cannam@17	2904
cannam@17	2905 /* Subroutine / int shseqr_(char job, char compz, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	2906 __CLPK_integer ihi, __CLPK_real h__, __CLPK_integer ldh, __CLPK_real wr, __CLPK_real wi, __CLPK_real z__,
cannam@17	2907 __CLPK_integer ldz, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	2908
cannam@17	2909 /* Subroutine / int slabad_(__CLPK_real small, __CLPK_real *large);
cannam@17	2910
cannam@17	2911 /* Subroutine / int slabrd_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nb, __CLPK_real *a,
cannam@17	2912 __CLPK_integer lda, __CLPK_real d__, __CLPK_real e, __CLPK_real tauq, __CLPK_real taup, __CLPK_real x,
cannam@17	2913 __CLPK_integer ldx, __CLPK_real y, __CLPK_integer *ldy);
cannam@17	2914
cannam@17	2915 /* Subroutine / int slacon_(__CLPK_integer n, __CLPK_real v, __CLPK_real x, __CLPK_integer *isgn,
cannam@17	2916 __CLPK_real est, __CLPK_integer kase);
cannam@17	2917
cannam@17	2918 /* Subroutine / int slacpy_(char uplo, __CLPK_integer m, __CLPK_integer n, __CLPK_real *a,
cannam@17	2919 __CLPK_integer lda, __CLPK_real b, __CLPK_integer *ldb);
cannam@17	2920
cannam@17	2921 /* Subroutine / int sladiv_(__CLPK_real a, __CLPK_real b, __CLPK_real c__, __CLPK_real d__, __CLPK_real p,
cannam@17	2922 __CLPK_real *q);
cannam@17	2923
cannam@17	2924 /* Subroutine / int slae2_(__CLPK_real a, __CLPK_real b, __CLPK_real c__, __CLPK_real rt1, __CLPK_real rt2);
cannam@17	2925
cannam@17	2926 /* Subroutine / int slaebz_(__CLPK_integer ijob, __CLPK_integer nitmax, __CLPK_integer n,
cannam@17	2927 __CLPK_integer mmax, __CLPK_integer minp, __CLPK_integer nbmin, __CLPK_real abstol, __CLPK_real *
cannam@17	2928 reltol, __CLPK_real pivmin, __CLPK_real d__, __CLPK_real e, __CLPK_real e2, __CLPK_integer *nval,
cannam@17	2929 __CLPK_real ab, __CLPK_real c__, __CLPK_integer mout, __CLPK_integer nab, __CLPK_real *work, __CLPK_integer
cannam@17	2930 iwork, __CLPK_integer info);
cannam@17	2931
cannam@17	2932 /* Subroutine / int slaed0_(__CLPK_integer icompq, __CLPK_integer qsiz, __CLPK_integer n, __CLPK_real
cannam@17	2933 d__, __CLPK_real e, __CLPK_real q, __CLPK_integer ldq, __CLPK_real qstore, __CLPK_integer ldqs,
cannam@17	2934 __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	2935
cannam@17	2936 /* Subroutine / int slaed1_(__CLPK_integer n, __CLPK_real d__, __CLPK_real q, __CLPK_integer *ldq,
cannam@17	2937 __CLPK_integer indxq, __CLPK_real rho, __CLPK_integer cutpnt, __CLPK_real work, __CLPK_integer *
cannam@17	2938 iwork, __CLPK_integer *info);
cannam@17	2939
cannam@17	2940 /* Subroutine / int slaed2_(__CLPK_integer k, __CLPK_integer n, __CLPK_integer n1, __CLPK_real *d__,
cannam@17	2941 __CLPK_real q, __CLPK_integer ldq, __CLPK_integer indxq, __CLPK_real rho, __CLPK_real z__, __CLPK_real
cannam@17	2942 dlamda, __CLPK_real w, __CLPK_real q2, __CLPK_integer indx, __CLPK_integer indxc, __CLPK_integer *
cannam@17	2943 indxp, __CLPK_integer coltyp, __CLPK_integer info);
cannam@17	2944
cannam@17	2945 /* Subroutine / int slaed3_(__CLPK_integer k, __CLPK_integer n, __CLPK_integer n1, __CLPK_real *d__,
cannam@17	2946 __CLPK_real q, __CLPK_integer ldq, __CLPK_real rho, __CLPK_real dlamda, __CLPK_real q2, __CLPK_integer
cannam@17	2947 indx, __CLPK_integer ctot, __CLPK_real w, __CLPK_real s, __CLPK_integer info);
cannam@17	2948
cannam@17	2949 /* Subroutine / int slaed4_(__CLPK_integer n, __CLPK_integer i__, __CLPK_real d__, __CLPK_real *z__,
cannam@17	2950 __CLPK_real delta, __CLPK_real rho, __CLPK_real dlam, __CLPK_integer info);
cannam@17	2951
cannam@17	2952 /* Subroutine / int slaed5_(__CLPK_integer i__, __CLPK_real d__, __CLPK_real z__, __CLPK_real *delta,
cannam@17	2953 __CLPK_real rho, __CLPK_real dlam);
cannam@17	2954
cannam@17	2955 /* Subroutine / int slaed6_(__CLPK_integer kniter, __CLPK_logical orgati, __CLPK_real rho,
cannam@17	2956 __CLPK_real d__, __CLPK_real z__, __CLPK_real finit, __CLPK_real tau, __CLPK_integer *info);
cannam@17	2957
cannam@17	2958 /* Subroutine / int slaed7_(__CLPK_integer icompq, __CLPK_integer n, __CLPK_integer qsiz,
cannam@17	2959 __CLPK_integer tlvls, __CLPK_integer curlvl, __CLPK_integer curpbm, __CLPK_real d__, __CLPK_real *q,
cannam@17	2960 __CLPK_integer ldq, __CLPK_integer indxq, __CLPK_real rho, __CLPK_integer cutpnt, __CLPK_real *
cannam@17	2961 qstore, __CLPK_integer qptr, __CLPK_integer prmptr, __CLPK_integer perm, __CLPK_integer
cannam@17	2962 givptr, __CLPK_integer givcol, __CLPK_real givnum, __CLPK_real work, __CLPK_integer iwork,
cannam@17	2963 __CLPK_integer *info);
cannam@17	2964
cannam@17	2965 /* Subroutine / int slaed8_(__CLPK_integer icompq, __CLPK_integer k, __CLPK_integer n, __CLPK_integer
cannam@17	2966 qsiz, __CLPK_real d__, __CLPK_real q, __CLPK_integer ldq, __CLPK_integer indxq, __CLPK_real rho,
cannam@17	2967 __CLPK_integer cutpnt, __CLPK_real z__, __CLPK_real dlamda, __CLPK_real q2, __CLPK_integer *ldq2,
cannam@17	2968 __CLPK_real w, __CLPK_integer perm, __CLPK_integer givptr, __CLPK_integer givcol, __CLPK_real *
cannam@17	2969 givnum, __CLPK_integer indxp, __CLPK_integer indx, __CLPK_integer *info);
cannam@17	2970
cannam@17	2971 /* Subroutine / int slaed9_(__CLPK_integer k, __CLPK_integer kstart, __CLPK_integer kstop,
cannam@17	2972 __CLPK_integer n, __CLPK_real d__, __CLPK_real q, __CLPK_integer ldq, __CLPK_real rho, __CLPK_real dlamda,
cannam@17	2973 __CLPK_real w, __CLPK_real s, __CLPK_integer lds, __CLPK_integer info);
cannam@17	2974
cannam@17	2975 /* Subroutine / int slaeda_(__CLPK_integer n, __CLPK_integer tlvls, __CLPK_integer curlvl,
cannam@17	2976 __CLPK_integer curpbm, __CLPK_integer prmptr, __CLPK_integer perm, __CLPK_integer givptr,
cannam@17	2977 __CLPK_integer givcol, __CLPK_real givnum, __CLPK_real q, __CLPK_integer qptr, __CLPK_real *z__,
cannam@17	2978 __CLPK_real ztemp, __CLPK_integer info);
cannam@17	2979
cannam@17	2980 /* Subroutine / int slaein_(__CLPK_logical rightv, __CLPK_logical noinit, __CLPK_integer n,
cannam@17	2981 __CLPK_real h__, __CLPK_integer ldh, __CLPK_real wr, __CLPK_real wi, __CLPK_real vr, __CLPK_real vi, __CLPK_real
cannam@17	2982 b, __CLPK_integer ldb, __CLPK_real work, __CLPK_real eps3, __CLPK_real smlnum, __CLPK_real bignum,
cannam@17	2983 __CLPK_integer *info);
cannam@17	2984
cannam@17	2985 /* Subroutine / int slaev2_(__CLPK_real a, __CLPK_real b, __CLPK_real c__, __CLPK_real rt1, __CLPK_real
cannam@17	2986 rt2, __CLPK_real cs1, __CLPK_real sn1);
cannam@17	2987
cannam@17	2988 /* Subroutine / int slaexc_(__CLPK_logical wantq, __CLPK_integer n, __CLPK_real t, __CLPK_integer *
cannam@17	2989 ldt, __CLPK_real q, __CLPK_integer ldq, __CLPK_integer j1, __CLPK_integer n1, __CLPK_integer *n2,
cannam@17	2990 __CLPK_real work, __CLPK_integer info);
cannam@17	2991
cannam@17	2992 /* Subroutine / int slag2_(__CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer *ldb,
cannam@17	2993 __CLPK_real safmin, __CLPK_real scale1, __CLPK_real scale2, __CLPK_real wr1, __CLPK_real wr2, __CLPK_real
cannam@17	2994 wi);
cannam@17	2995
cannam@17	2996 /* Subroutine / int slags2_(__CLPK_logical upper, __CLPK_real a1, __CLPK_real a2, __CLPK_real *a3,
cannam@17	2997 __CLPK_real b1, __CLPK_real b2, __CLPK_real b3, __CLPK_real csu, __CLPK_real snu, __CLPK_real csv, __CLPK_real *
cannam@17	2998 snv, __CLPK_real csq, __CLPK_real snq);
cannam@17	2999
cannam@17	3000 /* Subroutine / int slagtf_(__CLPK_integer n, __CLPK_real a, __CLPK_real lambda, __CLPK_real *b, __CLPK_real
cannam@17	3001 c__, __CLPK_real tol, __CLPK_real d__, __CLPK_integer in, __CLPK_integer *info);
cannam@17	3002
cannam@17	3003 /* Subroutine / int slagtm_(char trans, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *
cannam@17	3004 alpha, __CLPK_real dl, __CLPK_real d__, __CLPK_real du, __CLPK_real x, __CLPK_integer ldx, __CLPK_real
cannam@17	3005 beta, __CLPK_real b, __CLPK_integer ldb);
cannam@17	3006
cannam@17	3007 /* Subroutine / int slagts_(__CLPK_integer job, __CLPK_integer n, __CLPK_real a, __CLPK_real *b, __CLPK_real
cannam@17	3008 c__, __CLPK_real d__, __CLPK_integer in, __CLPK_real y, __CLPK_real tol, __CLPK_integer info);
cannam@17	3009
cannam@17	3010 /* Subroutine / int slagv2_(__CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer *ldb,
cannam@17	3011 __CLPK_real alphar, __CLPK_real alphai, __CLPK_real beta, __CLPK_real csl, __CLPK_real snl, __CLPK_real
cannam@17	3012 csr, __CLPK_real *snr);
cannam@17	3013
cannam@17	3014 /* Subroutine / int slahqr_(__CLPK_logical wantt, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	3015 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real h__, __CLPK_integer ldh, __CLPK_real wr, __CLPK_real
cannam@17	3016 wi, __CLPK_integer iloz, __CLPK_integer ihiz, __CLPK_real z__, __CLPK_integer ldz, __CLPK_integer *
cannam@17	3017 info);
cannam@17	3018
cannam@17	3019 /* Subroutine / int slahrd_(__CLPK_integer n, __CLPK_integer k, __CLPK_integer nb, __CLPK_real *a,
cannam@17	3020 __CLPK_integer lda, __CLPK_real tau, __CLPK_real t, __CLPK_integer ldt, __CLPK_real y, __CLPK_integer ldy);
cannam@17	3021
cannam@17	3022 /* Subroutine / int slaic1_(__CLPK_integer job, __CLPK_integer j, __CLPK_real x, __CLPK_real *sest,
cannam@17	3023 __CLPK_real w, __CLPK_real gamma, __CLPK_real sestpr, __CLPK_real s, __CLPK_real *c__);
cannam@17	3024
cannam@17	3025 /* Subroutine / int slaln2_(__CLPK_logical ltrans, __CLPK_integer na, __CLPK_integer nw, __CLPK_real *
cannam@17	3026 smin, __CLPK_real ca, __CLPK_real a, __CLPK_integer lda, __CLPK_real d1, __CLPK_real d2, __CLPK_real b,
cannam@17	3027 __CLPK_integer ldb, __CLPK_real wr, __CLPK_real wi, __CLPK_real x, __CLPK_integer ldx, __CLPK_real scale,
cannam@17	3028 __CLPK_real xnorm, __CLPK_integer info);
cannam@17	3029
cannam@17	3030 /* Subroutine / int slals0_(__CLPK_integer icompq, __CLPK_integer nl, __CLPK_integer nr,
cannam@17	3031 __CLPK_integer sqre, __CLPK_integer nrhs, __CLPK_real b, __CLPK_integer ldb, __CLPK_real *bx,
cannam@17	3032 __CLPK_integer ldbx, __CLPK_integer perm, __CLPK_integer givptr, __CLPK_integer givcol,
cannam@17	3033 __CLPK_integer ldgcol, __CLPK_real givnum, __CLPK_integer ldgnum, __CLPK_real poles, __CLPK_real *
cannam@17	3034 difl, __CLPK_real difr, __CLPK_real z__, __CLPK_integer k, __CLPK_real c__, __CLPK_real s, __CLPK_real
cannam@17	3035 work, __CLPK_integer *info);
cannam@17	3036
cannam@17	3037 /* Subroutine / int slalsa_(__CLPK_integer icompq, __CLPK_integer smlsiz, __CLPK_integer n,
cannam@17	3038 __CLPK_integer nrhs, __CLPK_real b, __CLPK_integer ldb, __CLPK_real bx, __CLPK_integer ldbx, __CLPK_real
cannam@17	3039 u, __CLPK_integer ldu, __CLPK_real vt, __CLPK_integer k, __CLPK_real difl, __CLPK_real difr, __CLPK_real
cannam@17	3040 z__, __CLPK_real poles, __CLPK_integer givptr, __CLPK_integer givcol, __CLPK_integer ldgcol,
cannam@17	3041 __CLPK_integer perm, __CLPK_real givnum, __CLPK_real c__, __CLPK_real s, __CLPK_real work, __CLPK_integer
cannam@17	3042 iwork, __CLPK_integer *info);
cannam@17	3043
cannam@17	3044 /* Subroutine / int slalsd_(char uplo, __CLPK_integer smlsiz, __CLPK_integer n, __CLPK_integer
cannam@17	3045 nrhs, __CLPK_real d__, __CLPK_real e, __CLPK_real b, __CLPK_integer ldb, __CLPK_real rcond,
cannam@17	3046 __CLPK_integer rank, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3047
cannam@17	3048 /* Subroutine / int slamc1_(__CLPK_integer beta, __CLPK_integer t, __CLPK_logical rnd, __CLPK_logical
cannam@17	3049 *ieee1);
cannam@17	3050
cannam@17	3051 /* Subroutine / int slamc2_(__CLPK_integer beta, __CLPK_integer t, __CLPK_logical rnd, __CLPK_real *
cannam@17	3052 eps, __CLPK_integer emin, __CLPK_real rmin, __CLPK_integer emax, __CLPK_real rmax);
cannam@17	3053
cannam@17	3054 /* Subroutine / int slamc4_(__CLPK_integer emin, __CLPK_real start, __CLPK_integer base);
cannam@17	3055
cannam@17	3056 /* Subroutine / int slamc5_(__CLPK_integer beta, __CLPK_integer p, __CLPK_integer emin,
cannam@17	3057 __CLPK_logical ieee, __CLPK_integer emax, __CLPK_real *rmax);
cannam@17	3058
cannam@17	3059 /* Subroutine / int slamrg_(__CLPK_integer n1, __CLPK_integer n2, __CLPK_real a, __CLPK_integer *
cannam@17	3060 strd1, __CLPK_integer strd2, __CLPK_integer index);
cannam@17	3061
cannam@17	3062 /* Subroutine / int slanv2_(__CLPK_real a, __CLPK_real b, __CLPK_real c__, __CLPK_real d__, __CLPK_real
cannam@17	3063 rt1r, __CLPK_real rt1i, __CLPK_real rt2r, __CLPK_real rt2i, __CLPK_real cs, __CLPK_real *sn);
cannam@17	3064
cannam@17	3065 /* Subroutine / int slapll_(__CLPK_integer n, __CLPK_real x, __CLPK_integer incx, __CLPK_real *y,
cannam@17	3066 __CLPK_integer incy, __CLPK_real ssmin);
cannam@17	3067
cannam@17	3068 /* Subroutine / int slapmt_(__CLPK_logical forwrd, __CLPK_integer m, __CLPK_integer n, __CLPK_real *x,
cannam@17	3069 __CLPK_integer ldx, __CLPK_integer k);
cannam@17	3070
cannam@17	3071 /* Subroutine / int slaqgb_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	3072 __CLPK_real ab, __CLPK_integer ldab, __CLPK_real r__, __CLPK_real c__, __CLPK_real rowcnd, __CLPK_real
cannam@17	3073 colcnd, __CLPK_real amax, char equed);
cannam@17	3074
cannam@17	3075 /* Subroutine / int slaqge_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3076 __CLPK_real r__, __CLPK_real c__, __CLPK_real rowcnd, __CLPK_real colcnd, __CLPK_real amax, char
cannam@17	3077 equed);
cannam@17	3078
cannam@17	3079 /* Subroutine / int slaqp2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer offset, __CLPK_real *a,
cannam@17	3080 __CLPK_integer lda, __CLPK_integer jpvt, __CLPK_real tau, __CLPK_real vn1, __CLPK_real vn2, __CLPK_real
cannam@17	3081 work);
cannam@17	3082
cannam@17	3083 /* Subroutine / int slaqps_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer offset, __CLPK_integer
cannam@17	3084 nb, __CLPK_integer kb, __CLPK_real a, __CLPK_integer lda, __CLPK_integer jpvt, __CLPK_real tau,
cannam@17	3085 __CLPK_real vn1, __CLPK_real vn2, __CLPK_real auxv, __CLPK_real f, __CLPK_integer *ldf);
cannam@17	3086
cannam@17	3087 /* Subroutine / int slaqsb_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_real *ab,
cannam@17	3088 __CLPK_integer ldab, __CLPK_real s, __CLPK_real scond, __CLPK_real amax, char *equed);
cannam@17	3089
cannam@17	3090 /* Subroutine / int slaqsp_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_real s, __CLPK_real
cannam@17	3091 scond, __CLPK_real amax, char equed);
cannam@17	3092
cannam@17	3093 /* Subroutine / int slaqsy_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3094 __CLPK_real s, __CLPK_real scond, __CLPK_real amax, char equed);
cannam@17	3095
cannam@17	3096 /* Subroutine / int slaqtr_(__CLPK_logical ltran, __CLPK_logical lreal, __CLPK_integer n, __CLPK_real
cannam@17	3097 t, __CLPK_integer ldt, __CLPK_real b, __CLPK_real w, __CLPK_real scale, __CLPK_real x, __CLPK_real *work,
cannam@17	3098 __CLPK_integer *info);
cannam@17	3099
cannam@17	3100 /* Subroutine / int slar1v_(__CLPK_integer n, __CLPK_integer b1, __CLPK_integer bn, __CLPK_real *
cannam@17	3101 sigma, __CLPK_real d__, __CLPK_real l, __CLPK_real ld, __CLPK_real lld, __CLPK_real gersch, __CLPK_real
cannam@17	3102 z__, __CLPK_real ztz, __CLPK_real mingma, __CLPK_integer r__, __CLPK_integer isuppz, __CLPK_real *
cannam@17	3103 work);
cannam@17	3104
cannam@17	3105 /* Subroutine / int slar2v_(__CLPK_integer n, __CLPK_real x, __CLPK_real y, __CLPK_real *z__, __CLPK_integer
cannam@17	3106 incx, __CLPK_real c__, __CLPK_real s, __CLPK_integer incc);
cannam@17	3107
cannam@17	3108 /* Subroutine / int slarf_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_real *v,
cannam@17	3109 __CLPK_integer incv, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc, __CLPK_real *work);
cannam@17	3110
cannam@17	3111 /* Subroutine / int slarfb_(char side, char trans, char direct, char *
cannam@17	3112 storev, __CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_real v, __CLPK_integer *ldv,
cannam@17	3113 __CLPK_real t, __CLPK_integer ldt, __CLPK_real c__, __CLPK_integer ldc, __CLPK_real work, __CLPK_integer
cannam@17	3114 ldwork);
cannam@17	3115
cannam@17	3116 /* Subroutine / int slarfg_(__CLPK_integer n, __CLPK_real alpha, __CLPK_real x, __CLPK_integer *incx,
cannam@17	3117 __CLPK_real *tau);
cannam@17	3118
cannam@17	3119 /* Subroutine / int slarft_(char direct, char storev, __CLPK_integer n, __CLPK_integer *
cannam@17	3120 k, __CLPK_real v, __CLPK_integer ldv, __CLPK_real tau, __CLPK_real t, __CLPK_integer *ldt);
cannam@17	3121
cannam@17	3122 /* Subroutine / int slarfx_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_real *v,
cannam@17	3123 __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc, __CLPK_real work);
cannam@17	3124
cannam@17	3125 /* Subroutine / int slargv_(__CLPK_integer n, __CLPK_real x, __CLPK_integer incx, __CLPK_real *y,
cannam@17	3126 __CLPK_integer incy, __CLPK_real c__, __CLPK_integer *incc);
cannam@17	3127
cannam@17	3128 /* Subroutine / int slarnv_(__CLPK_integer idist, __CLPK_integer iseed, __CLPK_integer n, __CLPK_real
cannam@17	3129 *x);
cannam@17	3130
cannam@17	3131 /* Subroutine / int slarrb_(__CLPK_integer n, __CLPK_real d__, __CLPK_real l, __CLPK_real ld, __CLPK_real
cannam@17	3132 lld, __CLPK_integer ifirst, __CLPK_integer ilast, __CLPK_real sigma, __CLPK_real reltol, __CLPK_real
cannam@17	3133 w, __CLPK_real wgap, __CLPK_real werr, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3134
cannam@17	3135 /* Subroutine / int slarre_(__CLPK_integer n, __CLPK_real d__, __CLPK_real e, __CLPK_real *tol,
cannam@17	3136 __CLPK_integer nsplit, __CLPK_integer isplit, __CLPK_integer m, __CLPK_real w, __CLPK_real *woff,
cannam@17	3137 __CLPK_real gersch, __CLPK_real work, __CLPK_integer *info);
cannam@17	3138
cannam@17	3139 /* Subroutine / int slarrf_(__CLPK_integer n, __CLPK_real d__, __CLPK_real l, __CLPK_real ld, __CLPK_real
cannam@17	3140 lld, __CLPK_integer ifirst, __CLPK_integer ilast, __CLPK_real w, __CLPK_real dplus, __CLPK_real *
cannam@17	3141 lplus, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3142
cannam@17	3143 /* Subroutine / int slarrv_(__CLPK_integer n, __CLPK_real d__, __CLPK_real l, __CLPK_integer *isplit,
cannam@17	3144 __CLPK_integer m, __CLPK_real w, __CLPK_integer iblock, __CLPK_real gersch, __CLPK_real tol, __CLPK_real
cannam@17	3145 z__, __CLPK_integer ldz, __CLPK_integer isuppz, __CLPK_real work, __CLPK_integer iwork,
cannam@17	3146 __CLPK_integer *info);
cannam@17	3147
cannam@17	3148 /* Subroutine / int slartg_(__CLPK_real f, __CLPK_real g, __CLPK_real cs, __CLPK_real sn, __CLPK_real r__);
cannam@17	3149
cannam@17	3150 /* Subroutine / int slartv_(__CLPK_integer n, __CLPK_real x, __CLPK_integer incx, __CLPK_real *y,
cannam@17	3151 __CLPK_integer incy, __CLPK_real c__, __CLPK_real s, __CLPK_integer incc);
cannam@17	3152
cannam@17	3153 /* Subroutine / int slaruv_(__CLPK_integer iseed, __CLPK_integer n, __CLPK_real x);
cannam@17	3154
cannam@17	3155 /* Subroutine / int slarz_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *l,
cannam@17	3156 __CLPK_real v, __CLPK_integer incv, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc, __CLPK_real
cannam@17	3157 work);
cannam@17	3158
cannam@17	3159 /* Subroutine / int slarzb_(char side, char trans, char direct, char *
cannam@17	3160 storev, __CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_integer l, __CLPK_real *v,
cannam@17	3161 __CLPK_integer ldv, __CLPK_real t, __CLPK_integer ldt, __CLPK_real c__, __CLPK_integer ldc, __CLPK_real
cannam@17	3162 work, __CLPK_integer *ldwork);
cannam@17	3163
cannam@17	3164 /* Subroutine / int slarzt_(char direct, char storev, __CLPK_integer n, __CLPK_integer *
cannam@17	3165 k, __CLPK_real v, __CLPK_integer ldv, __CLPK_real tau, __CLPK_real t, __CLPK_integer *ldt);
cannam@17	3166
cannam@17	3167 /* Subroutine / int slas2_(__CLPK_real f, __CLPK_real g, __CLPK_real h__, __CLPK_real ssmin, __CLPK_real
cannam@17	3168 ssmax);
cannam@17	3169
cannam@17	3170 /* Subroutine / int slascl_(char type__, __CLPK_integer kl, __CLPK_integer ku, __CLPK_real *
cannam@17	3171 cfrom, __CLPK_real cto, __CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3172 __CLPK_integer *info);
cannam@17	3173
cannam@17	3174 /* Subroutine / int slasd0_(__CLPK_integer n, __CLPK_integer sqre, __CLPK_real d__, __CLPK_real *e,
cannam@17	3175 __CLPK_real u, __CLPK_integer ldu, __CLPK_real vt, __CLPK_integer ldvt, __CLPK_integer *smlsiz,
cannam@17	3176 __CLPK_integer iwork, __CLPK_real work, __CLPK_integer *info);
cannam@17	3177
cannam@17	3178 /* Subroutine / int slasd1_(__CLPK_integer nl, __CLPK_integer nr, __CLPK_integer sqre, __CLPK_real *
cannam@17	3179 d__, __CLPK_real alpha, __CLPK_real beta, __CLPK_real u, __CLPK_integer ldu, __CLPK_real *vt,
cannam@17	3180 __CLPK_integer ldvt, __CLPK_integer idxq, __CLPK_integer iwork, __CLPK_real work, __CLPK_integer *
cannam@17	3181 info);
cannam@17	3182
cannam@17	3183 /* Subroutine / int slasd2_(__CLPK_integer nl, __CLPK_integer nr, __CLPK_integer sqre, __CLPK_integer
cannam@17	3184 k, __CLPK_real d__, __CLPK_real z__, __CLPK_real alpha, __CLPK_real beta, __CLPK_real u, __CLPK_integer *
cannam@17	3185 ldu, __CLPK_real vt, __CLPK_integer ldvt, __CLPK_real dsigma, __CLPK_real u2, __CLPK_integer *ldu2,
cannam@17	3186 __CLPK_real vt2, __CLPK_integer ldvt2, __CLPK_integer idxp, __CLPK_integer idx, __CLPK_integer *idxc,
cannam@17	3187 __CLPK_integer idxq, __CLPK_integer coltyp, __CLPK_integer *info);
cannam@17	3188
cannam@17	3189 /* Subroutine / int slasd3_(__CLPK_integer nl, __CLPK_integer nr, __CLPK_integer sqre, __CLPK_integer
cannam@17	3190 k, __CLPK_real d__, __CLPK_real q, __CLPK_integer ldq, __CLPK_real dsigma, __CLPK_real u, __CLPK_integer *
cannam@17	3191 ldu, __CLPK_real u2, __CLPK_integer ldu2, __CLPK_real vt, __CLPK_integer ldvt, __CLPK_real *vt2,
cannam@17	3192 __CLPK_integer ldvt2, __CLPK_integer idxc, __CLPK_integer ctot, __CLPK_real z__, __CLPK_integer *
cannam@17	3193 info);
cannam@17	3194
cannam@17	3195 /* Subroutine / int slasd4_(__CLPK_integer n, __CLPK_integer i__, __CLPK_real d__, __CLPK_real *z__,
cannam@17	3196 __CLPK_real delta, __CLPK_real rho, __CLPK_real sigma, __CLPK_real work, __CLPK_integer *info);
cannam@17	3197
cannam@17	3198 /* Subroutine / int slasd5_(__CLPK_integer i__, __CLPK_real d__, __CLPK_real z__, __CLPK_real *delta,
cannam@17	3199 __CLPK_real rho, __CLPK_real dsigma, __CLPK_real *work);
cannam@17	3200
cannam@17	3201 /* Subroutine / int slasd6_(__CLPK_integer icompq, __CLPK_integer nl, __CLPK_integer nr,
cannam@17	3202 __CLPK_integer sqre, __CLPK_real d__, __CLPK_real vf, __CLPK_real vl, __CLPK_real alpha, __CLPK_real beta,
cannam@17	3203 __CLPK_integer idxq, __CLPK_integer perm, __CLPK_integer givptr, __CLPK_integer givcol,
cannam@17	3204 __CLPK_integer ldgcol, __CLPK_real givnum, __CLPK_integer ldgnum, __CLPK_real poles, __CLPK_real *
cannam@17	3205 difl, __CLPK_real difr, __CLPK_real z__, __CLPK_integer k, __CLPK_real c__, __CLPK_real s, __CLPK_real
cannam@17	3206 work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3207
cannam@17	3208 /* Subroutine / int slasd7_(__CLPK_integer icompq, __CLPK_integer nl, __CLPK_integer nr,
cannam@17	3209 __CLPK_integer sqre, __CLPK_integer k, __CLPK_real d__, __CLPK_real z__, __CLPK_real zw, __CLPK_real vf,
cannam@17	3210 __CLPK_real vfw, __CLPK_real vl, __CLPK_real vlw, __CLPK_real alpha, __CLPK_real beta, __CLPK_real dsigma,
cannam@17	3211 __CLPK_integer idx, __CLPK_integer idxp, __CLPK_integer idxq, __CLPK_integer perm, __CLPK_integer *
cannam@17	3212 givptr, __CLPK_integer givcol, __CLPK_integer ldgcol, __CLPK_real givnum, __CLPK_integer
cannam@17	3213 ldgnum, __CLPK_real c__, __CLPK_real s, __CLPK_integer *info);
cannam@17	3214
cannam@17	3215 /* Subroutine / int slasd8_(__CLPK_integer icompq, __CLPK_integer k, __CLPK_real d__, __CLPK_real *
cannam@17	3216 z__, __CLPK_real vf, __CLPK_real vl, __CLPK_real difl, __CLPK_real difr, __CLPK_integer *lddifr,
cannam@17	3217 __CLPK_real dsigma, __CLPK_real work, __CLPK_integer *info);
cannam@17	3218
cannam@17	3219 /* Subroutine / int slasd9_(__CLPK_integer icompq, __CLPK_integer ldu, __CLPK_integer k, __CLPK_real *
cannam@17	3220 d__, __CLPK_real z__, __CLPK_real vf, __CLPK_real vl, __CLPK_real difl, __CLPK_real difr, __CLPK_real
cannam@17	3221 dsigma, __CLPK_real work, __CLPK_integer info);
cannam@17	3222
cannam@17	3223 /* Subroutine / int slasda_(__CLPK_integer icompq, __CLPK_integer smlsiz, __CLPK_integer n,
cannam@17	3224 __CLPK_integer sqre, __CLPK_real d__, __CLPK_real e, __CLPK_real u, __CLPK_integer ldu, __CLPK_real vt,
cannam@17	3225 __CLPK_integer k, __CLPK_real difl, __CLPK_real difr, __CLPK_real z__, __CLPK_real poles, __CLPK_integer
cannam@17	3226 givptr, __CLPK_integer givcol, __CLPK_integer ldgcol, __CLPK_integer perm, __CLPK_real givnum,
cannam@17	3227 __CLPK_real c__, __CLPK_real s, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3228
cannam@17	3229 /* Subroutine / int slasdq_(char uplo, __CLPK_integer sqre, __CLPK_integer n, __CLPK_integer *
cannam@17	3230 ncvt, __CLPK_integer nru, __CLPK_integer ncc, __CLPK_real d__, __CLPK_real e, __CLPK_real *vt,
cannam@17	3231 __CLPK_integer ldvt, __CLPK_real u, __CLPK_integer ldu, __CLPK_real c__, __CLPK_integer ldc, __CLPK_real
cannam@17	3232 work, __CLPK_integer *info);
cannam@17	3233
cannam@17	3234 /* Subroutine / int slasdt_(__CLPK_integer n, __CLPK_integer lvl, __CLPK_integer nd, __CLPK_integer *
cannam@17	3235 inode, __CLPK_integer ndiml, __CLPK_integer ndimr, __CLPK_integer *msub);
cannam@17	3236
cannam@17	3237 /* Subroutine / int slaset_(char uplo, __CLPK_integer m, __CLPK_integer n, __CLPK_real *alpha,
cannam@17	3238 __CLPK_real beta, __CLPK_real a, __CLPK_integer *lda);
cannam@17	3239
cannam@17	3240 /* Subroutine / int slasq1_(__CLPK_integer n, __CLPK_real d__, __CLPK_real e, __CLPK_real *work,
cannam@17	3241 __CLPK_integer *info);
cannam@17	3242
cannam@17	3243 /* Subroutine / int slasq2_(__CLPK_integer n, __CLPK_real z__, __CLPK_integer info);
cannam@17	3244
cannam@17	3245 /* Subroutine / int slasq3_(__CLPK_integer i0, __CLPK_integer n0, __CLPK_real z__, __CLPK_integer *pp,
cannam@17	3246 __CLPK_real dmin__, __CLPK_real sigma, __CLPK_real desig, __CLPK_real qmax, __CLPK_integer *nfail,
cannam@17	3247 __CLPK_integer iter, __CLPK_integer ndiv, __CLPK_logical *ieee);
cannam@17	3248
cannam@17	3249 /* Subroutine / int slasq4_(__CLPK_integer i0, __CLPK_integer n0, __CLPK_real z__, __CLPK_integer *pp,
cannam@17	3250 __CLPK_integer n0in, __CLPK_real dmin__, __CLPK_real dmin1, __CLPK_real dmin2, __CLPK_real *dn,
cannam@17	3251 __CLPK_real dn1, __CLPK_real dn2, __CLPK_real tau, __CLPK_integer ttype);
cannam@17	3252
cannam@17	3253 /* Subroutine / int slasq5_(__CLPK_integer i0, __CLPK_integer n0, __CLPK_real z__, __CLPK_integer *pp,
cannam@17	3254 __CLPK_real tau, __CLPK_real dmin__, __CLPK_real dmin1, __CLPK_real dmin2, __CLPK_real dn, __CLPK_real
cannam@17	3255 dnm1, __CLPK_real dnm2, __CLPK_logical ieee);
cannam@17	3256
cannam@17	3257 /* Subroutine / int slasq6_(__CLPK_integer i0, __CLPK_integer n0, __CLPK_real z__, __CLPK_integer *pp,
cannam@17	3258 __CLPK_real dmin__, __CLPK_real dmin1, __CLPK_real dmin2, __CLPK_real dn, __CLPK_real dnm1, __CLPK_real
cannam@17	3259 dnm2);
cannam@17	3260
cannam@17	3261 /* Subroutine / int slasr_(char side, char pivot, char direct, __CLPK_integer *m,
cannam@17	3262 __CLPK_integer n, __CLPK_real c__, __CLPK_real s, __CLPK_real a, __CLPK_integer *lda);
cannam@17	3263
cannam@17	3264 /* Subroutine / int slasrt_(char id, __CLPK_integer n, __CLPK_real d__, __CLPK_integer *info);
cannam@17	3265
cannam@17	3266 /* Subroutine / int slassq_(__CLPK_integer n, __CLPK_real x, __CLPK_integer incx, __CLPK_real *scale,
cannam@17	3267 __CLPK_real *sumsq);
cannam@17	3268
cannam@17	3269 /* Subroutine / int slasv2_(__CLPK_real f, __CLPK_real g, __CLPK_real h__, __CLPK_real ssmin, __CLPK_real
cannam@17	3270 ssmax, __CLPK_real snr, __CLPK_real csr, __CLPK_real snl, __CLPK_real csl);
cannam@17	3271
cannam@17	3272 /* Subroutine / int slaswp_(__CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_integer *k1,
cannam@17	3273 __CLPK_integer k2, __CLPK_integer ipiv, __CLPK_integer *incx);
cannam@17	3274
cannam@17	3275 /* Subroutine / int slasy2_(__CLPK_logical ltranl, __CLPK_logical ltranr, __CLPK_integer isgn,
cannam@17	3276 __CLPK_integer n1, __CLPK_integer n2, __CLPK_real tl, __CLPK_integer ldtl, __CLPK_real tr, __CLPK_integer
cannam@17	3277 ldtr, __CLPK_real b, __CLPK_integer ldb, __CLPK_real scale, __CLPK_real x, __CLPK_integer *ldx, __CLPK_real
cannam@17	3278 xnorm, __CLPK_integer info);
cannam@17	3279
cannam@17	3280 /* Subroutine / int slasyf_(char uplo, __CLPK_integer n, __CLPK_integer nb, __CLPK_integer *kb,
cannam@17	3281 __CLPK_real a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_real w, __CLPK_integer *ldw, __CLPK_integer
cannam@17	3282 *info);
cannam@17	3283
cannam@17	3284 /* Subroutine / int slatbs_(char uplo, char trans, char diag, char *
cannam@17	3285 normin, __CLPK_integer n, __CLPK_integer kd, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real *x,
cannam@17	3286 __CLPK_real scale, __CLPK_real cnorm, __CLPK_integer *info);
cannam@17	3287
cannam@17	3288 /* Subroutine / int slatdf_(__CLPK_integer ijob, __CLPK_integer n, __CLPK_real z__, __CLPK_integer *
cannam@17	3289 ldz, __CLPK_real rhs, __CLPK_real rdsum, __CLPK_real rdscal, __CLPK_integer ipiv, __CLPK_integer *
cannam@17	3290 jpiv);
cannam@17	3291
cannam@17	3292 /* Subroutine / int slatps_(char uplo, char trans, char diag, char *
cannam@17	3293 normin, __CLPK_integer n, __CLPK_real ap, __CLPK_real x, __CLPK_real scale, __CLPK_real *cnorm,
cannam@17	3294 __CLPK_integer *info);
cannam@17	3295
cannam@17	3296 /* Subroutine / int slatrd_(char uplo, __CLPK_integer n, __CLPK_integer nb, __CLPK_real *a,
cannam@17	3297 __CLPK_integer lda, __CLPK_real e, __CLPK_real tau, __CLPK_real w, __CLPK_integer *ldw);
cannam@17	3298
cannam@17	3299 /* Subroutine / int slatrs_(char uplo, char trans, char diag, char *
cannam@17	3300 normin, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real x, __CLPK_real *scale, __CLPK_real
cannam@17	3301 cnorm, __CLPK_integer info);
cannam@17	3302
cannam@17	3303 /* Subroutine / int slatrz_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer l, __CLPK_real *a,
cannam@17	3304 __CLPK_integer lda, __CLPK_real tau, __CLPK_real *work);
cannam@17	3305
cannam@17	3306 /* Subroutine / int slatzm_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_real *v,
cannam@17	3307 __CLPK_integer incv, __CLPK_real tau, __CLPK_real c1, __CLPK_real c2, __CLPK_integer ldc, __CLPK_real
cannam@17	3308 work);
cannam@17	3309
cannam@17	3310 /* Subroutine / int slauu2_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3311 __CLPK_integer *info);
cannam@17	3312
cannam@17	3313 /* Subroutine / int slauum_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3314 __CLPK_integer *info);
cannam@17	3315
cannam@17	3316 /* Subroutine / int sopgtr_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_real *tau,
cannam@17	3317 __CLPK_real q, __CLPK_integer ldq, __CLPK_real work, __CLPK_integer info);
cannam@17	3318
cannam@17	3319 /* Subroutine / int sopmtr_(char side, char uplo, char trans, __CLPK_integer *m,
cannam@17	3320 __CLPK_integer n, __CLPK_real ap, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc, __CLPK_real work,
cannam@17	3321 __CLPK_integer *info);
cannam@17	3322
cannam@17	3323 /* Subroutine / int sorg2l_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_real *a,
cannam@17	3324 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer info);
cannam@17	3325
cannam@17	3326 /* Subroutine / int sorg2r_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_real *a,
cannam@17	3327 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer info);
cannam@17	3328
cannam@17	3329 /* Subroutine / int sorgbr_(char vect, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *k,
cannam@17	3330 __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer *lwork, __CLPK_integer
cannam@17	3331 *info);
cannam@17	3332
cannam@17	3333 /* Subroutine / int sorghr_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real *a,
cannam@17	3334 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3335
cannam@17	3336 /* Subroutine / int sorgl2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_real *a,
cannam@17	3337 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer info);
cannam@17	3338
cannam@17	3339 /* Subroutine / int sorglq_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_real *a,
cannam@17	3340 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3341
cannam@17	3342 /* Subroutine / int sorgql_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_real *a,
cannam@17	3343 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3344
cannam@17	3345 /* Subroutine / int sorgqr_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_real *a,
cannam@17	3346 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3347
cannam@17	3348 /* Subroutine / int sorgr2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_real *a,
cannam@17	3349 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer info);
cannam@17	3350
cannam@17	3351 /* Subroutine / int sorgrq_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_real *a,
cannam@17	3352 __CLPK_integer lda, __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3353
cannam@17	3354 /* Subroutine / int sorgtr_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3355 __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3356
cannam@17	3357 /* Subroutine / int sorm2l_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3358 __CLPK_integer k, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc,
cannam@17	3359 __CLPK_real work, __CLPK_integer info);
cannam@17	3360
cannam@17	3361 /* Subroutine / int sorm2r_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3362 __CLPK_integer k, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc,
cannam@17	3363 __CLPK_real work, __CLPK_integer info);
cannam@17	3364
cannam@17	3365 /* Subroutine / int sormbr_(char vect, char side, char trans, __CLPK_integer *m,
cannam@17	3366 __CLPK_integer n, __CLPK_integer k, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__,
cannam@17	3367 __CLPK_integer ldc, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3368
cannam@17	3369 /* Subroutine / int sormhr_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3370 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real
cannam@17	3371 c__, __CLPK_integer ldc, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3372
cannam@17	3373 /* Subroutine / int sorml2_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3374 __CLPK_integer k, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc,
cannam@17	3375 __CLPK_real work, __CLPK_integer info);
cannam@17	3376
cannam@17	3377 /* Subroutine / int sormlq_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3378 __CLPK_integer k, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc,
cannam@17	3379 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3380
cannam@17	3381 /* Subroutine / int sormql_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3382 __CLPK_integer k, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc,
cannam@17	3383 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3384
cannam@17	3385 /* Subroutine / int sormqr_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3386 __CLPK_integer k, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc,
cannam@17	3387 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3388
cannam@17	3389 /* Subroutine / int sormr2_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3390 __CLPK_integer k, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc,
cannam@17	3391 __CLPK_real work, __CLPK_integer info);
cannam@17	3392
cannam@17	3393 /* Subroutine / int sormr3_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3394 __CLPK_integer k, __CLPK_integer l, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__,
cannam@17	3395 __CLPK_integer ldc, __CLPK_real work, __CLPK_integer *info);
cannam@17	3396
cannam@17	3397 /* Subroutine / int sormrq_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3398 __CLPK_integer k, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc,
cannam@17	3399 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3400
cannam@17	3401 /* Subroutine / int sormrz_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	3402 __CLPK_integer k, __CLPK_integer l, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__,
cannam@17	3403 __CLPK_integer ldc, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3404
cannam@17	3405 /* Subroutine / int sormtr_(char side, char uplo, char trans, __CLPK_integer *m,
cannam@17	3406 __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real tau, __CLPK_real c__, __CLPK_integer ldc,
cannam@17	3407 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3408
cannam@17	3409 /* Subroutine / int spbcon_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_real *ab,
cannam@17	3410 __CLPK_integer ldab, __CLPK_real anorm, __CLPK_real rcond, __CLPK_real work, __CLPK_integer *iwork,
cannam@17	3411 __CLPK_integer *info);
cannam@17	3412
cannam@17	3413 /* Subroutine / int spbequ_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_real *ab,
cannam@17	3414 __CLPK_integer ldab, __CLPK_real s, __CLPK_real scond, __CLPK_real amax, __CLPK_integer *info);
cannam@17	3415
cannam@17	3416 /* Subroutine / int spbrfs_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	3417 nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real afb, __CLPK_integer ldafb, __CLPK_real *b,
cannam@17	3418 __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_real
cannam@17	3419 work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3420
cannam@17	3421 /* Subroutine / int spbstf_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_real *ab,
cannam@17	3422 __CLPK_integer ldab, __CLPK_integer info);
cannam@17	3423
cannam@17	3424 /* Subroutine / int spbsv_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	3425 nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	3426
cannam@17	3427 /* Subroutine / int spbsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	3428 __CLPK_integer nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real afb, __CLPK_integer *ldafb,
cannam@17	3429 char equed, __CLPK_real s, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx,
cannam@17	3430 __CLPK_real rcond, __CLPK_real ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer *iwork,
cannam@17	3431 __CLPK_integer *info);
cannam@17	3432
cannam@17	3433 /* Subroutine / int spbtf2_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_real *ab,
cannam@17	3434 __CLPK_integer ldab, __CLPK_integer info);
cannam@17	3435
cannam@17	3436 /* Subroutine / int spbtrf_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_real *ab,
cannam@17	3437 __CLPK_integer ldab, __CLPK_integer info);
cannam@17	3438
cannam@17	3439 /* Subroutine / int spbtrs_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	3440 nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	3441
cannam@17	3442 /* Subroutine / int spocon_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3443 __CLPK_real anorm, __CLPK_real rcond, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3444
cannam@17	3445 /* Subroutine / int spoequ_(__CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real *s, __CLPK_real
cannam@17	3446 scond, __CLPK_real amax, __CLPK_integer *info);
cannam@17	3447
cannam@17	3448 /* Subroutine / int sporfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	3449 __CLPK_integer lda, __CLPK_real af, __CLPK_integer ldaf, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x,
cannam@17	3450 __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer *iwork,
cannam@17	3451 __CLPK_integer *info);
cannam@17	3452
cannam@17	3453 /* Subroutine / int sposv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	3454 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	3455
cannam@17	3456 /* Subroutine / int sposvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	3457 nrhs, __CLPK_real a, __CLPK_integer lda, __CLPK_real af, __CLPK_integer ldaf, char *equed,
cannam@17	3458 __CLPK_real s, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real rcond,
cannam@17	3459 __CLPK_real ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3460
cannam@17	3461 /* Subroutine / int spotf2_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3462 __CLPK_integer *info);
cannam@17	3463
cannam@17	3464 /* Subroutine / int spotrf_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3465 __CLPK_integer *info);
cannam@17	3466
cannam@17	3467 /* Subroutine / int spotri_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3468 __CLPK_integer *info);
cannam@17	3469
cannam@17	3470 /* Subroutine / int spotrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	3471 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	3472
cannam@17	3473 /* Subroutine / int sppcon_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_real *anorm,
cannam@17	3474 __CLPK_real rcond, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3475
cannam@17	3476 /* Subroutine / int sppequ_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_real s, __CLPK_real
cannam@17	3477 scond, __CLPK_real amax, __CLPK_integer info);
cannam@17	3478
cannam@17	3479 /* Subroutine / int spprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *ap,
cannam@17	3480 __CLPK_real afp, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real ferr,
cannam@17	3481 __CLPK_real berr, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3482
cannam@17	3483 /* Subroutine / int sppsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *ap,
cannam@17	3484 __CLPK_real b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	3485
cannam@17	3486 /* Subroutine / int sppsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	3487 nrhs, __CLPK_real ap, __CLPK_real afp, char equed, __CLPK_real s, __CLPK_real b, __CLPK_integer
cannam@17	3488 ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real *berr, __CLPK_real
cannam@17	3489 work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3490
cannam@17	3491 /* Subroutine / int spptrf_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_integer *info);
cannam@17	3492
cannam@17	3493 /* Subroutine / int spptri_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_integer *info);
cannam@17	3494
cannam@17	3495 /* Subroutine / int spptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *ap,
cannam@17	3496 __CLPK_real b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	3497
cannam@17	3498 /* Subroutine / int sptcon_(__CLPK_integer n, __CLPK_real d__, __CLPK_real e, __CLPK_real *anorm,
cannam@17	3499 __CLPK_real rcond, __CLPK_real work, __CLPK_integer *info);
cannam@17	3500
cannam@17	3501 /* Subroutine / int spteqr_(char compz, __CLPK_integer n, __CLPK_real d__, __CLPK_real *e,
cannam@17	3502 __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer info);
cannam@17	3503
cannam@17	3504 /* Subroutine / int sptrfs_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_real d__, __CLPK_real *e,
cannam@17	3505 __CLPK_real df, __CLPK_real ef, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx,
cannam@17	3506 __CLPK_real ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer info);
cannam@17	3507
cannam@17	3508 /* Subroutine / int sptsv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_real d__, __CLPK_real *e,
cannam@17	3509 __CLPK_real b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	3510
cannam@17	3511 /* Subroutine / int sptsvx_(char fact, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *d__,
cannam@17	3512 __CLPK_real e, __CLPK_real df, __CLPK_real ef, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer
cannam@17	3513 ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer info);
cannam@17	3514
cannam@17	3515 /* Subroutine / int spttrf_(__CLPK_integer n, __CLPK_real d__, __CLPK_real e, __CLPK_integer *info);
cannam@17	3516
cannam@17	3517 /* Subroutine / int spttrs_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_real d__, __CLPK_real *e,
cannam@17	3518 __CLPK_real b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	3519
cannam@17	3520 /* Subroutine / int sptts2_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_real d__, __CLPK_real *e,
cannam@17	3521 __CLPK_real b, __CLPK_integer ldb);
cannam@17	3522
cannam@17	3523 /* Subroutine / int srscl_(__CLPK_integer n, __CLPK_real sa, __CLPK_real sx, __CLPK_integer *incx);
cannam@17	3524
cannam@17	3525 /* Subroutine / int ssbev_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	3526 __CLPK_real ab, __CLPK_integer ldab, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work,
cannam@17	3527 __CLPK_integer *info);
cannam@17	3528
cannam@17	3529 /* Subroutine / int ssbevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	3530 __CLPK_real ab, __CLPK_integer ldab, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work,
cannam@17	3531 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3532
cannam@17	3533 /* Subroutine / int ssbevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	3534 __CLPK_integer kd, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real q, __CLPK_integer ldq, __CLPK_real vl,
cannam@17	3535 __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol, __CLPK_integer m, __CLPK_real
cannam@17	3536 w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *
cannam@17	3537 ifail, __CLPK_integer *info);
cannam@17	3538
cannam@17	3539 /* Subroutine / int ssbgst_(char vect, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	3540 __CLPK_integer kb, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real bb, __CLPK_integer ldbb, __CLPK_real
cannam@17	3541 x, __CLPK_integer ldx, __CLPK_real work, __CLPK_integer *info);
cannam@17	3542
cannam@17	3543 /* Subroutine / int ssbgv_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	3544 __CLPK_integer kb, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real bb, __CLPK_integer ldbb, __CLPK_real
cannam@17	3545 w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer info);
cannam@17	3546
cannam@17	3547 /* Subroutine / int ssbgvd_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	3548 __CLPK_integer kb, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real bb, __CLPK_integer ldbb, __CLPK_real
cannam@17	3549 w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *
cannam@17	3550 iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3551
cannam@17	3552 /* Subroutine / int ssbgvx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	3553 __CLPK_integer ka, __CLPK_integer kb, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real bb, __CLPK_integer
cannam@17	3554 ldbb, __CLPK_real q, __CLPK_integer ldq, __CLPK_real vl, __CLPK_real vu, __CLPK_integer *il, __CLPK_integer
cannam@17	3555 iu, __CLPK_real abstol, __CLPK_integer m, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real
cannam@17	3556 work, __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer info);
cannam@17	3557
cannam@17	3558 /* Subroutine / int ssbtrd_(char vect, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	3559 __CLPK_real ab, __CLPK_integer ldab, __CLPK_real d__, __CLPK_real e, __CLPK_real q, __CLPK_integer ldq,
cannam@17	3560 __CLPK_real work, __CLPK_integer info);
cannam@17	3561
cannam@17	3562 /* Subroutine / int sspcon_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_integer *ipiv,
cannam@17	3563 __CLPK_real anorm, __CLPK_real rcond, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3564
cannam@17	3565 /* Subroutine / int sspev_(char jobz, char uplo, __CLPK_integer n, __CLPK_real *ap,
cannam@17	3566 __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer *info);
cannam@17	3567
cannam@17	3568 /* Subroutine / int sspevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_real *ap,
cannam@17	3569 __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer *lwork, __CLPK_integer
cannam@17	3570 iwork, __CLPK_integer liwork, __CLPK_integer *info);
cannam@17	3571
cannam@17	3572 /* Subroutine / int sspevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	3573 __CLPK_real ap, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol,
cannam@17	3574 __CLPK_integer m, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer
cannam@17	3575 iwork, __CLPK_integer ifail, __CLPK_integer info);
cannam@17	3576
cannam@17	3577 /* Subroutine / int sspgst_(__CLPK_integer itype, char uplo, __CLPK_integer n, __CLPK_real *ap,
cannam@17	3578 __CLPK_real bp, __CLPK_integer info);
cannam@17	3579
cannam@17	3580 /* Subroutine / int sspgv_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	3581 n, __CLPK_real ap, __CLPK_real bp, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work,
cannam@17	3582 __CLPK_integer *info);
cannam@17	3583
cannam@17	3584 /* Subroutine / int sspgvd_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	3585 n, __CLPK_real ap, __CLPK_real bp, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work,
cannam@17	3586 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3587
cannam@17	3588 /* Subroutine / int sspgvx_(__CLPK_integer itype, char jobz, char range, char *
cannam@17	3589 uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_real bp, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il,
cannam@17	3590 __CLPK_integer iu, __CLPK_real abstol, __CLPK_integer m, __CLPK_real w, __CLPK_real z__, __CLPK_integer
cannam@17	3591 ldz, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer info);
cannam@17	3592
cannam@17	3593 /* Subroutine / int ssprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *ap,
cannam@17	3594 __CLPK_real afp, __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer
cannam@17	3595 ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *
cannam@17	3596 info);
cannam@17	3597
cannam@17	3598 /* Subroutine / int sspsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *ap,
cannam@17	3599 __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	3600
cannam@17	3601 /* Subroutine / int sspsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	3602 nrhs, __CLPK_real ap, __CLPK_real afp, __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer *ldb, __CLPK_real
cannam@17	3603 x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr, __CLPK_real berr, __CLPK_real work,
cannam@17	3604 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3605
cannam@17	3606 /* Subroutine / int ssptrd_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_real *d__,
cannam@17	3607 __CLPK_real e, __CLPK_real tau, __CLPK_integer *info);
cannam@17	3608
cannam@17	3609 /* Subroutine / int ssptrf_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_integer *ipiv,
cannam@17	3610 __CLPK_integer *info);
cannam@17	3611
cannam@17	3612 /* Subroutine / int ssptri_(char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_integer *ipiv,
cannam@17	3613 __CLPK_real work, __CLPK_integer info);
cannam@17	3614
cannam@17	3615 /* Subroutine / int ssptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *ap,
cannam@17	3616 __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	3617
cannam@17	3618 /* Subroutine / int sstebz_(char range, char order, __CLPK_integer n, __CLPK_real *vl,
cannam@17	3619 __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol, __CLPK_real d__, __CLPK_real e,
cannam@17	3620 __CLPK_integer m, __CLPK_integer nsplit, __CLPK_real w, __CLPK_integer iblock, __CLPK_integer *
cannam@17	3621 isplit, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3622
cannam@17	3623 /* Subroutine / int sstedc_(char compz, __CLPK_integer n, __CLPK_real d__, __CLPK_real *e,
cannam@17	3624 __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *iwork,
cannam@17	3625 __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3626
cannam@17	3627 /* Subroutine / int sstegr_(char jobz, char range, __CLPK_integer n, __CLPK_real *d__,
cannam@17	3628 __CLPK_real e, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol,
cannam@17	3629 __CLPK_integer m, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_integer isuppz, __CLPK_real
cannam@17	3630 work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3631
cannam@17	3632 /* Subroutine / int sstein_(__CLPK_integer n, __CLPK_real d__, __CLPK_real e, __CLPK_integer *m, __CLPK_real
cannam@17	3633 w, __CLPK_integer iblock, __CLPK_integer isplit, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real
cannam@17	3634 work, __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer *info);
cannam@17	3635
cannam@17	3636 /* Subroutine / int ssteqr_(char compz, __CLPK_integer n, __CLPK_real d__, __CLPK_real *e,
cannam@17	3637 __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer info);
cannam@17	3638
cannam@17	3639 /* Subroutine / int ssterf_(__CLPK_integer n, __CLPK_real d__, __CLPK_real e, __CLPK_integer *info);
cannam@17	3640
cannam@17	3641 /* Subroutine / int sstev_(char jobz, __CLPK_integer n, __CLPK_real d__, __CLPK_real e, __CLPK_real
cannam@17	3642 z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer *info);
cannam@17	3643
cannam@17	3644 /* Subroutine / int sstevd_(char jobz, __CLPK_integer n, __CLPK_real d__, __CLPK_real *e, __CLPK_real
cannam@17	3645 z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *iwork,
cannam@17	3646 __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3647
cannam@17	3648 /* Subroutine / int sstevr_(char jobz, char range, __CLPK_integer n, __CLPK_real *d__,
cannam@17	3649 __CLPK_real e, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol,
cannam@17	3650 __CLPK_integer m, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_integer isuppz, __CLPK_real
cannam@17	3651 work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3652
cannam@17	3653 /* Subroutine / int sstevx_(char jobz, char range, __CLPK_integer n, __CLPK_real *d__,
cannam@17	3654 __CLPK_real e, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol,
cannam@17	3655 __CLPK_integer m, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer
cannam@17	3656 iwork, __CLPK_integer ifail, __CLPK_integer info);
cannam@17	3657
cannam@17	3658 /* Subroutine / int ssycon_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3659 __CLPK_integer ipiv, __CLPK_real anorm, __CLPK_real rcond, __CLPK_real work, __CLPK_integer *iwork,
cannam@17	3660 __CLPK_integer *info);
cannam@17	3661
cannam@17	3662 /* Subroutine / int ssyev_(char jobz, char uplo, __CLPK_integer n, __CLPK_real *a,
cannam@17	3663 __CLPK_integer lda, __CLPK_real w, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3664
cannam@17	3665 /* Subroutine / int ssyevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_real *a,
cannam@17	3666 __CLPK_integer lda, __CLPK_real w, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer *iwork,
cannam@17	3667 __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3668
cannam@17	3669 /* Subroutine / int ssyevr_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	3670 __CLPK_real a, __CLPK_integer lda, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu,
cannam@17	3671 __CLPK_real abstol, __CLPK_integer m, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_integer
cannam@17	3672 isuppz, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork,
cannam@17	3673 __CLPK_integer *info);
cannam@17	3674
cannam@17	3675 /* Subroutine / int ssyevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	3676 __CLPK_real a, __CLPK_integer lda, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu,
cannam@17	3677 __CLPK_real abstol, __CLPK_integer m, __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real
cannam@17	3678 work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer info);
cannam@17	3679
cannam@17	3680 /* Subroutine / int ssygs2_(__CLPK_integer itype, char uplo, __CLPK_integer n, __CLPK_real *a,
cannam@17	3681 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	3682
cannam@17	3683 /* Subroutine / int ssygst_(__CLPK_integer itype, char uplo, __CLPK_integer n, __CLPK_real *a,
cannam@17	3684 __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	3685
cannam@17	3686 /* Subroutine / int ssygv_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	3687 n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real w, __CLPK_real work,
cannam@17	3688 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3689
cannam@17	3690 /* Subroutine / int ssygvd_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	3691 n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real w, __CLPK_real work,
cannam@17	3692 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3693
cannam@17	3694 /* Subroutine / int ssygvx_(__CLPK_integer itype, char jobz, char range, char *
cannam@17	3695 uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real
cannam@17	3696 vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol, __CLPK_integer *m,
cannam@17	3697 __CLPK_real w, __CLPK_real z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer *lwork, __CLPK_integer
cannam@17	3698 iwork, __CLPK_integer ifail, __CLPK_integer *info);
cannam@17	3699
cannam@17	3700 /* Subroutine / int ssyrfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	3701 __CLPK_integer lda, __CLPK_real af, __CLPK_integer ldaf, __CLPK_integer ipiv, __CLPK_real *b,
cannam@17	3702 __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_real
cannam@17	3703 work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3704
cannam@17	3705 /* Subroutine / int ssysv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	3706 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_real *work,
cannam@17	3707 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3708
cannam@17	3709 /* Subroutine / int ssysvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	3710 nrhs, __CLPK_real a, __CLPK_integer lda, __CLPK_real af, __CLPK_integer ldaf, __CLPK_integer *ipiv,
cannam@17	3711 __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real rcond, __CLPK_real ferr,
cannam@17	3712 __CLPK_real berr, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer *
cannam@17	3713 info);
cannam@17	3714
cannam@17	3715 /* Subroutine / int ssytd2_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3716 __CLPK_real d__, __CLPK_real e, __CLPK_real tau, __CLPK_integer info);
cannam@17	3717
cannam@17	3718 /* Subroutine / int ssytf2_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3719 __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	3720
cannam@17	3721 /* Subroutine / int ssytrd_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3722 __CLPK_real d__, __CLPK_real e, __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer
cannam@17	3723 info);
cannam@17	3724
cannam@17	3725 /* Subroutine / int ssytrf_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3726 __CLPK_integer ipiv, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3727
cannam@17	3728 /* Subroutine / int ssytri_(char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3729 __CLPK_integer ipiv, __CLPK_real work, __CLPK_integer *info);
cannam@17	3730
cannam@17	3731 /* Subroutine / int ssytrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_real *a,
cannam@17	3732 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	3733
cannam@17	3734 /* Subroutine / int stbcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	3735 __CLPK_integer kd, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real rcond, __CLPK_real *work,
cannam@17	3736 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3737
cannam@17	3738 /* Subroutine / int stbrfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	3739 __CLPK_integer kd, __CLPK_integer nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real *b, __CLPK_integer
cannam@17	3740 ldb, __CLPK_real x, __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_real work,
cannam@17	3741 __CLPK_integer iwork, __CLPK_integer info);
cannam@17	3742
cannam@17	3743 /* Subroutine / int stbtrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	3744 __CLPK_integer kd, __CLPK_integer nrhs, __CLPK_real ab, __CLPK_integer ldab, __CLPK_real *b, __CLPK_integer
cannam@17	3745 ldb, __CLPK_integer info);
cannam@17	3746
cannam@17	3747 /* Subroutine / int stgevc_(char side, char howmny, __CLPK_logical select,
cannam@17	3748 __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real vl,
cannam@17	3749 __CLPK_integer ldvl, __CLPK_real vr, __CLPK_integer ldvr, __CLPK_integer mm, __CLPK_integer *m, __CLPK_real
cannam@17	3750 work, __CLPK_integer info);
cannam@17	3751
cannam@17	3752 /* Subroutine / int stgex2_(__CLPK_logical wantq, __CLPK_logical wantz, __CLPK_integer n, __CLPK_real
cannam@17	3753 a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real q, __CLPK_integer ldq, __CLPK_real *
cannam@17	3754 z__, __CLPK_integer ldz, __CLPK_integer j1, __CLPK_integer n1, __CLPK_integer n2, __CLPK_real *work,
cannam@17	3755 __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3756
cannam@17	3757 /* Subroutine / int stgexc_(__CLPK_logical wantq, __CLPK_logical wantz, __CLPK_integer n, __CLPK_real
cannam@17	3758 a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real q, __CLPK_integer ldq, __CLPK_real *
cannam@17	3759 z__, __CLPK_integer ldz, __CLPK_integer ifst, __CLPK_integer ilst, __CLPK_real work, __CLPK_integer *
cannam@17	3760 lwork, __CLPK_integer *info);
cannam@17	3761
cannam@17	3762 /* Subroutine / int stgsen_(__CLPK_integer ijob, __CLPK_logical wantq, __CLPK_logical wantz,
cannam@17	3763 __CLPK_logical select, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer
cannam@17	3764 ldb, __CLPK_real alphar, __CLPK_real alphai, __CLPK_real beta, __CLPK_real q, __CLPK_integer *ldq,
cannam@17	3765 __CLPK_real z__, __CLPK_integer ldz, __CLPK_integer m, __CLPK_real pl, __CLPK_real pr, __CLPK_real dif,
cannam@17	3766 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer *
cannam@17	3767 info);
cannam@17	3768
cannam@17	3769 /* Subroutine / int stgsja_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	3770 __CLPK_integer p, __CLPK_integer n, __CLPK_integer k, __CLPK_integer l, __CLPK_real a, __CLPK_integer lda,
cannam@17	3771 __CLPK_real b, __CLPK_integer ldb, __CLPK_real tola, __CLPK_real tolb, __CLPK_real alpha, __CLPK_real
cannam@17	3772 beta, __CLPK_real u, __CLPK_integer ldu, __CLPK_real v, __CLPK_integer ldv, __CLPK_real q, __CLPK_integer
cannam@17	3773 ldq, __CLPK_real work, __CLPK_integer ncycle, __CLPK_integer *info);
cannam@17	3774
cannam@17	3775 /* Subroutine / int stgsna_(char job, char howmny, __CLPK_logical select,
cannam@17	3776 __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real vl,
cannam@17	3777 __CLPK_integer ldvl, __CLPK_real vr, __CLPK_integer ldvr, __CLPK_real s, __CLPK_real dif, __CLPK_integer
cannam@17	3778 mm, __CLPK_integer m, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer *
cannam@17	3779 info);
cannam@17	3780
cannam@17	3781 /* Subroutine / int stgsy2_(char trans, __CLPK_integer ijob, __CLPK_integer m, __CLPK_integer *
cannam@17	3782 n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real c__, __CLPK_integer
cannam@17	3783 ldc, __CLPK_real d__, __CLPK_integer ldd, __CLPK_real e, __CLPK_integer lde, __CLPK_real *f, __CLPK_integer
cannam@17	3784 ldf, __CLPK_real scale, __CLPK_real rdsum, __CLPK_real rdscal, __CLPK_integer *iwork, __CLPK_integer
cannam@17	3785 pq, __CLPK_integer info);
cannam@17	3786
cannam@17	3787 /* Subroutine / int stgsyl_(char trans, __CLPK_integer ijob, __CLPK_integer m, __CLPK_integer *
cannam@17	3788 n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real c__, __CLPK_integer
cannam@17	3789 ldc, __CLPK_real d__, __CLPK_integer ldd, __CLPK_real e, __CLPK_integer lde, __CLPK_real *f, __CLPK_integer
cannam@17	3790 ldf, __CLPK_real scale, __CLPK_real dif, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer
cannam@17	3791 iwork, __CLPK_integer *info);
cannam@17	3792
cannam@17	3793 /* Subroutine / int stpcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	3794 __CLPK_real ap, __CLPK_real rcond, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3795
cannam@17	3796 /* Subroutine / int stprfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	3797 __CLPK_integer nrhs, __CLPK_real ap, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x, __CLPK_integer ldx,
cannam@17	3798 __CLPK_real ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3799
cannam@17	3800 /* Subroutine / int stptri_(char uplo, char diag, __CLPK_integer n, __CLPK_real *ap,
cannam@17	3801 __CLPK_integer *info);
cannam@17	3802
cannam@17	3803 /* Subroutine / int stptrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	3804 __CLPK_integer nrhs, __CLPK_real ap, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	3805
cannam@17	3806 /* Subroutine / int strcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	3807 __CLPK_real a, __CLPK_integer lda, __CLPK_real rcond, __CLPK_real work, __CLPK_integer *iwork,
cannam@17	3808 __CLPK_integer *info);
cannam@17	3809
cannam@17	3810 /* Subroutine / int strevc_(char side, char howmny, __CLPK_logical select,
cannam@17	3811 __CLPK_integer n, __CLPK_real t, __CLPK_integer ldt, __CLPK_real vl, __CLPK_integer ldvl, __CLPK_real vr,
cannam@17	3812 __CLPK_integer ldvr, __CLPK_integer mm, __CLPK_integer m, __CLPK_real work, __CLPK_integer *info);
cannam@17	3813
cannam@17	3814 /* Subroutine / int strexc_(char compq, __CLPK_integer n, __CLPK_real t, __CLPK_integer *ldt,
cannam@17	3815 __CLPK_real q, __CLPK_integer ldq, __CLPK_integer ifst, __CLPK_integer ilst, __CLPK_real *work,
cannam@17	3816 __CLPK_integer *info);
cannam@17	3817
cannam@17	3818 /* Subroutine / int strrfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	3819 __CLPK_integer nrhs, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real x,
cannam@17	3820 __CLPK_integer ldx, __CLPK_real ferr, __CLPK_real berr, __CLPK_real work, __CLPK_integer *iwork,
cannam@17	3821 __CLPK_integer *info);
cannam@17	3822
cannam@17	3823 /* Subroutine / int strsen_(char job, char compq, __CLPK_logical select, __CLPK_integer
cannam@17	3824 n, __CLPK_real t, __CLPK_integer ldt, __CLPK_real q, __CLPK_integer ldq, __CLPK_real wr, __CLPK_real *wi,
cannam@17	3825 __CLPK_integer m, __CLPK_real s, __CLPK_real sep, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer
cannam@17	3826 iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	3827
cannam@17	3828 /* Subroutine / int strsna_(char job, char howmny, __CLPK_logical select,
cannam@17	3829 __CLPK_integer n, __CLPK_real t, __CLPK_integer ldt, __CLPK_real vl, __CLPK_integer ldvl, __CLPK_real vr,
cannam@17	3830 __CLPK_integer ldvr, __CLPK_real s, __CLPK_real sep, __CLPK_integer mm, __CLPK_integer m, __CLPK_real
cannam@17	3831 work, __CLPK_integer ldwork, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	3832
cannam@17	3833 /* Subroutine / int strsyl_(char trana, char tranb, __CLPK_integer isgn, __CLPK_integer
cannam@17	3834 m, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_real *
cannam@17	3835 c__, __CLPK_integer ldc, __CLPK_real scale, __CLPK_integer *info);
cannam@17	3836
cannam@17	3837 /* Subroutine / int strti2_(char uplo, char diag, __CLPK_integer n, __CLPK_real *a,
cannam@17	3838 __CLPK_integer lda, __CLPK_integer info);
cannam@17	3839
cannam@17	3840 /* Subroutine / int strtri_(char uplo, char diag, __CLPK_integer n, __CLPK_real *a,
cannam@17	3841 __CLPK_integer lda, __CLPK_integer info);
cannam@17	3842
cannam@17	3843 /* Subroutine / int strtrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	3844 __CLPK_integer nrhs, __CLPK_real a, __CLPK_integer lda, __CLPK_real b, __CLPK_integer ldb, __CLPK_integer
cannam@17	3845 info);
cannam@17	3846
cannam@17	3847 /* Subroutine / int stzrqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3848 __CLPK_real tau, __CLPK_integer info);
cannam@17	3849
cannam@17	3850 /* Subroutine / int stzrzf_(__CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	3851 __CLPK_real tau, __CLPK_real work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3852
cannam@17	3853 /* Subroutine / int xerbla_(char srname, __CLPK_integer *info);
cannam@17	3854
cannam@17	3855 /* Subroutine / int zbdsqr_(char uplo, __CLPK_integer n, __CLPK_integer ncvt, __CLPK_integer *
cannam@17	3856 nru, __CLPK_integer ncc, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublecomplex vt,
cannam@17	3857 __CLPK_integer ldvt, __CLPK_doublecomplex u, __CLPK_integer ldu, __CLPK_doublecomplex c__,
cannam@17	3858 __CLPK_integer ldc, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	3859
cannam@17	3860 /* Subroutine / int zdrot_(__CLPK_integer n, __CLPK_doublecomplex cx, __CLPK_integer incx,
cannam@17	3861 __CLPK_doublecomplex cy, __CLPK_integer incy, __CLPK_doublereal c__, __CLPK_doublereal s);
cannam@17	3862
cannam@17	3863 /* Subroutine / int zdrscl_(__CLPK_integer n, __CLPK_doublereal sa, __CLPK_doublecomplex sx,
cannam@17	3864 __CLPK_integer *incx);
cannam@17	3865
cannam@17	3866 /* Subroutine / int zgbbrd_(char vect, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *ncc,
cannam@17	3867 __CLPK_integer kl, __CLPK_integer ku, __CLPK_doublecomplex ab, __CLPK_integer ldab,
cannam@17	3868 __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublecomplex q, __CLPK_integer ldq,
cannam@17	3869 __CLPK_doublecomplex pt, __CLPK_integer ldpt, __CLPK_doublecomplex c__, __CLPK_integer ldc,
cannam@17	3870 __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	3871
cannam@17	3872 /* Subroutine / int zgbcon_(char norm, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	3873 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_doublereal anorm,
cannam@17	3874 __CLPK_doublereal rcond, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	3875 info);
cannam@17	3876
cannam@17	3877 /* Subroutine / int zgbequ_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	3878 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal r__, __CLPK_doublereal c__,
cannam@17	3879 __CLPK_doublereal rowcnd, __CLPK_doublereal colcnd, __CLPK_doublereal amax, __CLPK_integer
cannam@17	3880 info);
cannam@17	3881
cannam@17	3882 /* Subroutine / int zgbrfs_(char trans, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *
cannam@17	3883 ku, __CLPK_integer nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublecomplex
cannam@17	3884 afb, __CLPK_integer ldafb, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	3885 __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	3886 __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	3887
cannam@17	3888 /* Subroutine / int zgbsv_(__CLPK_integer n, __CLPK_integer kl, __CLPK_integer ku, __CLPK_integer *
cannam@17	3889 nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_doublecomplex
cannam@17	3890 b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	3891
cannam@17	3892 /* Subroutine / int zgbsvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *kl,
cannam@17	3893 __CLPK_integer ku, __CLPK_integer nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab,
cannam@17	3894 __CLPK_doublecomplex afb, __CLPK_integer ldafb, __CLPK_integer ipiv, char equed,
cannam@17	3895 __CLPK_doublereal r__, __CLPK_doublereal c__, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	3896 __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal rcond, __CLPK_doublereal ferr,
cannam@17	3897 __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	3898 info);
cannam@17	3899
cannam@17	3900 /* Subroutine / int zgbtf2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	3901 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	3902
cannam@17	3903 /* Subroutine / int zgbtrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	3904 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	3905
cannam@17	3906 /* Subroutine / int zgbtrs_(char trans, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *
cannam@17	3907 ku, __CLPK_integer nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_integer ipiv,
cannam@17	3908 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	3909
cannam@17	3910 /* Subroutine / int zgebak_(char job, char side, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	3911 __CLPK_integer ihi, __CLPK_doublereal scale, __CLPK_integer m, __CLPK_doublecomplex v,
cannam@17	3912 __CLPK_integer ldv, __CLPK_integer info);
cannam@17	3913
cannam@17	3914 /* Subroutine / int zgebal_(char job, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer
cannam@17	3915 lda, __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublereal scale, __CLPK_integer *info);
cannam@17	3916
cannam@17	3917 /* Subroutine / int zgebd2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	3918 __CLPK_integer lda, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublecomplex tauq,
cannam@17	3919 __CLPK_doublecomplex taup, __CLPK_doublecomplex work, __CLPK_integer *info);
cannam@17	3920
cannam@17	3921 /* Subroutine / int zgebrd_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	3922 __CLPK_integer lda, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublecomplex tauq,
cannam@17	3923 __CLPK_doublecomplex taup, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer
cannam@17	3924 info);
cannam@17	3925
cannam@17	3926 /* Subroutine / int zgecon_(char norm, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	3927 __CLPK_integer lda, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublecomplex
cannam@17	3928 work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	3929
cannam@17	3930 /* Subroutine / int zgeequ_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	3931 __CLPK_integer lda, __CLPK_doublereal r__, __CLPK_doublereal c__, __CLPK_doublereal rowcnd,
cannam@17	3932 __CLPK_doublereal colcnd, __CLPK_doublereal amax, __CLPK_integer *info);
cannam@17	3933
cannam@17	3934 /* Subroutine / int zgees_(char jobvs, char sort, __CLPK_L_fp select, __CLPK_integer n,
cannam@17	3935 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer sdim, __CLPK_doublecomplex w,
cannam@17	3936 __CLPK_doublecomplex vs, __CLPK_integer ldvs, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	3937 __CLPK_doublereal rwork, __CLPK_logical bwork, __CLPK_integer *info);
cannam@17	3938
cannam@17	3939 /* Subroutine / int zgeesx_(char jobvs, char sort, __CLPK_L_fp select, char
cannam@17	3940 sense, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer sdim,
cannam@17	3941 __CLPK_doublecomplex w, __CLPK_doublecomplex vs, __CLPK_integer ldvs, __CLPK_doublereal
cannam@17	3942 rconde, __CLPK_doublereal rcondv, __CLPK_doublecomplex work, __CLPK_integer *lwork,
cannam@17	3943 __CLPK_doublereal rwork, __CLPK_logical bwork, __CLPK_integer *info);
cannam@17	3944
cannam@17	3945 /* Subroutine / int zgeev_(char jobvl, char jobvr, __CLPK_integer n,
cannam@17	3946 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex w, __CLPK_doublecomplex vl,
cannam@17	3947 __CLPK_integer ldvl, __CLPK_doublecomplex vr, __CLPK_integer ldvr, __CLPK_doublecomplex work,
cannam@17	3948 __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	3949
cannam@17	3950 /* Subroutine / int zgeevx_(char balanc, char jobvl, char jobvr, char *
cannam@17	3951 sense, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex w,
cannam@17	3952 __CLPK_doublecomplex vl, __CLPK_integer ldvl, __CLPK_doublecomplex vr, __CLPK_integer ldvr,
cannam@17	3953 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublereal scale, __CLPK_doublereal abnrm,
cannam@17	3954 __CLPK_doublereal rconde, __CLPK_doublereal rcondv, __CLPK_doublecomplex work, __CLPK_integer
cannam@17	3955 lwork, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	3956
cannam@17	3957 /* Subroutine / int zgegs_(char jobvsl, char jobvsr, __CLPK_integer n,
cannam@17	3958 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	3959 __CLPK_doublecomplex alpha, __CLPK_doublecomplex beta, __CLPK_doublecomplex *vsl,
cannam@17	3960 __CLPK_integer ldvsl, __CLPK_doublecomplex vsr, __CLPK_integer ldvsr, __CLPK_doublecomplex
cannam@17	3961 work, __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	3962
cannam@17	3963 /* Subroutine / int zgegv_(char jobvl, char jobvr, __CLPK_integer n,
cannam@17	3964 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	3965 __CLPK_doublecomplex alpha, __CLPK_doublecomplex beta, __CLPK_doublecomplex *vl, __CLPK_integer
cannam@17	3966 ldvl, __CLPK_doublecomplex vr, __CLPK_integer ldvr, __CLPK_doublecomplex work, __CLPK_integer
cannam@17	3967 lwork, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	3968
cannam@17	3969 /* Subroutine / int zgehd2_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi,
cannam@17	3970 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	3971 work, __CLPK_integer *info);
cannam@17	3972
cannam@17	3973 /* Subroutine / int zgehrd_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi,
cannam@17	3974 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	3975 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	3976
cannam@17	3977 /* Subroutine / int zgelq2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	3978 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	3979
cannam@17	3980 /* Subroutine / int zgelqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	3981 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	3982 __CLPK_integer *info);
cannam@17	3983
cannam@17	3984 /* Subroutine / int zgels_(char trans, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *
cannam@17	3985 nrhs, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	3986 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	3987
cannam@17	3988 /* Subroutine / int zgelsx_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	3989 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	3990 __CLPK_integer jpvt, __CLPK_doublereal rcond, __CLPK_integer rank, __CLPK_doublecomplex work,
cannam@17	3991 __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	3992
cannam@17	3993 /* Subroutine / int zgelsy_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	3994 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	3995 __CLPK_integer jpvt, __CLPK_doublereal rcond, __CLPK_integer rank, __CLPK_doublecomplex work,
cannam@17	3996 __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	3997
cannam@17	3998 /* Subroutine / int zgeql2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	3999 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	4000
cannam@17	4001 /* Subroutine / int zgeqlf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4002 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	4003 __CLPK_integer *info);
cannam@17	4004
cannam@17	4005 /* Subroutine / int zgeqp3_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4006 __CLPK_integer lda, __CLPK_integer jpvt, __CLPK_doublecomplex tau, __CLPK_doublecomplex work,
cannam@17	4007 __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	4008
cannam@17	4009 /* Subroutine / int zgeqpf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4010 __CLPK_integer lda, __CLPK_integer jpvt, __CLPK_doublecomplex tau, __CLPK_doublecomplex work,
cannam@17	4011 __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4012
cannam@17	4013 /* Subroutine / int zgeqr2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4014 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	4015
cannam@17	4016 /* Subroutine / int zgeqrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4017 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	4018 __CLPK_integer *info);
cannam@17	4019
cannam@17	4020 /* Subroutine / int zgerfs_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4021 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex af, __CLPK_integer ldaf,
cannam@17	4022 __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x,
cannam@17	4023 __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex work,
cannam@17	4024 __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4025
cannam@17	4026 /* Subroutine / int zgerq2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4027 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	4028
cannam@17	4029 /* Subroutine / int zgerqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4030 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	4031 __CLPK_integer *info);
cannam@17	4032
cannam@17	4033 /* Subroutine / int zgesc2_(__CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	4034 __CLPK_doublecomplex rhs, __CLPK_integer ipiv, __CLPK_integer jpiv, __CLPK_doublereal scale);
cannam@17	4035
cannam@17	4036 /* Subroutine / int zgesv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublecomplex a,
cannam@17	4037 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_integer *
cannam@17	4038 info);
cannam@17	4039
cannam@17	4040 /* Subroutine / int zgesvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *
cannam@17	4041 nrhs, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex af, __CLPK_integer
cannam@17	4042 ldaf, __CLPK_integer ipiv, char equed, __CLPK_doublereal r__, __CLPK_doublereal c__,
cannam@17	4043 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx,
cannam@17	4044 __CLPK_doublereal rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex
cannam@17	4045 work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4046
cannam@17	4047 /* Subroutine / int zgetc2_(__CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	4048 __CLPK_integer ipiv, __CLPK_integer jpiv, __CLPK_integer *info);
cannam@17	4049
cannam@17	4050 /* Subroutine / int zgetf2_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4051 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_integer *info);
cannam@17	4052
cannam@17	4053 /* Subroutine / int zgetrf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4054 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_integer *info);
cannam@17	4055
cannam@17	4056 /* Subroutine / int zgetri_(__CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	4057 __CLPK_integer ipiv, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	4058
cannam@17	4059 /* Subroutine / int zgetrs_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4060 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex b,
cannam@17	4061 __CLPK_integer ldb, __CLPK_integer info);
cannam@17	4062
cannam@17	4063 /* Subroutine / int zggbak_(char job, char side, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	4064 __CLPK_integer ihi, __CLPK_doublereal lscale, __CLPK_doublereal rscale, __CLPK_integer m,
cannam@17	4065 __CLPK_doublecomplex v, __CLPK_integer ldv, __CLPK_integer *info);
cannam@17	4066
cannam@17	4067 /* Subroutine / int zggbal_(char job, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer
cannam@17	4068 lda, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_integer ilo, __CLPK_integer *ihi,
cannam@17	4069 __CLPK_doublereal lscale, __CLPK_doublereal rscale, __CLPK_doublereal work, __CLPK_integer
cannam@17	4070 info);
cannam@17	4071
cannam@17	4072 /* Subroutine / int zgges_(char jobvsl, char jobvsr, char sort, __CLPK_L_fp
cannam@17	4073 delctg, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b,
cannam@17	4074 __CLPK_integer ldb, __CLPK_integer sdim, __CLPK_doublecomplex alpha, __CLPK_doublecomplex
cannam@17	4075 beta, __CLPK_doublecomplex vsl, __CLPK_integer ldvsl, __CLPK_doublecomplex *vsr, __CLPK_integer
cannam@17	4076 ldvsr, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal rwork,
cannam@17	4077 __CLPK_logical bwork, __CLPK_integer info);
cannam@17	4078
cannam@17	4079 /* Subroutine / int zggesx_(char jobvsl, char jobvsr, char sort, __CLPK_L_fp
cannam@17	4080 delctg, char sense, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	4081 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_integer sdim, __CLPK_doublecomplex alpha,
cannam@17	4082 __CLPK_doublecomplex beta, __CLPK_doublecomplex vsl, __CLPK_integer *ldvsl,
cannam@17	4083 __CLPK_doublecomplex vsr, __CLPK_integer ldvsr, __CLPK_doublereal rconde, __CLPK_doublereal
cannam@17	4084 rcondv, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal *rwork,
cannam@17	4085 __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_logical bwork, __CLPK_integer info);
cannam@17	4086
cannam@17	4087 /* Subroutine / int zggev_(char jobvl, char jobvr, __CLPK_integer n,
cannam@17	4088 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4089 __CLPK_doublecomplex alpha, __CLPK_doublecomplex beta, __CLPK_doublecomplex *vl, __CLPK_integer
cannam@17	4090 ldvl, __CLPK_doublecomplex vr, __CLPK_integer ldvr, __CLPK_doublecomplex work, __CLPK_integer
cannam@17	4091 lwork, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	4092
cannam@17	4093 /* Subroutine / int zggevx_(char balanc, char jobvl, char jobvr, char *
cannam@17	4094 sense, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b,
cannam@17	4095 __CLPK_integer ldb, __CLPK_doublecomplex alpha, __CLPK_doublecomplex *beta,
cannam@17	4096 __CLPK_doublecomplex vl, __CLPK_integer ldvl, __CLPK_doublecomplex vr, __CLPK_integer ldvr,
cannam@17	4097 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublereal lscale, __CLPK_doublereal rscale,
cannam@17	4098 __CLPK_doublereal abnrm, __CLPK_doublereal bbnrm, __CLPK_doublereal rconde, __CLPK_doublereal
cannam@17	4099 rcondv, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal *rwork,
cannam@17	4100 __CLPK_integer iwork, __CLPK_logical bwork, __CLPK_integer *info);
cannam@17	4101
cannam@17	4102 /* Subroutine / int zggglm_(__CLPK_integer n, __CLPK_integer m, __CLPK_integer p,
cannam@17	4103 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4104 __CLPK_doublecomplex d__, __CLPK_doublecomplex x, __CLPK_doublecomplex *y, __CLPK_doublecomplex
cannam@17	4105 work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	4106
cannam@17	4107 /* Subroutine / int zgghrd_(char compq, char compz, __CLPK_integer n, __CLPK_integer *
cannam@17	4108 ilo, __CLPK_integer ihi, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b,
cannam@17	4109 __CLPK_integer ldb, __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublecomplex z__,
cannam@17	4110 __CLPK_integer ldz, __CLPK_integer info);
cannam@17	4111
cannam@17	4112 /* Subroutine / int zgglse_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer p,
cannam@17	4113 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4114 __CLPK_doublecomplex c__, __CLPK_doublecomplex d__, __CLPK_doublecomplex *x,
cannam@17	4115 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	4116
cannam@17	4117 /* Subroutine / int zggqrf_(__CLPK_integer n, __CLPK_integer m, __CLPK_integer p,
cannam@17	4118 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex taua, __CLPK_doublecomplex b,
cannam@17	4119 __CLPK_integer ldb, __CLPK_doublecomplex taub, __CLPK_doublecomplex work, __CLPK_integer
cannam@17	4120 lwork, __CLPK_integer *info);
cannam@17	4121
cannam@17	4122 /* Subroutine / int zggrqf_(__CLPK_integer m, __CLPK_integer p, __CLPK_integer n,
cannam@17	4123 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex taua, __CLPK_doublecomplex b,
cannam@17	4124 __CLPK_integer ldb, __CLPK_doublecomplex taub, __CLPK_doublecomplex work, __CLPK_integer
cannam@17	4125 lwork, __CLPK_integer *info);
cannam@17	4126
cannam@17	4127 /* Subroutine / int zggsvd_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	4128 __CLPK_integer n, __CLPK_integer p, __CLPK_integer k, __CLPK_integer l, __CLPK_doublecomplex *a,
cannam@17	4129 __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublereal alpha,
cannam@17	4130 __CLPK_doublereal beta, __CLPK_doublecomplex u, __CLPK_integer ldu, __CLPK_doublecomplex v,
cannam@17	4131 __CLPK_integer ldv, __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublecomplex work,
cannam@17	4132 __CLPK_doublereal rwork, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	4133
cannam@17	4134 /* Subroutine / int zggsvp_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	4135 __CLPK_integer p, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex
cannam@17	4136 b, __CLPK_integer ldb, __CLPK_doublereal tola, __CLPK_doublereal tolb, __CLPK_integer *k,
cannam@17	4137 __CLPK_integer l, __CLPK_doublecomplex u, __CLPK_integer ldu, __CLPK_doublecomplex v, __CLPK_integer
cannam@17	4138 ldv, __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_integer iwork, __CLPK_doublereal *
cannam@17	4139 rwork, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer *info);
cannam@17	4140
cannam@17	4141 /* Subroutine / int zgtcon_(char norm, __CLPK_integer n, __CLPK_doublecomplex dl,
cannam@17	4142 __CLPK_doublecomplex d__, __CLPK_doublecomplex du, __CLPK_doublecomplex du2, __CLPK_integer
cannam@17	4143 ipiv, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublecomplex *work,
cannam@17	4144 __CLPK_integer *info);
cannam@17	4145
cannam@17	4146 /* Subroutine / int zgtrfs_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4147 __CLPK_doublecomplex dl, __CLPK_doublecomplex d__, __CLPK_doublecomplex *du,
cannam@17	4148 __CLPK_doublecomplex dlf, __CLPK_doublecomplex df, __CLPK_doublecomplex *duf,
cannam@17	4149 __CLPK_doublecomplex du2, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4150 __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	4151 __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	4152
cannam@17	4153 /* Subroutine / int zgtsv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublecomplex dl,
cannam@17	4154 __CLPK_doublecomplex d__, __CLPK_doublecomplex du, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4155 __CLPK_integer *info);
cannam@17	4156
cannam@17	4157 /* Subroutine / int zgtsvx_(char fact, char trans, __CLPK_integer n, __CLPK_integer *
cannam@17	4158 nrhs, __CLPK_doublecomplex dl, __CLPK_doublecomplex d__, __CLPK_doublecomplex *du,
cannam@17	4159 __CLPK_doublecomplex dlf, __CLPK_doublecomplex df, __CLPK_doublecomplex *duf,
cannam@17	4160 __CLPK_doublecomplex du2, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4161 __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal rcond, __CLPK_doublereal ferr,
cannam@17	4162 __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	4163 info);
cannam@17	4164
cannam@17	4165 /* Subroutine / int zgttrf_(__CLPK_integer n, __CLPK_doublecomplex dl, __CLPK_doublecomplex
cannam@17	4166 d__, __CLPK_doublecomplex du, __CLPK_doublecomplex du2, __CLPK_integer ipiv, __CLPK_integer
cannam@17	4167 info);
cannam@17	4168
cannam@17	4169 /* Subroutine / int zgttrs_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4170 __CLPK_doublecomplex dl, __CLPK_doublecomplex d__, __CLPK_doublecomplex *du,
cannam@17	4171 __CLPK_doublecomplex du2, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4172 __CLPK_integer *info);
cannam@17	4173
cannam@17	4174 /* Subroutine / int zgtts2_(__CLPK_integer itrans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4175 __CLPK_doublecomplex dl, __CLPK_doublecomplex d__, __CLPK_doublecomplex *du,
cannam@17	4176 __CLPK_doublecomplex du2, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb);
cannam@17	4177
cannam@17	4178 /* Subroutine / int zhbev_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	4179 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal w, __CLPK_doublecomplex z__,
cannam@17	4180 __CLPK_integer ldz, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4181
cannam@17	4182 /* Subroutine / int zhbevd_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	4183 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal w, __CLPK_doublecomplex z__,
cannam@17	4184 __CLPK_integer ldz, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal rwork,
cannam@17	4185 __CLPK_integer lrwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	4186
cannam@17	4187 /* Subroutine / int zhbevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	4188 __CLPK_integer kd, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublecomplex q,
cannam@17	4189 __CLPK_integer ldq, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer *
cannam@17	4190 iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w, __CLPK_doublecomplex z__,
cannam@17	4191 __CLPK_integer ldz, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer iwork,
cannam@17	4192 __CLPK_integer ifail, __CLPK_integer info);
cannam@17	4193
cannam@17	4194 /* Subroutine / int zhbgst_(char vect, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	4195 __CLPK_integer kb, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublecomplex bb,
cannam@17	4196 __CLPK_integer ldbb, __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublecomplex work,
cannam@17	4197 __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4198
cannam@17	4199 /* Subroutine / int zhbgv_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	4200 __CLPK_integer kb, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublecomplex bb,
cannam@17	4201 __CLPK_integer ldbb, __CLPK_doublereal w, __CLPK_doublecomplex z__, __CLPK_integer ldz,
cannam@17	4202 __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	4203
cannam@17	4204 /* Subroutine / int zhbgvx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	4205 __CLPK_integer ka, __CLPK_integer kb, __CLPK_doublecomplex ab, __CLPK_integer ldab,
cannam@17	4206 __CLPK_doublecomplex bb, __CLPK_integer ldbb, __CLPK_doublecomplex q, __CLPK_integer ldq,
cannam@17	4207 __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_doublereal *
cannam@17	4208 abstol, __CLPK_integer m, __CLPK_doublereal w, __CLPK_doublecomplex z__, __CLPK_integer ldz,
cannam@17	4209 __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer iwork, __CLPK_integer
cannam@17	4210 ifail, __CLPK_integer *info);
cannam@17	4211
cannam@17	4212 /* Subroutine / int zhbtrd_(char vect, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	4213 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	4214 __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	4215
cannam@17	4216 /* Subroutine / int zhecon_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4217 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublereal anorm, __CLPK_doublereal rcond,
cannam@17	4218 __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	4219
cannam@17	4220 /* Subroutine / int zheev_(char jobz, char uplo, __CLPK_integer n, __CLPK_doublecomplex
cannam@17	4221 a, __CLPK_integer lda, __CLPK_doublereal w, __CLPK_doublecomplex work, __CLPK_integer *lwork,
cannam@17	4222 __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4223
cannam@17	4224 /* Subroutine / int zheevd_(char jobz, char uplo, __CLPK_integer n,
cannam@17	4225 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublereal w, __CLPK_doublecomplex work,
cannam@17	4226 __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer lrwork, __CLPK_integer iwork,
cannam@17	4227 __CLPK_integer liwork, __CLPK_integer info);
cannam@17	4228
cannam@17	4229 /* Subroutine / int zheevr_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	4230 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublereal vl, __CLPK_doublereal vu,
cannam@17	4231 __CLPK_integer il, __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal *
cannam@17	4232 w, __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_integer isuppz, __CLPK_doublecomplex
cannam@17	4233 work, __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer lrwork, __CLPK_integer
cannam@17	4234 iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	4235
cannam@17	4236 /* Subroutine / int zheevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	4237 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublereal vl, __CLPK_doublereal vu,
cannam@17	4238 __CLPK_integer il, __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal *
cannam@17	4239 w, __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_doublecomplex work, __CLPK_integer
cannam@17	4240 lwork, __CLPK_doublereal rwork, __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer
cannam@17	4241 info);
cannam@17	4242
cannam@17	4243 /* Subroutine / int zhegs2_(__CLPK_integer itype, char uplo, __CLPK_integer n,
cannam@17	4244 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4245 __CLPK_integer *info);
cannam@17	4246
cannam@17	4247 /* Subroutine / int zhegst_(__CLPK_integer itype, char uplo, __CLPK_integer n,
cannam@17	4248 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4249 __CLPK_integer *info);
cannam@17	4250
cannam@17	4251 /* Subroutine / int zhegv_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	4252 n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4253 __CLPK_doublereal w, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal rwork,
cannam@17	4254 __CLPK_integer *info);
cannam@17	4255
cannam@17	4256 /* Subroutine / int zhegvd_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	4257 n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4258 __CLPK_doublereal w, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal rwork,
cannam@17	4259 __CLPK_integer lrwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	4260
cannam@17	4261 /* Subroutine / int zhegvx_(__CLPK_integer itype, char jobz, char range, char *
cannam@17	4262 uplo, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b,
cannam@17	4263 __CLPK_integer ldb, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer *
cannam@17	4264 iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w, __CLPK_doublecomplex z__,
cannam@17	4265 __CLPK_integer ldz, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal rwork,
cannam@17	4266 __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer *info);
cannam@17	4267
cannam@17	4268 /* Subroutine / int zherfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4269 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex af, __CLPK_integer ldaf,
cannam@17	4270 __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x,
cannam@17	4271 __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex work,
cannam@17	4272 __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4273
cannam@17	4274 /* Subroutine / int zhesv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4275 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex b,
cannam@17	4276 __CLPK_integer ldb, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	4277
cannam@17	4278 /* Subroutine / int zhesvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	4279 nrhs, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex af, __CLPK_integer
cannam@17	4280 ldaf, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x,
cannam@17	4281 __CLPK_integer ldx, __CLPK_doublereal rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	4282 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4283
cannam@17	4284 /* Subroutine / int zhetf2_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4285 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_integer *info);
cannam@17	4286
cannam@17	4287 /* Subroutine / int zhetrd_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4288 __CLPK_integer lda, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublecomplex tau,
cannam@17	4289 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	4290
cannam@17	4291 /* Subroutine / int zhetrf_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4292 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	4293 __CLPK_integer *info);
cannam@17	4294
cannam@17	4295 /* Subroutine / int zhetri_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4296 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	4297
cannam@17	4298 /* Subroutine / int zhetrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4299 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex b,
cannam@17	4300 __CLPK_integer ldb, __CLPK_integer info);
cannam@17	4301
cannam@17	4302 /* Subroutine / int zhgeqz_(char job, char compq, char compz, __CLPK_integer *n,
cannam@17	4303 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	4304 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex alpha, __CLPK_doublecomplex
cannam@17	4305 beta, __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublecomplex z__, __CLPK_integer
cannam@17	4306 ldz, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	4307 info);
cannam@17	4308
cannam@17	4309 /* Subroutine / int zhpcon_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4310 __CLPK_integer ipiv, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublecomplex
cannam@17	4311 work, __CLPK_integer *info);
cannam@17	4312
cannam@17	4313 /* Subroutine / int zhpev_(char jobz, char uplo, __CLPK_integer n, __CLPK_doublecomplex
cannam@17	4314 ap, __CLPK_doublereal w, __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_doublecomplex *
cannam@17	4315 work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4316
cannam@17	4317 /* Subroutine / int zhpevd_(char jobz, char uplo, __CLPK_integer n,
cannam@17	4318 __CLPK_doublecomplex ap, __CLPK_doublereal w, __CLPK_doublecomplex z__, __CLPK_integer ldz,
cannam@17	4319 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	4320 lrwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer *info);
cannam@17	4321
cannam@17	4322 /* Subroutine / int zhpevx_(char jobz, char range, char uplo, __CLPK_integer *n,
cannam@17	4323 __CLPK_doublecomplex ap, __CLPK_doublereal vl, __CLPK_doublereal vu, __CLPK_integer il,
cannam@17	4324 __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal w,
cannam@17	4325 __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_doublecomplex work, __CLPK_doublereal
cannam@17	4326 rwork, __CLPK_integer iwork, __CLPK_integer ifail, __CLPK_integer *info);
cannam@17	4327
cannam@17	4328 /* Subroutine / int zhpgst_(__CLPK_integer itype, char uplo, __CLPK_integer n,
cannam@17	4329 __CLPK_doublecomplex ap, __CLPK_doublecomplex bp, __CLPK_integer *info);
cannam@17	4330
cannam@17	4331 /* Subroutine / int zhpgv_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	4332 n, __CLPK_doublecomplex ap, __CLPK_doublecomplex bp, __CLPK_doublereal *w, __CLPK_doublecomplex
cannam@17	4333 z__, __CLPK_integer ldz, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer *
cannam@17	4334 info);
cannam@17	4335
cannam@17	4336 /* Subroutine / int zhpgvd_(__CLPK_integer itype, char jobz, char uplo, __CLPK_integer *
cannam@17	4337 n, __CLPK_doublecomplex ap, __CLPK_doublecomplex bp, __CLPK_doublereal *w, __CLPK_doublecomplex
cannam@17	4338 z__, __CLPK_integer ldz, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal *
cannam@17	4339 rwork, __CLPK_integer lrwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer
cannam@17	4340 info);
cannam@17	4341
cannam@17	4342 /* Subroutine / int zhpgvx_(__CLPK_integer itype, char jobz, char range, char *
cannam@17	4343 uplo, __CLPK_integer n, __CLPK_doublecomplex ap, __CLPK_doublecomplex bp, __CLPK_doublereal
cannam@17	4344 vl, __CLPK_doublereal vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_doublereal abstol,
cannam@17	4345 __CLPK_integer m, __CLPK_doublereal w, __CLPK_doublecomplex z__, __CLPK_integer ldz,
cannam@17	4346 __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer iwork, __CLPK_integer
cannam@17	4347 ifail, __CLPK_integer *info);
cannam@17	4348
cannam@17	4349 /* Subroutine / int zhprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4350 __CLPK_doublecomplex ap, __CLPK_doublecomplex afp, __CLPK_integer ipiv, __CLPK_doublecomplex
cannam@17	4351 b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal ferr,
cannam@17	4352 __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	4353 info);
cannam@17	4354
cannam@17	4355 /* Subroutine / int zhpsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4356 __CLPK_doublecomplex ap, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4357 __CLPK_integer *info);
cannam@17	4358
cannam@17	4359 /* Subroutine / int zhpsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	4360 nrhs, __CLPK_doublecomplex ap, __CLPK_doublecomplex afp, __CLPK_integer *ipiv,
cannam@17	4361 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx,
cannam@17	4362 __CLPK_doublereal rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex
cannam@17	4363 work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4364
cannam@17	4365 /* Subroutine / int zhptrd_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4366 __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublecomplex tau, __CLPK_integer info);
cannam@17	4367
cannam@17	4368 /* Subroutine / int zhptrf_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4369 __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	4370
cannam@17	4371 /* Subroutine / int zhptri_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4372 __CLPK_integer ipiv, __CLPK_doublecomplex work, __CLPK_integer *info);
cannam@17	4373
cannam@17	4374 /* Subroutine / int zhptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4375 __CLPK_doublecomplex ap, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4376 __CLPK_integer *info);
cannam@17	4377
cannam@17	4378 /* Subroutine / int zhsein_(char side, char eigsrc, char initv, __CLPK_logical *
cannam@17	4379 select, __CLPK_integer n, __CLPK_doublecomplex h__, __CLPK_integer ldh, __CLPK_doublecomplex
cannam@17	4380 w, __CLPK_doublecomplex vl, __CLPK_integer ldvl, __CLPK_doublecomplex vr, __CLPK_integer ldvr,
cannam@17	4381 __CLPK_integer mm, __CLPK_integer m, __CLPK_doublecomplex work, __CLPK_doublereal rwork,
cannam@17	4382 __CLPK_integer ifaill, __CLPK_integer ifailr, __CLPK_integer *info);
cannam@17	4383
cannam@17	4384 /* Subroutine / int zhseqr_(char job, char compz, __CLPK_integer n, __CLPK_integer *ilo,
cannam@17	4385 __CLPK_integer ihi, __CLPK_doublecomplex h__, __CLPK_integer ldh, __CLPK_doublecomplex w,
cannam@17	4386 __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	4387 __CLPK_integer *info);
cannam@17	4388
cannam@17	4389 /* Subroutine / int zlabrd_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nb,
cannam@17	4390 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	4391 __CLPK_doublecomplex tauq, __CLPK_doublecomplex taup, __CLPK_doublecomplex x, __CLPK_integer
cannam@17	4392 ldx, __CLPK_doublecomplex y, __CLPK_integer ldy);
cannam@17	4393
cannam@17	4394 /* Subroutine / int zlacgv_(__CLPK_integer n, __CLPK_doublecomplex x, __CLPK_integer incx);
cannam@17	4395
cannam@17	4396 /* Subroutine / int zlacon_(__CLPK_integer n, __CLPK_doublecomplex v, __CLPK_doublecomplex x,
cannam@17	4397 __CLPK_doublereal est, __CLPK_integer kase);
cannam@17	4398
cannam@17	4399 /* Subroutine / int zlacp2_(char uplo, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal *
cannam@17	4400 a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer *ldb);
cannam@17	4401
cannam@17	4402 /* Subroutine / int zlacpy_(char uplo, __CLPK_integer m, __CLPK_integer n,
cannam@17	4403 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb);
cannam@17	4404
cannam@17	4405 /* Subroutine / int zlacrm_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4406 __CLPK_integer lda, __CLPK_doublereal b, __CLPK_integer ldb, __CLPK_doublecomplex c__,
cannam@17	4407 __CLPK_integer ldc, __CLPK_doublereal rwork);
cannam@17	4408
cannam@17	4409 /* Subroutine / int zlacrt_(__CLPK_integer n, __CLPK_doublecomplex cx, __CLPK_integer incx,
cannam@17	4410 __CLPK_doublecomplex cy, __CLPK_integer incy, __CLPK_doublecomplex c__, __CLPK_doublecomplex
cannam@17	4411 s);
cannam@17	4412
cannam@17	4413 /* Subroutine / int zlaed0_(__CLPK_integer qsiz, __CLPK_integer n, __CLPK_doublereal d__,
cannam@17	4414 __CLPK_doublereal e, __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublecomplex qstore,
cannam@17	4415 __CLPK_integer ldqs, __CLPK_doublereal rwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	4416
cannam@17	4417 /* Subroutine / int zlaed7_(__CLPK_integer n, __CLPK_integer cutpnt, __CLPK_integer qsiz,
cannam@17	4418 __CLPK_integer tlvls, __CLPK_integer curlvl, __CLPK_integer curpbm, __CLPK_doublereal d__,
cannam@17	4419 __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublereal rho, __CLPK_integer indxq,
cannam@17	4420 __CLPK_doublereal qstore, __CLPK_integer qptr, __CLPK_integer prmptr, __CLPK_integer perm,
cannam@17	4421 __CLPK_integer givptr, __CLPK_integer givcol, __CLPK_doublereal givnum, __CLPK_doublecomplex
cannam@17	4422 work, __CLPK_doublereal rwork, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	4423
cannam@17	4424 /* Subroutine / int zlaed8_(__CLPK_integer k, __CLPK_integer n, __CLPK_integer qsiz,
cannam@17	4425 __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublereal d__, __CLPK_doublereal rho,
cannam@17	4426 __CLPK_integer cutpnt, __CLPK_doublereal z__, __CLPK_doublereal dlamda, __CLPK_doublecomplex
cannam@17	4427 q2, __CLPK_integer ldq2, __CLPK_doublereal w, __CLPK_integer indxp, __CLPK_integer indx,
cannam@17	4428 __CLPK_integer indxq, __CLPK_integer perm, __CLPK_integer givptr, __CLPK_integer givcol,
cannam@17	4429 __CLPK_doublereal givnum, __CLPK_integer info);
cannam@17	4430
cannam@17	4431 /* Subroutine / int zlaein_(__CLPK_logical rightv, __CLPK_logical noinit, __CLPK_integer n,
cannam@17	4432 __CLPK_doublecomplex h__, __CLPK_integer ldh, __CLPK_doublecomplex w, __CLPK_doublecomplex v,
cannam@17	4433 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublereal rwork, __CLPK_doublereal eps3,
cannam@17	4434 __CLPK_doublereal smlnum, __CLPK_integer info);
cannam@17	4435
cannam@17	4436 /* Subroutine / int zlaesy_(__CLPK_doublecomplex a, __CLPK_doublecomplex *b,
cannam@17	4437 __CLPK_doublecomplex c__, __CLPK_doublecomplex rt1, __CLPK_doublecomplex *rt2,
cannam@17	4438 __CLPK_doublecomplex evscal, __CLPK_doublecomplex cs1, __CLPK_doublecomplex *sn1);
cannam@17	4439
cannam@17	4440 /* Subroutine / int zlaev2_(__CLPK_doublecomplex a, __CLPK_doublecomplex *b,
cannam@17	4441 __CLPK_doublecomplex c__, __CLPK_doublereal rt1, __CLPK_doublereal rt2, __CLPK_doublereal cs1,
cannam@17	4442 __CLPK_doublecomplex *sn1);
cannam@17	4443
cannam@17	4444 /* Subroutine / int zlags2_(__CLPK_logical upper, __CLPK_doublereal a1, __CLPK_doublecomplex
cannam@17	4445 a2, __CLPK_doublereal a3, __CLPK_doublereal b1, __CLPK_doublecomplex b2, __CLPK_doublereal b3,
cannam@17	4446 __CLPK_doublereal csu, __CLPK_doublecomplex snu, __CLPK_doublereal csv, __CLPK_doublecomplex
cannam@17	4447 snv, __CLPK_doublereal csq, __CLPK_doublecomplex snq);
cannam@17	4448
cannam@17	4449 /* Subroutine / int zlagtm_(char trans, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4450 __CLPK_doublereal alpha, __CLPK_doublecomplex dl, __CLPK_doublecomplex *d__,
cannam@17	4451 __CLPK_doublecomplex du, __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal beta,
cannam@17	4452 __CLPK_doublecomplex b, __CLPK_integer ldb);
cannam@17	4453
cannam@17	4454 /* Subroutine / int zlahef_(char uplo, __CLPK_integer n, __CLPK_integer nb, __CLPK_integer *kb,
cannam@17	4455 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex w,
cannam@17	4456 __CLPK_integer ldw, __CLPK_integer info);
cannam@17	4457
cannam@17	4458 /* Subroutine / int zlahqr_(__CLPK_logical wantt, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	4459 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublecomplex h__, __CLPK_integer ldh,
cannam@17	4460 __CLPK_doublecomplex w, __CLPK_integer iloz, __CLPK_integer ihiz, __CLPK_doublecomplex z__,
cannam@17	4461 __CLPK_integer ldz, __CLPK_integer info);
cannam@17	4462
cannam@17	4463 /* Subroutine / int zlahrd_(__CLPK_integer n, __CLPK_integer k, __CLPK_integer nb,
cannam@17	4464 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex t,
cannam@17	4465 __CLPK_integer ldt, __CLPK_doublecomplex y, __CLPK_integer *ldy);
cannam@17	4466
cannam@17	4467 /* Subroutine / int zlaic1_(__CLPK_integer job, __CLPK_integer j, __CLPK_doublecomplex x,
cannam@17	4468 __CLPK_doublereal sest, __CLPK_doublecomplex w, __CLPK_doublecomplex gamma, __CLPK_doublereal
cannam@17	4469 sestpr, __CLPK_doublecomplex s, __CLPK_doublecomplex c__);
cannam@17	4470
cannam@17	4471 /* Subroutine / int zlals0_(__CLPK_integer icompq, __CLPK_integer nl, __CLPK_integer nr,
cannam@17	4472 __CLPK_integer sqre, __CLPK_integer nrhs, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4473 __CLPK_doublecomplex bx, __CLPK_integer ldbx, __CLPK_integer perm, __CLPK_integer givptr,
cannam@17	4474 __CLPK_integer givcol, __CLPK_integer ldgcol, __CLPK_doublereal givnum, __CLPK_integer ldgnum,
cannam@17	4475 __CLPK_doublereal poles, __CLPK_doublereal difl, __CLPK_doublereal difr, __CLPK_doublereal
cannam@17	4476 z__, __CLPK_integer k, __CLPK_doublereal c__, __CLPK_doublereal s, __CLPK_doublereal rwork,
cannam@17	4477 __CLPK_integer *info);
cannam@17	4478
cannam@17	4479 /* Subroutine / int zlalsa_(__CLPK_integer icompq, __CLPK_integer smlsiz, __CLPK_integer n,
cannam@17	4480 __CLPK_integer nrhs, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex bx,
cannam@17	4481 __CLPK_integer ldbx, __CLPK_doublereal u, __CLPK_integer ldu, __CLPK_doublereal vt, __CLPK_integer *
cannam@17	4482 k, __CLPK_doublereal difl, __CLPK_doublereal difr, __CLPK_doublereal z__, __CLPK_doublereal
cannam@17	4483 poles, __CLPK_integer givptr, __CLPK_integer givcol, __CLPK_integer ldgcol, __CLPK_integer
cannam@17	4484 perm, __CLPK_doublereal givnum, __CLPK_doublereal c__, __CLPK_doublereal s, __CLPK_doublereal
cannam@17	4485 rwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	4486
cannam@17	4487 /* Subroutine / int zlapll_(__CLPK_integer n, __CLPK_doublecomplex x, __CLPK_integer incx,
cannam@17	4488 __CLPK_doublecomplex y, __CLPK_integer incy, __CLPK_doublereal *ssmin);
cannam@17	4489
cannam@17	4490 /* Subroutine / int zlapmt_(__CLPK_logical forwrd, __CLPK_integer m, __CLPK_integer n,
cannam@17	4491 __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_integer *k);
cannam@17	4492
cannam@17	4493 /* Subroutine / int zlaqgb_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer *ku,
cannam@17	4494 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal r__, __CLPK_doublereal c__,
cannam@17	4495 __CLPK_doublereal rowcnd, __CLPK_doublereal colcnd, __CLPK_doublereal amax, char equed);
cannam@17	4496
cannam@17	4497 /* Subroutine / int zlaqge_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4498 __CLPK_integer lda, __CLPK_doublereal r__, __CLPK_doublereal c__, __CLPK_doublereal rowcnd,
cannam@17	4499 __CLPK_doublereal colcnd, __CLPK_doublereal amax, char *equed);
cannam@17	4500
cannam@17	4501 /* Subroutine / int zlaqhb_(char uplo, __CLPK_integer n, __CLPK_integer kd,
cannam@17	4502 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal s, __CLPK_doublereal scond,
cannam@17	4503 __CLPK_doublereal amax, char equed);
cannam@17	4504
cannam@17	4505 /* Subroutine / int zlaqhe_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4506 __CLPK_integer lda, __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax,
cannam@17	4507 char *equed);
cannam@17	4508
cannam@17	4509 /* Subroutine / int zlaqhp_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4510 __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax, char equed);
cannam@17	4511
cannam@17	4512 /* Subroutine / int zlaqp2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer offset,
cannam@17	4513 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer jpvt, __CLPK_doublecomplex tau,
cannam@17	4514 __CLPK_doublereal vn1, __CLPK_doublereal vn2, __CLPK_doublecomplex *work);
cannam@17	4515
cannam@17	4516 /* Subroutine / int zlaqps_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer offset, __CLPK_integer
cannam@17	4517 nb, __CLPK_integer kb, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer *jpvt,
cannam@17	4518 __CLPK_doublecomplex tau, __CLPK_doublereal vn1, __CLPK_doublereal vn2, __CLPK_doublecomplex
cannam@17	4519 auxv, __CLPK_doublecomplex f, __CLPK_integer ldf);
cannam@17	4520
cannam@17	4521 /* Subroutine / int zlaqsb_(char uplo, __CLPK_integer n, __CLPK_integer kd,
cannam@17	4522 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal s, __CLPK_doublereal scond,
cannam@17	4523 __CLPK_doublereal amax, char equed);
cannam@17	4524
cannam@17	4525 /* Subroutine / int zlaqsp_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4526 __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax, char equed);
cannam@17	4527
cannam@17	4528 /* Subroutine / int zlaqsy_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4529 __CLPK_integer lda, __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax,
cannam@17	4530 char *equed);
cannam@17	4531
cannam@17	4532 /* Subroutine / int zlar1v_(__CLPK_integer n, __CLPK_integer b1, __CLPK_integer bn, __CLPK_doublereal
cannam@17	4533 sigma, __CLPK_doublereal d__, __CLPK_doublereal l, __CLPK_doublereal ld, __CLPK_doublereal *
cannam@17	4534 lld, __CLPK_doublereal gersch, __CLPK_doublecomplex z__, __CLPK_doublereal *ztz,
cannam@17	4535 __CLPK_doublereal mingma, __CLPK_integer r__, __CLPK_integer isuppz, __CLPK_doublereal work);
cannam@17	4536
cannam@17	4537 /* Subroutine / int zlar2v_(__CLPK_integer n, __CLPK_doublecomplex x, __CLPK_doublecomplex y,
cannam@17	4538 __CLPK_doublecomplex z__, __CLPK_integer incx, __CLPK_doublereal c__, __CLPK_doublecomplex s,
cannam@17	4539 __CLPK_integer *incc);
cannam@17	4540
cannam@17	4541 /* Subroutine / int zlarcm_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer *
cannam@17	4542 lda, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex c__, __CLPK_integer ldc,
cannam@17	4543 __CLPK_doublereal *rwork);
cannam@17	4544
cannam@17	4545 /* Subroutine / int zlarf_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex
cannam@17	4546 v, __CLPK_integer incv, __CLPK_doublecomplex tau, __CLPK_doublecomplex c__, __CLPK_integer *
cannam@17	4547 ldc, __CLPK_doublecomplex *work);
cannam@17	4548
cannam@17	4549 /* Subroutine / int zlarfb_(char side, char trans, char direct, char *
cannam@17	4550 storev, __CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_doublecomplex v, __CLPK_integer
cannam@17	4551 ldv, __CLPK_doublecomplex t, __CLPK_integer ldt, __CLPK_doublecomplex c__, __CLPK_integer *
cannam@17	4552 ldc, __CLPK_doublecomplex work, __CLPK_integer ldwork);
cannam@17	4553
cannam@17	4554 /* Subroutine / int zlarfg_(__CLPK_integer n, __CLPK_doublecomplex alpha, __CLPK_doublecomplex
cannam@17	4555 x, __CLPK_integer incx, __CLPK_doublecomplex tau);
cannam@17	4556
cannam@17	4557 /* Subroutine / int zlarft_(char direct, char storev, __CLPK_integer n, __CLPK_integer *
cannam@17	4558 k, __CLPK_doublecomplex v, __CLPK_integer ldv, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	4559 t, __CLPK_integer *ldt);
cannam@17	4560
cannam@17	4561 /* Subroutine / int zlarfx_(char side, __CLPK_integer m, __CLPK_integer n,
cannam@17	4562 __CLPK_doublecomplex v, __CLPK_doublecomplex tau, __CLPK_doublecomplex c__, __CLPK_integer
cannam@17	4563 ldc, __CLPK_doublecomplex *work);
cannam@17	4564
cannam@17	4565 /* Subroutine / int zlargv_(__CLPK_integer n, __CLPK_doublecomplex x, __CLPK_integer incx,
cannam@17	4566 __CLPK_doublecomplex y, __CLPK_integer incy, __CLPK_doublereal c__, __CLPK_integer incc);
cannam@17	4567
cannam@17	4568 /* Subroutine / int zlarnv_(__CLPK_integer idist, __CLPK_integer iseed, __CLPK_integer n,
cannam@17	4569 __CLPK_doublecomplex *x);
cannam@17	4570
cannam@17	4571 /* Subroutine / int zlarrv_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal l,
cannam@17	4572 __CLPK_integer isplit, __CLPK_integer m, __CLPK_doublereal w, __CLPK_integer iblock,
cannam@17	4573 __CLPK_doublereal gersch, __CLPK_doublereal tol, __CLPK_doublecomplex z__, __CLPK_integer ldz,
cannam@17	4574 __CLPK_integer isuppz, __CLPK_doublereal work, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	4575
cannam@17	4576 /* Subroutine / int zlartg_(__CLPK_doublecomplex f, __CLPK_doublecomplex g, __CLPK_doublereal
cannam@17	4577 cs, __CLPK_doublecomplex sn, __CLPK_doublecomplex r__);
cannam@17	4578
cannam@17	4579 /* Subroutine / int zlartv_(__CLPK_integer n, __CLPK_doublecomplex x, __CLPK_integer incx,
cannam@17	4580 __CLPK_doublecomplex y, __CLPK_integer incy, __CLPK_doublereal c__, __CLPK_doublecomplex s,
cannam@17	4581 __CLPK_integer *incc);
cannam@17	4582
cannam@17	4583 /* Subroutine / int zlarz_(char side, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *l,
cannam@17	4584 __CLPK_doublecomplex v, __CLPK_integer incv, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	4585 c__, __CLPK_integer ldc, __CLPK_doublecomplex work);
cannam@17	4586
cannam@17	4587 /* Subroutine / int zlarzb_(char side, char trans, char direct, char *
cannam@17	4588 storev, __CLPK_integer m, __CLPK_integer n, __CLPK_integer k, __CLPK_integer l, __CLPK_doublecomplex
cannam@17	4589 v, __CLPK_integer ldv, __CLPK_doublecomplex t, __CLPK_integer ldt, __CLPK_doublecomplex *c__,
cannam@17	4590 __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer *ldwork);
cannam@17	4591
cannam@17	4592 /* Subroutine / int zlarzt_(char direct, char storev, __CLPK_integer n, __CLPK_integer *
cannam@17	4593 k, __CLPK_doublecomplex v, __CLPK_integer ldv, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	4594 t, __CLPK_integer *ldt);
cannam@17	4595
cannam@17	4596 /* Subroutine / int zlascl_(char type__, __CLPK_integer kl, __CLPK_integer ku,
cannam@17	4597 __CLPK_doublereal cfrom, __CLPK_doublereal cto, __CLPK_integer m, __CLPK_integer n,
cannam@17	4598 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer *info);
cannam@17	4599
cannam@17	4600 /* Subroutine / int zlaset_(char uplo, __CLPK_integer m, __CLPK_integer n,
cannam@17	4601 __CLPK_doublecomplex alpha, __CLPK_doublecomplex beta, __CLPK_doublecomplex a, __CLPK_integer
cannam@17	4602 lda);
cannam@17	4603
cannam@17	4604 /* Subroutine / int zlasr_(char side, char pivot, char direct, __CLPK_integer *m,
cannam@17	4605 __CLPK_integer n, __CLPK_doublereal c__, __CLPK_doublereal s, __CLPK_doublecomplex a,
cannam@17	4606 __CLPK_integer *lda);
cannam@17	4607
cannam@17	4608 /* Subroutine / int zlassq_(__CLPK_integer n, __CLPK_doublecomplex x, __CLPK_integer incx,
cannam@17	4609 __CLPK_doublereal scale, __CLPK_doublereal sumsq);
cannam@17	4610
cannam@17	4611 /* Subroutine / int zlaswp_(__CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	4612 __CLPK_integer k1, __CLPK_integer k2, __CLPK_integer ipiv, __CLPK_integer incx);
cannam@17	4613
cannam@17	4614 /* Subroutine / int zlasyf_(char uplo, __CLPK_integer n, __CLPK_integer nb, __CLPK_integer *kb,
cannam@17	4615 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex w,
cannam@17	4616 __CLPK_integer ldw, __CLPK_integer info);
cannam@17	4617
cannam@17	4618 /* Subroutine / int zlatbs_(char uplo, char trans, char diag, char *
cannam@17	4619 normin, __CLPK_integer n, __CLPK_integer kd, __CLPK_doublecomplex ab, __CLPK_integer ldab,
cannam@17	4620 __CLPK_doublecomplex x, __CLPK_doublereal scale, __CLPK_doublereal cnorm, __CLPK_integer info);
cannam@17	4621
cannam@17	4622 /* Subroutine / int zlatdf_(__CLPK_integer ijob, __CLPK_integer n, __CLPK_doublecomplex z__,
cannam@17	4623 __CLPK_integer ldz, __CLPK_doublecomplex rhs, __CLPK_doublereal rdsum, __CLPK_doublereal
cannam@17	4624 rdscal, __CLPK_integer ipiv, __CLPK_integer jpiv);
cannam@17	4625
cannam@17	4626 /* Subroutine / int zlatps_(char uplo, char trans, char diag, char *
cannam@17	4627 normin, __CLPK_integer n, __CLPK_doublecomplex ap, __CLPK_doublecomplex x, __CLPK_doublereal
cannam@17	4628 scale, __CLPK_doublereal cnorm, __CLPK_integer info);
cannam@17	4629
cannam@17	4630 /* Subroutine / int zlatrd_(char uplo, __CLPK_integer n, __CLPK_integer nb,
cannam@17	4631 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublereal e, __CLPK_doublecomplex tau,
cannam@17	4632 __CLPK_doublecomplex w, __CLPK_integer ldw);
cannam@17	4633
cannam@17	4634 /* Subroutine / int zlatrs_(char uplo, char trans, char diag, char *
cannam@17	4635 normin, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex x,
cannam@17	4636 __CLPK_doublereal scale, __CLPK_doublereal cnorm, __CLPK_integer *info);
cannam@17	4637
cannam@17	4638 /* Subroutine / int zlatrz_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer l,
cannam@17	4639 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	4640 work);
cannam@17	4641
cannam@17	4642 /* Subroutine / int zlatzm_(char side, __CLPK_integer m, __CLPK_integer n,
cannam@17	4643 __CLPK_doublecomplex v, __CLPK_integer incv, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	4644 c1, __CLPK_doublecomplex c2, __CLPK_integer ldc, __CLPK_doublecomplex *work);
cannam@17	4645
cannam@17	4646 /* Subroutine / int zlauu2_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4647 __CLPK_integer lda, __CLPK_integer info);
cannam@17	4648
cannam@17	4649 /* Subroutine / int zlauum_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4650 __CLPK_integer lda, __CLPK_integer info);
cannam@17	4651
cannam@17	4652 /* Subroutine / int zpbcon_(char uplo, __CLPK_integer n, __CLPK_integer kd,
cannam@17	4653 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal anorm, __CLPK_doublereal
cannam@17	4654 rcond, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	4655
cannam@17	4656 /* Subroutine / int zpbequ_(char uplo, __CLPK_integer n, __CLPK_integer kd,
cannam@17	4657 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal s, __CLPK_doublereal scond,
cannam@17	4658 __CLPK_doublereal amax, __CLPK_integer info);
cannam@17	4659
cannam@17	4660 /* Subroutine / int zpbrfs_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	4661 nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublecomplex afb, __CLPK_integer
cannam@17	4662 ldafb, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx,
cannam@17	4663 __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal
cannam@17	4664 rwork, __CLPK_integer *info);
cannam@17	4665
cannam@17	4666 /* Subroutine / int zpbstf_(char uplo, __CLPK_integer n, __CLPK_integer kd,
cannam@17	4667 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_integer *info);
cannam@17	4668
cannam@17	4669 /* Subroutine / int zpbsv_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	4670 nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublecomplex b, __CLPK_integer
cannam@17	4671 ldb, __CLPK_integer *info);
cannam@17	4672
cannam@17	4673 /* Subroutine / int zpbsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *kd,
cannam@17	4674 __CLPK_integer nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublecomplex afb,
cannam@17	4675 __CLPK_integer ldafb, char equed, __CLPK_doublereal s, __CLPK_doublecomplex b, __CLPK_integer
cannam@17	4676 ldb, __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal rcond, __CLPK_doublereal *
cannam@17	4677 ferr, __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal *rwork,
cannam@17	4678 __CLPK_integer *info);
cannam@17	4679
cannam@17	4680 /* Subroutine / int zpbtf2_(char uplo, __CLPK_integer n, __CLPK_integer kd,
cannam@17	4681 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_integer *info);
cannam@17	4682
cannam@17	4683 /* Subroutine / int zpbtrf_(char uplo, __CLPK_integer n, __CLPK_integer kd,
cannam@17	4684 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_integer *info);
cannam@17	4685
cannam@17	4686 /* Subroutine / int zpbtrs_(char uplo, __CLPK_integer n, __CLPK_integer kd, __CLPK_integer *
cannam@17	4687 nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublecomplex b, __CLPK_integer
cannam@17	4688 ldb, __CLPK_integer *info);
cannam@17	4689
cannam@17	4690 /* Subroutine / int zpocon_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4691 __CLPK_integer lda, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublecomplex
cannam@17	4692 work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4693
cannam@17	4694 /* Subroutine / int zpoequ_(__CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	4695 __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax, __CLPK_integer info);
cannam@17	4696
cannam@17	4697 /* Subroutine / int zporfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4698 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex af, __CLPK_integer ldaf,
cannam@17	4699 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx,
cannam@17	4700 __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal
cannam@17	4701 rwork, __CLPK_integer *info);
cannam@17	4702
cannam@17	4703 /* Subroutine / int zposv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4704 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4705 __CLPK_integer *info);
cannam@17	4706
cannam@17	4707 /* Subroutine / int zposvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	4708 nrhs, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex af, __CLPK_integer
cannam@17	4709 ldaf, char equed, __CLPK_doublereal s, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4710 __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal rcond, __CLPK_doublereal ferr,
cannam@17	4711 __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	4712 info);
cannam@17	4713
cannam@17	4714 /* Subroutine / int zpotf2_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4715 __CLPK_integer lda, __CLPK_integer info);
cannam@17	4716
cannam@17	4717 /* Subroutine / int zpotrf_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4718 __CLPK_integer lda, __CLPK_integer info);
cannam@17	4719
cannam@17	4720 /* Subroutine / int zpotri_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4721 __CLPK_integer lda, __CLPK_integer info);
cannam@17	4722
cannam@17	4723 /* Subroutine / int zpotrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4724 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4725 __CLPK_integer *info);
cannam@17	4726
cannam@17	4727 /* Subroutine / int zppcon_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4728 __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublecomplex *work, __CLPK_doublereal
cannam@17	4729 rwork, __CLPK_integer info);
cannam@17	4730
cannam@17	4731 /* Subroutine / int zppequ_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4732 __CLPK_doublereal s, __CLPK_doublereal scond, __CLPK_doublereal amax, __CLPK_integer info);
cannam@17	4733
cannam@17	4734 /* Subroutine / int zpprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4735 __CLPK_doublecomplex ap, __CLPK_doublecomplex afp, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4736 __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	4737 __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	4738
cannam@17	4739 /* Subroutine / int zppsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4740 __CLPK_doublecomplex ap, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	4741
cannam@17	4742 /* Subroutine / int zppsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	4743 nrhs, __CLPK_doublecomplex ap, __CLPK_doublecomplex afp, char equed, __CLPK_doublereal
cannam@17	4744 s, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx,
cannam@17	4745 __CLPK_doublereal rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex
cannam@17	4746 work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4747
cannam@17	4748 /* Subroutine / int zpptrf_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4749 __CLPK_integer *info);
cannam@17	4750
cannam@17	4751 /* Subroutine / int zpptri_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4752 __CLPK_integer *info);
cannam@17	4753
cannam@17	4754 /* Subroutine / int zpptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4755 __CLPK_doublecomplex ap, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	4756
cannam@17	4757 /* Subroutine / int zptcon_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublecomplex e,
cannam@17	4758 __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	4759 info);
cannam@17	4760
cannam@17	4761 /* Subroutine / int zptrfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4762 __CLPK_doublereal d__, __CLPK_doublecomplex e, __CLPK_doublereal df, __CLPK_doublecomplex ef,
cannam@17	4763 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx,
cannam@17	4764 __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal
cannam@17	4765 rwork, __CLPK_integer *info);
cannam@17	4766
cannam@17	4767 /* Subroutine / int zptsv_(__CLPK_integer n, __CLPK_integer nrhs, __CLPK_doublereal d__,
cannam@17	4768 __CLPK_doublecomplex e, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_integer info);
cannam@17	4769
cannam@17	4770 /* Subroutine / int zptsvx_(char fact, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4771 __CLPK_doublereal d__, __CLPK_doublecomplex e, __CLPK_doublereal df, __CLPK_doublecomplex ef,
cannam@17	4772 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx,
cannam@17	4773 __CLPK_doublereal rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex
cannam@17	4774 work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4775
cannam@17	4776 /* Subroutine / int zpttrf_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublecomplex e,
cannam@17	4777 __CLPK_integer *info);
cannam@17	4778
cannam@17	4779 /* Subroutine / int zpttrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4780 __CLPK_doublereal d__, __CLPK_doublecomplex e, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4781 __CLPK_integer *info);
cannam@17	4782
cannam@17	4783 /* Subroutine / int zptts2_(__CLPK_integer iuplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4784 __CLPK_doublereal d__, __CLPK_doublecomplex e, __CLPK_doublecomplex b, __CLPK_integer ldb);
cannam@17	4785
cannam@17	4786 /* Subroutine / int zrot_(__CLPK_integer n, __CLPK_doublecomplex cx, __CLPK_integer incx,
cannam@17	4787 __CLPK_doublecomplex cy, __CLPK_integer incy, __CLPK_doublereal c__, __CLPK_doublecomplex s);
cannam@17	4788
cannam@17	4789 /* Subroutine / int zspcon_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4790 __CLPK_integer ipiv, __CLPK_doublereal anorm, __CLPK_doublereal rcond, __CLPK_doublecomplex
cannam@17	4791 work, __CLPK_integer *info);
cannam@17	4792
cannam@17	4793 /* Subroutine / int zspmv_(char uplo, __CLPK_integer n, __CLPK_doublecomplex alpha,
cannam@17	4794 __CLPK_doublecomplex ap, __CLPK_doublecomplex x, __CLPK_integer incx, __CLPK_doublecomplex
cannam@17	4795 beta, __CLPK_doublecomplex y, __CLPK_integer incy);
cannam@17	4796
cannam@17	4797 /* Subroutine / int zspr_(char uplo, __CLPK_integer n, __CLPK_doublecomplex alpha,
cannam@17	4798 __CLPK_doublecomplex x, __CLPK_integer incx, __CLPK_doublecomplex *ap);
cannam@17	4799
cannam@17	4800 /* Subroutine / int zsprfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4801 __CLPK_doublecomplex ap, __CLPK_doublecomplex afp, __CLPK_integer ipiv, __CLPK_doublecomplex
cannam@17	4802 b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal ferr,
cannam@17	4803 __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	4804 info);
cannam@17	4805
cannam@17	4806 /* Subroutine / int zspsv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4807 __CLPK_doublecomplex ap, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4808 __CLPK_integer *info);
cannam@17	4809
cannam@17	4810 /* Subroutine / int zspsvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	4811 nrhs, __CLPK_doublecomplex ap, __CLPK_doublecomplex afp, __CLPK_integer *ipiv,
cannam@17	4812 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx,
cannam@17	4813 __CLPK_doublereal rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex
cannam@17	4814 work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4815
cannam@17	4816 /* Subroutine / int zsptrf_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4817 __CLPK_integer ipiv, __CLPK_integer info);
cannam@17	4818
cannam@17	4819 /* Subroutine / int zsptri_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	4820 __CLPK_integer ipiv, __CLPK_doublecomplex work, __CLPK_integer *info);
cannam@17	4821
cannam@17	4822 /* Subroutine / int zsptrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4823 __CLPK_doublecomplex ap, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4824 __CLPK_integer *info);
cannam@17	4825
cannam@17	4826 /* Subroutine / int zstedc_(char compz, __CLPK_integer n, __CLPK_doublereal d__,
cannam@17	4827 __CLPK_doublereal e, __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_doublecomplex work,
cannam@17	4828 __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer lrwork, __CLPK_integer iwork,
cannam@17	4829 __CLPK_integer liwork, __CLPK_integer info);
cannam@17	4830
cannam@17	4831 /* Subroutine / int zstein_(__CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal e,
cannam@17	4832 __CLPK_integer m, __CLPK_doublereal w, __CLPK_integer iblock, __CLPK_integer isplit,
cannam@17	4833 __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_doublereal work, __CLPK_integer iwork,
cannam@17	4834 __CLPK_integer ifail, __CLPK_integer info);
cannam@17	4835
cannam@17	4836 /* Subroutine / int zsteqr_(char compz, __CLPK_integer n, __CLPK_doublereal d__,
cannam@17	4837 __CLPK_doublereal e, __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	4838 __CLPK_integer *info);
cannam@17	4839
cannam@17	4840 /* Subroutine / int zsycon_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4841 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublereal anorm, __CLPK_doublereal rcond,
cannam@17	4842 __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	4843
cannam@17	4844 /* Subroutine / int zsymv_(char uplo, __CLPK_integer n, __CLPK_doublecomplex alpha,
cannam@17	4845 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex x, __CLPK_integer incx,
cannam@17	4846 __CLPK_doublecomplex beta, __CLPK_doublecomplex y, __CLPK_integer *incy);
cannam@17	4847
cannam@17	4848 /* Subroutine / int zsyr_(char uplo, __CLPK_integer n, __CLPK_doublecomplex alpha,
cannam@17	4849 __CLPK_doublecomplex x, __CLPK_integer incx, __CLPK_doublecomplex a, __CLPK_integer lda);
cannam@17	4850
cannam@17	4851 /* Subroutine / int zsyrfs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4852 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex af, __CLPK_integer ldaf,
cannam@17	4853 __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x,
cannam@17	4854 __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex work,
cannam@17	4855 __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4856
cannam@17	4857 /* Subroutine / int zsysv_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4858 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex b,
cannam@17	4859 __CLPK_integer ldb, __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	4860
cannam@17	4861 /* Subroutine / int zsysvx_(char fact, char uplo, __CLPK_integer n, __CLPK_integer *
cannam@17	4862 nrhs, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex af, __CLPK_integer
cannam@17	4863 ldaf, __CLPK_integer ipiv, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x,
cannam@17	4864 __CLPK_integer ldx, __CLPK_doublereal rcond, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	4865 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4866
cannam@17	4867 /* Subroutine / int zsytf2_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4868 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_integer *info);
cannam@17	4869
cannam@17	4870 /* Subroutine / int zsytrf_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4871 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	4872 __CLPK_integer *info);
cannam@17	4873
cannam@17	4874 /* Subroutine / int zsytri_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	4875 __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	4876
cannam@17	4877 /* Subroutine / int zsytrs_(char uplo, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	4878 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer ipiv, __CLPK_doublecomplex b,
cannam@17	4879 __CLPK_integer ldb, __CLPK_integer info);
cannam@17	4880
cannam@17	4881 /* Subroutine / int ztbcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	4882 __CLPK_integer kd, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal rcond,
cannam@17	4883 __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	4884
cannam@17	4885 /* Subroutine / int ztbrfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	4886 __CLPK_integer kd, __CLPK_integer nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab,
cannam@17	4887 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx,
cannam@17	4888 __CLPK_doublereal ferr, __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal
cannam@17	4889 rwork, __CLPK_integer *info);
cannam@17	4890
cannam@17	4891 /* Subroutine / int ztbtrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	4892 __CLPK_integer kd, __CLPK_integer nrhs, __CLPK_doublecomplex ab, __CLPK_integer ldab,
cannam@17	4893 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_integer *info);
cannam@17	4894
cannam@17	4895 /* Subroutine / int ztgevc_(char side, char howmny, __CLPK_logical select,
cannam@17	4896 __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer
cannam@17	4897 ldb, __CLPK_doublecomplex vl, __CLPK_integer ldvl, __CLPK_doublecomplex vr, __CLPK_integer *
cannam@17	4898 ldvr, __CLPK_integer mm, __CLPK_integer m, __CLPK_doublecomplex work, __CLPK_doublereal rwork,
cannam@17	4899 __CLPK_integer *info);
cannam@17	4900
cannam@17	4901 /* Subroutine / int ztgex2_(__CLPK_logical wantq, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	4902 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4903 __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublecomplex z__, __CLPK_integer ldz,
cannam@17	4904 __CLPK_integer j1, __CLPK_integer info);
cannam@17	4905
cannam@17	4906 /* Subroutine / int ztgexc_(__CLPK_logical wantq, __CLPK_logical wantz, __CLPK_integer n,
cannam@17	4907 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4908 __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublecomplex z__, __CLPK_integer ldz,
cannam@17	4909 __CLPK_integer ifst, __CLPK_integer ilst, __CLPK_integer *info);
cannam@17	4910
cannam@17	4911 /* Subroutine / int ztgsen_(__CLPK_integer ijob, __CLPK_logical wantq, __CLPK_logical wantz,
cannam@17	4912 __CLPK_logical select, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	4913 __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublecomplex alpha, __CLPK_doublecomplex
cannam@17	4914 beta, __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublecomplex z__, __CLPK_integer
cannam@17	4915 ldz, __CLPK_integer m, __CLPK_doublereal pl, __CLPK_doublereal pr, __CLPK_doublereal dif,
cannam@17	4916 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork,
cannam@17	4917 __CLPK_integer *info);
cannam@17	4918
cannam@17	4919 /* Subroutine / int ztgsja_(char jobu, char jobv, char jobq, __CLPK_integer *m,
cannam@17	4920 __CLPK_integer p, __CLPK_integer n, __CLPK_integer k, __CLPK_integer l, __CLPK_doublecomplex *a,
cannam@17	4921 __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb, __CLPK_doublereal tola,
cannam@17	4922 __CLPK_doublereal tolb, __CLPK_doublereal alpha, __CLPK_doublereal beta, __CLPK_doublecomplex
cannam@17	4923 u, __CLPK_integer ldu, __CLPK_doublecomplex v, __CLPK_integer ldv, __CLPK_doublecomplex q,
cannam@17	4924 __CLPK_integer ldq, __CLPK_doublecomplex work, __CLPK_integer ncycle, __CLPK_integer info);
cannam@17	4925
cannam@17	4926 /* Subroutine / int ztgsna_(char job, char howmny, __CLPK_logical select,
cannam@17	4927 __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer
cannam@17	4928 ldb, __CLPK_doublecomplex vl, __CLPK_integer ldvl, __CLPK_doublecomplex vr, __CLPK_integer *
cannam@17	4929 ldvr, __CLPK_doublereal s, __CLPK_doublereal dif, __CLPK_integer mm, __CLPK_integer m,
cannam@17	4930 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	4931
cannam@17	4932 /* Subroutine / int ztgsy2_(char trans, __CLPK_integer ijob, __CLPK_integer m, __CLPK_integer *
cannam@17	4933 n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4934 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex d__, __CLPK_integer ldd,
cannam@17	4935 __CLPK_doublecomplex e, __CLPK_integer lde, __CLPK_doublecomplex f, __CLPK_integer ldf,
cannam@17	4936 __CLPK_doublereal scale, __CLPK_doublereal rdsum, __CLPK_doublereal rdscal, __CLPK_integer
cannam@17	4937 info);
cannam@17	4938
cannam@17	4939 /* Subroutine / int ztgsyl_(char trans, __CLPK_integer ijob, __CLPK_integer m, __CLPK_integer *
cannam@17	4940 n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4941 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex d__, __CLPK_integer ldd,
cannam@17	4942 __CLPK_doublecomplex e, __CLPK_integer lde, __CLPK_doublecomplex f, __CLPK_integer ldf,
cannam@17	4943 __CLPK_doublereal scale, __CLPK_doublereal dif, __CLPK_doublecomplex work, __CLPK_integer
cannam@17	4944 lwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	4945
cannam@17	4946 /* Subroutine / int ztpcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	4947 __CLPK_doublecomplex ap, __CLPK_doublereal rcond, __CLPK_doublecomplex *work, __CLPK_doublereal
cannam@17	4948 rwork, __CLPK_integer info);
cannam@17	4949
cannam@17	4950 /* Subroutine / int ztprfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	4951 __CLPK_integer nrhs, __CLPK_doublecomplex ap, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4952 __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal ferr, __CLPK_doublereal berr,
cannam@17	4953 __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	4954
cannam@17	4955 /* Subroutine / int ztptri_(char uplo, char diag, __CLPK_integer n,
cannam@17	4956 __CLPK_doublecomplex ap, __CLPK_integer info);
cannam@17	4957
cannam@17	4958 /* Subroutine / int ztptrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	4959 __CLPK_integer nrhs, __CLPK_doublecomplex ap, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	4960 __CLPK_integer *info);
cannam@17	4961
cannam@17	4962 /* Subroutine / int ztrcon_(char norm, char uplo, char diag, __CLPK_integer *n,
cannam@17	4963 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublereal rcond, __CLPK_doublecomplex
cannam@17	4964 work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4965
cannam@17	4966 /* Subroutine / int ztrevc_(char side, char howmny, __CLPK_logical select,
cannam@17	4967 __CLPK_integer n, __CLPK_doublecomplex t, __CLPK_integer ldt, __CLPK_doublecomplex vl,
cannam@17	4968 __CLPK_integer ldvl, __CLPK_doublecomplex vr, __CLPK_integer ldvr, __CLPK_integer mm, __CLPK_integer
cannam@17	4969 m, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer info);
cannam@17	4970
cannam@17	4971 /* Subroutine / int ztrexc_(char compq, __CLPK_integer n, __CLPK_doublecomplex t,
cannam@17	4972 __CLPK_integer ldt, __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_integer ifst, __CLPK_integer *
cannam@17	4973 ilst, __CLPK_integer *info);
cannam@17	4974
cannam@17	4975 /* Subroutine / int ztrrfs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	4976 __CLPK_integer nrhs, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b,
cannam@17	4977 __CLPK_integer ldb, __CLPK_doublecomplex x, __CLPK_integer ldx, __CLPK_doublereal ferr,
cannam@17	4978 __CLPK_doublereal berr, __CLPK_doublecomplex work, __CLPK_doublereal rwork, __CLPK_integer
cannam@17	4979 info);
cannam@17	4980
cannam@17	4981 /* Subroutine / int ztrsen_(char job, char compq, __CLPK_logical select, __CLPK_integer
cannam@17	4982 n, __CLPK_doublecomplex t, __CLPK_integer ldt, __CLPK_doublecomplex q, __CLPK_integer *ldq,
cannam@17	4983 __CLPK_doublecomplex w, __CLPK_integer m, __CLPK_doublereal s, __CLPK_doublereal sep,
cannam@17	4984 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_integer *info);
cannam@17	4985
cannam@17	4986 /* Subroutine / int ztrsna_(char job, char howmny, __CLPK_logical select,
cannam@17	4987 __CLPK_integer n, __CLPK_doublecomplex t, __CLPK_integer ldt, __CLPK_doublecomplex vl,
cannam@17	4988 __CLPK_integer ldvl, __CLPK_doublecomplex vr, __CLPK_integer ldvr, __CLPK_doublereal s,
cannam@17	4989 __CLPK_doublereal sep, __CLPK_integer mm, __CLPK_integer m, __CLPK_doublecomplex work,
cannam@17	4990 __CLPK_integer ldwork, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	4991
cannam@17	4992 /* Subroutine / int ztrsyl_(char trana, char tranb, __CLPK_integer isgn, __CLPK_integer
cannam@17	4993 m, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex *b,
cannam@17	4994 __CLPK_integer ldb, __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublereal scale,
cannam@17	4995 __CLPK_integer *info);
cannam@17	4996
cannam@17	4997 /* Subroutine / int ztrti2_(char uplo, char diag, __CLPK_integer n,
cannam@17	4998 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer *info);
cannam@17	4999
cannam@17	5000 /* Subroutine / int ztrtri_(char uplo, char diag, __CLPK_integer n,
cannam@17	5001 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_integer *info);
cannam@17	5002
cannam@17	5003 /* Subroutine / int ztrtrs_(char uplo, char trans, char diag, __CLPK_integer *n,
cannam@17	5004 __CLPK_integer nrhs, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b,
cannam@17	5005 __CLPK_integer ldb, __CLPK_integer info);
cannam@17	5006
cannam@17	5007 /* Subroutine / int ztzrqf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	5008 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_integer *info);
cannam@17	5009
cannam@17	5010 /* Subroutine / int ztzrzf_(__CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	5011 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	5012 __CLPK_integer *info);
cannam@17	5013
cannam@17	5014 /* Subroutine / int zung2l_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k,
cannam@17	5015 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5016 work, __CLPK_integer *info);
cannam@17	5017
cannam@17	5018 /* Subroutine / int zung2r_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k,
cannam@17	5019 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5020 work, __CLPK_integer *info);
cannam@17	5021
cannam@17	5022 /* Subroutine / int zungbr_(char vect, __CLPK_integer m, __CLPK_integer n, __CLPK_integer *k,
cannam@17	5023 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5024 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	5025
cannam@17	5026 /* Subroutine / int zunghr_(__CLPK_integer n, __CLPK_integer ilo, __CLPK_integer ihi,
cannam@17	5027 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5028 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	5029
cannam@17	5030 /* Subroutine / int zungl2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k,
cannam@17	5031 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5032 work, __CLPK_integer *info);
cannam@17	5033
cannam@17	5034 /* Subroutine / int zunglq_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k,
cannam@17	5035 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5036 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	5037
cannam@17	5038 /* Subroutine / int zungql_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k,
cannam@17	5039 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5040 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	5041
cannam@17	5042 /* Subroutine / int zungqr_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k,
cannam@17	5043 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5044 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	5045
cannam@17	5046 /* Subroutine / int zungr2_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k,
cannam@17	5047 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5048 work, __CLPK_integer *info);
cannam@17	5049
cannam@17	5050 /* Subroutine / int zungrq_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer k,
cannam@17	5051 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex
cannam@17	5052 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	5053
cannam@17	5054 /* Subroutine / int zungtr_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	5055 __CLPK_integer lda, __CLPK_doublecomplex tau, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	5056 __CLPK_integer *info);
cannam@17	5057
cannam@17	5058 /* Subroutine / int zunm2l_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5059 __CLPK_integer k, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau,
cannam@17	5060 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	5061
cannam@17	5062 /* Subroutine / int zunm2r_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5063 __CLPK_integer k, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau,
cannam@17	5064 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	5065
cannam@17	5066 /* Subroutine / int zunmbr_(char vect, char side, char trans, __CLPK_integer *m,
cannam@17	5067 __CLPK_integer n, __CLPK_integer k, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex
cannam@17	5068 tau, __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer *
cannam@17	5069 lwork, __CLPK_integer *info);
cannam@17	5070
cannam@17	5071 /* Subroutine / int zunmhr_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5072 __CLPK_integer ilo, __CLPK_integer ihi, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	5073 __CLPK_doublecomplex tau, __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex
cannam@17	5074 work, __CLPK_integer lwork, __CLPK_integer info);
cannam@17	5075
cannam@17	5076 /* Subroutine / int zunml2_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5077 __CLPK_integer k, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau,
cannam@17	5078 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	5079
cannam@17	5080 /* Subroutine / int zunmlq_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5081 __CLPK_integer k, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau,
cannam@17	5082 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	5083 __CLPK_integer *info);
cannam@17	5084
cannam@17	5085 /* Subroutine / int zunmql_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5086 __CLPK_integer k, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau,
cannam@17	5087 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	5088 __CLPK_integer *info);
cannam@17	5089
cannam@17	5090 /* Subroutine / int zunmqr_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5091 __CLPK_integer k, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau,
cannam@17	5092 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	5093 __CLPK_integer *info);
cannam@17	5094
cannam@17	5095 /* Subroutine / int zunmr2_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5096 __CLPK_integer k, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau,
cannam@17	5097 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer info);
cannam@17	5098
cannam@17	5099 /* Subroutine / int zunmr3_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5100 __CLPK_integer k, __CLPK_integer l, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex
cannam@17	5101 tau, __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer *
cannam@17	5102 info);
cannam@17	5103
cannam@17	5104 /* Subroutine / int zunmrq_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5105 __CLPK_integer k, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau,
cannam@17	5106 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	5107 __CLPK_integer *info);
cannam@17	5108
cannam@17	5109 /* Subroutine / int zunmrz_(char side, char trans, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5110 __CLPK_integer k, __CLPK_integer l, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex
cannam@17	5111 tau, __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer *
cannam@17	5112 lwork, __CLPK_integer *info);
cannam@17	5113
cannam@17	5114 /* Subroutine / int zunmtr_(char side, char uplo, char trans, __CLPK_integer *m,
cannam@17	5115 __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex tau,
cannam@17	5116 __CLPK_doublecomplex c__, __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer lwork,
cannam@17	5117 __CLPK_integer *info);
cannam@17	5118
cannam@17	5119 /* Subroutine / int zupgtr_(char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	5120 __CLPK_doublecomplex tau, __CLPK_doublecomplex q, __CLPK_integer ldq, __CLPK_doublecomplex
cannam@17	5121 work, __CLPK_integer *info);
cannam@17	5122
cannam@17	5123 /* Subroutine / int zupmtr_(char side, char uplo, char trans, __CLPK_integer *m,
cannam@17	5124 __CLPK_integer n, __CLPK_doublecomplex ap, __CLPK_doublecomplex tau, __CLPK_doublecomplex c__,
cannam@17	5125 __CLPK_integer ldc, __CLPK_doublecomplex work, __CLPK_integer *info);
cannam@17	5126
cannam@17	5127 /*
cannam@17	5128 The following prototypes are not present in the reference clapack.h distributed via netlib.
cannam@17	5129 Nevertheless, the supporting code has always been present in the library.
cannam@17	5130 */
cannam@17	5131
cannam@17	5132 /* Subroutine / int cgelsd_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	5133 a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_real s, __CLPK_real *rcond,
cannam@17	5134 __CLPK_integer rank, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *
cannam@17	5135 iwork, __CLPK_integer *info);
cannam@17	5136
cannam@17	5137 /* Subroutine / int cgelss_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs, __CLPK_complex *
cannam@17	5138 a, __CLPK_integer lda, __CLPK_complex b, __CLPK_integer ldb, __CLPK_real s, __CLPK_real *rcond,
cannam@17	5139 __CLPK_integer rank, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *
cannam@17	5140 info);
cannam@17	5141
cannam@17	5142 /* Subroutine / int cgesdd_(char jobz, __CLPK_integer m, __CLPK_integer n, __CLPK_complex *a,
cannam@17	5143 __CLPK_integer lda, __CLPK_real s, __CLPK_complex u, __CLPK_integer ldu, __CLPK_complex *vt, __CLPK_integer
cannam@17	5144 ldvt, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork, __CLPK_integer *iwork,
cannam@17	5145 __CLPK_integer *info);
cannam@17	5146
cannam@17	5147 /* Subroutine / int cgesvd_(char jobu, char jobvt, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5148 __CLPK_complex a, __CLPK_integer lda, __CLPK_real s, __CLPK_complex u, __CLPK_integer ldu, __CLPK_complex
cannam@17	5149 vt, __CLPK_integer ldvt, __CLPK_complex work, __CLPK_integer lwork, __CLPK_real rwork,
cannam@17	5150 __CLPK_integer *info);
cannam@17	5151
cannam@17	5152 /* Subroutine / int chbgvd_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	5153 __CLPK_integer kb, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_complex bb, __CLPK_integer *ldbb,
cannam@17	5154 __CLPK_real w, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_complex work, __CLPK_integer *lwork,
cannam@17	5155 __CLPK_real rwork, __CLPK_integer lrwork, __CLPK_integer iwork, __CLPK_integer liwork,
cannam@17	5156 __CLPK_integer *info);
cannam@17	5157
cannam@17	5158 /* Subroutine / int chetd2_(char uplo, __CLPK_integer n, __CLPK_complex a, __CLPK_integer *lda,
cannam@17	5159 __CLPK_real d__, __CLPK_real e, __CLPK_complex tau, __CLPK_integer info);
cannam@17	5160
cannam@17	5161 /* Complex / void cladiv_(__CLPK_complex ret_val, __CLPK_complex x, __CLPK_complex y);
cannam@17	5162
cannam@17	5163 /* Subroutine / int clalsd_(char uplo, __CLPK_integer smlsiz, __CLPK_integer n, __CLPK_integer
cannam@17	5164 nrhs, __CLPK_real d__, __CLPK_real e, __CLPK_complex b, __CLPK_integer ldb, __CLPK_real rcond,
cannam@17	5165 __CLPK_integer rank, __CLPK_complex work, __CLPK_real rwork, __CLPK_integer iwork,
cannam@17	5166 __CLPK_integer *info);
cannam@17	5167
cannam@17	5168 __CLPK_doublereal clangb_(char norm, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer ku,
cannam@17	5169 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real *work);
cannam@17	5170
cannam@17	5171 __CLPK_doublereal clange_(char norm, __CLPK_integer m, __CLPK_integer n, __CLPK_complex a,
cannam@17	5172 __CLPK_integer lda, __CLPK_real work);
cannam@17	5173
cannam@17	5174 __CLPK_doublereal clangt_(char norm, __CLPK_integer n, __CLPK_complex dl, __CLPK_complex d__,
cannam@17	5175 __CLPK_complex *du);
cannam@17	5176
cannam@17	5177 __CLPK_doublereal clanhb_(char norm, char uplo, __CLPK_integer n, __CLPK_integer k,
cannam@17	5178 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real *work);
cannam@17	5179
cannam@17	5180 __CLPK_doublereal clanhe_(char norm, char uplo, __CLPK_integer n, __CLPK_complex a,
cannam@17	5181 __CLPK_integer lda, __CLPK_real work);
cannam@17	5182
cannam@17	5183 __CLPK_doublereal clanhp_(char norm, char uplo, __CLPK_integer n, __CLPK_complex ap,
cannam@17	5184 __CLPK_real *work);
cannam@17	5185
cannam@17	5186 __CLPK_doublereal clanhs_(char norm, __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda,
cannam@17	5187 __CLPK_real *work);
cannam@17	5188
cannam@17	5189 __CLPK_doublereal clanht_(char norm, __CLPK_integer n, __CLPK_real d__, __CLPK_complex e);
cannam@17	5190
cannam@17	5191 __CLPK_doublereal clansb_(char norm, char uplo, __CLPK_integer n, __CLPK_integer k,
cannam@17	5192 __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real *work);
cannam@17	5193
cannam@17	5194 __CLPK_doublereal clansp_(char norm, char uplo, __CLPK_integer n, __CLPK_complex ap,
cannam@17	5195 __CLPK_real *work);
cannam@17	5196
cannam@17	5197 __CLPK_doublereal clansy_(char norm, char uplo, __CLPK_integer n, __CLPK_complex a,
cannam@17	5198 __CLPK_integer lda, __CLPK_real work);
cannam@17	5199
cannam@17	5200 __CLPK_doublereal clantb_(char norm, char uplo, char diag, __CLPK_integer n,
cannam@17	5201 __CLPK_integer k, __CLPK_complex ab, __CLPK_integer ldab, __CLPK_real work);
cannam@17	5202
cannam@17	5203 __CLPK_doublereal clantp_(char norm, char uplo, char diag, __CLPK_integer n,
cannam@17	5204 __CLPK_complex ap, __CLPK_real work);
cannam@17	5205
cannam@17	5206 __CLPK_doublereal clantr_(char norm, char uplo, char diag, __CLPK_integer m,
cannam@17	5207 __CLPK_integer n, __CLPK_complex a, __CLPK_integer lda, __CLPK_real work);
cannam@17	5208
cannam@17	5209 /* Subroutine / int cpteqr_(char compz, __CLPK_integer n, __CLPK_real d__, __CLPK_real *e,
cannam@17	5210 __CLPK_complex z__, __CLPK_integer ldz, __CLPK_real work, __CLPK_integer info);
cannam@17	5211
cannam@17	5212 /* Subroutine / int cstegr_(char jobz, char range, __CLPK_integer n, __CLPK_real *d__,
cannam@17	5213 __CLPK_real e, __CLPK_real vl, __CLPK_real vu, __CLPK_integer il, __CLPK_integer iu, __CLPK_real abstol,
cannam@17	5214 __CLPK_integer m, __CLPK_real w, __CLPK_complex z__, __CLPK_integer ldz, __CLPK_integer *isuppz,
cannam@17	5215 __CLPK_real work, __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork,
cannam@17	5216 __CLPK_integer *info);
cannam@17	5217
cannam@17	5218 __CLPK_doublereal dlamc3_(__CLPK_doublereal a, __CLPK_doublereal b);
cannam@17	5219
cannam@17	5220 __CLPK_doublereal dlamch_(char *cmach);
cannam@17	5221
cannam@17	5222 __CLPK_doublereal dlangb_(char norm, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer ku,
cannam@17	5223 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal *work);
cannam@17	5224
cannam@17	5225 __CLPK_doublereal dlange_(char norm, __CLPK_integer m, __CLPK_integer n, __CLPK_doublereal a,
cannam@17	5226 __CLPK_integer lda, __CLPK_doublereal work);
cannam@17	5227
cannam@17	5228 __CLPK_doublereal dlangt_(char norm, __CLPK_integer n, __CLPK_doublereal dl, __CLPK_doublereal d__,
cannam@17	5229 __CLPK_doublereal *du);
cannam@17	5230
cannam@17	5231 __CLPK_doublereal dlanhs_(char norm, __CLPK_integer n, __CLPK_doublereal a, __CLPK_integer lda,
cannam@17	5232 __CLPK_doublereal *work);
cannam@17	5233
cannam@17	5234 __CLPK_doublereal dlansb_(char norm, char uplo, __CLPK_integer n, __CLPK_integer k,
cannam@17	5235 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal *work);
cannam@17	5236
cannam@17	5237 __CLPK_doublereal dlansp_(char norm, char uplo, __CLPK_integer n, __CLPK_doublereal ap,
cannam@17	5238 __CLPK_doublereal *work);
cannam@17	5239
cannam@17	5240 __CLPK_doublereal dlanst_(char norm, __CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublereal e);
cannam@17	5241
cannam@17	5242 __CLPK_doublereal dlansy_(char norm, char uplo, __CLPK_integer n, __CLPK_doublereal a,
cannam@17	5243 __CLPK_integer lda, __CLPK_doublereal work);
cannam@17	5244
cannam@17	5245 __CLPK_doublereal dlantb_(char norm, char uplo, char diag, __CLPK_integer n, __CLPK_integer *k,
cannam@17	5246 __CLPK_doublereal ab, __CLPK_integer ldab, __CLPK_doublereal *work);
cannam@17	5247
cannam@17	5248 __CLPK_doublereal dlantp_(char norm, char uplo, char diag, __CLPK_integer n,
cannam@17	5249 __CLPK_doublereal ap, __CLPK_doublereal work);
cannam@17	5250
cannam@17	5251 __CLPK_doublereal dlantr_(char norm, char uplo, char diag, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5252 __CLPK_doublereal a, __CLPK_integer lda, __CLPK_doublereal *work);
cannam@17	5253
cannam@17	5254 __CLPK_doublereal dlapy2_(__CLPK_doublereal x, __CLPK_doublereal y);
cannam@17	5255
cannam@17	5256 __CLPK_doublereal dlapy3_(__CLPK_doublereal x, __CLPK_doublereal y, __CLPK_doublereal *z__);
cannam@17	5257
cannam@17	5258 __CLPK_doublereal dsecnd_();
cannam@17	5259
cannam@17	5260 __CLPK_doublereal dzsum1_(__CLPK_integer n, __CLPK_doublecomplex cx, __CLPK_integer *incx);
cannam@17	5261
cannam@17	5262 __CLPK_logical lsame_(char ca, char cb);
cannam@17	5263
cannam@17	5264 __CLPK_logical lsamen_(__CLPK_integer n, char ca, char *cb);
cannam@17	5265
cannam@17	5266 __CLPK_doublereal scsum1_(__CLPK_integer n, __CLPK_complex cx, __CLPK_integer *incx);
cannam@17	5267
cannam@17	5268 __CLPK_doublereal second_();
cannam@17	5269
cannam@17	5270 __CLPK_doublereal slamc3_(__CLPK_real a, __CLPK_real b);
cannam@17	5271
cannam@17	5272 __CLPK_doublereal slamch_(char *cmach);
cannam@17	5273
cannam@17	5274 __CLPK_doublereal slangb_(char norm, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer ku, __CLPK_real *ab,
cannam@17	5275 __CLPK_integer ldab, __CLPK_real work);
cannam@17	5276
cannam@17	5277 __CLPK_doublereal slange_(char norm, __CLPK_integer m, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	5278 __CLPK_real *work);
cannam@17	5279
cannam@17	5280 __CLPK_doublereal slangt_(char norm, __CLPK_integer n, __CLPK_real dl, __CLPK_real d__, __CLPK_real *du);
cannam@17	5281
cannam@17	5282 __CLPK_doublereal slanhs_(char norm, __CLPK_integer n, __CLPK_real a, __CLPK_integer lda, __CLPK_real *work);
cannam@17	5283
cannam@17	5284 __CLPK_doublereal slansb_(char norm, char uplo, __CLPK_integer n, __CLPK_integer k, __CLPK_real *ab,
cannam@17	5285 __CLPK_integer ldab, __CLPK_real work);
cannam@17	5286
cannam@17	5287 __CLPK_doublereal slansp_(char norm, char uplo, __CLPK_integer n, __CLPK_real ap, __CLPK_real *work);
cannam@17	5288
cannam@17	5289 __CLPK_doublereal slanst_(char norm, __CLPK_integer n, __CLPK_real d__, __CLPK_real e);
cannam@17	5290
cannam@17	5291 __CLPK_doublereal slansy_(char norm, char uplo, __CLPK_integer n, __CLPK_real a, __CLPK_integer *lda,
cannam@17	5292 __CLPK_real *work);
cannam@17	5293
cannam@17	5294 __CLPK_doublereal slantb_(char norm, char uplo, char diag, __CLPK_integer n, __CLPK_integer *k,
cannam@17	5295 __CLPK_real ab, __CLPK_integer ldab, __CLPK_real *work);
cannam@17	5296
cannam@17	5297 __CLPK_doublereal slantp_(char norm, char uplo, char diag, __CLPK_integer n, __CLPK_real *ap,
cannam@17	5298 __CLPK_real *work);
cannam@17	5299
cannam@17	5300 __CLPK_doublereal slantr_(char norm, char uplo, char diag, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5301 __CLPK_real a, __CLPK_integer lda, __CLPK_real *work);
cannam@17	5302
cannam@17	5303 __CLPK_doublereal slapy2_(__CLPK_real x, __CLPK_real y);
cannam@17	5304
cannam@17	5305 __CLPK_doublereal slapy3_(__CLPK_real x, __CLPK_real y, __CLPK_real *z__);
cannam@17	5306
cannam@17	5307 /* Subroutine / int zgelsd_(__CLPK_integer m, __CLPK_integer n, __CLPK_integer nrhs,
cannam@17	5308 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublecomplex b, __CLPK_integer ldb,
cannam@17	5309 __CLPK_doublereal s, __CLPK_doublereal rcond, __CLPK_integer rank, __CLPK_doublecomplex work,
cannam@17	5310 __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	5311
cannam@17	5312 /* Subroutine / int zgesdd_(char jobz, __CLPK_integer m, __CLPK_integer n,
cannam@17	5313 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublereal s, __CLPK_doublecomplex u,
cannam@17	5314 __CLPK_integer ldu, __CLPK_doublecomplex vt, __CLPK_integer ldvt, __CLPK_doublecomplex work,
cannam@17	5315 __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer iwork, __CLPK_integer info);
cannam@17	5316
cannam@17	5317 /* Subroutine / int zgesvd_(char jobu, char jobvt, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5318 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublereal s, __CLPK_doublecomplex u,
cannam@17	5319 __CLPK_integer ldu, __CLPK_doublecomplex vt, __CLPK_integer ldvt, __CLPK_doublecomplex work,
cannam@17	5320 __CLPK_integer lwork, __CLPK_doublereal rwork, __CLPK_integer *info);
cannam@17	5321
cannam@17	5322 /* Subroutine / int zhbgvd_(char jobz, char uplo, __CLPK_integer n, __CLPK_integer *ka,
cannam@17	5323 __CLPK_integer kb, __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublecomplex bb,
cannam@17	5324 __CLPK_integer ldbb, __CLPK_doublereal w, __CLPK_doublecomplex z__, __CLPK_integer ldz,
cannam@17	5325 __CLPK_doublecomplex work, __CLPK_integer lwork, __CLPK_doublereal *rwork,
cannam@17	5326 __CLPK_integer lrwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	5327
cannam@17	5328 /* Subroutine / int zhetd2_(char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	5329 __CLPK_integer lda, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublecomplex tau,
cannam@17	5330 __CLPK_integer *info);
cannam@17	5331
cannam@17	5332 /* Double Complex / void zladiv_(__CLPK_doublecomplex ret_val, __CLPK_doublecomplex *x,
cannam@17	5333 __CLPK_doublecomplex *y);
cannam@17	5334
cannam@17	5335 /* Subroutine / int zlalsd_(char uplo, __CLPK_integer smlsiz, __CLPK_integer n, __CLPK_integer
cannam@17	5336 nrhs, __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublecomplex b, __CLPK_integer *ldb,
cannam@17	5337 __CLPK_doublereal rcond, __CLPK_integer rank, __CLPK_doublecomplex *work,
cannam@17	5338 __CLPK_doublereal rwork, __CLPK_integer iwork, __CLPK_integer *info);
cannam@17	5339
cannam@17	5340 __CLPK_doublereal zlangb_(char norm, __CLPK_integer n, __CLPK_integer kl, __CLPK_integer ku,
cannam@17	5341 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal *work);
cannam@17	5342
cannam@17	5343 __CLPK_doublereal zlange_(char norm, __CLPK_integer m, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	5344 __CLPK_integer lda, __CLPK_doublereal work);
cannam@17	5345
cannam@17	5346 __CLPK_doublereal zlangt_(char norm, __CLPK_integer n, __CLPK_doublecomplex *dl,
cannam@17	5347 __CLPK_doublecomplex d__, __CLPK_doublecomplex du);
cannam@17	5348
cannam@17	5349 __CLPK_doublereal zlanhb_(char norm, char uplo, __CLPK_integer n, __CLPK_integer k,
cannam@17	5350 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal *work);
cannam@17	5351
cannam@17	5352 __CLPK_doublereal zlanhe_(char norm, char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	5353 __CLPK_integer lda, __CLPK_doublereal work);
cannam@17	5354
cannam@17	5355 __CLPK_doublereal zlanhp_(char norm, char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	5356 __CLPK_doublereal *work);
cannam@17	5357
cannam@17	5358 __CLPK_doublereal zlanhs_(char norm, __CLPK_integer n, __CLPK_doublecomplex a, __CLPK_integer lda,
cannam@17	5359 __CLPK_doublereal *work);
cannam@17	5360
cannam@17	5361 __CLPK_doublereal zlanht_(char norm, __CLPK_integer n, __CLPK_doublereal d__, __CLPK_doublecomplex e);
cannam@17	5362
cannam@17	5363 __CLPK_doublereal zlansb_(char norm, char uplo, __CLPK_integer n, __CLPK_integer k,
cannam@17	5364 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal *work);
cannam@17	5365
cannam@17	5366 __CLPK_doublereal zlansp_(char norm, char uplo, __CLPK_integer n, __CLPK_doublecomplex ap,
cannam@17	5367 __CLPK_doublereal *work);
cannam@17	5368
cannam@17	5369 __CLPK_doublereal zlansy_(char norm, char uplo, __CLPK_integer n, __CLPK_doublecomplex a,
cannam@17	5370 __CLPK_integer lda, __CLPK_doublereal work);
cannam@17	5371
cannam@17	5372 __CLPK_doublereal zlantb_(char norm, char uplo, char diag, __CLPK_integer n, __CLPK_integer *k,
cannam@17	5373 __CLPK_doublecomplex ab, __CLPK_integer ldab, __CLPK_doublereal *work);
cannam@17	5374
cannam@17	5375 __CLPK_doublereal zlantp_(char norm, char uplo, char diag, __CLPK_integer n,
cannam@17	5376 __CLPK_doublecomplex ap, __CLPK_doublereal work);
cannam@17	5377
cannam@17	5378 __CLPK_doublereal zlantr_(char norm, char uplo, char diag, __CLPK_integer m, __CLPK_integer *n,
cannam@17	5379 __CLPK_doublecomplex a, __CLPK_integer lda, __CLPK_doublereal *work);
cannam@17	5380
cannam@17	5381 /* Subroutine / int zpteqr_(char compz, __CLPK_integer n, __CLPK_doublereal d__,
cannam@17	5382 __CLPK_doublereal e, __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_doublereal work,
cannam@17	5383 __CLPK_integer *info);
cannam@17	5384
cannam@17	5385 /* Subroutine / int zstegr_(char jobz, char range, __CLPK_integer n,
cannam@17	5386 __CLPK_doublereal d__, __CLPK_doublereal e, __CLPK_doublereal vl, __CLPK_doublereal vu,
cannam@17	5387 __CLPK_integer il, __CLPK_integer iu, __CLPK_doublereal abstol, __CLPK_integer m, __CLPK_doublereal *w,
cannam@17	5388 __CLPK_doublecomplex z__, __CLPK_integer ldz, __CLPK_integer isuppz, __CLPK_doublereal work,
cannam@17	5389 __CLPK_integer lwork, __CLPK_integer iwork, __CLPK_integer liwork, __CLPK_integer info);
cannam@17	5390
cannam@17	5391 #ifdef __cplusplus
cannam@17	5392 }
cannam@17	5393 #endif
cannam@17	5394 #endif /* __CLAPACK_H */

Mercurial > hg > qm-dsp

annotate include/clapack.h @ 209:ccd2019190bf msvc