qm-dsp: include/clapack.h annotate

annotate include/clapack.h @ 57:d241e7701c0c

* remove some debug output

author	cannam
date	Fri, 27 Feb 2009 13:07:22 +0000
parents	a120ac7b26b2
children

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

Mercurial > hg > qm-dsp

annotate include/clapack.h @ 57:d241e7701c0c