qm-dsp: include/clapack.h annotate

annotate include/clapack.h @ 242:6060110dc3c6

* Build PCA and HMM

author	Chris Cannam <c.cannam@qmul.ac.uk>
date	Wed, 09 Jan 2008 10:37:06 +0000
parents
children

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

Mercurial > hg > qm-dsp

annotate include/clapack.h @ 242:6060110dc3c6