qm-dsp: include/clapack.h annotate

annotate include/clapack.h @ 321:f1e6be2de9a5

A threshold (delta) is added in the peak picking parameters structure (PPickParams). It is used as an offset when computing the smoothed detection function. A constructor for the structure PPickParams is also added to set the parameters to 0 when a structure instance is created. Hence programmes using the peak picking parameter structure and which do not set the delta parameter (e.g. QM Vamp note onset detector) won't be affected by the modifications. Functions modified: - dsp/onsets/PeakPicking.cpp - dsp/onsets/PeakPicking.h - dsp/signalconditioning/DFProcess.cpp - dsp/signalconditioning/DFProcess.h

author	mathieub <mathieu.barthet@eecs.qmul.ac.uk>
date	Mon, 20 Jun 2011 19:01:48 +0100
parents	6060110dc3c6
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 @ 321:f1e6be2de9a5